Minigame Bot

Chrisiwbi · 11/11/2008, 20:24

-ist für den steinbruch-BOT 1

PHP Code:


			
#include <file.au3>
#include <array.au3>
#include <String.au3>
#include <GuiConstantsEX.au3>
#include <Staticconstants.au3>

;Hotkeys
#Region "HotKeys"
HotKeySet("{F1}", "SetMiningStuff")
HotKeySet("{F2}", "MiningWithTori")
HotKeySet("{ESC}","Close")
#EndRegion

;Globals
#Region "Globals"
Global $LeftCritter, $RightCritter, $LCPixel, $RCPixel, $pos, $hWnd, $LPixel, $RPixel, $miner
Global $LeftCritter_X, $LeftCritter_Y, $RightCritter_X, $RightCritter_Y
#EndRegion


$LeftCritter = StringSplit("524,693",",")
$RightCritter = StringSplit("768,693",",")

;Self Explainitory
$LeftCritter_X = $LeftCritter[1]
$LeftCritter_Y = $LeftCritter[2]

$RightCritter_X = $RightCritter[1]
$RightCritter_Y = $RightCritter[2]




while 1
    
    sleep(100)    
WEnd

Func SetMiningStuff()
    $hWnd = WinGetHandle('Nostale')
;Use this as SOON as the Start button of the Minigame is clicked
;This sets the Pixel colors to watch for.

    $RCPixel = PixelGetColor($RightCritter_X, $RightCritter_Y, $hWnd)
    $LCPixel = PixelGetColor($LeftCritter_X, $LeftCritter_Y, $hWnd)    
EndFunc

Func MiningWithTori()
    $miner = NOT $miner
    
    While $miner
            $hWnd = WinGetHandle('Nostale')
            
       ;This Sets new Variables as the Constant Pixel Color within ths given coords
            $RPixel = PixelGetColor($RightCritter_X, $RightCritter_Y, $hWnd)
            $LPixel = PixelGetColor($LeftCritter_X, $LeftCritter_Y, $hWnd)

            ;If the Constant Pixel color changes
            Sleep("40")
            If $RPixel <> $RCPixel then
                Send("{RIGHT}",0)
                Sleep("40")
            EndIf
            
            
            If $LPixel <> $LCPixel then
                Send("{LEFT}",0)
                Sleep("40")
            EndIf
            ;If no change is present Keep Hitting that Rock you crackhead i know u like it !
                Send("{UP}")
                Sleep("1")
    
            
    WEnd
    
EndFunc

Func Close()
    Exit 0
EndFunc

-------------BOT2--------------------
kommt noch

Abraxas Ethar · 11/11/2008, 20:27

Es gibt auch Wörter wie Bitte und Danke aber nein immer "Macht man Bot"
Tss ich glaub des wäre auch nicht so leicht oder?

Chrisiwbi · 11/11/2008, 21:49

weis ich nicht deswegen frag ich ja

uni3 · 11/12/2008, 23:23

Quote:

Originally Posted by Chrisiwbi

weis ich nicht deswegen frag ich ja

ein bot schreiben dafür ist eigendlich ganz leicht versuche ich gerade abr habe leider proble beim schreiben da ich mich niht wirklich mit pixelsearch auskenne wer könnte mir denn da mal helfen damit auch ein ausenseier mal was lernt

blinko · 11/13/2008, 08:55

As i've stated i do not speak German but i Believe you are "asking" about a MiniGame Bot.

I haven't finished it yet since it sometime will miss it's attacks however it does work, and i think it's my RAM that make it not work 100% cause when i run it my Nostale client kinda slows down a bit and appears laggy.So if you have good RAM then this should run 100% with a little bit of editing of course.

This Bot is designed for the Quarry (Rock Mining Game) and it was set to a Windowed Client.So basically you'll just have to replace the x & y coordinates for the pixel watching and you'll be fine.But Test this and see how it works !

*Also this is for Nostale UK so you'll maybe have to change the WinGetHandle('Nostale') piece

Chrisiwbi · 11/13/2008, 13:29

THX (aber eigentlich kommt es zu spät ich hab selber mit pixelsearch einen gemacht
MFG Chrisiwbi

THX (but actually it is too late I have pixels themselves with a search made
MFG Chrisiwbi

Souljaboy1996 · 11/13/2008, 17:44

poste den bot ma Chrisiwbi

blinko · 11/14/2008, 08:04

Quote:

Originally Posted by Chrisiwbi

THX (aber eigentlich kommt es zu spät ich hab selber mit pixelsearch einen gemacht
MFG Chrisiwbi

THX (but actually it is too late I have pixels themselves with a search made
MFG Chrisiwbi

I suppose you COULD have it do a gradient color pixel search and scan through all the reds,blues,greens,yellows but thats too much work, Pixel Search also runs more CPU than the pixelgetcolor, however if you can just make the little critters themselves one solid color ^^ you'll have a perfect minigame bot.

drunkenmonkey77 · 11/14/2008, 12:22

Sitze schon mittlerweile seit fast ner woche an einem minigame bot, und der hochgeladene bot von blinko tut auch nicht das, was er sollte...

wenn ich eine lösung gefunden habe, werde ich die den hochladen...
ansonsten bleibt ja bis dahin nicht großartig was übrig, als die games selbst zu spielen.

Chrisiwbi · 11/14/2008, 14:02

so der minigame bot ist oben

Souljaboy1996 · 11/14/2008, 14:24

das is nur der script von blinko

Chrisiwbi · 11/14/2008, 17:52

*** aber ich hab es verbessert und abgeändert

mein böt für die Baumstäme hat ein Problem ich finde keine Farbe woran ich die Baumstamm erkennen kann^^
EDIT: is doch kein Problem^^

uni3 · 11/14/2008, 23:33

Quote:

Originally Posted by Chrisiwbi

Kann mal wer einen Minigame bot machen ??

Bitte (o hätte ich fast vergessen^^)
-ist für den steinbruch-BOT 1

PHP Code:

#include <file.au3> #include <array.au3> #include <String.au3> #include <GuiConstantsEX.au3> #include <Staticconstants.au3> ;Hotkeys #Region "HotKeys" HotKeySet("{F1}", "SetMiningStuff") HotKeySet("{F2}", "MiningWithTori") HotKeySet("{ESC}","Close") #EndRegion ;Globals #Region "Globals" Global $LeftCritter, $RightCritter, $LCPixel, $RCPixel, $pos, $hWnd, $LPixel, $RPixel, $miner Global $LeftCritter_X, $LeftCritter_Y, $RightCritter_X, $RightCritter_Y #EndRegion $LeftCritter = StringSplit("524,693",",") $RightCritter = StringSplit("768,693",",") ;Self Explainitory $LeftCritter_X = $LeftCritter[1] $LeftCritter_Y = $LeftCritter[2] $RightCritter_X = $RightCritter[1] $RightCritter_Y = $RightCritter[2] while 1 sleep(100) WEnd Func SetMiningStuff() $hWnd = WinGetHandle('Nostale') ;Use this as SOON as the Start button of the Minigame is clicked ;This sets the Pixel colors to watch for. $RCPixel = PixelGetColor($RightCritter_X, $RightCritter_Y, $hWnd) $LCPixel = PixelGetColor($LeftCritter_X, $LeftCritter_Y, $hWnd) EndFunc Func MiningWithTori() $miner = NOT $miner While $miner $hWnd = WinGetHandle('Nostale') ;This Sets new Variables as the Constant Pixel Color within ths given coords $RPixel = PixelGetColor($RightCritter_X, $RightCritter_Y, $hWnd) $LPixel = PixelGetColor($LeftCritter_X, $LeftCritter_Y, $hWnd) ;If the Constant Pixel color changes Sleep("40") If $RPixel <> $RCPixel then Send("{RIGHT}",0) Sleep("40") EndIf If $LPixel <> $LCPixel then Send("{LEFT}",0) Sleep("40") EndIf ;If no change is present Keep Hitting that Rock you crackhead i know u like it ! Send("{UP}") Sleep("1") WEnd EndFunc Func Close() Exit 0 EndFunc

-------------BOT2--------------------
kommt noch

wenn er ml das machen würde was er soll der haut bei mir immer daneben
kontrolliertmal bitte ob der bei euch läuft

Chrisiwbi · 11/15/2008, 17:07

Bei mir get es ohne daneben zu hauen

Shantal123 · 11/15/2008, 17:56

was soll ich mit dem Gekrakel da oben machen??^^
Wo soll ich das einfügen??