Dooolly escreveu:

O que é MySQL?
O MySQL é um sistema de gerenciamento de banco de dados, que utiliza a linguagem SQL (Linguagem de Consulta Estruturada) como interface. É atualmente um dos bancos de dados mais populares , com mais de 10 milhões de instalações pelo mundo.

Características

• Portabilidade (suporta praticamente qualquer plataforma atual);
  
• Compatibilidade (existem drivers ODBC, JDBC e .NET e módulos de interface para diversas linguagens de programação, como Delphi, Java, C/C++, C#, Visual Basic, Python, Perl, PHP, ASP e Ruby)
  
• Excelente desempenho e estabilidade;
  
• Pouco exigente quanto a recursos de novos hardware;
  
• Facilidade no manuseio;
  
• É um Software Livre com base na GPL (entretanto, se o programa que acessar o Mysql não for GPL, uma licença comercial deverá ser adquirida);
  
• Contempla a utilização de vários Storage Engines como MyISAM, InnoDB, Falcon, BDB, Archive, Federated, CSV, Solid…
  
• Suporta controle transacional;
  
• Suporta Triggers;
  
• Suporta Cursors (Non-Scrollable e Non-Updatable);
  
• Suporta Stored Procedures e Functions;
  
• Replicação facilmente configurável;
  
• Interfaces gráficas (MySQL Toolkit) de fácil utilização cedidos pela MySQL Inc.
  

Servidor Pronto

Tutorial
Antes de começar façam Backup do seu Servidor, não iremos mexer no Cliente

Primeiramente vamos instalar uma nova Referencia!
No topo do VB6 vá em Project>References e marque a opção
Microsoft ActiveX Data Objects 2.6 Library


No modDatabase apague toda essa sub:

Código:

Sub SavePlayer(ByVal index As Long)

Agora apague toda a:

Código:

Function FindChar(ByVal Name As String) As Boolean

Agora apague toda a:

Código:

Function PasswordOK(ByVal Name As String, ByVal Password As String) As Boolean

Apague toda a:

Código:

Function CharExist(ByVal index As Long) As Boolean

Apague toda a:

Código:

Sub LoadPlayer(ByVal index As Long, ByVal Name As String)

Apague toda a:

Código:

Function AccountExist(ByVal Name As String) As Boolean

Procure por:

Código:

' Serves as a constructor

Abaixo adicione:

Código:

Dim File As String
    
    File = App.Path & "\Data\mysql.ini"
    If Not FileExist(File, True) Then
       PutVar File, "MYSQL", "Host", "127.0.0.1"
       PutVar File, "MYSQL", "Port", 3306
       PutVar File, "MYSQL", "Database", "Database"
       PutVar File, "MYSQL", "User", "root"
       PutVar File, "MYSQL", "Password", "  "
    End If

    Call SetStatus("Connecting to Database...")
    Call ConnectDatabase(GetVar(File, "MYSQL", "Host"), GetVar(File, "MYSQL", "Port"), GetVar(File, "MYSQL", "Database"), GetVar(File, "MYSQL", "User"), GetVar(File, "MYSQL", "Password"))

Agora instale os seguintes arquivos:
Arquivos*
Driver ODBC 3.51*

Vamos instalar o modMySQL
Extraia o arquivo rar dentro da pasta do servidor.

Volte para o Visual Basic e clique com o Botão Direito do Mouse na pasta modules Assim:


Vai aparecer o seguinte:


Clique em Existing, vai em src, e selecione o modMySQL


Agora vamos Configurar
Instale o Driver ODBC Connector 3.51(Eu já havia deixado o link!)

Para configurar você vai precisar de um lugar para hospedar seu Database.
Vou ensinar como hospedar em seu computador.

Para isso você vai precisar do VertrigoServ
Baixar VertrigoServ

Instale-o, Não vou fazer um tutorial disso pois irá ficar muito extenso, mas não tem dificuldade!

Depois de instalado, abra seu navegador, e digite: http://localhost/phpmyadmin
Vai pedir o login e a senha, você pode usar a padrão que é:
Login: root
Senha: vertrigo

Vai aparecer algo semelhante a isso:

Imagem Grande:

Clique em Base de Dados, no topo da pagina!
Ai onde tem Create Database, você digita um nome para seu banco de dados, ex: mundoninja, mundo_ninja. Não pode usar espaços.
Depois clique em Criar

Agora que sua Base de Dados foi criada, ela irá aparecer em uma lista a sua esquerda.
Clique nela e depois vá em Importar.


Clique em Selecionar Arquivo. E Selecione o arquivo Eclipse30.sql que você já havia baixado junto com o modMySQL.
Feito isso execute o servidor para que o arquivo MySQL.ini seja criado. Vai dá um erro, mas é normal.

Depois do arquivo ter sido criado vá na pasta Data. Na pasta do server, e abra o arquivo MySQL.INI
Vai está assim:

Código:

[MYSQL]
Host=127.0.0.1
Port=3306
Database=Database
User=root
Password=

Propriedades

• Host: Numero do ip onde seu servidor está hospedado. Ser estiver hospedado junto com o server, deixa como está.
  
• Port: Pode deixar como está.
  
• Database: Aqui é o nome da base de dados que você criou no phpmyadmin
  
• User=Usuário do host, aquele que você usou no para entrar no phpmyadmin, "root"
  
• Password=Senha do host, aquele que você usou no para entrar no phpmyadmin, "vertrigo"
  

Finalmente terminamos o tutorial pode testa-lo.

Créditos
Eu por Criar o Tutorial
Valentine por ajudar a melhorar
Dragonick por criar e dar permissão para dispor
Tópico Original

mahdiias escreveu:Nao consigo achar o codigo :' Serves as a constructor o que eu faço?

Código:


[size=12]  If Player(index).CurrentTask > 0 Then[/size][size=12][/size]
[size=12]        If Task(Player(index).CurrentTask).Type = TASK_TYPE_TALKTONPC Then[/size][size=12][/size]
[size=12]            If NpcNum = Task(Player(index).CurrentTask).Data1 Then[/size][size=12][/size]
[size=12]                If Task(Player(index).CurrentTask).RewardItem > 0 Then[/size][size=12][/size]
[size=12]                    If FindOpenInvSlot(index, Task(Player(index).CurrentTask).RewardItem) > 0 Then[/size][size=12][/size]
[size=12]                        GiveInvItem index, Task(Player(index).CurrentTask).RewardItem, Task(Player(index).CurrentTask).RewardAmount[/size][size=12][/size]
[size=12]                        Call SendChatBubble(MapNum, MapNpcNum, TARGET_TYPE_NPC, Trim$(Task(Player(index).CurrentTask).CompleteMsg))[/size][size=12][/size]
[size=12]                        PlayerMsg index, "Task complete", White[/size][size=12][/size]
[size=12]                        If Task(Player(index).CurrentTask).Repeat = True Then[/size][size=12][/size]
[size=12]                            Player(index).TaskKill = 0[/size][size=12][/size]
[size=12]                            Player(index).TaskComplete(Player(index).CurrentTask) = False[/size][size=12][/size]
[size=12]                            Player(index).CurrentTask = 0[/size][size=12][/size]
[size=12]                        Else[/size][size=12][/size]
[size=12]                            Player(index).TaskKill = 0[/size][size=12][/size]
[size=12]                            Player(index).TaskComplete(Player(index).CurrentTask) = True[/size][size=12][/size]
[size=12]                            Player(index).CurrentTask = 0[/size][size=12][/size]
[size=12]                        End If[/size][size=12][/size]
[size=12]                        Call SendPlayerData(index)[/size][size=12][/size]
[size=12]                    Else[/size][size=12][/size]
[size=12]                        PlayerMsg index, "Your inventory is full.", White[/size][size=12][/size]
[size=12]                    End If[/size][size=12][/size]
[size=12]                Else[/size][size=12][/size]
[size=12]                    Call SendChatBubble(MapNum, MapNpcNum, TARGET_TYPE_NPC, Trim$(Task(Player(index).CurrentTask).CompleteMsg))[/size][size=12][/size]
[size=12]                    PlayerMsg index, "Task complete", White[/size][size=12][/size]
[size=12]                    If Task(Player(index).CurrentTask).Repeat = True Then[/size][size=12][/size]
[size=12]                        Player(index).TaskKill = 0[/size][size=12][/size]
[size=12]                        Player(index).TaskComplete(Player(index).CurrentTask) = False[/size][size=12][/size]
[size=12]                        Player(index).CurrentTask = 0[/size][size=12][/size]
[size=12]                    Else[/size][size=12][/size]
[size=12]                        Player(index).TaskKill = 0[/size][size=12][/size]
[size=12]                        Player(index).TaskComplete(Player(index).CurrentTask) = True[/size][size=12][/size]
[size=12]                        Player(index).CurrentTask = 0[/size][size=12][/size]
[size=12]                    End If[/size][size=12][/size]
[size=12]                    Call SendPlayerData(index)[/size][size=12][/size]
[size=12]                End If[/size][size=12][/size]
[size=12]                Exit Sub[/size][size=12][/size]
[size=12]            End If[/size][size=12][/size]
[size=12]        End If[/size][size=12][/size]
[size=12]    End If[/size]
[size=12]

adiif1 escreveu:Help someone with task? ; /

Código:


If Player(index).CurrentTask > 0 Then
        If Task(Player(index).CurrentTask).Type = TASK_TYPE_TALKTONPC Then
            If NpcNum = Task(Player(index).CurrentTask).Data1 Then
                If Task(Player(index).CurrentTask).RewardItem > 0 Then[/size]
                    If FindOpenInvSlot(index, Task(Player(index).CurrentTask).RewardItem) > 0 Then
                        GiveInvItem index, Task(Player(index).CurrentTask).RewardItem, Task(Player(index).CurrentTask).RewardAmount
                        Call SendChatBubble(MapNum, MapNpcNum, TARGET_TYPE_NPC, Trim$(Task(Player(index).CurrentTask).CompleteMsg))
                        PlayerMsg index, "Task complete", White
                        If Task(Player(index).CurrentTask).Repeat = True Then
                            Player(index).TaskKill = 0
                            Player(index).TaskComplete(Player(index).CurrentTask) = False
                            Player(index).CurrentTask = 0
                        Else
                            Player(index).TaskKill = 0
                            Player(index).TaskComplete(Player(index).CurrentTask) = True
                            Player(index).CurrentTask = 0
                        End If
                        Call SendPlayerData(index)
                    Else
                        PlayerMsg index, "Your inventory is full.", White
                    End If
                Else
                    Call SendChatBubble(MapNum, MapNpcNum, TARGET_TYPE_NPC, Trim$(Task(Player(index).CurrentTask).CompleteMsg))
                    PlayerMsg index, "Task complete", White
                    If Task(Player(index).CurrentTask).Repeat = True Then
                        Player(index).TaskKill = 0
                        Player(index).TaskComplete(Player(index).CurrentTask) = False
                        Player(index).CurrentTask = 0
                    Else
                        Player(index).TaskKill = 0
                        Player(index).TaskComplete(Player(index).CurrentTask) = True
                        Player(index).CurrentTask = 0
                    End If
                    Call SendPlayerData(index)
                End If
                Exit Sub
            End If
        End If
    End If


Código:

' Missões
        TempString = vbNullString
        For J = 1 To MAX_QUESTS
          If LenB(TempString) Then TempString = TempString & vbNewLine
          TempString = TempString & J & " " & .PlayerQuest(J).ActualTask & " " & .PlayerQuest(J).CurrentCount & " " & .PlayerQuest(J).Status
        Next
       
        Tabela!Quests = TempString

Código:

' Missões
    TempString = Tabela!Quests
   
    If LenB(TempString) Then
      TempStr = Split(TempString, vbNewLine)
      For J = 0 To UBound(TempStr)
          TempStr2 = Split(TempStr(J), " ")
          Player(Index).PlayerQuest(J + 1).ActualTask = TempStr2(1)
          Player(Index).PlayerQuest(J + 1).CurrentCount = TempStr2(2)
          Player(Index).PlayerQuest(J + 1).Status = TempStr2(3)
      Next
    End If

adiif1 escreveu:Dont work ;/

i add

Código:


Dim TempString As String, TempStr As String, TempStr2 As String, TempStr3 As String


add table Quests [text]

Expected array 
For J = 0 To UBound(TempStr)

Código:


Public Const MAX_TASKS As Long = 255

' Task
Public Const TASK_TYPE_GATHERITEM As Byte = 0
Public Const TASK_TYPE_KILLNPC As Byte = 1
Public Const TASK_TYPE_TALKTONPC As Byte = 2

If Player(index).CurrentTask > 0 Then
        If Task(Player(index).CurrentTask).Type = TASK_TYPE_TALKTONPC Then
            If NpcNum = Task(Player(index).CurrentTask).Data1 Then
                If Task(Player(index).CurrentTask).RewardItem > 0 Then
                    If FindOpenInvSlot(index, Task(Player(index).CurrentTask).RewardItem) > 0 Then
                        GiveInvItem index, Task(Player(index).CurrentTask).RewardItem, Task(Player(index).CurrentTask).RewardAmount
                        Call SendChatBubble(MapNum, MapNpcNum, TARGET_TYPE_NPC, Trim$(Task(Player(index).CurrentTask).CompleteMsg))
                        PlayerMsg index, "Task complete", White
                        If Task(Player(index).CurrentTask).Repeat = True Then
                            Player(index).TaskKill = 0
                            Player(index).TaskComplete(Player(index).CurrentTask) = False
                            Player(index).CurrentTask = 0
                        Else
                            Player(index).TaskKill = 0
                            Player(index).TaskComplete(Player(index).CurrentTask) = True
                            Player(index).CurrentTask = 0
                        End If
                        Call SendPlayerData(index)
                    Else
                        PlayerMsg index, "Your inventory is full.", White
                    End If
                Else
                    Call SendChatBubble(MapNum, MapNpcNum, TARGET_TYPE_NPC, Trim$(Task(Player(index).CurrentTask).CompleteMsg))
                    PlayerMsg index, "Task complete", White
                    If Task(Player(index).CurrentTask).Repeat = True Then
                        Player(index).TaskKill = 0
                        Player(index).TaskComplete(Player(index).CurrentTask) = False
                        Player(index).CurrentTask = 0
                    Else
                        Player(index).TaskKill = 0
                        Player(index).TaskComplete(Player(index).CurrentTask) = True
                        Player(index).CurrentTask = 0
                    End If
                    Call SendPlayerData(index)
                End If
                Exit Sub
            End If
        End If
    End If


GallighanMaker escreveu:@Dooolly To usando um sistema de guild mas não está salvando no banco de dados. Sabe o que eu teria que fazer para salvar?. A guild está sendo salva em um arquivo .dat na pasta guilds dentro do servidor ainda. Pelo que eu vi eu teria q apagar o loadguild, saveguild etc e passar para o modMySql mas não sei ao certo os parâmetros da guild.