[ERRO] Alguem me ajuda ? acho qe é simples :D
+2
Ricardo
LuizP
6 participantes
MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Suporte e Pedidos :: Assuntos resolvidos
Página 1 de 1
[ERRO] Alguem me ajuda ? acho qe é simples :D
por LuizP Sex 18 Mar 2011, 21:36
Eaae galera 
qeria pedir a ajuda de alguem , qe puder me ajudar, USHAUSH'
tiipo , eu editei o FrmMirage do meu dbz , e tal .
![[ERRO] Alguem me ajuda ? acho qe é simples :D 62509123](https://2img.net/r/ihimizer/img232/6489/62509123.jpg)
aai táa , e quando eu clico no 'start' , tipo aqele botao qe testa , qe todo mundo dever saber qual é , USHAUHS'
da esse erro aqe :
![[ERRO] Alguem me ajuda ? acho qe é simples :D 53257750](https://2img.net/r/ihimizer/img818/7817/53257750.jpg)
e depois :
![[ERRO] Alguem me ajuda ? acho qe é simples :D 91338452](https://2img.net/r/ihimizer/img577/1441/91338452.jpg)
entao , qeria saber se alguem podia me ajudar ai
(dou os creds , se me ajudar de verdade !)
qeria pedir a ajuda de alguem , qe puder me ajudar, USHAUSH'
tiipo , eu editei o FrmMirage do meu dbz , e tal .
aai táa , e quando eu clico no 'start' , tipo aqele botao qe testa , qe todo mundo dever saber qual é , USHAUHS'
da esse erro aqe :
e depois :
entao , qeria saber se alguem podia me ajudar ai
(dou os creds , se me ajudar de verdade !
)
LuizP- Novato
- Mensagens : 29
Re: [ERRO] Alguem me ajuda ? acho qe é simples :D
por Ricardo Sáb 19 Mar 2011, 08:56
Vai, no arquivo config, e ve se o ip e a porta esta la, acho que e isso
Ricardo
- Mensagens : 1044
Re: [ERRO] Alguem me ajuda ? acho qe é simples :D
por St4rk Sáb 19 Mar 2011, 09:14
Na realidade você desconfiguro o Socket.
St4rk- Membro de Honra
- Mensagens : 2251
-
Re: [ERRO] Alguem me ajuda ? acho qe é simples :D
por gokured Sáb 19 Mar 2011, 09:16
Mano olha nao e bom abir no start,para tu testar o seu gui novo se tem q compling .
Bom se tu nao sober compling vou te ensinar.
voce vai file e dps voce vai ver maker ' eo nome do teu servidor ' dai esso clika alie e seja feliz![[ERRO] Alguem me ajuda ? acho qe é simples :D 535201](https://2img.net/u/2515/17/56/91/smiles/535201.gif)
Me da + Cred ae se ao suber da credito eu ensino
no lado direito da tela em um + e um -so clika no + e voce me dara + um cred
Abraço Gokured
bom é isso ate a próxima ...
Bom se tu nao sober compling vou te ensinar.
voce vai file e dps voce vai ver maker ' eo nome do teu servidor ' dai esso clika alie e seja feliz
Me da + Cred ae se ao suber da credito eu ensino
no lado direito da tela em um + e um -so clika no + e voce me dara + um cred
Abraço Gokured
bom é isso ate a próxima ...
Última edição por gokured em Sáb 19 Mar 2011, 09:18, editado 1 vez(es) (Motivo da edição : erro de explicação)
gokured- Membro Junior
- Mensagens : 65
Re: [ERRO] Alguem me ajuda ? acho qe é simples :D
por Lucas Roberto Sáb 19 Mar 2011, 11:01
Opa simples de arrumar
troque a sub que esta dando erro por essa
explicando:
troque a sub que esta dando erro por essa
- Código:
Sub TcpInit()
SEP_CHAR = Chr(169)
END_CHAR = Chr(174)
NEXT_CHAR = Chr(171)
GoDebug = NO
PlayerBuffer = ""
frmMirage.Socket.RemoteHost = "5.177.210.98"
frmMirage.Socket.RemotePort = "4000"
End Sub
explicando:
Sub TcpInit()
SEP_CHAR = Chr(169)
END_CHAR = Chr(174)
NEXT_CHAR = Chr(171)
GoDebug = NO
PlayerBuffer = ""
frmMirage.Socket.RemoteHost = "s5s2s5s2s58" eo ip que voce colocar do server
frmMirage.Socket.RemotePort = "4000"
End Sub
Lucas Roberto- Membro Veterano
- Mensagens : 1794
-
Re: [ERRO] Alguem me ajuda ? acho qe é simples :D
por LuizP Sáb 19 Mar 2011, 11:27
gokured escreveu:Mano olha nao e bom abir no start,para tu testar o seu gui novo se tem q compling .
Bom se tu nao sober compling vou te ensinar.
voce vai file e dps voce vai ver maker ' eo nome do teu servidor ' dai esso clika alie e seja feliz
Me da + Cred ae se ao suber da credito eu ensino
no lado direito da tela em um + e um -so clika no + e voce me dara + um cred
Abraço Gokured
bom é isso ate a próxima ...
ae man , na hora qe eu vo compila , da isso :
![[ERRO] Alguem me ajuda ? acho qe é simples :D Erroj](https://2img.net/r/ihimizer/img856/3326/erroj.jpg)
se voce , ou alguem souber oqe é , me avisa ai
LuizP- Novato
- Mensagens : 29
Re: [ERRO] Alguem me ajuda ? acho qe é simples :D
por LuizP Sáb 19 Mar 2011, 11:36
Lucas Roberto escreveu:Opa simples de arrumar
troque a sub que esta dando erro por essa
- Código:
Sub TcpInit()
SEP_CHAR = Chr(169)
END_CHAR = Chr(174)
NEXT_CHAR = Chr(171)
GoDebug = NO
PlayerBuffer = ""
frmMirage.Socket.RemoteHost = "5.177.210.98"
frmMirage.Socket.RemotePort = "4000"
End Sub
explicando:Sub TcpInit()
SEP_CHAR = Chr(169)
END_CHAR = Chr(174)
NEXT_CHAR = Chr(171)
GoDebug = NO
PlayerBuffer = ""
frmMirage.Socket.RemoteHost = "s5s2s5s2s58" eo ip que voce colocar do server
frmMirage.Socket.RemotePort = "4000"
End Sub
obrigado pela ajuda ai , mais ainda ta dano erro =/
ve se sabe oqe é ai :
![[ERRO] Alguem me ajuda ? acho qe é simples :D Cast](https://2img.net/r/ihimizer/img861/2504/cast.jpg)
(:
LuizP- Novato
- Mensagens : 29
Re: [ERRO] Alguem me ajuda ? acho qe é simples :D
por Lucas Roberto Sáb 19 Mar 2011, 12:11
eae mude essa sub interia para esse:
SE SUA ENGINE FOR Br tome cuidado por o nomes estão em Ingles e so muda os nomes e ja era
- Código:
Sub Main()
Call MultiClient
Dim i As Long
Dim Ending As String
ScreenMode = 0
'If App.EXEName <> "DragonballRPG Online V2.0" Then Exit Sub
frmSendGetData.Visible = True
Call SetStatus("Checando Arquivos...")
DoEvents
' Check if the maps directory is there, if its not make it
If LCase(Dir(App.Path & "\Maps", vbDirectory)) <> "maps" Then
Call MkDir(App.Path & "\Maps")
End If
If UCase(Dir(App.Path & "\GFX", vbDirectory)) <> "GFX" Then
'Call MkDir(App.Path & "\GFX")
End If
If UCase(Dir(App.Path & "\GUI", vbDirectory)) <> "GUI" Then
Call MkDir(App.Path & "\GUI")
End If
If UCase(Dir(App.Path & "\Music", vbDirectory)) <> "MUSIC" Then
Call MkDir(App.Path & "\Music")
End If
If UCase(Dir(App.Path & "\SFX", vbDirectory)) <> "SFX" Then
Call MkDir(App.Path & "\SFX")
End If
If UCase(Dir(App.Path & "\Flashs", vbDirectory)) <> "FLASHS" Then
Call MkDir(App.Path & "\Flashs")
End If
Dim FileName As String
FileName = App.Path & "\config.ini"
If FileExist("config.ini") Then
frmMirage.chkbubblebar.Value = Val(GetVar(FileName, "CONFIG", "SpeechBubbles"))
frmMirage.chkEmoSound.Value = Val(GetVar(FileName, "CONFIG", "EmoticonSound"))
frmMirage.chknpcname.Value = Val(GetVar(FileName, "CONFIG", "NPCName"))
frmMirage.chkplayername.Value = Val(GetVar(FileName, "CONFIG", "PlayerName"))
frmMirage.chkplayerdamage.Value = Val(GetVar(FileName, "CONFIG", "NPCDamage"))
frmMirage.chknpcdamage.Value = Val(GetVar(FileName, "CONFIG", "PlayerDamage"))
frmMirage.chkmusic.Value = Val(GetVar(FileName, "CONFIG", "Music"))
frmMirage.chksound.Value = Val(GetVar(FileName, "CONFIG", "Sound"))
frmMirage.chkAutoScroll.Value = Val(GetVar(FileName, "CONFIG", "AutoScroll"))
If Val(GetVar(FileName, "CONFIG", "MapGrid")) = 0 Then
frmMapEditor.chkGrid.Value = 0
Else
frmMapEditor.chkGrid.Value = 1
End If
Else
Call PutVar(App.Path & "\config.ini", "UPDATER", "FileName", "Diamond.exe")
Call PutVar(App.Path & "\config.ini", "UPDATER", "WebSite", "")
Call PutVar(App.Path & "\config.ini", "IPCONFIG", "IP", "127.0.0.1")
Call PutVar(App.Path & "\config.ini", "IPCONFIG", "PORT", 4000)
Call PutVar(App.Path & "\config.ini", "CONFIG", "Account", "")
Call PutVar(App.Path & "\config.ini", "CONFIG", "Password", "")
Call PutVar(App.Path & "\config.ini", "CONFIG", "WebSite", "")
Call PutVar(App.Path & "\config.ini", "CONFIG", "SpeechBubbles", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "EmoticonSound", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "NPCName", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "NPCDamage", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "PlayerName", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "PlayerDamage", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "MapGrid", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "Music", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "Sound", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "AutoScroll", 1)
End If
If FileExist("GUI\Colors.txt") = False Then
Call PutVar(App.Path & "\GUI\Colors.txt", "CHATBOX", "R", 152)
Call PutVar(App.Path & "\GUI\Colors.txt", "CHATBOX", "G", 146)
Call PutVar(App.Path & "\GUI\Colors.txt", "CHATBOX", "B", 120)
Call PutVar(App.Path & "\GUI\Colors.txt", "CHATTEXTBOX", "R", 152)
Call PutVar(App.Path & "\GUI\Colors.txt", "CHATTEXTBOX", "G", 146)
Call PutVar(App.Path & "\GUI\Colors.txt", "CHATTEXTBOX", "B", 120)
Call PutVar(App.Path & "\GUI\Colors.txt", "BACKGROUND", "R", 152)
Call PutVar(App.Path & "\GUI\Colors.txt", "BACKGROUND", "G", 146)
Call PutVar(App.Path & "\GUI\Colors.txt", "BACKGROUND", "B", 120)
Call PutVar(App.Path & "\GUI\Colors.txt", "SPELLLIST", "R", 152)
Call PutVar(App.Path & "\GUI\Colors.txt", "SPELLLIST", "G", 146)
Call PutVar(App.Path & "\GUI\Colors.txt", "SPELLLIST", "B", 120)
Call PutVar(App.Path & "\GUI\Colors.txt", "WHOLIST", "R", 152)
Call PutVar(App.Path & "\GUI\Colors.txt", "WHOLIST", "G", 146)
Call PutVar(App.Path & "\GUI\Colors.txt", "WHOLIST", "B", 120)
Call PutVar(App.Path & "\GUI\Colors.txt", "NEWCHAR", "R", 152)
Call PutVar(App.Path & "\GUI\Colors.txt", "NEWCHAR", "G", 146)
Call PutVar(App.Path & "\GUI\Colors.txt", "NEWCHAR", "B", 120)
End If
Dim r1 As Long, g1 As Long, b1 As Long
r1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "CHATBOX", "R"))
g1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "CHATBOX", "G"))
b1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "CHATBOX", "B"))
frmMirage.txtChat.BackColor = RGB(r1, g1, b1)
r1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "CHATTEXTBOX", "R"))
g1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "CHATTEXTBOX", "G"))
b1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "CHATTEXTBOX", "B"))
frmMirage.txtMyTextBox.BackColor = RGB(r1, g1, b1)
r1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "BACKGROUND", "R"))
g1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "BACKGROUND", "G"))
b1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "BACKGROUND", "B"))
frmMirage.Picture9.BackColor = RGB(r1, g1, b1)
frmMirage.Picture8.BackColor = RGB(r1, g1, b1)
frmMirage.picInv3.BackColor = RGB(r1, g1, b1)
frmMirage.itmDesc.BackColor = RGB(r1, g1, b1)
frmMirage.picWhosOnline.BackColor = RGB(r1, g1, b1)
frmMirage.picGuildAdmin.BackColor = RGB(r1, g1, b1)
frmMirage.picGuild.BackColor = RGB(r1, g1, b1)
frmMirage.picEquip.BackColor = RGB(r1, g1, b1)
frmMirage.picPlayerSpells.BackColor = RGB(r1, g1, b1)
frmMirage.picOptions.BackColor = RGB(r1, g1, b1)
frmMirage.chkbubblebar.BackColor = RGB(r1, g1, b1)
frmMirage.chkEmoSound.BackColor = RGB(r1, g1, b1)
frmMirage.chknpcname.BackColor = RGB(r1, g1, b1)
frmMirage.chkplayername.BackColor = RGB(r1, g1, b1)
frmMirage.chkplayerdamage.BackColor = RGB(r1, g1, b1)
frmMirage.chknpcdamage.BackColor = RGB(r1, g1, b1)
frmMirage.chkmusic.BackColor = RGB(r1, g1, b1)
frmMirage.chksound.BackColor = RGB(r1, g1, b1)
frmMirage.chkAutoScroll.BackColor = RGB(r1, g1, b1)
r1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "SPELLLIST", "R"))
g1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "SPELLLIST", "G"))
b1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "SPELLLIST", "B"))
frmMirage.lstSpells.BackColor = RGB(r1, g1, b1)
r1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "WHOLIST", "R"))
g1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "WHOLIST", "G"))
b1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "WHOLIST", "B"))
frmMirage.lstOnline.BackColor = RGB(r1, g1, b1)
r1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "FRIENDLIST", "R"))
g1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "FRIENDLIST", "G"))
b1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "FRIENDLIST", "B"))
frmMirage.lstFriend.BackColor = RGB(r1, g1, b1)
r1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "NEWCHAR", "R"))
g1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "NEWCHAR", "G"))
b1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "NEWCHAR", "B"))
frmNewChar.optMale.BackColor = RGB(r1, g1, b1)
frmNewChar.optFemale.BackColor = RGB(r1, g1, b1)
Call SetStatus("Checando Status do Servidor...")
DoEvents
' Make sure we set that we aren't in the game
InGame = False
GettingMap = True
InEditor = False
InSpeechEditor = False
InItemsEditor = False
InNpcEditor = False
InShopEditor = False
InEmoticonEditor = False
InArrowEditor = False
InSpawnEditor = False
frmMirage.picItems.Picture = LoadPicture(App.Path & "\GFX\items.bmp")
frmSpriteChange.Picsprites.Picture = LoadPicture(App.Path & "\GFX\sprites.bmp")
Call SetStatus("Inicializando Arquivos TCP...")
DoEvents
Call TcpInit
frmMainMenu.Visible = True
frmSendGetData.Visible = False
End Sub
SE SUA ENGINE FOR Br tome cuidado por o nomes estão em Ingles e so muda os nomes e ja era
Lucas Roberto- Membro Veterano
- Mensagens : 1794
-
Re: [ERRO] Alguem me ajuda ? acho qe é simples :D
por LuizP Sáb 19 Mar 2011, 12:25
essa sub ?
ou essa ?
(me desculpa as perguntas noobs , porq ainda to começanu a edita o server e nao tenho experiencia =/)
- Código:
Sub TcpInit()
SEP_CHAR = Chr(169)
END_CHAR = Chr(174)
NEXT_CHAR = Chr(171)
GoDebug = NO
PlayerBuffer = ""
frmMirage.Socket.RemoteHost = "187.20.76.152"
frmMirage.Socket.RemotePort = "4561"
End Sub
ou essa ?
- Código:
Public Sub AddText(ByVal msg As String, ByVal Color As Integer)
Dim s As String
Dim C As Long
s = vbNewLine & msg
C = frmMirage.txtChat.SelStart
frmMirage.txtChat.SelStart = Len(frmMirage.txtChat.Text)
frmMirage.txtChat.SelColor = QBColor(Color)
frmMirage.txtChat.SelText = s
frmMirage.txtChat.SelStart = Len(frmMirage.txtChat.Text) - 1
If frmMirage.chkAutoScroll.Value = Unchecked Then frmMirage.txtChat.SelStart = C
End Sub
(me desculpa as perguntas noobs , porq ainda to começanu a edita o server e nao tenho experiencia =/)
LuizP- Novato
- Mensagens : 29
Re: [ERRO] Alguem me ajuda ? acho qe é simples :D
por Ricardo Sáb 19 Mar 2011, 12:32
Mude essa a Sub TcpInit para:
- Código:
Sub TcpInit()
SEP_CHAR = Chr(169)
END_CHAR = Chr(174)
NEXT_CHAR = Chr(171)
GoDebug = NO
PlayerBuffer = vbNullString
Dim FileName As String
FileName = App.Path & "\config.ini"
frmMirage.Socket.RemoteHost = GetVar(FileName, "IPCONFIG", "IP")
frmMirage.Socket.RemotePort = Val(GetVar(FileName, "IPCONFIG", "Porta"))
End Sub
Ricardo- Mensagens : 1044
Re: [ERRO] Alguem me ajuda ? acho qe é simples :D
por Lucas Roberto Sáb 19 Mar 2011, 12:40
Procura por:
ae se muda
depois procura por:
mude para:
creio que depois dessa não vai dar erro
- Código:
Sub Main()
ae se muda
- Código:
Sub Main()
Call MultiClient
Dim i As Long
Dim Ending As String
ScreenMode = 0
'If App.EXEName <> "DragonballRPG Online V2.0" Then Exit Sub
frmSendGetData.Visible = True
Call SetStatus("Checando Arquivos...")
DoEvents
' Check if the maps directory is there, if its not make it
If LCase(Dir(App.Path & "\Maps", vbDirectory)) <> "maps" Then
Call MkDir(App.Path & "\Maps")
End If
If UCase(Dir(App.Path & "\GFX", vbDirectory)) <> "GFX" Then
'Call MkDir(App.Path & "\GFX")
End If
If UCase(Dir(App.Path & "\GUI", vbDirectory)) <> "GUI" Then
Call MkDir(App.Path & "\GUI")
End If
If UCase(Dir(App.Path & "\Music", vbDirectory)) <> "MUSIC" Then
Call MkDir(App.Path & "\Music")
End If
If UCase(Dir(App.Path & "\SFX", vbDirectory)) <> "SFX" Then
Call MkDir(App.Path & "\SFX")
End If
If UCase(Dir(App.Path & "\Flashs", vbDirectory)) <> "FLASHS" Then
Call MkDir(App.Path & "\Flashs")
End If
Dim FileName As String
FileName = App.Path & "\config.ini"
If FileExist("config.ini") Then
frmMirage.chkbubblebar.Value = Val(GetVar(FileName, "CONFIG", "SpeechBubbles"))
frmMirage.chkEmoSound.Value = Val(GetVar(FileName, "CONFIG", "EmoticonSound"))
frmMirage.chknpcname.Value = Val(GetVar(FileName, "CONFIG", "NPCName"))
frmMirage.chkplayername.Value = Val(GetVar(FileName, "CONFIG", "PlayerName"))
frmMirage.chkplayerdamage.Value = Val(GetVar(FileName, "CONFIG", "NPCDamage"))
frmMirage.chknpcdamage.Value = Val(GetVar(FileName, "CONFIG", "PlayerDamage"))
frmMirage.chkmusic.Value = Val(GetVar(FileName, "CONFIG", "Music"))
frmMirage.chksound.Value = Val(GetVar(FileName, "CONFIG", "Sound"))
frmMirage.chkAutoScroll.Value = Val(GetVar(FileName, "CONFIG", "AutoScroll"))
If Val(GetVar(FileName, "CONFIG", "MapGrid")) = 0 Then
frmMapEditor.chkGrid.Value = 0
Else
frmMapEditor.chkGrid.Value = 1
End If
Else
Call PutVar(App.Path & "\config.ini", "UPDATER", "FileName", "Diamond.exe")
Call PutVar(App.Path & "\config.ini", "UPDATER", "WebSite", "")
Call PutVar(App.Path & "\config.ini", "IPCONFIG", "IP", "127.0.0.1")
Call PutVar(App.Path & "\config.ini", "IPCONFIG", "PORT", 4000)
Call PutVar(App.Path & "\config.ini", "CONFIG", "Account", "")
Call PutVar(App.Path & "\config.ini", "CONFIG", "Password", "")
Call PutVar(App.Path & "\config.ini", "CONFIG", "WebSite", "")
Call PutVar(App.Path & "\config.ini", "CONFIG", "SpeechBubbles", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "EmoticonSound", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "NPCName", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "NPCDamage", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "PlayerName", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "PlayerDamage", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "MapGrid", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "Music", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "Sound", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "AutoScroll", 1)
End If
If FileExist("GUI\Colors.txt") = False Then
Call PutVar(App.Path & "\GUI\Colors.txt", "CHATBOX", "R", 152)
Call PutVar(App.Path & "\GUI\Colors.txt", "CHATBOX", "G", 146)
Call PutVar(App.Path & "\GUI\Colors.txt", "CHATBOX", "B", 120)
Call PutVar(App.Path & "\GUI\Colors.txt", "CHATTEXTBOX", "R", 152)
Call PutVar(App.Path & "\GUI\Colors.txt", "CHATTEXTBOX", "G", 146)
Call PutVar(App.Path & "\GUI\Colors.txt", "CHATTEXTBOX", "B", 120)
Call PutVar(App.Path & "\GUI\Colors.txt", "BACKGROUND", "R", 152)
Call PutVar(App.Path & "\GUI\Colors.txt", "BACKGROUND", "G", 146)
Call PutVar(App.Path & "\GUI\Colors.txt", "BACKGROUND", "B", 120)
Call PutVar(App.Path & "\GUI\Colors.txt", "SPELLLIST", "R", 152)
Call PutVar(App.Path & "\GUI\Colors.txt", "SPELLLIST", "G", 146)
Call PutVar(App.Path & "\GUI\Colors.txt", "SPELLLIST", "B", 120)
Call PutVar(App.Path & "\GUI\Colors.txt", "WHOLIST", "R", 152)
Call PutVar(App.Path & "\GUI\Colors.txt", "WHOLIST", "G", 146)
Call PutVar(App.Path & "\GUI\Colors.txt", "WHOLIST", "B", 120)
Call PutVar(App.Path & "\GUI\Colors.txt", "NEWCHAR", "R", 152)
Call PutVar(App.Path & "\GUI\Colors.txt", "NEWCHAR", "G", 146)
Call PutVar(App.Path & "\GUI\Colors.txt", "NEWCHAR", "B", 120)
End If
Dim r1 As Long, g1 As Long, b1 As Long
r1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "CHATBOX", "R"))
g1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "CHATBOX", "G"))
b1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "CHATBOX", "B"))
frmMirage.txtChat.BackColor = RGB(r1, g1, b1)
r1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "CHATTEXTBOX", "R"))
g1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "CHATTEXTBOX", "G"))
b1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "CHATTEXTBOX", "B"))
frmMirage.txtMyTextBox.BackColor = RGB(r1, g1, b1)
r1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "BACKGROUND", "R"))
g1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "BACKGROUND", "G"))
b1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "BACKGROUND", "B"))
frmMirage.Picture9.BackColor = RGB(r1, g1, b1)
frmMirage.Picture8.BackColor = RGB(r1, g1, b1)
frmMirage.picInv3.BackColor = RGB(r1, g1, b1)
frmMirage.itmDesc.BackColor = RGB(r1, g1, b1)
frmMirage.picWhosOnline.BackColor = RGB(r1, g1, b1)
frmMirage.picGuildAdmin.BackColor = RGB(r1, g1, b1)
frmMirage.picGuild.BackColor = RGB(r1, g1, b1)
frmMirage.picEquip.BackColor = RGB(r1, g1, b1)
frmMirage.picPlayerSpells.BackColor = RGB(r1, g1, b1)
frmMirage.picOptions.BackColor = RGB(r1, g1, b1)
frmMirage.chkbubblebar.BackColor = RGB(r1, g1, b1)
frmMirage.chkEmoSound.BackColor = RGB(r1, g1, b1)
frmMirage.chknpcname.BackColor = RGB(r1, g1, b1)
frmMirage.chkplayername.BackColor = RGB(r1, g1, b1)
frmMirage.chkplayerdamage.BackColor = RGB(r1, g1, b1)
frmMirage.chknpcdamage.BackColor = RGB(r1, g1, b1)
frmMirage.chkmusic.BackColor = RGB(r1, g1, b1)
frmMirage.chksound.BackColor = RGB(r1, g1, b1)
frmMirage.chkAutoScroll.BackColor = RGB(r1, g1, b1)
r1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "SPELLLIST", "R"))
g1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "SPELLLIST", "G"))
b1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "SPELLLIST", "B"))
frmMirage.lstSpells.BackColor = RGB(r1, g1, b1)
r1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "WHOLIST", "R"))
g1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "WHOLIST", "G"))
b1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "WHOLIST", "B"))
frmMirage.lstOnline.BackColor = RGB(r1, g1, b1)
r1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "FRIENDLIST", "R"))
g1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "FRIENDLIST", "G"))
b1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "FRIENDLIST", "B"))
frmMirage.lstFriend.BackColor = RGB(r1, g1, b1)
r1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "NEWCHAR", "R"))
g1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "NEWCHAR", "G"))
b1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "NEWCHAR", "B"))
frmNewChar.optMale.BackColor = RGB(r1, g1, b1)
frmNewChar.optFemale.BackColor = RGB(r1, g1, b1)
Call SetStatus("Checando Status do Servidor...")
DoEvents
' Make sure we set that we aren't in the game
InGame = False
GettingMap = True
InEditor = False
InSpeechEditor = False
InItemsEditor = False
InNpcEditor = False
InShopEditor = False
InEmoticonEditor = False
InArrowEditor = False
InSpawnEditor = False
frmMirage.picItems.Picture = LoadPicture(App.Path & "\GFX\items.bmp")
frmSpriteChange.Picsprites.Picture = LoadPicture(App.Path & "\GFX\sprites.bmp")
Call SetStatus("Inicializando Arquivos TCP...")
DoEvents
Call TcpInit
frmMainMenu.Visible = True
frmSendGetData.Visible = False
End Sub
depois procura por:
- Código:
Private Sub picLogin_Click()
mude para:
- Código:
Private Sub picLogin_Click()
Dim Packet As String
frmLogin.txtName.Text = Trim(GetVar(App.Path & "\config.ini", "CONFIG", "Account"))
frmLogin.txtPassword.Text = Trim(GetVar(App.Path & "\config.ini", "CONFIG", "Password"))
If Trim(frmLogin.txtPassword.Text) <> "" Then
frmLogin.Check1.Value = Checked
frmLogin.txtPassword.PasswordChar = "*"
Else
frmLogin.Check1.Value = Unchecked
frmLogin.txtPassword = "Password"
frmLogin.txtPassword.PasswordChar = ""
End If
If Trim(frmLogin.txtName.Text) = "" Then
frmLogin.txtName = "Username"
End If
frmLogin.Visible = True
Me.Visible = False
frmLogin.txtName.SetFocus
frmLogin.txtName.SelStart = Len(frmLogin.txtName.Text)
frmLogin.lblPlayers.Visible = True
frmLogin.lblPlayers.Caption = "Getting info..."
If ConnectToServer = True Then
'tmrInfo.Enabled = True
Packet = "getinfo" & END_CHAR
Call SendData(Packet)
frmLogin.lblOnOff.ForeColor = &HFF000
Else
'lblOnOff.Caption = "Offline"
'lblPlayers.Visible = False
frmLogin.lblOnOff.ForeColor = &HFF&
End If
End Sub
creio que depois dessa não vai dar erro
Lucas Roberto- Membro Veterano
- Mensagens : 1794
-
Re: [ERRO] Alguem me ajuda ? acho qe é simples :D
por DrayonDuarte Sáb 19 Mar 2011, 12:51
Vou Te Ensina
Procura Por
Agora Troque A Sub Main() Toda Ate O Final Dela Por:
Isso Que Ele Quiz Dizer Se Ajudei Da Credito A Mim e Ao Lucas
Procura Por
- Código:
Sub Main()
Agora Troque A Sub Main() Toda Ate O Final Dela Por:
- Código:
Sub Main()
Call MultiClient
Dim i As Long
Dim Ending As String
ScreenMode = 0
'If App.EXEName <> "DragonballRPG Online V2.0" Then Exit Sub
frmSendGetData.Visible = True
Call SetStatus("Checando Arquivos...")
DoEvents
' Check if the maps directory is there, if its not make it
If LCase(Dir(App.Path & "\Maps", vbDirectory)) <> "maps" Then
Call MkDir(App.Path & "\Maps")
End If
If UCase(Dir(App.Path & "\GFX", vbDirectory)) <> "GFX" Then
'Call MkDir(App.Path & "\GFX")
End If
If UCase(Dir(App.Path & "\GUI", vbDirectory)) <> "GUI" Then
Call MkDir(App.Path & "\GUI")
End If
If UCase(Dir(App.Path & "\Music", vbDirectory)) <> "MUSIC" Then
Call MkDir(App.Path & "\Music")
End If
If UCase(Dir(App.Path & "\SFX", vbDirectory)) <> "SFX" Then
Call MkDir(App.Path & "\SFX")
End If
If UCase(Dir(App.Path & "\Flashs", vbDirectory)) <> "FLASHS" Then
Call MkDir(App.Path & "\Flashs")
End If
Dim FileName As String
FileName = App.Path & "\config.ini"
If FileExist("config.ini") Then
frmMirage.chkbubblebar.Value = Val(GetVar(FileName, "CONFIG", "SpeechBubbles"))
frmMirage.chkEmoSound.Value = Val(GetVar(FileName, "CONFIG", "EmoticonSound"))
frmMirage.chknpcname.Value = Val(GetVar(FileName, "CONFIG", "NPCName"))
frmMirage.chkplayername.Value = Val(GetVar(FileName, "CONFIG", "PlayerName"))
frmMirage.chkplayerdamage.Value = Val(GetVar(FileName, "CONFIG", "NPCDamage"))
frmMirage.chknpcdamage.Value = Val(GetVar(FileName, "CONFIG", "PlayerDamage"))
frmMirage.chkmusic.Value = Val(GetVar(FileName, "CONFIG", "Music"))
frmMirage.chksound.Value = Val(GetVar(FileName, "CONFIG", "Sound"))
frmMirage.chkAutoScroll.Value = Val(GetVar(FileName, "CONFIG", "AutoScroll"))
If Val(GetVar(FileName, "CONFIG", "MapGrid")) = 0 Then
frmMapEditor.chkGrid.Value = 0
Else
frmMapEditor.chkGrid.Value = 1
End If
Else
Call PutVar(App.Path & "\config.ini", "UPDATER", "FileName", "Diamond.exe")
Call PutVar(App.Path & "\config.ini", "UPDATER", "WebSite", "")
Call PutVar(App.Path & "\config.ini", "IPCONFIG", "IP", "127.0.0.1")
Call PutVar(App.Path & "\config.ini", "IPCONFIG", "PORT", 4000)
Call PutVar(App.Path & "\config.ini", "CONFIG", "Account", "")
Call PutVar(App.Path & "\config.ini", "CONFIG", "Password", "")
Call PutVar(App.Path & "\config.ini", "CONFIG", "WebSite", "")
Call PutVar(App.Path & "\config.ini", "CONFIG", "SpeechBubbles", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "EmoticonSound", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "NPCName", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "NPCDamage", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "PlayerName", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "PlayerDamage", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "MapGrid", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "Music", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "Sound", 1)
Call PutVar(App.Path & "\config.ini", "CONFIG", "AutoScroll", 1)
End If
If FileExist("GUI\Colors.txt") = False Then
Call PutVar(App.Path & "\GUI\Colors.txt", "CHATBOX", "R", 152)
Call PutVar(App.Path & "\GUI\Colors.txt", "CHATBOX", "G", 146)
Call PutVar(App.Path & "\GUI\Colors.txt", "CHATBOX", "B", 120)
Call PutVar(App.Path & "\GUI\Colors.txt", "CHATTEXTBOX", "R", 152)
Call PutVar(App.Path & "\GUI\Colors.txt", "CHATTEXTBOX", "G", 146)
Call PutVar(App.Path & "\GUI\Colors.txt", "CHATTEXTBOX", "B", 120)
Call PutVar(App.Path & "\GUI\Colors.txt", "BACKGROUND", "R", 152)
Call PutVar(App.Path & "\GUI\Colors.txt", "BACKGROUND", "G", 146)
Call PutVar(App.Path & "\GUI\Colors.txt", "BACKGROUND", "B", 120)
Call PutVar(App.Path & "\GUI\Colors.txt", "SPELLLIST", "R", 152)
Call PutVar(App.Path & "\GUI\Colors.txt", "SPELLLIST", "G", 146)
Call PutVar(App.Path & "\GUI\Colors.txt", "SPELLLIST", "B", 120)
Call PutVar(App.Path & "\GUI\Colors.txt", "WHOLIST", "R", 152)
Call PutVar(App.Path & "\GUI\Colors.txt", "WHOLIST", "G", 146)
Call PutVar(App.Path & "\GUI\Colors.txt", "WHOLIST", "B", 120)
Call PutVar(App.Path & "\GUI\Colors.txt", "NEWCHAR", "R", 152)
Call PutVar(App.Path & "\GUI\Colors.txt", "NEWCHAR", "G", 146)
Call PutVar(App.Path & "\GUI\Colors.txt", "NEWCHAR", "B", 120)
End If
Dim r1 As Long, g1 As Long, b1 As Long
r1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "CHATBOX", "R"))
g1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "CHATBOX", "G"))
b1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "CHATBOX", "B"))
frmMirage.txtChat.BackColor = RGB(r1, g1, b1)
r1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "CHATTEXTBOX", "R"))
g1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "CHATTEXTBOX", "G"))
b1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "CHATTEXTBOX", "B"))
frmMirage.txtMyTextBox.BackColor = RGB(r1, g1, b1)
r1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "BACKGROUND", "R"))
g1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "BACKGROUND", "G"))
b1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "BACKGROUND", "B"))
frmMirage.Picture9.BackColor = RGB(r1, g1, b1)
frmMirage.Picture8.BackColor = RGB(r1, g1, b1)
frmMirage.picInv3.BackColor = RGB(r1, g1, b1)
frmMirage.itmDesc.BackColor = RGB(r1, g1, b1)
frmMirage.picWhosOnline.BackColor = RGB(r1, g1, b1)
frmMirage.picGuildAdmin.BackColor = RGB(r1, g1, b1)
frmMirage.picGuild.BackColor = RGB(r1, g1, b1)
frmMirage.picEquip.BackColor = RGB(r1, g1, b1)
frmMirage.picPlayerSpells.BackColor = RGB(r1, g1, b1)
frmMirage.picOptions.BackColor = RGB(r1, g1, b1)
frmMirage.chkbubblebar.BackColor = RGB(r1, g1, b1)
frmMirage.chkEmoSound.BackColor = RGB(r1, g1, b1)
frmMirage.chknpcname.BackColor = RGB(r1, g1, b1)
frmMirage.chkplayername.BackColor = RGB(r1, g1, b1)
frmMirage.chkplayerdamage.BackColor = RGB(r1, g1, b1)
frmMirage.chknpcdamage.BackColor = RGB(r1, g1, b1)
frmMirage.chkmusic.BackColor = RGB(r1, g1, b1)
frmMirage.chksound.BackColor = RGB(r1, g1, b1)
frmMirage.chkAutoScroll.BackColor = RGB(r1, g1, b1)
r1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "SPELLLIST", "R"))
g1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "SPELLLIST", "G"))
b1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "SPELLLIST", "B"))
frmMirage.lstSpells.BackColor = RGB(r1, g1, b1)
r1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "WHOLIST", "R"))
g1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "WHOLIST", "G"))
b1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "WHOLIST", "B"))
frmMirage.lstOnline.BackColor = RGB(r1, g1, b1)
r1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "FRIENDLIST", "R"))
g1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "FRIENDLIST", "G"))
b1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "FRIENDLIST", "B"))
frmMirage.lstFriend.BackColor = RGB(r1, g1, b1)
r1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "NEWCHAR", "R"))
g1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "NEWCHAR", "G"))
b1 = Val(GetVar(App.Path & "\GUI\Colors.txt", "NEWCHAR", "B"))
frmNewChar.optMale.BackColor = RGB(r1, g1, b1)
frmNewChar.optFemale.BackColor = RGB(r1, g1, b1)
Call SetStatus("Checando Status do Servidor...")
DoEvents
' Make sure we set that we aren't in the game
InGame = False
GettingMap = True
InEditor = False
InSpeechEditor = False
InItemsEditor = False
InNpcEditor = False
InShopEditor = False
InEmoticonEditor = False
InArrowEditor = False
InSpawnEditor = False
frmMirage.picItems.Picture = LoadPicture(App.Path & "\GFX\items.bmp")
frmSpriteChange.Picsprites.Picture = LoadPicture(App.Path & "\GFX\sprites.bmp")
Call SetStatus("Inicializando Arquivos TCP...")
DoEvents
Call TcpInit
frmMainMenu.Visible = True
frmSendGetData.Visible = False
End Sub
Isso Que Ele Quiz Dizer Se Ajudei Da Credito A Mim e Ao Lucas
DrayonDuarte- Membro
- Mensagens : 243
Re: [ERRO] Alguem me ajuda ? acho qe é simples :D
por LuizP Sáb 19 Mar 2011, 15:30
maano , tipo .
eu substitui tudo qe voce mando , certin .
ai na hr qe clico naqele 'play'
da isso :
![[ERRO] Alguem me ajuda ? acho qe é simples :D Errong](https://2img.net/r/ihimizer/img197/640/errong.jpg)
oqe eu faço agora ? =/
eu substitui tudo qe voce mando , certin .
ai na hr qe clico naqele 'play'
da isso :
oqe eu faço agora ? =/
LuizP- Novato
- Mensagens : 29
Re: [ERRO] Alguem me ajuda ? acho qe é simples :D
por Lucas Roberto Sáb 19 Mar 2011, 17:52
--' recomendo que refaça seu projeto denovo --' o que era simples fico complicado
Lucas Roberto- Membro Veterano
- Mensagens : 1794
-
Re: [ERRO] Alguem me ajuda ? acho qe é simples :D
por LuizP Sáb 19 Mar 2011, 19:31
UIJSAUHSUAHS'
ook mano .
obrigado pela ajuda ai
vo te dar 2 creds
ook mano .
obrigado pela ajuda ai
vo te dar 2 creds
LuizP- Novato
- Mensagens : 29
Re: [ERRO] Alguem me ajuda ? acho qe é simples :D
por Lucas Roberto Sáb 19 Mar 2011, 20:13
Obrigado pelo Creditos
Topico Trancado e Movido
Topico Trancado e Movido
Lucas Roberto- Membro Veterano
- Mensagens : 1794
-
Tópicos semelhantes» me ajuda ai é coisa simples :D "eu acho "
» me ajuda aqui porfavor é coisa simples :)| eu acho
» alguem me ajuda com o erro
» Alguem me ajuda Erro Ao Compilar !
» ALGUEM ME AJUDA ! ERRO 6 OVERFLOW
» me ajuda aqui porfavor é coisa simples :)| eu acho
» alguem me ajuda com o erro
» Alguem me ajuda Erro Ao Compilar !
» ALGUEM ME AJUDA ! ERRO 6 OVERFLOW
MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Suporte e Pedidos :: Assuntos resolvidos
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
» Ojkjeeeee
» Naruto Great Ninja Batle
» Recrutamento de um Designer para jogo de CDZ.
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
» Projeto Dbz
» Avaliação - Sprites Naruto
» [Sprites] DBZ (Plix)
» Super Pack - Bleach V.2
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
» [Pedido] Contador de resets na FrmMain
» [Recrutamento]
» Ajuda erro no Cliente e Servidor do EEB 2.6!
» Como criar tilesets para Eclipse Origins 3.0 (POKÉMON)
» Recursos Pokemons
» erro frm flash
» Pedido - Pack de star wars
» [Ajuda] Sobre como por o servidor on por ip fixo
» Illusion Dimension - O Misterio do ID: BETA TESTE ONLINE
» [NSME] Naruto Shinobi Maker Engine
» Script /base,/casa Igual DBZ Forces
» [Pedido]Colar Tsunade item sprite eclipse origin
» [Pedido] Elysium
» Naruto - Recruta
» [Avaliação] - Kirito from Sword Art Online; Red and Pikachu from Pokemon.
» [Avaliação] - Kenpachi Zaraki from Bleach; Libra Shiryu From Saint Seiya.
» Demonstração de Sprites (Á VENDA!)
» [Sistema de Reset]Para Eclipse .
» Cada Guild Nascer em Certo Mapa
» Dragon Ball z Fusion A Grande Volta
» Ajuda com Ip fixo
» Como Fazer um GUI no Eclipse Origins
» Shisui Susanoo
» Fantasy Art Online
» Ajuda !!
» como passar o usuário e senha para o MainMenu?
» Ru time ero 13 Type mismatch
» Jarvis 1.3 Download
» [Avaliação/Disponibilização]Árvore 64x64
» Mlk's Zikas Signatures
» Pedido de Sistemas
» [AjudaEEB]Gerador de EXP
» [Avaliar] Base, Humano e Goblin.
» Fabrica do Tio Cronos!
» [PixelArt] Minion - Meu malvado favorito
» [Avaliar] Goku Dragon Ball Z