Question to Pickled about addition to Crafting Macro : EverQuest 2 Premium Discussions

Code: Select all

;---------------------------------------------------------------------
;--- Added to global variables
;---------------------------------------------------------------------

$ingred1X = ---- ; Mouse X coordinate for the first Ingredient 
$ingred1Y = ---- ; Mouse Y coordinate for the first Ingredient 
$ingred2X = ---- ; Mouse X coordinate for the second Ingredient
$ingred2Y = ---- ; Mouse Y coordinate for the second Ingredient 
$ingred3X = ---- ; Mouse X coordinate for the third Ingredient
$ingred3Y = ---- ; Mouse Y coordinate for the third Ingredient 
$backgr1X = ---- ; Mouse X for background color of empty area for ingredients  
$backgr1Y = ---- ; Mouse Y for background color of empty area for ingredients  
$ingredback = ------- ; background color of empty area for ingredients 

;---------------------------------------------------------------------
;The next code determines pixel color and assigns to a value
;---------------------------------------------------------------------

MouseMove($ingred1X, ingred1Y, 5) 
$ingredColorBack1 = PixelGetColor($ingred2X, $ingred2Y)

MouseMove($ingred2X, ingred2Y, 5) 
$ingredColorBack2 = PixelGetColor($ingred2X, $ingred2Y)

MouseMove($ingred3X, ingred3Y, 5) 
$ingredColorBack3 = PixelGetColor($ingred3X, $ingred3Y)
	
;---------------------------------------------------------------------
;--- My intention here is if the resource runs out it see's the color now
;--- matches the empty ersource variable and pops a box up that will
;--- log you out in 60 seconds if you do not click the ABORT button on
;--- the MsgBox.  Once clicked it just drops the script then you rightclick
;--- and exit it like you would normally would

If ($ingredColorBack1 = $ingredback) Then
 	  	MsgBox(3, "Out of Resources", "You have 60 sec. to press ABORT or you will camp to the Character Selection Screen" [, 6000]) 
   		If 3 Then Exit(0) Else 
			Send("{enter}") ;Press enter on keyboard
			Send("/camp") ;Camps to Character Select Screen
			Send("{enter}") ;Press enter on keyboard
EndIf

If ($ingredColorBack2 = $ingredback) Then
 	  	MsgBox(3, "Out of Resources", "You have 60 sec. to press ABORT or you will camp to the Character Selection Screen" [, 6000]) 
   		If 3 Then Exit(0) Else 
			Send("{enter}") ;Press enter on keyboard
			Send("/camp") ;Camps to Character Select Screen
			Send("{enter}") ;Press enter on keyboard
EndIf

If ($ingredColorBack3 = $ingredback) Then
 	  	MsgBox(3, "Out of Resources", "You have 60 sec. to press ABORT or you will camp to the Character Selection Screen" [, 6000]) 
   		If 3 Then Exit(0) Else 
			Send("{enter}") ;Press enter on keyboard
			Send("/camp") ;Camps to Character Select Screen
			Send("{enter}") ;Press enter on keyboard
EndIf