////////////////////////////////////////////////////////////////////////
//First off. You need Object mapper to find the locs you will need    //
//its a very simple process and takes no less then 5mins.             //
//                                                                    //
//Second you need to be in windowed mode for this macro to work if    //
//you are in full screen it won't work. You will need to change to    //
//the Everquest2 window for now after clicking start.                 //
//                                                                    //
//Lastly, You need to have the craft screen open and recipe selected  //
// to it can start crafting(It will click begin)                      //
////////////////////////////////////////////////////////////////////////

// This line is necessary to select the proper window
SetActiveWindow Everquest*
Delay 500
objvar 2

if {IrcConnect} = 0
  IrcStart
end

//Constants\\
Constants

// Primary Config
  WaitForPower    = 0
  MaxProgress     = 0
  MakeLevel       = 0
  MakeCount       = 0

///////////////////////////////////////////////////////////////////////////////////////////////////
//                                  Must Edits                                                   //
///////////////////////////////////////////////////////////////////////////////////////////////////
  Completed       = 967, 770  //Change this for your Repeat key loc. Your looking for R=57 in object mapper. See screenshot.
  CraftItem       = 967, 770  //Change this for your Begin key loc.
  TSStop          = 1149, 770  //Change this to the loc of your stop button.
  Moveaway        = 90, 90  //Spot for mouse to move AFTER clicking repeat/begin. This must be set off of the button.  
  GoodPower       = 673, 738
  Lv1Done         = 955, 524
  Lv2Done         = 955, 585
  DuraMax         = 1186, 634

////////////////////////////////////////////////////////////////////////////////////////////////////
// Edit These  - It will work even if you don't edit these but you should! When you figure it out!//
////////////////////////////////////////////////////////////////////////////////////////////////////
  TSDelay         = 1300     //Change this for how long between Each Button hit, generally 1-2seconds per
  HrsToRun        = 24        //Change this for how long you want it to run 
  repeat5         = 1         //Set to 1
  
///////////////////////////////////////////////////////////////////////////////////////////////////  
//                        Don't Touch These or you risk breaking the macro                       //
///////////////////////////////////////////////////////////////////////////////////////////////////
  Mydelay         = 1 sec     //DON'T TOUCH
  sitting5        = 0         //DON'T TOUCH
  standing5       = 0         //DON'T TOUCH
  tradeskilling5  = 0         //DON'T TOUCH
  Crafting5       = 0         //DON'T TOUCH   
  MadeCount       = 0
  RndDly					= 0
End


//Procedures\\

Procedure Start when $repeat5 = 1
  Call Frepeat
end

//Hours to Run
compute $HrsToRun = $HrsToRun * 3600000
While 1 = 1
  ProcessMessages
  delay $Mydelay
  if {ElapsedMSec} > $HrsToRun// 8hrs---------------------->>TIMER
    say /quit
    Bell PC Speaker
    stop
  end//if $timer >= 7200 // 2hrs
End//While 1 = 1


/////////////////////////////////////////////////////////////
//                                                         //
//           Five Key Macro Procedures                     //
//                                                         //
/////////////////////////////////////////////////////////////

//Repeat for 5 keys
Procedure Frepeat when $repeat5  = 1
  IsObject Power at $GoodPower
  	call FRestart
  else
    if $WaitForPower = 1
      Delay 1 sec
    else
      call FRestart
    end
  end // IsObject
end //END Procedure

// Restart
Procedure FRestart
    set $tradeskilling5  = 1
    set $sitting5 = 0
    set $repeat5 = 0
     Delay 1 sec
    Mousepos $CraftItem
     Leftclick
    Delay 1 sec
     Leftclick
    Delay 1 sec
     Leftclick
    Delay 1 sec
      Mousepos $Moveaway
      Call Fcraft
end

//5-Key Crafting abilities
Procedure Fcraft when $tradeskilling5 = 1
  delay 2 sec
    Loop 100
       if $MaxProgress = 0
         IsObject Dura at $DuraMax
           Keys 5
         else
           Keys 2
         end
         call FChkStatus
         Call FWait $TSDelay
         Keys 3
         call FChkStatus
         Call FWait $TSDelay 
         Keys 4
         call FChkStatus
         Call FWait $TSDelay 
       else
         Keys 4
         call FChkStatus
         Call FWait $TSDelay
         Keys 5
         call FChkStatus
         Call FWait $TSDelay 
         Keys 6
         call FChkStatus
         Call FWait $TSDelay 
       end
        
       if $tradeskilling5 = 0
         break
       end
    End // End the loop
    if $repeat5 = 0
	    Stop
    end
 End  // End procedure
 
/////////////////////////////////////////////////////////////
//                                                         //
//                  Five Key Checks                        //
//                                                         //
/////////////////////////////////////////////////////////////      
   
//Check Status 5-Key
procedure FChkStatus
  IsObject Repeat at $Completed
    call FDone
  end
  If $MakeLevel = 1
    IsObject Progress at $Lv1Done
      MousePos $TSStop
      LeftClick
      Delay 500
      LeftClick
      Delay 500
      LeftClick
      call FDone
    end
  end
  If $MakeLevel = 2
    IsObject Progress at $Lv2Done
      MousePos $TSStop
      LeftClick
      Delay 500
      LeftClick
      Delay 500
      LeftClick
      call FDone
    end
  end
end//procedure FChkAction

procedure FDone
  Set $Crafting5 = 0
  Set $Tradeskilling5 = 0
  Set $repeat5 = 1
  Delay 2 sec
  Compute $MadeCount = $MadeCount + 1
  irc Made $MadeCount
  if $MadeCount <> $MakeCount  
    Call Frepeat
  else
    Stop
  end
end

procedure FWait using Dly
  Compute $RndDly = int($Dly + Rnd(300) - 150)
  Delay $RndDly
end

/////////////////////////////////////////////////////////////
//                                                         //
//                      Objects                            //
//                                                         //
/////////////////////////////////////////////////////////////
  
// Repeat
Object Repeat
  49=0,0
End

// Power
Object Power
  246=0,0
End

// Crafting Progress
Object Progress
  147=0,0
End

Object Dura   // Test at coords 1187, 633
  191=0,0
End Object