Get the Spells working again

[unnown]

how to make the spells working,
even with spell animations on death

> If GetPlayerHP(n) > 0 And GetPlayerMap(Index) = GetPlayerMap(n) And GetPlayerLevel(Index) >= 10 And GetPlayerLevel(n) >= 10 And (Map(GetPlayerMap(Index)).Moral = MAP_MORAL_NONE Or Map(GetPlayerMap(Index)).Moral = MAP_MORAL_NO_PENALTY) And GetPlayerAccess(Index) <= 0 And GetPlayerAccess(n) <= 0 Then

this is why it didn't work on other players (sometimes)

this line (server side) has a few weird things,
both players need to be above level 10,
both players can't be admins,
and the map moral needs to be no penalty or no moral at all,

and to get npc's to work change

> 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

to

> 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

then to get the animations to work do this
(it send the player's target instead of the npc num or player num

> 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

[ddunit]

For noobs that probably won't be able to add it, why not upload a main.txt with it installed?

[Admiral Refuge]

@[ILLI:

> BlahBlah[DDunit] link=topic=43236.msg434357#msg434357 date=1240617401]
> For noobs that probably won't be able to add it, why not upload a main.txt with it installed?

Because this isn't sadscript, it's vb6

[yorty]

Yes! Thanks unnown.

[unnown]

@ÅÐмiядζ:

> Because this isn't sadscript, it's vb6

that one made my day :P

[Agoraphobic]

Very nice work.

[Alpha]

Thank you Unnown! Tons of people have been looking for this, thanks a lot.

-Alpha

[the_best_flash]

Very nice. Thanks.

[unnown]

TY ALL :D

[Skillzalot]

Go unnown teach the source a lesson

[unnown]

you have no idea :P

[Skillzalot]

I might not but nice catch. This will help everybody out providing they have vb6

[yorty]

Well, this is nice and all but EE 3.0 will (prob) make all of this unnecessary.

[Marsh]

Very nice unnown thank you. If someone could upload a client with only this changed i will make it the default download.

[Tyr]

blah unnown, i fixed this like 3 weeks ago and i can assure you it took me some time!
very nice :)

[unnown]

@[BS:

> Elephant God Yorty link=topic=43236.msg434514#msg434514 date=1240633214]
> Well, this is nice and all but EE 3.0 will (prob) make all of this unnecessary.

if you know java, then yeah, if not this is the next best thing,
and tyr why didn't you post the fix then?

[Drummerpete]

I would muchly appreciate if someone would compile this as well.
Plus marsh said to. :p

[unnown]

hmm it will all be in the mod im making (with working pets)

[Fbu]

Siiiick, thanks

[Sr_Sirius]

Very thanks man n1.

[Xavi]

Why make a source edit on 2.7 instead of on 3.0? Your edit will become obsolete upon it's release. Or was 3.0, *gasps*, CANCELED??!!??!!

[Admiral Refuge]

@Xavi:

> Why make a source edit on 2.7 instead of on 3.0? Your edit will become obsolete upon it's release. Or was 3.0, *gasps*, CANCELED??!!??!!

idk… His source edit may compete with 3.0

[unnown]

because eclipse 3.0 is java based? this will be the last vb6 version :)

[Drummerpete]

@unnown:

> because eclipse 3.0 is java based? this will be the last **_Official_** vb6 version :)

[unnown]

jup jup :)