Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!
Universo Games

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Você não está conectado. Conecte-se ou registre-se

[EEB] Usando ScriptedTile

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1Tutorial [EEB] Usando ScriptedTile em Qui 18 Ago 2011, 22:24

pedro513dc


Membro
Membro
Eaw Gente Esse é Meu Primeiro Tuto Neste Site Porem Eu Ja Postei Em Outros Smile
Então Vamos Ao Que Enteressa O Tutorial>>

Adicione Isso No Final Do Seu Main.txt

Código:
Sub BlockPlayer(index)
Dim PlayerDir
Dim Map
Dim X
Dim Y
PlayerDir = GetPlayerDir(index)
Map = GetPlayerMap(index)
X = GetPlayerX(index)
Y = GetPlayerY(index)
Select Case PlayerDir
    Case 0
        Call PlayerWarp(index, Map, X, Y + 1)
    Case 1
        Call PlayerWarp(index, Map, X, Y - 1)
    Case 2
        Call PlayerWarp(index, Map, X + 1, Y)
    Case 3
        Call PlayerWarp(index, Map, X - 1, Y)
End Select
End Sub

Proucure Por:
Código:
Sub ScriptedTile(index, Script)

Mude A Sub Toda Para:
Código:
Sub ScriptedTile(index, Script)
Select Case Script
    Case 0
        If GetPlayerAccess(index) < 1 Then
        Call BlockPlayer(index)
        Call PlayerMsg(index, "Você precisa ser VIP para acessar essa area.", 4)
        End If
     
    Case 1
    If GetPlayerGuild(index) <> trim("Warriors") Then
      Call BlockPlayer(index)
    End If 
   
    Case 2
    If GetPlayerGuild(index) <> trim("Max") Then
      Call BlockPlayer(index)
    End If
   
    Case 3
    If GetPlayerGuild(index) <> trim("nome da guild aqui") Then
      Call BlockPlayer(index)
    End If
   
    Case 4
    If GetPlayerGuild(index) <> trim("nome da guild aqui") Then
      Call BlockPlayer(index)   
    End If

    Case 5
    If GetPlayerGuild(index) <> trim("nome da guild aqui") Then
      Call BlockPlayer(index)
    End If

  Case 6
    If GetPlayerGuild(index) <> trim("nome da guild aqui") Then
      Call BlockPlayer(index)
    End If
   

  Case 7
    If GetPlayerGuild(index) <> trim("nome da guild aqui") Then
      Call BlockPlayer(index)
    End If
   
    Case 8
    If GetPlayerGuild(index) <> trim("nome da guild aqui") Then
      Call BlockPlayer(index)
    End If
   
    Case 9
    If GetPlayerGuild(index) <> trim("nome da guild aqui") Then
      Call BlockPlayer(index)
    End If
   
    Case 10
    If GetPlayerGuild(index) <> trim("nome da guild aqui") Then
      Call BlockPlayer(index)
    End If 
   
    Case 11
    If GetPlayerGuild(index) <> trim("nome da guild aqui") Then
      Call BlockPlayer(index)
    End If
   
    Case 12
    If GetPlayerGuild(index) <> trim("nome da guild aqui") Then
      Call BlockPlayer(index)
    End If   
   
    Case 13
    If GetPlayerGuild(index) <> trim("nome da guild aqui") Then
      Call BlockPlayer(index)
    End If 
   
    Case 14
    If GetPlayerGuild(index) <> trim("nome da guild aqui") Then
      Call BlockPlayer(index)
    End If 
   
    Case 15
    If GetPlayerGuild(index) <> trim("nome da guild aqui") Then
      Call BlockPlayer(index)
    End If
   
    Case 16
    If GetPlayerGuild(index) <> trim("nome da guild aqui") Then
      Call BlockPlayer(index)
    End If
   
    Case 17
    If GetPlayerGuild(index) <> trim("nome da guild aqui") Then
      Call BlockPlayer(index)
    End If
   
    Case 18
  If GetPlayerName(index) <> trim("Elysium Source") Then
      Call BlockPlayer(index)
    End If

    Case 19
  If GetPlayerName(index) <> trim("Ponhe o nome do jogador") Then
      Call BlockPlayer(index)
    End If
 
    Case 20
  If GetPlayerName(index) <> trim("Ponhe o nome do jogador") Then
      Call BlockPlayer(index)
    End If
   
    Case 21
    If GetPlayerLevel(index) < 50 Then
    Call BlockPlayer(index)
    Call PlayerMsg(index, "Você precisa estar level 50 ou mais para passar nesse portal", 4)
    End If
       
    Case 22
    If GetPlayerLevel(index) < 100 Then
    Call BlockPlayer(index)
    Call PlayerMsg(index, "Você precisa estar level 100 ou mais para passar nesse portal", 4)
    End If
       
    Case 23
    If GetPlayerLevel(index) < 150 Then
    Call BlockPlayer(index)
    Call PlayerMsg(index, "Você precisa estar level 150 ou mais para passar nesse portal", 4)
    End If
       
    Case 24
    If GetPlayerLevel(index) < 200 Then
    Call BlockPlayer(index)
    Call PlayerMsg(index, "Você precisa estar level 200 ou mais para passar nesse portal", 4)
    End If
       
    Case 25
    If GetPlayerLevel(index) < 250 Then
    Call BlockPlayer(index)
    Call PlayerMsg(index, "Você precisa estar level 250 ou mais para passar nesse portal", 4)
    End If
       
    Case 26
    If GetPlayerLevel(index) < 300 Then
    Call BlockPlayer(index)
    Call PlayerMsg(index, "Você precisa estar level 300 ou mais para passar nesse portal", 4)
    End If
       
    Case 27
    If GetPlayerLevel(index) < 400 Then
    Call BlockPlayer(index)
    Call PlayerMsg(index, "Você precisa estar level 400 ou mais para passar nesse portal", 4)
    End If
       
    Case 28
    If GetPlayerLevel(index) < 500 Then
    Call BlockPlayer(index)
    Call PlayerMsg(index, "Você precisa estar level 500 ou mais para passar nesse portal", 4)
    End If
       
    Case 29
    If GetPlayerLevel(index) < 600 Then
    Call BlockPlayer(index)
    Call PlayerMsg(index, "Você precisa estar level 600 ou mais para passar nesse portal", 4)
    End If
       
    Case 30
    If GetPlayerLevel(index) < 700 Then
    Call BlockPlayer(index)
    Call PlayerMsg(index, "Você precisa estar level 700 ou mais para passar nesse portal", 4)
    End If
       
    Case 31
    If GetPlayerLevel(index) < 300 Then
    Call PlayerMsg(index, "Se você é iniciante, vá ao mapa de baixo...Lá é o lugar ideal para você.", 5)
    Call PlayerWarp(index, 108, 9, 10)
    Else
    Call PlayerWarp(index, 108, 9, 10)
    End If
    End Select
    End Sub
   

Sub PlayerPrompt(index, Prompt, Value)
If Prompt = 6 Then
    Select Case Value
        Case 0
            Call GlobalMsg("Hi This is a Yes answer!", 3)
        Case 1
            Call GlobalMsg("This is case 1?", 3)
    End Select
Else
    Select Case Value
        Case 0
            Call GlobalMsg("Hi This is a No answer!", 4)
        Case 1
            Call GlobalMsg("This is no case 1?", 4)
    End Select
End If
End Sub

é só isso se gostou da credito Very Happy





Créditos: Pedro Augusto[Euu]
Bom Se Ja Postaram Mil Desculpas Não Pesquisei Mas De Qualquer Forma Obrigado Por Tudo Very Happy

2Tutorial Re: [EEB] Usando ScriptedTile em Sab 20 Ago 2011, 13:23

Luucas Robeerto


Fundador
Fundador
Obrigado pela contribuição...
+1


_______________________________________________________________________________________________________

[Você precisa estar registrado e conectado para ver esta imagem.]
Spoiler:
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
http://universogamesmmo.forumeiros.com

3Tutorial Re: [EEB] Usando ScriptedTile em Sab 20 Ago 2011, 14:34

Convidad


Convidado
bom, sou iniciante nessas coisas de sistemas ainda, se pode dar uma explicadinha doq se trata ScriptedTile?

4Tutorial Re: [EEB] Usando ScriptedTile em Sab 20 Ago 2011, 17:11

Ricardo


Membro
Membro
ScriptedTile, e tipo um tile que você define o que ele faz

Conteúdo patrocinado


Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum