WebRPG


 
InícioInício  PortalPortal  CalendárioCalendário  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Conectar-seConectar-se  

Compartilhe | 
 

 Sistema De Cash

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
FuckStyle

avatar

Mensagens : 23
Data de inscrição : 07/12/2011

MensagemAssunto: Sistema De Cash   Sex Dez 09, 2011 12:34 pm

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

de dois cliques e add:
Código:
SendData "cshop" & END_CHAR

Procure e mude para:
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

Procure e mude para:
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

cliente pronto agora vamos parte a server

procure por:
Código:
Case "buyhouse"

Abaixo coloque:
Código:
Case "cshop"
            Call Packet_CashShop(Index)
            Exit Sub

no final do modHandleData coloque:
Código:
Public Sub Packet_CashShop(ByVal Index As Long)
SendTrade Index, Val(GetVar(App.Path & "/data.ini", "CONFIG", "CashShop"))
End Sub

na data ini procure por:
Código:
WalkFix=0

abaixo coloque:
Código:
'Loja em Cash
CashShop = 1 'colocar o número do shop

Créditos:
Minato
FuckStyle
Voltar ao Topo Ir em baixo
Ver perfil do usuário
シャイニング
Administrador
Administrador
avatar

Mensagens : 19
Data de inscrição : 19/11/2011
Idade : 21
Localização : Fortaleza-ceará

MensagemAssunto: (Sem assunto)   Qua Dez 14, 2011 1:14 am

MUITO BOM,mas pra que serve,tipo,mostra quantos CASH's cada jogador tem? dá pra fazer loja de cash ?
Voltar ao Topo Ir em baixo
Ver perfil do usuário http://www.webrpg.forumeiros.com
 
Sistema De Cash
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Gerir sistema de cash no fórum
» Sistema de cash no fórum
» Sistema cash mod acho que é esse o nome
» Sistema automatico de cash
» Sistema de registro e login por lists

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
WebRPG :: Eclipse Engine :: Tutoriais Eclipse Engine-
Ir para: