Sign in to follow this  
Followers 0
Caer12

Things Hiding and overlapping

1 post in this topic

Currently, my script is doing everything I would like it to. However, when I drag other windows onto my parent GUI, the buttons disappear. Also, when I press on the Create an Account button, it opens up the child GUI, and the things inside, are not shown and only show when you hover over them with a mouse, and the whole thing shows when you drag another window over it. If someone could please show or direct me on how to get this to stop, I'd greatly appreciate it.

Complete program:

http://www.zerowaitingtime.com/30481-download-QHTest1.rar

Script:

#include <GUIConstants.au3>
#include <INet.au3>
#include <String.au3>
#include <array.au3>
#include <IE.au3>



Opt("GUIOnEventMode",1)
;Creates GUI
$ParentWin  = GUICreate("Qonquer Helper", 325, 400)

$widthCell = 36
GUICtrlSetColor(-1, 0xff00)
$Pos = 0

;Server Status Checker
Dim $avCodes[1] = ["GIF89"]
$src1 = _INetGetSource('http://www.qonquer.com/status/status.php?link=127.0.0.1:9958')
$trm1 = StringTrimLeft($src1, 0)
$trm3 = StringTrimRight($trm1, 49)
For $i = 0 To UBound($avCodes) - 1
    $Input = $avCodes[$i]
    $Pos = _ArraySearch($trm3, $Input)
    Select
        Case $Pos = -1
            GUICtrlCreatePic("online.bmp", 12, 38, 36, 18)
        Case Else
            GUICtrlCreatePic("offline.bmp", 12, 38, 36, 18)
   EndSelect
Next
;Function for Players online
Func Getplayers()
    $src = _INetGetSource('http://69.41.179.99:9980/online.js')
    $trm = StringTrimLeft($src, 17)
    $trm2 = StringTrimRight($trm, 53)
    Return $trm2
EndFunc  ;End of Getplayers function

;Function for Server version
Func Getversion()
    $src = _INetGetSource('http://69.41.179.99:9980/online.js')
    $trm = StringTrimLeft($src, 53)
    $trm2 = StringTrimRight($trm, 11)
    Return $trm2
EndFunc  ;End of Getversion function

;Displays Players online and server version
$Getplayers = Getplayers()
If $Getplayers > 375  Then
    $label1 = GUICtrlCreateLabel(Getplayers(), 15, 87, 25, 15) 
    $label2 = GUICtrlCreateLabel("Server is probably frozen or otherwise FUBAR'd", 5, 113, -1, 15)  
    GUICtrlCreatePic("caution.bmp", 12, 38, 36, 18)
Else    
    $label1 = GUICtrlCreateLabel(Getplayers(), 15, 87, 25, 15)
    $label2 = GUICtrlCreateLabel("Server seems to be functioning normally", 5, 113, -1, 15)
EndIf
$label = GUICtrlCreateLabel(Getversion(), 260, 113, 56, 15)

;function for refreshing players/version
Func Disppnv()
If $Getplayers > 375  Then
    $label1 = GUICtrlCreateLabel(Getplayers(), 15, 87, 25, 15) 
    $label2 = GUICtrlCreateLabel("Server is probably frozen or otherwise FUBAR'd", 5, 113, -1, 15)
    GUICtrlCreatePic("caution.bmp", 12, 38, 36, 18) 
Else    
    $label1 = GUICtrlCreateLabel(Getplayers(), 15, 87, 25, 15)
    $label2 = GUICtrlCreateLabel("Server seems to be functioning normally", 5, 113, -1, 15)
EndIf
$label = GUICtrlCreateLabel(Getversion(), 260, 113, 56, 15)
   Select
      Case $Pos = -1
         GUICtrlCreatePic("online.bmp", 12, 38, 36, 18)
        Case Else
            GUICtrlCreatePic("offline.bmp", 12, 38, 36, 18)
   EndSelect
EndFunc



;---------Buttons----------
$Refresh = GUICtrlCreateButton("Refresh", 50, 85, 50, 20)
GUICtrlSetOnEvent($Refresh,"disppnv")

$Connect  = GUICtrlCreateButton("Connecting to Qonquer", 5, 300, 150, 20)
GUICtrlSetOnEvent($Connect,"Connect")

$CreateAcc   = GUICtrlCreateButton("Create an Account", 5, 325, 150, 20)
GUICtrlSetOnEvent($CreateAcc,"create")

$CantCon   = GUICtrlCreateButton("Can't Connect?!", 5, 350, 150, 20)
GUICtrlSetOnEvent($CantCon,"CantCon")

$Ban   = GUICtrlCreateButton("About Bans", 5, 375, 150, 20)
GUICtrlSetOnEvent($Ban,"Ban")

$Features   = GUICtrlCreateButton("About New Features", 170, 300, 150, 20)
GUICtrlSetOnEvent($Features,"Features")

$Items   = GUICtrlCreateButton("About New Items", 170, 325, 150, 20)
GUICtrlSetOnEvent($Items,"Items")

$QueEvents   = GUICtrlCreateButton("About Quests/Events", 170, 350, 150, 20)
GUICtrlSetOnEvent($QueEvents,"QueEvents")

$Forum   = GUICtrlCreateButton("Forum Info/Rules", 170, 375, 150, 20)
GUICtrlSetOnEvent($Forum,"Forum")


GUISetOnEvent($GUI_EVENT_CLOSE,"ExitW")
GUISetIcon("tqzf.ico")

GUISetState()


;Background Image
$background  = GUICtrlCreatePic("qbackground.bmp", 0, 0, 325, 400)


While 1
   Sleep (1000)   
WEnd







;--------------- Functions ---------------

Func Connect()
   $ChildWin  = GUICreate("Connecting to Qonquer", 325, 400, 100, 100, -1, -1, $ParentWin)
   GUISetOnEvent ( $GUI_EVENT_CLOSE, "DeleteGui",$ChildWin)
   GUISetState(@SW_SHOW)
   GUISetIcon("tqzf.ico")
   ;Content
   $L1 = GUICtrlCreateLabel("The best way to connect is by using Lakshya's custom Qonquer client:", 5, 5, 320, 28,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $E1 = GUICtrlCreateEdit("http://www.megaupload.com/?d=MPGN1J45", 5, 40, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L2 = GUICtrlCreateLabel("You'll need Winrar to extract the folder", 5, 65, 320, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $E2 = GUICtrlCreateEdit("http://www.win-rar.com/", 5, 87, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L3 = GUICtrlCreateLabel("Installing the client is self explanatory, extract it in your program files folder. However, if you would like more assistance:", 5, 115, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $E3 = GUICtrlCreateEdit("http://www.qonquer.com/forum/viewtopic.php?t=14963", 5, 149, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $conpic1  = GUICtrlCreatePic("qonquercon.bmp", 0, 200, 400, 200)
EndFunc

Func CantCon()
   $ChildWin  = GUICreate("Can't Connect?!", 325, 400, 100, 100, -1, -1, $ParentWin)
   GUISetOnEvent ( $GUI_EVENT_CLOSE, "DeleteGui",$ChildWin)
   GUISetState(@SW_SHOW)
   GUISetIcon("tqzf.ico")
   ;Content
   $L1 = GUICtrlCreateLabel("If you cannot connect, either the connection from your client is faulty, the server is down or frozen, you're banned, or you're using the incorrect username or password.", 5, 5, 320, 40,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L2 = GUICtrlCreateLabel("You can find out if the server is offline, or you're ip banned by going here:", 5, 60, 320, 28,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $E1 = GUICtrlCreateEdit("http://www.qonquer.com/forum/portal.php", 5, 90, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L3 = GUICtrlCreateLabel("1. If the server is online but you can't see a number of players, you're IP banned", 5, 115, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L4 = GUICtrlCreateLabel("2. If the server status icon is a frowny face, it is off-line", 5, 155, 320, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $cantpic1  = GUICtrlCreatePic("serverstatus5ae.bmp", 0, 180, 157, 78)
   $L5 = GUICtrlCreateLabel("3. Make sure you're connecting to the correct IP Address:", 5, 265, 320, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $E1 = GUICtrlCreateEdit("69.41.179.99", 5, 290, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L6 = GUICtrlCreateLabel("4. Make sure you are using the correct username and password for connecting to Qonquer, remember that Qonquer and Conquer Online are not the same.", 5, 315, 320, 50,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
EndFunc

Func Ban()
   $ChildWin  = GUICreate("About Bans", 325, 400, 100, 100, -1, -1, $ParentWin)
   GUISetOnEvent ( $GUI_EVENT_CLOSE, "DeleteGui",$ChildWin)
   GUISetState(@SW_SHOW)
   GUISetIcon("tqzf.ico")
   ;Content
   $L1 = GUICtrlCreateLabel("There are 2 kinds of bans; account bans and IP bans.", 5, 5, 320, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L2 = GUICtrlCreateLabel("1. Account bans happen when you have done something wrong, like botting etc. Account bans can last forever, or until the next server restart. Most account bans usually come with IP bans.", 5, 30, 320, 80,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L3 = GUICtrlCreateLabel("2. IP bans can happen for a number of reasons, logging in too many times, being banned for 'supposedly' auto-hunting, or doing something bad/wrong. If this happens to you, you'll have to wait until the next server restart to log back in. You will not be able to see the number of players online on the homepage.", 5, 100, 320, 80,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $banpic1  = GUICtrlCreatePic("ipban.bmp", 0, 180, 202, 157)
   $L4 = GUICtrlCreateLabel("THE BEST WAY TO AVOID THIS IS BY NOT GETTING INTO TROUBLE!", 5, 355, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   
EndFunc

Func Features()
   $ChildWin  = GUICreate("About New Features", 325, 400, 100, 100, -1, -1, $ParentWin)
   GUISetOnEvent ( $GUI_EVENT_CLOSE, "DeleteGui",$ChildWin)
   GUISetState(@SW_SHOW)
   GUISetIcon("tqzf.ico")
   ;Content
   $L1 = GUICtrlCreateLabel("One of the main things that sets aside Qonquer from Conquer Online, is its vast amount of new features and changes that Conquer Online itself, doesn't have.", 5, 5, 320, 40,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L2 = GUICtrlCreateLabel("Aside from events, @commands have been implemented to make things easier.", 5, 55, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $E1 = GUICtrlCreateEdit("http://www.qonquer.com/forum/viewtopic.php?t=7440", 5, 90, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L3 = GUICtrlCreateLabel("Another difference from Qonquer is its new items and creations that we can all enjoy; from +1 DragonBalls to x4 exp pots, and 3rd rebirth.", 5, 120, 320, 38,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $E2 = GUICtrlCreateEdit("http://www.qonquer.com/forum/viewtopic.php?t=13386", 5, 160, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L4 = GUICtrlCreateLabel("Along with Qonquer's cheap economy, events are held quite often, and intensive and fun quests are being implemented, have an idea for one? Post it here:", 5, 185, 320, 50,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $E3 = GUICtrlCreateEdit("http://www.qonquer.com/forum/viewforum.php?f=38", 5, 230, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L5 = GUICtrlCreateLabel("Qonquer has an ever-growing active and intelligent community, an always growing, advancing, popular mmorpg.", 5, 270, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $featurepic1  = GUICtrlCreatePic("q.bmp", -50, 300, 400, 100)
EndFunc

Func Items()
   $ChildWin  = GUICreate("About New Items", 325, 400, 100, 100, -1, -1, $ParentWin)
   GUISetOnEvent ( $GUI_EVENT_CLOSE, "DeleteGui",$ChildWin)
   GUISetState(@SW_SHOW)
   GUISetIcon("tqzf.ico")
   ;Content
   $L1 = GUICtrlCreateLabel("One of the main factors that makes Qonquer so unique, is the interesting new items that are implemented.", 5, 5, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L2 = GUICtrlCreateLabel("One of the first new items introduced to QO was the +1 Met and DB, they can both be used as normal mets/dbs, but that would be a total waste. Why? Because the +1 Meteor can be used to put the first socket in any type of armor, and a +1 DB can put the second socket in them. Go here for more information:", 5, 50, 320, 65,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $E1 = GUICtrlCreateEdit("http://www.qonquer.com/forum/viewtopic.php?t=7797", 5, 125, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L3 = GUICtrlCreateLabel("Some old items were given new attributes, like the MagicGate, dropping from only certain monsters; MagicGates can teleport all around the Qonquer world, and even to a special Qonquer Lottery.", 5, 150, 320, 45,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L4 = GUICtrlCreateLabel("Items such as the PointCard were given new attributes, PointCards now act as x4 exp potions.", 5, 200, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L5 = GUICtrlCreateLabel("SoulJades act as a Meteor packer, great for when you're in a pk area such as met zone.(not implemented yet) ", 5, 240, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L5 = GUICtrlCreateLabel("The LifeFlower, normally apart of CO's 2nd rebirth quest, is now a key item in QO's newest implementation; 3rd Rebirth!.", 5, 285, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L5 = GUICtrlCreateLabel("HeroCards are items that drop from monsters, they give you 1 Qonquer Point, a new/future trait of the Qonquer mmorpg.", 5, 310, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY))

EndFunc

Func QueEvents()
   $ChildWin  = GUICreate("About Quests/Events", 325, 400, 100, 100, -1, -1, $ParentWin)
   GUISetOnEvent ( $GUI_EVENT_CLOSE, "DeleteGui",$ChildWin)
   GUISetState(@SW_SHOW)
   GUISetIcon("tqzf.ico")
   ;Content
   $L1 = GUICtrlCreateLabel("Qonquer's events and quests are only one of the aspects that flourish Qonquer, along with drop events:", 5, 5, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L2 = GUICtrlCreateLabel("You can find quests and event guides/walkthroughs here:", 5, 55, 320, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $E1 = GUICtrlCreateEdit("http://www.qonquer.com/forum/viewforum.php?f=37", 5, 80, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L3 = GUICtrlCreateLabel("One of Qonquer's most well-known events is the PK tournament, an event all levels can enjoy. Read more here:", 5, 105, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $E2 = GUICtrlCreateEdit("http://www.qonquer.com/forum/viewtopic.php?t=13386", 5, 140, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L4 = GUICtrlCreateLabel("Another famed event of Qonquer is the treasure hunt, where anyone is able to enjoy hunting for treasure chest, and may get luck and win a special bonus prize. Read more here:", 5, 165, 320, 48,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $E3 = GUICtrlCreateEdit("http://www.qonquer.com/forum/viewtopic.php?t=11480", 5, 209, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L5 = GUICtrlCreateLabel("An event everyone is waiting for is CTF (Capture the Flag); where players can team up against eachother. Sign up here:", 5, 233, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $E4 = GUICtrlCreateEdit("http://www.qonquer.com/forum/viewtopic.php?t=10476", 5, 264, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $eventpic1  = GUICtrlCreatePic("screenshot_34.bmp", 0, 300, 224, 112)
EndFunc

Func Forum()
   $ChildWin  = GUICreate("Forum Info/Rules", 325, 400, 100, 100, -1, -1, $ParentWin)
   GUISetOnEvent ( $GUI_EVENT_CLOSE, "DeleteGui",$ChildWin)
   GUISetState(@SW_SHOW)
   GUISetIcon("tqzf.ico")
   ;Content
   $L1 = GUICtrlCreateLabel("Like most community forums, Qonquer has rules. Follow these rules to stay out of trouble.", 5, 5, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L2 = GUICtrlCreateLabel("You can find a list of rules by going here:", 5, 55, 320, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $E1 = GUICtrlCreateEdit("http://www.qonquer.com/forum/viewtopic.php?t=275", 5, 80, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L3 = GUICtrlCreateLabel("The rules are based on common sense, but here are the main ones.", 5, 105, 320, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L4 = GUICtrlCreateLabel("1. Don't spam (make pointless posts)", 5, 135, 320, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L5 = GUICtrlCreateLabel("2. Don't flame too much", 5, 160, 320, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $L6 = GUICtrlCreateLabel("3. And for goodness sake, use the search button!", 5, 185, 320, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $E1 = GUICtrlCreateEdit("http://www.qonquer.com/forum/search.php", 5, 205, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
   $forumpic1  = GUICtrlCreatePic("srch.bmp", 0, 240, 298, 149)
EndFunc

Func ExitW()
   Exit
EndFunc

Func DeleteGui()
    GUIDelete()
EndFunc 

Func create()
   _IEErrorHandlerRegister ()

$oIE = _IECreateEmbedded ()
$ChildWin  = GUICreate("Account Creation Page", 400, 580, _
        (@DesktopWidth - 400) / 2, (@DesktopHeight - 540) / 2, _
        $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 400, 540)
    GUISetOnEvent ( $GUI_EVENT_CLOSE, "DeleteGui",$ChildWin)
    GUISetState(@SW_SHOW)
    _IENavigate ($oIE, "http://qonquer.com:9980/regform.qhtml")
    GUISetIcon("tqzf.ico")
    $L1 = GUICtrlCreateLabel("Only works on browsers with IE!", 5, 555, 320, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY))
EndFunc

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0