Universo Games
Ola , Convidado

Sistema Noticias Logo1110

Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no Mundo RPG!!!
Universo Games
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Universo Games

Suporte e Desenvolvimento só no Universo Games
 
InícioInício  PortalPortal  EventosEventos  PublicaçõesPublicações  Últimas imagensÚltimas imagens  RegistarRegistar  EntrarEntrar  
Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

 

 Sistema Noticias

Ir para baixo 
AutorMensagem
Lucas Roberto
Administrador
Administrador
Lucas Roberto


Mensagens : 711

Sistema Noticias Empty
MensagemAssunto: Sistema Noticias   Sistema Noticias EmptyTer 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
Ir para o topo Ir para baixo
https://universogamesmmo.forumeiros.com
 
Sistema Noticias
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Sistema de Anuncio
» [EO]Sistema de Pet
» Sistema De Vip
» Sistema Cash
» Sistema de Elemento

Permissões neste sub-fórumNão podes responder a tópicos
Universo Games :: Criação de Jogos :: Elysium Diamond :: Tutoriais :: Tutoriais Aprovados-
Ir para: