Engines: Testei no E.O e no Modifications.
Nível de programação 2/5
Requisistos: Um cérebro e de preferência que funcione.
[size=12pt]Client Side -[/size]
Primeiramente abra sua FrmMain e coloque abaixo de " Ping " uma Label
Clique duas vezes na Label e adicione dentro dela:
Crtl + F,procure :
Abaixo adicione :
[size=12pt]Server Side -[/size]
Procure:
Adicione abaixo :
No final de ModHandledata adicione isto:
Nada data ini depois de:
Coloque
[OBS] Em vez de " Minato gostoso " no codigo acima,coloque o número no qual ficará o Shop de CASH
Créditos: Estão no meu celular da oi,pois o da TIM está quebrado.
Nível de programação 2/5
Requisistos: Um cérebro e de preferência que funcione.
[size=12pt]Client Side -[/size]
Primeiramente abra sua FrmMain e coloque abaixo de " Ping " uma Label
Nome : lblCash
Caption: Cash
Clique duas vezes na Label e adicione dentro dela:
- Código:
SendData "cshop" & END_CHAR
Crtl + F,procure :
- Código:
' Loads shop data into the form for the first time.
Abaixo adicione :
- Código:
' Shows the specified page
Public Sub showPage(ByVal page As Integer)
Dim i As Integer
Dim itemName As String
Dim shopCurrency As String
On Error GoTo showPage_Error
lblPage.Caption = "Page: " & (page + 1)
For i = 1 To 5
If Shop(shopNum).ShopItem(page * 5 + i).ItemNum = 0 Then
imgBox(i - 1).Visible = False
lblItem(i - 1).Visible = False
Else
imgBox(i - 1).Visible = True
lblItem(i - 1).Visible = True
itemName = Trim$(Item(Shop(shopNum).ShopItem(pageIndex * 5 + i).ItemNum).name)
shopCurrency = Trim$(Item(Shop(shopNum).currencyItem).name)
lblItem(i - 1).Caption = itemName & vbNewLine & "Price: " & STR(Shop(shopNum).ShopItem(pageIndex * 5 + i).Price) & " " & shopCurrency
Me.iconn(i - 1).Cls
Call BltIcon(i - 1, Shop(shopNum).ShopItem(pageIndex * 5 + i).ItemNum)
End If
Next i
' If numItems / 5 - (pageIndex * 5) > 1 Then
If page < maxpages Then
cmdNext.Visible = True
Else
cmdNext.Visible = False
End If
If pageIndex > 0 Then
cmdBack.Visible = True
Else
cmdBack.Visible = False
End If
On Error GoTo 0
Exit Sub
showPage_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure showPage of Form frmNewShop"
If MsgBox("Could not show page.", vbRetryCancel) = vbRetry Then
Call showPage(page)
Else
frmNewShop.Visible = False
End If
Exit Sub
End Sub
[size=12pt]Server Side -[/size]
Procure:
- Código:
Case "buyhouse"
Adicione abaixo :
- Código:
Case "cshop"
Call Packet_CashShop(Index)
Exit Sub
No final de ModHandledata adicione isto:
- Código:
Public Sub Packet_CashShop(ByVal Index As Long)
SendTrade Index, Val(GetVar(App.Path & "/data.ini", "CONFIG", "CashShop"))
End Sub
Nada data ini depois de:
- Código:
WalkFix=0
Coloque
- Código:
'Loja em Cash
CashShop = Minato gostoso
[OBS] Em vez de " Minato gostoso " no codigo acima,coloque o número no qual ficará o Shop de CASH
Créditos: Estão no meu celular da oi,pois o da TIM está quebrado.