Sistema de Cash
Página 1 de 1
Sistema de Cash
Escrito por Lucas Roberto na antiga MMORPGBR
ola estou fazendo um Sistema de Cash muito util uu
o lenon feiz mais o dele esta dando alguns erro
bom a do lenon e 100 veses melhor que este mais
faiz um shop so para Cash
vamos começar!
de dois cliques e add:
Procure e mude para:
Procure e mude para:
cliente pronto agora vamos parte a server
procure por:
Abaixo coloque:
no final do modHandleData coloque:
na data ini procure por:
abaixo coloque:
Créditos:
Vicardosof
LUCAS ROBERTO
RenanR - postar na nova mmorpgbr
ola estou fazendo um Sistema de Cash muito util uu
o lenon feiz mais o dele esta dando alguns erro
bom a do lenon e 100 veses melhor que este mais
faiz um shop so para Cash
vamos começar!
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:
Vicardosof
LUCAS ROBERTO
RenanR - postar na nova mmorpgbr
- Pontos : 0
Data de inscrição : 31/12/1969
Desineria RPG Maker
Nível de atividade:
(138/1000)
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|