Universo Games
Ola , Convidado



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

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Você não está conectado. Conecte-se ou registre-se

[ALL]Sistema de dicas

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1Tutorial [ALL]Sistema de dicas em Dom 29 Ago 2010, 11:21

xDirceu


Membro
Membro
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

2Tutorial Re: [ALL]Sistema de dicas em Dom 29 Ago 2010, 15:56

Luucas Robeerto


Fundador
Fundador
Otimo!!!

1+ CRED
Laughing

http://universogamesmmo.forumeiros.com

3Tutorial Re: [ALL]Sistema de dicas em Dom 29 Ago 2010, 16:38

D'Black


Membro
Membro
Vlw Pelo Tuto está ajudano muitas pessoas xD

http://www.uniononline.tk/

4Tutorial Re: [ALL]Sistema de dicas Hoje à(s) 08:39

Conteúdo patrocinado


Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

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