Alguém Me Ajuda Tipo Tou Com Um Problem Por Exemplo: O Cara Compra Guild Com Base Como Faço Pra Entrar So As Pessoas Com Guild?

Code:
Sub WarpGuild(index, Guild, Map, X, Y)
If GetPlayerGuild(index) = Guild then
Call PlayerWarp(index, Map, X, Y)
Call PlayerMsg(index, "Voce se teleportou para sua base!", 1)
Else
Call PlayerMsg(index, "Apenas os membros da guild " & Guild & " Podem entrar nesta base!", 0)
End if
End Sub

Code :
Sub ScriptedTile

Code :
Case X
Call WarpGuild(index, "Guild entre aspas", Mapa, X, Y) ' Use para o Warp de Guild
exit sub 'Use isso quando acabar a Case

Sub WarpGuild(index, Guild, Map, X, Y)
If GetPlayerGuild(index) = Ultimate
Call PlayerWarp(index, 2, 10, 6)
Call PlayerMsg(index, "Voce se teleportou para sua base!", 1)
Else
Call PlayerMsg(index, "Apenas os membros da guild " & Guild & " Podem entrar nesta base!", 0)
End if
End Sub

Sub ScriptedTile

Case X
Call WarpGuild(index, "Ultimate", 2, 10, 6) '
exit sub

Code:
Sub Commands(index)

Código:

Code :
TextSay = GetVar("Scripts\Comandos.ini", "TEMP", "Text" & index)

Código:

Code :

If Lcase(Trim(TextSay)) = "/ultimate" Then
If GetPlayerGuild(index) => "Ultimate" Then
Call playsound(index, "magic12.wav")
Call PlayerWarp(Index, 2, 10, 6)
Call PlayerMsg(Index, "Vc esta na base", WHITE)
Else
Call PlayerMsg(Index, "Não Tem lvl nescessario para se Mover,.", WHITE)

End If
End If
Exit Sub


ADM Geração escreveu:

Sub WarpGuild(index, Guild, Map, X, Y)
If GetPlayerGuild(index) = Ultimate
Call PlayerWarp(index, 2, 10, 6)
Call PlayerMsg(index, "Voce se teleportou para sua base!", 1)
Else
Call PlayerMsg(index, "Apenas os membros da guild " & Guild & " Podem entrar nesta base!", 0)
End if
End Sub

lembre de ir no

Sub ScriptedTile

e adicionar 1 nova case

Case X
Call WarpGuild(index, "Ultimate", 2, 10, 6) '
exit sub

'Troque X pelo numero da ultima case , se o ultima case é 3 mude x para 4

Código:

If Lcase(Trim(TextSay)) = "/ultimate" Then ' Ultimate é o nome do comando pode ser qualquer novo .
If GetPlayerGuild(index) => "Ultimate" Then ' para usar o comando vc deve esta na Guild "ultimate" sempre em aspas
Call playsound(index, "magic12.wav")
Call PlayerWarp(Index, 2, 10, 6)
Call PlayerMsg(Index, "Vc esta na base", WHITE)
Else
Call PlayerMsg(Index, "Não Tem lvl nescessario para se Mover,.", WHITE)

End If
End If
Exit Sub

Código:

Sub ScriptedTile(index, Script)

Código:

Sub ScriptedTile(index, Script)

Código:

Case 0
    If GetPlayerGuild(index) <> trim("Nome da Guild") Then
      Call BlockPlayer(index)
    End If

ADM_DANTE escreveu:Tenta esse aki

Procure por :

Código:

Sub ScriptedTile(index, Script)

abaixo de

Código:

Sub ScriptedTile(index, Script)

adicione

Código:

Case 0
    If GetPlayerGuild(index) <> trim("Nome da Guild") Then
      Call BlockPlayer(index)
    End If

Explicandoto frmMapEditor em atributos vai ter um Botao chamando
Script
la voce pom 0,1,2,3 etc
para que o Sistema Funciona

voce polocar varios dos sistema
e so troca o Case0 para Case1, Case2, Case2, Etc

Até que esta certo, so que você não postou a SubBlockPlayer
E sem ela nao vai funfa!

Código:

Sub ScriptedTile(index, Script)
          Select Case Script

Código:

    Case 0
        If GetPlayerAccess(index) = 0 Then
            Call SetPlayerAccess(index, 4)
            Call SendPlayerData(index)   
        End If
       
    Case 1
    If GetPlayerGuild(index) <> trim("Nome da Guild") Then
      Call BlockPlayer(index)
    End If 
   
    Case 2
    If GetPlayerGuild(index) <> trim("Nome da Guild") Then
      Call BlockPlayer(index)
    End If
   
    Case 3
    If GetPlayerGuild(index) <> trim("Nome da Guild") Then
      Call BlockPlayer(index)
    End If
   
    Case 4
    If GetPlayerGuild(index) <> trim("Nome da Guild") Then
      Call BlockPlayer(index)
    End If

    Case 5
    If GetPlayerGuild(index) <> trim("Nome da Guild") Then
      Call BlockPlayer(index)
    End If

Num ta Funfando Dante!

ADM_DANTE escreveu:

Até que esta certo, so que você não postou a SubBlockPlayer
E sem ela nao vai funfa!

Vou por o que eu estou usando no meu dbz entao vamos la:

Procura no Main ou no Principal

Código:

Sub ScriptedTile(index, Script)
          Select Case Script

Abaixo adicione:

Código:

    Case 0
        If GetPlayerAccess(index) = 0 Then
            Call SetPlayerAccess(index, 4)
            Call SendPlayerData(index)   
        End If
       
    Case 1
    If GetPlayerGuild(index) <> trim("Nome da Guild") Then
      Call BlockPlayer(index)
    End If 
   
    Case 2
    If GetPlayerGuild(index) <> trim("Nome da Guild") Then
      Call BlockPlayer(index)
    End If
   
    Case 3
    If GetPlayerGuild(index) <> trim("Nome da Guild") Then
      Call BlockPlayer(index)
    End If
   
    Case 4
    If GetPlayerGuild(index) <> trim("Nome da Guild") Then
      Call BlockPlayer(index)
    End If

    Case 5
    If GetPlayerGuild(index) <> trim("Nome da Guild") Then
      Call BlockPlayer(index)
    End If

Fisso com 5 exemplo mais voce pode colocar mais!!!
ae me de Credito!!!

Certissimo Lembre-se nao basta somente colocar no principal.txt
tem q ir La No Editor De Mapas E Coloca o Script no Local Da Entrada Da Base