KaRambi Posted February 10, 2013 Author Share Posted February 10, 2013 Hi! I have Eclipse Advanced and i have question.. how can i change drop items after death? My friends hate it so i post there, because i can't search Tutorial how can i do it.. Link to comment Share on other sites More sharing options...
KaRambi Posted February 11, 2013 Author Share Posted February 11, 2013 #Refresh Can someone help me with change it? Link to comment Share on other sites More sharing options...
Matt Posted February 12, 2013 Share Posted February 12, 2013 *Quest received*- Try using the search bar to find a tutorial which explains how to make the player drop all items on death Link to comment Share on other sites More sharing options...
KaRambi Posted February 12, 2013 Author Share Posted February 12, 2013 .. I know! I search but .. nothing so i create this post.. I create because i can't search ahh…  Link to comment Share on other sites More sharing options...
Matt Posted February 12, 2013 Share Posted February 12, 2013 [http://www.touchofde…arch-something/](http://www.touchofdeathforums.com/community/index.php?/topic/131008-how-to-search-something/)Don't look for a specific title. Try using simple keywords. For example, "Death"~ Tada ~Now lets open up the tutorial> Ok soo this basicly works by making you drop your items only if you are a Playerkiller when you die.Now we see that this is more or less relevant to what you want, so let's take a look at the code!> OK this is a very very simple server sided edit, you do not have to touch the client side at all.> > First off go to modPlayer and find this:> > ```> ' Drop all worn items> > For i = 1 To Equipment.Equipment_Count - 1> > If GetPlayerEquipment(index, i) > 0 Then> > PlayerMapDropItem index, GetPlayerEquipment(index, i), 0> > End If> > Next> ```See if you can find something like that in your server code. It should be in a sub related to dying.> And replace that with this:> > ```> > 'Drop inventory items, Will make this only apply to player killers.> > If GetPlayerPK(index) = YES Then> > 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> > End If> > ```> > And BAM! your done.But this isn't exactly what you want. You want it so that when a player dies, they lose everything no matter if they're a player killer or not. Let's see if we can change it to what you want. At the top of the code, we see this.```'Drop inventory items, Will make this only apply to player killers. If GetPlayerPK(index) = YES Then```I'm fairly certain that's what we have to remove. But keep in mind that an if statement like this has to be closed off with an "end if". So lets see if we can find where the if statement is closed off at.Sure enough, at the bottom of the code is this.```'Drop *equipped* inventory items For i = 1 To MAX_INV PlayerMapDropItem index, i, 0 Next End If```You'll want to remove the [background=rgb(248, 248, 248)]```If GetPlayerPK(index) = YES Then```[/background]and the [background=rgb(248, 248, 248)]``` End If```[/background]Save it, run it, and tell me what happens. Link to comment Share on other sites More sharing options...
KaRambi Posted February 12, 2013 Author Share Posted February 12, 2013 Thanks ! I will remember  Link to comment Share on other sites More sharing options...
KaRambi Posted February 12, 2013 Author Share Posted February 12, 2013 Ahh… edit.. i mean change it ... to no drop.. they hate it if items drop... so i have to change it and i don't know ... sorry man but u don't knew what i mean... Link to comment Share on other sites More sharing options...
Matt Posted February 13, 2013 Share Posted February 13, 2013 Delete everything concerning it. Link to comment Share on other sites More sharing options...
pikachu2010 Posted February 14, 2013 Share Posted February 14, 2013 hi dude if u dont fix the problem about when ur player death and drop all thing you have in your bag this is the solutionserver side –-)mobplayergo to sud ondeath and find this:'Drop *equipped* inventory itemsFor i = 1 To MAX_INVPlayerMapDropItem index, i, 0Nextjust delete and the problem is fix ur player no drop nothing when he death all stay in ur bagbut other problem is when he die the item u have equiment all go to bag and u need to put again.sorry for my bad english. tell me if u fix that problem. ok  Link to comment Share on other sites More sharing options...
KaRambi Posted February 14, 2013 Author Share Posted February 14, 2013 Yea u think good but it cant work. I have too bad english so  I delete everything and it cant work.. After death i drop all items ;/ ahh can someone just send me Source? with it… Link to comment Share on other sites More sharing options...
Santini Posted February 14, 2013 Share Posted February 14, 2013 Hey,I am downloading the latest version of eclipse advanced and I will stop the player from dropping their items on death once I have done this I will upload it and post the link here.Hope this helps,Santini Link to comment Share on other sites More sharing options...
Matt Posted February 14, 2013 Share Posted February 14, 2013 Did you compile the source? The exe doesn't run off of the source code. Link to comment Share on other sites More sharing options...
pikachu2010 Posted February 14, 2013 Share Posted February 14, 2013 let try one more time okin server side u know that mobplayeryou need to find this'Drop inventory itemsFor i = 1 To MAX_INVPlayerMapDropItem index, i, GetPlayerInvItemValue(index, i)Nextdelete it.then'Drop *equipped* inventory itemsFor i = 1 To MAX_INVPlayerMapDropItem index, i, 0Nextand other point if u dont wanna send urs item to your inventory (the bag)delete this too.'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, helmetNextthen u you do all that when ur player die all weapons and stay put.are u using vb6 and compilate all the thing u do for save the project? cuz if u dont use this no work for you. Link to comment Share on other sites More sharing options...
Santini Posted February 14, 2013 Share Posted February 14, 2013 Hey,At the moment I am having problems with my VB6\. so I can not upload a version with it at the moment. However pikachu2010 has explained it really well and what he has said should work fine. As Matthew and pikachu2010 have said remember to compile it otherwise none of the changes you make will work when you run it from the exe.Hope you manage to get it working.Santini Link to comment Share on other sites More sharing options...
KaRambi Posted February 15, 2013 Author Share Posted February 15, 2013 I will try one more because i was using Polish program Notatnik C++ so… Link to comment Share on other sites More sharing options...
KaRambi Posted February 15, 2013 Author Share Posted February 15, 2013 Yea… i do everything what you said and buum .. nothing.. after death there write "You drop 10 monety" so... god why ?  I was using VB i delete everything what sou said and nothing.. nothing  ... nothing Some suggestions  ? Link to comment Share on other sites More sharing options...
Santini Posted February 15, 2013 Share Posted February 15, 2013 Are you running the server through vb6 or from the exe? Link to comment Share on other sites More sharing options...
KaRambi Posted February 15, 2013 Author Share Posted February 15, 2013 from the exe but how can i run through vb6?? Link to comment Share on other sites More sharing options...
Matt Posted February 15, 2013 Share Posted February 15, 2013 Hit f5 while you're looking at the server source in VB6. Link to comment Share on other sites More sharing options...
Matt Posted February 15, 2013 Share Posted February 15, 2013 Hit f5 while you're looking at the server source in VB6.EDIT: I apologize for the double post. I hit the "post button" but nothing happened, so I hit it again and then it double posted. Link to comment Share on other sites More sharing options...
KaRambi Posted February 22, 2013 Author Share Posted February 22, 2013 It have to be VB6 or Visual Base Express??? Link to comment Share on other sites More sharing options...
KaRambi Posted February 23, 2013 Author Share Posted February 23, 2013 Refresh# I have Visual Base Express it can be? Because if i press F5 .. nothing happens ;( Link to comment Share on other sites More sharing options...
Ertzel Posted February 23, 2013 Share Posted February 23, 2013 You need Microsoft Visual Basic 6.0 to compile with… Link to comment Share on other sites More sharing options...
Saga Posted March 7, 2013 Share Posted March 7, 2013 Lol can't you just set the items to "bind on pickup??" 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