[Only registered and activated users can see links. Click Here To Register...]
Minigame Bot
11/15/2008 20:31
Chrisiwbi#16
11/17/2008 00:50
drunkenmonkey77#17
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...
klappt vill mal 1 von 50 nicht eine lvl5 belohnung zu bekommen...
aber sonst top...
11/17/2008 07:09
CrunkJuice#18
dann postes hier pls mal ;P
11/17/2008 09:04
Atheuz#19
You rather want to use GetDIBits for a faster processing.Quote:
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.
[Only registered and activated users can see links. Click Here To Register...]
11/17/2008 14:43
Souljaboy1996#20
bei mir macht der bot nichts ligts an vista?
11/17/2008 14:45
magnat#21
kan nicht einfach mal jemand den bot richtig rein stellen ????
11/17/2008 16:40
CrunkJuice#22
Benutz den Code der da steht.
Öffne Steinbruch
Drück F1 sobald man schlagen kann
Drück F2
Dann gehts...
Öffne Steinbruch
Drück F1 sobald man schlagen kann
Drück F2
Dann gehts...
11/17/2008 19:19
Yuri Dean#23
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...>__>
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...>__>
11/17/2008 22:16
Poggi#24
bei mir macht der garnichts -.-
11/17/2008 23:46
uni3#25
für welche auflösung ????????????Quote:
:):):):rolleyes::rolleyes::rolleyes::cool::cool:
Bitte (o hätte ich fast vergessen^^)
-ist für den steinbruch-BOT 1
-------------BOT2--------------------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
kommt noch
Fenstermodus ?????
das sollte man scho beischreiben !
11/18/2008 13:46
Poggi#26
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 ^.^
wenn du mia noch helfen könntest das er auch auf die wigglis einschlägt wäre das supaa to ^.^
11/18/2008 13:46
Poggi#27
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 ^.^:D
wenn du mia noch helfen könntest das er auch auf die wigglis einschlägt wäre das supaa to ^.^:D
11/18/2008 17:44
Shantal123#28
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^^
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^^
11/18/2008 17:49
Lialf#29
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.
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.
11/19/2008 01:01
uni3#30
#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
#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