YASSE Hitbasic-Skin (script)

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

Description

This is part of the YASSE Combat Package.

Updates

Last Updated:

• 04/01/2011: Revision 2.2, prevented arrange attempts from going negative
• 03/31/2011: Revision 2.1, quashed bugs, added magic support
• 03/30/2011: Revision 2

Now uses global variables

Improved adjustments to dynamically adjust skinning based on success/failure

Faster flow

• 03/18/2011: Revision 1.1b, fixed bug with addition of crossbow support and skinning
• 03/14/2011: Revision 1.1, shouldn't hang on arrange loop.
• 11/20/2010: Revision 1.0

Script

set predefined on

skin:
counter set $arrangenumber$
if %c <= 0
	goto skinwork
	else
	counter dec


skinwork:
pause
boxmessage Attempting to arrange %c more times.
if %c <= 0 
	goto skin2
pause
for forarrange = 1 to %c
	begin 
	put arrange
	pausetext 3 roundtime
	end

skin2:
counter inc
pause
if $magichunting$ eq yes
	goto getknife
if $rangedhunting$ eq no
	put sheath $huntingweapon$
	else
	put wear $huntingweapon$

getknife:
pause
put wield my $skinknife$
waitfor $skinningknifemessage$
pause
if %lefthanditem contains $shield$
	begin
	setvariable shieldworn yes
	put wear my $shield$
	end
pause
setvariable $arrangenumber$ %c
pause

skinit:
match skinlower twists and slips
match skinlower destroying the
match skinlower unfortunate failure
match skinlower claw wildly
match skinlower that of mud
match skinlower struggle with
match skinlower worthless now
match skinlower Skin what?
match skinlower sheer incompetence
match skinlower just barely
match skinhigher impressive skill and grace
match skinhigher working deftly
match skinhigher nearly flawless
match skinhigher you slice away
match skincomplete work hard
match skincomplete working hard
match skincomplete blood soaks
match skincomplete fairly well
match skincomplete oozing flesh
put skin
matchwait 5
goto skincomplete

skinlower:
if $arrangenumber$ == 0
	goto skincomplete
pause
if $arrangenumber$ > 0
	begin
		counter set $arrangenumber$
		pause
		counter dec
		pause
		goto skincomplete
	end
pause
boxmessage Something funny happening with skinlower.
goto skincomplete

skinhigher:
if $skinmax$ == $arrangenumber$
	goto skincomplete
pause
if $arrangenumber$ <= $skinmax$
	begin
		boxmessage Increasing arranges by 1.
		counter set $arrangenumber$
		pause
		counter inc
		goto skincomplete
	end
pause
boxmessage Something funny happening with skinhigher.
goto skincomplete

skincomplete:
if %c <= 0
	counter set 0
setglobalvariable arrangenumber %c
if %righthanditem contains knife
	begin
	pause
	put sheath my $skinknife$
	end
pause
if $shieldworn$ eq yes
	put rem my $shield$
exit