[EO] Crafting, Blacksmithing, Alchemy, Ect. v.2.0.0

[Whitepinkbun]

Took about 3 mins to implement into my game in EO 2 its not hard make sure you read the whole topic before you start changing things in your game and before you start bashing a great programer and a great piece of code. Thanks for the great contribution :)

[DarkDino]

Hey help me D:, i select a tool in the cmbCToolReq and no save…
The cmb return to NONE. Please help D;!.

PD: Sorry for my english D:!.

[Ansonla]


[erkro1]

@Ansonla:

> -picture-

@DJMaxus:

> In **modHandleData**
> Find the **HandleUseItem** sub.
>
> Near the top of the sub, find:
> ```
> Set Buffer = Nothing
> ```
> Add this below:
> ```
> Dim Item1 As Long
>     Dim Item2 As Long
>     Dim Result As Long
> ```

[Ansonla]

i did.

[erkro1]

You put it in UseItem, not HandleUseItem

[RyokuHasu]

XD your telling me thats the one thing that made me give up on this mod and make my own (better) version? lol

[DJMaxus]

@RyokuHasu:

> make my own (better) version? lol

That's what I encourage people to do in the first place.

[RyokuHasu]

;D I know, but I never got yours to work in the first place.

Now i have 2-9 item crafting =D

[DJMaxus]

@RyokuHasu:

> ;D I know, but I never got yours to work in the first place.
>
> Now i have 2-9 item crafting =D

Regardless. Glad you have a decent system now. ;)

[RyokuHasu]

Thanks, seeing yours gave me some ideas on how to do it, how ever i dont credit insperation, sorry >.< lol

So, thanks alot =D

[ChrisWR]

~~Quick question…. so i add  "Dim Item1 As Long, Item2, Result"
after "setbuffer = nothing"    in  modhandledata->sub handleuseitem
                                                                  or
                                                modplayer->sub useitem
im using eo2.0 and i checked in modplayer and cant find the setbuffer = nothing in that module except for the sub playerwarp and im sure thats not it is it?~~

i think i found it out cause im not getting any compile errors or any errors at all , but idk how to use this recipe, i made a recipe that wood chips and metal peices would make a ragged axe , but when i double click on the recipe nothing happens , i also recognized its not saving whatever i put in cmbCToolReq box , any ideas?

[Wilauzaz]

This is really  great thing to have in a server, however im new to this and im trying to find the last "end select" in the **HandleUseItem** to insert this:

>! 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 Then
                    Call PlayerMsg(Index, "This is an incomplete recipe…", White)
                    Exit Sub
                End If

                If Item2 <= 0 Then
                    Call PlayerMsg(Index, "This is an incomplete recipe...", White)
                    Exit Sub
                End If

                If 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) Then
                            If 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, "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

Basicaly what i have in the whole **modhandledata** is

>! End Sub
>! ' :::::::::::::::::::::
' :: Use item packet ::
' :::::::::::::::::::::
Sub HandleUseItem(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim invNum As Long
Dim Buffer As clsBuffer

    ' get inventory slot number
    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
    invNum = Buffer.ReadLong
    Set Buffer = Nothing
Dim Item1 As Long
    Dim Item2 As Long
    Dim Result As Long
>!     UseItem Index, invNum
>! End Sub
___________________________________________
' ::::::::::::::::::::::::::
' :: Player attack packet ::
' ::::::::::::::::::::::::::
Sub HandleAttack(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
    Dim i As Long
    Dim n As Long
    Dim Damage As Long
    Dim TempIndex As Long
    Dim x As Long, y As Long

    ' can't attack whilst casting
    If TempPlayer(Index).spellBuffer.Spell > 0 Then Exit Sub

    ' can't attack whilst stunned
    If TempPlayer(Index).StunDuration > 0 Then Exit Sub
>!     ' Send this packet so they can see the person attacking
    'SendAttack Index
>!     ' Try to attack a player
    For i = 1 To Player_HighIndex
        TempIndex = i
>!         ' Make sure we dont try to attack ourselves
        If TempIndex <> Index Then
            TryPlayerAttackPlayer Index, i
        End If
    Next
>!     ' Try to attack a npc
    For i = 1 To MAX_MAP_NPCS
        TryPlayerAttackNpc Index, i
    Next
>!     ' Check tradeskills
    Select Case GetPlayerDir(Index)
        Case DIR_UP
>!             If GetPlayerY(Index) = 0 Then Exit Sub
            x = GetPlayerX(Index)
            y = GetPlayerY(Index) - 1
        Case DIR_DOWN
>!             If GetPlayerY(Index) = Map(GetPlayerMap(Index)).MaxY Then Exit Sub
            x = GetPlayerX(Index)
            y = GetPlayerY(Index) + 1
        Case DIR_LEFT
>!             If GetPlayerX(Index) = 0 Then Exit Sub
            x = GetPlayerX(Index) - 1
            y = GetPlayerY(Index)
        Case DIR_RIGHT
>!             If GetPlayerX(Index) = Map(GetPlayerMap(Index)).MaxX Then Exit Sub
            x = GetPlayerX(Index) + 1
            y = GetPlayerY(Index)

    **End Select**

    CheckResource Index, x, y
End **Sub**
____________________________________________
' ::::::::::::::::::::::
' :: Use stats packet ::
' ::::::::::::::::::::::
Sub HandleUseStatPoint(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim PointType As Byte
Dim Buffer As clsBuffer

So basicaly, i cant locate "end select" in handleuseitem sub.

any help appreciated :/

[Justn]

@Wilauzaz:

> So basicaly, i cant locate "end select" in handleuseitem sub.
> any help appreciated :/

Everytime I read people asking questions about where to put stuff in these fool proof tutorials 90% of the time if they would just read the entire thread they will clearly see the answers to their questions =/

@Erwin:

> You put it in UseItem, not HandleUseItem

[Wilauzaz]

"UseItem" sub is only located in ModPlayer, and even if u put code there u get Item_type_recipe  Variable not defined error :/

[Justn]

:cheesy: Yes its in modplayer thats where it goes, and if your getting a varible not defined error then you must not have put this in mod constants

Public Const ITEM_TYPE_RECIPE As Byte = 14 'or your next number in list

[Peter112]

works with EO2.0?

[erkro1]

@Peter112:

> works with EO2.0?

@Forgotten:

> Rose posted on how to do it for version 2.0 [http://www.touchofdeathforums.com/smf/index.php/topic,64806.msg754735.html#msg754735](http://www.touchofdeathforums.com/smf/index.php/topic,64806.msg754735.html#msg754735)

[Guest]

When i look for this line it say's there isn't one
(' Currency)

[erkro1]

@Zeffrit:

> When i look for this line it say's there isn't one
> (' Currency)

I don't understand you, be more clear please.

[Justn]

@Encyclopedia:

> For those who're using Eclipse Origins v2b
>
> SKIP this part of the tutorial.

read page 2 and it will show you how to get this to work for EO2 http://www.touchofdeathforums.com/smf/index.php/topic,64806.20.html

[Guest]

Very Nice !
~~Say do you have a compiled version? (Just asking please don't be mad)
If you haven't well I'll just do the manual way.~~

EDIT: Nevermind.

(Server)
EDIT2: Darn where can I find "Set Buffer = Nothing" in modPlayer Public Sub UseItem?
I can't seem to find it in EO2

EDIT3: Okay guys the server is getting worst and worst now VB6 said that in the log file :
Line 27: Cannot load control Socket; license not found.
And VB6 pin-pointed the frmServer.show thing. Any fix on this?

[Ruins of Hell]

@knightgrader:

> Very Nice !
> ~~Say do you have a compiled version? (Just asking please don't be mad)
> If you haven't well I'll just do the manual way.~~
>
> EDIT: Nevermind.
>
> (Server)
> EDIT2: Darn where can I find "Set Buffer = Nothing" in modPlayer Public Sub UseItem?
> I can't seem to find it in EO2
>
> EDIT3: Okay guys the server is getting worst and worst now VB6 said that in the log file :
> Line 27: Cannot load control Socket; license not found.
> And VB6 pin-pointed the frmServer.show thing. Any fix on this?

Read the guide on Installing VB6\. You've messed your source up and you'll have to redownload it.

[Guest]

@Soul:

> Read the guide on Installing VB6\. You've messed your source up and you'll have to redownload it.

Fixed it up… I think Visual Basic 6 Portable ain't gonna work with EOv2

To anyone who is nice and kind. Please create another version of this for EO2 and also make it less difficult if possible. I read the whole topic none of them seemed to be working. I give credit to the user who makes one. Thanks in advanced.

[Ruins of Hell]

@Night~:

> Fixed it up… I think Visual Basic 6 Portable ain't gonna work with EOv2

Hence why you should've read the guide that came with it.