Sistema de Cash

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

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.