Portal
Ao você usar uma spell vc se transforma.. e dps de um tempo vc volta ao normal..
Configuravel no spelleditor
Abra o Client~Side:
Na frmEditorSpell crie uma frame igual essa img:
Coloque a Frame em Visible False.
de 2 clicks na scrlTrans e adicione:
de 2 clicks na scrlForça e adicione:
de 2 clicks na scrlDef e adicione:
de 2 clicks na scrlAgi e adicione:
de 2 clicks na scrlWill e adicione:
de 2 clicks na scrlInt e adicione:
de 2 clicks na scrlAnima e adicione:
l
de 2 clicks na scrlTempo e adicione:
na List do cmbType adicione:
procure por:
em baixo adicione:
dps na Private Type PlayerRec adicione:
dps procure por:
abaixo adicione:
dps procure por:
em baixo adicione:
Client~Side terminado, Abra o Server~Side:
Procure por:
abaixo adicione:
procure por:
abaixo adicione:
na Private Type TempPlayerRec adicione:
na Sub JoinGame em cima do End Sub adicione:
no ServerLoop em cima de:
adicione:
na Sub LeftGame(ByVal index As Long) adicione em baixo de:
o codigo:
procure por:
em baixo adicione:
na subCastSpell em cima de:
adicione:
no final da modGameLogic adicione:
Fim !
Créditos: Thales por fazer o sistema e Tutorial
Créditos: Eduardo por adicionar Tempo
Configuravel no spelleditor
Abra o Client~Side:
Na frmEditorSpell crie uma frame igual essa img:
Frame Name: fraTrans
Frame Caption: Transformação
Picture Name: picSprite2
1º Scrl Name: scrlTrans
2º Scrl Name: scrlForça
3º Scrl Name: scrlDef
4º Scrl Name: scrlAgi
5º Scrl Name: scrlWill
6º Scrl Name: scrlInt
7º Scrl Name: scrlAnima
8º Scrl Name: scrlTempo
1º lbl Name: lblTrans
2º lbl Name: lblFor
3º lbl Name: lblDef
4º lbl Name: lblAgi
5º lbl Name: lblWill
6º lbl Name: lblInt
7º lbl Name: lblAnima
8º lbl Name: lblTempo
1º lbl Caption: Sprite: None
2º lbl Caption: Força: None
3º lbl Caption: Defesa: None
4º lbl Caption: Agilidade: None
5º lbl Caption: Willpower: None
6º lbl Caption: Inteligencia: None
7º lbl Caption: Animação: None
8º lbl Caption: Duração: None
Coloque a Frame em Visible False.
de 2 clicks na scrlTrans e adicione:
- Código:
lblTrans.Caption = "Sprite: " & scrlTrans.Value
Spell(EditorIndex).trans = scrlTrans.Value
de 2 clicks na scrlForça e adicione:
- Código:
lblFor.Caption = "Força: " & scrlForça.Value
Spell(EditorIndex).Força = scrlForça.Value
de 2 clicks na scrlDef e adicione:
- Código:
lblDef.Caption = "Defesa: " & scrlDef.Value
Spell(EditorIndex).Defesa = scrlDef.Value
de 2 clicks na scrlAgi e adicione:
- Código:
lblAgi.Caption = "Agilidade: " & scrlAgi.Value
Spell(EditorIndex).Agilidade = scrlAgi.Value
de 2 clicks na scrlWill e adicione:
- Código:
lblWill.Caption = "Willpower: " & scrlWill.Value
Spell(EditorIndex).Willpower = scrlWill.Value
de 2 clicks na scrlInt e adicione:
- Código:
lblInt.Caption = "Inteligencia: " & scrlInt.Value
Spell(EditorIndex).Inteligencia = scrlInt.Value
de 2 clicks na scrlAnima e adicione:
l
- Código:
blAnima.Caption = "Animação: " & Trim$(Animation(scrlAnima.Value).Name)
Spell(EditorIndex).Anima = scrlAnima.Value
de 2 clicks na scrlTempo e adicione:
- Código:
lblTempo.Caption = "Duração: " & scrlTempo.Value & "s"
Spell(EditorIndex).Tempo = scrlTempo.Value
na List do cmbType adicione:
depois de 2 clicks na cmbType e adicione:Trans
- Código:
If cmbType.ListIndex = SPELL_TYPE_TRANS Then
fraTrans.Visible = True
Else
fraTrans.Visible = False
End If
procure por:
- Código:
StunDuration As Long
em baixo adicione:
- Código:
trans As Long
Força As Long
Defesa As Long
Agilidade As Long
Willpower As Long
Inteligencia As Long
Anima As Long
Tempo As Long
dps na Private Type PlayerRec adicione:
- Código:
Tempo(1 To MAX_PLAYER_SPELLS) As Long
dps procure por:
- Código:
Public Const SPELL_TYPE_WARP As Byte = 4
abaixo adicione:
- Código:
Public Const SPELL_TYPE_TRANS As Byte = 5
dps procure por:
- Código:
.scrlRange.Value = Spell(EditorIndex).Range
em baixo adicione:
- Código:
.scrlTrans.Value = Spell(EditorIndex).trans
.scrlForça.Value = Spell(EditorIndex).Força
.scrlDef.Value = Spell(EditorIndex).Defesa
.scrlAgi.Value = Spell(EditorIndex).Agilidade
.scrlWill.Value = Spell(EditorIndex).Willpower
.scrlInt.Value = Spell(EditorIndex).Inteligencia
.scrlAnima.Value = Spell(EditorIndex).Anima
.scrlTempo.Value = Spell(EditorIndex).Tempo
Client~Side terminado, Abra o Server~Side:
Procure por:
- Código:
Public Const SPELL_TYPE_WARP As Byte = 4
abaixo adicione:
- Código:
Public Const SPELL_TYPE_TRANS As Byte = 5
procure por:
- Código:
StunDuration As Long
abaixo adicione:
- Código:
Trans As Long
Força As Long
Defesa As Long
Agilidade As Long
Willpower As Long
Inteligencia As Long
Anima As Long
Tempo As Long
na Private Type TempPlayerRec adicione:
- Código:
Tempo(1 To MAX_PLAYER_SPELLS) As Long
Trans as Long
MySprite As Long
na Sub JoinGame em cima do End Sub adicione:
- Código:
TempPlayer(index).MySprite = GetPlayerSprite(index)
no ServerLoop em cima de:
- Código:
' Check for disconnections every half second
adicione:
- Código:
If TempPlayer(i).Trans > 0 Then
If Tick > TempPlayer(i).Trans Then
SendAnimation GetPlayerMap(i), 20, 0, 0, TARGET_TYPE_PLAYER, i
TempPlayer(i).Trans = 0
SetPlayerSprite i, TempPlayer(i).MySprite
SendPlayerData i
AcabarTrans i
End If
End If
na Sub LeftGame(ByVal index As Long) adicione em baixo de:
- Código:
Dim n As Long, i As Long
Dim tradeTarget As Long
o codigo:
- Código:
If TempPlayer(index).Trans > 0 Then
SetPlayerSprite index, TempPlayer(index).MySprite
Call SetPlayerStat(index, Stats.Strength, GetPlayerRawStat(index, Stats.Strength) - Spell(index).Força)
Call SetPlayerStat(index, Stats.Endurance, GetPlayerRawStat(index, Stats.Endurance) - Spell(index).Defesa)
Call SetPlayerStat(index, Stats.Agility, GetPlayerRawStat(index, Stats.Agility) - Spell(index).Agilidade)
Call SetPlayerStat(index, Stats.Willpower, GetPlayerRawStat(index, Stats.Willpower) - Spell(index).Willpower)
Call SetPlayerStat(index, Stats.Intelligence, GetPlayerRawStat(index, Stats.Intelligence) - Spell(index).Inteligencia)
End If
procure por:
- Código:
' see if cooldown has finished
em baixo adicione:
- Código:
If TempPlayer(index).Trans > GetTickCount Then Exit Sub
na subCastSpell em cima de:
- Código:
' find out what kind of spell it is! self cast, target or AOE
adicione:
- Código:
'Transformaçao
With Spell(SpellNum)
If .Type = SPELL_TYPE_TRANS Then
Call SetPlayerSprite(index, Spell(index).Trans)
Call SetPlayerStat(index, Stats.Strength, GetPlayerRawStat(index, Stats.Strength) Spell(index).Força)
Call SetPlayerStat(index, Stats.Endurance, GetPlayerRawStat(index, Stats.Endurance) Spell(index).Defesa)
Call SetPlayerStat(index, Stats.Agility, GetPlayerRawStat(index, Stats.Agility) Spell(index).Agilidade)
Call SetPlayerStat(index, Stats.Willpower, GetPlayerRawStat(index, Stats.Willpower) Spell(index).Willpower)
Call SetPlayerStat(index, Stats.Intelligence, GetPlayerRawStat(index, Stats.Intelligence) Spell(index).Inteligencia)
Call SetPlayerVital(index, Vitals.MP, GetPlayerVital(index, Vitals.MP) - MPCost)
Call SendVital(index, Vitals.MP)
Call PlayerWarp(index, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index))
TempPlayer(index).Trans = GetTickCount (Spell(index).Tempo * 1000)
SendAnimation GetPlayerMap(index), Spell(index).Anima, 0, 0, TARGET_TYPE_PLAYER, index
TempPlayer(index).SpellCD(spellslot) = GetTickCount (Spell(SpellNum).CDTime * 1000)
Call PlayerMsg(index, GetPlayerName(index) & " - Você se Transformou! Para: " & Trim$(Spell(SpellNum).Name), Cyan)
SendPlayerData index
SavePlayer index
SendStats index
End If
End With
no final da modGameLogic adicione:
- Código:
Public Sub AcabarTrans(ByVal index As Long)
If index < 1 Or index > MAX_PLAYERS Then Exit Sub
Call SetPlayerStat(index, Stats.Strength, GetPlayerRawStat(index, Stats.Strength) - Spell(index).Força)
Call SetPlayerStat(index, Stats.Endurance, GetPlayerRawStat(index, Stats.Endurance) - Spell(index).Defesa)
Call SetPlayerStat(index, Stats.Agility, GetPlayerRawStat(index, Stats.Agility) - Spell(index).Agilidade)
Call SetPlayerStat(index, Stats.Willpower, GetPlayerRawStat(index, Stats.Willpower) - Spell(index).Willpower)
Call SetPlayerStat(index, Stats.Intelligence, GetPlayerRawStat(index, Stats.Intelligence) - Spell(index).Inteligencia)
SendAnimation GetPlayerMap(index), Spell(index).Anima, 0, 0, TARGET_TYPE_PLAYER, index
Call PlayerMsg(index, "O Tempo Limite da Sua Transformação Acabou...", DarkGrey)
TempPlayer(index).Trans = 0
SendPlayerData index
SavePlayer index
SendStats index
End Sub
Fim !
Créditos: Thales por fazer o sistema e Tutorial
Créditos: Eduardo por adicionar Tempo
