trung Posted August 21, 2006 Share Posted August 21, 2006 (edited) HotKeySet ("{ESC}", "quitme") ; command line param: beep (0 = off, 1 = on) Global $MakeNoise = 0 If $CmdLine[0] = 0 Then $MakeNoise = 0 ElseIf $CmdLine[1] = 1 Then $MakeNoise = 1 EndIf Global Const $PI = 3.1415926535897932384626433832795 Global $Width = @DesktopWidth, $Height = @DesktopHeight, $MidX = $Width/2, $MidY = $Height/2 Global $Radius = 5 Global $Step = $PI/6 ToolTip ("Mouse Mover!!", $MidX, $MidY) While 1 Do For $angle = 0 To 2*$PI Step $Step $Radius += 5 MouseMove ($MidX - (Cos ($angle) * $Radius), $MidY - (Sin ($angle) * $Radius), 0) If $MakeNoise = 1 Then Beep ($Radius*5, 2) EndIf Next Until $Radius >= $MidY Do For $angle = 0 To 2*$PI Step $Step $Radius -= 5 MouseMove ($MidX - (Cos ($angle) * $Radius), $MidY - (Sin ($angle) * $Radius), 0) If $MakeNoise = 1 Then Beep ($Radius*5, 2) EndIf Next Until $Radius <= 5 WEnd Func quitme() Exit EndFunc hey th.meger ur code is soo cool but the problem is my game monster's name doesnt show up intil the mouse is over the monster so i want the mouse to move like in ur script but stop wenever it finds a pixel showing up on the screen and pause the mouse movement and click the start the movement of mouse over or continue ether one is kool pixel i need is 0xFFFF4C the game is supreme destiny Edited August 21, 2006 by trung Link to comment Share on other sites More sharing options...
Xenobiologist Posted August 21, 2006 Share Posted August 21, 2006 HI, quick and very dirty but maybe it helps you to start. expandcollapse popupHotKeySet("{ESC}", "quitme") HotKeySet("1", "MouseSearch") HotKeySet("2", "_stop") AdlibEnable("check", 10) Global Const $PI = 3.1415926535897932384626433832795 Global $Width = @DesktopWidth, $Height = @DesktopHeight, $MidX = $Width / 2, $MidY = $Height / 2 Global $Radius = 5 Global $Step = $PI / 6 Global $stop = 1 Global $coord = "" ToolTip("Mouse Mover!!", $MidX, $MidY) MouseSearch() Func MouseSearch() While 1 Do For $angle = 0 To 2 * $PI Step $Step $Radius += 5 MouseMove($MidX - (Cos($angle) * $Radius), $MidY - (Sin($angle) * $Radius), 0) Next Until $Radius >= $MidY Do For $angle = 0 To 2 * $PI Step $Step $Radius -= 5 MouseMove($MidX - (Cos($angle) * $Radius), $MidY - (Sin($angle) * $Radius), 0) Next Until $Radius <= 5 If $stop <> 1 Then ExitLoop WEnd EndFunc ;==>MouseSearch Func check() $xy = MouseGetPos() Global $coord = PixelSearch($xy[0] - 50, $xy[1] - 50, $xy[0] + 50, $xy[1] + 50, 0xFFFF4C) If @error <> 1 Then _stop() MouseClick("left", $coord[0], $coord[1], 1) EndIf EndFunc ;==>check Func quitme() Exit EndFunc ;==>quitme Func _stop() $stop = 0 While 1 Sleep(100) WEnd EndFunc ;==>_stop So long, Mega Scripts & functions Organize Includes Let Scite organize the include files Yahtzee The game "Yahtzee" (Kniffel, DiceLion) LoginWrapper Secure scripts by adding a query (authentication) _RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...) Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc. MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times Link to comment Share on other sites More sharing options...
trung Posted August 21, 2006 Author Share Posted August 21, 2006 wut the hotkeys for? Link to comment Share on other sites More sharing options...
Paulie Posted August 21, 2006 Share Posted August 21, 2006 wut the hotkeys for?Escape- quits1- starts the searching2- pauses the searchthat seems pretty self-explaintory Link to comment Share on other sites More sharing options...
trung Posted August 21, 2006 Author Share Posted August 21, 2006 (edited) ooo cz the bot isnt stopping wen it sees the pixel nor is it left clicking wonder wut rong paulie on ur script the bot clicked and everything but i like the movement in this bot now i cant get it to click Edited August 21, 2006 by trung Link to comment Share on other sites More sharing options...
Paulie Posted August 21, 2006 Share Posted August 21, 2006 (edited) paulie on ur script the bot clicked and everything but i like the movement in this bot now i cant get it to clickokay, now your just getting picky expandcollapse popupHotKeySet("{ESC}", "quitme") HotKeySet("1", "MouseSearch") HotKeySet("2", "_stop") Global Const $PI = 3.1415926535897932384626433832795 Global $Width = @DesktopWidth, $Height = @DesktopHeight, $MidX = $Width / 2, $MidY = $Height / 2 Global $Radius = 5 Global $Step = $PI / 6 Global $stop = 1 Global $coord = "" ToolTip("Mouse Mover!!", $MidX, $MidY) MouseSearch() Func MouseSearch() While 1 Do For $angle = 0 To 2 * $PI Step $Step $Radius += 5 MouseMove($MidX - (Cos($angle) * $Radius), $MidY - (Sin($angle) * $Radius), 0) $xy = MouseGetPos() Global $coord = PixelSearch($xy[0] - 50, $xy[1] - 50, $xy[0] + 50, $xy[1] + 50, 0xFFFF4C) If @error <> 1 Then MouseClick("left", $coord[0], $coord[1], 1) EndIf Next Until $Radius >= $MidY Do For $angle = 0 To 2 * $PI Step $Step $Radius -= 5 MouseMove($MidX - (Cos($angle) * $Radius), $MidY - (Sin($angle) * $Radius), 0) $xy = MouseGetPos() Global $coord = PixelSearch($xy[0] - 50, $xy[1] - 50, $xy[0] + 50, $xy[1] + 50, 0xFFFF4C) If @error <> 1 Then MouseClick("left", $coord[0], $coord[1], 1) EndIf Next Until $Radius <= 5 If $stop <> 1 Then ExitLoop WEnd EndFunc ;==>MouseSearch Func quitme() Exit EndFunc ;==>quitme Func _stop() $stop = 0 While 1 Sleep(100) WEnd EndFunc ;==>_stop This is a little slower, but moves in a circle and does a pixelsearch Edited August 21, 2006 by Paulie Link to comment Share on other sites More sharing options...
trung Posted August 21, 2006 Author Share Posted August 21, 2006 NEATT I LOVE U LOL Link to comment Share on other sites More sharing options...
L0rdJh0n3L Posted January 7, 2007 Share Posted January 7, 2007 one question. i tried ur script but it's only mouse circling. any script that goes perfect to hunt and kill monster? likely a bot Link to comment Share on other sites More sharing options...
BALA Posted January 7, 2007 Share Posted January 7, 2007 (edited) This may be off topic, but what's up with everyone wanting a bot? I see a new one of these like everyday! EDIT: sorry for gravedigging if I did, mistake Edited January 7, 2007 by BALA [font="Comic Sans MS"]BA-LA[/font]http://ba-la.110mb.comJoin my community, CLICK HEREAlternative links to my site:http://www.ba-la.tkhttp://www.ba-la.co.nrContact me if you would like to help with some of my projects: joeythepirate@gmail.com Link to comment Share on other sites More sharing options...
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