Robin Posted January 4, 2011 Share Posted January 4, 2011 The HandleUseItem procedure calls another procedure called 'UseItem' or something. Go find that procedure. Link to comment Share on other sites More sharing options...
amadman Posted January 4, 2011 Share Posted January 4, 2011 Great thanks!I am hunting :) Link to comment Share on other sites More sharing options...
Robin Posted January 4, 2011 Share Posted January 4, 2011 @amadman:> I am hunting :)No need to hunt. You'll find the name in the packet handler. Just Ctrl & F for it. Link to comment Share on other sites More sharing options...
amadman Posted January 4, 2011 Share Posted January 4, 2011 Lol… Good to know. I was searching mod by mod and did not notice I could search by the whole project.I did finaly find it in the modplayer though.I am a little slow but I will hopefully get it at some point. :)Thanks again for all your help. Link to comment Share on other sites More sharing options...
elementaldisaster Posted January 31, 2011 Share Posted January 31, 2011 > Within the same sub, find:> Code: [Select]> ' CurrencyCant find it… :/ Link to comment Share on other sites More sharing options...
The New World Posted February 27, 2011 Share Posted February 27, 2011 ```Case ITEM_TYPE_RECIPE        ' Get the recipe information        Item1 = Item(GetPlayerInvItemNum(Index, invNum)).Data1        Item2 = Item(GetPlayerInvItemNum(Index, invNum)).Data2        Result = Item(GetPlayerInvItemNum(Index, invNum)).Data3        ' Perform Recipe checks        If Item1 <= 0 Or Item2 <= 0 Or Result <= 0 Then          Call PlayerMsg(Index, "This is an incomplete recipe...", White)          Exit Sub        End If        If GetPlayerEquipment(Index, Weapon) <= 0 Then          Call PlayerMsg(Index, "You don't have the proper tool equipped!", White)          Exit Sub        End If        If Item(GetPlayerEquipment(Index, Weapon)).Tool = Item(GetPlayerInvItemNum(Index, invNum)).ToolReq Then          ' Give the resulting item          If HasItem(Index, Item1) And HasItem(Index, Item2) Then            Call TakeInvItem(Index, Item1, 1)            Call TakeInvItem(Index, Item2, 1)            Call GiveInvItem(Index, Result, 1)            Call TakeInvItem(Index, GetPlayerInvItemNum(Index, invNum), 0)            Call PlayerMsg(Index, "You have successfully created " & Trim(Item(Result).Name) & ".", White)          Else            Call PlayerMsg(Index, "You do not have all of the ingredients.", White)            Exit Sub          End If        Else          Call PlayerMsg(Index, "This is not the tool used in this recipe.", White)          Exit Sub        End If```I cleaned this part of it up for you. :) Link to comment Share on other sites More sharing options...
OmegaRedd Posted March 16, 2011 Share Posted March 16, 2011 @elementaldisaster:> Cant find it… :/Same.. :[ Link to comment Share on other sites More sharing options...
The New World Posted March 17, 2011 Share Posted March 17, 2011 For those who're using Eclipse Origins v2bSKIP this part of the tutorial.> In **modGameLogic**> Find the **UpdateDescWindow** sub> > Near the top of the sub, find:> ```> Dim Name As String> ```> Add this below:> ```> Dim Item1 As Long> Dim Item2 As Long> ```> Within the same sub, find:> ```> ' Currency> ```> Add this Above:> ```> If Item(itemnum).Type = ITEM_TYPE_WEAPON Then> Â Â Â Â Â Â .lblItemDescStats.Caption = "Damage: " & Item(itemnum).Data2> Â Â Â Â Â Â Select Case Item(itemnum).Tool> Â Â Â Â Â Â Â Â Case 0> Â Â Â Â Â Â Â Â Â Â .lblItemDescType = "None."> Â Â Â Â Â Â Â Â Case 1> Â Â Â Â Â Â Â Â Â Â .lblItemDescType = "Crafting Tool"> Â Â Â Â Â Â Â Â Case 2> Â Â Â Â Â Â Â Â Â Â .lblItemDescType = "Alchemy Tool"> Â Â Â Â Â Â End Select> Â Â Â Â End If> Â Â Â Â > Â Â Â Â If Item(itemnum).Type = ITEM_TYPE_RECIPE Then> Â Â Â Â Â Â .lblItemDescStats.Caption = "A " & Trim$(Item(Item1).Name) & " and " & Trim$(Item(Item2).Name)> Â Â Â Â Â Â Select Case Item(itemnum).ToolReq> Â Â Â Â Â Â Â Â Case 0> Â Â Â Â Â Â Â Â Â Â .lblItemDescType = "No tool required."> Â Â Â Â Â Â Â Â Case 1> Â Â Â Â Â Â Â Â Â Â .lblItemDescType = "Crafting Tool"> Â Â Â Â Â Â Â Â Case 2> Â Â Â Â Â Â Â Â Â Â .lblItemDescType = "Alchemy Tool"> Â Â Â Â Â Â End Select> Â Â Â Â End If> ``` Link to comment Share on other sites More sharing options...
EclipseCommunity Posted March 17, 2011 Share Posted March 17, 2011 This sure as hell is a pain in the ass to convert to 2.0.0.I might remove this tutorial from my code and write my own, easier. :huh: Link to comment Share on other sites More sharing options...
The New World Posted March 17, 2011 Share Posted March 17, 2011 It's really easy if you know what you're doing. >_> If anyone want's I'll re-write the instructions, makes it a tad easier to follow. Link to comment Share on other sites More sharing options...
RyokuHasu Posted March 17, 2011 Share Posted March 17, 2011 *bows to Ukiyo*Your a life saver >.< i still fail at most Simple tasks Link to comment Share on other sites More sharing options...
The New World Posted March 17, 2011 Share Posted March 17, 2011 EDIT: Combined a few checks in the Case ITEM_TYPE_RECIPE.**Server Side Modifications**modTypes -> _Private Type ItemRec_ (Before End Type)Add:```Tool As LongToolReq As Long```modConstants -> Under Line: Public Const ITEM_TYPE_SPELL As Byte = 8 (Default EO2 Value)Add:```Public Const ITEM_TYPE_RECIPE As Byte = 9```modPlayer -> _Public Sub UseItem_Below:```Set Buffer = Nothing```Add:```Dim Item1 As Long, Item2, Result```Also, towards the bottom of the sub Find:```End Select```Before that Add:```Case ITEM_TYPE_RECIPE        ' Get the recipe information        Item1 = Item(GetPlayerInvItemNum(Index, invNum)).Data1        Item2 = Item(GetPlayerInvItemNum(Index, invNum)).Data2        Result = Item(GetPlayerInvItemNum(Index, invNum)).Data3        ' Perform Recipe checks        If Item1 <= 0 Or Item2 <= 0 Or Result <= 0 Then          Call PlayerMsg(Index, "This is an incomplete recipe...", White)          Exit Sub        End If        If GetPlayerEquipment(Index, Weapon) <= 0 Then          Call PlayerMsg(Index, "You don't have the proper tool equipped!", White)          Exit Sub        End If        If Item(GetPlayerEquipment(Index, Weapon)).Tool = Item(GetPlayerInvItemNum(Index, invNum)).ToolReq Then          ' Give the resulting item          If HasItem(Index, Item1) And HasItem(Index, Item2) Then            Call TakeInvItem(Index, Item1, 1)            Call TakeInvItem(Index, Item2, 1)            Call GiveInvItem(Index, Result, 1)            Call TakeInvItem(Index, GetPlayerInvItemNum(Index, invNum), 0)            Call PlayerMsg(Index, "You have successfully created " & Trim(Item(Result).Name) & ".", White)          Else            Call PlayerMsg(Index, "You do not have all of the ingredients.", White)            Exit Sub          End If        Else          Call PlayerMsg(Index, "This is not the tool used in this recipe.", White)          Exit Sub        End If```End of **Server Side Modifications****Client Side Modifications**modTypes -> _Private Type ItemRec_ (Before End Type)Add:```Tool As LongToolReq As Long```modConstants -> Under Line: Public Const ITEM_TYPE_SPELL As Byte = 8 (Default EO2 Value)Add:```Public Const ITEM_TYPE_RECIPE As Byte = 9```modGameEditors -> Find:```If (frmEditor_Item.cmbType.ListIndex = ITEM_TYPE_SPELL) Then      frmEditor_Item.fraSpell.Visible = True      frmEditor_Item.scrlSpell.Value = .Data1    Else      frmEditor_Item.fraSpell.Visible = False    End If```Below Add:```If (frmEditor_Item.cmbType.ListIndex = ITEM_TYPE_RECIPE) Then      frmEditor_Item.fraRecipe.Visible = True      frmEditor_Item.scrlItem1.Value = .Data1      frmEditor_Item.scrlItem2.Value = .Data2      frmEditor_Item.scrlResult.Value = .Data3      frmEditor_Item.cmbCToolReq.ListIndex = .ToolReq    Else      frmEditor_Item.fraRecipe.Visible = False    End If```Go to the OP for the form work. It's very easy to follow. Link to comment Share on other sites More sharing options...
OmegaRedd Posted March 17, 2011 Share Posted March 17, 2011 Woot thanks :D Link to comment Share on other sites More sharing options...
RyokuHasu Posted March 17, 2011 Share Posted March 17, 2011 EDIT: Opps was looking at a diffrent tutorial when i wrote this… edited it out*glomps Yukiyo* THANK YOU!!!! =D Link to comment Share on other sites More sharing options...
The New World Posted March 17, 2011 Share Posted March 17, 2011 Combined a few checks in the Case ITEM_TYPE_RECIPE. Link to comment Share on other sites More sharing options...
EclipseCommunity Posted March 18, 2011 Share Posted March 18, 2011 And don't overwrite your EO 2.0 forms with the ones attached to the OP, like I did lol.The problem I'm getting, is that it says "You don't have the proper tool equipped". I've followed the tutorial correctly and tried to fix this but I can't seem to figure it out. I've set it so that the tool required is "None" in the item editor. Link to comment Share on other sites More sharing options...
RyokuHasu Posted March 18, 2011 Share Posted March 18, 2011 you still have to wear a weapon  =P i just figured that one out XD Link to comment Share on other sites More sharing options...
Saitonashi Posted March 19, 2011 Share Posted March 19, 2011 I have a problem with this scrypt. I am doing everything as expected but when I make a recipe, for example, ore + ore = sword it, nothing happens when I click on the recipe. Could someone write a complete tutorial, step by step how to do alchemy for EO v.2.0.0? Link to comment Share on other sites More sharing options...
The New World Posted March 19, 2011 Share Posted March 19, 2011 Crafting / Blacksmithing / Alchemy, are all just different titles on what this script does. They're all relatively the same in this concept. Thus the addition to the title 'etc.' Link to comment Share on other sites More sharing options...
Saitonashi Posted March 19, 2011 Share Posted March 19, 2011 I was thinking just about Crafting / Blacksmithing / Alchemy, etc. So I asked someone wrote the same script, step by step to the EO v.2.0.0 because something does not work I am doing as a tutorial. Link to comment Share on other sites More sharing options...
The New World Posted March 19, 2011 Share Posted March 19, 2011 [This might help. :)](http://www.touchofdeathforums.com/smf/index.php/topic,64806.msg754735.html#msg754735) Link to comment Share on other sites More sharing options...
Saitonashi Posted March 20, 2011 Share Posted March 20, 2011 JUST ME THIS TUTORIAL DOES NOT WORK!!!! Link to comment Share on other sites More sharing options...
The New World Posted March 20, 2011 Share Posted March 20, 2011 Just you, you do not read.[Click.](http://www.touchofdeathforums.com/smf/index.php/topic,64806.msg754735.html#msg754735) Link to comment Share on other sites More sharing options...
EclipseCommunity Posted March 21, 2011 Share Posted March 21, 2011 Thanks Yukiyo Link to comment Share on other sites More sharing options...
The New World Posted March 21, 2011 Share Posted March 21, 2011 You're very welcome. 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