' "Skate ur @SS off"
' Created with QDK Lite 4.1.2
' williecogames.1hwy.com/skateurbleepoff

!include <stdverbs.lib>

define game <Skate ur @SS off>
	asl-version <410>
	start <Skate Lobby>
	game author <Wilson Trent>
	game version <0.4a>
	game copyright <copyright 2010 Wilson Trent.>
	game info <Created with QDK Lite 4.1.2>
	default fontname <AR ESSENCE>
	default fontsize <18>
	startscript {
		give <Default Deck>
		give <Music Player>
		picture <skateurassoff.jpg>
		msg <|n>
		set numeric <songnum; 1>
		playwav <song%songnum%>
		wait <Press any Key to Skate!>
	}
	command <Revert> {
		msg <You swivel your board sideways and reverse your direction. +10pts>
		inc <score; 10>
		set string <status; traveling>
		msg <Your current score:  %score%pts.>
	}
	command <Manual> {
		if ( #Status# = idle ) or ( #Status# = traveling ) then {
			set string <status; manualling>
			set string <manual direction; down>
			set numeric <manual time left; 5>
			timeron <Manual Change Tick>
			msg <Manualling Down... |n|b5|xbs...>
		} else { msg <You CANNOT manual now!>
		}
	}
	command <Up> {
		if ( #Status# = Manualling ) and ( #Manual Direction# = down ) then {
			msg <Good!|nManualling Up now...>
			set string <Manual Direction; up>
			set numeric <manual time left; 5> }
	}
	command <Down> {
		if ( #Status# = Manualling ) and ( #Manual Direction# = up ) then {
			msg <Good!|nManualling Down now...>
			set string <Manual Direction; down>
			set numeric <manual time left; 5> }
	}
	command <Land> {
		if ( #status# = manualling ) then {
			timeroff <Manual Change Tick>
			set string <status; Traveling>
			msg <Your current score:  %score%pts.> } else {
			if ( #status# = in the air ) then {
				timeroff <Come down tick>
				set string <status; traveling>
				msg <Your current score:  %score%pts.> } }
	}
	command <Kickflip> {
		if ( #status# = in the air ) then {
			msg <You kick the board sideways, flipping it.  +20pts.>
			inc <score; 20> } else {
			msg <You fall down!|nRecovering...>
			timeron <Recover Change Tick>
			set numeric <recover time is left; 3> }
	}
	command <Ollie> {
		msg <You launch yourself and the board into the air.>
		set string <status; in the air>
		set numeric <air time left; 5>
		timeron <Come down tick>
	}
	command <Tutorial> if ( #status# = traveling ) or ( #status# = idle ) then displaytext <intro>
	command <right> {
		if ( #status# = in the air ) then {
			msg <You turn to the right.  Keep turning!!>
			inc <degrees turned; 90>
			select case <%degrees turned%> {
				case <180> {
					msg <180 spin.  +10pts.>
					inc <score; 10>}
				case <360> {
					msg <360 spin!  +25pts>
					inc <score; 25>}
				case <540> {
					msg <540 spin!!!  +50pts!>
					inc <score; 50>}
				case <720> {
					msg <|cg720 spin!!!  |cb+100pts!!>
					inc <score; 100>}
				} } else msg <Nothing doing.>
	}
	command <left>  {
		if ( #status# = in the air ) then {
			msg <You turn to the left.  Keep turning!!>
			dec <degrees turned; 90>
			select case <%degrees turned%> {
				case <-180> {
					msg <180 spin.  +10pts.>
					inc <score; 10>}
				case <-360> {
					msg <360 spin!  +25pts>
					inc <score; 25>}
				case <-540> {
					msg <540 spin!!!  +50pts!>
					inc <score; 50>}
				case <-720> {
					msg <|cg720 spin!!!  |cb+100pts!!>
					inc <score; 100>}
				} } else msg <Nothing doing.>
	}
	command <change song> {
		msg <You change the song.>
		if ( %songnum% = 3 ) then {
			set numeric <songnum; 1>
		} else {
		inc <songnum>
		}
		playwav <>
		playwav <song%songnum%>
		select case <%songnum%> {
			case <1> {
				msg <Now Playing:  With You by Linkin Park...>}
			case <2> {
				msg <Now Playing:  I'm Awesome by Spose...>}
			case <3> {
				msg <Now Playing:  Arterial Black by Drist...>}
		}
	}
	command <stop song> {
		msg <You stop the music.  Type "Resume Song" to Play it.>
		playwav <>
	}
	command <resume song> {
		msg <You resume the music.  Type "Stop Song" to Stop it.>
		playwav <song%songnum%>
	}
	command <Impossible> {
		if ( #status# = in the air ) then {
			msg <You catch the tail of the board with your foot, flipping it vertically.  +50pts.>
			inc <score; 50> } else {
			msg <You fall down!|nRecovering...>
			timeron <Recover Change Tick>
			set numeric <recover time is left; 3> }
	}	
	command <reset score> {
		msg <You reset your score.  Your rank goes down when you do this.>
		set numeric <score; 0>
		inc <rank; 20>
	}

	verb <Grind; grind on> msg <You can't Grind that.>
	verb <Ollie over; ollie on> msg <You can't Ollie over that.>
	verb <Skate up; travel up> 
	verb <equip; skate with> msg <You can't equip that.>
	define variable <status>
		type string
		value <Idle>
		display <Status:  !>
	end define
	define variable <Score>
		type numeric
		value <0>
		display <Score:  !pt*s*>
	end define
	define variable <Skateboard deck>
		type string
		value <Default>
		display <Deck:  !>
	end define
	define variable <Credits>
		type numeric
		value <0>
		display nozero <Credits:  !>
	end define
end define

define options
	debug on
	panes on
	abbreviations on
end define

define room <Half Pipe Central>
	prefix <the>
	out <Skate Lobby>

	define object <Half Pipe 1>
		displaytype <Object>
		article <it>
		gender <it>
	end define

	define object <Rail 3>
		alias <Rail>
		displaytype <Object>
		article <it>
		gender <it>
	end define

	define object <Rail 2>
		alias <Rail>
		displaytype <Object>
		article <it>
		gender <it>
	end define

	define object <Stairs 1>
		alias <Stairs>
		displaytype <Object>
		article <it>
		gender <it>
	end define

	define object <Stair Rail>
		displaytype <Object>
		article <it>
		gender <it>
	end define

	define object <Ramp 1>
		alias <Ramp>
		displaytype <Object>
		article <it>
		gender <it>
	end define

	define object <Ramp 2>
		alias <Ramp>
		displaytype <Object>
		article <it>
		gender <it>
	end define

	define object <Half Pipe 2>
		displaytype <Object>
		article <it>
		gender <it>
	end define

	define object <Side Walk>
		alias <Walk>
		prefix <Side>
		displaytype <Object>
		article <it>
		gender <it>
	end define

end define

define room <Training 1>
	alias <Level 1>
	prefix <Training Area>
	look <|s00Here there are quarter pipes and a rail to grind.  Do you know how to play?  If not then type "Tutorial" and hit ENTER.  Skate on!|s00>
	out <Skate Lobby>

	define object <Quarter Pipe>
		displaytype <Object>
		article <it>
		gender <it>
		action <Skate up> {
			msg <You gain speed and skate up the quarter pipe.  You are in the air.>
			set string <status; in the air>
			set numeric <air time left; 5>
			timeron <Come down tick>
		}
	end define

	define object <Rail 1>
		alias <Rail>
		displaytype <Object>
		article <it>
		gender <it>
		action <Grind> {
			if ( #status# = in the air ) then {
				msg <You grind the rail.>
				timeroff <Come down tick>
				set numeric <air time left; 5>
				set numeric <grind time left; 5>
				timeron <grind tick> } else {
				msg <You Fall Down!>
				set numeric <recover time is left; 3>
				timeron <Recover Change Tick> }
		}
	end define

end define

define room <Skate Shop>
	prefix <the>
	out <Skate Lobby>

	define object <Default Deck>
		look <It's a standard deck with a solid Blue color.  It's in good condition.>
		displaytype <Object>
		article <it>
		gender <it>
		drop nowhere <YOU CANNOT DROP YOUR SKATEBOARD!>
	end define

	define object <Graybone Deck>
		look <It's got a skeleton skating against a dark grey background.>
		take
		displaytype <Object>
		article <it>
		gender <it>
		action <equip> {
			msg <You are now skating with the GrayBone Deck.>
			set string <skateboard deck; GrayBone>
		}
	end define

	define object <Capulos Deck>
		look <It's a deck that displays many assorted colorful pills and tablets.>
		take
		displaytype <Object>
		article <it>
		gender <it>
		action <equip> {
			msg <You are now skating with the Capulos Deck.>
			set string <skateboard deck; Capulos>
		}
	end define

	define object <Birdhouse Deck>
		look <It's a picture of a birdhouse that's been vandalized with graffiti.>
		take
		displaytype <Object>
		article <it>
		gender <it>
		action <equip> {
			msg <You are now skating with the Birdhouse Deck.>
			set string <skateboard deck; Birdhouse>
		}
	end define

	define object <Darkstar Deck>
		look <It's a dark deck with a black knight's helm emblemised on it.>
		displaytype <Object>
		article <it>
		gender <it>
		properties <equip>
		action <equip> {
			msg <You are now skating with the Darkstar Deck.>
			set string <skateboard deck; Darkstar>
		}
	end define

	define object <Mana Palation Deck>
		displaytype <Object>
		article <it>
		gender <it>
		invisible
	end define

	define object <Happy Trails Deck>
		displaytype <Object>
		article <it>
		gender <it>
		invisible
	end define

	define object <March of Pigs Deck>
		look <It's got a cartoon pig with a marching band uniform on.  It's playing the trumpet.>
		take
		displaytype <Object>
		article <it>
		gender <it>
		action <equip> {
			msg <You are now skating with the March of Pigs Deck.>
			set string <skateboard deck; March of Pigs>
		}
	end define

	define object <Skate Shop Clerk>
		alias <Clerk>
		look <This guy has dreadlocks and a goatee.  He's manning the counter.  He has a sociable personality.>
		speak <"Hey, kid.  How you doing?  If you have Credits you can buy boards and unlock more areas to skate in.">
		prefix <Skate Shop>
		displaytype <Character>
		article <him>
		gender <he>
	end define

	define object <Sonata Burst Deck>
		displaytype <Object>
		article <it>
		gender <it>
		invisible
	end define

	define object <Element Deck>
		displaytype <Object>
		article <it>
		gender <it>
		invisible
	end define

	define object <Sonata Classic Deck>
		displaytype <Object>
		article <it>
		gender <it>
		invisible
	end define

	define object <Amplitude Greatness Deck>
		displaytype <Object>
		article <it>
		gender <it>
		invisible
	end define

end define

define room <Skate Lobby>
	alias <Lobby>
	prefix <the Skate>
	look <|s14This is the Area that links to all the other skating zones.  You can also access the Skate Shop from here.  Just type "Go to " and then the area name to go there!  To come back to this lobby just type "go out".|s00>
	indescription <This is:>
	out <Skate Shop>
	place <Skate Shop>
	place locked <Half Pipe Central; You have yet to unlock this Skate Zone.>
	place <Training 1>
	
	define object <Music Player>
		look <It's your Music Player.  It was rather expensive.  You can "Change Song", "Stop song", and "Resume Song".>
		displaytype <Object>
		article <it>
		gender <it>
	end define
end define

define timer <Manual Change Tick>
	interval <1>
	action {
		dec <manual time left; 1>
		inc <score; 10>
		msg <|b%Manual Time Left%|xbs... +10pts>
		timeron <Manual Change Tick>
		if ( %manual time left% <= 0 ) then {
			timeroff <Manual Change Tick>
			msg <You Fall!>
			set string <status; Recovering>
			set numeric <recover time is left; 3>
			timeron <Recover Change Tick>
			set numeric <manual time left; 5> }
	}
	disabled
end define

define timer <Recover Change Tick>
	interval <1>
	action {
		dec <recover time is left>
		msg <|b%recover time is left%|xbs>
		timeron <Recover Change Tick>
		if ( %recover time is left% <= 0 ) then {
			timeroff <Recover Change Tick>
			msg <You Get Back Up.  -100pts>
			dec <score; 100>
			set string <status; Idle>
			set <recover time is left; 3> }
	}
	disabled
end define

define timer <Come down tick>
	interval <1>
	action {
		dec <air time left>
		msg <|b%air time left%|xbs left in the air.>
		timeron <Come down tick>
		if ( %air time left% <= 0 ) then {
			timeroff <Come down tick>
			set numeric <degrees turned; 0>
			msg <You land.  Your current score:  %score%pts>
			set string <status; Traveling> }
	}
	disabled
end define

define timer <grind tick>
	interval <1>
	action {
		dec <grind time left>
		msg <|b%grind time left%|xbs left to grind.  +10pts.>
		inc <score; 10>
		timeron <grind tick>
		if ( %grind time left% <= 0 ) then {
			msg <Land it!!>
			set numeric <air time left; 3>
			set string <status; in the air>
			timeron <Come down tick>
			timeroff <grind tick> }
	}
	disabled
end define

define menu <Skater &Menu>
	Leave this area and go to the &Lobby: go to Skate Lobby
	-
	&Change Song: change song
	&Reset Score: reset score
	-
	&About this Game: about
	Show the &Tutorial: tutorial
	-
	&Quit the Game: quit
end define

define text <intro>
Here's how to play:|s16  Type "manual" to start manualling on the ground.  When you manual down, type "UP" to continue your manual.  Same with "Down".  When you're done manualling, type "Land" to land it safely.  If you don't land safely, you will fall and wait to recover.  Also, you can type "ollie" and then "kickflip" or "grind rail".  If you try either of these two things when not in the air, then you'll fall.  If you type "revert" then you'll add some points to your score.  Also, you can "Skate up" a pipe and then you'll be in the air again.  If you're up in the air long enough you can type "Left" repeatedly and you will spin in the air. Make sure you do it fast enough!  In this demo version of the upcoming game, there are still special things like decks and places that you can unlock.  You have a music player that has 3 unique songs available.  Just type "Look at Music Player" to see the instructions for use.  Now that that's said, |s00Skate On!|s24
end define