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

Sistema Noticias

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

1Tutorial Sistema Noticias em Seg 04 Nov 2013, 23:41

Luucas Robeerto


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


_______________________________________________________________________________________________________

[Você precisa estar registrado e conectado para ver esta imagem.]
Spoiler:
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
http://universogamesmmo.forumeiros.com

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