For n = 1 To MAX_NPC_drop 'not drops, sorry
If Npc(vNpcNum).DropItem(n) = 0 Then Exit For
If Rnd <= Npc(vNpcNum).DropChance(n) Then
Call SpawnItem(Npc(vNpcNum).DropItem(n), Npc(vNpcNum).DropItemValue(n), mapNum, MapNpc(mapNum).Npc(Victim).x, MapNpc(mapNum).Npc(Victim).y)
End If
Next

That should fix it, worked for me (i’ll add this fix in the next version)

which one? The subscript out of range or the MAX_NPC_drops highlighted?

for the subscript out of range when your pet dies (or any NPC with no drop) check the first message in the Bug list, there is how to fix it, just replace the piece of code with the new one, compile the server and test
for the MAX_NPC_drops highlighted just remove the “s” of drops and test

when i try to add Altar Quest System,i have “Can’t find project or library” and Easendmailobj.dll was missing :sad:

hmmm, that dll works for the Email system, i don’t know why that is causing problems to you…anyways u can “remove” that dll doign this:
go to the client source, and then go to project—>Preferences, now in the window you should see “EASendMailObj ActiveX 1.0 Type Library”, just uncheck that and test (that dll works for the tutorials added after the feature list for sending an email to the players with his account name and his password)