Fusão de pokemons Rpg

Event -ChatMessage

If $Message = "/MakeFusion" AND #RPG(#Source) = 1
/StopEvent
/Set $TempFA, $GetPlayerInfo(#Source, PSID) & "_Pokemon1"
If #GetTeamPoke(#Source, 1) = 79 AND #GetTeamPoke(#Source, 6) = 90
/Set $FPP, 080020
/Set $FP, "Slowbro"
:UpdateFusion
/SaveValue $GetPlayerInfo(#Source, PSID) & "_Pokemon1", $FPP & $Mid($TempFA, 22, 12) & $Str(#ID(#Source)) & "00050" & $Name(#Source)
/SaveValue $GetPlayerInfo(#Source, PSID) & "_Pokemon6", "01000000224209000000000000000000" & $Str(#ID(#Source)) & "00050" & $Name(#Source)
/SendPM #Source, $BotName & ": Parabéns!Agora você tem um " & $FP & " lvl20 com Move (ou Item) Bônus, não se esqueça que o pokemon 6 virou Caterpie lvl0."
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 52 AND #GetTeamPoke(#Source, 6) = 361
/Set $FPP, 21502000155178098062
/Set $FP, "Sneasel"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 140 AND #GetTeamPoke(#Source, 6) = 183
/Set $FPP, 222020
/Set $FP, "Corsola"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 16 AND #GetTeamPoke(#Source, 6) = 92
/Set $FPP, 164020
/Set $FP, "Noctowl"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 143 AND #GetTeamPoke(#Source, 6) = 111
/Set $FPP, 115020
/Set $FP, "Gligar"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 41 AND #GetTeamPoke(#Source, 6) = 50
/Set $FPP, 207020
/Set $FP, "Kangaskhan"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 11 AND #GetTeamPoke(#Source, 6) = 49
/Set $FPP, 269020
/Set $FP, "Dustox"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 241 AND #GetTeamPoke(#Source, 6) = 234
/Set $FPP, 128020
/Set $FP, "Tauros"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 304 AND #GetTeamPoke(#Source, 6) = 70
/Set $FPP, 303020
/Set $FP, "Mawile"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 8 AND #GetTeamPoke(#Source, 6) = 148
/Set $FPP, 131020
/Set $FP, "Lapras"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 16 AND #GetTeamPoke(#Source, 6) = 60
/Set $FPP, 279020
/Set $FP, "Pelipper"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 205 AND #GetTeamPoke(#Source, 6) = 22
/Set $FPP, 227020
/Set $FP, "Skarmory"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 23 AND #GetTeamPoke(#Source, 6) = 316
/Set $FPP, 336020
/Set $FP, "Seviper"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 56 AND #GetTeamPoke(#Source, 6) = 52
/Set $FPP, 335020
/Set $FP, "Zangoose"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 147 AND #GetTeamPoke(#Source, 6) = 116
/Set $FPP, 130020
/Set $FP, "Gyarados"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 334 AND #GetTeamPoke(#Source, 6) = 240
/Set $FPP, 006020
/Set $FP, "Charizard"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 213 AND #GetTeamPoke(#Source, 6) = 184
/Set $FPP, 009020
/Set $FP, "Blastoise"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 192 AND #GetTeamPoke(#Source, 6) = 185
/Set $FPP, 315020
/Set $FP, "Roselia"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 127 AND #GetTeamPoke(#Source, 6) = 236
/Set $FPP, 315020
/Set $FP, "Heracross"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 74 AND #GetTeamPoke(#Source, 6) = 345
/Set $FPP, 345020
/Set $FP, "Lileep"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 74 AND #GetTeamPoke(#Source, 6) = 64
/Set $FPP, 338020
/Set $FP, "Solrock"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 10 AND #GetTeamPoke(#Source, 6) = 166
/Set $FPP, 193020
/Set $FP, "Yanma"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 262 AND #GetTeamPoke(#Source, 6) = 37
/Set $FPP, 229020
/Set $FP, "Houndoom"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 17 AND #GetTeamPoke(#Source, 6) = 261
/Set $FPP, 198020
/Set $FP, "Murkrow"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 236 AND #GetTeamPoke(#Source, 6) = 97
/Set $FPP, 308020
/Set $FP, "Medicham"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 58 AND #GetTeamPoke(#Source, 6) = 136
/Set $FPP, 038020
/Set $FP, "Ninetales"
GoTo UpdateFusion
/Exit
EndIf
/SendPM #Source, $BotName & ": Desculpe, a fusão não pode ocorrer. Talvez devido a algum desses motivos:"
/SendPM #Source, "1º: Você não possui time RPG válido;"
/SendPM #Source, "2º: Você não possui os pokemons certos para a fusão ocorrer;"
/SendPM #Source, "3º: Os pokemon estão organizados de forma incorreta em seu time."
EndIf

If $Message = "/PFusoes"
/StopEvent
/SendPM #Source, $BotName & ": Os Comandos relacionados fusões de pokes são os seguintes:"
/SendPM #Source, "/MakeFusion: Faz a fusão;"
/SendPM #Source, "/TimeFP: Vê os pokemons resultantes de fusões;"
/SendPM #Source, $BotName & ": Para fazer a fusão você deve ter os pokemons de fusão em posição 1 e 6.O da posição 6 vira Caterpie lvl0;"
/SendPM #Source, $BotName & ": Você perde o 6º pokemon por deve ser como se fosse realmente uma fusão, 2 viram 1, não poderia deixar os 2 p/ o jogador;"
/SendPM #Source, $BotName & ": Lembre-se, não importa qual o lvl de seus pokemons, o da fusão virá sempre lvl20+golpe bônus."
EndIf

If $Message = "/GetMakerFP"
/StopEvent
/SendPM #Source, "Slowpoke+Shellder: Slowbro"
/SendPM #Source, "Meowth+Snorunt: Sneasel"
/SendPM #Source, "Kabuto+Marill: Corsola"
/SendPM #Source, "Pidgey+Gastly: Noctowl"
/SendPM #Source, "Zubat+Diglett: Gligar "
/SendPM #Source, "Snorlax+Rhyhorn: Kangaskhan"
/SendPM #Source, "Metapod+Venomoth: Dustox "
/SendPM #Source, "Miltank+Stantler: Tauros "
/SendPM #Source, "Aron+Weepinbell: Mawile "
/SendPM #Source, "Wartortle+Dragonair: Lapras"
/SendPM #Source, "Pidgey+Poliwag: Pelipper "
/SendPM #Source, "Forretress+Fearow: Skarmory "
/SendPM #Source, "Ekans+Gulpin: Seviper "
/SendPM #Source, "Mankey+Meowth: Zangoose "
/SendPM #Source, "Dratini+Horsea: Gyarados "
/SendPM #Source, "Altaria+Magby: Charizard "
/SendPM #Source, "Shuckle+Azumarril: Blastoise "
/SendPM #Source, "Sunflora+Sudowoodo: Roselia"
/SendPM #Source, "Pinsir+Tyrogue: Heracross "
/SendPM #Source, "Geodude+Gloom: Lileep "
/SendPM #Source, "Geodude+Kadabra: Solrock "
/SendPM #Source, "Geodude+Poliwag: Corsola "
/SendPM #Source, "Caterpie+Ledian: Yanma "
/SendPM #Source, "Mightyena+Vulpix: Houndoom "
/SendPM #Source, "Pidgeotto+Poochyena: Murkrow "
/SendPM #Source, "Tyrogue+Hypno: Medichan "
/SendPM #Source, "Growlithe+Flareon: Ninetales "
EndIf

If $Message = "/TimeFP"
/StopEvent
/SendPM #Source, "Lista1: Slowbro, Sneasel, Corsola, Noctowl, Gligar, Kangaskhan, Dustox, Tauros, Mawile, Lapras, Pelliper, Skarmory, Seviper, Zangoose;"
/SendPM #Source, "Lista2: Gyarados, Charizard, Blastoise, Roselia, Heracross (item), Lileep, Solrock, Corsola, Yanma, Houndoom, Murkrow, Medicham, Ninetales."
/SendPM #Source, $BotName & ": A vantagem de ter um pokemon de fusão em vez de pokemon evoluído, é que o de fusão vem com um golpe que não tem na dex normal, com excessão do Heracross;"
/SendPM #Source, "Nota: A combinação para ter os pokemons são confidenciais. Experimente combinar pokemons diferentes, troque posições, etc."
/SendPM #Source, "Nota2: Não adianta fusionar pokes de lvl alto, os pokemons de fusão sempre retornam ao lvl20 com os 3 golpes anteriores mais o bônus."
EndIf
Blissey + Clefable = Snorlax
Pincer+Tyrogue = Heracross
Starly + Buizel = Gible
Bibarel + Raichu = Pachirisu
Shellder + Geodude = Omanite
Chimecho + togekiss = froslass
Butterfree + Pidgey = Masquerain
Umbreon + typhlosion = houndoom
If #GetTeamPoke(#Source, 1) = 242 AND #GetTeamPoke(#Source, 6) = 36
/Set $FPP, 143020
/Set $FP, "Snorlax"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 127 AND #GetTeamPoke(#Source, 6) = 236
/Set $FPP, 143020
/Set $FP, "Heracross"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 396 AND #GetTeamPoke(#Source, 6) = 418
/Set $FPP, 443020
/Set $FP, "Gible"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 400 AND #GetTeamPoke(#Source, 6) = 26
/Set $FPP, 143020
/Set $FP, "Pachirisu"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 242 AND #GetTeamPoke(#Source, 6) = 36
/Set $FPP, 143020
/Set $FP, "Omanite"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 242 AND #GetTeamPoke(#Source, 6) = 36
/Set $FPP, 143020
/Set $FP, "Froslass"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 242 AND #GetTeamPoke(#Source, 6) = 36
/Set $FPP, 143020
/Set $FP, "Masquerain"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 242 AND #GetTeamPoke(#Source, 6) = 36
/Set $FPP, 143020
/Set $FP, "Houndoom"
GoTo UpdateFusion
/Exit
EndIfBlissey + Clefable = Snorlax
Pincer+Tyrogue = Heracross
Starly + Buizel = Gible
Bibarel + Raichu = Pachirisu
Shellder + Geodude = Omanite
Chimecho + togekiss = froslass
Butterfree + Pidgey = Masquerain
Umbreon + typhlosion = houndoom
If #GetTeamPoke(#Source, 1) = 242 AND #GetTeamPoke(#Source, 6) = 36
/Set $FPP, 143020
/Set $FP, "Snorlax"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 127 AND #GetTeamPoke(#Source, 6) = 236
/Set $FPP, 143020
/Set $FP, "Heracross"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 396 AND #GetTeamPoke(#Source, 6) = 418
/Set $FPP, 443020
/Set $FP, "Gible"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 400 AND #GetTeamPoke(#Source, 6) = 26
/Set $FPP, 143020
/Set $FP, "Pachirisu"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 242 AND #GetTeamPoke(#Source, 6) = 36
/Set $FPP, 143020
/Set $FP, "Omanite"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 242 AND #GetTeamPoke(#Source, 6) = 36
/Set $FPP, 143020
/Set $FP, "Froslass"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 242 AND #GetTeamPoke(#Source, 6) = 36
/Set $FPP, 143020
/Set $FP, "Masquerain"
GoTo UpdateFusion
/Exit
EndIf
If #GetTeamPoke(#Source, 1) = 242 AND #GetTeamPoke(#Source, 6) = 36
/Set $FPP, 143020
/Set $FP, "Houndoom"
GoTo UpdateFusion
/Exit
EndIf