Sistema de Premium por Data

Wellington Cortez escreveu:ok,mas tenho só + 1 duvida como fasso essa parte que vc disse?

Agora, na frmMain. Na PicAdmin, crie um botão com o nome cmdAPremium, nele adicione :


E tambem esta parte

Agora insira esse código na frmEditor_Premium :


Não tem como adicionar nada em frm,quando clica áparece a imagem do sistema de premium e mais nada,se fosse Mod dava pra adcionar isso,pode me ajudar?quero muito este sistema!

Código:

' Premium
        If GetPlayerPremium(attacker) = "Sim" Then
        exp = exp * 2
        End If

Código:

Exp * 4

Wellington Cortez escreveu:Cara,cheguei no server side ja.ai fui em maker...pra salvar o cliente e apareceu uma parte sobre esta minha pergunta

Agora, na frmMain. Na PicAdmin, crie um botão com o nome cmdAPremium, nele adicione :

só faltou isso,eu não sei o que fazer ai,eu não entendi direito o que vc quis dizer com o seu post,se puder me add msn pra me ajudar ta ai [Conteúdo Removido]

GuiinhoLP escreveu:Funciona em EEB?

Código:


 Private Sub HandlePlayerDPremium(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim Buffer As clsBuffer
Dim A As String
Dim B As Long, c As Long

    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler
   
    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
   
    ' Catch Data
    A = Buffer.ReadString
    B = Buffer.ReadLong
    c = Buffer.ReadLong
   
    ' Changing global variables
    If A = "Sim" Then
    Premium = "Premium : " & A
    RPremium = "You have : " & c - B & " days of Premium."
    Else
    Premium = vbNullString
    RPremium = vbNullString
    End If
   
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "HandlePlayerDPremium", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub HandlePremiumEditor()
Dim i As Long

    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler
   
    ' Check Access
    If GetPlayerAccess(MyIndex) < ADMIN_DEVELOPER Then
    Exit Sub
    End If
   
    ' If you have everything right, up the Editor.
    With frmeditor_Premium
    .Visible = True
    End With
   
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "HandlePremiumEditor", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub



Código:

frmeditor_Premium