Camp Addon (addon for Pickled Recipe Crafter 1.2)
Posted: March 5th, 2005, 11:03 am
Here is a addon for Pickled's Recipe Crafter [Version 1.2]. All credit to Pickled for being such a nice guy to write all this cool stuff!
This will camp your toon to the Character Selection Screen after it is "out of resources".
This has been tested and working over 10 trys on my machines.
**NOTE** If you have been making adjustments and have been running in Tweak Mode you have to turn Tweak Mode back OFF before this mod will work.
Loraik
This will camp your toon to the Character Selection Screen after it is "out of resources".
Code: Select all
;Add this anywhere at very top of script
Global $retryCount = 0
;Add these anywhere
Func Retry()
;Retry 20 Times then Quit
If($retryCount > 20) Then
For $i = 1 to 10 Step 1
ClearTarget()
Next
$camp = MsgBox(4, "Logout?", "It appears that you have run out of components for this session"_
& @CRLF _
& @CRLF & "Would you like to Camp out now? (60 seconds before auto camp!)", 60)
If($camp == 6) Then
WinActivate("Everquest II")
Sleep(500)
Send("/camp")
Sleep(50000)
MsgBox(0, "Completed!", "Crafting session complete - auto camped out.")
Exit(0)
Else
If($camp == 7) Then
MsgBox(0, "Completed!", "Crafting session complete please reload script again to restart!")
Exit(0)
EndIf
WinActivate("Everquest II")
Sleep(500)
Send("/camp")
Send("{enter}")
Sleep(50000)
Exit(0)
EndIf
EndIf
If(PixelGetColor($xBegin, $yBegin) == $colorGrayedBegin) Then
$retryCount = $retryCount + 1
EndIf
EndFunc
Func ClearTarget()
Send("{ESC}")
Sleep(500)
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Find this code in script and add $retryCount = 0 BELOW $done = 1 ;;
; ;;
;If (($color = $colorBegin) OR ($color = $colorBeginHighlighted)) Then ;;
; $done = 1 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$retryCount = 0
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Find this code in script and add Retry() BELOW Sleep(2000 + Random(25));;
; ;;
;MouseClick("left", $xBegin, $yBegin) ; Click repeat ;;
; Sleep(2000 + Random(25)) ;;
; ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Retry()
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Find this code in script and replace:
;;;;;;;;If (NOT $strInput=0) OR ($strInput<4) Then
;
;With:
;;;;;;;;If ($strInput>0) AND ($strInput<6) Then
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
This has been tested and working over 10 trys on my machines.
**NOTE** If you have been making adjustments and have been running in Tweak Mode you have to turn Tweak Mode back OFF before this mod will work.
Loraik