lilandywandy Posted November 2, 2005 Share Posted November 2, 2005 HotKeySet("{ESC}", "MyExit") While 1 ; repeat statements over ; look for monster and attack him $CoordMonster = PixelSearch ( 972,101,1006,131,0xbd0000,34 ) If Not @error Then MouseClick ( "Right" , $CoordMonster[0], $CoordMonster[1] , 1,1) EndIf ; if mana is empty replenish it If PixelGetColor( 119, 780) = (0x94929c) Then For $i = 3 to $i = 1 Step -1 Send("{F7}") Sleep(2000) Next EndIf Wend Func MyExit() Exit EndFunc this is just a code i used for something else,,, how can i change it so that the exit hotkey is shift? and instead of attacking monster, how can i make it so if there is FFFFFF in 972,101,1006,131, then move mouse to 0,0 Link to comment Share on other sites More sharing options...
Nuffilein805 Posted November 2, 2005 Share Posted November 2, 2005 hotkeyset("{lshift}", "MyExit") thats all you have to do my little chatmy little encryption toolmy little hidermy unsafe clickbot Link to comment Share on other sites More sharing options...
BigDod Posted November 2, 2005 Share Posted November 2, 2005 hotkeyset("{lshift}", "MyExit")thats all you have to doI left this one for you Time you enjoyed wasting is not wasted time ......T.S. Elliot Suspense is worse than disappointment................Robert Burns God help the man who won't help himself, because no-one else will...........My Grandmother Link to comment Share on other sites More sharing options...
Nuffilein805 Posted November 2, 2005 Share Posted November 2, 2005 thx a lot my little chatmy little encryption toolmy little hidermy unsafe clickbot Link to comment Share on other sites More sharing options...
LxP Posted November 3, 2005 Share Posted November 3, 2005 To answer both of your questions (also adapting Nuffilein's answer): ; Declare your variables! Local $Monster, $i HotkeySet('{LSHIFT}', 'MyExit') HotkeySet('{RSHIFT}', 'MyExit') ; Loop indefinitely While 1 ; Search for monster $Monster = PixelSearch(972, 101, 1006, 131, 0xBD0000, 34) If Not @Error Then MouseMove(0, 0, 0) ; Replenish empty mana If PixelGetColor(119, 780) = 0x94929C Then For $I = 1 To 3 Send('{F7}') Sleep(2000) Next EndIf ; Pause briefly to avoid excessive CPU Sleep(100) WEnd Func MyExit() Exit EndFunc 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