YASSE Boxes (script)

YASSE Boxes (script)
Category	Utility,Survival
Front-end	YASSE
Author	Hithrael and Marmic

Description

Disarms and picks boxes. Values determined by YASSE Global Variables (script). Based on Marmic's disarm script and adapted with his permission.

Syntax

Run as .scriptname. Relies upon the YASSE Armor (script) to remove armor.

Updates

Last Updated:

• 04/12/2011: Revision 2.0

Notes

This script currently dumps anything in boxes other than coins or gems.

Script

boxmessage Based on Marmic's disarm script. \nAdditional usage for YASSE provided by Kraggur. \nFor armor removing functionality use Kraggur's armor script.

set predefined on

#Local Variables
setvariable disarmdifficulty careful
setvariable pickdifficulty careful


match armoroff You aren't wearing
put inv armor
matchwait 05

callwith armor off

armoroff:
goto lockpickstorage

lockpickstorage:
match lockworn Your $lockpick$ is worn on your body.
match getlock2 You can't seem to find anything that looks like that.
put inv search $lockpick$
matchwait 10 goto getlock

getlock:
pause
put get $lockpick$ from my $lockpickcontainer$
pause

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

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

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

lockworn:

getbox:
match setbox and see a
match setbox and see an
match nobox nothing in there like that
put rummage /b $mainpack$
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$, 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 $gemcontainer$ with my $box$
matchwait

fill_full:
gosub tiepouch
pause
put fill my $gemtied$ with my $gemcontainer$
boxmessage Waiting to fill $gemtied$ with $gemcontainer$
waitfor pouch
gosub tiepouch2
pause
goto open

tiepouch:
pause
put stow my $box$
put get my $gemtied$ from my $gemtiedcontainer$
waitfor pouch
return

tiepouch2:
put put my $gemtied$ in my $gemtiedcontainer$
waitfor you put
put get my $box$
return

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 dismantle my $box$ $dismantle$
echo Extra items inside, dumping them.
goto end

notdisarmed:
pause 1
pause 1
goto trap_ident

out:
boxmessage OUT OF LOCKPICKS
goto end2

nobox:
boxmessage No boxes in your $mainpack$.
goto end2

end:
pause 1
goto getbox


end2:
pause
put rem my $lockpick
pause
put put my $lockpick$ in my $ockpickcontainer$
pause
callwith armor on