[PEDIDO]Trans Foto

por Ryo Seg 13 Ago 2012, 13:08

oi pessoal preciso de ajuda pra fazer trans foto pra EEB o tutorial do lenda so tem pra 2 classes e eu precso pra pelomenos 14 se alguem puder ajudar postando o codigo do pra ajudar agradeço +CRED. to quebrandoacabeça ja [PEDIDO]Trans Foto 1574364447

.

por Kooringa Ter 14 Ago 2012, 17:39

da proxima vez procura que vc acha tá ai:

http://www.mmorpgbr.com/t755-all-transformacao-por-imagem

É meu Fan? Gosta de Min? Então use:
[PEDIDO]Trans Foto Bhhod5

OBS:

por Ryo Qua 15 Ago 2012, 08:42

so to querendo ajuda eu ja vi esse tuto e nao consigo fazer pra mais classes

por Storm™ Qua 15 Ago 2012, 08:51

pra fazer por mais classe creio que so precisa repetir oq fez mudandos alguns aspections , como imagem da trans , Sprinte , nome ...

por Ryo Qua 15 Ago 2012, 11:48

ai da erro

Voce foi kickado por Paclet FLoodind (TSSJ) [PEDIDO]Trans Foto 840263

por thebrolly Qua 15 Ago 2012, 14:33

Bom, vou por o que é necessário mudar, o resto você faz igual no TUTORIAL do Lendário. só edite conforme o seu jogo:

Client~Side
Procure por

Código:: If Parse(0) = "itembreak" Then ItemDur(Val(Parse(1))).Item = Val(Parse(2)) ItemDur(Val(Parse(1))).Dur = Val(Parse(3)) ItemDur(Val(Parse(1))).done = 1 Exit Sub End If

A Baixo Adicione:

Código:: ' ::::::::::::::::::::::: ' :: Class Pic request :: ' ::::::::::::::::::::::: If Parse(0) = "classpic" Then If GetPlayerClass(MyIndex) = 1 Then frmMirage.picTrans0.Picture = LoadPicture(App.Path & "\GFX\Fotos\Goku\0.jpg") frmMirage.picTrans1.Picture = LoadPicture(App.Path & "\GFX\Fotos\Goku\1.jpg") frmMirage.picTrans2.Picture = LoadPicture(App.Path & "\GFX\Fotos\Goku\2.jpg") frmMirage.picTrans3.Picture = LoadPicture(App.Path & "\GFX\Fotos\Goku\3.jpg") frmMirage.picTrans4.Picture = LoadPicture(App.Path & "\GFX\Fotos\Goku\4.jpg") ElseIf GetPlayerClass(MyIndex) = 2 Then frmMirage.picTrans0.Picture = LoadPicture(App.Path & "\GFX\Fotos\Vegeta\0.jpg") frmMirage.picTrans1.Picture = LoadPicture(App.Path & "\GFX\Fotos\Vegeta\1.jpg") frmMirage.picTrans2.Picture = LoadPicture(App.Path & "\GFX\Fotos\Vegeta\2.jpg") frmMirage.picTrans3.Picture = LoadPicture(App.Path & "\GFX\Fotos\Vegeta\3.jpg") frmMirage.picTrans4.Picture = LoadPicture(App.Path & "\GFX\Fotos\Vegeta\4.jpg") ElseIf GetPlayerClass(MyIndex) = 3 Then frmMirage.picTrans0.Picture = LoadPicture(App.Path & "\GFX\Fotos\Brolly\0.jpg") frmMirage.picTrans1.Picture = LoadPicture(App.Path & "\GFX\Fotos\Brolly\1.jpg") frmMirage.picTrans2.Picture = LoadPicture(App.Path & "\GFX\Fotos\Brolly\2.jpg") frmMirage.picTrans3.Picture = LoadPicture(App.Path & "\GFX\Fotos\Brolly\3.jpg") frmMirage.picTrans4.Picture = LoadPicture(App.Path & "\GFX\Fotos\Brolly\4.jpg") ElseIf GetPlayerClass(MyIndex) = 4 Then frmMirage.picTrans0.Picture = LoadPicture(App.Path & "\GFX\Fotos\Teen Gohan\0.jpg") frmMirage.picTrans1.Picture = LoadPicture(App.Path & "\GFX\Fotos\Teen Gohan\1.jpg") frmMirage.picTrans2.Picture = LoadPicture(App.Path & "\GFX\Fotos\Teen Gohan\2.jpg") frmMirage.picTrans3.Picture = LoadPicture(App.Path & "\GFX\Fotos\Teen Gohan\3.jpg") frmMirage.picTrans4.Picture = LoadPicture(App.Path & "\GFX\Fotos\Teen Gohan\4.jpg") ElseIf GetPlayerClass(MyIndex) = 5 Then frmMirage.picTrans0.Picture = LoadPicture(App.Path & "\GFX\Fotos\Adult Gohan\0.jpg") frmMirage.picTrans1.Picture = LoadPicture(App.Path & "\GFX\Fotos\Adult Gohan\1.jpg") frmMirage.picTrans2.Picture = LoadPicture(App.Path & "\GFX\Fotos\Adult Gohan\2.jpg") frmMirage.picTrans3.Picture = LoadPicture(App.Path & "\GFX\Fotos\Adult Gohan\3.jpg") frmMirage.picTrans4.Picture = LoadPicture(App.Path & "\GFX\Fotos\Adult Gohan\4.jpg") ElseIf GetPlayerClass(MyIndex) = 6 Then frmMirage.picTrans0.Picture = LoadPicture(App.Path & "\GFX\Fotos\Majin Boo\0.jpg") frmMirage.picTrans1.Picture = LoadPicture(App.Path & "\GFX\Fotos\Majin Boo\1.jpg") frmMirage.picTrans2.Picture = LoadPicture(App.Path & "\GFX\Fotos\Majin Boo\2.jpg") frmMirage.picTrans3.Picture = LoadPicture(App.Path & "\GFX\Fotos\Majin Boo\3.jpg") frmMirage.picTrans4.Picture = LoadPicture(App.Path & "\GFX\Fotos\Majin Boo\4.jpg") ElseIf GetPlayerClass(MyIndex) = 7 Then frmMirage.picTrans0.Picture = LoadPicture(App.Path & "\GFX\Fotos\Freeza\0.jpg") frmMirage.picTrans1.Picture = LoadPicture(App.Path & "\GFX\Fotos\Freeza\1.jpg") frmMirage.picTrans2.Picture = LoadPicture(App.Path & "\GFX\Fotos\Freeza\2.jpg") frmMirage.picTrans3.Picture = LoadPicture(App.Path & "\GFX\Fotos\Freeza\3.jpg") frmMirage.picTrans4.Picture = LoadPicture(App.Path & "\GFX\Fotos\Freeza\4.jpg") ElseIf GetPlayerClass(MyIndex) = 8 Then frmMirage.picTrans0.Picture = LoadPicture(App.Path & "\GFX\Fotos\Namekuseijin\0.jpg") frmMirage.picTrans1.Picture = LoadPicture(App.Path & "\GFX\Fotos\Namekuseijin\1.jpg") frmMirage.picTrans2.Picture = LoadPicture(App.Path & "\GFX\Fotos\Namekuseijin\2.jpg") frmMirage.picTrans3.Picture = LoadPicture(App.Path & "\GFX\Fotos\Namekuseijin\3.jpg") frmMirage.picTrans4.Picture = LoadPicture(App.Path & "\GFX\Fotos\Namekuseijin\4.jpg") ElseIf GetPlayerClass(MyIndex) = 9 Then frmMirage.picTrans0.Picture = LoadPicture(App.Path & "\GFX\Fotos\Trunks\0.jpg") frmMirage.picTrans1.Picture = LoadPicture(App.Path & "\GFX\Fotos\Trunks\1.jpg") frmMirage.picTrans2.Picture = LoadPicture(App.Path & "\GFX\Fotos\Trunks\2.jpg") frmMirage.picTrans3.Picture = LoadPicture(App.Path & "\GFX\Fotos\Trunks\3.jpg") frmMirage.picTrans4.Picture = LoadPicture(App.Path & "\GFX\Fotos\Trunks\4.jpg") ElseIf GetPlayerClass(MyIndex) = 10 Then frmMirage.picTrans0.Picture = LoadPicture(App.Path & "\GFX\Fotos\Cell\0.jpg") frmMirage.picTrans1.Picture = LoadPicture(App.Path & "\GFX\Fotos\Cell\1.jpg") frmMirage.picTrans2.Picture = LoadPicture(App.Path & "\GFX\Fotos\Cell\2.jpg") frmMirage.picTrans3.Picture = LoadPicture(App.Path & "\GFX\Fotos\Cell\3.jpg") frmMirage.picTrans4.Picture = LoadPicture(App.Path & "\GFX\Fotos\Cell\4.jpg") ElseIf GetPlayerClass(MyIndex) = 11 Then frmMirage.picTrans0.Picture = LoadPicture(App.Path & "\GFX\Fotos\Baby\0.jpg") frmMirage.picTrans1.Picture = LoadPicture(App.Path & "\GFX\Fotos\Baby\1.jpg") frmMirage.picTrans2.Picture = LoadPicture(App.Path & "\GFX\Fotos\Baby\2.jpg") frmMirage.picTrans3.Picture = LoadPicture(App.Path & "\GFX\Fotos\Baby\3.jpg") frmMirage.picTrans4.Picture = LoadPicture(App.Path & "\GFX\Fotos\Baby\4.jpg") ElseIf GetPlayerClass(MyIndex) = 12 Then frmMirage.picTrans0.Picture = LoadPicture(App.Path & "\GFX\Fotos\Gogeta\0.jpg") frmMirage.picTrans1.Picture = LoadPicture(App.Path & "\GFX\Fotos\Gogeta\1.jpg") frmMirage.picTrans2.Picture = LoadPicture(App.Path & "\GFX\Fotos\Gogeta\2.jpg") frmMirage.picTrans3.Picture = LoadPicture(App.Path & "\GFX\Fotos\Gogeta\3.jpg") frmMirage.picTrans4.Picture = LoadPicture(App.Path & "\GFX\Fotos\Gogeta\4.jpg") ElseIf GetPlayerClass(MyIndex) = 13 Then frmMirage.picTrans0.Picture = LoadPicture(App.Path & "\GFX\Fotos\Gotenks\0.jpg") frmMirage.picTrans1.Picture = LoadPicture(App.Path & "\GFX\Fotos\Gotenks\1.jpg") frmMirage.picTrans2.Picture = LoadPicture(App.Path & "\GFX\Fotos\Gotenks\2.jpg") frmMirage.picTrans3.Picture = LoadPicture(App.Path & "\GFX\Fotos\Gotenks\3.jpg") frmMirage.picTrans4.Picture = LoadPicture(App.Path & "\GFX\Fotos\Gotenks\4.jpg") ElseIf GetPlayerClass(MyIndex) = 14 Then frmMirage.picTrans0.Picture = LoadPicture(App.Path & "\GFX\Fotos\tupiguarani\0.jpg") frmMirage.picTrans1.Picture = LoadPicture(App.Path & "\GFX\Fotos\tupiguarani\1.jpg") frmMirage.picTrans2.Picture = LoadPicture(App.Path & "\GFX\Fotos\tupiguarani\2.jpg") frmMirage.picTrans3.Picture = LoadPicture(App.Path & "\GFX\Fotos\tupiguarani\3.jpg") frmMirage.picTrans4.Picture = LoadPicture(App.Path & "\GFX\Fotos\tupiguarani\4.jpg") Else frmMirage.picTrans0.Visible = False frmMirage.picTrans1.Visible = False frmMirage.picTrans2.Visible = False frmMirage.picTrans3.Visible = False frmMirage.picTrans4.Visible = False End If End If End Sub

por thebrolly Qua 15 Ago 2012, 14:39

Server~Side
Procure Por:

Código:: Case "dtrade" N = Player(Index).TradePlayer ' Check if anyone trade with player If N < 1 Then Call PlayerMsg(Index, "Ninguém pediu para negociar com você.", Pink) Exit Sub End If Call PlayerMsg(Index, "O pedido de negociação foi rejeitado.", Pink) Call PlayerMsg(N, GetPlayerName(Index) & " rejeitou seu pedido de negociação.", Pink) Player(Index).TradePlayer = 0 Player(Index).InTrade = 0 Player(N).TradePlayer = 0 Player(N).InTrade = 0 Exit Sub

A baixo Adicione:

Código:: Case "tnormal" If GetPlayerClass(Index) = 1 Then If GetPlayerSprite(Index) = 276 Then Exit Sub ElseIf GetPlayerSprite(Index) = 266 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 280 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 277 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 275 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) End If Call SetPlayerSprite(Index, 276) Call SendPlayerData(Index) ElseIf GetPlayerClass(Index) = 2 Then If GetPlayerSprite(Index) = 326 Then Exit Sub ElseIf GetPlayerSprite(Index) = 327 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 328 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 329 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 330 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) End If Call SetPlayerSprite(Index, 326) Call SendPlayerData(Index) ElseIf GetPlayerClass(Index) = 3 Then If GetPlayerSprite(Index) = 267 Then Exit Sub ElseIf GetPlayerSprite(Index) = 268 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 379 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 269 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 270 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) End If Call SetPlayerSprite(Index, 267) Call SendPlayerData(Index) ElseIf GetPlayerClass(Index) = 4 Then If GetPlayerSprite(Index) = 285 Then Exit Sub ElseIf GetPlayerSprite(Index) = 286 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 287 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 288 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 336 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) End If Call SetPlayerSprite(Index, 285) Call SendPlayerData(Index) ElseIf GetPlayerClass(Index) = 5 Then If GetPlayerSprite(Index) = 272 Then Exit Sub ElseIf GetPlayerSprite(Index) = 294 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 273 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 274 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 336 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) End If Call SetPlayerSprite(Index, 272) Call SendPlayerData(Index) ElseIf GetPlayerClass(Index) = 6 Then If GetPlayerSprite(Index) = 369 Then Exit Sub ElseIf GetPlayerSprite(Index) = 370 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 371 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 372 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 373 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) End If Call SetPlayerSprite(Index, 369) Call SendPlayerData(Index) ElseIf GetPlayerClass(Index) = 7 Then If GetPlayerSprite(Index) = 354 Then Exit Sub ElseIf GetPlayerSprite(Index) = 355 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 356 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 357 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 359 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) End If Call SetPlayerSprite(Index, 354) Call SendPlayerData(Index) ElseIf GetPlayerClass(Index) = 8 Then If GetPlayerSprite(Index) = 348 Then Exit Sub ElseIf GetPlayerSprite(Index) = 349 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 350 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 351 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 352 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) End If Call SetPlayerSprite(Index, 348) Call SendPlayerData(Index) ElseIf GetPlayerClass(Index) = 9 Then If GetPlayerSprite(Index) = 343 Then Exit Sub ElseIf GetPlayerSprite(Index) = 344 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 345 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 346 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 347 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) End If Call SetPlayerSprite(Index, 343) Call SendPlayerData(Index) ElseIf GetPlayerClass(Index) = 10 Then If GetPlayerSprite(Index) = 363 Then Exit Sub ElseIf GetPlayerSprite(Index) = 364 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 365 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 368 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 366 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) End If Call SetPlayerSprite(Index, 363) Call SendPlayerData(Index) ElseIf GetPlayerClass(Index) = 11 Then If GetPlayerSprite(Index) = 374 Then Exit Sub ElseIf GetPlayerSprite(Index) = 376 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 378 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 377 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 301 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) End If Call SetPlayerSprite(Index, 374) Call SendPlayerData(Index) ElseIf GetPlayerClass(Index) = 12 Then If GetPlayerSprite(Index) = 335 Then Exit Sub ElseIf GetPlayerSprite(Index) = 331 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 383 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 380 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 381 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 6) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 6) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) End If Call SetPlayerSprite(Index, 335) Call SendPlayerData(Index) ElseIf GetPlayerClass(Index) = 13 Then If GetPlayerSprite(Index) = 337 Then Exit Sub ElseIf GetPlayerSprite(Index) = 338 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 384 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 339 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 382 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 6) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 6) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) End If Call SetPlayerSprite(Index, 337) Call SendPlayerData(Index) ElseIf GetPlayerClass(Index) = 14 Then If GetPlayerSprite(Index) = 326 Then Exit Sub ElseIf GetPlayerSprite(Index) = 327 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 328 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 329 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) ElseIf GetPlayerSprite(Index) = 330 Then Call SetPlayerstr(Index, GetPlayerstr(Index) / 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) / 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 0) End If Call SetPlayerSprite(Index, 326) Call SendPlayerData(Index) Else Exit Sub End If Call SavePlayer(Index) Exit Sub Case "tssj" If GetPlayerClass(Index) = 1 Then If GetPlayerLevel(Index) >= 50 Then If GetPlayerSprite(Index) = 276 Then Call SetPlayerSprite(Index, 266) Call SetPlayerstr(Index, GetPlayerstr(Index) * 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não level para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 2 Then If GetPlayerLevel(Index) >= 50 Then If GetPlayerSprite(Index) = 326 Then Call SetPlayerSprite(Index, 327) Call SetPlayerstr(Index, GetPlayerstr(Index) * 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não level para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 3 Then If GetPlayerLevel(Index) >= 50 Then If GetPlayerSprite(Index) = 267 Then Call SetPlayerSprite(Index, 268) Call SetPlayerstr(Index, GetPlayerstr(Index) * 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não level para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 4 Then If GetPlayerLevel(Index) >= 50 Then If GetPlayerSprite(Index) = 285 Then Call SetPlayerSprite(Index, 286) Call SetPlayerstr(Index, GetPlayerstr(Index) * 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não level para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 5 Then If GetPlayerLevel(Index) >= 50 Then If GetPlayerSprite(Index) = 272 Then Call SetPlayerSprite(Index, 294) Call SetPlayerstr(Index, GetPlayerstr(Index) * 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não level para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 6 Then If GetPlayerLevel(Index) >= 50 Then If GetPlayerSprite(Index) = 369 Then Call SetPlayerSprite(Index, 370) Call SetPlayerstr(Index, GetPlayerstr(Index) * 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não level para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 7 Then If GetPlayerLevel(Index) >= 50 Then If GetPlayerSprite(Index) = 354 Then Call SetPlayerSprite(Index, 355) Call SetPlayerstr(Index, GetPlayerstr(Index) * 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não level para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 8 Then If GetPlayerLevel(Index) >= 50 Then If GetPlayerSprite(Index) = 378 Then Call SetPlayerSprite(Index, 379) Call SetPlayerstr(Index, GetPlayerstr(Index) * 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não level para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 9 Then If GetPlayerLevel(Index) >= 50 Then If GetPlayerSprite(Index) = 343 Then Call SetPlayerSprite(Index, 344) Call SetPlayerstr(Index, GetPlayerstr(Index) * 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não level para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 10 Then If GetPlayerLevel(Index) >= 50 Then If GetPlayerSprite(Index) = 363 Then Call SetPlayerSprite(Index, 364) Call SetPlayerstr(Index, GetPlayerstr(Index) * 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não level para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 11 Then If GetPlayerLevel(Index) >= 50 Then If GetPlayerSprite(Index) = 374 Then Call SetPlayerSprite(Index, 376) Call SetPlayerstr(Index, GetPlayerstr(Index) * 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não level para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 12 Then If GetPlayerLevel(Index) >= 50 Then If GetPlayerSprite(Index) = 335 Then Call SetPlayerSprite(Index, 331) Call SetPlayerstr(Index, GetPlayerstr(Index) * 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não level para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 13 Then If GetPlayerLevel(Index) >= 50 Then If GetPlayerSprite(Index) = 337 Then Call SetPlayerSprite(Index, 338) Call SetPlayerstr(Index, GetPlayerstr(Index) * 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não level para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 14 Then If GetPlayerLevel(Index) >= 50 Then If GetPlayerSprite(Index) = 337 Then Call SetPlayerSprite(Index, 338) Call SetPlayerstr(Index, GetPlayerstr(Index) * 2) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 2) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não level para se transformar!", BrightBlue) End If End If Else Exit Sub End If Call SavePlayer(Index) Exit Sub

por thebrolly Qua 15 Ago 2012, 14:44

Continuação

Código:: Case "tssj2" If GetPlayerClass(Index) = 1 Then If GetPlayerLevel(Index) >= 125 Then If GetPlayerSprite(Index) = 276 Then Call SetPlayerSprite(Index, 280) Call SetPlayerstr(Index, GetPlayerstr(Index) * 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem level para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 2 Then If GetPlayerLevel(Index) >= 125 Then If GetPlayerSprite(Index) = 326 Then Call SetPlayerSprite(Index, 328) Call SetPlayerstr(Index, GetPlayerstr(Index) * 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem level para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 3 Then If GetPlayerLevel(Index) >= 125 Then If GetPlayerSprite(Index) = 267 Then Call SetPlayerSprite(Index, 379) Call SetPlayerstr(Index, GetPlayerstr(Index) * 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem level para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 4 Then If GetPlayerLevel(Index) >= 125 Then If GetPlayerSprite(Index) = 285 Then Call SetPlayerSprite(Index, 287) Call SetPlayerstr(Index, GetPlayerstr(Index) * 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem level para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 5 Then If GetPlayerLevel(Index) >= 125 Then If GetPlayerSprite(Index) = 272 Then Call SetPlayerSprite(Index, 273) Call SetPlayerstr(Index, GetPlayerstr(Index) * 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem level para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 6 Then If GetPlayerLevel(Index) >= 125 Then If GetPlayerSprite(Index) = 369 Then Call SetPlayerSprite(Index, 371) Call SetPlayerstr(Index, GetPlayerstr(Index) * 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem level para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 7 Then If GetPlayerLevel(Index) >= 125 Then If GetPlayerSprite(Index) = 354 Then Call SetPlayerSprite(Index, 356) Call SetPlayerstr(Index, GetPlayerstr(Index) * 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem level para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 8 Then If GetPlayerLevel(Index) >= 125 Then If GetPlayerSprite(Index) = 348 Then Call SetPlayerSprite(Index, 350) Call SetPlayerstr(Index, GetPlayerstr(Index) * 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem level para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 9 Then If GetPlayerLevel(Index) >= 125 Then If GetPlayerSprite(Index) = 343 Then Call SetPlayerSprite(Index, 345) Call SetPlayerstr(Index, GetPlayerstr(Index) * 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem level para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 10 Then If GetPlayerLevel(Index) >= 125 Then If GetPlayerSprite(Index) = 363 Then Call SetPlayerSprite(Index, 365) Call SetPlayerstr(Index, GetPlayerstr(Index) * 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem level para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 11 Then If GetPlayerLevel(Index) >= 125 Then If GetPlayerSprite(Index) = 374 Then Call SetPlayerSprite(Index, 378) Call SetPlayerstr(Index, GetPlayerstr(Index) * 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem level para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 12 Then If GetPlayerLevel(Index) >= 125 Then If GetPlayerSprite(Index) = 335 Then Call SetPlayerSprite(Index, 383) Call SetPlayerstr(Index, GetPlayerstr(Index) * 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem level para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 13 Then If GetPlayerLevel(Index) >= 125 Then If GetPlayerSprite(Index) = 337 Then Call SetPlayerSprite(Index, 384) Call SetPlayerstr(Index, GetPlayerstr(Index) * 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem level para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 14 Then If GetPlayerLevel(Index) >= 125 Then If GetPlayerSprite(Index) = 337 Then Call SetPlayerSprite(Index, 384) Call SetPlayerstr(Index, GetPlayerstr(Index) * 3) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 3) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem level para se transformar!", BrightBlue) End If End If Else Exit Sub End If Call SavePlayer(Index) Exit Sub Case "tssj3" If GetPlayerClass(Index) = 1 Then If GetPlayerLevel(Index) >= 300 Then If GetPlayerSprite(Index) = 276 Then Call SetPlayerSprite(Index, 277) Call SetPlayerstr(Index, GetPlayerstr(Index) * 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 2 Then If GetPlayerLevel(Index) >= 300 Then If GetPlayerSprite(Index) = 326 Then Call SetPlayerSprite(Index, 329) Call SetPlayerstr(Index, GetPlayerstr(Index) * 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 3 Then If GetPlayerLevel(Index) >= 300 Then If GetPlayerSprite(Index) = 267 Then Call SetPlayerSprite(Index, 269) Call SetPlayerstr(Index, GetPlayerstr(Index) * 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 4 Then If GetPlayerLevel(Index) >= 300 Then If GetPlayerSprite(Index) = 285 Then Call SetPlayerSprite(Index, 288) Call SetPlayerstr(Index, GetPlayerstr(Index) * 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 5 Then If GetPlayerLevel(Index) >= 300 Then If GetPlayerSprite(Index) = 272 Then Call SetPlayerSprite(Index, 274) Call SetPlayerstr(Index, GetPlayerstr(Index) * 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 6 Then If GetPlayerLevel(Index) >= 300 Then If GetPlayerSprite(Index) = 369 Then Call SetPlayerSprite(Index, 372) Call SetPlayerstr(Index, GetPlayerstr(Index) * 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 7 Then If GetPlayerLevel(Index) >= 300 Then If GetPlayerSprite(Index) = 354 Then Call SetPlayerSprite(Index, 357) Call SetPlayerstr(Index, GetPlayerstr(Index) * 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 8 Then If GetPlayerLevel(Index) >= 300 Then If GetPlayerSprite(Index) = 348 Then Call SetPlayerSprite(Index, 351) Call SetPlayerstr(Index, GetPlayerstr(Index) * 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 9 Then If GetPlayerLevel(Index) >= 300 Then If GetPlayerSprite(Index) = 343 Then Call SetPlayerSprite(Index, 346) Call SetPlayerstr(Index, GetPlayerstr(Index) * 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 10 Then If GetPlayerLevel(Index) >= 300 Then If GetPlayerSprite(Index) = 363 Then Call SetPlayerSprite(Index, 368) Call SetPlayerstr(Index, GetPlayerstr(Index) * 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 11 Then If GetPlayerLevel(Index) >= 300 Then If GetPlayerSprite(Index) = 374 Then Call SetPlayerSprite(Index, 377) Call SetPlayerstr(Index, GetPlayerstr(Index) * 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 12 Then If GetPlayerLevel(Index) >= 300 Then If GetPlayerSprite(Index) = 335 Then Call SetPlayerSprite(Index, 380) Call SetPlayerstr(Index, GetPlayerstr(Index) * 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 13 Then If GetPlayerLevel(Index) >= 300 Then If GetPlayerSprite(Index) = 337 Then Call SetPlayerSprite(Index, 339) Call SetPlayerstr(Index, GetPlayerstr(Index) * 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 14 Then If GetPlayerLevel(Index) >= 300 Then If GetPlayerSprite(Index) = 337 Then Call SetPlayerSprite(Index, 339) Call SetPlayerstr(Index, GetPlayerstr(Index) * 4) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 4) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If Else Exit Sub End If Call SavePlayer(Index) Exit Sub Case "tssj4" If GetPlayerClass(Index) = 1 Then If GetPlayerLevel(Index) >= 500 Then If GetPlayerSprite(Index) = 276 Then Call SetPlayerSprite(Index, 275) Call SetPlayerstr(Index, GetPlayerstr(Index) * 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 2 Then If GetPlayerLevel(Index) >= 500 Then If GetPlayerSprite(Index) = 326 Then Call SetPlayerSprite(Index, 330) Call SetPlayerstr(Index, GetPlayerstr(Index) * 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 3 Then If GetPlayerLevel(Index) >= 500 Then If GetPlayerSprite(Index) = 267 Then Call SetPlayerSprite(Index, 270) Call SetPlayerstr(Index, GetPlayerstr(Index) * 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 4 Then If GetPlayerLevel(Index) >= 500 Then If GetPlayerSprite(Index) = 285 Then Call SetPlayerSprite(Index, 336) Call SetPlayerstr(Index, GetPlayerstr(Index) * 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 5 Then If GetPlayerLevel(Index) >= 500 Then If GetPlayerSprite(Index) = 272 Then Call SetPlayerSprite(Index, 336) Call SetPlayerstr(Index, GetPlayerstr(Index) * 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 6 Then If GetPlayerLevel(Index) >= 500 Then If GetPlayerSprite(Index) = 369 Then Call SetPlayerSprite(Index, 373) Call SetPlayerstr(Index, GetPlayerstr(Index) * 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 7 Then If GetPlayerLevel(Index) >= 500 Then If GetPlayerSprite(Index) = 354 Then Call SetPlayerSprite(Index, 359) Call SetPlayerstr(Index, GetPlayerstr(Index) * 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 8 Then If GetPlayerLevel(Index) >= 500 Then If GetPlayerSprite(Index) = 348 Then Call SetPlayerSprite(Index, 352) Call SetPlayerstr(Index, GetPlayerstr(Index) * 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 9 Then If GetPlayerLevel(Index) >= 500 Then If GetPlayerSprite(Index) = 343 Then Call SetPlayerSprite(Index, 347) Call SetPlayerstr(Index, GetPlayerstr(Index) * 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 10 Then If GetPlayerLevel(Index) >= 500 Then If GetPlayerSprite(Index) = 363 Then Call SetPlayerSprite(Index, 366) Call SetPlayerstr(Index, GetPlayerstr(Index) * 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 11 Then If GetPlayerLevel(Index) >= 500 Then If GetPlayerSprite(Index) = 374 Then Call SetPlayerSprite(Index, 301) Call SetPlayerstr(Index, GetPlayerstr(Index) * 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 12 Then If GetPlayerLevel(Index) >= 500 Then If GetPlayerSprite(Index) = 335 Then Call SetPlayerSprite(Index, 381) Call SetPlayerstr(Index, GetPlayerstr(Index) * 6) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 6) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 13 Then If GetPlayerLevel(Index) >= 500 Then If GetPlayerSprite(Index) = 337 Then Call SetPlayerSprite(Index, 382) Call SetPlayerstr(Index, GetPlayerstr(Index) * 6) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 6) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 14 Then If GetPlayerLevel(Index) >= 500 Then If GetPlayerSprite(Index) = 337 Then Call SetPlayerSprite(Index, 382) Call SetPlayerstr(Index, GetPlayerstr(Index) * 6) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 6) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 0) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 0) Call SetPlayerMP(Index, GetPlayerMP(Index) - 0) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If Else Exit Sub End If Call SavePlayer(Index) Exit Sub

Se não der certo avise!

Créditos:
Lendário - Por Postar o Sistema
A mim - por aumentar as Classes!

Desculpem o Flood, é que não cabeu em 1 mensagem só! Toma

por Raiden Qua 15 Ago 2012, 15:33

lol, próxima vez manda link do tópico u.u, entendi sua intenção.

abraço!

por Ryo Qua 15 Ago 2012, 17:29

podem trancar ja consegui raiden +1 tu ia me ajuda garanto

por Raiden Qua 15 Ago 2012, 17:29

Tópico resolvido, trancado e movido ^_^'

por Conteúdo patrocinado

[PEDIDO]Trans Foto

[PEDIDO]Trans Foto

Re: [PEDIDO]Trans Foto

Re: [PEDIDO]Trans Foto

Re: [PEDIDO]Trans Foto

Re: [PEDIDO]Trans Foto

Re: [PEDIDO]Trans Foto

Re: [PEDIDO]Trans Foto

Re: [PEDIDO]Trans Foto

Re: [PEDIDO]Trans Foto

Re: [PEDIDO]Trans Foto

Re: [PEDIDO]Trans Foto

Re: [PEDIDO]Trans Foto