FuckStyle
Mensagens : 23 Data de inscrição : 07/12/2011
| Assunto: 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 | |
|
シャイニング Administrador
Mensagens : 19 Data de inscrição : 19/11/2011 Idade : 27 Localização : Fortaleza-ceará
| Assunto: (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 ? | |
|