Minigame Bots ;)

Nostale25 · 07/23/2010, 12:00

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 ^^

Nostale25 · 08/01/2010, 20:56

*push* für die ganzen nörgeler Die sagen Kein Minigame bot funzt

Die jeweilgen COdes bei Autoit reinhaun und speicher--starten ^^

near110 · 08/06/2010, 13:42

Wir wärs ihr ignoriert euch mal gegeneinander wär bestimmt viel beser für euch zwei.

#Kagari solche Wörter muss man nicht benutzen man kann es auch vernüftig lösen.

Kagari · 08/06/2010, 15:39

dann muss er auch net solche scheiß antworten abgeben..ich kenn mcih damit net aus und dieser bildschieber hat ff angemacht und ist auf so ne seite gegangen die er fast kaufen wollte

near110 · 08/06/2010, 19:46

Dann sags (IM) nicht mir.

Und klärt das bitte auf vernüftiger weiße aus, es gibt für alles eine lösung!

Danke.

●Santax● · 08/06/2010, 19:58

Frage an Nostale25.

Der Bot für Schussfeld funktioniert ganz gut. Sollte er nicht eigentlich auch die Belohnung abholen oder kann der das nicht? Weil.. Er schafft 25k Punkte und mehr aber wenn er dann verliert drückt er Erneut versuchen.

Alisami · 08/06/2010, 20:21

Bitte lasst den Spam und die Beleidigungen, ich habe Verwarnungen ausgeteilt. Bleibt beim Thema!

Devil589 · 08/06/2010, 20:29

Quote:

Originally Posted by The_Lord_of_the_Pudding

Frage an Nostale25.
Der Bot für Schussfeld funktioniert ganz gut. Sollte er nicht eigentlich auch die Belohnung abholen oder kann der das nicht? Weil.. Er schafft 25k Punkte und mehr aber wenn er dann verliert drückt er Erneut versuchen.

Sobald du das Item siehst hast du es bereits in deinem Inventar also stimmt alles mit dem Bot.

See Ya!

Striefe · 08/11/2010, 22:01

der bot funktionirt nicht wirklich

1swalies1 · 08/12/2010, 17:10

also hi erstma ^^

ähmm ja das da oben mit dem cods un so

da versteh ich kein bissl von^^

kann das wer bitte erkläaren ( für doofe)

ich denke das ich net der einzige bin oder wen ja dann antwortet net wen nein dan pls

schnell ne Antwort danke sehr

mfg 1swalies1

Striefe · 08/12/2010, 18:03

das sind scripts für autoit v3 das ist ein prog zum selber bot erstellen da must du das hineinkopieren

sH4X. · 08/12/2010, 18:38

bei mir startet der bot nicht... (Schussfeld)

Hab Win 7 32 Bit

Striefe · 08/12/2010, 19:19

haste als administrator gestartet?

sH4X. · 08/12/2010, 22:11

geht garnicht. Ist ja keine exe.

Striefe · 08/13/2010, 01:07

nachdem du es hineinkopier hast speicherste es und schliest es danach machste rechts klick auf das prog wo du es hineinkopiert hast also diese autoit script und machst dann compile scriplt dann dürfte ein neues bildschien kommen wo mit du es über admin starten kannst