DAK3 Posted November 27, 2012 Author Share Posted November 27, 2012 Hello! ![:)](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/smile.png) I use Eclipse AdvancetAnd i lose all of my items when i dead… how can i delete this system? o.O Link to comment Share on other sites More sharing options...
Matt Posted November 27, 2012 Share Posted November 27, 2012 You should put this in Questions and Answers. You would have to go to the sub "OnDeath" in the server files and delete everything that has to do with dropping items. Link to comment Share on other sites More sharing options...
DAK3 Posted November 28, 2012 Author Share Posted November 28, 2012 And in what file i can find OnDeath? Link to comment Share on other sites More sharing options...
Matt Posted November 28, 2012 Share Posted November 28, 2012 It should be in modPlayer. Link to comment Share on other sites More sharing options...
DAK3 Posted November 28, 2012 Author Share Posted November 28, 2012 What i have to change?? plz tell me ![:)](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/smile.png)Sub OnDeath(ByVal index As Long)Dim i As Long' Set HP to nothingCall SetPlayerVital(index, Vitals.HP, 0)'Drop inventory itemsFor i = 1 To MAX_INVPlayerMapDropItem index, i, GetPlayerInvItemValue(index, i)Next'Send all equiped items to the inventory to be dumped.For i = 1 To Equipment.Equipment_Count - 1If GetPlayerEquipment(index, i) > 0 ThenPlayerMapDropItem index, GetPlayerEquipment(index, i), 0End If'Send WeaponGiveInvItem index, GetPlayerEquipment(index, Weapon), 0SetPlayerEquipment index, 0, Weapon'Send ArmorGiveInvItem index, GetPlayerEquipment(index, Armor), 0SetPlayerEquipment index, 0, Armor'Send ShieldGiveInvItem index, GetPlayerEquipment(index, shield), 0SetPlayerEquipment index, 0, shield'Send HelmetGiveInvItem index, GetPlayerEquipment(index, Helmet), 0SetPlayerEquipment index, 0, HelmetNext'Drop *equipped* inventory itemsFor i = 1 To MAX_INVPlayerMapDropItem index, i, 0Next Link to comment Share on other sites More sharing options...
Matt Posted November 28, 2012 Share Posted November 28, 2012 ``` 'Drop inventory items For i = 1 To MAX_INV PlayerMapDropItem index, i, GetPlayerInvItemValue(index, i) Next 'Send all equiped items to the inventory to be dumped. For i = 1 To Equipment.Equipment_Count - 1 If GetPlayerEquipment(index, i) > 0 Then PlayerMapDropItem index, GetPlayerEquipment(index, i), 0 End If 'Send Weapon GiveInvItem index, GetPlayerEquipment(index, Weapon), 0 SetPlayerEquipment index, 0, Weapon 'Send Armor GiveInvItem index, GetPlayerEquipment(index, Armor), 0 SetPlayerEquipment index, 0, Armor 'Send Shield GiveInvItem index, GetPlayerEquipment(index, shield), 0 SetPlayerEquipment index, 0, shield 'Send Helmet GiveInvItem index, GetPlayerEquipment(index, Helmet), 0 SetPlayerEquipment index, 0, Helmet Next 'Drop *equipped* inventory items For i = 1 To MAX_INV PlayerMapDropItem index, i, 0 Next```That's what you need to remove. Link to comment Share on other sites More sharing options...
abhi2011 Posted November 29, 2012 Share Posted November 29, 2012 Isn't that obvious? The comments in the original code has shown the dumping parts. Or it might be because you don't know English In that case it isn't much of a problem. Link to comment Share on other sites More sharing options...
DAK3 Posted November 30, 2012 Author Share Posted November 30, 2012 > ```> > 'Drop inventory items> > For i = 1 To MAX_INV> > PlayerMapDropItem index, i, GetPlayerInvItemValue(index, i)> > Next> > 'Send all equiped items to the inventory to be dumped.> > For i = 1 To Equipment.Equipment_Count - 1> > If GetPlayerEquipment(index, i) > 0 Then> > PlayerMapDropItem index, GetPlayerEquipment(index, i), 0> > End If> > 'Send Weapon> > GiveInvItem index, GetPlayerEquipment(index, Weapon), 0> > SetPlayerEquipment index, 0, Weapon> > 'Send Armor> > GiveInvItem index, GetPlayerEquipment(index, Armor), 0> > SetPlayerEquipment index, 0, Armor> > 'Send Shield> > GiveInvItem index, GetPlayerEquipment(index, shield), 0> > SetPlayerEquipment index, 0, shield> > 'Send Helmet> > GiveInvItem index, GetPlayerEquipment(index, Helmet), 0> > SetPlayerEquipment index, 0, Helmet> > Next> > 'Drop *equipped* inventory items> > For i = 1 To MAX_INV> > PlayerMapDropItem index, i, 0> > Next> > ```> > That's what you need to remove.I removed it but i lose my items too… Link to comment Share on other sites More sharing options...
Matt Posted November 30, 2012 Share Posted November 30, 2012 You need to compile your code. Link to comment Share on other sites More sharing options...
DAK3 Posted November 30, 2012 Author Share Posted November 30, 2012 What , and how? ![:)](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/smile.png) Link to comment Share on other sites More sharing options...
Dark_Marine_123 Posted November 30, 2012 Share Posted November 30, 2012 ![](http://img28.imageshack.us/img28/9277/clickthatv.jpg)Click the highlighted button in File. Link to comment Share on other sites More sharing options...
DAK3 Posted November 30, 2012 Author Share Posted November 30, 2012 I doesn't have visual basic 6 Link to comment Share on other sites More sharing options...
Matt Posted November 30, 2012 Share Posted November 30, 2012 Then you can't change the code. You need VB6 and can't use anything else. Link to comment Share on other sites More sharing options...
DAK3 Posted December 1, 2012 Author Share Posted December 1, 2012 :'( Thanks the help guys ![:)](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/smile.png) Link to comment Share on other sites More sharing options...
Matt Posted December 1, 2012 Share Posted December 1, 2012 You could always ask anyone on the forum with VB6 to do it. Sorry I didn't reply so fast. I have a bit of a *cough* https://www.dropbox.com/home/New%20folder?select=client.zip *cough* cold Link to comment Share on other sites More sharing options...
DAK3 Posted December 1, 2012 Author Share Posted December 1, 2012 > You could always ask anyone on the forum with VB6 to do it. Sorry I didn't reply so fast. I have a bit of a *cough* [https://www.dropbox….lect=client.zip](https://www.dropbox.com/home/New%20folder?select=client.zip) *cough* coldit say the "folder do not exist Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now