![[Tutorial]Npc Shop Empty](https://2img.net/i/empty.gif)
Tutorial: Npc Shop
Descrição: Um npc que ao ser atacado abre a loja
pré-definida em sua criação, no padrão do eclipse
Origins só é possível fazer isso por Tile(atributo).
Engine: Eclipse Origins
Créditos: Lincoln
Client ~Side
No frmEditor_Npc Crie um Frame, Label e um HScrollBar com os seguintes names
Label: lblShop
Scroll: scrlNpcShop
Dê um duplo clique no scrlNpcShop e adicione
Código:
If scrlNpcShop.Value > 0 Then
lblShop.Caption = "Shop: " & scrlNpcShop.Value
Else
lblShop.Caption = "Shop: Nenhum"
End If
Npc(EditorIndex).SShop = scrlNpcShop.ValueApós procure por
Código:
.txtDamage.text = Npc(EditorIndex).Damageabaixo adicione
Código:
.scrlNpcShop.Value = Npc(EditorIndex).SShopProcure por
Código:
Private Type NpcRecAntes do
Código:
End Typeadicione
Código:
SShop as byteServer~Side
Procure por
Código:
Private Type NpcRecantes do
Código:
End TypeAdicione
Código:
SShop as byteno ModCombat procure por
Código:
Public Function CanPlayerAttackNpcDentro procure por
Código:
If NpcX = GetPlayerX(attacker) Then
If NpcY = GetPlayerY(attacker) Then Abaixo adicione
Código:
If Npc(MapNpc(MapNum).Npc(MapNpcNum).Num).SShop > 0 Then
SShopNpc attacker, Npc(MapNpc(MapNum).Npc(MapNpcNum).Num).SShop, MapNpcNum
End If No final do modGameLogic adicione
Código:
Public Sub SShopNpc(ByVal index As Long, ByVal SShop As Long, ByVal MapNpcNum As Long)
Dim NpcNum, MapNum As Long
NpcNum = Map(GetPlayerMap(index)).Npc(MapNpcNum)
MapNum = GetPlayerMap(index)
Call SendOpenShop(index, SShop)
TempPlayer(index).InShop = SShop
End Sub
Fim !