Camp Addon (addon for Pickled Recipe Crafter 1.2) : EverQuest 2 Premium Discussions

;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
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

If($retryCount > 20) Then