YASSE Hitbasic-Loot (script)

YASSE Hitbasic-Loot (script)
Category	combat
Front-end	YASSE
Author	Hithrael

Description

This is part of the YASSE Combat Package.

Syntax

Replace the various finds under ammo to pick up the appropriate ammo (under the first area under #Pick up this stuff and after the first stow area).

Updates

Last Updated:

• 03/21/2011: Revision 1.1b, added limited support for ammunition
• 03/14/2011: Revision 1.1, added additional functionality
• 11/20/2010: Revision 1.0

Script

set predefined on

#Change these to no if you do not want to collect.
setvariable boxes yes
setvariable collectables yes
setvariable gems yes
setvariable magic yes
setvariable moonie yes
setvariable ammo yes


#Containers
setvariable magiccontainer [thigh bag]
setvariable gemtiedcontainer belt
setvariable gemcontainer [black pouch]
setvariable gemtied [gem pouch]

lootit:
put loot
pause 4
put look
nextroom
pause

#Pick up this stuff
if $ammo$ eq yes
	begin
	if %youalsosee contains [leafhead bolt] gosub stowammo bolt
	end

if $moonie$ eq yes
	begin
	if %youalsosee contains [jadeite stone] gosub stowenchant stone
	if %youalsosee contains [kyanite stone] gosub stowenchant stone
	if %youalsosee contains [ju'uladan oil] gosub stowenchant oil
	end

if $magic$ eq yes
	begin
	if %youalsosee contains [hhr'lav'geluhh bark] gosub stow bark
	if %youalsosee contains [seishaka leaf] gosub stow leaf
	if %youalsosee contains [ostracon] gosub stow ostracon
	if %youalsosee contains [tattered papyrus] gosub stow papyrus
	if %youalsosee contains [smudged parchment] gosub stow parchment
	if %youalsosee contains [papyrus roll] gosub stow roll
	if %youalsosee contains [fine scroll] gosub stow scroll
	if %youalsosee contains [illuminated scroll] gosub stow scroll
	if %youalsosee contains [moldering scroll] gosub stow scroll
	if %youalsosee contains [tattered scroll] gosub stow scroll
	if %youalsosee contains [yellowed scroll] gosub stow scroll
	if %youalsosee contains [clay tablet] gosub stow tablet
	if %youalsosee contains [wax tablet] gosub stow tablet
	if %youalsosee contains [faded vellum] gosub stow vellum

if $collectables$ eq yes
	begin
	if %youalsosee contains card gosub stow card
	if %youalsosee contains dira gosub stow dira
	end

if $boxes$ eq yes
	begin
	if %youalsosee contains skippet gosub stow skippet
	if %youalsosee contains casket gosub stow casket
	if %youalsosee contains crate gosub stow crate
	if %youalsosee contains coffer gosub stow coffer
	if %youalsosee contains chest gosub stow chest
	if %youalsosee contains trunk gosub stow trunk
	if %youalsosee contains caddy gosub stow caddy
	if %youalsosee contains [ box] gosub stow box
	if %youalsosee contains strongbox gosub stow strongbox
	end

if $gems$ eq yes
	begin
	if %youalsosee contains agate gosub Stow agate
	if %youalsosee contains alexandrite gosub Stow alexandrite
	if %youalsosee contains amber gosub Stow amber
	if %youalsosee contains amethyst gosub Stow amethyst
	if %youalsosee contains andalusite gosub Stow andalusite
	if %youalsosee contains aquamarine gosub Stow aquamarine
	if %youalsosee contains beryl gosub Stow beryl
	if %youalsosee contains bloodstone gosub Stow bloodstone
	if %youalsosee contains bar gosub Stow bar
	if %youalsosee contains carnelian gosub Stow carnelian
	if %youalsosee contains chalcedony gosub Stow chalcedony
	if %youalsosee contains chrysoberyl gosub Stow chrysoberyl
	if %youalsosee contains chrysoprase gosub Stow chrysoprase
	if %youalsosee contains citrine gosub Stow citrine
	if %youalsosee contains coral gosub Stow coral
	if %youalsosee contains crystal gosub Stow crystal
	if %youalsosee contains diamond gosub Stow diamond
	if %youalsosee contains diopside gosub Stow diopside
	if %youalsosee contains emerald gosub Stow emerald
	if %youalsosee contains garnet gosub Stow garnet
	if %youalsosee contains jade gosub Stow jade
	if %youalsosee contains jasper gosub Stow jasper
	if %youalsosee contains hematite gosub Stow hematite
	if %youalsosee contains iolite gosub Stow iolite
	if %youalsosee contains ivory gosub Stow ivory
	if %youalsosee contains kunzite gosub Stow kunzite
	if %youalsosee contains lazuli gosub Stow lazuli
	if %youalsosee contains moonstone gosub Stow moonstone
	if %youalsosee contains morganite gosub Stow morganite
	if %youalsosee contains nugget gosub Stow nugget
	if %youalsosee contains onyx gosub Stow onyx
	if %youalsosee contains opal gosub Stow opal
	if %youalsosee contains pearl gosub Stow pearl
	if %youalsosee contains peridot gosub Stow peridot
	if %youalsosee contains quartz gosub Stow quartz
	if %youalsosee contains ruby gosub Stow ruby
	if %youalsosee contains sapphire gosub Stow sapphire
	if %youalsosee contains spinel gosub Stow spinel
	if %youalsosee contains star-stone gosub Stow star-stone
	if %youalsosee contains sunstone gosub Stow sunstone
	if %youalsosee contains tanzanite gosub Stow tanzanite
	if %youalsosee contains topaz gosub Stow topaz
	if %youalsosee contains tourmaline gosub Stow tourmaline
	if %youalsosee contains tsavorite gosub Stow tsavorite
	if %youalsosee contains turquoise gosub Stow turquoise
	if %youalsosee contains sunstone gosub Stow sunstone
	if %youalsosee contains zircon gosub Stow zircon
	end


exit

stow:
match checkpouch You've already got a wealth of gems in there!
match checkpouch You can't fit anything else
match return Stow what?
match stow you put
match return That can't be picked up.
put stow %w
matchwait

stowammo:
pause
match stowammo you put
match return Stow what?
match return That can't be picked up.
put stow bolt
matchwait

stowenchant:
match return Stow what?
match stowenchant2 pick up
match return That can't be picked up.
put get stone
matchwait

stowenchant2:
pause
match return Stow what?
match stowenchant you put
match return That can't be picked up.
put put stone in $magiccontainer$
matchwait

checkpouch:
if $gems$ eq yes
	begin
	gosub tiepouch
	pause
	put fill my $gemtied$ with my $gemcontainer$
	waitfor pouch
	gosub tiepouch2
	pause
	goto stow
	end

boxmessage Gem pouch is full.
exit


tiepouch:
pause
if %lefthanditem contains knife
	begin
	setvariable unsheathe yes
	put sheath $knife$
	end
pause
if %righthanditem contains knife
	put sheath $knife$
pause
put get my $gemtied$ from my $gemtiedcontainer$
waitfor pouch
if $unsheath$ contains yes
	begin	
	put wield $knife$
	pause
	put swap
	pause
	end
return

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



Return:
return