Bug na spell?

por xurana321 Seg 01 Nov 2010, 13:42

Ola to com um bug aq na spell, quando eu seleciono o npc ou monstro ou p layer pra usa spell nao da pra solta se fica apertando insert mas a skill nao sai, mas quando poim em area effect sai skill normal. pq sera que nao ta dando pra solta no oponente quando clica nele?

por Raicon Seg 01 Nov 2010, 14:12

é um erro que ocorre comigo tambem, o unico geito é ir fazendo magia de área né.. ninguem sabe resolve isso, é muito complicado

por {Cake}Vitin Seg 01 Nov 2010, 14:46

Ja memorizou a skill?Se nao clique duas vezes no nome da skill ate falar algo sobre memorização do chat.

por Raicon Seg 01 Nov 2010, 16:22

RESOLVIDO,
Procure no projeto do servidor 'CastSpell'
REMOVE TUDO DESSA PARTE
E COLA ISSO

Código:: Sub CastSpell(ByVal Index As Long, ByVal SpellSlot As Long) Dim SpellNum As Long, I As Long, n As Long, Damage As Long Dim Casted As Boolean Casted = False ' Prevent player from using spells if they have been script locked If Player(Index).LockedSpells = True Then Exit Sub End If ' Prevent subscript out of range If SpellSlot <= 0 Or SpellSlot > MAX_PLAYER_SPELLS Then Exit Sub End If SpellNum = GetPlayerSpell(Index, SpellSlot) ' Make sure player has the spell If Not HasSpell(Index, SpellNum) Then Call BattleMsg(Index, "You do not have this spell!", BRIGHTRED, 0) Exit Sub End If I = GetSpellReqLevel(SpellNum) ' Check if they have enough MP If GetPlayerMP(Index) < Spell(SpellNum).MPCost Then Call BattleMsg(Index, "Not enough mana!", BRIGHTRED, 0) Exit Sub End If ' Make sure they are the right level If I > GetPlayerLevel(Index) Then Call BattleMsg(Index, "You need to be " & I & "to cast this spell.", BRIGHTRED, 0) Exit Sub End If ' Check if timer is ok If GetTickCount < Player(Index).AttackTimer + 1000 Then Exit Sub End If ' Check if the spell is scripted and do that instead of a stat modification If Spell(SpellNum).Type = SPELL_TYPE_SCRIPTED Then MyScript.ExecuteStatement "Scripts\Main.ess", "ScriptedSpell " & Index & "," & Spell(SpellNum).Data1 Exit Sub End If ' End If Dim X As Long, Y As Long If Spell(SpellNum).AE = 1 Then For Y = GetPlayerY(Index) - Spell(SpellNum).Range To GetPlayerY(Index) + Spell(SpellNum).Range For X = GetPlayerX(Index) - Spell(SpellNum).Range To GetPlayerX(Index) + Spell(SpellNum).Range n = -1 For I = 1 To MAX_PLAYERS If IsPlaying(I) = True Then If GetPlayerMap(Index) = GetPlayerMap(I) Then If GetPlayerX(I) = X And GetPlayerY(I) = Y Then If I = Index Then If Spell(SpellNum).Type = SPELL_TYPE_ADDHP Or Spell(SpellNum).Type = SPELL_TYPE_ADDMP Or Spell(SpellNum).Type = SPELL_TYPE_ADDSP Then Player(Index).Target = I Player(Index).TargetType = TARGET_TYPE_PLAYER n = Player(Index).Target End If Else Player(Index).Target = I Player(Index).TargetType = TARGET_TYPE_PLAYER n = Player(Index).Target End If End If End If End If Next I For I = 1 To MAX_MAP_NPCS If MapNPC(GetPlayerMap(Index), I).num > 0 Then If NPC(MapNPC(GetPlayerMap(Index), I).num).Behavior <> NPC_BEHAVIOR_FRIENDLY And NPC(MapNPC(GetPlayerMap(Index), I).num).Behavior <> NPC_BEHAVIOR_SHOPKEEPER Then If MapNPC(GetPlayerMap(Index), I).X = X And MapNPC(GetPlayerMap(Index), I).Y = Y Then Player(Index).Target = I Player(Index).TargetType = TARGET_TYPE_NPC n = Player(Index).Target End If End If End If Next I Casted = False If n > 0 Then If Player(Index).TargetType = TARGET_TYPE_PLAYER Then If IsPlaying(n) Then If n = Index Then Select Case Spell(SpellNum).Type Case SPELL_TYPE_ADDHP ' Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " casts " & Trim$(Spell(SpellNum).Name) & " on " & GetPlayerName(n) & ".", BrightBlue) Call SetPlayerHP(n, GetPlayerHP(n) + Spell(SpellNum).Data1) Call SendHP(n) Case SPELL_TYPE_ADDMP ' Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " casts " & Trim$(Spell(SpellNum).Name) & " on " & GetPlayerName(n) & ".", BrightBlue) Call SetPlayerMP(n, GetPlayerMP(n) + Spell(SpellNum).Data1) Call SendMP(n) Case SPELL_TYPE_ADDSP ' Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " casts " & Trim$(Spell(SpellNum).Name) & " on " & GetPlayerName(n) & ".", BrightBlue) Call SetPlayerSP(n, GetPlayerSP(n) + Spell(SpellNum).Data1) Call SendSP(n) End Select Casted = True Else Call PlayerMsg(Index, "Cannot cast spell!", BRIGHTRED) End If If n <> Index Then Player(Index).TargetType = TARGET_TYPE_PLAYER If GetPlayerHP(n) > 0 And GetPlayerMap(Index) = GetPlayerMap(n) Then ' Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " casts " & Trim$(Spell(SpellNum).Name) & " on " & GetPlayerName(n) & ".", BrightBlue) Select Case Spell(SpellNum).Type Case SPELL_TYPE_SUBHP Damage = (Int(GetPlayerMAGI(Index) / 4) + Spell(SpellNum).Data1) - GetPlayerProtection(n) If Damage > 0 Then Call AttackPlayer(Index, n, Damage) Else Call BattleMsg(Index, "The spell was to weak to hurt " & GetPlayerName(n) & "!", BRIGHTRED, 0) End If Case SPELL_TYPE_SUBMP Call SetPlayerMP(n, GetPlayerMP(n) - Spell(SpellNum).Data1) Call SendMP(n) Case SPELL_TYPE_SUBSP Call SetPlayerSP(n, GetPlayerSP(n) - Spell(SpellNum).Data1) Call SendSP(n) End Select Casted = True If GetPlayerMap(Index) = GetPlayerMap(n) And Spell(SpellNum).Type >= SPELL_TYPE_ADDHP And Spell(SpellNum).Type <= SPELL_TYPE_ADDSP Then Select Case Spell(SpellNum).Type Case SPELL_TYPE_ADDHP ' Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " casts " & Trim$(Spell(SpellNum).Name) & " on " & GetPlayerName(n) & ".", BrightBlue) Call SetPlayerHP(n, GetPlayerHP(n) + Spell(SpellNum).Data1) Call SendHP(n) Case SPELL_TYPE_ADDMP ' Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " casts " & Trim$(Spell(SpellNum).Name) & " on " & GetPlayerName(n) & ".", BrightBlue) Call SetPlayerMP(n, GetPlayerMP(n) + Spell(SpellNum).Data1) Call SendMP(n) Case SPELL_TYPE_ADDSP ' Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " casts " & Trim$(Spell(SpellNum).Name) & " on " & GetPlayerName(n) & ".", BrightBlue) Call SetPlayerSP(n, GetPlayerSP(n) + Spell(SpellNum).Data1) Call SendSP(n) End Select Casted = True Else Call PlayerMsg(Index, "Cannot cast spell!", BRIGHTRED) End If End If Else Player(Index).TargetType = TARGET_TYPE_PLAYER If n = Index Then Select Case Spell(SpellNum).Type Case SPELL_TYPE_ADDHP ' Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " casts " & Trim$(Spell(SpellNum).Name) & " on " & GetPlayerName(n) & ".", BrightBlue) Call SetPlayerHP(n, GetPlayerHP(n) + Spell(SpellNum).Data1) Call SendHP(n) Case SPELL_TYPE_ADDMP ' Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " casts " & Trim$(Spell(SpellNum).Name) & " on " & GetPlayerName(n) & ".", BrightBlue) Call SetPlayerMP(n, GetPlayerMP(n) + Spell(SpellNum).Data1) Call SendMP(n) Case SPELL_TYPE_ADDSP ' Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " casts " & Trim$(Spell(SpellNum).Name) & " on " & GetPlayerName(n) & ".", BrightBlue) Call SetPlayerSP(n, GetPlayerSP(n) + Spell(SpellNum).Data1) Call SendSP(n) End Select Casted = True Else Call PlayerMsg(Index, "Cannot cast spell!", BRIGHTRED) End If If GetPlayerHP(n) > 0 And GetPlayerMap(Index) = GetPlayerMap(n) Then Else If GetPlayerMap(Index) = GetPlayerMap(n) And Spell(SpellNum).Type >= SPELL_TYPE_ADDHP And Spell(SpellNum).Type <= SPELL_TYPE_ADDSP Then Select Case Spell(SpellNum).Type Case SPELL_TYPE_ADDHP ' Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " casts " & Trim$(Spell(SpellNum).Name) & " on " & GetPlayerName(n) & ".", BrightBlue) Call SetPlayerHP(n, GetPlayerHP(n) + Spell(SpellNum).Data1) Call SendHP(n) Case SPELL_TYPE_ADDMP ' Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " casts " & Trim$(Spell(SpellNum).Name) & " on " & GetPlayerName(n) & ".", BrightBlue) Call SetPlayerMP(n, GetPlayerMP(n) + Spell(SpellNum).Data1) Call SendMP(n) Case SPELL_TYPE_ADDSP ' Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " casts " & Trim$(Spell(SpellNum).Name) & " on " & GetPlayerName(n) & ".", BrightBlue) Call SetPlayerSP(n, GetPlayerSP(n) + Spell(SpellNum).Data1) Call SendSP(n) End Select Casted = True Else Call BattleMsg(Index, "Could not cast spell!", BRIGHTRED, 0) End If End If End If Else Call BattleMsg(Index, "Could not cast spell!", BRIGHTRED, 0) End If Else Player(Index).TargetType = TARGET_TYPE_NPC If NPC(MapNPC(GetPlayerMap(Index), n).num).Behavior <> NPC_BEHAVIOR_FRIENDLY And NPC(MapNPC(GetPlayerMap(Index), n).num).Behavior <> NPC_BEHAVIOR_SHOPKEEPER Then If Spell(SpellNum).Type >= SPELL_TYPE_SUBHP And Spell(SpellNum).Type <= SPELL_TYPE_SUBSP Then ' Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " casts " & Trim$(Spell(SpellNum).Name) & " on a " & Trim$(Npc(MapNpc(GetPlayerMap(index), n).num).Name) & ".", BrightBlue) Select Case Spell(SpellNum).Type Case SPELL_TYPE_SUBHP Damage = (Int(GetPlayerMAGI(Index) / 4) + Spell(SpellNum).Data1) - Int(NPC(MapNPC(GetPlayerMap(Index), n).num).DEF / 2) If Damage > 0 Then If Spell(SpellNum).Element <> 0 And NPC(MapNPC(GetPlayerMap(Index), n).num).Element <> 0 Then If Element(Spell(SpellNum).Element).Strong = NPC(MapNPC(GetPlayerMap(Index), n).num).Element Or Element(NPC(MapNPC(GetPlayerMap(Index), n).num).Element).Weak = Spell(SpellNum).Element Then Call BattleMsg(Index, "A deadly mix of elements harm the " & Trim$(NPC(MapNPC(GetPlayerMap(Index), n).num).Name) & "!", BLUE, 0) Damage = Int(Damage * 1.25) If Element(Spell(SpellNum).Element).Strong = NPC(MapNPC(GetPlayerMap(Index), n).num).Element And Element(NPC(MapNPC(GetPlayerMap(Index), n).num).Element).Weak = Spell(SpellNum).Element Then Damage = Int(Damage * 1.2) End If End If If Element(Spell(SpellNum).Element).Weak = NPC(MapNPC(GetPlayerMap(Index), n).num).Element Or Element(NPC(MapNPC(GetPlayerMap(Index), n).num).Element).Strong = Spell(SpellNum).Element Then Call BattleMsg(Index, "The " & Trim$(NPC(MapNPC(GetPlayerMap(Index), n).num).Name) & " absorbs much of the elemental damage!", RED, 0) Damage = Int(Damage * 0.75) If Element(Spell(SpellNum).Element).Weak = NPC(MapNPC(GetPlayerMap(Index), n).num).Element And Element(NPC(MapNPC(GetPlayerMap(Index), n).num).Element).Strong = Spell(SpellNum).Element Then Damage = Int(Damage * (2 / 3)) End If End If End If Call AttackNpc(Index, n, Damage) Else Call BattleMsg(Index, "The spell was to weak to hurt " & Trim$(NPC(MapNPC(GetPlayerMap(Index), n).num).Name) & "!", BRIGHTRED, 0) End If Case SPELL_TYPE_SUBMP MapNPC(GetPlayerMap(Index), n).MP = MapNPC(GetPlayerMap(Index), n).MP - Spell(SpellNum).Data1 Case SPELL_TYPE_SUBSP MapNPC(GetPlayerMap(Index), n).SP = MapNPC(GetPlayerMap(Index), n).SP - Spell(SpellNum).Data1 End Select Casted = True Else Select Case Spell(SpellNum).Type Case SPELL_TYPE_ADDHP MapNPC(GetPlayerMap(Index), n).HP = MapNPC(GetPlayerMap(Index), n).HP + Spell(SpellNum).Data1 ' resets HP to max if it goes above max If MapNPC(GetPlayerMap(Index), n).HP >= GetNpcMaxHP(MapNPC(GetPlayerMap(Index), n).num) Then MapNPC(GetPlayerMap(Index), n).HP = GetNpcMaxHP(MapNPC(GetPlayerMap(Index), n).num) End If Call SendDataToMap(GetPlayerMap(Index), "npchp" & SEP_CHAR & n & SEP_CHAR & MapNPC(GetPlayerMap(Index), n).HP & SEP_CHAR & GetNpcMaxHP(MapNPC(GetPlayerMap(Index), n).num) & END_CHAR) Case SPELL_TYPE_ADDMP MapNPC(GetPlayerMap(Index), n).MP = MapNPC(GetPlayerMap(Index), n).MP + Spell(SpellNum).Data1 Case SPELL_TYPE_ADDSP MapNPC(GetPlayerMap(Index), n).SP = MapNPC(GetPlayerMap(Index), n).SP + Spell(SpellNum).Data1 End Select Casted = True End If Else Call BattleMsg(Index, "Could not cast spell!", BRIGHTRED, 0) End If End If End If If Casted = True Then Call SendDataToMap(GetPlayerMap(Index), "spellanim" & SEP_CHAR & SpellNum & SEP_CHAR & Spell(SpellNum).SpellAnim & SEP_CHAR & Spell(SpellNum).SpellTime & SEP_CHAR & Spell(SpellNum).SpellDone & SEP_CHAR & Index & SEP_CHAR & Player(Index).TargetType & SEP_CHAR & Player(Index).Target & SEP_CHAR & Player(Index).CastedSpell & SEP_CHAR & Spell(SpellNum).Big & END_CHAR) Call SendDataToMap(GetPlayerMap(Index), "sound" & SEP_CHAR & "magic" & SEP_CHAR & Spell(SpellNum).Sound & END_CHAR) End If Next X Next Y Call SetPlayerMP(Index, GetPlayerMP(Index) - Spell(SpellNum).MPCost) Call SendMP(Index) Else n = Player(Index).Target If Player(Index).TargetType = TARGET_TYPE_PLAYER Then If IsPlaying(n) Then If GetPlayerName(n) <> GetPlayerName(Index) Then If CInt(Sqr((GetPlayerX(Index) - GetPlayerX(n)) ^ 2 + ((GetPlayerY(Index) - GetPlayerY(n)) ^ 2))) > Spell(SpellNum).Range Then Call BattleMsg(Index, "You are too far away to hit the target.", BRIGHTRED, 0) Exit Sub End If End If Player(Index).TargetType = TARGET_TYPE_PLAYER If GetPlayerHP(n) > 0 And GetPlayerMap(Index) = GetPlayerMap(n) Then ' Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " casts " & Trim$(Spell(SpellNum).Name) & " on " & GetPlayerName(n) & ".", BrightBlue) If Spell(SpellNum).Type >= SPELL_TYPE_SUBHP And Spell(SpellNum).Type <= SPELL_TYPE_SUBSP Then Select Case Spell(SpellNum).Type Case SPELL_TYPE_SUBHP Damage = (Int(GetPlayerMAGI(Index) / 4) + Spell(SpellNum).Data1) - GetPlayerProtection(n) If Damage > 0 Then Call AttackPlayer(Index, n, Damage) Else Call BattleMsg(Index, "The spell was to weak to hurt " & GetPlayerName(n) & "!", BRIGHTRED, 0) End If Case SPELL_TYPE_SUBMP Call SetPlayerMP(n, GetPlayerMP(n) - Spell(SpellNum).Data1) Call SendMP(n) Case SPELL_TYPE_SUBSP Call SetPlayerSP(n, GetPlayerSP(n) - Spell(SpellNum).Data1) Call SendSP(n) End Select ' Take away the mana points Call SetPlayerMP(Index, GetPlayerMP(Index) - Spell(SpellNum).MPCost) Call SendMP(Index) Casted = True End If If GetPlayerMap(Index) = GetPlayerMap(n) And Spell(SpellNum).Type >= SPELL_TYPE_ADDHP And Spell(SpellNum).Type <= SPELL_TYPE_ADDSP Then Select Case Spell(SpellNum).Type Case SPELL_TYPE_ADDHP ' Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " casts " & Trim$(Spell(SpellNum).Name) & " on " & GetPlayerName(n) & ".", BrightBlue) Call SetPlayerHP(n, GetPlayerHP(n) + Spell(SpellNum).Data1) Call SendHP(n) Case SPELL_TYPE_ADDMP ' Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " casts " & Trim$(Spell(SpellNum).Name) & " on " & GetPlayerName(n) & ".", BrightBlue) Call SetPlayerMP(n, GetPlayerMP(n) + Spell(SpellNum).Data1) Call SendMP(n) Case SPELL_TYPE_ADDSP ' Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " casts " & Trim$(Spell(SpellNum).Name) & " on " & GetPlayerName(n) & ".", BrightBlue) Call SetPlayerSP(n, GetPlayerSP(n) + Spell(SpellNum).Data1) Call SendSP(n) End Select ' Take away the mana points Call SetPlayerMP(Index, GetPlayerMP(Index) - Spell(SpellNum).MPCost) Call SendMP(Index) Casted = True End If End If Else Call PlayerMsg(Index, "Cannot cast spell!", BRIGHTRED) End If Else n = Player(Index).TargetNPC If CInt(Sqr((GetPlayerX(Index) - MapNPC(GetPlayerMap(Index), n).X) ^ 2 + ((GetPlayerY(Index) - MapNPC(GetPlayerMap(Index), n).Y) ^ 2))) > Spell(SpellNum).Range Then Call BattleMsg(Index, "You are too far away to hit the target.", BRIGHTRED, 0) Exit Sub End If Player(Index).TargetType = TARGET_TYPE_NPC If NPC(MapNPC(GetPlayerMap(Index), n).num).Behavior <> NPC_BEHAVIOR_FRIENDLY And NPC(MapNPC(GetPlayerMap(Index), n).num).Behavior <> NPC_BEHAVIOR_SHOPKEEPER Then ' Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " casts " & Trim$(Spell(SpellNum).Name) & " on a " & Trim$(Npc(MapNpc(GetPlayerMap(index), n).num).Name) & ".", BrightBlue) Select Case Spell(SpellNum).Type Case SPELL_TYPE_ADDHP MapNPC(GetPlayerMap(Index), n).HP = MapNPC(GetPlayerMap(Index), n).HP + Spell(SpellNum).Data1 ' resets HP to max if it goes above max If MapNPC(GetPlayerMap(Index), n).HP >= GetNpcMaxHP(MapNPC(GetPlayerMap(Index), n).num) Then MapNPC(GetPlayerMap(Index), n).HP = GetNpcMaxHP(MapNPC(GetPlayerMap(Index), n).num) End If Call SendDataToMap(GetPlayerMap(Index), "npchp" & SEP_CHAR & n & SEP_CHAR & MapNPC(GetPlayerMap(Index), n).HP & SEP_CHAR & GetNpcMaxHP(MapNPC(GetPlayerMap(Index), n).num) & END_CHAR) Case SPELL_TYPE_SUBHP Damage = (Int(GetPlayerMAGI(Index) / 4) + Spell(SpellNum).Data1) - Int(NPC(MapNPC(GetPlayerMap(Index), n).num).DEF / 2) If Damage > 0 Then If Spell(SpellNum).Element <> 0 And NPC(MapNPC(GetPlayerMap(Index), n).num).Element <> 0 Then If Element(Spell(SpellNum).Element).Strong = NPC(MapNPC(GetPlayerMap(Index), n).num).Element Or Element(NPC(MapNPC(GetPlayerMap(Index), n).num).Element).Weak = Spell(SpellNum).Element Then Call BattleMsg(Index, "A deadly mix of elements harm the " & Trim$(NPC(MapNPC(GetPlayerMap(Index), n).num).Name) & "!", BLUE, 0) Damage = Int(Damage * 1.25) If Element(Spell(SpellNum).Element).Strong = NPC(MapNPC(GetPlayerMap(Index), n).num).Element And Element(NPC(MapNPC(GetPlayerMap(Index), n).num).Element).Weak = Spell(SpellNum).Element Then Damage = Int(Damage * 1.2) End If End If If Element(Spell(SpellNum).Element).Weak = NPC(MapNPC(GetPlayerMap(Index), n).num).Element Or Element(NPC(MapNPC(GetPlayerMap(Index), n).num).Element).Strong = Spell(SpellNum).Element Then Call BattleMsg(Index, "The " & Trim$(NPC(MapNPC(GetPlayerMap(Index), n).num).Name) & " aborbs much of the elemental damage!", RED, 0) Damage = Int(Damage * 0.75) If Element(Spell(SpellNum).Element).Weak = NPC(MapNPC(GetPlayerMap(Index), n).num).Element And Element(NPC(MapNPC(GetPlayerMap(Index), n).num).Element).Strong = Spell(SpellNum).Element Then Damage = Int(Damage * (2 / 3)) End If End If End If Call AttackNpc(Index, n, Damage) Else Call BattleMsg(Index, "The spell was to weak to hurt " & Trim$(NPC(MapNPC(GetPlayerMap(Index), n).num).Name) & "!", BRIGHTRED, 0) End If Case SPELL_TYPE_ADDMP MapNPC(GetPlayerMap(Index), n).MP = MapNPC(GetPlayerMap(Index), n).MP + Spell(SpellNum).Data1 Case SPELL_TYPE_SUBMP MapNPC(GetPlayerMap(Index), n).MP = MapNPC(GetPlayerMap(Index), n).MP - Spell(SpellNum).Data1 Case SPELL_TYPE_ADDSP MapNPC(GetPlayerMap(Index), n).SP = MapNPC(GetPlayerMap(Index), n).SP + Spell(SpellNum).Data1 Case SPELL_TYPE_SUBSP MapNPC(GetPlayerMap(Index), n).SP = MapNPC(GetPlayerMap(Index), n).SP - Spell(SpellNum).Data1 End Select ' Take away the mana points Call SetPlayerMP(Index, GetPlayerMP(Index) - Spell(SpellNum).MPCost) Call SendMP(Index) Casted = True Else Call BattleMsg(Index, "Could not cast spell!", BRIGHTRED, 0) End If End If End If If Casted = True Then Player(Index).AttackTimer = GetTickCount Player(Index).CastedSpell = YES Call SendDataToMap(GetPlayerMap(Index), "spellanim" & SEP_CHAR & SpellNum & SEP_CHAR & Spell(SpellNum).SpellAnim & SEP_CHAR & Spell(SpellNum).SpellTime & SEP_CHAR & Spell(SpellNum).SpellDone & SEP_CHAR & Index & SEP_CHAR & Player(Index).TargetType & SEP_CHAR & n & SEP_CHAR & Player(Index).CastedSpell & SEP_CHAR & Spell(SpellNum).Big & END_CHAR) Call SendDataToMap(GetPlayerMap(Index), "sound" & SEP_CHAR & "magic" & SEP_CHAR & Spell(SpellNum).Sound & END_CHAR) End If End Sub

Creditos a min

por Conteúdo patrocinado

Bug na spell?

Bug na spell?

Re: Bug na spell?

Re: Bug na spell?

Re: Bug na spell?

Re: Bug na spell?