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 ```

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 ```