Scott Posted July 26, 2012 Author Share Posted July 26, 2012 Yes, make source edits to the form and drop code. Link to comment Share on other sites More sharing options...
00GuthixLord Posted July 26, 2012 Share Posted July 26, 2012 Yes i know but how would i change it.. Link to comment Share on other sites More sharing options...
Scott Posted July 26, 2012 Author Share Posted July 26, 2012 Compare it to how the default system works and see what was changed, if you don't try you will never learn. Link to comment Share on other sites More sharing options...
00GuthixLord Posted July 26, 2012 Share Posted July 26, 2012 @Scott:> Compare it to how the default system works and see what was changed, if you don't try you will never learn.Ehh true but the thing has given me so much trouble adding in a randomness and changing the amount scroll bar to text box Link to comment Share on other sites More sharing options...
Murdoc Posted August 7, 2012 Share Posted August 7, 2012 does this work with eo 3.0? Link to comment Share on other sites More sharing options...
Justn Posted August 7, 2012 Share Posted August 7, 2012 Hell ya bro Link to comment Share on other sites More sharing options...
Wortel Angels Posted August 7, 2012 Share Posted August 7, 2012 If the tutorials has nothing to do with the grapics they work… Link to comment Share on other sites More sharing options...
willunited Posted August 7, 2012 Share Posted August 7, 2012 Drop rate doesnt work?Why i put 75 and is same as 100%?Cant put .75 ¬¬ Link to comment Share on other sites More sharing options...
Wortel Angels Posted August 7, 2012 Share Posted August 7, 2012 type 0.75 = 75%Thats really near to 100% so its dropped very often Link to comment Share on other sites More sharing options...
willunited Posted August 7, 2012 Share Posted August 7, 2012 Ik Q.QThxEdit:Doesnt work…It works but i put 0,3 and the drop still highEdit:I put 0,03 and its works...thx Link to comment Share on other sites More sharing options...
nicouba Posted August 23, 2012 Share Posted August 23, 2012 I need the file editor, someone has to send me or post here? Link to comment Share on other sites More sharing options...
Scott Posted August 24, 2012 Author Share Posted August 24, 2012 I'll have to dig to find a copy of this if I even do have it still, if anyone has a copy of the zip please pm me it other wise I'll just re-make it not hard. Link to comment Share on other sites More sharing options...
or3o Posted September 6, 2012 Share Posted September 6, 2012 hey i have a copy of the editor but itd all modded with a buncha other crap, i can post a link if you wanna just get the stuff you need outta it.http://onlineorigins.zapto.org/npcfrm.rar Link to comment Share on other sites More sharing options...
Scott Posted September 6, 2012 Author Share Posted September 6, 2012 Thanks I'll fix it up and re-post it thanks a ton I'll credit you for your help. Link to comment Share on other sites More sharing options...
or3o Posted September 6, 2012 Share Posted September 6, 2012 lol no problem man im just happy i saved a buncha my old backups ![:)](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/smile.png)so im adding this tut for a friend anyway and i figure ill just write up all the form changes for you as i go along.**Client Side**frmeditor_npcFirst add a scrollbar and call it ScrlDrop **Make sure you set the minimum value to 1!**Double click ScrlDrop and paste``` DropIndex = scrlDrop.Value fraDrop.Caption = "Drop - " & DropIndex txtChance.text = NPC(EditorIndex).DropChance(DropIndex) scrlNum.Value = NPC(EditorIndex).DropItem(DropIndex) scrlValue.Value = NPC(EditorIndex).DropItemValue(DropIndex) ```now double click Scrlnum and replace the sub with this``` ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler lblNum.Caption = "Num: " & scrlNum.Value If scrlNum.Value > 0 Then lblItemName.Caption = "Item: " & Trim$(Item(scrlNum.Value).Name) End If NPC(EditorIndex).DropItem(DropIndex) = scrlNum.Value ' Error handler Exit Suberrorhandler: HandleError "scrlNum_Change", "frmEditor_NPC", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub```Double Click ScrlValue and replace the sub with this``` ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler lblValue.Caption = "Value: " & scrlValue.Value NPC(EditorIndex).DropItemValue(DropIndex) = scrlValue.Value ' Error handler Exit Suberrorhandler: HandleError "scrlValue_Change", "frmEditor_NPC", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub```Replace the code in TxtChance with``` On Error GoTo chanceErr If Not IsNumeric(txtChance.text) And Not Right$(txtChance.text, 1) = "%" And Not InStr(1, txtChance.text, "/") > 0 And Not InStr(1, txtChance.text, ".") Then txtChance.text = "0" NPC(EditorIndex).DropChance(DropIndex) = 0 Exit Sub End If If Right$(txtChance.text, 1) = "%" Then txtChance.text = Left(txtChance.text, Len(txtChance.text) - 1) / 100 ElseIf InStr(1, txtChance.text, "/") > 0 Then Dim i() As String i = Split(txtChance.text, "/") txtChance.text = Int(i(0) / i(1) * 1000) / 1000 End If If txtChance.text > 1 Or txtChance.text < 0 Then 'Err.Description = "Value must be between 0 and 1!" 'GoTo chanceErr End If NPC(EditorIndex).DropChance(DropIndex) = txtChance.text Exit SubchanceErr: MsgBox "Invalid entry for chance! " & Err.Description txtChance.text = "0" NPC(EditorIndex).DropChance(DropIndex) = 0```scroll to the very top just under option explicit and paste this```Private DropIndex As Byte```lastly go to Sub form load and paste this under Scrlanimation.max = MAX_ANIMATIONS``` DropIndex = scrlDrop.Value scrlDrop.Max = MAX_NPC_DROPS scrlDrop.Min = 1 fraDrop.Caption = "Drop - " & DropIndex``` Link to comment Share on other sites More sharing options...
Guest Posted September 11, 2012 Share Posted September 11, 2012 Update this tutorial with the attachments ![:D](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/biggrin.png) Link to comment Share on other sites More sharing options...
Alerd Posted September 30, 2012 Share Posted September 30, 2012 please reupload **both files** Link to comment Share on other sites More sharing options...
Smasher Yoshi Posted October 8, 2012 Share Posted October 8, 2012 Is it just me or the attached files disappeared? Link to comment Share on other sites More sharing options...
Joyce Posted October 9, 2012 Share Posted October 9, 2012 Oreo uploaded a copy of it, well. Sort of. It's heavily modded, but you can pick out the changes you need yourself. Link to comment Share on other sites More sharing options...
or3o Posted October 9, 2012 Share Posted October 9, 2012 also that second post i did explains what you need to do with your frm editor to get it to work. If you follow those instructions you shouldnt need a download. Link to comment Share on other sites More sharing options...
WiseRock Posted November 15, 2012 Share Posted November 15, 2012 It seems like I get this errorWhen I ever mess with the scroll bars I it gives me A Runtime Error '9' Please Help[http://imageshack.us…/captureep.png/](http://imageshack.us/photo/my-images/23/captureep.png/)EDIT: nvm Got it Working ![:)](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/smile.png) Link to comment Share on other sites More sharing options...
willunited Posted November 22, 2012 Share Posted November 22, 2012 I can't put more than 256,i get Overflow at NPC(EditorIndex).DropItem(DropIndex) = scrlNum.Value Link to comment Share on other sites More sharing options...
teamokell Posted November 22, 2012 Share Posted November 22, 2012 > I can't put more than 256,i get Overflow at NPC(EditorIndex).DropItem(DropIndex) = scrlNum.Valuemaybe the max value in scrlnum.value is 255.try change it for other value: 1000 for example. Link to comment Share on other sites More sharing options...
willunited Posted November 22, 2012 Share Posted November 22, 2012 I did it scrlNum.Max = MAX_ITEMS,but still happening Link to comment Share on other sites More sharing options...
teamokell Posted November 22, 2012 Share Posted November 22, 2012 > I did it scrlNum.Max = MAX_ITEMS,but still happeningNo, no.Click on SrclNum in "design mode" on frmEditor_NPC (Client Side)Then look in properties, search for MAX and change for 1000.No need code. 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