Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <ButtonConstants.au3>
- #include <EditConstants.au3>
- #include <GUIConstantsEx.au3>
- #include <StaticConstants.au3>
- #include <WindowsConstants.au3>
- #Region ### START Koda GUI section ### Form=C:\Users\Luka Kraljić\Desktop\Pilot Project OGame\aukcija_fullbot\aukcija_interfacetest_v1.kxf
- $Form1 = GUICreate("OGame AuctionClicker v1.0", 625, 442, 552, 250)
- $Group1 = GUICtrlCreateGroup("Postavke", 24, 136, 577, 289)
- $izmjena = GUICtrlCreateButton("Izmjena", 368, 384, 123, 25, $WS_GROUP)
- $quit = GUICtrlCreateButton("Quit", 504, 384, 83, 25, $WS_GROUP)
- $Label2 = GUICtrlCreateLabel("Metal (koliko je potrebno)", 40, 168, 276, 17)
- $Label3 = GUICtrlCreateLabel("Deuterij (koliko je potrebno)", 40, 224, 276, 17)
- $Label4 = GUICtrlCreateLabel("AutoMetal", 40, 280, 276, 17)
- $Input1 = GUICtrlCreateInput("4", 328, 168, 65, 21)
- $Input2 = GUICtrlCreateInput("5", 328, 224, 65, 21)
- $Input3 = GUICtrlCreateInput("6", 328, 280, 65, 21)
- $Label5 = GUICtrlCreateLabel("Program trenutno u fazi razvoja" & @LF & "Postavke su trenutno zaključane, izmjene neće biti prihvaćene!" & @LF & "" & @LF & "0 na tipkovnici (ne numpad) zaustavlja program." & @LF & "9 zaustavlja AutoMetal" & @LF & "" & @LF & "Potrebno kliknuti na Izmjena kako bi se program upalio!" & @LF & "", 408, 168, 188, 201)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- $Label1 = GUICtrlCreateLabel("About: " & @LF & "OGame AuctionClicker ©" & @LF & "Pilot project by Codemania™" & @LF & "Updates weekly", 328, 8, 292, 97)
- $Pic1 = GUICtrlCreatePic("C:\Users\Luka Kraljić\Desktop\Pilot Project OGame\reloger_ui_version1.2\auctionclickerlogo.jpg", 8, 8, 316, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
- GUISetState(@SW_SHOW)
- #EndRegion ### END Koda GUI section ###
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $quit
- Exit
- Case $izmjena
- HotKeySets()
- EndSwitch
- WEnd
- Func metal()
- MouseClick("primary", 1248, 647, 1, 0)
- Sleep(20)
- MouseClick("primary", 1181, 945, 1, 0)
- EndFunc
- Func deuterij()
- MouseClick("primary", 1248, 765, 1, 0)
- Sleep(20)
- MouseClick("primary", 1181, 945, 1, 0)
- EndFunc
- Func metalloop()
- While 1
- $color=PixelGetColor("887", "961")
- If ($color==0xD43635) Then
- MouseClick("primary", 1248, 765, 1, 0)
- Sleep(50)
- MouseClick("primary", 1181, 945, 1, 0)
- sleep(1000)
- Else
- Sleep(100)
- EndIf
- WEnd
- EndFunc
- Func quit()
- sleep(200)
- Exit
- EndFunc
- Func hotkeys()
- While 1
- HotKeySet(4,"metal")
- HotKeySet(5,"deuterij")
- HotKeySet(6,"metalloop")
- WEnd
- EndFunc
- Func hotkeysets()
- While 1
- HotKeySet("0","quit")
- hotkeys()
- WEnd
- EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement