[ALL]Sistema de Cash

crie no frmMirage uma label "qualquer nome"
Caption:Cash

Código:

SendData "cshop" & END_CHAR

Código:

' Loads shop data into the form for the first time.
Public Sub loadShop(ByVal sNum As Integer)
    Dim i As Integer
    numItems = 0
    pageIndex = 0
    shopNum = sNum
    cmdBack.Visible = False

    Me.Caption = Shop(sNum).name

    ' Check to see if there are more pages
    For i = 1 To MAX_SHOP_ITEMS
        If Shop(shopNum).ShopItem(i).ItemNum > 0 Then
            numItems = numItems + 1
        End If
    Next i

    maxpages = numItems / 5

    If numItems > 5 Then
        cmdNext.Visible = True
    Else
        cmdNext.Visible = False
    End If

    ' Check if this shop fixes items
    If Shop(sNum).FixesItems = YES Then
        lblFix.Visible = True
    Else
        lblFix.Visible = False
    End If

    ' Check if this shop buys back items
    If Shop(sNum).BuysItems = YES Then
        lblSell.Visible = True
    Else
        lblSell.Visible = False
    End If

    ' Set it not to fix item mode by default
    fixItems = False

End Sub

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

Código:

Case "buyhouse"

Código:

        Case "cshop"
            Call Packet_CashShop(Index)
            Exit Sub

Código:

 Public Sub Packet_CashShop(ByVal Index As Long)
SendTrade Index, Val(GetVar(App.Path & "/data.ini", "CONFIG", "CashShop"))
End Sub

Código:

WalkFix=0

Código:

'Loja em Cash
CashShop = 1 'colocar o número do shop