Scripts to get boxes picked and to pick boxes

[Anebriated]

Throwing these up there because they are fairly simple and dont have a lot of variation. Not the best of scripts as Im still learning the language myself but maybe itll help someone else. The scripts work together quite well too.

getpicked - searches your person for boxes and hands them to a locksmith(defined by ;getpicked target) one at a time. Grabs coins and empties box contents into container(currently set to vest, have to manually change it to your liking). Does not get boxes from disks.

picker - accepts any box handed to you, disarms traps and picks the locks. Again have to manually set lockpick and container to store the lockpick. Does not use guild skills or try for max exp.

[Anebriated]

getpicked


#Gets all boxes picked

btype = ''

Start:
btype = 'chest'
match "cleanbox", "You remove"
match "Trunk", "Get what?"
fput ("Get my chest")
matchwait


Trunk:
btype = 'trunk'
match "cleanbox", "You remove"
match "coffer", "Get what?"
fput ("Get my trunk")
matchwait



coffer:
btype = 'coffer'
match "cleanbox", "You remove"
match "strongbox", "Get what?"
fput ("Get my coffer")
matchwait

strongbox:
btype = 'strongbox'
match "cleanbox", "You remove"
match "box", "Get what?"
fput ("Get my strongbox")
matchwait

box:
btype = 'box'
match "cleanbox", "You remove"
match "done", "Get what?"
fput ("Get my box")
matchwait

done:
fput ("say That was the last, thank you.")
respond "***ALLL DONNNEEE***"
exit

cleanbox:
fput("give #{btype} to #{script.vars[0]}")
respond "***WAITING FOR OFFER***"
waitfor(" offers you ")
fput("accept")
fput("open my #{btype}")
fput("get coins")
pause 1
waitrt?
fput("look in my #{btype}")
fput("empty my #{btype} into my vest")
pause 1
waitrt?
fput("drop #{btype}")
if btype == 'chest'
goto "Start"
elsif btype == 'trunk'
goto "Trunk"
elsif btype == 'coffer'
goto "coffer"
elsif btype == 'strongbox'
goto "strongbox"
elsif btype == 'box'
goto "box"
end

[Anebriated]

picker


#Automated box picker

Start:
respond "***WAITING FOR OFFER***"
waitfor(" offers you ")
respond "***After waitfor***"

if checkright != nil
fput "stow right";
end

if checkleft != nil
fput "stow left";
end

fput "accept";

person='';

person = matchfind "You accept ?'s offer";

respond " #{person}";


#respond " #{checkright}";
#respond " #{checkleft}";

if person != nil
boxname = checkright;
respond " #{boxname}";
goto "openBox";
end



openBox:
waitrt?
match "PLATE", "appears to be a plate over"
match "ScaleStrong", "At first glance"
match "GEM", "Examining the"
match "SCARAB", "scarab"
match "NONE", "You discover no traps"
match "NONE", "no traps"
match "TRAP1", "Examining the lock closely, you notice a small bladder filled with a strange liquid wedged between the tumblers"
match "TRAP1", "you can see that the lock would push the two rods together should the lock be tampered with."
match "TRAP1", "small tube towards the bottom of the tumbler mechanism"
match "TRAP1", "notice some spiderweb-like scratches on the lock plate which seem,"
match "TRAP1", "you spy a tiny vial placed just past the tumblers of the lock mechanism"
match "TRAP1", "you spy a small vial of fire-red liquid and a tiny hammer device which seems poised to shatter it"
match "TRAP1", "common magical/chemical detonation"
match "TRAP1", "inside the keyhole and notice the spring-loaded jaws"
match "TRAP1", "dark crystal which seems imbedded in the locking mechanism"
match "TRAP1", "appears to be the ends of springs incorporated with the hinges"
match "TRAP1", "doesn't seem to belong there. Looking closer you see a gleaming sliver"
match "TRAP1", "a small vial of liquid and a tiny hammer device"
match "TRAP1", "spring open"
match "TRAP1", "tiny hammer device"
match "TRAP1", "a tiny vial placed just past"
match "TRAP1", "spring-loaded jaws"
match "TRAP1", "too organized to be just wear and tear"
match "TRAP1", "gleaming sliver"
match "TRAP1", "you notice that the casing is coated with a rough"
match "TRAP1", "you feel around the lock and notice the inside chamber"
match "TRAP1", "dark crystal which seems"
fput "disarm right"
matchwait

GEM:
waitrt?
multifput "get lock from my toolkit", "disarm right with my lock"
match "NONE", "you are able to poke the"
match "GEM", "You still have a good enough picture of the trap"
matchwait


ScaleStrong:
waitrt?
multifput "get my lockpick from my toolkit", "pick right with my lockpick"
match "ScaleStrong", "You are not able to"
match "ScaleStrong", "You carefully try to work it"
match "ScaleStrong", "but you get a feeling"
match "ScaleStrongDisarm", "gives off an audible click as the tumblers snap open"
match "ScaleStrongDisarm", "It opens"
match "ScaleStrongDisarm", "It does not appear to be locked."
match "BROKE", "fumble about for a bit before you realize you are using a broken lockpick."
matchwait

ScaleStrongDisarm:
waitrt?
multifput "put lockpick my toolkit", "get my dagger from my toolkit","disarm right with my dagger"
match "CompleteScaleStrongDisarm", "That oughta do it"
match "ScaleStrongDisarm", "You still have a good enough picture of the trap"
matchwait

CompleteScaleStrongDisarm:
waitrt?
fput "put dagger in my toolkit"
goto "NONE"

TRAP1:

pause 1
waitrt?
match "TRAP1", "You are not able"
match "NONE", "manage to bend the weak metal of the hammer"
match "NONE", "manage to block the tiny hole next"
match "NONE", "little force applied to the springs,"
match "NONE", "to grind down parts of the lock mechanism so"
match "NONE", "twig you found lying around, you manage to pop out the two pins that hold the upper"
match "NONE", "you dab a little bit of wet mud on the white substance where the"
match "NONE", "bend the weak metal of the hammer out of striking range"
match "NONE", "small ball of cotton into the lock mechanism, surrounding and protecting "
match "NONE", "magical glyphs can be, you scrape some extra lines into the markings hoping to "
match "NONE", "sensitive metal rods out of alignment. It looks as though they cannot"
match "NONE", "grainy substance which lines the walls of the casing. After a few moments, you "
match "NONE", "carefully apply it to the end of the small tube"
match "NONE", "extra lines into the markings hoping to alter their"
match "NONE", "block the tiny hole"
match "NONE", "warp under the tremendous strain"
match "NONE", "bend the weak metal out of striking"
match "NONE", "protecting the small vial"
match "NONE", "strong acrid smell"
match "NONE", "small metal file to scrape away the rough"
match "NONE", "won't come in contact with the crystal"
fput "disarm right"
matchwait


SCARAB:
waitrt?
fput "disarm right"
match "SCARAB", "You are not able"
match "SCARAB2", "scarab free"
matchwait


SCARAB2:
waitrt?
fput "disarm scarab"
fput "tap scarab"
match "NONE", "You tap"
matchwait


PLATE:
waitrt?
fput "say this has a plate"
pause 0.5
fput "give #{person}"
goto "Start"

NONE:
waitrt?
multifput "get lockpick from my toolkit", "pick right"
match "CLICK", "It opens"
match "NONE", "You are not able"
match "NONE", "Your lockpick gets stuck"
match "CLICK", "gives off an audible click as the tumblers snap open"
match "CLICK", "It does not appear to be locked"
match "BROKE", "You broke your lockpick in the attempt"
matchwait

BROKE:
waitrt?
fput "put lock in my #{Lich.lootsack}"
goto "NONE"

CLICK:
fput "put lock in my toolkit"
pause 0.5
fput "give #{person}"
goto "Start"





# You feel like you've made a lame attempt.
#
# You carefully nudge the scarab free of its prison without disturbing the lock too much. The scarab falls from the lock and onto the ground in front of you.
#
#
# Roundtime: 26 sec.
# >
# --- SyntaxError: compile error
# picker:140: parse error, unexpected tSTRING_BEG, expecting kDO or '{' or '('
# fput "tap scarab"
# ^
# --- Lich: cannot execute picker, aborting.