YASSE Repair (script)

YASSE Repair (script)
Category	Crafting,Forging
Front-end	YASSE
Author	Hithrael

Description

Repair item script.

Syntax

Run either as named to repair the preset item list, or as .name <item> to repair a single item. Currently works with forging tools.

• Uses the YASSE Global Variables (script), however replacing all instances of $mainpack$ with another variable or location will allow bypassing the need for the Global Variables script.

Updates

Last Updated:

• 08/23/2011: Revision 1.

Script

set predefined on

counter clear
counter inc

boxmessage Run as .repair <item> to repair a single item, leave blank to repair an entire preset list.

setvariable brush [brush]
setvariable oil [oil]

action "pristine condition" setvariable repaired yes
action "practically in mint condition" setvariable repaired yes
action "does not need repair" goto end
action "is not damaged enough to warrant repair." gosub nextitem



if_1
	begin
	counter dec
	goto start
	end


#Things to fully repair
setvariable first [hammer]
setvariable second [pickaxe]
setvariable third [shovel]
setvariable fourth [tongs]
setvariable fifth [pliers]
setvariable sixth [rod]
setvariable seventh [bellows]


start:
put glance
if %c == 0
	setvariable item %1
if %c == 1
	setvariable item $first$
if %c == 2
	setvariable item $second$
if %c == 3
	setvariable item $third$
if %c == 4
	setvariable item $fourth$
if %c == 5
	setvariable item $fifth$
if %c == 6
	setvariable item $sixth$
if %c == 7
	setvariable item $seventh$
if %c > 7
	goto end
pause
if %righthanditem excludes $item$
	begin	
	put get my $item$
	waitfor you get
	end
setvariable repaired no
put analyze my $item$
waitfor roundtime
if $repaired$ eq yes
	begin
	counter inc
	put stow $item$
	waitfor you put
	if_1
		goto end
	goto start
	end
gosub repairit	
goto start

repairit:
pause
put get $brush$ from my $mainpack$
waitfor you get
put rub $item$ with my $brush$
waitfor roundtime
put stow my $brush$
put get oil from my $mainpack$
waitfor you get
put pour oil on $item$
waitfor roundtime
put stow my $oil$
return

nextitem:
pause
put stow right
put stow left
pause
counter inc
if_1 
	goto end
goto start


end:
exit