YASSE Boxes (script)

YASSE Boxes (script)
Category	utility
Front-end	YASSE
Author	Hithrael and Marmic

Based on Marmic's disarm script and adapted with his permission. Version 1.1.

Note: This will dump anything in boxes other than coins and gems.

Echo Based on Marmic's disarm script
Echo Additional usage for YASSE provided by Kraggur
pause 1
echo For armor removing functionality use the armor script.
pause 2


Set predefined on

setvariable boxcont backpack
setvariable dismantle focus
setvariable lockpickcont backpack
setvariable gem [purple pouch]
setvariable gem2 [purple pouch]
setvariable dismantlewords You close your eyes
setvariable disarmdifficulty careful
setvariable pickdifficulty careful

callwith armor off

lockpickring:
match lockworn Your lockpick ring is worn on your body.
match getlock %lockpickcont
match getlock2 You can't seem to find anything that looks like that.
put inv search lockpick
matchwait

getlock:
pause
put get lockpick ring from my %lockpickcont
pause

getlockwear:
match getlockpause You can't wear any more items like that.
match lockworn You attach a lockpick ring to your belt.
put wear my lockpick ring
matchwait

getlock2:
echo Ending script, no lockpick ring.
goto end2

getlockpause:
echo Can't wear a lockpick ring, you're wearing too many belt items.
echo Which item would you like to remove?
put inv belt
getline
pause 2
put rem my %l
pause 2
put stow my %l
goto getlockwear

lockworn:
echo Lockpick ring located.



getbox:
match setbox and see a
match setbox and see an
match nobox nothing in there like that
put rummage /b %boxcont
matchwait

setbox:
getwordfrom "." -1
setvariable box %w

getbox:
pause
match trap_ident You get
match trap_ident You are already holding that.
match nobox nothing in there like that
put get my %box
matchwait


trap_ident:
pause 1
match trap_ident_f fails to reveal to you what type of trap protects it.
match trap_ident_s You think this trap is precisely at your skill level.
match trap_ident_s good shot at disarming
match trap_ident_s You have some chance of being
match trap_ident_s The odds are against you,
match trap_ident_s with only minor troubles.
match trap_ident_s long with your skills.
match trap_ident_s You have an amazingly minimal
match trap_ident_s Prayer would be a good start
match trap_ident_s simple matter for you to disarm.
match trap_ident_s which you can take down any time.
match trap_ident_s would be a longshot.
match trap_ident_s An aged grandmother could open this in her sleep.
match trap_ident_s you could do it blindfolded!
match trap_ident_s An aged grandmother could

#****************************************************
#******** add additional success lines above ********
#****************************************************

match lock_ident Roundtime: 3 sec.
match trap_disarm Somebody has already located
put disarm my %box iden
matchwait

trap_ident_s:
pause 1
pause 1
goto trap_disarm

trap_ident_f:
pause 1
pause 1
goto trap_ident

trap_disarm:
pause 1
match trap_disarm_f unable to make any progress.
match trap_disarm_s After wiggling the milky-white tube
match trap_disarm_s Working slowly, you carefully
match trap_disarm_s Carefully, you pry the bronze face away
match trap_disarm_s Careful not to jostle
match trap_disarm_s With the precision and grace 
match trap_disarm_s With sweat forming on your brow,
match trap_disarm_s You cautiously pry
match trap_disarm_s With precise control,
match trap_disarm_s With a smirk you wedge
match trap_disarm_s stopping it up and disarming the trap.
match trap_disarm_s You manage to work the contact fibers away
match trap_disarm_s Working with extreme care,
match trap_disarm_s Following a few moments of effort,
match trap_disarm_s bend it away from any
match trap_disarm_s After carefully pushing at the sharp blade
match trap_disarm_s able to pry the crusty scarab off

#****************************************************
#******** add additional success lines above ********
#****************************************************

put disarm my %box %disarmdifficulty
matchwait

trap_disarm_s:
pause 1
pause 1
goto trap_morecheck

trap_disarm_f:
pause 1
pause 1
goto trap_disarm

trap_morecheck:
match disarmed Roundtime: 3 sec.
match notdisarmed Roundtime: 4 sec.
match notdisarmed Roundtime: 5 sec.
match notdisarmed Roundtime: 6 sec.
match notdisarmed Roundtime: 7 sec.
match notdisarmed Roundtime: 8 sec.
match notdisarmed Roundtime: 9 sec.
match notdisarmed Roundtime: 10 sec.
match notdisarmed Roundtime: 11 sec.
match notdisarmed Roundtime: 12 sec.
match notdisarmed Roundtime: 13 sec.
match notdisarmed Roundtime: 14 sec.
match notdisarmed Roundtime: 15 sec.
put disarm my %box iden
matchwait

disarmed:
pause 1
pause 1
goto lock_ident

notdisarmed:
pause 1
pause 1
goto trap_ident

no_lockpick:
pause 1
echo Unable to locate your lockpick ring, aborting script
goto end2

lock_ident:
pause 1
match notdisarmed making any chance of picking it unlikely.
match lock_ident_f fails to teach you anything about the lock guarding it.
match lock_ident_s You have some chance
match lock_ident_s The lock has the edge on you,
match lock_ident_s The odds are against you,
match lock_ident_s You think this lock is precisely at your skill level.
match lock_ident_s with only minor troubles.
match lock_ident_s should not take long with your skills.
match lock_ident_s You really don't have any chance
match lock_ident_s You have an amazingly minimal
match lock_ident_s The lock is a trivially constructed
match lock_ident_s simple matter for you to unlock.
match lock_ident_s Prayer would be a good start
match lock_ident_s would be a longshot.
match lock_ident_s This lock is a laughable matter,
match lock_ident_s An aged grandmother could

#****************************************************
#******** add additional success lines above ********
#****************************************************

match no_lockpick Find a more appropriate tool and try again!
match lock_pick Somebody has already inspected
put pick my %box iden
matchwait

lock_ident_s:
pause 1
pause 1
goto lock_pick

lock_ident_f:
pause 1
pause 1
goto lock_ident

lock_pick:
pause 1
match get_lockpick Find a more appropriate tool and try again!
match lock_pick_s With a soft click,
match lock_pick_f You are unable to make any progress
put pick my %box %pickdifficulty
matchwait

lock_pick_s:
pause 1
pause 1
goto lock_morecheck

lock_pick_f:
pause 1
pause 1
goto lock_pick

lock_morecheck:
pause 1
match open You open the 
match lock_ident It is locked.
put open my %box
matchwait

open:
gemcheck:
pause
match fill looking for gems and see
match coins nothing in there like that
put rummage /g my %box
matchwait

coins:
pause
match dismantleit nothing in there like that
match getcoins2 coin, some
match getcoins2 coins, some
match getcoins2 coin, a
match getcoins2 coins, a
match getcoins and see some
match getcoins and see a
put rummage /c coin my %box
matchwait

getcoins:
pause
match getcoins You pick up
match coins What were you referring to? 
put get coin from my %box
goto coins

getcoins2:
pause
put get coin from my %box
goto getcoins


fill:
match fill_s You take
match fill_s You fill
match fill_s You open your
match fill_full You can't fit anything else
match fill_full You'll need to tie it up before
match fill_s There aren't any gems
put fill my %gem with my %box
matchwait

fill_full:
put rem my %gem
waitfor You remove
put tie my %gem
waitfor You tie
put stow my pouch
waitfor You put
match fill_full_new You get
match end What were you referring to?
put get %gem2 from my boot
matchwait

fill_full_new:
pause 1
pause 1
put open my %gem2
put wear my %gem2
waitfor You attach
goto fill

fill_s:
goto coins


dismantleit:
pause 1
match doubledismantle 15 seconds
match end Roundtime:
put disman my %box %dismantle
matchwait

doubledismantle:
boxmessage *** DUMPING BOX ***
pause
put disman my %box %dismantle
echo Extra items inside, dumping them.
goto end

notdisarmed:
pause 1
pause 1
goto trap_ident

out:
echo ***************************************
echo ********** OUT OF LOCKPICKS! **********
echo ***************************************
goto end2

nobox:
echo No boxes in your %boxcont.
goto end2

end:
pause 1
pause 1
goto getbox


end2:
pause
put rem my lock ring
pause
put put my lock ring in my %lockpickcont
pause
callwith armor on