YASSE Hitbasic-Loot (script)

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

Description

This is part of the YASSE Combat Package.

Updates

Last Updated:

• 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

#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 $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

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