justTim
-
Posts
4 -
Joined
-
Last visited
Never
Content Type
Profiles
Forums
Calendar
Posts posted by justTim
-
-
hope you don't mind i post the fix for
> - typing a number when talking in chat attempts to cast a spell
Just go to frmMirage
add this just at the begining of Private Sub Form_KeyUp
```
'check cast
Dim Check
Check = txtMyTextBox.Text Like "[0-9]"
If Check = True Then
txtMyTextBox.Locked = True
txtMyTextBox.Text = ""
Else
txtMyTextBox.Locked = False
End If
'end check
```
and replace
```
If KeyCode = vbKey0 And frmMirage.txtMyTextBox.visible=false Then
Dim ssp As String
Dim j
ssp = Label14(10).Caption
i = 0
j = 0
Dim p As String
Dim r As String
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image5.Picture = Image16.Picture
Call SendData("setspell10" & SEP_CHAR & Null & END_CHAR)
Else
If Image5.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey1 And frmMirage.txtMyTextBox.visible=false Then
ssp = Label14(1).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image7.Picture = Image16.Picture
Call SendData("setspell1" & SEP_CHAR & Null & END_CHAR)
Else
If Image7.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey2 And frmMirage.txtMyTextBox.visible=false Then
ssp = Label14(2).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image8.Picture = Image16.Picture
Call SendData("setspell2" & SEP_CHAR & Null & END_CHAR)
Else
If Image8.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey3 And frmMirage.txtMyTextBox.visible=false Then
ssp = Label14(3).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image9.Picture = Image16.Picture
Call SendData("setspell3" & SEP_CHAR & Null & END_CHAR)
Else
If Image9.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey4 And frmMirage.txtMyTextBox.visible=false Then
ssp = Label14(4).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image10.Picture = Image16.Picture
Call SendData("setspell4" & SEP_CHAR & Null & END_CHAR)
Else
If Image10.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey5 And frmMirage.txtMyTextBox.visible=false Then
ssp = Label14(5).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image11.Picture = Image16.Picture
Call SendData("setspell5" & SEP_CHAR & Null & END_CHAR)
Else
If Image11.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
```
with that:
```
If KeyCode = vbKey0 And frmMirage.txtMyTextBox.Locked <> False Then
Dim ssp As String
Dim j
ssp = Label14(10).Caption
i = 0
j = 0
Dim p As String
Dim r As String
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image5.Picture = Image16.Picture
Call SendData("setspell10" & SEP_CHAR & Null & END_CHAR)
Else
If Image5.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey1 And frmMirage.txtMyTextBox.Locked <> False Then
ssp = Label14(1).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image7.Picture = Image16.Picture
Call SendData("setspell1" & SEP_CHAR & Null & END_CHAR)
Else
If Image7.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey2 And frmMirage.txtMyTextBox.Locked <> False Then
ssp = Label14(2).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image8.Picture = Image16.Picture
Call SendData("setspell2" & SEP_CHAR & Null & END_CHAR)
Else
If Image8.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey3 And frmMirage.txtMyTextBox.Locked <> False Then
ssp = Label14(3).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image9.Picture = Image16.Picture
Call SendData("setspell3" & SEP_CHAR & Null & END_CHAR)
Else
If Image9.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey4 And frmMirage.txtMyTextBox.Locked <> False Then
ssp = Label14(4).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image10.Picture = Image16.Picture
Call SendData("setspell4" & SEP_CHAR & Null & END_CHAR)
Else
If Image10.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey5 And frmMirage.txtMyTextBox.Locked <> False Then
ssp = Label14(5).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image11.Picture = Image16.Picture
Call SendData("setspell5" & SEP_CHAR & Null & END_CHAR)
Else
If Image11.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey6 And frmMirage.txtMyTextBox.Locked <> False Then
ssp = Label14(6).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image12.Picture = Image16.Picture
Call SendData("setspell6" & SEP_CHAR & Null & END_CHAR)
Else
If Image12.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey7 And frmMirage.txtMyTextBox.Locked <> False Then
ssp = Label14(7).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image13.Picture = Image16.Picture
Call SendData("setspell7" & SEP_CHAR & Null & END_CHAR)
Else
If Image13.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey8 And frmMirage.txtMyTextBox.Locked <> False Then
ssp = Label14(8).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image14.Picture = Image16.Picture
Call SendData("setspell8" & SEP_CHAR & Null & END_CHAR)
Else
If Image14.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey9 And frmMirage.txtMyTextBox.Locked <> False Then
ssp = Label14(9).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image15.Picture = Image16.Picture
Call SendData("setspell9" & SEP_CHAR & Null & END_CHAR)
Else
If Image15.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
``` -
Here the same thing with AttackSpeed
```
Dim AttackSpeed
Dim Price
Dim pperstat
Dim pperhpmp
AttackSpeed = 0
pperstat = 15
pperhpmp = 15
If cmbType.ListIndex = ITEM_TYPE_WEAPON Or cmbType.ListIndex = ITEM_TYPE_TWO_HAND Then
AttackSpeed = (10000 / scrlAttackSpeed.Value)
If AttackSpeed > 10 Then
AttackSpeed = AttackSpeed * 100
ElseIf AttackSpeed > 8 Then
AttackSpeed = AttackSpeed * 75
ElseIf AttackSpeed > 6 Then
AttackSpeed = AttackSpeed * 50
ElseIf AttackSpeed > 4 Then
AttackSpeed = AttackSpeed * 25
Else
AttackSpeed = AttackSpeed * (-10)
End If
AttackSpeed = Round(AttackSpeed)
End If
Price = scrlAddHP.Value * pperhpmp + scrlAddMP.Value * pperhpmp + scrlAddSP.Value * pperstat + scrlAddStr.Value * pperstat + scrlAddDef.Value * pperstat + scrlAddMagi.Value * pperstat + scrlAddSpeed * pperstat + scrlAddEXP.Value * pperstat
If AttackSpeed < 0 Then
If Price > AttackSpeed * (-1) Then
Price = 0
Else
Price = Price + AttackSpeed
End If
Else
Price = Price + AttackSpeed
End If
txtPrice.Text = Price
``` -
Here the same thing with AttackSpeed
```
Dim AttackSpeed
Dim Price
Dim pperstat
Dim pperhpmp
AttackSpeed = 0
pperstat = 15
pperhpmp = 15
If cmbType.ListIndex = ITEM_TYPE_WEAPON Or cmbType.ListIndex = ITEM_TYPE_TWO_HAND Then
AttackSpeed = (10000 / scrlAttackSpeed.Value)
If AttackSpeed > 10 Then
AttackSpeed = AttackSpeed * 100
ElseIf AttackSpeed > 8 Then
AttackSpeed = AttackSpeed * 75
ElseIf AttackSpeed > 6 Then
AttackSpeed = AttackSpeed * 50
ElseIf AttackSpeed > 4 Then
AttackSpeed = AttackSpeed * 25
Else
AttackSpeed = AttackSpeed * (-10)
End If
AttackSpeed = Round(AttackSpeed)
End If
Price = scrlAddHP.Value * pperhpmp + scrlAddMP.Value * pperhpmp + scrlAddSP.Value * pperstat + scrlAddStr.Value * pperstat + scrlAddDef.Value * pperstat + scrlAddMagi.Value * pperstat + scrlAddSpeed * pperstat + scrlAddEXP.Value * pperstat
If AttackSpeed < 0 Then
If Price > AttackSpeed * (-1) Then
Price = 0
Else
Price = Price + AttackSpeed
End If
Else
Price = Price + AttackSpeed
End If
txtPrice.Text = Price
```
Adding an Action Bar to Your Game!
in Source
Posted
> - typing a number when talking in chat attempts to cast a spell
Just go to frmMirage
add this just at the begining of Private Sub Form_KeyUp
```
'check cast
Dim Check
Check = txtMyTextBox.Text Like "[0-9]"
If Check = True Then
txtMyTextBox.Locked = True
txtMyTextBox.Text = ""
Else
txtMyTextBox.Locked = False
End If
'end check
```
and replace
```
If KeyCode = vbKey0 And frmMirage.txtMyTextBox.visible=false Then
Dim ssp As String
Dim j
ssp = Label14(10).Caption
i = 0
j = 0
Dim p As String
Dim r As String
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image5.Picture = Image16.Picture
Call SendData("setspell10" & SEP_CHAR & Null & END_CHAR)
Else
If Image5.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey1 And frmMirage.txtMyTextBox.visible=false Then
ssp = Label14(1).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image7.Picture = Image16.Picture
Call SendData("setspell1" & SEP_CHAR & Null & END_CHAR)
Else
If Image7.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey2 And frmMirage.txtMyTextBox.visible=false Then
ssp = Label14(2).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image8.Picture = Image16.Picture
Call SendData("setspell2" & SEP_CHAR & Null & END_CHAR)
Else
If Image8.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey3 And frmMirage.txtMyTextBox.visible=false Then
ssp = Label14(3).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image9.Picture = Image16.Picture
Call SendData("setspell3" & SEP_CHAR & Null & END_CHAR)
Else
If Image9.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey4 And frmMirage.txtMyTextBox.visible=false Then
ssp = Label14(4).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image10.Picture = Image16.Picture
Call SendData("setspell4" & SEP_CHAR & Null & END_CHAR)
Else
If Image10.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey5 And frmMirage.txtMyTextBox.visible=false Then
ssp = Label14(5).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image11.Picture = Image16.Picture
Call SendData("setspell5" & SEP_CHAR & Null & END_CHAR)
Else
If Image11.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
```
with that:
```
If KeyCode = vbKey0 And frmMirage.txtMyTextBox.Locked <> False Then
Dim ssp As String
Dim j
ssp = Label14(10).Caption
i = 0
j = 0
Dim p As String
Dim r As String
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image5.Picture = Image16.Picture
Call SendData("setspell10" & SEP_CHAR & Null & END_CHAR)
Else
If Image5.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey1 And frmMirage.txtMyTextBox.Locked <> False Then
ssp = Label14(1).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image7.Picture = Image16.Picture
Call SendData("setspell1" & SEP_CHAR & Null & END_CHAR)
Else
If Image7.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey2 And frmMirage.txtMyTextBox.Locked <> False Then
ssp = Label14(2).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image8.Picture = Image16.Picture
Call SendData("setspell2" & SEP_CHAR & Null & END_CHAR)
Else
If Image8.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey3 And frmMirage.txtMyTextBox.Locked <> False Then
ssp = Label14(3).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image9.Picture = Image16.Picture
Call SendData("setspell3" & SEP_CHAR & Null & END_CHAR)
Else
If Image9.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey4 And frmMirage.txtMyTextBox.Locked <> False Then
ssp = Label14(4).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image10.Picture = Image16.Picture
Call SendData("setspell4" & SEP_CHAR & Null & END_CHAR)
Else
If Image10.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey5 And frmMirage.txtMyTextBox.Locked <> False Then
ssp = Label14(5).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image11.Picture = Image16.Picture
Call SendData("setspell5" & SEP_CHAR & Null & END_CHAR)
Else
If Image11.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey6 And frmMirage.txtMyTextBox.Locked <> False Then
ssp = Label14(6).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image12.Picture = Image16.Picture
Call SendData("setspell6" & SEP_CHAR & Null & END_CHAR)
Else
If Image12.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey7 And frmMirage.txtMyTextBox.Locked <> False Then
ssp = Label14(7).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image13.Picture = Image16.Picture
Call SendData("setspell7" & SEP_CHAR & Null & END_CHAR)
Else
If Image13.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey8 And frmMirage.txtMyTextBox.Locked <> False Then
ssp = Label14(8).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image14.Picture = Image16.Picture
Call SendData("setspell8" & SEP_CHAR & Null & END_CHAR)
Else
If Image14.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
If KeyCode = vbKey9 And frmMirage.txtMyTextBox.Locked <> False Then
ssp = Label14(9).Caption
i = 0
j = 0
While i < lstSpells.ListCount
p = lstSpells.List(i)
r = Right(p, Len(p) - 3)
If StrComp(r, ssp) = 0 Then
j = i
End If
i = i + 1
Wend
If GetAsyncKeyState(2) <> 0 Then
Image15.Picture = Image16.Picture
Call SendData("setspell9" & SEP_CHAR & Null & END_CHAR)
Else
If Image15.Picture <> Image16.Picture Then
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
SpellMemorized = Val#(lstSpells.List(j))
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
If Player(MyIndex).Spell(lstSpells.ListIndex + 1) > 0 Then
If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
Player(MyIndex).Attacking = 1
Player(MyIndex).AttackTimer = GetTickCount
Player(MyIndex).CastedSpell = YES
End If
Else
Call AddText("No spell in this slot.", BRIGHTRED)
End If
End If
End If
End If
```