Afk-leveling 56-60

Call CheckQuestRed ...
...
Call CheckQuestYellow ...

delay 300

//Jump to position indexed with "jumpInd"
Procedure Jump
keydown ö 70
delay 400

Constants
//general Vars
ind=1
true=1
jumpInd=
lootAble=0
lootLoop=8

//casespecific Vars
watch=0
End

//Jump to position indexed with "jumpInd"
Procedure Jump
keydown i 70
delay 400

keydown {return} 100
keys ~7t myname bwhtele $jumpInd
delay 100
keydown {return} 100
delay 200
keydown i 100
keys ad
delay 100
keys ad

keys ad
End

//Wait for Lootability
//BOOLEAN: lootAble
Procedure Wait4Loot
Loop $lootLoop
Compute lootAble = 0
MousePos 400, 360
delay 120
LoadRGB 405, 363
if {RGBred} > 200 and {RGBgreen} >150 and {RGBblue} < 90
 Compute lootAble = 1
 break
end

MousePos 400, 240
delay 120
LoadRGB 405, 243
if {RGBred} > 200 and {RGBgreen} >150 and {RGBblue} < 90
 Compute lootAble = 1
 break
end

MousePos 460, 300
delay 120
LoadRGB 465, 303
if {RGBred} > 200 and {RGBgreen} >150 and {RGBblue} < 90
 Compute lootAble = 1
 exit
end

MousePos 340, 300
delay 120
LoadRGB 345, 303
if {RGBred} > 200 and {RGBgreen} >150 and {RGBblue} < 90
 Compute lootAble = 1
 break
end

MousePos 400, 300
delay 120
LoadRGB 405, 303
if {RGBred} > 200 and {RGBgreen} >150 and {RGBblue} < 90
 Compute lootAble = 1
 break
end
End

delay 220
End

//Coordinates: X, Y
Procedure CheckRed using X, Y
WHILE $true=1
 IsRed $X, $Y
 Exit
 End
 delay 100
End
End

//Coordinates: X, Y
Procedure CheckQuestYellow using X, Y
WHILE $true=1
 LoadRGB $X, $Y
 If {rgbRed} > 200 and {rgbGreen} > 200 and {rgbBlue} < 30
 Exit
 End
 delay 100
End
End

//Coordinates: X, Y
Procedure CheckQuestRed using X, Y
WHILE $true=1
 LoadRGB $X, $Y
 If {rgbRed} > 200 and {rgbGreen} < 30 and {rgbBlue} < 30
 Exit
 End
 delay 100
End
End


//RadarScan
Procedure ScanRadar
Constants
 X=
 Y=
 alarm=1
End
While $alarm=1
 Compute alarm=0
 Loop X=734 to 767
 Loop Y=102 to 139
  LoadRGB $X, $Y
  If {rgbRed} > 200 and {rgbGreen} < 50 and {rgbBlue} < 80
  Compute alarm=1
  break
  End
 End
 If $alarm=1
  break
 End
 End
 delay 400
End

End

//--------------Main---------------
WHILE $true=1
LOOP ind = 2 to 22
//damn ProcessGuard, force me to do that for sure.
SetActiveWindow WORLD OF WARCRAFT

//Looking for watches
Compute jumpInd = $ind
Call Jump

//loot it----
Call Wait4Loot
IF $lootAble = 1
rightclick
delay 6000
leftclick
delay 100
leftclick
leftclick
delay 200

Compute watch=$watch+1
//-----
If $watch=5
 Compute watch=0
 //port under chromie's house
 Compute jumpInd = 0
 Call Jump
 delay 300
 //waiting near chromie, clientside, for her and entities to appear
 keydown {f11}
 MousePos 47, 104
 delay 100
 doubleclick
 delay 100
 keydown {f11}
 //change cam view
 MousePos 400, 100
 DragTo 400, 500
 MousePos 400, 100
 DragTo 400, 500
 MousePos 400, 100
 DragTo 400, 500

 while $true=1
 Call Wait4Loot
 if $lootAble = 1
  break
 end
 end
 
 //porting back and scan radar for pcs
 keydown {f11}
 MousePos 50, 91
 delay 100
 doubleclick
 delay 100
 keydown {f11}
 
 Call ScanRadar
 
 //port to chromie, return quest and get new one
 keydown {f11}
 MousePos 47, 104
 delay 100
 doubleclick
 delay 100
 keydown {f11}
 keys ad
 delay 300
 //return quest
 MousePos 400, 350
 rightclick
 rightclick
 Call CheckQuestYellow 28, 310 
 MousePos 28, 310
 delay 300
 leftclick
 delay 100
 leftclick
 MousePos 49, 445
 Call CheckQuestRed 44, 447
 delay 100
 leftclick
 delay 500
 leftclick
 delay 300
 //get new quest
 MousePos 400, 350
 delay 100
 rightclick
 delay 100
 rightclick
 Call CheckQuestYellow 28, 310
 MousePos 28, 310
 delay 300
 leftclick
 delay 100
 leftclick
 MousePos 61, 446
 Call CheckQuestRed 52, 445
 delay 100
 doubleclick
 
 //back under house
 keydown {f11}
 MousePos 50, 91
 delay 100
 doubleclick
 delay 100
 keys ad
 keydown {f11}
 //cam view back
 MousePos 400, 500
 DragTo 408, 100
 MousePos 400, 500
 DragTo 408, 100
 MousePos 400, 500
 DragTo 408, 100

 //throw away reward
 MousePos 683, 441
 delay 100
 leftclick
 delay 400
 MousePos 625, 91
 delay 800
 leftclick
 delay 600
 MousePos 361, 166
 leftclick
End
//----

END //loot handled



END
END

keys ~7t CharName bwhtele $jumpInd

Call CheckQuestRed ...
 ...

Call CheckQuestYellow ...

delay 300