YASSE Hitbasic (script)

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

Description

This is part of the YASSE Combat Package.

Updates

Last Updated:

• 03/14/2011: Revision 1.1b, fixed crossbow functionality which caused skinning bug
• 03/14/2011: Revision 1.1, added basic thrown support. Ranged functionality exists, but poorly.
• 11/20/2010: Revision 1.0

Script

#Add more messaging
#Search for the above language to find points in the script were more language is needed.

#Global settings 
set predefined on
put glance

setglobalvariable yetarrange [no]
setglobalvariable knife [tooth knife]
setglobalvariable arrangenumber [0]
setglobalvariable skinningknifemessage [war belt]
setglobalvariable skinmax [2]
setglobalvariable skincheck [yes]
setglobalvariable thrownweapon [mallet]
setglobalvariable rangedweapon [crossbow]
setglobalvariable shield [shield]
setglobalvariable loadwait [10]
setglobalvariable huntingweapon [%righthanditem]

pause
boxmessage $huntingweapon$
getword -1 $huntingweapon$
boxmessage %w
setglobalvariable huntingweapon %w

#Action calls
action [There is nothing else to face!] gosub foewait2
action [At what are you trying to] gosub foewait1
action [You aren't close enough to attack] gosub foewait2
action [But you are already dodging!] put parry
action [You are already in a position to parry.] put dodge
action [To whom are you speaking?] goto end
action [What are you trying to throw?] goto thrown2

#Action calls for combat/critter death
#Add more messaging
action [lifeless mound] gosub loot
action [collapses to the ground] gosub loot
action [then grows still] gosub loot
action [grows limp and seems to deflate] gosub loot
action [before collapsing] gosub loot
action [stops all movement] gosub loot
action [body explodes into a gaseous cloud] gosub loot
action [rebellious flame dies out] gosub loot
action [and lies still] gosub loot

setup:
pause
boxmessage Enter weapon type now. \nClasses include: \n Blunt, Edged, lightedged, thrustedged, Pike, Halberd, Quarterstaff, Shortstaff, Thrown, and TM

getline
pause


goto %l

TARGETED MAGIC
tm:
call tm
goto setup

THROWN WEAPONS
thrown:
pause
put throw
waitfor roundtime

thrown2:
put get $thrownweapon$
pause
goto thrown

RANGED WEAPONS
ranged:
pause
match ranged2 already loaded
put load
matchwait $loadwait$

ranged2:
pause
put aim
waitfor You think you have your best shot possible now.
put fire
pause
goto ranged

BLUNT WEAPONS
blunt:
pause
put feint
waitfor roundtime
pause
put bash
waitfor roundtime
pause
put sweep
waitfor roundtime
pause
put draw
waitfor roundtime
pause
put swing
waitfor roundtime
pause
put dodge
waitfor roundtime
pause
goto blunt


EDGED WEAPONS
lightedged:
pause
put feint
waitfor roundtime
pause
put draw
waitfor roundtime
pause
put slice
waitfor roundtime
pause
put chop
waitfor roundtime
pause
put dodge
waitfor roundtime
pause
goto lightedged

edged:
pause
put feint
waitfor roundtime
pause
put draw
waitfor roundtime
pause
put sweep
waitfor roundtime
pause
put slice
waitfor roundtime
pause
put chop
waitfor roundtime
pause
put parry
waitfor roundtime
pause
goto edged

thrustedged:
pause
put feint
waitfor roundtime
pause
put lunge
waitfor roundtime
pause
put thrust
waitfor roundtime
pause
put jab
waitfor roundtime
pause
put slam
waitfor roundtime
pause
put parry
waitfor roundtime
pause
goto thrustedged


POLE WEAPONS

halberd:
pause
put feint
waitfor roundtime
pause
put draw
waitfor roundtime
pause
put slice
waitfor roundtime
pause
put thrust
waitfor roundtime
pause
put sweep
waitfor roundtime
pause
put chop
waitfor roundtime
pause
goto halberd

pike:
pause
put dodge
waitfor roundtime
pause
put jab
waitfor roundtime
pause
put sweep
waitfor roundtime
pause
put thrust
waitfor roundtime
pause
put lunge
waitfor roundtime
pause
goto pike


STAFF WEAPONS
quarterstaff:
pause
put feint
waitfor roundtime
pause
put draw
waitfor roundtime
pause
put swing
waitfor roundtime
pause
put thrust
waitfor roundtime
pause
put sweep
waitfor roundtime
pause
put chop
waitfor roundtime
pause
goto quarterstaff

shortstaff:
pause
put feint
waitfor roundtime
pause
put draw
waitfor roundtime
pause
put slice
waitfor roundtime
pause
put parry
waitfor roundtime
pause
put thrust
waitfor roundtime
pause
put chop
waitfor roundtime
pause
goto shortstaff

#Action Call Scripts
loot:
pause
put look
nextroom

skin:
if $skincheck$ contains not skin
	goto lootstuff
if %youalsosee contains dead 
	begin
		call skin
		pause
	end

lootstuff:
pause
call loot
pause
if %righthanditem contains empty	
	begin
	if $huntingweapon$ contains empty
		return
	pause
	if $huntingweapon$ eq crossbow
		begin
			put rem $huntingweapon$
			pause
			put rem $shield$
			return
		end
	put wield $huntingweapon$
	pause
	end
pause
return

foewait1:
pause
if %righthanditem contains empty	
	begin
	pause
	if $huntingweapon$ qe bow
		begin
		put rem $huntingweapon$
		pause
		pausetext 60 [melee range]
		return
		end
	pause
	put wield $huntingweapon$
	pause
	end
pause
pausetext 60 [melee range]
pause
return

foewait2:
waitfor melee range
pause
return