View source for YASSE Hitbasic-Loot (script)

{{Script
|cat=combat
|fe=YASSE
|auth=[[User:Hithrael|Hithrael]]
}}

==Description==
This is part of the [[YASSE Combat Package]]. 

==Syntax==
Set global variables through [[YASSE Global Variables (script)]], set the local variables in this script (at the top) and see note for those using ranged (lodging) weapons.


==Updates==
Last Updated:
*'''04/01/2011''': Revision 2.2, fixed a nasty hang when jadeite or kyanite stones were dropped.
*'''03/30/2011''': Revision 2, now uses global variables for multi-character support and ease of use, fixed bug with first gem pouch being full and not being able to fill the secondary pouch.
:: No support for treasure maps, since I haven't seen one drop yet.
:: 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).
*'''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==

<pre>
set predefined on

action [You find nothing of interest.] goto return

#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

lootit:
put loot
pause 4
put look
nextroom
pause

#Pick up this stuff

batch1:
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

batch2:
if $ammo$ eq yes
	begin
	if %youalsosee contains [quadrello] gosub stowammo bolt
	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
	end

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 stow you open
match return That can't be picked up.
put stow %w
matchwait

stowenchant:
match return stow what?
match stowenchant2 pick up
match stowenchant3 you get
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

stowenchant3:
put put stone in $magiccontainer$
goto batch2

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

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

boxmessage Second gem pouch is full, ending loot script.
exit

tiepouch:
pause
put sheath $huntingweapon$
put get my $gemtied$ from my $gemtiedcontainer$
boxmessage Waiting to get pouch from $gemtiedcontainer$
waitfor pouch
return

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

return:
return

</pre>