REQUERIMENTOS:
1) Eclipse 2,7 funcionando perfeitamente.
SOMENTE CLIENT SIDE
FAZENDO:
1) Baixe o novo editor de NPC e ponha EXATAMENTE os arquivos baixados dentro da pasta do source, substituindo os arquivos e em seguida abra o source do cliente.
DOWNLOAD DO NOVO EDITOR
2) Procure por:
- Código:
-
Public Sub NpcEditorOk()
3) Substitua o sub INTEIRO por:
- Código:
-
Public Sub NpcEditorOk()
Npc(EditorIndex).Name = frmNpcEditor.txtName.Text
Npc(EditorIndex).AttackSay = frmNpcEditor.txtAttackSay.Text
Npc(EditorIndex).Sprite = frmNpcEditor.scrlSprite.Value
Npc(EditorIndex).Behavior = frmNpcEditor.cmbBehavior.ListIndex
If Npc(EditorIndex).Behavior <> NPC_BEHAVIOR_SCRIPTED Then
Npc(EditorIndex).SpawnSecs = Val(frmNpcEditor.txtSpawnSecs.Text)
Else
Npc(EditorIndex).SpawnSecs = frmNpcEditor.scrlScript.Value
End If
Npc(EditorIndex).Range = frmNpcEditor.scrlRange.Text
Npc(EditorIndex).STR = frmNpcEditor.scrlSTR.Text
Npc(EditorIndex).DEF = frmNpcEditor.scrlDEF.Text
Npc(EditorIndex).speed = frmNpcEditor.scrlSPEED.Text
Npc(EditorIndex).MAGI = frmNpcEditor.scrlMAGI.Text
Npc(EditorIndex).Big = frmNpcEditor.BigNpc.Value
Npc(EditorIndex).MaxHp = frmNpcEditor.StartHP.Text
Npc(EditorIndex).Exp = frmNpcEditor.ExpGive.Text
If frmNpcEditor.Opt64.Value = True Then
Npc(EditorIndex).SpriteSize = 1
Else
Npc(EditorIndex).SpriteSize = 0
End If
If frmNpcEditor.chkDay.Value = Checked And frmNpcEditor.chkNight.Value = Checked Then
Npc(EditorIndex).SpawnTime = 0
ElseIf frmNpcEditor.chkDay.Value = Checked And frmNpcEditor.chkNight.Value = Unchecked Then
Npc(EditorIndex).SpawnTime = 1
ElseIf frmNpcEditor.chkDay.Value = Unchecked And frmNpcEditor.chkNight.Value = Checked Then
Npc(EditorIndex).SpawnTime = 2
End If
Call SendSaveNPC(EditorIndex)
InNpcEditor = False
Unload frmNpcEditor
End Sub
4) Procure por:
- Código:
-
Public Sub NpcEditorInit()
5) Substitua o sub INTEIRO por:
- Código:
-
Public Sub NpcEditorInit()
On Error Resume Next
frmNpcEditor.picSprites.Picture = LoadPicture(App.Path & "\GFX\Sprites.bmp")
frmNpcEditor.txtName.Text = Trim$(Npc(EditorIndex).Name)
frmNpcEditor.txtAttackSay.Text = Trim$(Npc(EditorIndex).AttackSay)
frmNpcEditor.scrlSprite.Value = Npc(EditorIndex).Sprite
frmNpcEditor.txtSpawnSecs.Text = STR(Npc(EditorIndex).SpawnSecs)
frmNpcEditor.cmbBehavior.ListIndex = Npc(EditorIndex).Behavior
frmNpcEditor.scrlRange.Text = Npc(EditorIndex).Range
frmNpcEditor.scrlSTR.Text = Npc(EditorIndex).STR
frmNpcEditor.scrlDEF.Text = Npc(EditorIndex).DEF
frmNpcEditor.scrlSPEED.Text = Npc(EditorIndex).speed
frmNpcEditor.scrlMAGI.Text = Npc(EditorIndex).MAGI
frmNpcEditor.BigNpc.Value = Npc(EditorIndex).Big
frmNpcEditor.StartHP.Text = Npc(EditorIndex).MaxHp
frmNpcEditor.ExpGive.Text = Npc(EditorIndex).Exp
frmNpcEditor.scrlChance.Value = Npc(EditorIndex).ItemNPC(1).chance
frmNpcEditor.scrlNum.Value = Npc(EditorIndex).ItemNPC(1).ItemNum
frmNpcEditor.scrlValue.Value = Npc(EditorIndex).ItemNPC(1).ItemValue
If Npc(EditorIndex).Behavior = NPC_BEHAVIOR_SCRIPTED Then
frmNpcEditor.scrlScript.Value = Npc(EditorIndex).SpawnSecs
frmNpcEditor.scrlElement.Value = Npc(EditorIndex).Element
End If
If Val(0 + Npc(EditorIndex).SpriteSize) = 0 Then
frmNpcEditor.Opt32.Value = 1
frmNpcEditor.Opt64.Value = 0
Else
frmNpcEditor.Opt64.Value = 1
frmNpcEditor.Opt32.Value = 0
End If
If Npc(EditorIndex).SpawnTime = 0 Then
frmNpcEditor.chkDay.Value = Checked
frmNpcEditor.chkNight.Value = Checked
ElseIf Npc(EditorIndex).SpawnTime = 1 Then
frmNpcEditor.chkDay.Value = Checked
frmNpcEditor.chkNight.Value = Unchecked
ElseIf Npc(EditorIndex).SpawnTime = 2 Then
frmNpcEditor.chkDay.Value = Unchecked
frmNpcEditor.chkNight.Value = Checked
End If
frmNpcEditor.Show vbModal
End Sub
DONE
Se tiver duvidas ou perguntas utilize nosso forum!