Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

Adding equip slots EA


jaekx
 Share

Recommended Posts

Im trying to add equipment slots to EA, my question is about adding more columns to the Character_GUI menu.

I wanna know how to set up the code so I can add more rows of equips, like whats boxed in red, for the added equip slots boxed in blue.

![](http://i.imgur.com/jeC1v.png)

the code for the set up looks like such.

the -78 was an add from me to heighten the normal 4 equip slots upward to fit my GUI change. As you can see it only accounts for one row, I just want to know how to add more.

```

Public Function IsEqItem(ByVal X As Single, ByVal Y As Single) As Long

Dim tempRec As RECT

Dim I As Long

' If debug mode, handle error then exit out

If Options.Debug = 1 Then On Error GoTo errorhandler

IsEqItem = 0

For I = 1 To Equipment.Equipment_Count - 1

If GetPlayerEquipment(MyIndex, I) > 0 And GetPlayerEquipment(MyIndex, I) <= MAX_ITEMS Then

With tempRec

.Top = GUIWindow(GUI_CHARACTER).Y + EqTop - 78

.Bottom = .Top + PIC_Y

.Left = GUIWindow(GUI_CHARACTER).X + EqLeft + ((EqOffsetX + 32) * (((I - 1) Mod EqColumns)))

.Right = .Left + PIC_X

End With

If X >= tempRec.Left And X <= tempRec.Right Then

If Y >= tempRec.Top And Y <= tempRec.Bottom Then

IsEqItem = I

Exit Function

End If

End If

End If

Next

' Error handler

Exit Function

errorhandler:

HandleError "IsEqItem", "frmGameLogic", Err.Number, Err.Description, Err.Source, Err.HelpContext

Err.Clear

Exit Function

End Function

```

if anyone wants to use some of my gray un equip slot images and possibly set up a tutorial ill add them here.

![](http://i.imgur.com/Acf9x.png)

1- cape

2- accessory

3- ring

4- shoes

5- mask

6- gloves

7- earring

8- pet equip

also here is my GUI if anyone wants to steal it.

![](http://i.imgur.com/smSqS.png)
Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...