Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!

[ALL]Sistema de dicas

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

Tutorial [ALL]Sistema de dicas

Mensagem por xDirceu em Dom 29 Ago 2010, 11:21

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:

Código:
Nome:tmrDicas
Interval:1
Enabled:True

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:

Código:
lblDicas

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
avatar
xDirceu

Mensagens : 19

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Sistema de dicas

Mensagem por Lucas Roberto em Dom 29 Ago 2010, 15:56

Otimo!!!

1+ CRED
Laughing
avatar
Lucas Roberto

Mensagens : 706

http://universogamesmmo.forumeiros.com

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Sistema de dicas

Mensagem por D'Black em Dom 29 Ago 2010, 16:38

Vlw Pelo Tuto está ajudano muitas pessoas xD
avatar
D'Black

Mensagens : 30

http://www.uniononline.tk/

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Sistema de dicas

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum