YASSE Hitbasic-Loot (script)

This is part of the YASSE Combat Package.

Last update:

• --Hithrael 01:28, 13 November 2010 (UTC)

set predefined on

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

#Containers
setvariable magiccontainer hip pouch
setvariable gemtiedcontainer cloak
setvariable gemcontainer purple pouch
setvariable gemtied gem pouch

lootit:
put loot
pause 4
put look
nextroom
pause

#Assorted Collectables
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 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 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

if $magic$ eq yes
	begin
	if %youalsosee contains [jadeite stone] gosub stowenchant stone
	if %youalsosee contains [kyanite stone] gosub stowenchant stone
	end
exit

stow:
match checkpouch You won't be able to fit any more
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
	action [ wealth of gems] gosub tiepouch
	put fill my $gemtied$ with my $gemcontainer$
	waitfor pouch
	goto stow
	end

boxmessage Gem pouch is full.
exit


tiepouch:
put get my $gemtied$ from my $gemtiedcontainer$
waitfor pouch

put put my $gemtied$ in my $gemtiedcontainer$
waitfor you put

return



Return:
return

</ pre>