Many fixes to regressions in perl and cleaning up the final interface

This commit is contained in:
KimLS
2013-06-12 15:04:26 -07:00
parent 56b41c882b
commit c0d37b2e04
32 changed files with 438 additions and 635 deletions
+3 -1
View File
@@ -333,7 +333,6 @@ void Client::DropItem(int16 slot_id)
int i = parse->EventItem(EVENT_DROP_ITEM, this, inst, nullptr, "", 0);
if(i != 0) {
safe_delete(inst);
return;
}
} else {
// Item doesn't exist in inventory!
@@ -349,6 +348,9 @@ void Client::DropItem(int16 slot_id)
database.SaveInventory(CharacterID(), nullptr, slot_id);
}
if(!inst)
return;
// Package as zone object
Object* object = new Object(this, inst);
entity_list.AddObject(object, true);