or3o Posted September 23, 2012 Share Posted September 23, 2012 i got it to work the day after ya released it! i even added an amount part so you can craft say 10 arrows at a time. thanks agian this tut rocks. Link to comment Share on other sites More sharing options...
Justn Posted September 23, 2012 Author Share Posted September 23, 2012 U must of already had the creation tool combo box then lol Im adding it to the download and tut now Link to comment Share on other sites More sharing options...
or3o Posted September 23, 2012 Share Posted September 23, 2012 lol yea i already had the other crafting tutorial so it was pretty much a no brainer, i didnt even realize it was missing from your tutorial lol Link to comment Share on other sites More sharing options...
Justn Posted September 24, 2012 Author Share Posted September 24, 2012 Ok updated the tutorial to include the missing form work also updated the download to include the full item editor form. Link to comment Share on other sites More sharing options...
or3o Posted September 27, 2012 Share Posted September 27, 2012 Hey i have a question. if your making something that uses like 3 iron bars is it possible to check and make sure all three of em are in your inventory? the was i understand it now is if it finds one of them then the recipe will work even if you dont have the amount the recipe calls for. thanks for takin the time to read this lol. Link to comment Share on other sites More sharing options...
Ganjika Posted September 27, 2012 Share Posted September 27, 2012 Just wanted to thank Justn for teamviewing me and helping get this crafting system to work on EO 3.0 Dx8.I will be putting out a guide to this crafting system once I get a good grasp on it, Great work Justn! =] Link to comment Share on other sites More sharing options...
or3o Posted September 28, 2012 Share Posted September 28, 2012 this tut works fine on eo 3.0 thats actually what i added it to. 2.3 and 3.0 arent all that different code wise. just graphical changes mostly. Link to comment Share on other sites More sharing options...
Ganjika Posted November 14, 2012 Share Posted November 14, 2012 I get a Syntax Error upon signing into the client after installing dynamic crafting system, although I know this workson this setup for-sure. Its the same as last time - except this time its on a fresh version of Dragon Eclipse.![](http://i1127.photobucket.com/albums/l632/EsoGuildPB/syntaxerror.png) Link to comment Share on other sites More sharing options...
Growlith1223 Posted November 14, 2012 Share Posted November 14, 2012 change the & to just the & sign ._. Link to comment Share on other sites More sharing options...
Ganjika Posted November 14, 2012 Share Posted November 14, 2012 > change the & to just the & sign ._.Though I am new - I actually considered doing that. I'll give it a shot.[Update 2 -> still needs to be fixed - it says : "SUBSCRIPT OUT OF RANGE" ]![](http://i1127.photobucket.com/albums/l632/EsoGuildPB/editoroutofrange.png)[Update 1 -> resolved- i think]:It worked and I can get in, Now i get this error when opening the map editor:![](http://i1127.photobucket.com/albums/l632/EsoGuildPB/afterclckingmap.png) Link to comment Share on other sites More sharing options...
Growlith1223 Posted November 14, 2012 Share Posted November 14, 2012 not much of help with that…what line does it show... Link to comment Share on other sites More sharing options...
Ganjika Posted November 14, 2012 Share Posted November 14, 2012 I am going to upload the project (all it is is a brand new dragon eclipse + Mini Map + the Dynamic Crafting System) - Sign in and go into admin panel and then check out :Frmeditor_ map / item / main. (Both code AND window - Open it in VB6 and launch from VB6 (debug as needed):It will temporarily be at : 68.43.175.133/decraft(on a private server - no worries - Re-uploaded it to INCLUDE the minimap (which works perfectly) at 11:04 pm on 11/13/2012 - DO NOTdownload this thinking this is a working version - once soe one can help me fix the crafting system I will add some morefunctions and stuff and probably put an extended version of dragon eclipse up sometime-)If you can show me what I'm doing wrong I would be ever so appreciative. =P Link to comment Share on other sites More sharing options...
iraasta Posted November 14, 2012 Share Posted November 14, 2012 Will it work with EA?It looks like code will be fine fine, but what about form work? Link to comment Share on other sites More sharing options...
Ganjika Posted November 21, 2012 Share Posted November 21, 2012 > Will it work with EA?> > It looks like code will be fine fine, but what about form work?I tried this in EA i believe and got some errors, I DID have this work in dragon eclipse 3.0 Dx8 perfectly but when i tried a second time it didn't work right either, Justn actually teamviewed me and got it to work but i lost that copy somehow - Not sure if they updated the tutorial to fix all of the bugs they worked out on the copy I had.IF anyone figures out how to get this working properly and/or even manages to get it to work alil faster and/or more efficiently or adds new features, they should definitely include tutorial(s) on the implementation process as well as any updates so that folks who already have it can just make the needed changes and folks who get bugs can work them out. Link to comment Share on other sites More sharing options...
Ganjika Posted November 26, 2012 Share Posted November 26, 2012 I am getting an crash and unrecoverable Dx8 Error when trying to place a crafting tile, but **I got it to compile and start up in Dragon Eclipse [Nightly Dx8]**. UPDATE: found another bug: the crafting window (in picattributes… frarecipe in particular stands in the way of ALL other attribute windows and pops up even if i click arena, etc - to top things off the scroll bar there DOES NOT work and the command button that says "ok" does not work either" its stuck open.I did go into modText and FIND``` Case TILE_TYPE_CRAFTDrawText TexthDC, tx, ty, "CR", QBColor(White)```and change out Drawtext to Rendertext and TextTHdc to font_default.Not sure if that could be causing the conflict. [This](http://i1127.photobucket.com/albums/l632/EsoGuildPB/errorcraft.png) is the error I was getting before I did this.**NOTES in General:**There is also some typo's, anywhere you see a "&" and the text is red make it "&"'Nyan says:```You must add Public Const TILE_TYPE_CRAFT as Byte = under other TILE_TYPE constants```'Nyan says:```Add RecipeIndex as Long to modGlobals``` Link to comment Share on other sites More sharing options...
JohnPony Posted November 26, 2012 Share Posted November 26, 2012 ```RenderText Font_Default, "CR", tx, ty, White, 0```Use that. Link to comment Share on other sites More sharing options...
Ganjika Posted November 26, 2012 Share Posted November 26, 2012 **UPDATE: THIS OFFICIALLY WORKS WITH DRAGON ECLIPSE 3.0 NIGHTLY Dx8.**the information below is unsorted**Justn should update the tutorial** to include the changes indicated throughout these posts and in this thread to:http://www.touchofdeathforums.com/community/index.php?/topic/130669-dynamic-crafting-system-on-dragon-eclipse/ . (not sure if i missed any but hes sure to have caught them since half of the collaboration took place among like 3 or 4 of us in pm to make this happen. Thanks guys!!!!In terms of my last error i just forgot to add the code to thebottom of frmEditor_Map.Gen. General General General General General General General General Pony said too: (for Dragon Eclipse Nightly Dx8)go into modText and FIND```DrawText TexthDC, tx, ty, "CR", QBColor(White)```Replace with> RenderText Font_Default, "CR", tx, ty, White, 0Okay, I got the tiles working with the above post by Gen. Generalpony ~~General General General General General General General General General General General Pony, now my last issuebefore wehave a fully working version of Dynamic Crafting System for Dragon Eclipse Dx8 Nightly is to work out a bug with frarecipe (which is located in picattributes) - when i click "crafting" in attributes it just lets me place the crafting tile-type, it doesntbring up another window for me to choose which type of crafting tile to choose/command button/etc, when i click another attribute type (such as arena) which does prompt the window i can see the crafting frarecipe and it isnt functional, however whichever other thing i clicked (such as arena or whatnot) works fine, though frarecipe shouldnt be visible.~~![](http://i1127.photobucket.com/albums/l632/EsoGuildPB/esocraft1.png) Link to comment Share on other sites More sharing options...
Ganjika Posted December 1, 2012 Share Posted December 1, 2012 sorry about double post Link to comment Share on other sites More sharing options...
Ganjika Posted December 9, 2012 Share Posted December 9, 2012 just found out why i might be having a hard time figuring out this mod,the window (fraRecipe in frmeditor_item) **does -not- show up when it is in game**,how can i address this? for reference here is my **fraRecipe**. Thanks for reading, all advice is appreciated.```Option ExplicitPrivate LastIndex As LongPrivate Sub ChkTwoh_Click()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf ChkTwoh.Value = 0 Then Item(EditorIndex).istwohander = FalseElse Item(EditorIndex).istwohander = TrueEnd If' Error handlerExit Suberrorhandler:HandleError "chkTwoh", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub cmbBind_Click()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SubItem(EditorIndex).BindType = cmbBind.ListIndex' Error handlerExit Suberrorhandler:HandleError "cmbBind_Click", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub cmbClassReq_Click()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SubItem(EditorIndex).ClassReq = cmbClassReq.ListIndex' Error handlerExit Suberrorhandler:HandleError "cmbClassReq_Click", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub cmbSound_Click()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf cmbSound.ListIndex >= 0 Then Item(EditorIndex).sound = cmbSound.List(cmbSound.ListIndex)Else Item(EditorIndex).sound = "None."End If' Error handlerExit Suberrorhandler:HandleError "cmdSound_Click", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub cmbTool_Click()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SubItem(EditorIndex).Data3 = cmbTool.ListIndex' Error handlerExit Suberrorhandler:HandleError "cmbTool_Click", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub cmdDelete_Click()Dim tmpIndex As Long' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SubClearItem EditorIndextmpIndex = lstIndex.ListIndexlstIndex.RemoveItem EditorIndex - 1lstIndex.AddItem EditorIndex & ": " & Item(EditorIndex).Name, EditorIndex - 1lstIndex.ListIndex = tmpIndexItemEditorInit' Error handlerExit Suberrorhandler:HandleError "cmdDelete_Click", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub Form_Load()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerscrlPic.max = numitemsscrlAnim.max = MAX_ANIMATIONSscrlPaperdoll.max = NumPaperdolls' Error handlerExit Suberrorhandler:HandleError "Form_Load", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub cmdSave_Click()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerCall ItemEditorOk' Error handlerExit Suberrorhandler:HandleError "cmdSave_Click", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub cmdCancel_Click()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerCall ItemEditorCancel' Error handlerExit Suberrorhandler:HandleError "cmdCancel_Click", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub cmbType_Click()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SubIf (cmbType.ListIndex >= ITEM_TYPE_WEAPON) And (cmbType.ListIndex <= ITEM_TYPE_SHIELD) Then fraEquipment.Visible = True 'scrlDamage_ChangeElse fraEquipment.Visible = FalseEnd IfIf cmbType.ListIndex = ITEM_TYPE_CONSUME Then fraVitals.Visible = True 'scrlVitalMod_ChangeElse fraVitals.Visible = FalseEnd IfIf (cmbType.ListIndex = ITEM_TYPE_SPELL) Then fraSpell.Visible = TrueElse fraSpell.Visible = FalseEnd IfIf (cmbType.ListIndex = ITEM_TYPE_RECIPE) ThenfraRecipe.Visible = TrueElsefraRecipe.Visible = FalseEnd IfItem(EditorIndex).Type = cmbType.ListIndex' Error handlerExit Suberrorhandler:HandleError "cmbType_Click", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub lstIndex_Click()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerItemEditorInit' Error handlerExit Suberrorhandler:HandleError "lstIndex_Click", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlAccessReq_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblAccessReq.Caption = "Access Req: " & scrlAccessReq.ValueItem(EditorIndex).AccessReq = scrlAccessReq.Value' Error handlerExit Suberrorhandler:HandleError "scrlAccessReq_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlAddHp_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerlblAddHP.Caption = "Add HP: " & scrlAddHp.ValueItem(EditorIndex).AddHP = scrlAddHp.Value' Error handlerExit Suberrorhandler:HandleError "scrlAddHP_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlAddMp_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerlblAddMP.Caption = "Add MP: " & scrlAddMP.ValueItem(EditorIndex).AddMP = scrlAddMP.Value' Error handlerExit Suberrorhandler:HandleError "scrlAddMP_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlAddExp_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerlblAddExp.Caption = "Add Exp: " & scrlAddExp.ValueItem(EditorIndex).AddEXP = scrlAddExp.Value' Error handlerExit Suberrorhandler:HandleError "scrlAddExp_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlAnim_Change()Dim sString As String' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SubIf scrlAnim.Value = 0 Then sString = "None"Else sString = Trim$(Animation(scrlAnim.Value).Name)End IflblAnim.Caption = "Anim: " & sStringItem(EditorIndex).Animation = scrlAnim.Value' Error handlerExit Suberrorhandler:HandleError "scrlAnim_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlDamage_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblDamage.Caption = "Damage: " & scrlDamage.ValueItem(EditorIndex).Data2 = scrlDamage.Value' Error handlerExit Suberrorhandler:HandleError "scrlDamage_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlFishing_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerlblFishing.Caption = "Fishing: " & scrlFishing.ValueItem(EditorIndex).FXP = scrlFishing.Value' Error handlerExit Suberrorhandler:HandleError "scrlFishing_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlLevelReq_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblLevelReq.Caption = "Level req: " & scrlLevelReqItem(EditorIndex).LevelReq = scrlLevelReq.Value' Error handlerExit Suberrorhandler:HandleError "scrlLevelReq_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlMining_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerlblMining.Caption = "Mining: " & scrlMining.ValueItem(EditorIndex).MXP = scrlMining.Value' Error handlerExit Suberrorhandler:HandleError "scrlMining_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlPaperdoll_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblPaperdoll.Caption = "Paperdoll: " & scrlPaperdoll.ValueItem(EditorIndex).Paperdoll = scrlPaperdoll.Value' Error handlerExit Suberrorhandler:HandleError "scrlPaperdoll_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlPic_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblPic.Caption = "Pic: " & scrlPic.ValueItem(EditorIndex).Pic = scrlPic.Value' Error handlerExit Suberrorhandler:HandleError "scrlPic_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlPrice_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblPrice.Caption = "Price: " & scrlPrice.ValueItem(EditorIndex).Price = scrlPrice.Value' Error handlerExit Suberrorhandler:HandleError "scrlPrice_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlRarity_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblRarity.Caption = "Rarity: " & scrlRarity.ValueItem(EditorIndex).Rarity = scrlRarity.Value' Error handlerExit Suberrorhandler:HandleError "scrlRarity_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlSpeed_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblSpeed.Caption = "Speed: " & scrlSpeed.Value / 1000 & " sec"Item(EditorIndex).Speed = scrlSpeed.Value' Error handlerExit Suberrorhandler:HandleError "scrlSpeed_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlStatBonus_Change(Index As Integer)Dim text As String' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerSelect Case Index Case 1 text = "+ Str: " Case 2 text = "+ End: " Case 3 text = "+ Int: " Case 4 text = "+ Agi: " Case 5 text = "+ Will: "End SelectlblStatBonus(Index).Caption = text & scrlStatBonus(Index).ValueItem(EditorIndex).Add_Stat(Index) = scrlStatBonus(Index).Value' Error handlerExit Suberrorhandler:HandleError "scrlStatBonus_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlStatReq_Change(Index As Integer)Dim text As String' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerSelect Case Index Case 1 text = "Str: " Case 2 text = "End: " Case 3 text = "Int: " Case 4 text = "Agi: " Case 5 text = "Will: "End SelectlblStatReq(Index).Caption = text & scrlStatReq(Index).ValueItem(EditorIndex).Stat_Req(Index) = scrlStatReq(Index).Value' Error handlerExit Suberrorhandler:HandleError "scrlStatReq_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlSpell_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SubIf Len(Trim$(Spell(scrlSpell.Value).Name)) > 0 Then lblSpellName.Caption = "Name: " & Trim$(Spell(scrlSpell.Value).Name)Else lblSpellName.Caption = "Name: None"End IflblSpell.Caption = "Spell: " & scrlSpell.ValueItem(EditorIndex).Data1 = scrlSpell.Value' Error handlerExit Suberrorhandler:HandleError "scrlSpell_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlWoodcutting_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerlblWoodcutting.Caption = "Woodcuting: " & scrlWoodcutting.ValueItem(EditorIndex).WcXP = scrlWoodcutting.Value' Error handlerExit Suberrorhandler:HandleError "scrlWoodcutting_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub txtDesc_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SubItem(EditorIndex).Desc = txtDesc.text' Error handlerExit Suberrorhandler:HandleError "txtDesc_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub txtName_Validate(Cancel As Boolean)Dim tmpIndex As Long' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SubtmpIndex = lstIndex.ListIndexItem(EditorIndex).Name = Trim$(txtName.text)lstIndex.RemoveItem EditorIndex - 1lstIndex.AddItem EditorIndex & ": " & Item(EditorIndex).Name, EditorIndex - 1lstIndex.ListIndex = tmpIndex' Error handlerExit Suberrorhandler:HandleError "txtName_Validate", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd Sub' projectilePrivate Sub scrlProjectileDamage_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblProjectileDamage.Caption = "Damage: " & scrlProjectileDamage.ValueItem(EditorIndex).ProjecTile.Damage = scrlProjectileDamage.Value' Error handlerExit Suberrorhandler:HandleError "scrlProjectilePic_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd Sub' projectilePrivate Sub scrlProjectilePic_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblProjectilePic.Caption = "Pic: " & scrlProjectilePic.ValueItem(EditorIndex).ProjecTile.Pic = scrlProjectilePic.Value' Error handlerExit Suberrorhandler:HandleError "scrlProjectilePic_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd Sub' ProjecTilePrivate Sub scrlProjectileRange_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblProjectileRange.Caption = "Range: " & scrlProjectileRange.ValueItem(EditorIndex).ProjecTile.Range = scrlProjectileRange.Value' Error handlerExit Suberrorhandler:HandleError "scrlProjectileRange_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd Sub' projectilePrivate Sub scrlProjectileSpeed_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblProjectileSpeed.Caption = "Speed: " & scrlProjectileSpeed.ValueItem(EditorIndex).ProjecTile.Speed = scrlProjectileSpeed.Value' Error handlerExit Suberrorhandler:HandleError "scrlRarity_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlItem1_Change()If scrlItem1.Value > 0 ThenlblItem1.Caption = "Item: " & Trim$(Item(scrlItem1.Value).Name)ElselblItem1.Caption = "Item: None"End IfItem(EditorIndex).Recipe(RecipeIndex) = scrlItem1.ValueEnd SubPrivate Sub scrlItemNum_Change()RecipeIndex = scrlItemNum.ValuelblItemNum.Caption = "Item: " & RecipeIndexscrlItem1.Value = Item(EditorIndex).Recipe(RecipeIndex)End SubPrivate Sub scrlResult_Change()If scrlResult.Value > 0 ThenlblResult.Caption = "Result: " & Trim$(Item(scrlResult.Value).Name)ElselblResult.Caption = "Result: None"End IfItem(EditorIndex).Data3 = scrlResult.ValueEnd SubPrivate Sub scrlSmithReq_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblSmith.Caption = "SM: " & scrlSmithReqItem(EditorIndex).SmithReq = scrlSmithReq.Value' Error handlerExit Suberrorhandler:HandleError "scrlSmithReq_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlEnchantReq_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblEnchants.Caption = "EN: " & scrlEnchantReqItem(EditorIndex).EnchantReq = scrlEnchantReq.Value' Error handlerExit Suberrorhandler:HandleError "scrlSwordReq_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlAlchemyReq_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblAlchemy.Caption = "Cook: " & scrlAlchemyReqItem(EditorIndex).AlchemyReq = scrlAlchemyReq.Value' Error handlerExit Suberrorhandler:HandleError "scrlAlchemyReq_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub chkAL_Click()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SubItem(EditorIndex).Alchemist = chkAL.Value' Error handlerExit Suberrorhandler:HandleError "chkAL_Click", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub chkEN_Click()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SubItem(EditorIndex).Enchanter = chkEN.Value' Error handlerExit Suberrorhandler:HandleError "chkEN_Click", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub chkSM_Click()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SubItem(EditorIndex).Smithy = chkSM.Value' Error handlerExit Suberrorhandler:HandleError "chkSM_Click", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub cmbCTool_Click() If EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit Sub Item(EditorIndex).Tool = cmbCTool.ListIndexEnd Sub``` Link to comment Share on other sites More sharing options...
Ganjika Posted December 12, 2012 Share Posted December 12, 2012 sorry for double post Link to comment Share on other sites More sharing options...
Ganjika Posted December 12, 2012 Share Posted December 12, 2012 I think the problem is that (i could be wrong) "recipe" should be appearing in CmbType in Item Editor (though i could be wrong) - its just not appearing (in game) in the drop down list and hence i dont see part of the mod as i should.UPDATE: My Projectiles window isn't showing up as it should either (like the frarecipe, it just isn't there when in game). any ideas?UPDATE 2: Accidently double posted this when trying to paste this into a PM. sorry about that :'(HOW IT SHOULD LOOK:![](http://i1127.photobucket.com/albums/l632/EsoGuildPB/howitshouldlook.png)HOW IT -DOES- LOOK:![](http://i1127.photobucket.com/albums/l632/EsoGuildPB/isthisnormal.png)Frm_Item_Editor (Client)```Option ExplicitPrivate LastIndex As LongPrivate Sub ChkTwoh_Click()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf ChkTwoh.Value = 0 Then Item(EditorIndex).istwohander = FalseElse Item(EditorIndex).istwohander = TrueEnd If' Error handlerExit Suberrorhandler:HandleError "chkTwoh", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub cmbBind_Click()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SubItem(EditorIndex).BindType = cmbBind.ListIndex' Error handlerExit Suberrorhandler:HandleError "cmbBind_Click", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub cmbClassReq_Click()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SubItem(EditorIndex).ClassReq = cmbClassReq.ListIndex' Error handlerExit Suberrorhandler:HandleError "cmbClassReq_Click", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub cmbSound_Click()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf cmbSound.ListIndex >= 0 Then Item(EditorIndex).sound = cmbSound.List(cmbSound.ListIndex)Else Item(EditorIndex).sound = "None."End If' Error handlerExit Suberrorhandler:HandleError "cmdSound_Click", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub cmbTool_Click()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SubItem(EditorIndex).Data3 = cmbTool.ListIndex' Error handlerExit Suberrorhandler:HandleError "cmbTool_Click", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub cmdDelete_Click()Dim tmpIndex As Long' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SubClearItem EditorIndextmpIndex = lstIndex.ListIndexlstIndex.RemoveItem EditorIndex - 1lstIndex.AddItem EditorIndex & ": " & Item(EditorIndex).Name, EditorIndex - 1lstIndex.ListIndex = tmpIndexItemEditorInit' Error handlerExit Suberrorhandler:HandleError "cmdDelete_Click", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub Form_Load()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerscrlPic.max = numitemsscrlAnim.max = MAX_ANIMATIONSscrlPaperdoll.max = NumPaperdolls' Error handlerExit Suberrorhandler:HandleError "Form_Load", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub cmdSave_Click()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerCall ItemEditorOk' Error handlerExit Suberrorhandler:HandleError "cmdSave_Click", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub cmdCancel_Click()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerCall ItemEditorCancel' Error handlerExit Suberrorhandler:HandleError "cmdCancel_Click", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub cmbType_Click()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SubIf (cmbType.ListIndex >= ITEM_TYPE_WEAPON) And (cmbType.ListIndex <= ITEM_TYPE_SHIELD) Then fraEquipment.Visible = True 'scrlDamage_ChangeElse fraEquipment.Visible = FalseEnd IfIf cmbType.ListIndex = ITEM_TYPE_CONSUME Then fraVitals.Visible = True 'scrlVitalMod_ChangeElse fraVitals.Visible = FalseEnd IfIf (cmbType.ListIndex = ITEM_TYPE_SPELL) Then fraSpell.Visible = TrueElse fraSpell.Visible = FalseEnd IfIf (cmbType.ListIndex = ITEM_TYPE_RECIPE) ThenfraRecipe.Visible = TrueElsefraRecipe.Visible = FalseEnd IfItem(EditorIndex).Type = cmbType.ListIndex' Error handlerExit Suberrorhandler:HandleError "cmbType_Click", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub lstIndex_Click()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerItemEditorInit' Error handlerExit Suberrorhandler:HandleError "lstIndex_Click", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlAccessReq_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblAccessReq.Caption = "Access Req: " & scrlAccessReq.ValueItem(EditorIndex).AccessReq = scrlAccessReq.Value' Error handlerExit Suberrorhandler:HandleError "scrlAccessReq_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlAddHp_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerlblAddHP.Caption = "Add HP: " & scrlAddHp.ValueItem(EditorIndex).AddHP = scrlAddHp.Value' Error handlerExit Suberrorhandler:HandleError "scrlAddHP_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlAddMp_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerlblAddMP.Caption = "Add MP: " & scrlAddMP.ValueItem(EditorIndex).AddMP = scrlAddMP.Value' Error handlerExit Suberrorhandler:HandleError "scrlAddMP_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlAddExp_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerlblAddExp.Caption = "Add Exp: " & scrlAddExp.ValueItem(EditorIndex).AddEXP = scrlAddExp.Value' Error handlerExit Suberrorhandler:HandleError "scrlAddExp_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlAnim_Change()Dim sString As String' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SubIf scrlAnim.Value = 0 Then sString = "None"Else sString = Trim$(Animation(scrlAnim.Value).Name)End IflblAnim.Caption = "Anim: " & sStringItem(EditorIndex).Animation = scrlAnim.Value' Error handlerExit Suberrorhandler:HandleError "scrlAnim_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlDamage_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblDamage.Caption = "Damage: " & scrlDamage.ValueItem(EditorIndex).Data2 = scrlDamage.Value' Error handlerExit Suberrorhandler:HandleError "scrlDamage_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlFishing_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerlblFishing.Caption = "Fishing: " & scrlFishing.ValueItem(EditorIndex).FXP = scrlFishing.Value' Error handlerExit Suberrorhandler:HandleError "scrlFishing_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlLevelReq_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblLevelReq.Caption = "Level req: " & scrlLevelReqItem(EditorIndex).LevelReq = scrlLevelReq.Value' Error handlerExit Suberrorhandler:HandleError "scrlLevelReq_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlMining_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerlblMining.Caption = "Mining: " & scrlMining.ValueItem(EditorIndex).MXP = scrlMining.Value' Error handlerExit Suberrorhandler:HandleError "scrlMining_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlPaperdoll_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblPaperdoll.Caption = "Paperdoll: " & scrlPaperdoll.ValueItem(EditorIndex).Paperdoll = scrlPaperdoll.Value' Error handlerExit Suberrorhandler:HandleError "scrlPaperdoll_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlPic_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblPic.Caption = "Pic: " & scrlPic.ValueItem(EditorIndex).Pic = scrlPic.Value' Error handlerExit Suberrorhandler:HandleError "scrlPic_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlPrice_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblPrice.Caption = "Price: " & scrlPrice.ValueItem(EditorIndex).Price = scrlPrice.Value' Error handlerExit Suberrorhandler:HandleError "scrlPrice_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlRarity_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblRarity.Caption = "Rarity: " & scrlRarity.ValueItem(EditorIndex).Rarity = scrlRarity.Value' Error handlerExit Suberrorhandler:HandleError "scrlRarity_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlSpeed_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblSpeed.Caption = "Speed: " & scrlSpeed.Value / 1000 & " sec"Item(EditorIndex).speed = scrlSpeed.Value' Error handlerExit Suberrorhandler:HandleError "scrlSpeed_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlStatBonus_Change(Index As Integer)Dim text As String' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerSelect Case Index Case 1 text = "+ Str: " Case 2 text = "+ End: " Case 3 text = "+ Int: " Case 4 text = "+ Agi: " Case 5 text = "+ Will: "End SelectlblStatBonus(Index).Caption = text & scrlStatBonus(Index).ValueItem(EditorIndex).Add_Stat(Index) = scrlStatBonus(Index).Value' Error handlerExit Suberrorhandler:HandleError "scrlStatBonus_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlStatReq_Change(Index As Integer)Dim text As String' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerSelect Case Index Case 1 text = "Str: " Case 2 text = "End: " Case 3 text = "Int: " Case 4 text = "Agi: " Case 5 text = "Will: "End SelectlblStatReq(Index).Caption = text & scrlStatReq(Index).ValueItem(EditorIndex).Stat_Req(Index) = scrlStatReq(Index).Value' Error handlerExit Suberrorhandler:HandleError "scrlStatReq_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlSpell_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SubIf Len(Trim$(Spell(scrlSpell.Value).Name)) > 0 Then lblSpellName.Caption = "Name: " & Trim$(Spell(scrlSpell.Value).Name)Else lblSpellName.Caption = "Name: None"End IflblSpell.Caption = "Spell: " & scrlSpell.ValueItem(EditorIndex).Data1 = scrlSpell.Value' Error handlerExit Suberrorhandler:HandleError "scrlSpell_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlWoodcutting_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerlblWoodcutting.Caption = "Woodcuting: " & scrlWoodcutting.ValueItem(EditorIndex).WcXP = scrlWoodcutting.Value' Error handlerExit Suberrorhandler:HandleError "scrlWoodcutting_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub txtDesc_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SubItem(EditorIndex).Desc = txtDesc.text' Error handlerExit Suberrorhandler:HandleError "txtDesc_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub txtName_Validate(Cancel As Boolean)Dim tmpIndex As Long' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SubtmpIndex = lstIndex.ListIndexItem(EditorIndex).Name = Trim$(txtName.text)lstIndex.RemoveItem EditorIndex - 1lstIndex.AddItem EditorIndex & ": " & Item(EditorIndex).Name, EditorIndex - 1lstIndex.ListIndex = tmpIndex' Error handlerExit Suberrorhandler:HandleError "txtName_Validate", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd Sub' projectilePrivate Sub scrlProjectileDamage_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblProjectileDamage.Caption = "Damage: " & scrlProjectileDamage.ValueItem(EditorIndex).ProjecTile.Damage = scrlProjectileDamage.Value' Error handlerExit Suberrorhandler:HandleError "scrlProjectilePic_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd Sub' projectilePrivate Sub scrlProjectilePic_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblProjectilePic.Caption = "Pic: " & scrlProjectilePic.ValueItem(EditorIndex).ProjecTile.Pic = scrlProjectilePic.Value' Error handlerExit Suberrorhandler:HandleError "scrlProjectilePic_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd Sub' ProjecTilePrivate Sub scrlProjectileRange_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblProjectileRange.Caption = "Range: " & scrlProjectileRange.ValueItem(EditorIndex).ProjecTile.Range = scrlProjectileRange.Value' Error handlerExit Suberrorhandler:HandleError "scrlProjectileRange_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd Sub' projectilePrivate Sub scrlProjectileSpeed_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblProjectileSpeed.Caption = "Speed: " & scrlProjectileSpeed.ValueItem(EditorIndex).ProjecTile.speed = scrlProjectileSpeed.Value' Error handlerExit Suberrorhandler:HandleError "scrlRarity_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlItem1_Change()If scrlItem1.Value > 0 ThenlblItem1.Caption = "Item: " & Trim$(Item(scrlItem1.Value).Name)ElselblItem1.Caption = "Item: None"End IfItem(EditorIndex).Recipe(RecipeIndex) = scrlItem1.ValueEnd SubPrivate Sub scrlItemNum_Change()RecipeIndex = scrlItemNum.ValuelblItemNum.Caption = "Item: " & RecipeIndexscrlItem1.Value = Item(EditorIndex).Recipe(RecipeIndex)End SubPrivate Sub scrlResult_Change()If scrlResult.Value > 0 ThenlblResult.Caption = "Result: " & Trim$(Item(scrlResult.Value).Name)ElselblResult.Caption = "Result: None"End IfItem(EditorIndex).Data3 = scrlResult.ValueEnd SubPrivate Sub scrlSmithReq_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblSmith.Caption = "SM: " & scrlSmithReqItem(EditorIndex).SmithReq = scrlSmithReq.Value' Error handlerExit Suberrorhandler:HandleError "scrlSmithReq_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlEnchantReq_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblEnchants.Caption = "EN: " & scrlEnchantReqItem(EditorIndex).EnchantReq = scrlEnchantReq.Value' Error handlerExit Suberrorhandler:HandleError "scrlSwordReq_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub scrlAlchemyReq_Change()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SublblAlchemy.Caption = "Cook: " & scrlAlchemyReqItem(EditorIndex).AlchemyReq = scrlAlchemyReq.Value' Error handlerExit Suberrorhandler:HandleError "scrlAlchemyReq_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub chkAL_Click()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SubItem(EditorIndex).Alchemist = chkAL.Value' Error handlerExit Suberrorhandler:HandleError "chkAL_Click", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub chkEN_Click()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SubItem(EditorIndex).Enchanter = chkEN.Value' Error handlerExit Suberrorhandler:HandleError "chkEN_Click", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub chkSM_Click()' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo errorhandlerIf EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit SubItem(EditorIndex).Smithy = chkSM.Value' Error handlerExit Suberrorhandler:HandleError "chkSM_Click", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd SubPrivate Sub cmbCTool_Click() If EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit Sub Item(EditorIndex).Tool = cmbCTool.ListIndexEnd Sub```and becuase i feel like folks might wanna see my modconstants too (client):```Option Explicit' API DeclaresPublic Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByRef msg() As Byte, ByVal wParam As Long, ByVal lParam As Long) As LongPublic Declare Function GetForegroundWindow Lib "user32" () As Long' animated buttonsPublic Const MAX_MENUBUTTONS As Long = 4Public Const MAX_MAINBUTTONS As Long = 9Public Const MENUBUTTON_PATH As String = "\Data Files\graphics\gui\menu\buttons\"Public Const MAINBUTTON_PATH As String = "\Data Files\graphics\gui\main\buttons\"' HotbarPublic Const HotbarTop As Long = 2Public Const HotbarLeft As Long = 2Public Const HotbarOffsetX As Long = 8' Inventory constantsPublic Const InvTop As Long = 24Public Const InvLeft As Long = 12Public Const InvOffsetY As Long = 3Public Const InvOffsetX As Long = 3Public Const InvColumns As Long = 5' Bank constantsPublic Const BankTop As Long = 38Public Const BankLeft As Long = 42Public Const BankOffsetY As Long = 3Public Const BankOffsetX As Long = 4Public Const BankColumns As Long = 11' spells constantsPublic Const SpellTop As Long = 24Public Const SpellLeft As Long = 12Public Const SpellOffsetY As Long = 3Public Const SpellOffsetX As Long = 3Public Const SpellColumns As Long = 5' shop constantsPublic Const ShopTop As Long = 6Public Const ShopLeft As Long = 8Public Const ShopOffsetY As Long = 2Public Const ShopOffsetX As Long = 4Public Const ShopColumns As Long = 5' Character constsPublic Const EqTop As Long = 224Public Const EqLeft As Long = 18Public Const EqOffsetX As Long = 10Public Const EqColumns As Long = 4' valuesPublic Const MAX_BYTE As Byte = 255Public Const MAX_INTEGER As Integer = 32767Public Const MAX_LONG As Long = 2147483647' path constantsPublic Const SOUND_PATH As String = "\Data Files\sound\"Public Const MUSIC_PATH As String = "\Data Files\music\"' Font variablesPublic Const FONT_NAME As String = "Georgia"Public Const FONT_SIZE As Byte = 14' Log Path and variablesPublic Const LOG_DEBUG As String = "debug.txt"Public Const LOG_PATH As String = "\Data Files\logs\"' Map Path and variablesPublic Const MAP_PATH As String = "\Data Files\maps\"Public Const MAP_EXT As String = ".map"' Gfx Path and variablesPublic Const GFX_PATH As String = "\Data Files\graphics\"Public Const GFX_EXT As String = ".png"Public Const FONT_PATH As String = "\data files\graphics\fonts\"' Key constantsPublic Const VK_UP As Long = &H26Public Const VK_DOWN As Long = &H28Public Const VK_LEFT As Long = &H25Public Const VK_RIGHT As Long = &H27Public Const VK_SHIFT As Long = &H10Public Const VK_RETURN As Long = &HDPublic Const VK_CONTROL As Long = &H11' Menu statesPublic Const MENU_STATE_NEWACCOUNT As Byte = 0Public Const MENU_STATE_DELACCOUNT As Byte = 1Public Const MENU_STATE_LOGIN As Byte = 2Public Const MENU_STATE_GETCHARS As Byte = 3Public Const MENU_STATE_NEWCHAR As Byte = 4Public Const MENU_STATE_ADDCHAR As Byte = 5Public Const MENU_STATE_DELCHAR As Byte = 6Public Const MENU_STATE_USECHAR As Byte = 7Public Const MENU_STATE_INIT As Byte = 8' Speed moving varsPublic Const WALK_SPEED As Byte = 4Public Const RUN_SPEED As Byte = 6Public Const ADMIN_SPEED As Byte = 18' Tile size constantsPublic Const PIC_X As Long = 32Public Const PIC_Y As Long = 32' Sprite, item, spell size constantsPublic Const SIZE_X As Long = 32Public Const SIZE_Y As Long = 32' ********************************************************' * The values below must match with the server's values *' ********************************************************' General constantsPublic Const MAX_PLAYERS As Long = 70Public Const MAX_ITEMS As Long = 255Public Const MAX_NPCS As Long = 255Public Const MAX_ANIMATIONS As Long = 255Public Const MAX_INV As Long = 35Public Const MAX_MAP_ITEMS As Long = 255Public Const MAX_MAP_NPCS As Long = 100Public Const MAX_SHOPS As Long = 50Public Const MAX_PLAYER_SPELLS As Long = 35Public Const MAX_SPELLS As Long = 255Public Const MAX_TRADES As Long = 30Public Const MAX_RESOURCES As Long = 100Public Const MAX_LEVELS As Long = 100Public Const MAX_BANK As Long = 99Public Const MAX_HOTBAR As Long = 12Public Const MAX_PARTYS As Long = 35Public Const MAX_PARTY_MEMBERS As Long = 4Public Const MAX_SWITCHES As Long = 1000Public Const MAX_VARIABLES As Long = 1000Public Const MAX_WEATHER_PARTICLES As Long = 250Public Const MAX_PLAYER_PROJECTILES As Long = 20' WebsitePublic Const GAME_WEBSITE As String = "http://www.touchofdeathforums.com"' text color constantsPublic Const Black As Byte = 0Public Const Blue As Byte = 1Public Const Green As Byte = 2Public Const Cyan As Byte = 3Public Const Red As Byte = 4Public Const Magenta As Byte = 5Public Const Brown As Byte = 6Public Const Grey As Byte = 7Public Const DarkGrey As Byte = 8Public Const BrightBlue As Byte = 9Public Const BrightGreen As Byte = 10Public Const BrightCyan As Byte = 11Public Const BrightRed As Byte = 12Public Const Pink As Byte = 13Public Const Yellow As Byte = 14Public Const White As Byte = 15Public Const DarkBrown As Byte = 16Public Const Orange As Byte = 17Public Const GoldenYellow As Byte = 18Public Const Capri As Byte = 19Public Const SayColor As Byte = WhitePublic Const GlobalColor As Byte = CyanPublic Const BroadcastColor As Byte = WhitePublic Const TellColor As Byte = BrightGreenPublic Const EmoteColor As Byte = BrightCyanPublic Const AdminColor As Byte = BrightCyanPublic Const HelpColor As Byte = CyanPublic Const WhoColor As Byte = BrightGreenPublic Const JoinLeftColor As Byte = DarkGreyPublic Const NpcColor As Byte = BrownPublic Const AlertColor As Byte = RedPublic Const NewMapColor As Byte = BrightGreen' Boolean constantsPublic Const NO As Byte = 0Public Const YES As Byte = 1' String constantsPublic Const NAME_LENGTH As Byte = 20Public Const MUSIC_LENGTH As Byte = 40Public Const ACCOUNT_LENGTH As Byte = 12' Sex constantsPublic Const SEX_MALE As Byte = 0Public Const SEX_FEMALE As Byte = 1' Map constantsPublic Const MAX_MAPS As Long = 100Public MAX_MAPX As BytePublic MAX_MAPY As BytePublic Const MAP_MORAL_NONE As Byte = 0Public Const MAP_MORAL_SAFE As Byte = 1' Tile constantsPublic Const TILE_TYPE_WALKABLE As Byte = 0Public Const TILE_TYPE_BLOCKED As Byte = 1Public Const TILE_TYPE_WARP As Byte = 2Public Const TILE_TYPE_ITEM As Byte = 3Public Const TILE_TYPE_NPCAVOID As Byte = 4Public Const TILE_TYPE_KEY As Byte = 5Public Const TILE_TYPE_KEYOPEN As Byte = 6Public Const TILE_TYPE_RESOURCE As Byte = 7Public Const TILE_TYPE_DOOR As Byte = 8Public Const TILE_TYPE_NPCSPAWN As Byte = 9Public Const TILE_TYPE_SHOP As Byte = 10Public Const TILE_TYPE_BANK As Byte = 11Public Const TILE_TYPE_HEAL As Byte = 12Public Const TILE_TYPE_TRAP As Byte = 13Public Const TILE_TYPE_SLIDE As Byte = 14Public Const TILE_TYPE_SOUND As Byte = 15Public Const TILE_TYPE_CHECKPOINT As Byte = 16Public Const TILE_TYPE_ARENA As Byte = 17Public Const TILE_TYPE_CRAFT As Byte = 18' max number of crafting itemsPublic Const MAX_RECIPE_ITEMS As Long = 5'Weather Type ConstantsPublic Const WEATHER_TYPE_NONE As Byte = 0Public Const WEATHER_TYPE_RAIN As Byte = 1Public Const WEATHER_TYPE_SNOW As Byte = 2Public Const WEATHER_TYPE_HAIL As Byte = 3Public Const WEATHER_TYPE_SANDSTORM As Byte = 4Public Const WEATHER_TYPE_STORM As Byte = 5' Item constantsPublic Const ITEM_TYPE_NONE As Byte = 0Public Const ITEM_TYPE_WEAPON As Byte = 1Public Const ITEM_TYPE_ARMOR As Byte = 2Public Const ITEM_TYPE_HELMET As Byte = 3Public Const ITEM_TYPE_SHIELD As Byte = 4Public Const ITEM_TYPE_CONSUME As Byte = 5Public Const ITEM_TYPE_KEY As Byte = 6Public Const ITEM_TYPE_CURRENCY As Byte = 7Public Const ITEM_TYPE_SPELL As Byte = 8Public Const ITEM_TYPE_RECIPE As Byte = 10Public Const ITEM_TYPE_SUMMON As Byte = 9' Direction constantsPublic Const DIR_UP As Byte = 0Public Const DIR_DOWN As Byte = 1Public Const DIR_LEFT As Byte = 2Public Const DIR_RIGHT As Byte = 3' Constants for player movement: Tiles per SecondPublic Const MOVING_WALKING As Byte = 1Public Const MOVING_RUNNING As Byte = 2' Admin constantsPublic Const ADMIN_MONITOR As Byte = 1Public Const ADMIN_MAPPER As Byte = 2Public Const ADMIN_DEVELOPER As Byte = 3Public Const ADMIN_CREATOR As Byte = 4' NPC constantsPublic Const NPC_BEHAVIOUR_ATTACKONSIGHT As Byte = 0Public Const NPC_BEHAVIOUR_ATTACKWHENATTACKED As Byte = 1Public Const NPC_BEHAVIOUR_FRIENDLY As Byte = 2Public Const NPC_BEHAVIOUR_SHOPKEEPER As Byte = 3Public Const NPC_BEHAVIOUR_GUARD As Byte = 4' Spell constantsPublic Const SPELL_TYPE_DAMAGEHP As Byte = 0Public Const SPELL_TYPE_DAMAGEMP As Byte = 1Public Const SPELL_TYPE_HEALHP As Byte = 2Public Const SPELL_TYPE_HEALMP As Byte = 3Public Const SPELL_TYPE_WARP As Byte = 4' Game editor constantsPublic Const EDITOR_ITEM As Byte = 1Public Const EDITOR_NPC As Byte = 2Public Const EDITOR_SPELL As Byte = 3Public Const EDITOR_SHOP As Byte = 4Public Const EDITOR_RESOURCE As Byte = 5Public Const EDITOR_ANIMATION As Byte = 6' Target type constantsPublic Const TARGET_TYPE_NONE As Byte = 0Public Const TARGET_TYPE_PLAYER As Byte = 1Public Const TARGET_TYPE_NPC As Byte = 2Public Const TARGET_TYPE_EVENT As Byte = 4' Dialogue box constantsPublic Const DIALOGUE_TYPE_NONE As Byte = 0Public Const DIALOGUE_TYPE_TRADE As Byte = 1Public Const DIALOGUE_TYPE_FORGET As Byte = 2Public Const DIALOGUE_TYPE_PARTY As Byte = 3' Do EventsPublic Const nLng As Long = (&H80 Or &H1 Or &H4 Or &H20) + (&H8 Or &H40)' Scrolling action message constantsPublic Const ACTIONMSG_STATIC As Long = 0Public Const ACTIONMSG_SCROLL As Long = 1Public Const ACTIONMSG_SCREEN As Long = 2' stuffsPublic HalfX As IntegerPublic HalfY As IntegerPublic ScreenX As IntegerPublic ScreenY As IntegerPublic StartXValue As IntegerPublic StartYValue As IntegerPublic EndXValue As IntegerPublic EndYValue As Integer' AutotilesPublic Const AUTO_INNER As Byte = 1Public Const AUTO_OUTER As Byte = 2Public Const AUTO_HORIZONTAL As Byte = 3Public Const AUTO_VERTICAL As Byte = 4Public Const AUTO_FILL As Byte = 5' Autotile typesPublic Const AUTOTILE_NONE As Byte = 0Public Const AUTOTILE_NORMAL As Byte = 1Public Const AUTOTILE_FAKE As Byte = 2Public Const AUTOTILE_ANIM As Byte = 3Public Const AUTOTILE_CLIFF As Byte = 4Public Const AUTOTILE_WATERFALL As Byte = 5' RenderingPublic Const RENDER_STATE_NONE As Long = 0Public Const RENDER_STATE_NORMAL As Long = 1Public Const RENDER_STATE_AUTOTILE As Long = 2'ChatbubblePublic Const ChatBubbleWidth As Long = 200Public Const EFFECT_TYPE_FADEIN As Long = 1Public Const EFFECT_TYPE_FADEOUT As Long = 2Public Const EFFECT_TYPE_FLASH As Long = 3Public Const EFFECT_TYPE_FOG As Long = 4Public Const EFFECT_TYPE_WEATHER As Long = 5Public Const EFFECT_TYPE_TINT As Long = 6Public Const cmbCTool As Long = 1``` Link to comment Share on other sites More sharing options...
MCADAMS Posted December 12, 2012 Share Posted December 12, 2012 PENTAPOST! Link to comment Share on other sites More sharing options...
Ganjika Posted December 13, 2012 Share Posted December 13, 2012 Not sure if there is supposed to be a 'Recipe" selection in drop-down (cmbtype) that makes frarecipe visable but:Found out I could at least get frarecipe visable (if i so much as use the dropdown menu that is cmbtype after switching the below'frarecipe.visable=false' to true and it will become visable but it will subscript out of range if i (i think) try to ask it to do something its not supposed to since it doesnt go away even after clicking "none" in cmbtype, i turned it back to normal and decided to post here. projectiles is still missing in action but i can see it in VB6.Sorry to post so much on this topic, I -do- still plan on releasing a working version of eclipse with this feature on it in its working form as soon as I can figure out A) how it works and ![B)](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/cool.png) how to get it working -![](http://i1127.photobucket.com/albums/l632/EsoGuildPB/crafting2.png)Also: The 'Crafting Tool:' dropdown reads correctly but it doesn't stick (i dont think) when i return to item editor it just says "Combo1".Below is the part of Frm_Editor_Item (in cmbType) which talks about Item_Type_Recipe```If (cmbType.ListIndex = ITEM_TYPE_RECIPE) ThenfraRecipe.Visible = TrueElsefraRecipe.Visible = FalseEnd IfItem(EditorIndex).Type = cmbType.ListIndex```Below is the part that (as ar as I know) works. Lets get this whole entire thing working so we can put it out for the entirecommunity to utilize.![](http://i1127.photobucket.com/albums/l632/EsoGuildPB/crafting.png)![](http://i1127.photobucket.com/albums/l632/EsoGuildPB/crafting3.png)![](http://i1127.photobucket.com/albums/l632/EsoGuildPB/craft4.png)UPDATE: -Matthew- took a look at my project and fixed the Projectiles window (it wsnt popping up at the right time)but we still need to figure out why/how to get the crafting area (fraRecipe) to pop up at the right time as well asfiguring out how to get cmbCTool functional - currently it reads and shows up right but if you set an item with cmbCTool(to say "dwarf hammer" for example) it just goes back to "none" when i reload the item editor. Link to comment Share on other sites More sharing options...
Rydo Posted December 18, 2012 Share Posted December 18, 2012 Do you think this would work with eclipse reborn? ![:D](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/biggrin.png) Link to comment Share on other sites More sharing options...
Larias Posted February 8, 2013 Share Posted February 8, 2013 Just wanted to say thanks! Works fantastic. 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