On event module/sub ?

[William]

Not sure it will help that much. I made something similar for my buff spells. In:

Code:

Sub GameAI()

This will eliminate the possible timers you have, for example:
At the top add:

Code:

Dim XTickCount as Long, XFirst as Byte

Then at the bottom add:

Code:

If XFirst = 0 Then
  XTickCount = GetTickCount
  XFirst = 1
End if

' Make sure we reset the timer for door closing
If GetTickCount > XTickCount + 1000 Then
  Call CheckSpawnMapItems
  XFirst = 0
End If

That will replace the tmrSpawnMapItems. But it wont make much difference. Could you give an example of a sub that you mean can be done this way? I know you mean a check if something is changed, thats just a matter of adding to the Rec.