[ALL]Sistema de dicas

Convidado

Enquanto o player está se conectando ao jogo ele recebe alguma dicas.

Crie um novo Modulo e adicione isso:

Código:: Option Explicit

Public Declare Function WritePrivateProfileString& Lib "KERNEL32" Alias "WritePrivateProfileStringA" (ByVal AppName$, ByVal KeyName$, ByVal keydefault$, ByVal FileName$)
Public Declare Function GetPrivateProfileString& Lib "KERNEL32" Alias "GetPrivateProfileStringA" (ByVal AppName$, ByVal KeyName$, ByVal keydefault$, ByVal ReturnedString$, ByVal RSSize&, ByVal FileName$)

Public Sub WriteINI(INISection As String, INIKey As String, INIValue As String, INIFile As String)
Call WritePrivateProfileString(INISection, INIKey, INIValue, INIFile)
End Sub

Public Function ReadINI(INISection As String, INIKey As String, INIFile As String) As String
Dim StringBuffer As String
Dim StringBufferSize As Long

StringBuffer = Space$(255)
StringBufferSize = Len(StringBuffer)

StringBufferSize = GetPrivateProfileString(INISection, INIKey, vbNullString, StringBuffer, StringBufferSize, INIFile)

If StringBufferSize > 0 Then
ReadINI = Left$(StringBuffer, StringBufferSize)
Else
ReadINI = vbNullString
End If
End Function

Na frmSendGetData, crie um timer e deixe assim:

Coloque esse código no timer:

Código:: Dim MAXDICAS As Long
MAXDICAS = ReadINI("Dicas", "Max_Dicas", App.Path & "\config.ini")

lblDicas.Caption = "- " & ReadINI("Dicas", "Dica_" & Rand(1, MAXDICAS), App.Path & "\config.ini")
tmrDicas.Enabled = False

Agora crie uma label e dê o nome de:

adicione isso no config.ini:

Código:: [Dicas]
Max_Dicas=3
Dica_1=Engines Brasil.(edite)
Dica_2=Créditos: RafaelS.~ (edite)
Dica_3=EEB 3, vai ser logo logo lançada. :P (edite)

No final do modGamelogic adicione:

Código:: Public Function Rand(ByVal Low As Long, ByVal High As Long) As Long
Randomize
Rand = Int((High - Low + 1) * Rnd) + Low
End Function

xDirceu (disponibilizando)

Créditos:
• RafaelS.~
• PRODEV

Administrador Mensagens : 711

Otimo!!!

1+ CRED

Convidado

Vlw Pelo Tuto está ajudano muitas pessoas xD