Minigame Bot

[Chrisiwbi]

[drunkenmonkey77]

hab es nun geschafft, dass es bei mir zu 98% klappt...

klappt vill mal 1 von 50 nicht eine lvl5 belohnung zu bekommen...
aber sonst top...

[CrunkJuice]

dann postes hier pls mal ;P

[Atheuz]

Originally Posted by blinko

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.

You rather want to use GetDIBits for a faster processing.

[Souljaboy1996]

bei mir macht der bot nichts ligts an vista?

[magnat]

kan nicht einfach mal jemand den bot richtig rein stellen ????

[CrunkJuice]

Benutz den Code der da steht.
Öffne Steinbruch
Drück F1 sobald man schlagen kann
Drück F2
Dann gehts...

[Yuri Dean]

nunja bei mir hats nich wirklich geklappt....
der schlägt die wriggler und den stein
bloß wenn da ein wrigglwer is schlägt der gleich sonst wie oft drauf und wird von den platt gemacht...>__>

[Poggi]

bei mir macht der garnichts -.-

[uni3]

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

für welche auflösung ????????????
Fenstermodus ?????

das sollte man scho beischreiben !

[Poggi]

0o der schlägt bei mia nua auf den stein ein T...T (er geht jezz) thx <333
wenn du mia noch helfen könntest das er auch auf die wigglis einschlägt wäre das supaa to ^.^

[Poggi]

0o der schlägt bei mia nua auf den stein ein T...T (er geht jezz) thx <333
wenn du mia noch helfen könntest das er auch auf die wigglis einschlägt wäre das supaa to ^.^

[Shantal123]

also der bot is an sich sehr gut nur hat er bei mir ne macke, und zwar schlägt er bei mir immer einmal nach rechts dann auf den Stein dann wieder nach rechts, usw.
könnte es daran liegen das ich Vista hab??
Könnte mir jmd bitte sagen wie ich das beheben kann??
Thx schon ma im voraus^^

[Lialf]

nunja habe versucht, aber kein peil davon..
ich gehe so vor..
Starte Nostale
gehe ins Miniland
öffne steinbruch.
sobald das Game losgeht starte ich das Bot.
Anleitung:
Esc beenden
F1 start
F2 (wofür ist der da?)

sobald ich auf F1 drück haut er ans Stein immer und immer
Jedoch uaf diese Wriggler macht der nichts.
was mache ich da falsch?
sagt bitte wie ihr vorgeht.
Vielen dank im Vorraus.

[uni3]

#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, $UpCritter, $DownCritter, $LCPixel, $RCPixel, $UCPixel, $DCPixel, $pos, $hWnd, $LPixel, $RPixel, $UPixel, $DPixel, $miner
Global $LeftCritter_X, $LeftCritter_Y, $RightCritter_X, $RightCritter_Y $UpCritter_X, $UpCritter_Y, $DownCritter_X, $DownCritter_Y
#EndRegion

$RightCritter = StringSplit("772,500",",")
$LeftCritter = StringSplit("619,562",",")
$UpCritter = StringSplit("618,560",",")
$DownCritter = StringSplit("649,457",",")

;Self Explainitory
$RightCritter_X = $RightCritter[1]
$RightCritter_Y = $RightCritter[2]

$LeftCritter_X = $LeftCritter[1]
$LeftCritter_Y = $LeftCritter[2]

$UpCritter_X = $UpCritter[1]
$UpCritter_Y = $UpCritter[2]

$DownCritter_X = $DownCritter[1]
$DownCritter_Y = $DownCritter[2]

while 1

sleep(20)
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)
$UCPixel = PixelGetColor($UpCritter_X, $UpCritter_Y, $hWnd)
$DCPixel = PixelGetColor($DownCritter_X, $DownCritter_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
$RCPixel = PixelGetColor($RightCritter_X, $RightCritter_Y, $hWnd)
$LCPixel = PixelGetColor($LeftCritter_X, $LeftCritter_Y, $hWnd)
$UCPixel = PixelGetColor($UpCritter_X, $UpCritter_Y, $hWnd)
$DCPixel = PixelGetColor($DownCritter_X, $DownCritter_Y, $hWnd)

;If the Constant Pixel color changes
Sleep("40")
If $RPixel <> $RCPixel then
Send("{RIGHT}",0)
Sleep("300")
EndIf

If $LPixel <> $LCPixel then
Send("{LEFT}",0)
Sleep("300")
EndIf
If $UPixel <> $UCPixel then
Send("{Up}",0)
Sleep("300")
EndIf
If $DPixel <> $DCPixel then
Send("{Down}",0)
Sleep("300")

WEnd

EndFunc

Func Close()
Exit 0
EndFunc