HotKeySet("{F9}", "left") ;=> przypisujemy do F9 funkcje left HotKeySet("{F10}", "right") ;=> przypisujemy do F10 funkcje right HotKeySet("{F11}", "done") ;=> przypisujemy do F11 funkcje done Dim $l_run = False ;=> domyslna wartosc zmiennej l_run Dim $r_run = False ;=> domyslna wartosc zmiennej r_run $t = 20 ;=> wartosc zmiennej t $clicks = 1 ;=> wartosc zmiennej clicks ;zamkniecie programu Func done() ;=> rozpoczecie funkcji done Exit ;=> ;wywolanie zamkniecia aplikacji EndFunc ;=> zakonczenie funkcji done ;rozpoczecie/zatrzymanie right Func right() ;=> rozpoczecie funkcji right If $r_run = False Then;=> jezeli zmiena $r_run posiada wartosc false zmianiamy na true $r_run = True Else ;w innym przypadku zmieniamy na false (inny przypadek do True $r_run = False EndIf ;=> zakonczenie if EndFunc ;=> zakonczenie funkcji right ;rozpoczecie/zatrzymanie left Func left() ;=> rozpoczecie funkcji left If $l_run = False Then $l_run = True Else $l_run = False EndIf EndFunc While True ;=> rozpoczecie petli $pos = MouseGetPos() If $r_run = True Then ;=> do run o wartosci True MouseClick("right",$pos[0],$pos[1],$clicks) ;=> wykonujemy klikniecie lewym przyciskiem myszy EndIf ;=> zakonczenie if If $l_run = True Then MouseClick("left",$pos[0],$pos[1],$clicks) EndIf Sleep($t) ;=> usypiamy program na 20 milisekund WEnd ;=> zakonczenie petli