[AutoIT] Source Nostale ExpBot

Source ExpBota do gry Nostale, który sam napisałem:



;####################################

;Author's####Kris006  #######
;####################################
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <SendMessage.au3>
#include <TabConstants.au3>
#include <ImageSearch.au3>
HotKeySet("{End}","wyjdz")
HotKeySet("{Home}","start")
HotKeySet("{Pause}","pauza")
AdlibRegister("ku",3000)
AdlibRegister("x",3000)
AdlibRegister("potowanie",3000)
Global Const $SC_DRAGMOVE = 0xF012
Global $aktywnosc
Global $x, $y
$GUI = GUICreate("Nostale 0.1", 190, 155, 192, 124)
$libon_2 = GUICtrlCreateLabel("Kris006 dla Good-Games.pl", 15, 125, 999, 999)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
$slot1 = GUICtrlCreateCheckbox("zbierać przedmnioty?", 19, 10, 135, 17)
$slot2 = GUICtrlCreateCheckbox("Herbatniki co 10s (slot 2)", 19, 29, 135, 17)
$got1 = GUICtrlCreateLabel("HotKey'e", 20, 50, 47, 17)
$Edit1 = GUICtrlCreateEdit("", 20, 70, 129, 49)
GUICtrlSetBkColor(-1,0xFFFFFF)
GUICtrlSetData(-1, StringFormat("Home - UruchomrnPause/Break - ZatrzymajrnEnd - Wyjdź"))
 
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
 
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func x()
   If $aktywnosc = 1 Then
If GUICtrlRead($slot1) = $GUI_CHECKED Then
  send("x")
  sleep(100)
  send("x")
   sleep(100)
  send("x")
   sleep(100)
  send("x")
  EndIf
  endif
  endfunc
 
Func jedzenie()
If $aktywnosc = 1 Then
   If GUICtrlRead($slot2) = $GUI_CHECKED Then
  sleep(10000)
Send("{2}")
endif
endif
EndFunc
Func ku()
If $aktywnosc = 1 Then
send(" ")
sleep(100)
send(" ")
sleep(100)
send(" ")
sleep(100)
send(" ")
Potowanie()
endif
EndFunc
Func start()
$aktywnosc = 1
$pot = GUICtrlRead($Czas)
Send("{2}")
Sleep($pot)
EndFunc
 Func wyjdz()
Exit
EndFunc
Func pauza()
   $aktywnosc = 0
   EndFunc




Mini-screen: