[ALL]Comando /convite Igual DBZ Forces

Código:

Sub Commands(index)
On Error Resume Next
Dim Portal
Dim mapnum
Dim x
Dim y
Dim i
Dim TextSay
Dim n
Dim m
Dim C   
m = GetVar("Dados.ini", "MAX", "MAX_MAPS")
TextSay = GetVar("Scripts\Comandos.ini", "TEMP", "Text" & index)

Código:

If LCase(Mid(TextSay, 1, 8)) = "/convite" Then
        If Len(TextSay) > 10 Then
            If GetPlayerGuildAccess(index) < 3 Then
                Call PlayerMsg(index, "Você precisa ser gm da guilda!", 4)
                Exit Sub
            End If         
            if getplayermap(index) = *0* then
  Call PlayerMsg(index, "você esta na cadeia!", 15) 
  exit sub
  end if   
 
    if getplayermap(index) = *0* or getplayermap(index) = *0* or getplayermap(index) = *0* or getplayermap(index) = *0* or getplayermap(index) = *0* or getplayermap(index) = *0* or getplayermap(index) = *0* or getplayermap(index) = *0* or getplayermap(index) = *0* or getplayermap(index) = *0* or getplayermap(index) = *0* or getplayermap(index) = *0* or getplayermap(index) = *0* or getplayermap(index) = *0* or getplayermap(index) = *0* or getplayermap(index) = *0* or getplayermap(index) = *0* or getplayermap(index) = *0* or getplayermap(index) = *0* or getplayermap(index) = *0* then
  Call PlayerMsg(index, "você não pode puxar na casa!", 15) 
  exit sub
  end if 
 
    if getplayermap(index) = *0* then
  Call PlayerMsg(index, "nao pode puxar", 15) 
  exit sub
  end if   
   
               
            n = Mid(TextSay, 10, Len(TextSay) - 9)
            n = FindPlayer(n)
           
                             
            If n <> index Then
                If n > 0 Then 
                if getplayerguild(n) = Getplayerguild(index) then 
                if getplayermap(n) <> 149 then

                    Call PlayerWarp(n, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index))
                    Call PlayerMsg(n, "você foi teleportado pelo seu GM de guilda " & GetPlayerName(index) & ".", 9)
                   
                          Else
                    Call PlayerMsg(index, "player esta na cadeia.", 15)
                End If
            Else
                Call PlayerMsg(index, "player nao é da sua guilda.", 15)
            End If   
            else
            Call PlayerMsg(index, "player offline", 15)
        End If 
        else 
        Call PlayerMsg(index, "vocÊ nao pode se teleportar", 15)
        end if     
        end if
        Exit Sub
    End If

el12e escreveu:ai galera alguem que me ajuda a montar um dbz