start:
      finditem MMF C_ , #backPackID
      if #FINDCNT > 0
      {
       set #lObjectId #findId
       for %circlei 1 8
       {
          for %spellj 1 8
          {
               event macro 17 0
               wait 10
               goSub ClickScribeLoc %circlei
               wait 8
               goSub ClickScribeLoc %spellj
               wait 4s
          }
       }
      }
      halt


;==========
; procedure ChooseEntry
; =========
; %circleNum int
; %spellNum int

sub ChooseEntry

return

;==========
; procedure ChooseEntry
; =========
; %entryNum int

sub ClickScribeLoc
    if %1 > 5
    {
     set %1 %1 - 5
     ; If our location is gt 5 subtract 5 and click the next button that many times.
     ; Then afterwards click the 5th location.
     for %i 1 %1
     {
      click 269 68
      wait 8
     }
     click 237 68 d
    }
    else
    {
        set %xVal 27
        for %i 1 %1
        {
            set %xVal %xVal + 40
        }
        click %xVal 68 d
    }
return