Comando /ssj e /normal

por MadaraOwner Ter 07 Ago 2012, 10:45

Fala ae negada do mmorpgbr õ/
É o seguinte, como o título já diz, eu vou mostrar aqui como fazer um script pra transformar em ssj e voltar ao normal. Na verdade, esse script não é meu, eu vi um tuto aqui e não lembro de foi o Lendário que fez ou outro, mas enfim, o script só mostrava como se transformar, então eu decidi fazer um pra voltar ao normal ^^

Começando:

Vá na pasta Server > Scripts > Main.txt

abra, aperte ctrl + f e procure por:

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("Data.ini", "MAX", "MAX_MAPS") TextSay = GetVar("Scripts\Command.ini", "TEMP", "Text" & index)

logo a baixo de

Código:: TextSay = GetVar("Scripts\Command.ini", "TEMP", "Text" & index)

coloque o seguinte código:

Código:: If Lcase(Trim(TextSay)) = "/ssj" Then If GetPlayerClass (index) = 1 Then If GetPlayerLevel(index) => 50 Then If GetPlayerSprite(index) = 1 Then Call SetPlayerSprite(index, 2) Call SetPlayerSTR(Index, GetPlayerSTR(Index) + 50) Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 50) Call PlayerMsg(index, "Você é um Super Saiyajin!", 4) Call PlayerWarp (index, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index),False) Exit Sub End If End If End IF End If

Esse faz a transformação em ssj, e agora pra voltar ao normal cole isso:

Código:: If Lcase(Trim(TextSay)) = "/normal" Then If GetPlayerClass (index) = 1 Then Call SetPlayerSprite(index, 1) Call SetPlayerSTR(Index, GetPlayerSTR(Index) + 50) Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 50) Call PlayerMsg(index, "Você voltou a forma normal.", 4) Call PlayerWarp (index, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index),False) Exit Sub End If End If

Eu não vou explicar cada parte do código pq como já falei, o Lendário (eu acho) já fez um tuto desses, e lá ele explica bem direitinho, fiz esse mais pra complementar n_n

Espero ter ajudado, e desculpe se tiver algum erro aí, é que comecei antes de ontem ._. (mas aqui funcionou .-.)