Adding an Action Bar to Your Game!

[Warconn]

i was finally able to test this out, and i double clicked the spell on the list, i get a RTE 53 saying that my spell.gif was not found.  I am having very many problems lately lol

{EDIT}

i found the reason, i didnt have a spell in that slot lol

works great thanks

[zade_o]

I'm gonna get to work on fixing that right now.

EDIT:::: FIXED ::::
I'm put the fix uptop in the main tutorial, but here it is if you don't feel like reading through that whole thing

replace the lstSpells double click function with this code
```
Private Sub lstSpells_DblClick()
    Dim O, r, p, Q As String
    Dim i
    Dim X
    Dim exists As Boolean

    O = lstSpells.Text
    r = Right(O, Len(O) - 3)
    If (StrComp(Left(O, 1), "-") <> 0) Then

        If (Image7.Picture = Image16.Picture) Then
            Image7.Picture = LoadPicture(App.Path & "\GUI\SpellIcons\" & r & ".gif")
            Call SendData("setspell1" & SEP_CHAR & r & END_CHAR)
        ElseIf (Image8.Picture = Image16.Picture) Then
            Image8.Picture = LoadPicture(App.Path & "\GUI\SpellIcons\" & r & ".gif")
            Call SendData("setspell2" & SEP_CHAR & r & END_CHAR)
        ElseIf (Image9.Picture = Image16.Picture) Then
            Image9.Picture = LoadPicture(App.Path & "\GUI\SpellIcons\" & r & ".gif")
            Call SendData("setspell3" & SEP_CHAR & r & END_CHAR)
        ElseIf (Image10.Picture = Image16.Picture) Then
            Image10.Picture = LoadPicture(App.Path & "\GUI\SpellIcons\" & r & ".gif")
            Call SendData("setspell4" & SEP_CHAR & r & END_CHAR)
        ElseIf (Image11.Picture = Image16.Picture) Then
            Image11.Picture = LoadPicture(App.Path & "\GUI\SpellIcons\" & r & ".gif")
            Call SendData("setspell5" & SEP_CHAR & r & END_CHAR)
        ElseIf (Image12.Picture = Image16.Picture) Then
            Image12.Picture = LoadPicture(App.Path & "\GUI\SpellIcons\" & r & ".gif")
            Call SendData("setspell6" & SEP_CHAR & r & END_CHAR)
        ElseIf (Image13.Picture = Image16.Picture) Then
            Image13.Picture = LoadPicture(App.Path & "\GUI\SpellIcons\" & r & ".gif")
            Call SendData("setspell7" & SEP_CHAR & r & END_CHAR)
        ElseIf (Image14.Picture = Image16.Picture) Then
            Image14.Picture = LoadPicture(App.Path & "\GUI\SpellIcons\" & r & ".gif")
            Call SendData("setspell8" & SEP_CHAR & r & END_CHAR)
        ElseIf (Image15.Picture = Image16.Picture) Then
            Image15.Picture = LoadPicture(App.Path & "\GUI\SpellIcons\" & r & ".gif")
            Call SendData("setspell9" & SEP_CHAR & r & END_CHAR)
        ElseIf (Image5.Picture = Image16.Picture) Then
            Image5.Picture = LoadPicture(App.Path & "\GUI\SpellIcons\" & r & ".gif")
            Call SendData("setspell10" & SEP_CHAR & r & END_CHAR)

        Else
            Call AddText("All of your spell slots are full.", WHITE)
        End If

    End If

End Sub
```

[Warconn]

Works Great, nice job

[mrmiguu]

Ok, I tested this out and it pwns. I love how well I cause effectively use it with Lostica! Thank you, one thing though… sometimes my server crashes due to an error in the Set Item packet in the server HandleData section. Any ideas? (I happens when I loot sometimes)

[zade_o]

Not sure man. You have any source edits dealing with items?

[Tyr]

heh, it looks like i can't pickup anything in lostica now :) (did you disable the error line? ^^)

[Sevg]

No, the loot key is now PageDown/Av Pág.

Nice addition to Lostica :)

[Tyr]

lol, don't know… but i letted around 5k cash on the floor then =D

[Guest]

this gives me RTE 5 when I click any of the sections. What do you do with the labels? Where do you put them? o.o

[zade_o]

> -Add 10 labels to your frmMirage, and make them indexed, and make them all invisible
> To perfectly match this code, the labels should be:
> Label14(1) through Label14(10)

[Guest]

I did that, but I still get the RTE 5\. All of my forms are named just this way. It only happens when I click the spell bar or type a number.

Like I made the labels a control array all named Label14\. So in the name it says Label14, but in the properties header it shows Label14(1) etc etc. I am positive this is what you meant. But does it matter WHERE I place these? Do I stretch them over my images?

[zade_o]

Look I don't know how to help because I've added this to a fresh copy of the source and it worked fine and I just used this guide exactly as it says. The labels just go anywhere in the frmMirage. I just have them chilling in an open spot on mine, stacked on top of each other. I think it'd be safe to say you messed up somewhere else along the way.

[Guest]

Do you have MSN? Cause I have installed this source 3 times already over and over. There are errors in this source anyhow. A variable "s" is already declared in where you tell me to put this code. But even if I change all of the variables over to like "ss" I get the error.

[Warconn]

i changed "s" to "sp" but after you do that, you must change it in all of the script he has supplied you.

[zade_o]

if it says it's already declared then delete that line. you should probably understand source edits before you start adding stuff like this

[Guest]

Um yeah ghost I'm not stupid, I tried changing all of the variables over to "ss" and tried deleting the declaration and keeping it "s" but still has a run time error 5.

Don't assume that I do not know VB, although its been a while >>. What version of Eclipse are you using this with?

[Warconn]

2.7  i did it, and it works perfect for me. Try putting it in again line by line, and you might correct yourself

[Guest]

Thanks Warconn, I decided I'm just being lazy and I am going to code my own. I just wanted to see how this preformed before wasting too much time. But considering this one still has some apparent bugs I think that is the best route for me.

[Warconn]

yep, no problem thats what i am here for except that there is no bugs, they were all worked out, and it works fine.

[Guest]

@Gh0st:

> List of Known Bugs that I'll fix tomorrow :
> ~~- Clicking on a spell in your spell book that has no spell there causes a crash~~
> - typing a number when talking in chat attempts to cast a spell

[Warconn]

i have found a fix for that, use the F buttons, if you do know what you are doing then it isnt hard

If you cant find it though, i have a script to stop it which i will PM ghost to add

[Guest]

Ah cool, I know how to change the keys. I know visual basic man, but I want to used the numerical keys like you have set. If you could please post the fix that would be awesome.

Please do not keep insulting my visual basic knowledge. There is no need to get so offensive o.o

[Warconn]

alright, ill stop, but you were insulting my friend Ghost, so…

```
  If KeyCode = vbKey1 Then
        If txtMyTextBox.Visible = False Then
          'insert code here

        End If
    End If

```
that should work, i havent tested it, i have mine set to letters, like S will bring up the spell menu, but same concept

[Guest]

Thanks man, I guess I will just reinstall this (again) lol.

[Warconn]

lol it helped me to do it about 2 times, that way i made sure i got it all