queria saber c faz a trasf pro foto com mais classes e assim...

por halls Ter 26 Out 2010, 16:04

Case "tnormal"
If GetPlayerClass(Index) = 2 Then
If GetPlayerSprite(Index) = 1 Then
Exit Sub
ElseIf GetPlayerSprite(Index) = 10 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) - 100)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) - 50)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 25)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 25)
ElseIf GetPlayerSprite(Index) = 20 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) - 200)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) - 100)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 50)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 50)
ElseIf GetPlayerSprite(Index) = 30 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) - 300)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) - 200)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 100)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 100)
ElseIf GetPlayerSprite(Index) = 40 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) - 400)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) - 30)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 200)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 200)
End If
Call SetPlayerSprite(Index, 1)
Call PlayerMsg(Index, "Você voltou ao normal!", BrightBlue)
Call BattleMsg(Index, "Normal!", Yellow, 0)
Call SendPlayerData(Index)
ElseIf GetPlayerClass(Index) = 1 Then
If GetPlayerSprite(Index) = 11 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) - 100)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) - 50)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 25)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 25)
ElseIf GetPlayerSprite(Index) = 21 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) - 200)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) - 100)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 50)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 50)
ElseIf GetPlayerSprite(Index) = 31 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) - 400)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) - 300)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 200)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 200)
End If
Call SetPlayerSprite(Index, 0)
Call PlayerMsg(Index, "Você voltou ao normal!", BrightBlue)
Call BattleMsg(Index, "Normal!", Yellow, 0)
Call SendPlayerData(Index)
Else
If GetPlayerClass(Index) = 3 Then
If GetPlayerSprite(Index) = 421 Then
Exit Sub
ElseIf GetPlayerSprite(Index) = 10 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) - 100)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) - 50)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 25)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 25)
ElseIf GetPlayerSprite(Index) = 20 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) - 200)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) - 100)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 50)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 50)
ElseIf GetPlayerSprite(Index) = 30 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) - 300)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) - 200)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 100)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 100)
ElseIf GetPlayerSprite(Index) = 40 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) - 400)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) - 30)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 200)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 200)
End If
Call SetPlayerSprite(Index, 421)
Call PlayerMsg(Index, "Você voltou ao normal!", BrightBlue)
Call BattleMsg(Index, "Normal!", Yellow, 0)
Call SendPlayerData(Index)
ElseIf GetPlayerClass(Index) = 4 Then
If GetPlayerSprite(Index) = 33 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) - 100)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) - 50)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 25)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 25)
ElseIf GetPlayerSprite(Index) = 21 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) - 200)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) - 100)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 50)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 50)
ElseIf GetPlayerSprite(Index) = 31 Then
Call SetPlayerstr(Index, GetPlayerstr(Index) - 400)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) - 300)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) - 200)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) - 200)
End If
Call SetPlayerSprite(Index, 33)
Call PlayerMsg(Index, "Você voltou ao normal!", BrightBlue)
Call BattleMsg(Index, "Normal!", Yellow, 0)
Call SendPlayerData(Index)
Else 'Aqui é a classe 5, que no caso do tuto, não tem transformação
Exit Sub
End If

Call SavePlayer(Index)
Exit Sub

Case "tssj"
If GetPlayerClass(Index) = 1 Then
If GetPlayerLevel(Index) >= 50 Then
If GetPlayerSprite(Index) = 0 Then
Call SetPlayerSprite(Index, 13)
Call SetPlayerstr(Index, GetPlayerstr(Index) + 100)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 50)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 25)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 25)
Call SetPlayerMP(Index, GetPlayerMP(Index) - 25)
Call PlayerMsg(Index, "Você se transformou!", BrightBlue)
Call BattleMsg(Index, "Super Saiyajin!", Yellow, 0)
Call SendPlayerData(Index)
End If
Else
Call PlayerMsg(Index, "Você não level para se transformar!", BrightBlue)
End If
ElseIf GetPlayerClass(Index) = 2 Then
If GetPlayerLevel(Index) >= 50 Then
If GetPlayerSprite(Index) = 1 Then
Call SetPlayerSprite(Index, 35)
Call SetPlayerstr(Index, GetPlayerstr(Index) + 100)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 50)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 25)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 25)
Call SetPlayerMP(Index, GetPlayerMP(Index) - 25)
Call PlayerMsg(Index, "Você se transformou!", BrightBlue)
Call BattleMsg(Index, "Super Saiyajin!", Yellow, 0)
Call SendPlayerData(Index)
Else
Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue)
End If
End If
Else
Case "tssj"
If GetPlayerClass(Index) = 3 Then
If GetPlayerLevel(Index) >= 50 Then
If GetPlayerSprite(Index) = 421 Then
Call SetPlayerSprite(Index, 422)
Call SetPlayerstr(Index, GetPlayerstr(Index) + 100)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 50)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 25)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 25)
Call SetPlayerMP(Index, GetPlayerMP(Index) - 25)
Call PlayerMsg(Index, "Você se transformou!", BrightBlue)
Call BattleMsg(Index, "Super Saiyajin!", Yellow, 0)
Call SendPlayerData(Index)
End If
Else
Call PlayerMsg(Index, "Você não level para se transformar!", BrightBlue)
End If
ElseIf GetPlayerClass(Index) = 4 Then
If GetPlayerLevel(Index) >= 50 Then
If GetPlayerSprite(Index) = 33 Then
Call SetPlayerSprite(Index, 105)
Call SetPlayerstr(Index, GetPlayerstr(Index) + 100)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 50)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 25)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 25)
Call SetPlayerMP(Index, GetPlayerMP(Index) - 25)
Call PlayerMsg(Index, "Você se transformou!", BrightBlue)
Call BattleMsg(Index, "Super Saiyajin!", Yellow, 0)
Call SendPlayerData(Index)
Else
Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue)
End If
End If
Else 'Aqui é a classe 5, que no caso do tuto, não tem transformação
Exit Sub
End If

Call SavePlayer(Index)
Exit Sub

Case "tssj2"
If GetPlayerClass(Index) = 1 Then
If GetPlayerLevel(Index) >= 250 Then
If GetPlayerSprite(Index) = 0 Then
Call SetPlayerSprite(Index, 21)
Call SetPlayerstr(Index, GetPlayerstr(Index) + 200)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 100)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 50)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 50)
Call SetPlayerMP(Index, GetPlayerMP(Index) - 50)
Call PlayerMsg(Index, "Você se transformou!", BrightBlue)
Call BattleMsg(Index, "Super Saiyajin 2!", Yellow, 0)
Call SendPlayerData(Index)
End If
Else
Call PlayerMsg(Index, "Você não level para se transformar!", BrightBlue)
End If
ElseIf GetPlayerClass(Index) = 2 Then
If GetPlayerLevel(Index) >= 250 Then
If GetPlayerSprite(Index) = 1 Then
Call SetPlayerSprite(Index, 36)
Call SetPlayerstr(Index, GetPlayerstr(Index) + 200)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 100)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 105)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 105)
Call SetPlayerMP(Index, GetPlayerMP(Index) - 105)
Call PlayerMsg(Index, "Você se transformou!", BrightBlue)
Call BattleMsg(Index, "Super Saiyajin 2!", Yellow, 0)
Call SendPlayerData(Index)
Else
Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue)
End If
End If
Else
Case "tssj2"
If GetPlayerClass(Index) = 3 Then
If GetPlayerLevel(Index) >= 250 Then
If GetPlayerSprite(Index) = 421 Then
Call SetPlayerSprite(Index, 424)
Call SetPlayerstr(Index, GetPlayerstr(Index) + 200)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 100)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 50)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 50)
Call SetPlayerMP(Index, GetPlayerMP(Index) - 50)
Call PlayerMsg(Index, "Você se transformou!", BrightBlue)
Call BattleMsg(Index, "Super Saiyajin 2!", Yellow, 0)
Call SendPlayerData(Index)
End If
Else
Call PlayerMsg(Index, "Você não level para se transformar!", BrightBlue)
End If
ElseIf GetPlayerClass(Index) = 4 Then
If GetPlayerLevel(Index) >= 250 Then
If GetPlayerSprite(Index) = 33 Then
Call SetPlayerSprite(Index, 106)
Call SetPlayerstr(Index, GetPlayerstr(Index) + 200)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 100)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 105)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 105)
Call SetPlayerMP(Index, GetPlayerMP(Index) - 105)
Call PlayerMsg(Index, "Você se transformou!", BrightBlue)
Call BattleMsg(Index, "Super Saiyajin 2!", Yellow, 0)
Call SendPlayerData(Index)
Else
Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue)
End If
End If
Else 'Aqui é a classe 5, que no caso do tuto, não tem transformação
Exit Sub
End If

Call SavePlayer(Index)
Exit Sub

Case "tssj3"
If GetPlayerClass(Index) = 1 Then
If GetPlayerLevel(Index) >= 500 Then
If GetPlayerSprite(Index) = 0 Then
Call SetPlayerSprite(Index, 172)
Call SetPlayerstr(Index, GetPlayerstr(Index) + 200)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 100)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 50)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 50)
Call SetPlayerMP(Index, GetPlayerMP(Index) - 50)
Call PlayerMsg(Index, "Você se transformou!", BrightBlue)
Call BattleMsg(Index, "Super Saiyajin 2!", Yellow, 0)
Call SendPlayerData(Index)
End If
Else
Call PlayerMsg(Index, "Você não level para se transformar!", BrightBlue)
End If
ElseIf GetPlayerClass(Index) = 2 Then
If GetPlayerLevel(Index) >= 100 Then
If GetPlayerSprite(Index) = 1 Then
Call SetPlayerSprite(Index, 161)
Call SetPlayerstr(Index, GetPlayerstr(Index) + 200)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 100)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 105)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 105)
Call SetPlayerMP(Index, GetPlayerMP(Index) - 105)
Call PlayerMsg(Index, "Você se transformou!", BrightBlue)
Call BattleMsg(Index, "Super Saiyajin 2!", Yellow, 0)
Call SendPlayerData(Index)
Else
Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue)
End If
End If
Else
Case "tssj3"
If GetPlayerClass(Index) = 3 Then
If GetPlayerLevel(Index) >= 500 Then
If GetPlayerSprite(Index) = 421 Then
Call SetPlayerSprite(Index, 137)
Call SetPlayerstr(Index, GetPlayerstr(Index) + 200)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 100)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 50)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 50)
Call SetPlayerMP(Index, GetPlayerMP(Index) - 50)
Call PlayerMsg(Index, "Você se transformou!", BrightBlue)
Call BattleMsg(Index, "Super Saiyajin 2!", Yellow, 0)
Call SendPlayerData(Index)
End If
Else
Call PlayerMsg(Index, "Você não level para se transformar!", BrightBlue)
End If
ElseIf GetPlayerClass(Index) = 4 Then
If GetPlayerLevel(Index) >= 500 Then
If GetPlayerSprite(Index) = 33 Then
Call SetPlayerSprite(Index, 329)
Call SetPlayerstr(Index, GetPlayerstr(Index) + 200)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 100)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 105)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 105)
Call SetPlayerMP(Index, GetPlayerMP(Index) - 105)
Call PlayerMsg(Index, "Você se transformou!", BrightBlue)
Call BattleMsg(Index, "Super Saiyajin 3!", Yellow, 0)
Call SendPlayerData(Index)
Else
Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue)
End If
End If
Else 'Aqui é a classe 5, que no caso do tuto, não tem transformação
Exit Sub
End If

Call SavePlayer(Index)
Exit Sub

Case "tssj4"
If GetPlayerClass(Index) = 1 Then
If GetPlayerLevel(Index) >= 750 Then
If GetPlayerSprite(Index) = 0 Then
Call SetPlayerSprite(Index, 265)
Call SetPlayerstr(Index, GetPlayerstr(Index) + 400)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 300)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 200)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 200)
Call SetPlayerMP(Index, GetPlayerMP(Index) - 200)
Call PlayerMsg(Index, "Você se transformou!", BrightBlue)
Call BattleMsg(Index, "Super Saiyajin 4!", Yellow, 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) >= 750 Then
If GetPlayerSprite(Index) = 1 Then
Call SetPlayerSprite(Index, 160)
Call SetPlayerstr(Index, GetPlayerstr(Index) + 400)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 300)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 200)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 200)
Call SetPlayerMP(Index, GetPlayerMP(Index) - 200)
Call PlayerMsg(Index, "Você se transformou!", BrightBlue)
Call BattleMsg(Index, "Super Saiyajin 4!", Yellow, 0)
Call SendPlayerData(Index)
Else
Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue)
End If
End If
Else
Case "tssj4"
If GetPlayerClass(Index) = 3 Then
If GetPlayerLevel(Index) >= 750 Then
If GetPlayerSprite(Index) = 421 Then
Call SetPlayerSprite(Index, 263)
Call SetPlayerstr(Index, GetPlayerstr(Index) + 400)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 300)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 200)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 200)
Call SetPlayerMP(Index, GetPlayerMP(Index) - 200)
Call PlayerMsg(Index, "Você se transformou!", BrightBlue)
Call BattleMsg(Index, "Super Saiyajin 4!", Yellow, 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) >= 750 Then
If GetPlayerSprite(Index) = 33 Then
Call SetPlayerSprite(Index, 330)
Call SetPlayerstr(Index, GetPlayerstr(Index) + 400)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 300)
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 200)
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 200)
Call SetPlayerMP(Index, GetPlayerMP(Index) - 200)
Call PlayerMsg(Index, "Você se transformou!", BrightBlue)
Call BattleMsg(Index, "Super Saiyajin 4!", Yellow, 0)
Call SendPlayerData(Index)
Else
Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue)
End If
End If
Else 'Aqui é a classe 5, que no caso do tuto, não tem transformação
Exit Sub
End If

Call SavePlayer(Index)
Exit Sub