Ganjika Posted November 25, 2012 Author Share Posted November 25, 2012 > Add RecipeIndex as Long to modGlobals~~anywhere in particular or just at bottom or anywhere?~~I put it on the bottom and put "public" in front of it and it worked but i still get a compile error, although it almost nearly fully compiles so we are close to resolution!, I see a VARIABLE NOT DEFINED upon compile (with highlighted _cmbCTool_) on frmEditor_Item.**frmEditor_Item**```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...
kris_hole Posted November 25, 2012 Share Posted November 25, 2012 That means that it's looking for an object names CbmCTool. Wherever this is meant to be check you haven't deleted it.It's looking for an actual object on a form. Not part of the code. Link to comment Share on other sites More sharing options...
Ganjika Posted November 26, 2012 Author Share Posted November 26, 2012 I forgot to name the dropdown properly, I CAN now compile AND run BOTH client & server! Now the only error is when I try to place a crafting tile it crashes with a "Unrecovered Dx8 Error" - I have had this work in Dragon Eclipse Dx8 Nightly before, So there -is- a way. ![:P](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/tongue.png)UPDATE: found another bug: the crafting window (in picattributes… frarecipe in particular stands in the way of ALL otherattribute 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. Link to comment Share on other sites More sharing options...
kris_hole Posted November 26, 2012 Share Posted November 26, 2012 Well I don't know much about DX8, so i don't think I can help you much there. Perhaps it's that whatever is meant the be rendered on the tile isn't rendering 'causing the error. Like a missing texture or something? Link to comment Share on other sites More sharing options...
Ganjika Posted November 26, 2012 Author Share Posted November 26, 2012 I did do the following which might be a part of it:In modText, FIND``` Case TILE_TYPE_CRAFTDrawText TexthDC, tx, ty, "CR", QBColor(White)```and changed Drawtext to Rendertext and TextTHdc to font_default. Link to comment Share on other sites More sharing options...
Ganjika Posted November 26, 2012 Author Share Posted November 26, 2012 Got it working with Dragon Eclipse 3.0 Nightly Dx8 using information from this conversation and this one at the OP and in its follow up posts : http://www.touchofdeathforums.com/community/index.php?/topic/129353-dynamic-crafting-system/page__st__40#entry867323 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