Sistema de News na seleção de chars

por RenanR Ter 22 Jan 2013, 13:34

No meu elysium a seleção de chars é como um perfil da conta.. aqui vai um tutorial para aparecer news na frmChars

Cliente~Side frmChars

Crie um textbox com as propriedades;

Name = txtNews
MultiLine = True
Scrollbars = 1 - Horizontal

Vá nos códigos da form frmChars e adicione em qualquer lugar:

Código:: Private Sub txtNews_GotFocus() lstChars.SetFocus End Sub

Procure Por:

Código:: Public GAME_NAME As String

Abaixo adicione:

Código:: Public GAME_NEWS1 As String Public GAME_NEWS2 As String Public GAME_NEWS3 As String

Procure:

Código:: If Parse(0) = "maxinfo" Then GAME_NAME = Trim(Parse(1)) MAX_PLAYERS = Val(Parse(2)) MAX_ITEMS = Val(Parse(3)) MAX_NPCS = Val(Parse(4)) MAX_SHOPS = Val(Parse(5)) MAX_SPELLS = Val(Parse(6)) MAX_MAPS = Val(Parse(7)) MAX_MAP_ITEMS = Val(Parse(8)) MAX_MAPX = Val(Parse(9)) MAX_MAPY = Val(Parse(10)) MAX_EMOTICONS = Val(Parse(11)) MAX_SPEECH = Val(Parse(12))

Abaixo adicione:

Código:: GAME_NEWS1 = Trim(Parse(13)) GAME_NEWS2 = Trim(Parse(14)) GAME_NEWS3 = Trim(Parse(15))

Ainda nessa packet abaixo de:

Código:: frmMirage.Caption = Trim(GAME_NAME) App.Title = GAME_NAME

Adicione:

Código:: Call TextAdd(frmChars.txtNews, GAME_NEWS1, True) Call TextAdd(frmChars.txtNews, GAME_NEWS2, True) Call TextAdd(frmChars.txtNews, GAME_NEWS3, True)

ServerSide~

Procure por:

Código:: ' Constantes Gerais Public GAME_NAME As String

Abaixo adicione:

Código:: Public GAME_NEWS1 As String Public GAME_NEWS2 As String Public GAME_NEWS3 As String

Procure:

Código:: GAME_NAME = Trim$(GetVar(App.Path & "\Dados.ini", "CONFIG", "GameName"))

Abaixo ponha:

Código:: GAME_NEWS1 = Trim$(GetVar(App.Path & "\News.ini", "NEWS", "PrimeiraLinha")) GAME_NEWS2 = Trim$(GetVar(App.Path & "\News.ini", "NEWS", "SegundaLinha")) GAME_NEWS3 = Trim$(GetVar(App.Path & "\News.ini", "NEWS", "TerceiraLinha"))

Procure:

Código:: Dim Packs As String Packs = "MAXINFO" & SEP_CHAR Packs = Packs & GAME_NAME & SEP_CHAR Packs = Packs & MAX_PLAYERS & SEP_CHAR Packs = Packs & MAX_ITEMS & SEP_CHAR Packs = Packs & MAX_NPCS & SEP_CHAR Packs = Packs & MAX_SHOPS & SEP_CHAR Packs = Packs & MAX_SPELLS & SEP_CHAR Packs = Packs & MAX_MAPS & SEP_CHAR Packs = Packs & MAX_MAP_ITEMS & SEP_CHAR Packs = Packs & MAX_MAPX & SEP_CHAR Packs = Packs & MAX_MAPY & SEP_CHAR Packs = Packs & MAX_EMOTICONS & SEP_CHAR Packs = Packs & MAX_SPEECH & SEP_CHAR

Antes de Packs = Packs & END_CHAR adicione:

Código:: Packs = Packs & GAME_NEWS1 & SEP_CHAR Packs = Packs & GAME_NEWS2 & SEP_CHAR Packs = Packs & GAME_NEWS3 & SEP_CHAR

Agora vá na pasta do servidor e copie e cole o arquivo Dados.ini, renomeie o arquivo para News (News.ini), abra o arquivo e apague tudo que á dentro e coloque o seguinte dentro:

Código:: [NEWS] PrimeiraLinha=Eai galera teste de news SegundaLinha=Novidades Estão por vir TerceiraLinha=E Mais sistemas e mapas em breve, dungeons etc

Tutorial terminado.

Preview
Sistema de News na seleção de chars 4uycvmD