;==== SOME BASIC SETUP========
; Get the ITEMID of your Runebook you will use
; Just open it and check #LOBJECTID
set %runebook FFSCMND

; Now set up the runes in your book
; Set each to the number slot in your book
; TAILOR RUNES
set %brit1 2
set %brit2 3
set %delucia 11
set %jhelom1 7
set %jhelom2 8
set %magincia 13
set %moonglow 10
set %nujelm 6
set %serps 9
set %skara 1
set %trinsic 12
set %vesper1 4
set %vesper2 5
; THE BANKS
set %bank1 14
set %bank2 15
set %bank3 16

; How much of each item do you want to
; be carrying or making etc.

set %maxgold 2200 ; How much gold to get from bank
set %mingold 400 ; How much gold before you should go bank
set %bankgold 4000 ; Bank gold at this much
set %maxkits 5    ; Max number of sewing kits
set %minkits 3 ; Min number of sewing kits
set %maxweight ( #maxweight / 10 ) * 9     ; Sets max weight just below actual
;=============================


;*******************************
;*******************************
;*******BELOW HERE SHOULDNT*****
;*********NEED EDITING**********
;*******************************

initevents

Start:
gosub interface

Itemcheck:
gosub countpack
if %banktrip > 0
{
   gosub randbank
   gosub recall %randbank
   wait 20
   gosub bankrestock
}

; =============ALL THE SUBS=============

; ====SET UP THE INTERFACE=======
sub interface
event sysmessage Hello #charname
wait 5
event sysmessage This is Mark's tailor script.
wait 10
event sysmessage Just setting everything up..
event macro 31 0
wait 10                 ; Close all gumps
event macro 8 1
wait 10                  ; Open Paperdoll
contpos 900 0
event macro 8 2
wait 10                  ; Open Status Window
contpos 890 350
event macro 8 8
wait 10                  ; Open Radar
event macro 8 8
wait 10                  ; Make bigger
contpos 890 620
event macro 8 3
wait 10                  ; Open Journal
contpos 560 620
event macro 8 7         ; Open Backpack
wait 10
contpos 300 640
event sysmessage All done.. Lets go!
return
; =====================================
; CHECK WEIGHT ETC IN BACKPACK
sub countpack
    ; RESET THE VALUES TO AVOID N/A
    set %banktrip 0
    set %numkits 0
    set %numscissors 0
    set %numcloth 0
    set %numshirts 0
    ; START THE ACTUAL CHECKS
    finditem JAG C_ , #BACKPACKID       ; Count number of scissors in pack
             if #findkind <> -1
             {
             set %numscissors #findcnt
             }
             else
             {
             set %numscissors 0
             set %banktrip %banktrip + 1
             }
    finditem CUI C_ , #BACKPACKID       ; Count number of cloth piles in pack
             if #findkind <> -1
             {
                set %numcloth #findcnt
             }
             else
             {
                 set %numcloth 0
                 set %banktrip %banktrip + 1
             }
    finditem TQL C_ , #BACKPACKID       ; Count number of shirts in pack
             if #findkind <> -1
             {
                set %numshirts #findcnt
             }
             else
             {
              set %numshirts 0
              }
    finditem HAG C_ , #BACKPACKID       ; Count number of sewing kits in pack
             if #findkind <> -1
             {
                set %numkits #findcnt
             }
             if %numkits < %minkits
             {
                 set %banktrip %banktrip + 1
             }

    if #gold < %mingold
       {
             set %banktrip %banktrip + 1
       }
    event sysmessage Bank trip : %banktrip
    gosub titleupdate
return
; =====================================
; CHANGES THE UO TITLE AND SHOWS STATS
sub titleupdate
    wait 12
    setUOTitle Tailoring Stats: Gold: #GOLD | Weight: #WEIGHT / #MAXWEIGHT | Sew Kits: %numkits | Cloth: %numcloth | Shirts: %numshirts |Scissors : %numscissors
return
; =====================================
; RESTOCK AT THE BANK IF NEEDED
sub bankrestock
    wait 30
    msg ! vendor buy bank guards !$
    wait 12
    contpos 250 250
    wait 5
    gosub banksewingkit
    gosub bankgoldcollect
return
; =====================================
; GETS THE WANTED NUMBER OF SEWING KITS FROM BANK
sub bankgoldcollect
    if #gold < %mingold
       {
       finditem POF C_JYXZIND
             if #findkind <> -1
                {
                if #findbagid <> #BACKPACKID
                   {
                   wait 12
                   set %goldamount %maxgold - #gold
                   exevent drag #findid %goldamount
                   wait 12
                   Exevent Dropc #BACKPACKID
                   wait 12
                   gosub countpack
                   if #gold = %maxgold
                   {
                   event sysmessage %maxgold gp collected..
                   }
                   else
                   {
                   event sysmessage There was a problem getting %maxgold gp.. halting
                   halt
                   }
                }
       }
return
; =====================================
; GETS THE WANTED NUMBER OF SEWING KITS FROM BANK
sub banksewingkit
    if %numkits <= %minkits
    {
     while %numkits < %maxkits
     {
          finditem HAG C_JYXZIND

          if #findkind <> -1
          {
             if #findbagid <> #BACKPACKID
             {
                wait 12
                exevent drag #findid
                wait 12
                Exevent Dropc #BACKPACKID
                wait 12
                gosub countpack
                EVENT Sysmessage Collected %numkits of %maxkits ..
             }
          }
          else
          {
               Event SysMessage Out of sewing kits.. Halting.
               Halt
          }
    }
return
; =====================================
; CHOOSES A RANDOM BANK TO RECALL TO
sub randbank
    randbank:
    set %rand #random % 4
    if %rand = 0
    {
     goto randbank
    }
    if %rand = 1
    {
       set %randbank %bank1               ; Find a number between 1-3
    }
    if %rand = 2
    {
       set %randbank %bank2
    }
    if %rand = 3
    {
       set %randbank %bank3
    }
return
; =====================================
; RECALL TO THE NEXT RUNE
sub recall
    set #lobjectid %runebook
    event macro 17 0                    ; OPENS UP THE RUNEBOOK
    wait 12
    contpos 250 250
    wait 12
    if %1 > 0 && %1 < 3                    ; CHECK IF RUNE IS 1st PAGE
       {
       click 391 445
       }
    if %1 > 2 && %1 < 5                    ; CHECK IF RUNE IS 2nd PAGE
       {
       click 426 445
       }
    if %1 > 4 && %1 < 7                    ; CHECK IF RUNE IS 3rd PAGE
       {
       click 458 445
       }
    if %1 > 6 && %1 < 9                    ; CHECK IF RUNE IS 4th PAGE
       {
       click 497 445
       }
    if %1 > 8 && %1 < 11                    ; CHECK IF RUNE IS 5th PAGE
       {
       click 561 445
       }
    if %1 > 10 && %1 < 13                    ; CHECK IF RUNE IS 6th PAGE
       {
       click 591 445
       }
    if %1 > 12 && %1 < 15                    ; CHECK IF RUNE IS 7th PAGE
       {
       click 629 445
       }
    if %1 > 14 && %1 < 17                    ; CHECK IF RUNE IS 8th PAGE
       {
       click 664 445
       }
       wait 15
       gosub oddoreven %1
return
; =====================================
; CHECK TO SEE IF ITS LEFT OR RIGHT PAGE OF RUNEBOOK
sub oddoreven
    set %even %1 % 2
    if %even > 0
          {
          click 406 408
          wait 10
          }
    else
          {
          click 567 408
          wait 10
          }
return
; =====================================
halt