Suporte ao desenvolvimento de jogos!


    [Sistema] Play PK

    Compartilhe
    avatar
    JuaN KaeL
    Novato
    Novato

    Mensagens : 24
    Créditos : 1

    [Sistema] Play PK

    Mensagem por JuaN KaeL em Qui Jun 05, 2014 12:38 pm

    Va na Pasta Servedor e depois scripts, depois abra "Princial.Txt"
    Procure Por:
    TextSay = GetVar("Scripts\Comandos.ini", "TEMP", "Text" & index)

    Abaixo Adicione:
    If Lcase(Trim(TextSay)) = "/pkon" Then
    If GetPlayerPK(index) = 1 Then
    Call SetPlayerPK(index, 0)
    Call PalyerMsg(index, "Você Saiu Do Modo PK!", 14)
    Call GlobalMsg(GetPlayerName(index) & " Saiu Do Modo PK! ", 4)
    Call SavePlayer(index)
    Call PlayerWarp(index, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index), False)
    Exit Sub
    End If
    End If


    If Lcase(Trim(TextSay)) = "/pkoff" Then
    If GetPlayerPK(index) = 0 Then
    Call SetPlayerPK(index, 1)
    Call PlayerMsg(index, "Você Entrou Em Modo PK!", 14)
    Call GlobalMsg(GetPlayerName(index) & " Entrou Em Modo PK! ", 4)
    Call SavePlayer(index)
    Call PlayerWarp(index, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index), False)
    Exit Sub
    End If
    End If
    -----------------------------------------------------------------------------------
    Creditos a min por postar

      Data/hora atual: Qua Jan 17, 2018 8:51 pm