Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' Animação do ataque dependendo do tipo pokémon
- Select Case theVan
- Case TiposPokemon.Grass: Call SendDataToMap(GetPlayerMap(Index), "spellanim" & SEP_CHAR & 29 & SEP_CHAR & Spell(29).SpellAnim & SEP_CHAR & Spell(1).SpellTime & SEP_CHAR & Spell(1).SpellDone & SEP_CHAR & Index & SEP_CHAR & Player(Index).TargetType & SEP_CHAR & Player(Index).Target & SEP_CHAR & Player(Index).CastedSpell & END_CHAR)
- Case TiposPokemon.Fire: Call SendDataToMap(GetPlayerMap(Index), "spellanim" & SEP_CHAR & 6 & SEP_CHAR & Spell(6).SpellAnim & SEP_CHAR & Spell(1).SpellTime & SEP_CHAR & Spell(1).SpellDone & SEP_CHAR & Index & SEP_CHAR & Player(Index).TargetType & SEP_CHAR & Player(Index).Target & SEP_CHAR & Player(Index).CastedSpell & END_CHAR)
- Case TiposPokemon.Water: Call SendDataToMap(GetPlayerMap(Index), "spellanim" & SEP_CHAR & 28 & SEP_CHAR & Spell(28).SpellAnim & SEP_CHAR & Spell(1).SpellTime & SEP_CHAR & Spell(1).SpellDone & SEP_CHAR & Index & SEP_CHAR & Player(Index).TargetType & SEP_CHAR & Player(Index).Target & SEP_CHAR & Player(Index).CastedSpell & END_CHAR)
- Case TiposPokemon.Bug: Call SendDataToMap(GetPlayerMap(Index), "spellanim" & SEP_CHAR & 20 & SEP_CHAR & Spell(20).SpellAnim & SEP_CHAR & Spell(1).SpellTime & SEP_CHAR & Spell(1).SpellDone & SEP_CHAR & Index & SEP_CHAR & Player(Index).TargetType & SEP_CHAR & Player(Index).Target & SEP_CHAR & Player(Index).CastedSpell & END_CHAR)
- Case TiposPokemon.Normal: Call SendDataToMap(GetPlayerMap(Index), "spellanim" & SEP_CHAR & 26 & SEP_CHAR & Spell(26).SpellAnim & SEP_CHAR & Spell(1).SpellTime & SEP_CHAR & Spell(1).SpellDone & SEP_CHAR & Index & SEP_CHAR & Player(Index).TargetType & SEP_CHAR & Player(Index).Target & SEP_CHAR & Player(Index).CastedSpell & END_CHAR)
- Case TiposPokemon.Poison: Call SendDataToMap(GetPlayerMap(Index), "spellanim" & SEP_CHAR & 2 & SEP_CHAR & Spell(2).SpellAnim & SEP_CHAR & Spell(1).SpellTime & SEP_CHAR & Spell(1).SpellDone & SEP_CHAR & Index & SEP_CHAR & Player(Index).TargetType & SEP_CHAR & Player(Index).Target & SEP_CHAR & Player(Index).CastedSpell & END_CHAR)
- Case TiposPokemon.Electric: Call SendDataToMap(GetPlayerMap(Index), "spellanim" & SEP_CHAR & 9 & SEP_CHAR & Spell(9).SpellAnim & SEP_CHAR & Spell(1).SpellTime & SEP_CHAR & Spell(1).SpellDone & SEP_CHAR & Index & SEP_CHAR & Player(Index).TargetType & SEP_CHAR & Player(Index).Target & SEP_CHAR & Player(Index).CastedSpell & END_CHAR)
- Case TiposPokemon.Ground: Call SendDataToMap(GetPlayerMap(Index), "spellanim" & SEP_CHAR & 3 & SEP_CHAR & Spell(3).SpellAnim & SEP_CHAR & Spell(1).SpellTime & SEP_CHAR & Spell(1).SpellDone & SEP_CHAR & Index & SEP_CHAR & Player(Index).TargetType & SEP_CHAR & Player(Index).Target & SEP_CHAR & Player(Index).CastedSpell & END_CHAR)
- Case TiposPokemon.Fighting: Call SendDataToMap(GetPlayerMap(Index), "spellanim" & SEP_CHAR & 60 & SEP_CHAR & Spell(60).SpellAnim & SEP_CHAR & Spell(1).SpellTime & SEP_CHAR & Spell(1).SpellDone & SEP_CHAR & Index & SEP_CHAR & Player(Index).TargetType & SEP_CHAR & Player(Index).Target & SEP_CHAR & Player(Index).CastedSpell & END_CHAR)
- Case TiposPokemon.Psychic: Call SendDataToMap(GetPlayerMap(Index), "spellanim" & SEP_CHAR & 18 & SEP_CHAR & Spell(18).SpellAnim & SEP_CHAR & Spell(1).SpellTime & SEP_CHAR & Spell(1).SpellDone & SEP_CHAR & Index & SEP_CHAR & Player(Index).TargetType & SEP_CHAR & Player(Index).Target & SEP_CHAR & Player(Index).CastedSpell & SEP_CHAR & END_CHAR)
- Case TiposPokemon.Rock: Call SendDataToMap(GetPlayerMap(Index), "spellanim" & SEP_CHAR & 47 & SEP_CHAR & Spell(47).SpellAnim & SEP_CHAR & Spell(1).SpellTime & SEP_CHAR & Spell(1).SpellDone & SEP_CHAR & Index & SEP_CHAR & Player(Index).TargetType & SEP_CHAR & Player(Index).Target & SEP_CHAR & Player(Index).CastedSpell & SEP_CHAR & END_CHAR)
- Case TiposPokemon.Flying: Call SendDataToMap(GetPlayerMap(Index), "spellanim" & SEP_CHAR & 12 & SEP_CHAR & Spell(12).SpellAnim & SEP_CHAR & Spell(1).SpellTime & SEP_CHAR & Spell(1).SpellDone & SEP_CHAR & Index & SEP_CHAR & Player(Index).TargetType & SEP_CHAR & Player(Index).Target & SEP_CHAR & Player(Index).CastedSpell & SEP_CHAR & END_CHAR)
- Case TiposPokemon.Ghost: Call SendDataToMap(GetPlayerMap(Index), "spellanim" & SEP_CHAR & 21 & SEP_CHAR & Spell(21).SpellAnim & SEP_CHAR & Spell(1).SpellTime & SEP_CHAR & Spell(1).SpellDone & SEP_CHAR & Index & SEP_CHAR & Player(Index).TargetType & SEP_CHAR & Player(Index).Target & SEP_CHAR & Player(Index).CastedSpell & SEP_CHAR & END_CHAR)
- Case TiposPokemon.Ice: Call SendDataToMap(GetPlayerMap(Index), "spellanim" & SEP_CHAR & 49 & SEP_CHAR & Spell(49).SpellAnim & SEP_CHAR & Spell(1).SpellTime & SEP_CHAR & Spell(1).SpellDone & SEP_CHAR & Index & SEP_CHAR & Player(Index).TargetType & SEP_CHAR & Player(Index).Target & SEP_CHAR & Player(Index).CastedSpell & SEP_CHAR & END_CHAR)
- Case TiposPokemon.Dragon: Call SendDataToMap(GetPlayerMap(Index), "spellanim" & SEP_CHAR & 67 & SEP_CHAR & Spell(67).SpellAnim & SEP_CHAR & Spell(1).SpellTime & SEP_CHAR & Spell(1).SpellDone & SEP_CHAR & Index & SEP_CHAR & Player(Index).TargetType & SEP_CHAR & Player(Index).Target & SEP_CHAR & Player(Index).CastedSpell & SEP_CHAR & END_CHAR)
- Case TiposPokemon.Steel: Call SendDataToMap(GetPlayerMap(Index), "spellanim" & SEP_CHAR & 59 & SEP_CHAR & Spell(59).SpellAnim & SEP_CHAR & Spell(1).SpellTime & SEP_CHAR & Spell(1).SpellDone & SEP_CHAR & Index & SEP_CHAR & Player(Index).TargetType & SEP_CHAR & Player(Index).Target & SEP_CHAR & Player(Index).CastedSpell & SEP_CHAR & END_CHAR)
- Case TiposPokemon.Dark: Call SendDataToMap(GetPlayerMap(Index), "spellanim" & SEP_CHAR & 22 & SEP_CHAR & Spell(22).SpellAnim & SEP_CHAR & Spell(1).SpellTime & SEP_CHAR & Spell(1).SpellDone & SEP_CHAR & Index & SEP_CHAR & Player(Index).TargetType & SEP_CHAR & Player(Index).Target & SEP_CHAR & Player(Index).CastedSpell & SEP_CHAR & END_CHAR)
- Case TiposPokemon.Fairy: Call SendDataToMap(GetPlayerMap(Index), "spellanim" & SEP_CHAR & 48 & SEP_CHAR & Spell(48).SpellAnim & SEP_CHAR & Spell(1).SpellTime & SEP_CHAR & Spell(1).SpellDone & SEP_CHAR & Index & SEP_CHAR & Player(Index).TargetType & SEP_CHAR & Player(Index).Target & SEP_CHAR & Player(Index).CastedSpell & SEP_CHAR & END_CHAR)
- End Select
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement