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