bad script

[6105 0]

after kill the monster script or stop or just click in 1 coord and dont stop.. if i pres stop or pause he dont stop click click and click... i can only restart computer help plz to find mistake

if i use WinWhait("window..") he spame in all windows too(((

expandcollapse popup

Global $Paused
HotKeySet("{F1}", "TogglePause")
HotKeySet("{ESC}", "Terminate")

$her = PixelSearch( 200, 120, 940, 370, 0xFFFFFF ) 
$box = PixelSearch( 200, 120, 940, 370, 0xBBB083 )
$rat = PixelSearch( 200, 120, 940, 370, 0xFEAE2C ) 

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
    Exit 0
EndFunc

While 1

 $hl = $her[0]-50
 $ht = $her[1]-50
 $hr = $her[0]+50
 $hb = $her[1]+50
 $radar = PixelSearch( $hl, $ht, $hr, $hb, 0xFEAE2C )
 If Not @error Then
     Send("{SHIFTDOWN}")
     MouseClick("left", $radar[0]+30, $radar[1]+15)
     Send("{SHIFTUP}")
     Send("e")
     Sleep(2000)
 Else
     Radar2()
 EndIf
WEnd

Func Radar2()
 $hl = $her[0]-100
 $ht = $her[1]-100
 $hr = $her[0]+100
 $hb = $her[1]+100
 $radar = PixelSearch( $hl, $ht, $hr, $hb, 0xFEAE2C )
 If Not @error Then
     Send("{SHIFTDOWN}")
     MouseClick("left", $radar[0]+30, $radar[1]+15)
     Send("{SHIFTUP}")
     Send("e")
     Sleep(2000)
 Else
     Radar3()
 EndIf
EndFunc

Func Radar3()
 $hl = $her[0]-150
 $ht = $her[1]-150
 $hr = $her[0]+150
 $hb = $her[1]+150
 $radar = PixelSearch( $hl, $ht, $hr, $hb, 0xFEAE2C )
  If Not @error Then
     Send("{SHIFTDOWN}")
     MouseClick("left", $radar[0]+30, $radar[1]+15)
     Send("{SHIFTUP}")
     Send("e")
     Sleep(2000)
 Else
     Radar4()
 EndIf
EndFunc

Func Radar4()
 $hl = $her[0]-200
 $ht = $her[1]-200
 $hr = $her[0]+200
 $hb = $her[1]+200
 $radar = PixelSearch( $hl, $ht, $hr, $hb, 0xFEAE2C )
 If Not @error Then
     Send("{SHIFTDOWN}")
     MouseClick("left", $radar[0]+30, $radar[1]+15)
     Send("{SHIFTUP}")
     Send("e")
     Sleep(2000)
 Else
     Radar5()
 EndIf
EndFunc

Func Radar5()
 $hl = $her[0]-250
 $ht = $her[1]-250
 $hr = $her[0]+250
 $hb = $her[1]+250
 $radar = PixelSearch( $hl, $ht, $hr, $hb, 0xFEAE2C )
 If Not @error Then
     Send("{SHIFTDOWN}")
     MouseClick("left", $radar[0]+30, $radar[1]+15)
     Send("{SHIFTUP}")
     Send("e")
     Sleep(2000)
 Else
     Radar6()
 EndIf
EndFunc

Func Radar6()
 $hl = $her[0]-300
 $ht = $her[1]-300
 $hr = $her[0]+300
 $hb = $her[1]+300
 $radar = PixelSearch( $hl, $ht, $hr, $hb, 0xFEAE2C )
 If Not @error Then
     Send("{SHIFTDOWN}")
     MouseClick("left", $radar[0]+30, $radar[1]+15)
     Send("{SHIFTUP}")
     Send("e")
     Sleep(2000)
 Else
     Send("{SHIFTDOWN}")
     MouseClick("left", $rat[0]-20, $rat[1]-10)
     Send("{SHIFTUP}")
 EndIf
EndFunc

Edited June 6, 2009 by toader

[oMBRa 1]

the problem is your infinite loop... and put a Sleep(10) inside

[6105 0]

the problem is your infinite loop... and put a Sleep(10) inside

i dont understand where put Sleep inside.. i puts in all places sleep(( sry for this question but im newby

here?:

While 1
 Sleep(10)
 $hl = $her[0]-50
 $ht = $her[1]-50
 $hr = $her[0]+50
 $hb = $her[1]+50
 $radar = PixelSearch( $hl, $ht, $hr, $hb, 0xFEAE2C )
 If Not @error Then
     Send("{SHIFTDOWN}")
     MouseClick("left", $radar[0]+30, $radar[1]+15)
     Send("{SHIFTUP}")
     Send("e")
     Sleep(2000)
 Else
     Radar2()
 EndIf
WEnd

Edited June 6, 2009 by toader