Convidado Convidado
| Assunto: Tirando a pasta GUI Sáb 25 Jun 2011, 11:52 | |
| Client~Side
Va na frmChars, e procure por:
- Código:
-
If FileExist("GUI\chars" & Ending) Then frmChars.Picture = LoadPicture(App.Path & "\GUI\chars" & Ending) Apague essa linha inteira
Na frmDeletarAccount procure por:
- Código:
-
If FileExist("GUI\medium" & Ending) Then frmDeleteAccount.Picture = LoadPicture(App.Path & "\GUI\medium" & Ending) Apague essa linha inteira
Na frmGuild procure por:
- Código:
-
If FileExist("GUI\content" & Ending) Then frmGuild.Picture = LoadPicture(App.Path & "\GUI\content" & Ending) Apague essa linha inteira
Na frmMainMenu procure por:
- Código:
-
If FileExist("GUI\mainmenu" & Ending) Then frmMainMenu.Picture = LoadPicture(App.Path & "\GUI\mainmenu" & Ending) Apague essa linha inteira
Na frmMirage procure por:
- Código:
-
If FileExist("GUI\game" & Ending) Then frmMirage.Picture = LoadPicture(App.Path & "\GUI\game" & Ending) If FileExist("GUI\content" & Ending) Then frmMirage.picOptions.Picture = LoadPicture(App.Path & "\GUI\content" & Ending) If FileExist("GUI\content" & Ending) Then frmMirage.itmDesc.Picture = LoadPicture(App.Path & "\GUI\content" & Ending) If FileExist("GUI\content" & Ending) Then frmMirage.picGuildAdmin.Picture = LoadPicture(App.Path & "\GUI\content" & Ending) If FileExist("GUI\content" & Ending) Then frmMirage.picInv3.Picture = LoadPicture(App.Path & "\GUI\content" & Ending) If FileExist("GUI\content" & Ending) Then frmMirage.picEquip.Picture = LoadPicture(App.Path & "\GUI\content" & Ending) If FileExist("GUI\contentlist" & Ending) Then frmMirage.picPlayerSpells.Picture = LoadPicture(App.Path & "\GUI\contentlist" & Ending) If FileExist("GUI\contentlist" & Ending) Then frmMirage.picWhosOnline.Picture = LoadPicture(App.Path & "\GUI\contentlist" & Ending) If FileExist("GUI\contentlist" & Ending) Then frmMirage.picFriend.Picture = LoadPicture(App.Path & "\GUI\contentlist" & Ending) If FileExist("GUI\contentsmall" & Ending) Then frmMirage.picChatRequest.Picture = LoadPicture(App.Path & "\GUI\contentsmall" & Ending) If FileExist("GUI\contentsmall" & Ending) Then frmMirage.picTradeRequest.Picture = LoadPicture(App.Path & "\GUI\contentsmall" & Ending) If FileExist("GUI\contentsmall" & Ending) Then frmMirage.picPartyRequest.Picture = LoadPicture(App.Path & "\GUI\contentsmall" & Ending) If FileExist("GUI\contentsmall" & Ending) Then frmMirage.picStat.Picture = LoadPicture(App.Path & "\GUI\contentsmall" & Ending) If FileExist("GUI\contentsmall" & Ending) Then frmMirage.picGuild.Picture = LoadPicture(App.Path & "\GUI\contentsmall" & Ending) Apague essa linha inteira
Na frmNewAccount procure por
- Código:
-
If FileExist("GUI\medium" & Ending) Then frmNewAccount.Picture = LoadPicture(App.Path & "\GUI\medium" & Ending) Apague essa linha inteira
Na frmNewChar procure por:
- Código:
-
If FileExist("GUI\medium2" & Ending) Then frmNewChar.Picture = LoadPicture(App.Path & "\GUI\medium2" & Ending) Apague essa linha inteira
Na frmPlayerChat procure por:
- Código:
-
If FileExist("GUI\contentbox" & Ending) Then frmPlayerChat.Picture = LoadPicture(App.Path & "\GUI\contentbox" & Ending) Apague essa linha inteira
Na frmPlayerTrade procure por:
- Código:
-
If FileExist("GUI\content" & Ending) Then frmPlayerTrade.Picture = LoadPicture(App.Path & "\GUI\content" & Ending) Apague essa linha inteira
Na frmSendGetData procure por:
- Código:
-
If FileExist("GUI\loading" & Ending) Then frmSendGetData.Picture = LoadPicture(App.Path & "\GUI\loading" & Ending) Apague essa linha inteira
Na FrmTalk procure por:
- Código:
-
If FileExist("GUI\content" & Ending) Then frmNewChar.Picture = LoadPicture(App.Path & "\GUI\content" & Ending) Apague essa linha inteira
Na frmTrade procure por:
- Código:
-
If FileExist("GUI\shop" & Ending) Then frmTrade.Picture = LoadPicture(App.Path & "\GUI\shop" & Ending) Apague essa linha inteira
Procure por: - Código:
-
If UCase(Dir(App.Path & "\GUI", vbDirectory)) <> "GUI" Then Call MkDir(App.Path & "\GUI") End If Apague tudo
Procure por:
- Código:
-
If FileExist("GUI\Cores.txt") = False Then Call PutVar(App.Path & "\GUI\Cores.txt", "CHATBOX", "R", 152) Call PutVar(App.Path & "\GUI\Cores.txt", "CHATBOX", "G", 146) Call PutVar(App.Path & "\GUI\Cores.txt", "CHATBOX", "B", 120) Call PutVar(App.Path & "\GUI\Cores.txt", "CHATTEXTBOX", "R", 152) Call PutVar(App.Path & "\GUI\Cores.txt", "CHATTEXTBOX", "G", 146) Call PutVar(App.Path & "\GUI\Cores.txt", "CHATTEXTBOX", "B", 120) Call PutVar(App.Path & "\GUI\Cores.txt", "BACKGROUND", "R", 152) Call PutVar(App.Path & "\GUI\Cores.txt", "BACKGROUND", "G", 146) Call PutVar(App.Path & "\GUI\Cores.txt", "BACKGROUND", "B", 120) Call PutVar(App.Path & "\GUI\Cores.txt", "SPELLLIST", "R", 152) Call PutVar(App.Path & "\GUI\Cores.txt", "SPELLLIST", "G", 146) Call PutVar(App.Path & "\GUI\Cores.txt", "SPELLLIST", "B", 120)
Call PutVar(App.Path & "\GUI\Cores.txt", "WHOLIST", "R", 152) Call PutVar(App.Path & "\GUI\Cores.txt", "WHOLIST", "G", 146) Call PutVar(App.Path & "\GUI\Cores.txt", "WHOLIST", "B", 120) Call PutVar(App.Path & "\GUI\Cores.txt", "NEWCHAR", "R", 152) Call PutVar(App.Path & "\GUI\Cores.txt", "NEWCHAR", "G", 146) Call PutVar(App.Path & "\GUI\Cores.txt", "NEWCHAR", "B", 120) End If Dim R1 As Long, G1 As Long, B1 As Long R1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "CHATBOX", "R")) G1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "CHATBOX", "G")) B1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "CHATBOX", "B")) frmMirage.txtChat.BackColor = RGB(R1, G1, B1) R1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "CHATTEXTBOX", "R")) G1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "CHATTEXTBOX", "G")) B1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "CHATTEXTBOX", "B")) frmMirage.txtMyTextBox.BackColor = RGB(R1, G1, B1) R1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "BACKGROUND", "R")) G1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "BACKGROUND", "G")) B1 = Val(GetVar(App.Path & "\GUI\Cores.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\Cores.txt", "SPELLLIST", "R")) G1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "SPELLLIST", "G")) B1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "SPELLLIST", "B")) frmMirage.lstSpells.BackColor = RGB(R1, G1, B1) R1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "WHOLIST", "R")) G1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "WHOLIST", "G")) B1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "WHOLIST", "B")) frmMirage.lstOnline.BackColor = RGB(R1, G1, B1) R1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "FRIENDLIST", "R")) G1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "FRIENDLIST", "G")) B1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "FRIENDLIST", "B")) frmMirage.lstFriend.BackColor = RGB(R1, G1, B1)
R1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "NEWCHAR", "R")) G1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "NEWCHAR", "G")) B1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "NEWCHAR", "B")) frmNewChar.optMale.BackColor = RGB(R1, G1, B1) frmNewChar.optFemale.BackColor = RGB(R1, G1, B1)[font=Comic Sans Ms] [/font]
Mude para:
- Código:
-
If FileExist("GFX\Cores.txt") = False Then Call PutVar(App.Path & "\GFX\Cores.txt", "CHATBOX", "R", 152) Call PutVar(App.Path & "\GFX\Cores.txt", "CHATBOX", "G", 146) Call PutVar(App.Path & "\GFX\Cores.txt", "CHATBOX", "B", 120) Call PutVar(App.Path & "\GFX\Cores.txt", "CHATTEXTBOX", "R", 152) Call PutVar(App.Path & "\GFX\Cores.txt", "CHATTEXTBOX", "G", 146) Call PutVar(App.Path & "\GFX\Cores.txt", "CHATTEXTBOX", "B", 120) Call PutVar(App.Path & "\GFX\Cores.txt", "BACKGROUND", "R", 152) Call PutVar(App.Path & "\GFX\Cores.txt", "BACKGROUND", "G", 146) Call PutVar(App.Path & "\GFX\Cores.txt", "BACKGROUND", "B", 120) Call PutVar(App.Path & "\GFX\Cores.txt", "SPELLLIST", "R", 152) Call PutVar(App.Path & "\GFX\Cores.txt", "SPELLLIST", "G", 146) Call PutVar(App.Path & "\GFX\Cores.txt", "SPELLLIST", "B", 120)
Call PutVar(App.Path & "\GFX\Cores.txt", "WHOLIST", "R", 152) Call PutVar(App.Path & "\GFX\Cores.txt", "WHOLIST", "G", 146) Call PutVar(App.Path & "\GFX\Cores.txt", "WHOLIST", "B", 120) Call PutVar(App.Path & "\GFX\Cores.txt", "NEWCHAR", "R", 152) Call PutVar(App.Path & "\GFX\Cores.txt", "NEWCHAR", "G", 146) Call PutVar(App.Path & "\GFX\Cores.txt", "NEWCHAR", "B", 120) End If Dim R1 As Long, G1 As Long, B1 As Long R1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "CHATBOX", "R")) G1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "CHATBOX", "G")) B1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "CHATBOX", "B")) frmMirage.txtChat.BackColor = RGB(R1, G1, B1) R1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "CHATTEXTBOX", "R")) G1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "CHATTEXTBOX", "G")) B1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "CHATTEXTBOX", "B")) frmMirage.txtMyTextBox.BackColor = RGB(R1, G1, B1) R1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "BACKGROUND", "R")) G1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "BACKGROUND", "G")) B1 = Val(GetVar(App.Path & "\GFX\Cores.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 & "\GFX\Cores.txt", "SPELLLIST", "R")) G1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "SPELLLIST", "G")) B1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "SPELLLIST", "B")) frmMirage.lstSpells.BackColor = RGB(R1, G1, B1) R1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "WHOLIST", "R")) G1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "WHOLIST", "G")) B1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "WHOLIST", "B")) frmMirage.lstOnline.BackColor = RGB(R1, G1, B1) R1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "FRIENDLIST", "R")) G1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "FRIENDLIST", "G")) B1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "FRIENDLIST", "B")) frmMirage.lstFriend.BackColor = RGB(R1, G1, B1)
R1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "NEWCHAR", "R")) G1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "NEWCHAR", "G")) B1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "NEWCHAR", "B")) frmNewChar.optMale.BackColor = RGB(R1, G1, B1) frmNewChar.optFemale.BackColor = RGB(R1, G1, B1)
Agora exclua a pasta GUI
Uh termino [Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
Obs.: Agora vc tem que colocar as gui pelo VB
Creditos: A mim
|
|