Convidado Convidado
| Assunto: [EEB] Usando ScriptedTile Qui 18 Ago 2011, 23:24 | |
| Eaw Gente Esse é Meu Primeiro Tuto Neste Site Porem Eu Ja Postei Em Outros 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 Créditos: Pedro Augusto[Euu] Bom Se Ja Postaram Mil Desculpas Não Pesquisei Mas De Qualquer Forma Obrigado Por Tudo |
|
Lucas Roberto Administrador
Mensagens : 711
| Assunto: Re: [EEB] Usando ScriptedTile Sáb 20 Ago 2011, 14:23 | |
| Obrigado pela contribuição... +1 | |
|
Convidad Convidado
| Assunto: Re: [EEB] Usando ScriptedTile Sáb 20 Ago 2011, 15:34 | |
| bom, sou iniciante nessas coisas de sistemas ainda, se pode dar uma explicadinha doq se trata ScriptedTile? |
|
Convidado Convidado
| Assunto: Re: [EEB] Usando ScriptedTile Sáb 20 Ago 2011, 18:11 | |
| ScriptedTile, e tipo um tile que você define o que ele faz |
|
Conteúdo patrocinado
| Assunto: Re: [EEB] Usando ScriptedTile | |
| |
|