Hier sind Alle minigame bots als Autoit script
Nostale auf Fenstermodus bringen und Die kleinste auflösung(1024x786?)
Fenster setzer:
Den lasst ihr euer nostale fenster nach oben links rücken und dann exit.
HotKeySet("{F8}", "Terminate")
HotKeySet("{F2}", "Pause")
Func Terminate()
Exit 0
EndFunc ;==>Terminate
Func Pause()
Sleep(1500)
EndFunc ;==>Pause
$i = 1
Opt("WinWaitDelay", 100)
Opt("WinTitleMatchMode", 4)
Opt("WinDetectHiddenText", 1)
Opt("MouseCoordMode", 0)
WinWait("NosTale", "")
If Not WinActive("NosTale", "") Then WinActivate("NosTale", "")
WinWaitActive("NosTale", "")
Do
Sleep(2000)
MouseMove(628, 8) ;Bildschieben
MouseDown("left")
Sleep(3000)
MouseMove(422, -43)
MouseUp("left") ;Bildschieben
MouseClick("left",515,428,2)
sleep(3000)
MouseClick("left",473,414,2)
sleep(4000)
Send("{SHIFTDOWN}B{SHIFTUP}enutername{TAB}Passwort {ENTER}")
Sleep(5000)
;Grossbuchstarben müssen in {SHIFTDOWN}b{SHIFTUP} steht für ein grosses B [Wichtig]
$i = $i + 1
Until $i = 1
Steinbruch:
HotKeySet("{F1}", "Start") ;Startet mit F1
HotKeySet("{ESC}", "Stop") ;Schliesst mit ESC
HotKeySet("{F2}", "Pause") ;Pause 5 SEC.
HotKeySet("{F3}", "Pause1") ; Pause mit Einlooger 3 MIN.
HotKeySet("{F4}", "Pause2") ;Pause für neustart 4MIN.
Func Start() ;Hier Start
While 1
$AS = PixelSearch(606, 400, 608, 402, 0xFFD200, 2) ;Belohnung Bekommen LVL5
If Not @error Then
MouseClick("left", 651, 463, 1)
Sleep(550)
MouseClick("left", 651, 463, 1)
Sleep(550)
MouseClick("left", 464, 489, 1)
Sleep(550)
MouseClick("left", 512, 574, 1)
EndIf
$BS = PixelSearch(660, 444, 664, 448, 0xCCDCFD, 2) ;Spiel ende bestätigung
If Not @error Then
MouseClick("left", 662, 446, 1)
Sleep(550)
MouseClick("left", 591, 485, 1) ;
Sleep(550)
MouseClick("left", 656, 540, 1) ;geändert
Sleep(6550)
MouseClick("left", 1004, 769, 1) ;System
Sleep(3000)
MouseClick("left", 833, 694, 1) ;Serverauswahl
Sleep(3000)
MouseClick("left", 474, 431, 1) ;Server Verlassen
Sleep(6000)
MouseClick("left", 942, 755, 1) ;Verlassen
Sleep(3000)
MouseClick("left", 515, 428, 2)
Sleep(3000)
MouseClick("left", 473, 414, 2)
Sleep(4000)
EndIf
$CS = PixelSearch(590, 404, 594, 408, 0x099BFF, 2) ;Spiel anmachen
If Not @error Then
Sleep(1550)
MouseClick("left", 594, 407, 1)
Sleep(550)
MouseClick("left", 599, 450, 1)
Sleep(550)
MouseClick("left", 414, 553, 1)
Sleep(550)
MouseClick("left", 517, 574, 1)
EndIf
$DS = PixelSearch(446, 231, 448, 233, 0xFFD200, 2) ;Pause 20K Punkte
If Not @error Then
Send("{F2}")
EndIf
$FS = PixelSearch(315, 174, 317, 176, 0x36363D, 2) ;Links Scannen
If Not @error Then
$FS = PixelSearch(392, 590, 396, 593, 0xD4B535, 1) ;Links Scannen
If @error Then
Send("{left}")
Sleep("300")
EndIf
EndIf
$GS = PixelSearch(315, 174, 317, 176, 0x36363D, 2) ;Links Scannen
If Not @error Then
$GS = PixelSearch(630, 590, 640, 593, 0xeCC93E, 1) ;Rechts scannen
If @error Then
Send("{right}")
Sleep("300")
EndIf
EndIf
$OS = PixelSearch(222, 223, 224, 223, 0xEACE42, 9) ;Hoch scannen
If @error Then
Send("{up}")
Sleep("14")
EndIf
WEnd
EndFunc ;==>Start
Func Pause()
Sleep(5000) ;Pause 5 SEC.belohnung
EndFunc ;==>Pause
Func Pause1()
Sleep(180000) ;Pause 3 MIN.Für Neustart Nos
EndFunc ;==>Pause1
Func Pause2()
Sleep(240000) ;Pause 4 MIN.Für Neuerkennung und neustart
EndFunc ;==>Pause2
While 1
Sleep(1)
WEnd
Func Stop() ;Ausschalter
Exit
EndFunc ;==>Stop
Sägewerk:
HotKeySet ( "{F1}" , "Start" ) ;Startet mit F1
HotKeySet ( "{ESC}" , "Stop" ) ;Schliesst mit ESC
HotKeySet("{F2}", "Pause") ;Pause 5 SEC.
HotKeySet("{F3}", "Pause1") ; Pause mit Einlooger 3 MIN.
HotKeySet("{F4}", "Pause2") ;Pause für neustart 4MIN.
Func Start () ;Hier Start
While 1
$ES = PixelSearch(597,399,600,399,0x1B1A17,2) ;Belohnung Ablehnen
If not @error Then
MouseClick("left",387,458,1)
sleep(550)
MouseClick("left",505,574,1)
EndIf
$AS = PixelSearch(606,400,608,402,0xFFD200,2) ;Belohnung Bekommen LVL5
If not @error Then
MouseClick("left",651,463,1)
sleep(550)
MouseClick("left",651,463,1)
sleep(550)
MouseClick("left",464,489,1)
sleep(550)
MouseClick("left",512,574,1)
EndIf
$BS = PixelSearch(660,444,664,448,0xCCDCFD,2) ;Spiel ende bestätigung
If not @error Then
MouseClick("left",662,446,1)
sleep(550)
MouseClick("left",591,485,1) ;
sleep(550)
Mouseclick("left",656,540,1) ;geändert
sleep(6550)
Mouseclick("left",377,55,1)
sleep(6550)
MouseClick("left",456,221,1)
sleep(4550)
send("{down}")
sleep(550)
Send("q")
sleep(550)
send("{F4}")
EndIf
$CS = PixelSearch(590,404,594,408,0x099BFF,2) ;Spiel anmachen
If not @error Then
sleep(1550)
MouseClick("left",594,407,1)
sleep(550)
MouseClick("left",599,450,1)
sleep(550)
MouseClick("left",414,553,1)
sleep(550)
MouseClick("left",517,574,1)
EndIf
$DS = PixelSearch(446,231,448,233,0xFFD200,2) ;Pause 20K Punkte
If not @error Then
send("{F2}")
EndIf
$FS = PixelSearch(450,419,465,426,0xBB7A2A,9) ;Links Scannen
If not @error Then
Send("{left}")
EndIf
$GS = PixelSearch(450,520,460,529,0xBB7A2A,9) ;Rechts scannen
If not @error Then
Send ("{right}")
EndIf
WEnd
EndFunc
Func Pause()
Sleep(5000) ;Pause 5 SEC.belohnung
EndFunc
Func Pause1()
Sleep(180000) ;Pause 3 MIN.Für Neustart Nos
EndFunc
Func Pause2()
Sleep(240000) ;Pause 4 MIN.Für Neuerkennung und neustart
EndFunc
While 1
sleep (1)
WEnd
Func Stop () ;Ausschalter
Exit
EndFunc
UND!!! dass aller wichtigste was die meisten freuen dürfte
Schussfeld Bot:
HotKeySet("{ESC}", "Stop") ;Schliesst mit ESC
HotKeySet("{F1}", "Start") ;Startet mit F1
HotKeySet("{F2}", "Pause") ;Pause 5 SEC.
HotKeySet("{F4}", "Pause2") ;Pause für neustart 4MIN.
Opt("WinWaitDelay", 100)
Opt("WinTitleMatchMode", 4)
Opt("WinDetectHiddenText", 1)
Opt("MouseCoordMode", 0)
WinWait("NosTale", "")
If Not WinActive("NosTale", "") Then WinActivate("NosTale", "")
WinWaitActive("NosTale", "")
Func Start() ;Hier Start
While 1
$BS = PixelSearch(660, 444, 664, 448, 0xCCDCFD, 2) ; Spiel ende bestätigung
If Not @error Then
MouseClick("left", 662, 446, 1)
Sleep(550)
MouseClick("left", 591, 485, 1) ;
Sleep(550)
MouseClick("left", 656, 540, 1) ;geändert
Sleep(6550)
MouseClick("left", 914, 83, 1) ; LAUFEN nach
sleep(10000)
MouseMove(767,314)
MouseDown("left")
sleep(2000)
MouseMove(483,338) ; Vollis auswerfen
MouseUp("left")
sleep(1500)
Send("{ENTER}")
sleep(3000)
MouseClick("left", 1004, 769, 1) ; System
Sleep(3000)
MouseClick("left", 833, 694, 1) ;Serverauswahl
Sleep(3000)
MouseClick("left", 474, 431, 1) ; Server Verlassen
Sleep(6000)
MouseClick("left", 942, 755, 1) ; Verlassen
Sleep(3000)
MouseClick("left", 515, 428, 2)
Sleep(3000)
MouseClick("left", 473, 414, 2)
Sleep(4000)
EndIf
$CS = PixelSearch(590, 404, 594, 408, 0x099BFF, 2) ; Spiel anmachen
If Not @error Then
Sleep(1550)
MouseClick("left", 594, 407, 1)
Sleep(550)
MouseClick("left", 599, 450, 1)
Sleep(550)
MouseClick("left", 414, 553, 1)
Sleep(550)
MouseClick("left", 517, 574, 1)
EndIf
$FS = PixelSearch(445,230,458,467,0xFCBB81,2) ; Links Hahn Alte Farbe 0xFFB64B
If @error Then
$FS = PixelSearch(433,230,454,467,0xD22030,7) ; Links Hahn
If Not @error Then
Send("{left}")
Send("{up}")
Sleep(250)
EndIf
EndIf
$GS = PixelSearch(445,230,458,467,0xFCBB81,2) ; Links Hahn
If @error Then
$GS = PixelSearch(445,230,458,467,0xFDF2DE,7) ; Links Huhn
If Not @error Then
Send("{left}")
Send("{up}")
Sleep(250)
EndIf
EndIf
$HS = PixelSearch(445,230,458,467,0xFCBB81,2) ; Links Hahn
If @error Then
$HS = PixelSearch(445,230,458,467,0xFCBB81,7) ; Links Fledermaus
If Not @error Then
Send("{left}")
Send("{up}")
Sleep(250)
EndIf
EndIf
$IS = PixelSearch(445,230,458,467,0xFCBB81,2) ; Links Hahn
If @error Then
$IS = PixelSearch(573,230,594,577,0xD22030,7) ; Rechts Hahn
If Not @error Then
Send("{right}")
Send("{up}")
Sleep(250)
EndIf
EndIf
$KS = PixelSearch(445,230,458,467,0xFCBB81,2) ; Links Hahn
If @error Then
$KS = PixelSearch(573,230,587,577,0xFDF2DE,7) ; Rechts Huhn
If Not @error Then
Send("{right}")
Send("{up}")
Sleep(250)
EndIf
EndIf
$LS = PixelSearch(445,230,458,467,0xFCBB81,2) ; Links Hahn
If @error Then
$LS = PixelSearch(573,230,587,577,0xFCBB81,7) ; Rechts Fledermaus alte frabe 0x863368B
If Not @error Then
Send("{right}")
Send("{up}")
Sleep(250)
EndIf
EndIf
$NS = PixelSearch(590,403,592,405,0x0072FF,11) ; Wenn ausfällt weg machen
If Not @error Then
$NS = PixelSearch(562,452,564,454,0x1F1F1F,11) ; Wenn ausfällt weg machen
If Not @error Then
MouseClick("left", 593, 480, 1)
Sleep(550)
EndIf
EndIf
$PS = PixelSearch(603,390,605,392,0xFFD200,2) ; 20k neustart
If Not @error Then
MouseClick("left", 387, 458, 1)
Sleep(550)
MouseClick("left", 505, 574, 1)
EndIf
$DS = PixelSearch(577,382,592,405,0x0072FF,11) ; Wenn ausfällt weg machen
If Not @error Then
MouseClick("left", 593, 480, 1)
Sleep(550)
EndIf
$SS = PixelSearch(708,344,711,346,0x1C2123,2) ; neustart beiunter100
If not @error Then
$SS = PixelSearch(646,400,649,402,0xFFD200,2) ; 30k versuch stoppen
If @error Then
MouseClick("left", 387, 458, 1)
Sleep(550)
MouseClick("left", 505, 574, 1)
EndIf
EndIf
$TS = PixelSearch(708,344,711,346,0x1C2123,2) ; neustart beiunter100
If not @error Then
$TS = PixelSearch(603,400,606,402,0xFFD200,2) ; 10k versuch stoppen
If @error Then
MouseClick("left", 387, 458, 1)
Sleep(550)
MouseClick("left", 505, 574, 1)
EndIf
EndIf
WEnd
EndFunc ;==>Start ende
Func Pause()
Sleep(5000) ;Pause 5 SEC.belohnung
EndFunc ;==>Pause
Func Pause2()
Sleep(299999999999999940000) ;Pause 4 MIN.Für Neuerkennung und neustart
EndFunc ;==>Pause2
While 1
Sleep(1)
WEnd
Func Stop() ;Ausschalter
Exit
EndFunc ;==>Stop
Viel spaß damit ^^