[ALL]Caixa de Sugestoes.

por Lucas Lôpo Sáb 24 Out 2009, 22:39

Bom olá pessoal venho aqui trazendo uma tutorial simples mas porem legal ^^
Vou encinar a voces a como colocar uma caixinha de sugestoes no seu server.
Bom vamos ao que entereça baixe o anexo que estaram no final do tuto e depois add eles no seu projeto feito isso

Client Side

Crie um CMB "Command Button" no seu mirage de dois cliques nele e deixe-o da seguinte forma:

Código:: Private Sub Command2_Click() frmSuggestions.Show vbModal End Sub

Depois va no final do modClientTCP e add isso:

Código:: Sub SendSuggestions(ByVal Message As String) Dim Packet As String Packet = "SUGGESTIONREPORT" & SEP_CHAR & Message & SEP_CHAR & END_CHAR Call SendData(Packet) End Sub

Server Side

Bom agora no server va no modDatabase e procure :

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 START_MAP As Long Public START_X As Long Public START_Y As Long Public Const ADMIN_LOG = "logs\admin.txt" Public Const PLAYER_LOG = "logs\player.txt"

Abaixo de:

Código:: Public Const PLAYER_LOG = "logs\player.txt"

Adicione:

Código:: Public Const SUGGESTION_LOG = "\Logs\suggestions.txt"

No modServerTcp abaixo de :

Código:: ' Se tudo okay, setar acesso dele da Guild para 0 Call SetPlayerGuild(FindPlayer(Parse(1)), GetPlayerGuild(Index)) Call SetPlayerGuildAccess(FindPlayer(Parse(1)), 0) Call SendPlayerData(FindPlayer(Parse(1))) Exit Sub

Adicione isso:

Código:: ' ::::::::::::::::::::::: ' :: Suggestion Report packet :: ' ::::::::::::::::::::::: Case "suggestionreport" 'Dim Message As String If GetPlayerLevel(Index) >= 1 Then Message = Trim(Parse(1)) Call AddLog(GetPlayerName(Index) & ": " & Message & "", SUGGESTION_LOG) Call PlayerMsg(Index, "Thank you for reporting your Suggestions, " & GetPlayerName(Index), White) Exit Sub End If

Fim...
OBS: Para ver as sugestoes so ir em Logs e la vai ter o suggestions.txt.
Antecipando qualquer coisa nao pus pra abrir o suggestions pelo editor clicando em um botao no server como exemplo Editar Script
pois isso da muito bug no seu server mas se quizerem so me falar que eu coloco sem problemas ^^

Anexo:
http://www.massmirror.com/1b7bdae5dee2a8a4bc698901de5149b8.html

ou

http://www.4shared.com/file/143413707/5953e75a/Sugestoes.html

Espero que gostem ^^