Universo Games
Ola , Convidado

Tirando a pasta GUI 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!

 

 Tirando a pasta GUI

Ir para baixo 
AutorMensagem
Convidado
Convidado
Anonymous



Tirando a pasta GUI Empty
MensagemAssunto: Tirando a pasta GUI   Tirando a pasta GUI EmptySá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
Ir para o topo Ir para baixo
 
Tirando a pasta GUI
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» [ALL]Scripter Tirando pk
» Tirando a Tag de acesso do nome
» Tirando Virús do PCheats
» tirando o ip config do main menu!!

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