Having more than 23 spells flood server bug fix

[blkcrow]

This is a fix for a bug reported here [http://www.touchofde…em/#entry873441](http://www.touchofdeathforums.com/community/index.php?/topic/130858-spells-problem/#entry873441)

In server at modServerTCP copy paste this sub

```

Sub SendSpellTo(ByVal index As Long, ByVal spellnum As Long)

Dim buffer As clsBuffer

Dim SpellSize As Long

Dim SpellData() As Byte

Set buffer = New clsBuffer

SpellSize = LenB(Spell(spellnum))

ReDim SpellData(SpellSize - 1)

CopyMemory SpellData(0), ByVal VarPtr(Spell(spellnum)), SpellSize

buffer.WriteLong SSpell

buffer.WriteLong spellnum

buffer.WriteBytes SpellData

SendDataTo index, buffer.ToArray()

Set buffer = Nothing

End Sub

```

in both client and server at modEnumerations above

```
' Make sure SMSG_COUNT is below everything else
```
add

```
SSpell
```

in server replace sub SendSpells with

```

Sub SendSpells(ByVal index As Long)

Dim i As Long

For i = 1 To MAX_SPELLS

If LenB(Trim$(Spell(i).Name)) > 0 Then

Call SendSpellTo(index, i)

End If

Next

Call SendPlayerSpells(index)

End Sub

```

in client at modHandleData in sub InitMessages add

```

HandleDataSub(SSpell) = GetAddress(AddressOf HandleSpell)

```

and at the bottom of modHandleData add

```

Private Sub HandleSpell(ByVal Index As Long, ByRef data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)

Dim spellnum As Long

Dim buffer As clsBuffer

Dim SpellSize As Long

Dim SpellData() As Byte

If Options.Debug = 1 Then On Error GoTo errorhandler

Set buffer = New clsBuffer

buffer.WriteBytes data()

spellnum = buffer.ReadLong

SpellSize = LenB(Spell(spellnum))

ReDim SpellData(SpellSize - 1)

SpellData = buffer.ReadBytes(SpellSize)

CopyMemory ByVal VarPtr(Spell(spellnum)), ByVal VarPtr(SpellData(0)), SpellSize

Set buffer = Nothing

Exit Sub

errorhandler:

HandleError "HandleSpell", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext

Err.Clear

Exit Sub

End Sub

```

thats all

[abhi2011]

Nice fix. Many ppl reported this.

Liked

[teamokell]

Wow.

I love this.

[hedgy]

Thank you so much!

/hug

[tslusny]

Hmm but there is already sub SendUpdateSpellsTo, and this what you added is just same sub but renamed. I think this won´t fix anything.

[blkcrow]

> Hmm but there is already sub SendUpdateSpellsTo, and this what you added is just same sub but renamed. I think this won´t fix anything.

this fixes everything. As i have explained in the topic i posted above every time the server updates a spell the client requests from the server all the spells the player has learned when the spells are more than 23 the server floods. What i have make is another sub that does the same thing but sends the spells the player has learned only once at the end

[Valentine90]

This is a fix for _Eclipse Origins v2_? because I tested here and works perfectly in player not admin with 24 spells.

[blkcrow]

> This is a fix for _Eclipse Origins v2_? because I tested here and works perfectly in player not admin with 24 spells.

its for 3.0

[Valentine90]

Better warn next time, which engine is being corrected, because I spent a lot of time here in creating 24 spells and testing Eo v2.

[hisherwin]

DUH i must read the Comment first before doing this Tutorial! Lol , good thing i got a backup.

[blkcrow]

this bug have been reported and fixed for the engines who use directX 8

**BUT** there is no reason why this wouldnt happen in the directX 7 version of the engine.

**DO NOT** use this fix if you arent experiencing this bug. To know for sure if this bug occurs in your version of the engine make 24 spells remove the admin rights from your character **log out and log in again** if you are unable to do anything (wraping, activating events, e.t.c.) exept for walking then and only then you should use this fix