Lucas Roberto Administrador
Mensagens : 711
| Assunto: Sistema Noticias Ter 05 Nov 2013, 01:41 | |
| Olá, esse tutorial funcional de tal maneira você escreve algum comunicado pelo servidor no Konfuze Script Editor ele manda para o picture do cliente !!!Procure por: - Código:
-
If LCase(Dir(App.Path & "\flashs", vbDirectory)) <> "flashs" Then Call MkDir(App.Path & "\Flashs") End If abaixo coloque: - Código:
-
If LCase(Dir(App.Path & "\News", vbDirectory)) <> "NEWS" Then Call MkDir(App.Path & "\News") End If procura por: - Código:
-
Call PutVar(App.Path & "\config.ini", "CONFIG", "AutoScroll", 1) End If abaixo coloque - Código:
-
If FileExist("\NEWS\News.ini") = False Then WriteINI "DATA", "News", "News: -Lucas Roberto no Noticiario kkk", App.Path & "\NEWS\News.ini" End If procure por: - Código:
-
' ::::::::::::::::::::::::::::::::::::::: ' :: New character classes data packet :: ' ::::::::::::::::::::::::::::::::::::::: If Parse(0) = "newcharclasses" Then n = 1 ' Max classes Max_Classes = Val(Parse(n)) ReDim Class(1 To Max_Classes) As ClassRec n = n + 1
For I = 1 To Max_Classes Class(I).Name = Parse(n) Class(I).HP = Val(Parse(n + 1)) Class(I).MP = Val(Parse(n + 2)) Class(I).SP = Val(Parse(n + 3)) Class(I).STR = Val(Parse(n + 4)) Class(I).DEF = Val(Parse(n + 5)) Class(I).Speed = Val(Parse(n + 6)) Class(I).Magi = Val(Parse(n + 7)) 'Class(i).INTEL = Val(Parse(n + 8)) Class(I).MaleSprite = Val(Parse(n + 8)) Class(I).FemaleSprite = Val(Parse(n + 9)) Class(I).Locked = Val(Parse(n + 10)) n = n + 11 Next I abaixo coloque: - Código:
-
If LCase(Parse(0)) = "news" Then Call WriteINI("DATA", "News", Parse(1), (App.Path & "\NEWS\News.ini")) Exit Sub End If no final do modGameLogic coloque: - Código:
-
Public Sub MainMenuInit() Dim Stuff As String Dim Stuff2 As String Dim Stuff3 As String Dim ThisIsANumber As Long
Stuff2 = "" Stuff = ReadINI("Dados", "Desc", App.Path & "\NEWS\News.ini") For ThisIsANumber = 1 To Len(Stuff) If Mid$(Stuff, ThisIsANumber, 1) = "*" Then Stuff2 = Stuff2 & vbCrLf Else Stuff2 = Stuff2 & Mid$(Stuff, ThisIsANumber, 1) End If Next Stuff3 = "" Stuff = ReadINI("Dados", "News", App.Path & "\NEWS\News.ini") For ThisIsANumber = 1 To Len(Stuff) If Mid$(Stuff, ThisIsANumber, 1) = "*" Then Stuff3 = Stuff3 & vbCrLf Else Stuff3 = Stuff3 & Mid$(Stuff, ThisIsANumber, 1) End If Next frmMainMenu.News.Text = Stuff3 & Stuff2 End Sub Crie no FrmMainMenu um TextBox com nome News crie um timer qualquer nome Interval de 1 de dois clique e coloque: - Código:
-
Call MainMenuInit Server.Cide crie um botão com qualquer nome caption: News Editor de dois clique e coloque: - Código:
-
AFileName = "news.ini" Unload frmEditor frmEditor.Show procure por: - Código:
-
Call SendFriendListToNeeded(GetPlayerName(Index)) abaixo coloque: - Código:
-
Call SendNewsTo(Index) procure por: - Código:
-
SpecialPutVar App.Path & "\Stats.ini", "SP", "AddPerSpeed", 20 abaixo coloque: - Código:
-
If Not FileExist("News.ini") Then PutVar App.Path & "\News.ini", "Dados", "ServerNews", "News:Alterar esta pasta na notícia" End If procure por: - Código:
-
Case "getinfo" Call SendInfo(Index) Exit Sub abaixo do sendinfo(index) coloque: - Código:
-
Call SendNewsTo(Index) no final do modservertcp coloque: - Código:
-
Sub SendNewsTo(ByVal Index As Long) Dim Packet As String
Packet = "NEWS" & SEP_CHAR & ReadINI("Dados", "ServerNews", App.Path & "\News.ini") & SEP_CHAR & END_CHAR Call SendDataTo(Index, Packet) End Sub procura por - Código:
-
' Usado para login. Public ServerLog As Boolean Public CurrentLoad As Long abaixo coloque - Código:
-
Public AFileName As String no começo do modGameLogic coloque depois disto - Código:
-
Option Explicit este codigo... - Código:
-
Sub AddToGrid(ByVal NewMap, _ ByVal NewX, _ ByVal NewY) On Error GoTo erro_no_grid Grid(NewMap).Loc(NewX, NewY).Blocked = True erro_no_grid: If Err.Number = 9 Then Resume Next End If End Sub
Public Sub ResetAllEditVals()
'Save the Default values to the registry SaveSetting App.EXEName, "EditOptions", "c0a", "0" SaveSetting App.EXEName, "EditOptions", "c0b", "65535" SaveSetting App.EXEName, "EditOptions", "c0c", "0" SaveSetting App.EXEName, "EditOptions", "c1a", "16777215" SaveSetting App.EXEName, "EditOptions", "c1b", "32768" SaveSetting App.EXEName, "EditOptions", "c1c", "2" SaveSetting App.EXEName, "EditOptions", "c2a", "0" SaveSetting App.EXEName, "EditOptions", "c2b", "16777215" SaveSetting App.EXEName, "EditOptions", "c2c", "0" SaveSetting App.EXEName, "EditOptions", "c3a", "0" SaveSetting App.EXEName, "EditOptions", "c3b", "16777215" SaveSetting App.EXEName, "EditOptions", "c3c", "0" SaveSetting App.EXEName, "EditOptions", "c4a", "0" SaveSetting App.EXEName, "EditOptions", "c4b", "16777152" SaveSetting App.EXEName, "EditOptions", "c4c", "0" SaveSetting App.EXEName, "EditOptions", "c5a", "16777215" SaveSetting App.EXEName, "EditOptions", "c5b", "16711680" SaveSetting App.EXEName, "EditOptions", "c5c", "1" SaveSetting App.EXEName, "EditOptions", "c6a", "0" SaveSetting App.EXEName, "EditOptions", "c6b", "8421504" SaveSetting App.EXEName, "EditOptions", "c6c", "0" SaveSetting App.EXEName, "EditOptions", "c7a", "8421504" SaveSetting App.EXEName, "EditOptions", "c7b", "16777215" SaveSetting App.EXEName, "EditOptions", "c7c", "0" SaveSetting App.EXEName, "EditOptions", "c8a", "16777215" SaveSetting App.EXEName, "EditOptions", "c8b", "0" SaveSetting App.EXEName, "EditOptions", "c8c", "0" SaveSetting App.EXEName, "EditOptions", "c9a", "16777215" SaveSetting App.EXEName, "EditOptions", "c9b", "255" SaveSetting App.EXEName, "EditOptions", "c9c", "0" SaveSetting App.EXEName, "EditOptions", "c10a", "16777215" SaveSetting App.EXEName, "EditOptions", "c10b", "16711680" SaveSetting App.EXEName, "EditOptions", "c10c", "0" SaveSetting App.EXEName, "EditOptions", "c11a", "16777215" SaveSetting App.EXEName, "EditOptions", "c11b", "12583104" SaveSetting App.EXEName, "EditOptions", "c11c", "0" SaveSetting App.EXEName, "EditOptions", "c12a", "16777215" SaveSetting App.EXEName, "EditOptions", "c12b", "128" SaveSetting App.EXEName, "EditOptions", "c12c", "1" SaveSetting App.EXEName, "EditOptions", "c13a", "16777215" SaveSetting App.EXEName, "EditOptions", "c13b", "255" SaveSetting App.EXEName, "EditOptions", "c13c", "0" SaveSetting App.EXEName, "EditOptions", "c14a", "16777215" SaveSetting App.EXEName, "EditOptions", "c14b", "16711680" SaveSetting App.EXEName, "EditOptions", "c14c", "0" SaveSetting App.EXEName, "EditOptions", "c15a", "16777215" SaveSetting App.EXEName, "EditOptions", "c15b", "0" SaveSetting App.EXEName, "EditOptions", "c15c", "1" SaveSetting App.EXEName, "EditOptions", "c16a", "16777215" SaveSetting App.EXEName, "EditOptions", "c16b", "0" SaveSetting App.EXEName, "EditOptions", "c16c", "0" SaveSetting App.EXEName, "EditOptions", "c17a", "0" SaveSetting App.EXEName, "EditOptions", "c17b", "16777215" SaveSetting App.EXEName, "EditOptions", "c17c", "0" SaveSetting App.EXEName, "EditOptions", "c18a", "0" SaveSetting App.EXEName, "EditOptions", "c18b", "8388736" SaveSetting App.EXEName, "EditOptions", "c18c", "0" SaveSetting App.EXEName, "EditOptions", "c19a", "0" SaveSetting App.EXEName, "EditOptions", "c19b", "8388736" SaveSetting App.EXEName, "EditOptions", "c19c", "0" SaveSetting App.EXEName, "EditOptions", "Saved", "1" End Sub
Public Sub GetEditColors() On Error GoTo EH Dim i As Integer
'Get the color Values For i = 0 To 19 ClrData(i).bgClr = CLng(GetSetting(App.EXEName, "EditOptions", "c" & i & "a", "0")) ClrData(i).frClr = CLng(GetSetting(App.EXEName, "EditOptions", "c" & i & "b", "0")) ClrData(i).fntProp = CLng(GetSetting(App.EXEName, "EditOptions", "c" & i & "c", "0")) Next i Exit Sub EH: End Sub Pessoal como disse acima esse tutorial só funciona no ELYSIUM DIAMOND INGLES, Más se esse tutorial estiver correto pode liberar para funcionar no ELYSIUM DIAMOND BR Ativando Konfuze Script Editor Creditos Luucas Robeerto por criar o codigo | |
|