Lucas Roberto Administrador
Mensagens : 711
| Assunto: [ALL]Spell Memorized Seg 18 Out 2010, 13:11 | |
| FrmMirage procure por isso: - Citação :
- Dim SpellMemorized as long
Abaixo adicione: - Citação :
- Dim SpellMemorizedF9 As Long
Procure por:
If KeyCode = vbKeyInsert Then If SpellMemorized > 0 Then If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then If Player(MyIndex).Moving = 0 Then Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR) Player(MyIndex).Attacking = 1 Player(MyIndex).AttackTimer = GetTickCount Player(MyIndex).CastedSpell = YES Else Call AddText("Cannot cast while walking!", BrightRed) End If End If Else Call AddText("No spell here memorized.", BrightRed) End If Else Call CheckInput(0, KeyCode, Shift) End If Abaixo adicione: - Citação :
- If KeyCode = vbKeyF9 Then
If SpellMemorized > 0 Then If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then If Player(MyIndex).Moving = 0 Then Call SendData("cast" & SEP_CHAR & SpellMemorizedF9 & SEP_CHAR & END_CHAR) Player(MyIndex).Attacking = 1 Player(MyIndex).AttackTimer = GetTickCount Player(MyIndex).CastedSpell = YES Else Call AddText("Cannot cast while walking!", BrightRed) End If End If Else Call AddText("No spell here memorized.", BrightRed) End If Else Call CheckInput(0, KeyCode, Shift) End If Server~CideAgora vá no ServeTCp procure por: - Citação :
- ' Put spells known in player record
Mude tudo para: - Citação :
- ' Put spells known in player record
For I = 1 To MAX_PLAYER_SPELLS Player(MyIndex).Spell(I) = Val(Parse(I)) If Player(MyIndex).Spell(I) <> 0 Then frmMirage.lstSpells.AddItem I & ": " & Trim$(Spell(Player(MyIndex).Spell(I)).Name) frmMirage.cmbSpells.AddItem I & ": " & Trim$(Spell(Player(MyIndex).Spell(I)).Name) frmMirage.cmbSpells2.AddItem I & ": " & Trim$(Spell(Player(MyIndex).Spell(I)).Name) Else frmMirage.lstSpells.AddItem "" frmMirage.cmbSpells.AddItem "" frmMirage.cmbSpells2.AddItem "" End If Next I
frmMirage.lstSpells.ListIndex = 0 End If Crie uma Pic adicione duas cmbList uma com o nome cmbSpells e outra com o nome cmbSpells2 e crei um command button. adicione isso no command button: - Citação :
- SpellMemorized = cmbSpells.ListIndex + 1
Call AddText("Primeira magia gravada no Insert!", Black) SpellMemorizedF9 = cmbSpells2.ListIndex + 1 Call AddText("Segunda magia gravada no F9", Black) Créditos: • RafaelS.~ • GamesPower | |
|