Advertisement
Guest User

Untitled

a guest
Apr 17th, 2018
81
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 2.61 KB | None | 0 0
  1. #include <ButtonConstants.au3>
  2. #include <EditConstants.au3>
  3. #include <GUIConstantsEx.au3>
  4. #include <StaticConstants.au3>
  5. #include <WindowsConstants.au3>
  6.  
  7.  
  8. #Region ### START Koda GUI section ### Form=C:\Users\Luka Kraljić\Desktop\Pilot Project OGame\aukcija_fullbot\aukcija_interfacetest_v1.kxf
  9. $Form1 = GUICreate("OGame AuctionClicker v1.0", 625, 442, 552, 250)
  10. $Group1 = GUICtrlCreateGroup("Postavke", 24, 136, 577, 289)
  11. $izmjena = GUICtrlCreateButton("Izmjena", 368, 384, 123, 25, $WS_GROUP)
  12. $quit = GUICtrlCreateButton("Quit", 504, 384, 83, 25, $WS_GROUP)
  13. $Label2 = GUICtrlCreateLabel("Metal (koliko je potrebno)", 40, 168, 276, 17)
  14. $Label3 = GUICtrlCreateLabel("Deuterij (koliko je potrebno)", 40, 224, 276, 17)
  15. $Label4 = GUICtrlCreateLabel("AutoMetal", 40, 280, 276, 17)
  16. $Input1 = GUICtrlCreateInput("4", 328, 168, 65, 21)
  17. $Input2 = GUICtrlCreateInput("5", 328, 224, 65, 21)
  18. $Input3 = GUICtrlCreateInput("6", 328, 280, 65, 21)
  19. $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)
  20. GUICtrlCreateGroup("", -99, -99, 1, 1)
  21. $Label1 = GUICtrlCreateLabel("About: " & @LF & "OGame AuctionClicker ©" & @LF & "Pilot project by Codemania™" & @LF & "Updates weekly", 328, 8, 292, 97)
  22. $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))
  23. GUISetState(@SW_SHOW)
  24. #EndRegion ### END Koda GUI section ###
  25.  
  26. While 1
  27.     $nMsg = GUIGetMsg()
  28.     Switch $nMsg
  29.         Case $quit
  30.             Exit
  31.          Case $izmjena
  32. HotKeySets()
  33.     EndSwitch
  34. WEnd
  35.  
  36.  
  37. Func metal()
  38.    MouseClick("primary", 1248, 647, 1, 0)
  39.    Sleep(20)
  40.    MouseClick("primary", 1181, 945, 1, 0)
  41. EndFunc
  42.  
  43.  
  44.  
  45. Func deuterij()
  46.    MouseClick("primary", 1248, 765, 1, 0)
  47.    Sleep(20)
  48.    MouseClick("primary", 1181, 945, 1, 0)
  49. EndFunc
  50.  
  51.  
  52.  
  53. Func metalloop()
  54.    While 1
  55.    $color=PixelGetColor("887", "961")
  56.    If ($color==0xD43635) Then
  57.    MouseClick("primary", 1248, 765, 1, 0)
  58.    Sleep(50)
  59.    MouseClick("primary", 1181, 945, 1, 0)
  60.    sleep(1000)
  61. Else
  62.    Sleep(100)
  63. EndIf
  64. WEnd
  65. EndFunc
  66.  
  67. Func quit()
  68.    sleep(200)
  69.    Exit
  70. EndFunc
  71.  
  72. Func hotkeys()
  73.  
  74.    While 1
  75.       HotKeySet(4,"metal")
  76.       HotKeySet(5,"deuterij")
  77.       HotKeySet(6,"metalloop")
  78.    WEnd
  79. EndFunc
  80.  
  81.  
  82. Func hotkeysets()
  83. While 1
  84.             HotKeySet("0","quit")
  85.             hotkeys()
  86.          WEnd
  87.       EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement