' "RPG - Reading Presented Gallivant"
' Created with QDK 3.53 - UNREGISTERED VERSION

define game <RPG - Reading Presented Gallivant>
	asl-version <350>
	gametype singleplayer
	start <start>
	game author <Christopher Ames>
	game version <0.1>
	game copyright <© 2005>
	game info <Created with QDK 3.53 - UNREGISTERED EVALUATION VERSION.>
	afterturn {
		for each object in <inventory> if property <#quest.thing#; character> then do <level up check>
		if property <#quest.currentroom#; wilderness> or property <#quest.currentroom#; dungeon> then {
			for each object in <#quest.currentroom#> if property <#quest.thing#; character> then do <mp recovery>
		}
		set string <tempcom; $left(#quest.command#;4)$>
		if not ( #tempcom# = view ) and not ( #tempcom# = info ) and not ( #tempcom# = help ) and not ( #tempcom# = time ) then {
			do <time calculation>
			do <food and rest>
			do <misc>
			if ( #quest.currentroom# <> battle room ) then {
			for each object in <#quest.currentroom#> {
				if property <#quest.thing#; character> then {
					set string <char; #quest.thing#>
					do <end-turn status effects>
				}
			}
	 		}
	}
	command <cheat gold> inc <gold; 1000>
	command <use #@item# on #@target#> if ( #quest.currentroom# = battle room ) then msg <You must fight to do that now.> else {if ( #(target):tactic# = independent ) then msg <#(target):name# refuses to use items or accept aid from others.> else do <use an item>}
	command <help> helpdisplaytext <help>
	command <time; day; weather> do <time display>
	command <read #@thing#> if property <#thing#; readable> then doaction <#thing#; read> else msg <You can't read that.>
	command <pray> if property <#quest.currentroom#; temple> then do <pray> else msg <You can only pray in a temple.>
	command <equip #@item# on #@target#> if property <#item#; wearable> then {
		if property <#target#; character> then do <equip something> else msg <You can only equip things on characters!>
	}
	else msg <You can't equip #item#.>
	command <unequip #temp# from #@target#> if ( #temp# = weapon ) or ( #temp# = body armour ) or ( #temp# = helm ) or ( #temp# = shield ) or ( #temp# = gloves ) or ( #temp# = accessory ) then do <unequip something> else msg <You aren't wearing that.|n[You must unequip body armour, shield, helm, gloves or weapon.]>
	command <save> msg <You can't save here.|n[You can only save your game by talking to someone who can record your journey, usually a priest.]>
	command <eat #@item#> if property <#item#; edible> then doaction <#item#; eat> else msg <You can't eat that.>
	command <wait; z> {
		if ( #quest.currentroom# <> battle room ) then {
			msg <The party passes time for an extra hour.>
			inc <hour; 1>
			inc <foodtimer; 60>
			inc <sleeptimer; 60>
		}
		else msg <Now is not the time to wait!>
	}
	command <view party> {
		helpmsg <|b#char1:name#|xb|n#char1:name# is a #char1:gender# #char1:race# #char1:class#.>
		set string <char; char1>
		do <get status string>
		if ( #status_string# <>  ) then helpmsg <#status_string#>
		helpmsg <LEVEL: #char1:level#|nHEALTH: #char1:health# / #char1:max_health#|nMAGIC: #char1:magic# / #char1:max_magic#|n|b#char2:name#|xb|n#char2:name# is a #char2:gender# #char2:race# #char2:class#.>
		set string <char; char2>
		do <get status string>
		if ( #status_string# <>  ) then helpmsg <#status_string#>
		helpmsg <LEVEL: #char2:level#|nHEALTH: #char2:health# / #char2:max_health#|nMAGIC: #char2:magic# / #char2:max_magic#|n|b#char3:name#|xb|n#char3:name# is a #char3:gender# #char3:race# #char3:class#.>
		set string <char; char3>
		do <get status string>
		if ( #status_string# <>  ) then helpmsg <#status_string#>
		helpmsg <LEVEL: #char3:level#|nHEALTH: #char3:health# / #char3:max_health#|nMAGIC: #char3:magic# / #char3:max_magic#|n|b#char4:name#|xb|n#char4:name# is a #char4:gender# #char4:race# #char4:class#.>
		set string <char; char4>
		do <get status string>
		if ( #status_string# <>  ) then helpmsg <#status_string#>
		helpmsg <LEVEL: #char4:level#|nHEALTH: #char4:health# / #char4:max_health#|nMAGIC: #char4:magic# / #char4:max_magic#>
	}
	command <view #@char#> if property <#char#; character> then do <view stats> else {if property <#char#; monster> then doaction <#char#; view> else msg <You can't view that.|n[You may only view characters monsters or the party.]>}
	command <camp> if ( #quest.currentroom# = battle room ) then msg <Now is hardly the time to set up camp!> else {if ( %sleeptimer% > 1000 ) then do <camp> else msg <You aren't tired yet.>}
	command <info #ee#> do <info>
	command <#@char# cast #spell# on #@target#> if property <#char#; character> then {
		if property <#char#; spell_#spell#> then {
			if property <#target#; character> then {
				flag on <gottarget>
				do <non-battle casting>
			}
			else msg <You can only cast spells on characters outside of battle.>
		}
		else msg <#@char# doesn't know that spell.>
	}
	else msg <Only character members can cast spells!>
	command <#@char# cast #spell#> if property <#char#; character> then {
		if property <#char#; spell_#spell#> then do <non-battle casting> else msg <#@char# doesn't know that spell.>
	}
	else msg <Only character members can cast spells!>
	error <badcommand; That is not a valid command.>
	error <badthing; You can't see that here.>
	error <itemunwanted; #quest.error.gender# politely refuses your offer.>
	error <defaultuse; You can't use that now.>
	error <cantdrop; That far item is too important to drop.>
	error <badexamine; That is not a valid command.>
	error <badgo; That is not a valid command.>
	error <baduse; That is not a valid command.>
	error <baditem; You can't see that here.>
	error <baddrop; You don't have that.>
	error <badpronoun; That is not a valid command.>
	error <defaultout; You can't go out from here.>
	error <defaultspeak; You can only talk to characters.>
	define variable <gold>
		type numeric
		value <100>
		display nozero <Gold: !>
	end define
	define variable <food ration>
		type numeric
		value <0>
		display nozero <! food ration*s*.>
		onchange {
			if ( %food ration% = 0 ) then hide <food ration>
			if ( %food ration% > 0 ) then {
				show <food ration>
				give <food ration>
			}
			if ( %food ration% > 20 ) then {
				msg <You can only carry 20 of a restorative item. >
				set numeric <food ration; 20>
			}
		}
	end define
	define variable <potion>
		type numeric
		value <0>
		display nozero <! potion*s*.>
		onchange {
			if ( %potion% = 0 ) then hide <potion>
			if ( %potion% > 0 ) then {
				show <potion>
				give <potion>
			}
			if ( %potion% > 20 ) then {
				msg <You can only carry 20 of an item. >
				set numeric <potion; 20>
			}
		}
	end define
	define variable <mid potion>
		type numeric
		value <0>
		display nozero <! mid potion*s*.>
		onchange {
			if ( %mid potion% = 0 ) then hide <mid potion>
			if ( %mid potion% > 0 ) then {
				show <mid potion>
				give <mid potion>
			}
		}
	end define
	define variable <high potion>
		type numeric
		value <0>
		display nozero <! high potion*s*.>
		onchange {
			if ( %high potion% = 0 ) then hide <high potion>
			if ( %high potion% > 0 ) then {
				show <high potion>
				give <high potion>
			}
		}
	end define
	define variable <ether>
		type numeric
		value <0>
		display nozero <! ether*s*.>
		onchange {
			if ( %ether% = 0 ) then hide <ether>
			if ( %ether% > 0 ) then {
				show <ether>
				give <ether>
			}
		}
	end define
	define variable <mid ether>
		type numeric
		value <0>
		display nozero <! mid ether*s*.>
		onchange {
			if ( %mid ether% = 0 ) then hide <mid ether>
			if ( %mid ether% > 0 ) then {
				show <mid ether>
				give <mid ether>
			}
		}
	end define
	define variable <high ether>
		type numeric
		value <0>
		display nozero <! high ether*s*.>
		onchange {
			if ( %high ether% = 0 ) then hide <high ether>
			if ( %high ether% > 0 ) then {
				show <high ether>
				give <high ether>
			}
		}
	end define
	define variable <phoenix down>
		type numeric
		value <0>
		display nozero <! phoenix down*s*.>
		onchange {
			if ( %phoenix down% = 0 ) then hide <phoenix down>
			if ( %phoenix down% > 0 ) then {
				show <phoenix down>
				give <phoenix down>
			}
		}
	end define
	define variable <tent>
		type numeric
		value <0>
		display nozero <! tent*s*.>
		onchange {
			if ( %tent% = 0 ) then hide <tent>
			if ( %tent% > 0 ) then {
				show <tent>
				give <tent>
			}
		}
	end define
	define variable <antidote>
		type numeric
		value <0>
		display nozero <! antidote*s*.>
		onchange {
			if ( %antidote% = 0 ) then hide <antidote>
			if ( %antidote% > 0 ) then {
				show <antidote>
				give <antidote>
			}
		}
	end define
	define variable <fresh fish>
		type numeric
		value <0>
		display nozero <! fresh fish*es*.>
		onchange {
			if ( %fresh fish% = 0 ) then hide <fresh fish>
			if ( %fresh fish% > 0 ) then {
				show <fresh fish>
				give <fresh fish>
			}
		}
	end define
	define variable <burn cream>
		type numeric
		value <0>
		display nozero <! burn cream*s*.>
		onchange {
			if ( %burn cream% = 0 ) then hide <burn cream>
			if ( %burn cream% > 0 ) then {
				show <burn cream>
				give <burn cream>
			}
		}
	end define
	define variable <pixie dust>
		type numeric
		value <0>
		display nozero <! pixie dust*s*.>
		onchange {
			if ( %pixie dust% = 0 ) then hide <pixie dust>
			if ( %pixie dust% > 0 ) then {
				show <pixie dust>
				give <pixie dust>
			}
		}
	end define
	define variable <eye drop>
		type numeric
		value <0>
		display nozero <! eye drop*s*.>
		onchange {
			if ( %eye drop% = 0 ) then hide <eye drop>
			if ( %eye drop% > 0 ) then {
				show <eye drop>
				give <eye drop>
			}
		}
	end define
	define variable <shock absorber>
		type numeric
		value <0>
		display nozero <! shock absorber*s*.>
		onchange {
			if ( %shock absorber% = 0 ) then hide <shock absorber>
			if ( %shock absorber% > 0 ) then {
				show <shock absorber>
				give <shock absorber>
			}
		}
	end define
	define variable <blanket>
		type numeric
		value <0>
		display nozero <! blanket*s*.>
		onchange {
			if ( %blanket% = 0 ) then hide <blanket>
			if ( %blanket% > 0 ) then {
				show <blanket>
				give <blanket>
			}
		}
	end define
	define variable <magic cymbol>
		type numeric
		value <0>
		display nozero <! magic cymbol*s*.>
		onchange {
			if ( %magic cymbol% = 0 ) then hide <magic cymbol>
			if ( %magic cymbol% > 0 ) then {
				show <magic cymbol>
				give <magic cymbol>
			}
		}
	end define
	define variable <holy relic>
		type numeric
		value <0>
		display nozero <! holy relic*s*.>
		onchange {
			if ( %holy relic% = 0 ) then hide <holy relic>
			if ( %holy relic% > 0 ) then {
				show <holy relic>
				give <holy relic>
			}
		}
	end define
	define variable <full restore>
		type numeric
		value <0>
		display nozero <! full restore*s*.>
		onchange {
			if ( %full restore% = 0 ) then hide <full restore>
			if ( %full restore% > 0 ) then {
				show <full restore>
				give <full restore>
			}
		}
	end define
	define variable <equaliser>
		type numeric
		value <0>
		display nozero <! equaliser*s*.>
		onchange {
			if ( %equaliser% = 0 ) then hide <equaliser>
			if ( %equaliser% > 0 ) then {
				show <equaliser>
				give <equaliser>
			}
		}
	end define
	define variable <elixer>
		type numeric
		value <0>
		display nozero <! elixer*s*.>
		onchange {
			if ( %elixer% = 0 ) then hide <elixer>
			if ( %elixer% > 0 ) then {
				show <elixer>
				give <elixer>
			}
		}
	end define
end define

define synonyms
end define

define room <character storage>

	define object <char1>
		alias <char1>
		look <This is one of your party members.|n[Use the VIEW and INFO commands for more detail]>
		take msg <#char1:name# is already travelling with the party.>
		examine <This is one of your party members.|n[Use the VIEW and INFO commands for more detail]>
		displaytype <party member>
		article <it>
		gender <it>
		invisible
		drop nowhere <It would be safer for the party to stay together.>
		properties <xp=0; level=1; health=0; max_health=0; magic=0; max_magic=0; class=none; race=none; gender=none; tactic=normal; weapon=none; armour_body=none; armour_shield=none; armour_gloves=none; armour_helm=none; armour_accessory=none; base_strength=0; base_agility=0; base_intelligence=0; base_spirit=0; base_wisdom=0; base_evasion=0; base_defence=0; base_magic_defence=0; base_speed=0; temp_strength=0; temp_agility=0; temp_intelligence=0; temp_spirit=0; temp_wisdom=0; temp_evasion=0; temp_defence=0; temp_magic_defence=0; temp_speed=0; strength=0; agility=0; intelligence=0; spirit=0; wisdom=0; evasion=0; defence=0; magic_defence=0; speed=0; skill_sword=1; skill_knife=1; skill_axe=1; skill_spear=1; skill_rod=1; skill_bow=1; skill_earthquake=1; skill_freeze=1; skill_thunder=1; skill_flame=1; skill_noxious=1; skill_tornado=1; skill_abyss=1; skill_ultima=1; skill_heal=1; skill_angel's kiss=1; skill_restore=1; skill_teleport=1; skill_avoidance=1; skill_revive=1; skill_mystic aura=1; skill_divine blessing=1; skill_haste=1; skill_berserk=1; skill_guard=1; skill_shell=1; skill_focus=1; skill_blur=1; skill_prayer=1; skill_sharpen=1; skill_drowsiness=1; skill_weaken=1; skill_guard-breaker=1; skill_stupidity=1; skill_silencer=1; skill_confuse=1; skill_blinding=1; skill_deceleration=1; name=none; character; misc_okay>
	end define

	define object <char2>
		alias <char2>
		look <This is one of your party members.|n[Use the VIEW and INFO commands for more detail]>
		take msg <#char2:name# is already travelling with the party.>
		examine <This is one of your party members.|n[Use the VIEW and INFO commands for more detail]>
		displaytype <party member>
		article <it>
		gender <it>
		invisible
		drop nowhere <It would be safer for the party to stay together.>
		properties <xp=0; level=1; health=0; max_health=0; magic=0; max_magic=0; class=none; race=none; gender=none; tactic=normal; weapon=none; armour_body=none; armour_shield=none; armour_gloves=none; armour_helm=none; armour_accessory=none; base_strength=0; base_agility=0; base_intelligence=0; base_spirit=0; base_wisdom=0; base_evasion=0; base_defence=0; base_magic_defence=0; base_speed=0; temp_strength=0; temp_agility=0; temp_intelligence=0; temp_spirit=0; temp_wisdom=0; temp_evasion=0; temp_defence=0; temp_magic_defence=0; temp_speed=0; strength=0; agility=0; intelligence=0; spirit=0; wisdom=0; evasion=0; defence=0; magic_defence=0; speed=0; skill_sword=1; skill_knife=1; skill_axe=1; skill_spear=1; skill_rod=1; skill_bow=1; skill_earthquake=1; skill_freeze=1; skill_thunder=1; skill_flame=1; skill_noxious=1; skill_tornado=1; skill_abyss=1; skill_ultima=1; skill_heal=1; skill_angel's kiss=1; skill_restore=1; skill_teleport=1; skill_avoidance=1; skill_revive=1; skill_mystic aura=1; skill_divine blessing=1; skill_haste=1; skill_berserk=1; skill_guard=1; skill_shell=1; skill_focus=1; skill_blur=1; skill_prayer=1; skill_sharpen=1; skill_drowsiness=1; skill_weaken=1; skill_guard-breaker=1; skill_stupidity=1; skill_silencer=1; skill_confuse=1; skill_blinding=1; skill_deceleration=1; name=none; character; misc_okay>
	end define

	define object <char3>
		alias <char3>
		look <This is one of your party members.|n[Use the VIEW and INFO commands for more detail]>
		take msg <#char3:name# is already travelling with the party.>
		examine <This is one of your party members.|n[Use the VIEW and INFO commands for more detail]>
		displaytype <party member>
		article <it>
		gender <it>
		invisible
		drop nowhere <It would be safer for the party to stay together.>
		properties <xp=0; level=1; health=0; max_health=0; magic=0; max_magic=0; class=none; race=none; gender=none; tactic=normal; weapon=none; armour_body=none; armour_shield=none; armour_gloves=none; armour_helm=none; armour_accessory=none; base_strength=0; base_agility=0; base_intelligence=0; base_spirit=0; base_wisdom=0; base_evasion=0; base_defence=0; base_magic_defence=0; base_speed=0; temp_strength=0; temp_agility=0; temp_intelligence=0; temp_spirit=0; temp_wisdom=0; temp_evasion=0; temp_defence=0; temp_magic_defence=0; temp_speed=0; strength=0; agility=0; intelligence=0; spirit=0; wisdom=0; evasion=0; defence=0; magic_defence=0; speed=0; skill_sword=1; skill_knife=1; skill_axe=1; skill_spear=1; skill_rod=1; skill_bow=1; skill_earthquake=1; skill_freeze=1; skill_thunder=1; skill_flame=1; skill_noxious=1; skill_tornado=1; skill_abyss=1; skill_ultima=1; skill_heal=1; skill_angel's kiss=1; skill_restore=1; skill_teleport=1; skill_avoidance=1; skill_revive=1; skill_mystic aura=1; skill_divine blessing=1; skill_haste=1; skill_berserk=1; skill_guard=1; skill_shell=1; skill_focus=1; skill_blur=1; skill_prayer=1; skill_sharpen=1; skill_drowsiness=1; skill_weaken=1; skill_guard-breaker=1; skill_stupidity=1; skill_silencer=1; skill_confuse=1; skill_blinding=1; skill_deceleration=1; name=none; character; misc_okay>
	end define

	define object <char4>
		alias <char4>
		look <This is one of your party members.|n[Use the VIEW and INFO commands for more detail]>
		take msg <#char4:name# is already travelling with the party.>
		examine <This is one of your party members.|n[Use the VIEW and INFO commands for more detail]>
		displaytype <party member>
		article <it>
		gender <it>
		invisible
		drop nowhere <It would be safer for the party to stay together.>
		properties <xp=0; level=1; health=0; max_health=0; magic=0; max_magic=0; class=none; race=none; gender=none; tactic=normal; weapon=none; armour_body=none; armour_shield=none; armour_gloves=none; armour_helm=none; armour_accessory=none; base_strength=0; base_agility=0; base_intelligence=0; base_spirit=0; base_wisdom=0; base_evasion=0; base_defence=0; base_magic_defence=0; base_speed=0; temp_strength=0; temp_agility=0; temp_intelligence=0; temp_spirit=0; temp_wisdom=0; temp_evasion=0; temp_defence=0; temp_magic_defence=0; temp_speed=0; strength=0; agility=0; intelligence=0; spirit=0; wisdom=0; evasion=0; defence=0; magic_defence=0; speed=0; skill_sword=1; skill_knife=1; skill_axe=1; skill_spear=1; skill_rod=1; skill_bow=1; skill_earthquake=1; skill_freeze=1; skill_thunder=1; skill_flame=1; skill_noxious=1; skill_tornado=1; skill_abyss=1; skill_ultima=1; skill_heal=1; skill_angel's kiss=1; skill_restore=1; skill_teleport=1; skill_avoidance=1; skill_revive=1; skill_mystic aura=1; skill_divine blessing=1; skill_haste=1; skill_berserk=1; skill_guard=1; skill_shell=1; skill_focus=1; skill_blur=1; skill_prayer=1; skill_sharpen=1; skill_drowsiness=1; skill_weaken=1; skill_guard-breaker=1; skill_stupidity=1; skill_silencer=1; skill_confuse=1; skill_blinding=1; skill_deceleration=1; name=none; character; misc_okay>
	end define

end define

define room <item storage>

	define object <food ration>
		alias <food ration>
		alt <food; ration>
		look <This is a large ration of food that will feed four people. It tastes awful, but is very filling.>
		examine <This is a large ration of food that will feed four people. It tastes awful, but is very filling.>
		prefix <a>
		displaytype <item>
		article <it>
		gender <it>
		invisible
		drop if ask <If you drop these they will be ruined and unable to be used! Drop them anyway?> then set numeric <food ration; 0>
		properties <item; edible; normal; sell_price=1; food ration>
		action <eat> if ( #quest.currentroom# = battle room ) then msg <You can't stop and eat a meal now!> else {
			if ( %foodtimer% < 540 ) then msg <Your party is not hungry yet.> else {
				msg <Your party sits down for a while and eats a large meal. When they are finished they feel very full.>
				set numeric <foodtimer; 0>
				inc <minute; 20>
				dec <food ration; 1>
			}
		}
		action <info> msg <A food ration will remove all of your party's hunger.>
	end define

	define object <potion>
		alias <potion>
		look <This simple magic potion will heal one of your characters by 20 health.>
		examine <This simple magic potion will heal one of your characters by 20 health.>
		prefix <a>
		displaytype <item>
		article <it>
		gender <it>
		invisible
		drop if ask <If you drop these they will be ruined and unable to be used! Drop them anyway?> then set numeric <potion; 0>
		properties <item; sellable; normal; sell_price=2; potion>
		action <use> {
			msg <#(target):name# drinks the potion and feels slightly more healthy.>
			set numeric <temp; #(target):health#+20>
			property <#target#; health=%temp%>
			if ( #(target):health# > #(target):max_health# ) then property <#target#; health=#(target):max_health#>
			dec <potion; 1>
		}
		action <info> msg <A potion can restore up to 20 health for one character.>
	end define

	define object <mid potion>
		alias <mid potion>
		look <This is a more powerful healing potion that will heal one of your characters by 60 health.>
		examine <This is a more powerful healing potion that will heal one of your characters by 60 health.>
		prefix <a>
		displaytype <item>
		article <it>
		gender <it>
		invisible
		drop if ask <If you drop these they will be ruined and unable to be used! Drop them anyway?> then set numeric <mid potion; 0>
		properties <item; sellable; normal; sell_price=25; mid potion>
		action <use> {
			msg <#(target):name# drinks the potion and feels more healthy.>
			set numeric <temp; #(target):health#+60>
			property <#target#; health=%temp%>
			if ( #(target):health# > #(target):max_health# ) then property <#target#; health=#(target):max_health#>
			dec <mid potion; 1>
		}
		action <info> msg <A mid potion can restore up to 60 health for one character.>
	end define

	define object <high potion>
		alias <high potion>
		look <This is an extremely powerful healing potion that will heal one of your characters by 200 health.>
		examine <This is an extremely powerful healing potion that will heal one of your characters by 200 health.>
		prefix <a>
		displaytype <item>
		article <it>
		gender <it>
		invisible
		drop if ask <If you drop these they will be ruined and unable to be used! Drop them anyway?> then set numeric <high potion; 0>
		properties <item; sellable; normal; sell_price=250; high potion>
		action <use> {
			msg <#(target):name# drinks the potion and feels much more healthy.>
			set numeric <temp; #(target):health#+200>
			property <#target#; health=%temp%>
			if ( #(target):health# > #(target):max_health# ) then property <#target#; health=#(target):max_health#>
			dec <high potion; 1>
		}
		action <info> msg <A high potion can restore up to 200 health for one character.>
	end define

	define object <ether>
		alias <ether>
		look <This simple magic potion will restore one of your characters by 10 magic.>
		examine <This simple magic potion will restore one of your characters by 10 magic.>
		prefix <an>
		displaytype <item>
		article <it>
		gender <it>
		invisible
		drop if ask <If you drop these they will be ruined and unable to be used! Drop them anyway?> then set numeric <ether; 0>
		properties <item; sellable; normal; sell_price=10; ether>
		action <use> {
			msg <#(target):name# drinks the potion and feels slightly more mentally active.>
			set numeric <temp; #(target):magic#+10>
			property <#target#; magic=%temp%>
			if ( #(target):magic# > #(target):max_magic# ) then property <#target#; magic=#(target):max_magic#>
			dec <ether; 1>
		}
		action <info> msg <An ether can restore up to 10 magic for one character.>
	end define

	define object <mid ether>
		alias <mid ether>
		look <This more powerful magic potion will restore one of your characters by 30 magic.>
		examine <This more powerful magic potion will restore one of your characters by 30 magic.>
		prefix <an>
		displaytype <item>
		article <it>
		gender <it>
		invisible
		drop if ask <If you drop these they will be ruined and unable to be used! Drop them anyway?> then set numeric <mid ether; 0>
		properties <item; sellable; normal; sell_price=100; mid ether>
		action <use> {
			msg <#(target):name# drinks the potion and feels slightly more mentally active.>
			set numeric <temp; #(target):magic#+30>
			property <#target#; magic=%temp%>
			if ( #(target):magic# > #(target):max_magic# ) then property <#target#; magic=#(target):max_magic#>
			dec <mid ether; 1>
		}
		action <info> msg <A mid ether can restore up to 30 magic for one character.>
	end define

	define object <high ether>
		alias <ether>
		look <This is an extremely powerful magic potion will restore one of your characters by 100 magic.>
		examine <This is an extremely powerful magic potion will restore one of your characters by 100 magic.>
		prefix <an>
		displaytype <item>
		article <it>
		gender <it>
		invisible
		drop if ask <If you drop these they will be ruined and unable to be used! Drop them anyway?> then set numeric <high ether; 0>
		properties <item; sellable; normal; sell_price=500; high ether>
		action <use> {
			msg <#(target):name# drinks the potion and feels slightly more mentally active.>
			set numeric <temp; #(target):magic#+100>
			property <#target#; magic=%temp%>
			if ( #(target):magic# > #(target):max_magic# ) then property <#target#; magic=#(target):max_magic#>
			dec <high ether; 1>
		}
		action <info> msg <A high ether can restore up to 100 magic for one character.>
	end define

	define object <phoenix down>
		alias <phoenix down>
		look <This magical phoenix feather will revive one character from death.>
		examine <This magical phoenix feather will revive one character from death.>
		prefix <a>
		displaytype <item>
		article <it>
		gender <it>
		invisible
		drop if ask <If you drop these they will be ruined and unable to be used! Drop them anyway?> then set numeric <phoenix down; 0>
		properties <item; sellable; normal; sell_price=100; phoenix down>
		action <use> {
			if ( #(target):health# = 0 ) then {
				msg <#(target):name# is revived!>
				set numeric <temp; #(target):max_health# / 10>
				dec <phoenix down; 1>
			}
			else msg <Nothing happens.>
			dec <phoenix down; 1>
		}
		action <info> msg <A phoenix down will revive one character with 1/10 health.>
	end define

	define object <tent>
		alias <tent>
		look <This tent can be used in the wilderness to camp and restore half of all characters health and magic.>
		examine <This tent can be used in the wilderness to camp and restore half of all characters health and magic.>
		prefix <a>
		displaytype <item>
		article <it>
		gender <it>
		invisible
		drop if ask <If you drop these they will be ruined and unable to be used! Drop them anyway?> then set numeric <tent; 0>
		properties <item; sellable; normal; sell_price=250; tent>
		action <use> {
			if property <#quest.currentroom#; wilderness> then {
				msg <#(target):name# sets up the tent, and the party stays the night in it.>
				set numeric <temp; #(target):max_health# / 2>
				property <#target#; health=%temp%>
				if ( #(target):health# > #(target):max_health# ) then property <#target#; health=#(target):max_health#>
				set numeric <temp; #(target):max_magic# / 2>
				property <#target#; magic=%temp%>
				if ( #(target):magic# > #(target):max_magic# ) then property <#target#; magic=#(target):max_magic#>
				set numeric <minute; 0>
				set numeric <hour; 6>
				set day <day; %day% + 1>
				dec <tent; 1>
			}
			else msg <You can only use a tent in the wilderness.>
		}
		action <info> msg <A tent will restore up to 1/2 magic and 1/2 health for all characters.>
	end define

	define object <antidote>
		alias <antidote>
		look <This foul liquid was made from a monster's blood and will remove poisoning.>
		examine <This foul liquid was made from a monster's blood and will remove poisoning.>
		prefix <a>
		displaytype <item>
		article <it>
		gender <it>
		invisible
		drop if ask <If you drop these they will be ruined and unable to be used! Drop them anyway?> then set numeric <antidote; 0>
		properties <item; sellable; normal; sell_price=5; antidote>
		action <use> {
			if property <#target#; poison> or property <#target#; deadly_poison> then {
				msg <#(target):name# swigs the foul liquid down and is no longer poisoned.>
				property <#target#; not poison>
				property <#target#; not deadly_poison>
				dec <antidote; 1>
			}
			else {
				msg <#(target):name# swigs the foul liquid down but notices no effect.>
				dec <antidote; 1>
			}
		}
		action <info> msg <An antidote will remove poison and deadly poison.>
	end define

	define object <fresh fish>
		alias <fresh fish>
		look <This brain food is too small to satisfy hunger, but can stop mind loss.>
		examine <This brain food is too small to satisfy hunger, but can stop mind loss.>
		prefix <a>
		displaytype <item>
		article <it>
		gender <it>
		invisible
		drop if ask <If you drop these they will be ruined and unable to be used! Drop them anyway?> then set numeric <fresh fish; 0>
		properties <item; sellable; normal; sell_price=15; fresh fish>
		action <use> {
			if property <#target#; mind_drain> or property <#target#; mind_destroy> then {
				msg <#(target):name# eats the fresh fish in one gulp and is no longer mentally drained.>
				property <#target#; not mind_drain>
				property <#target#; not mind_destroy>
				dec <fresh fish; 1>
			}
			else {
				msg <#(target):name# eats the fresh fish in one gulp but notices no effect.>
				dec <fresh fish; 1>
			}
		}
		action <info> msg <A fresh fish will remove mind drain and mind destroy.>
	end define

	define object <burn cream>
		alias <burn cream>
		look <This thick paste is made from the sap of a magical plant. It heals burns.>
		examine <This thick paste is made from the sap of a magical plant. It heals burns.>
		prefix <a>
		displaytype <item>
		article <it>
		gender <it>
		invisible
		drop if ask <If you drop these they will be ruined and unable to be used! Drop them anyway?> then set numeric <burn cream; 0>
		properties <item; sellable; normal; sell_price=2; burn cream>
		action <use> {
			if property <#target#; burn> then {
				msg <#(target):name# applies the cream and feels the burns vanish.>
				property <#target#; not burn>
				dec <burn cream; 1>
			}
			else {
				msg <#(target):name# applies the cream but notices no effect.>
				dec <burn cream; 1>
			}
		}
		action <info> msg <A burn cream will remove burn.>
	end define

	define object <pixie dust>
		alias <burn cream>
		look <This magical pixie dust can be used to awaken a magically slept ally.>
		examine <This magical pixie dust can be used to awaken a magically slept ally.>
		prefix <a>
		displaytype <item>
		article <it>
		gender <it>
		invisible
		drop if ask <If you drop these they will be ruined and unable to be used! Drop them anyway?> then set numeric <pixie dust; 0>
		properties <item; sellable; normal; sell_price=10; pixie dust>
		action <use> {
			if property <#target#; sleep> then {
				msg <#(target):name# is covered in dust and awakens.>
				property <#target#; not sleep>
				dec <pixie dust; 1>
			}
			else {
				msg <#(target):name# is covered in dust but noticed no effect.>
				dec <pixie dust; 1>
			}
		}
		action <info> msg <A pixie dust will remove sleep.>
	end define

	define object <eye drop>
		alias <eye drop>
		look <This is a small amount of holy water that will cure blindness.>
		examine <This is a small amount of holy water that will cure blindness.>
		prefix <a>
		displaytype <item>
		article <it>
		gender <it>
		invisible
		drop if ask <If you drop these they will be ruined and unable to be used! Drop them anyway?> then set numeric <eye drop; 0>
		properties <item; sellable; normal; sell_price=2; eye drop>
		action <use> {
			if property <#target#; blind> then {
				msg <#(target):name# blinks for a moment, then can see again.>
				property <#target#; not blind>
				dec <eye drop; 1>
			}
			else {
				msg <#(target):name# blinks for a moment, but notices no effect.>
				dec <eye drop; 1>
			}
		}
		action <info> msg <An eye drop will remove burn.>
	end define

	define object <shock absorber>
		alias <shock absorber>
		look <This rare parasitic sponge lives off electricity, and can remove a character's paralyses.>
		examine <This rare parasitic sponge lives off electricity, and can remove a character's paralyses.>
		prefix <a>
		displaytype <item>
		article <it>
		gender <it>
		invisible
		drop if ask <If you drop these they will be ruined and unable to be used! Drop them anyway?> then set numeric <shock absorber; 0>
		properties <item; sellable; normal; sell_price=25; shock absorber>
		action <use> {
			if property <#target#; paralyse> then {
				msg <The sponge attatches itself to #(target):name# and removes the paralysis.>
				property <#target#; not paralyse>
				dec <shock absorber; 1>
			}
			else {
				msg <The sponge attatches itself to #(target):name# but #(target):name# notices no effect.>
				dec <shock absorber; 1>
			}
		}
		action <info> msg <A shock absorber will remove paralyse.>
	end define

	define object <blanket>
		alias <blanket>
		look <This simple wool blanket is very warm and can remove a character's numbness.>
		examine <This simple wool blanket is very warm and can remove a character's numbness.>
		prefix <a>
		displaytype <item>
		article <it>
		gender <it>
		invisible
		drop if ask <If you drop these they will be ruined and unable to be used! Drop them anyway?> then set numeric <blanket; 0>
		properties <item; sellable; normal; sell_price=25; blanket>
		action <use> {
			if property <#target#; numb> then {
				msg <#(targer):name# is wrapped with the blanket and no longer feels numb.>
				property <#target#; not numb>
				dec <blanket; 1>
			}
			else {
				msg <#(targer):name# is wrapped with the blanket, but notices no effect.>
				dec <blanket; 1>
			}
		}
		action <info> msg <A blanket will remove numb.>
	end define

	define object <magic cymbol>
		alias <magic cymbol>
		look <This cymbol is engraved with mystical runes that can break any silence.>
		examine <This cymbol is engraved with mystical runes that can break any silence.>
		prefix <a>
		displaytype <item>
		article <it>
		gender <it>
		invisible
		drop if ask <If you drop these they will be ruined and unable to be used! Drop them anyway?> then set numeric <magic cymbol; 0>
		properties <item; sellable; normal; sell_price=25; magic cymbol>
		action <use> {
			if property <#target#; silence> then {
				msg <The magical sound penetrates #(target):name#'s silence and removes it.>
				property <#target#; not silence>
				dec <magic cymbol; 1>
			}
			else {
				msg <The magical sound penetrates #(target):name#, but #(target):name# but notices no effect.>
				dec <magic cymbol; 1>
			}
		}
		action <info> msg <A magic cymbol will remove silence.>
	end define

	define object <holy relic>
		alias <holy relic>
		look <This ancient holy relic can cancel minor curses.>
		examine <This ancient holy relic can cancel minor curses.>
		prefix <a>
		displaytype <item>
		article <it>
		gender <it>
		invisible
		drop if ask <If you drop these they will be ruined and unable to be used! Drop them anyway?> then set numeric <holy relic; 0>
		properties <item; sellable; normal; sell_price=50; holy relic>
		action <use> {
			if property <#target#; curse> then {
				msg <#(target):name# feels an aura of holiness cancel out the curse.>
				property <#target#; not curse>
				dec <holy relic; 1>
			}
			else {
				msg <#(target):name# feels an aura of holiness, but notices no effect.>
				dec <holy relic; 1>
			}
		}
		action <info> msg <A holy relic will remove curse.>
	end define

	define object <full restore>
		alias <full restore>
		look <This powerful charm will remove all negetive status effects from one character.>
		examine <This powerful charm will remove all negetive status effects from one character.>
		prefix <a>
		displaytype <item>
		article <it>
		gender <it>
		invisible
		drop if ask <If you drop these they will be ruined and unable to be used! Drop them anyway?> then set numeric <full restore; 0>
		properties <item; sellable; normal; sell_price=100; full restore>
		action <use> {
			msg <The charm glows, engulfing #(target):name# in a bright purifying light.>
			property <#target#; not poison>
			property <#target#; not mind_drain>
			property <#target#; not mind_destroy>
			property <#target#; not deadly_poison>
			property <#target#; not paralyse>
			property <#target#; not burn>
			property <#target#; not silence>
			property <#target#; not numb>
			property <#target#; not slow>
			property <#target#; not confusion>
			property <#target#; not blind>
			property <#target#; not sleep>
			property <#target#; not stun>
			property <#target#; not bind>
			property <#target#; not curse>
			property <#target#; not amnesia>
			property <#target#; not brain_freeze>
			property <#target#; not guard_break>
			if ( #(target):temp_strength# < 0 ) then property <#target#; temp_strength=0>
			if ( #(target):temp_agility# < 0 ) then property <#target#; temp_agility=0>
			if ( #(target):temp_intelligence# < 0 ) then property <#target#; temp_intelligence=0>
			if ( #(target):temp_spirit# < 0 ) then property <#target#; temp_spirit=0>
			if ( #(target):temp_wisdom# < 0 ) then property <#target#; temp_wisdom=0>
			if ( #(target):temp_evasion# < 0 ) then property <#target#; temp_evasion=0>
			if ( #(target):temp_defence# < 0 ) then property <#target#; temp_defence=0>
			if ( #(target):temp_magic_defence# < 0 ) then property <#target#; temp_magic_defence=0>
			if ( #(target):temp_speed# < 0 ) then property <#target#; temp_speed=0>
			dec <full restore; 1>
		}
		action <info> msg <A full restore will remove all negetive status conditions.>
	end define

	define object <equaliser>
		alias <equaliser>
		look <This magical scroll will return all combatants, both friend and foe, to regular status.>
		examine <This magical scroll will return all combatants, both friend and foe, to regular status.>
		prefix <a>
		displaytype <item>
		article <it>
		gender <it>
		invisible
		drop if ask <If you drop these they will be ruined and unable to be used! Drop them anyway?> then set numeric <potion; 0>
		properties <item; sellable; normal; sell_price=250; equaliser>
		action <use> {
			dec <equaliser; 1>
			for each object in <#quest.currentroom#> if property <#quest.thing#; character> or property <#quest.thing#; equaliser> then {
				msg <#@quest.thing# is equalised.>
				property <#quest.thing#; not poison>
				property <#quest.thing#; not deadly_poison>
				property <#quest.thing#; not mind_drain>
				property <#quest.thing#; not mind_destroy>
				property <#quest.thing#; not paralyse>
				property <#quest.thing#; not burn>
				property <#quest.thing#; not silence>
				property <#quest.thing#; not numb>
				property <#quest.thing#; not slow>
				property <#quest.thing#; not confusion>
				property <#quest.thing#; not blind>
				property <#quest.thing#; not sleep>
				property <#quest.thing#; not stun>
				property <#quest.thing#; not bind>
				property <#quest.thing#; not curse>
				property <#quest.thing#; not amnesia>
				property <#quest.thing#; not brain_freeze>
				property <#quest.thing#; not guard_break>
				property <#quest.thing#; not safeguard>
				property <#quest.thing#; not life>
				property <#quest.thing#; temp_strength=0>
				property <#quest.thing#; temp_agility=0>
				property <#quest.thing#; temp_intelligence=0>
				property <#quest.thing#; temp_spirit=0>
				property <#quest.thing#; temp_wisdom=0>
				property <#quest.thing#; temp_evasion=0>
				property <#quest.thing#; temp_defence=0>
				property <#quest.thing#; temp_magic_defence=0>
				property <#quest.thing#; temp_speed=0>
			}
		}
		action <info> msg <An equaliser will remove all status conditions for all characters and enemies.>
	end define

	define object <elixer>
		alias <elixer>
		look <This ultimate potion will restore any character to full health, magic and status.>
		examine <This ultimate potion will restore any character to full health, magic and status.>
		prefix <a>
		displaytype <item>
		article <it>
		gender <it>
		invisible
		drop if ask <If you drop these they will be ruined and unable to be used! Drop them anyway?> then set numeric <elixer; 0>
		properties <item; sellable; normal; sell_price=2500; elixer>
		action <use> {
			msg <#(target):name# drinks the potion and feels in perfect condition again.>
			property <#target#; health=max_health>
			property <#target#; magic=max_magic>
			property <#target#; not poison>
			property <#target#; not deadly_poison>
			property <#target#; not paralyse>
			property <#target#; not mind_drain>
			property <#target#; not mind_destroy>
			property <#target#; not burn>
			property <#target#; not silence>
			property <#target#; not numb>
			property <#target#; not slow>
			property <#target#; not confusion>
			property <#target#; not blind>
			property <#target#; not sleep>
			property <#target#; not stun>
			property <#target#; not bind>
			property <#target#; not curse>
			property <#target#; not amnesia>
			property <#target#; not brain_freeze>
			property <#target#; not guard_break>
			if ( #(target):temp_strength# < 0 ) then property <#target#; temp_strength=0>
			if ( #(target):temp_agility# < 0 ) then property <#target#; temp_agility=0>
			if ( #(target):temp_intelligence# < 0 ) then property <#target#; temp_intelligence=0>
			if ( #(target):temp_spirit# < 0 ) then property <#target#; temp_spirit=0>
			if ( #(target):temp_wisdom# < 0 ) then property <#target#; temp_wisdom=0>
			if ( #(target):temp_evasion# < 0 ) then property <#target#; temp_evasion=0>
			if ( #(target):temp_defence# < 0 ) then property <#target#; temp_defence=0>
			if ( #(target):temp_magic_defence# < 0 ) then property <#target#; temp_magic_defence=0>
			if ( #(target):temp_speed# < 0 ) then property <#target#; temp_speed=0>
			dec <elixer; 1>
		}
		action <info> msg <An elixer will remove all status conditions and restore all health and magic for one character.>
	end define

end define

define room <armour storage>

	define object <leather vest>
		alias <leather vest>
		alt <vest>
		look <This is a simple leather body armour.>
		take
		examine <This is a simple leather body armour.>
		prefix <a>
		displaytype <armour>
		article <it>
		gender <it>
		properties <item; sellable; sell_price=10; wearable; body; defbonus=4; leather vest>
		action <info> msg <Defence + 4.>
	end define

	define object <leather shield>
		alias <leather shield>
		alt <shield>
		look <This is a small, light leather shield.>
		take
		examine <This is a small, light leather shield.>
		prefix <a>
		displaytype <armour>
		article <it>
		gender <it>
		properties <item; sellable; sell_price=5; wearable; shield; defbonus=2; leather shield>
		action <info> msg <Defence + 2.>
	end define

	define object <leather hat>
		alias <leather hat>
		alt <hat>
		look <This is a simple one-size-fits-all style leather hat.>
		take
		examine <This is a simple one-size-fits-all style leather hat.>
		prefix <a>
		displaytype <armour>
		article <it>
		gender <it>
		properties <item; sellable; sell_price=2; wearable; helm; defbonus=1; leather hat>
		action <info> msg <Defence + 1.>
	end define

	define object <leather gloves>
		alias <leather gloves>
		alt <gloves>
		look <This is a simple pair of leather gloves.>
		take
		examine <This is a simple pair of leather gloves.>
		prefix <a>
		displaytype <armour>
		article <it>
		gender <it>
		properties <item; sellable; sell_price=2; wearable; glove; defbonus=1; leather gloves>
		action <info> msg <Defence + 1.>
	end define

end define

define room <weapon storage>

	define object <small knife>
		alias <small knife>
		alt <knife>
		look <This is a small knife commonly found in the kitchen, but it can be used as a weapon too.>
		take
		examine <This is a small knife commonly found in the kitchen, but it can be used as a weapon too.>
		prefix <a>
		displaytype <weapon>
		article <it>
		gender <it>
		properties <item; sellable; sell_price=10; weapon; knife; wearable; small knife; agiextra=4>
		action <info> msg <Agility + 4.>
	end define

	define object <small sword>
		alias <small sword>
		alt <sword>
		look <This sword is very small, but still long enough to be a sword. It is of poor quality.>
		take
		examine <This sword is very small, but still long enough to be a sword. It is of poor quality.>
		prefix <a>
		displaytype <weapon>
		article <it>
		gender <it>
		properties <item; sellable; sell_price=10; weapon; sword; wearable; small sword; agiextra=2; strextra=2>
		action <info> msg <Strength +2, Agility + 2.>
	end define

	define object <short spear>
		alias <short spear>
		alt <spear>
		look <This is poorly crafted spear has a short hilt.>
		take
		examine <This is poorly crafted spear has a short hilt.>
		prefix <a>
		displaytype <weapon>
		article <it>
		gender <it>
		properties <item; sellable; sell_price=10; weapon; spear; wearable; short spear; agiextra=1; strextra=2; defextra=1>
		action <info> msg <Strength + 2, Agility + 1, Defence + 1>
	end define

	define object <small axe>
		alias <small axe>
		alt <axe>
		look <This small axe is usually used for chopping blocks of wood at a home, but it can be used as a weak weapon as well.>
		take
		examine <This small axe is usually used for chopping blocks of wood at a home, but it can be used as a weak weapon as well.>
		prefix <a>
		displaytype <weapon>
		article <it>
		gender <it>
		properties <item; sellable; sell_price=10; weapon; axe; wearable; small axe; strextra=4>
		action <info> msg <Strength + 4.>
	end define

	define object <small rod>
		alias <small rod>
		alt <rod>
		look <This small rod is commonly used as a crutch, but holds some minor magical power.>
		take
		examine <This small rod is commonly used as a crutch, but holds some minor magical power.>
		prefix <a>
		displaytype <weapon>
		article <it>
		gender <it>
		properties <item; sellable; sell_price=10; weapon; rod; wearable; small rod; mdefextra=1; wisextra=2; spiextra=2; intextra=2>
		action <info> msg <Magic defence + 1, Wisdom + 2, Spirit + 2, Intelligence +2.>
	end define

	define object <short bow>
		alias <short bow>
		alt <bow>
		look <This bow is can only be fired at short range, making it very weak against enemies.>
		take
		examine <This bow is can only be fired at short range, making it very weak against enemies.>
		prefix <a>
		displaytype <weapon>
		article <it>
		gender <it>
		properties <item; sellable; sell_price=10; weapon; bow; wearable; short bow; agiextra=2; strextra=1; evaextra=1>
		action <info> msg <Strength + 1. Agility + 2, Evasion + 1.>
	end define

end define

define room <spell storage>

	define object <earthquake>
		properties <spell; black; element=earth; status=stun; earthquake; level_1>
	end define

	define object <freeze>
		properties <spell; black; element=ice; status=numb; freeze; level_2>
	end define

	define object <thunder>
		properties <spell; black; element=lightening; status=paralyse; thunder; level_3>
	end define

	define object <flame>
		properties <spell; black; element=fire; status=burn; flame; level_4>
	end define

	define object <noxious>
		properties <spell; black; element=poison status=poison; noxious; level_5>
	end define

	define object <tornado>
		properties <spell; black; element=wind; status=brain_freeze; tornado; level_6>
	end define

	define object <abyss>
		properties <spell; black; element=darkness; status=curse; abyss>
	end define

	define object <ultima>
		properties <spell; black; element=holy; status=bind; ultima>
	end define

	define object <heal>
		properties <spell; white; heal; cast_anytime; need_target; level_1>
		action <cast>
	end define

	define object <angel's kiss>
		properties <spell; white; angel's kiss; level_2>
	end define

	define object <restore>
		properties <spell; white; restore; cast_anytime; need_target; level_3>
	end define

	define object <revive>
		properties <spell; white; revive; cast_anytime; need_target; level_4>
	end define

	define object <teleport>
		properties <spell; white; teleport; level_5>
	end define

	define object <avoidance>
		properties <spell; white; avoidance; level_6>
	end define

	define object <mystic aura>
		properties <spell; white; mystic aura>
	end define

	define object <divine blessing>
		properties <spell; white; divine blessing>
	end define

	define object <guard>
		properties <spell; enchantment; statup; status=defence; guard; level_1>
	end define

	define object <shell>
		properties <spell; enchantment; statup; status=magic_defence; shell; level_2>
	end define

	define object <blur>
		properties <spell; enchantment; statup; status=evasion; blur; level_3>
	end define

	define object <prayer>
		properties <spell; enchantment; statup; status=wisdom; prayer; level_4>
	end define

	define object <focus>
		properties <spell; enchantment; statup; status=agility; focus; level_5>
	end define

	define object <haste>
		properties <spell; enchantment; statup; status=speed; haste; level_6>
	end define

	define object <sharpen>
		properties <spell; enchantment; statup; status=spirit; sharpen>
	end define

	define object <berserker>
		properties <spell; enchantment; statup; status=attack; berserker>
	end define

	define object <blinding>
		properties <spell; enchantment; status=blind; blinding; level_1>
	end define

	define object <stupidity>
		properties <spell; enchantment; status=stupid; stupidity; level_2>
	end define

	define object <weaken>
		properties <spell; enchantment; status=weak; weaken; level_3>
	end define

	define object <drowsiness>
		properties <spell; enchantment; status=sleep; drowsiness; level_4>
	end define

	define object <guard-breaker>
		properties <spell; enchantment; status=guard_break; guard-breaker; level_5>
	end define

	define object <deceleration>
		properties <spell; enchantment; status=slow; deceleration; level_6>
	end define

	define object <confuse>
		properties <spell; enchantment; status=confusion; confuse>
	end define

	define object <silencer>
		properties <spell; enchantment; status=silence; silencer>
	end define

	define object <understanding>
		properties <spell; misc; understanding; cast_anytime; mpcost=2; level_1>
		action <cast> if property <#quest.currentroom#; hint> then doaction <#quest.currentroom#; hint> else msg <You understand nothing more.>
	end define

	define object <warp>
		properties <spell; misc; warp; cast_anytime; mpcost=5; level_2>
		action <cast> if property <#quest.currentroom#; warp> then {
			msg <Warp to where?>
			enter <temp>
			if property <#temp#; warp> then goto <#temp#> else msg <Your spell fails to work.|n[You can only warp to a visited town.]>
		}
		else msg <Your spell fails to work.|n[You must be in a town and outside buildings for this spell to work.]>
	end define

	define object <time warp>
		properties <spell; misc; time warp; cast_anytime; mpcost=5; level_3>
		action <cast> {
			msg <Time speeds up and warps around you, and suddenly 12 hours have passed.>
			inc <hours; 12>
		}
	end define

	define object <satisfy hunger>
		properties <spell; misc; satisfy hunger; cast_anytime; mpcost=10; level_4>
		action <cast> {
			msg <You feel a tingling sensation and your stomach is full.>
			set numeric <foodtimer; 0>
		}
	end define

	define object <alchemy>
		properties <spell; misc; alchemy; cast_anytime; mpcost=10; level_5>
		action <cast> {
			msg <Alchemise which item?>
			enter <temp>
			if got <#temp#> then {
				if property <#temp#; sellable> then {
					if property <#temp#; normal> then {
						msg <How many will you alchemise?>
						enter <temp2>
						set numeric <temp3; #temp2#>
						if ( %temp3% = 0 ) then msg <You cancel the spell.>
						if ( %temp3% > 0 ) then {
							if ( %#temp#% > %temp3% ) then {
								set numeric <temp4; #(temp):sell_price#>
								set numeric <temp5; %temp3%*%temp4%>
								set numeric <temp5; %temp5%*3>
								set numeric <temp5; %temp5%/2>
								msg <You turn the #temp#/s into gold! You get %tempgold% gold.>
								inc <gold; %temp5%>
								dec <#temp#; %temp3%>
							}
							else msg <"You don't have that many!">
						}
					}
					else {
						set numeric <tempgold; #(temp):sell_price#>
						set numeric <tempgold; %tempgold%*3>
						set numeric <tempgold; %tempgold%/2>
						msg <You turn the #temp# into gold! You get %tempgold% gold.>
						inc <gold; %tempgold%>
						hide <#temp#>
					}
				}
			}
		}
	end define

	define object <forecast>
		properties <spell; misc; forecast; cast_anytime; mpcost=15; level_6>
	end define

	define object <foo>
		properties <spell; misc; understanding; cast_anytime; mpcost=20>
	end define

	define object <save>
		properties <spell; misc; understanding; cast_anytime; mpcost=50>
		action <cast> {
			msg <You summon a massive magical power to record your progress thus far.>
			exec <save; normal>
		}
	end define

end define

define room <monster storage>
end define

define room <battle room>
	alias <battle>
	look <You are in a battle.>
	indescription <You are in :>
	properties <battle>
end define

define room <start>
	alias <start>
	prefix <the>
	look <Welcome to RPG - Reading Presented Gallivant. To restore a previous game, type RESTORE now. To start a new game by creating a new party, enter anything else.>
	indescription <You are at:>
	command <#anything#> if ( #anything# = restore ) then exec <restore; normal> else goto <party selection>
end define

define room <party selection>
	alias <party selection>
	script {
		clear
		msg <Before you start your adventure you will need to select the four heroes that you will journey on their quest! These characters will continue for the whole game and can not be changed, so chose carefully.|n>
		wait
		for each object in <character storage> do <character selection>
		clear
		msg <So your party will be comprised of:|n#char1:name#, a #char1:gender# #char1:race# #char1:class#,|n#char2:name#, a #char2:gender# #char2:race# #char2:class#,|n#char3:name#, a #char3:gender# #char3:race# #char3:class#,|n#char4:name#, a #char4:gender# #char4:race# #char4:class#.>
		wait<>
		if ask <Are you happy with your party?> then {
			set numeric <sleeptimer; 0>
			set numeric <foodtimer; 0>
			set numeric <minute; 0>
			set numeric <hour; 6>
			set numeric <day; 0>
			do <introduction>
		}
		else goto <party selection>
	}
end define

define room <Hometon>
	alias <Hometon>
	look <This small town is tucked into a mountain valley and sees little of the outside world. Because of its insignifance it has not yet been touched by any evil forces. All around you people go about their business cheerfully and carelessly.>
	place <a; hometon_tavern>
	place <an; hometon_inn>
	place <a; hometon_temple>
	place <an; hometon_general_store> if flag <night> then msg <The shop is closed for the night.> else goto <hometon_general_store>
	place <an; hometon_armoury> if flag <night> then msg <The shop is closed for the night.> else goto <hometon_armoury>
	place <a; hometon_magic> if flag <night> then msg <The shop is closed for the night.> else goto <hometon_magic>
	script property <hometon; warp>
	properties <town>

	define object <hometon_townsfolk>
		alias <townsfolk>
		alt <folk>
		look <The people in Hometon are cheerful and happy, and you wonder if they are aware of the growning dangers that engulf the world. A few faces look familiar from your youth before being outcast.>
		speak {
			set numeric <temp; $rand(1;3)$>
			if ( %temp% = 1 ) then msg <"Hmmm... you remind me of someone I once knew," an old man ponders looking at you.>
			if ( %temp% = 2 ) then msg <"If you are looking for some quests you should check the tavern!" one townsfolk advises you.>
			if ( %temp% = 3 ) then {
				msg <A happy drunk stumbles up.|n"Please travellers, can you spare some gold for a poor old fool?">
				if ask <Give the drunk 5 gold?> then {
					if ( %gold% >= 5 ) then {
						dec <gold; 5>
						msg <You hand the drunk 5 gold, which he pockets gratefully.|n"Thanks you fine travellers! I can not repay the favour, but bare this in mind: if you do not want to suffer the same fate I did, do not succumb to greed and dally when in the cave at the end of the world!" the drunk advises, and wanders off.>
					}
					else msg <You don't have enough gold.|nThe drunk wanders off.>
				}
				else msg <The drunk wanders off.>
			}
		}
		examine <The people in Hometon are cheerful and happy, and you wonder if they are aware of the growning dangers that engulf the world. A few faces look familiar from your youth before being outcast.>
		prefix <several>
		displaytype <characters>
		article <them>
		gender <it>
	end define

	script
end define

define room <hometon_tavern>
	alias <Tavern>
	prefix <a>
	look <This tavern is a small but lively place. People gather round at any time of day to have a beer and chat, and many strangers welcome you in.>
	out <Hometon>
	properties <town>

	define object <hometon_barkeeper>
		alias <Barkeeper>
		look <The barkeeper serves drinks with expert accuracy and speed, all the while taking part in at least three conversations and a card game of some sort.>
		speak choose <hometon tavern>
		examine <The barkeeper serves drinks with expert accuracy and speed, all the while taking part in at least three conversations and a card game of some sort.>
		prefix <a>
		displaytype <character>
		article <it>
		gender <he>
	end define

	define object <hometon_tavern_crowd>
		alias <crowd>
		look <No matter what time of day it is there always seems to be a small crowd hanging around the bar, drinking and talking. It mostly consists of burly men, but you can spot a few females too.>
		speak <They don't want to talk to someone who won't buy a drink.>
		examine if flag <know_louie> then {
			msg <You search the crowd and find Louie in the corner of the tavern by himself.>
			show <louie>
		}
		else msg <No matter what time of day it is there always seems to be a small crowd hanging around the bar, drinking and talking. It mostly consists of burly men, but you can spot a few females too.>
		prefix <a small>
		suffix <around the bar>
		displaytype <characters>
		article <them>
		gender <it>
	end define

	define object <louie>
		alias <Louie>
		look <Louie is small and thin, and wears mostly black making him hard to notice where the lamp light doesn't reach as well. He is sitting and shuffling a deck of cards slowly.>
		speak choose <Louie>
		examine <Louie is small and thin, and wears mostly black making him hard to notice where the lamp light doesn't reach as well. He is sitting and shuffling a deck of cards slowly.>
		displaytype <character>
		article <it>
		gender <he>
		hidden
	end define

end define

define room <hometon_inn>
	alias <Inn>
	prefix <an>
	look <This inn is small and shabby due to a lack of visitors to Hometon. The security is in poor condition, but nobody in this town would dare try and steal anything.>
	out <Hometon>
	properties <town>

	define object <hometon_innkeeper>
		alias <Innkeeper>
		look <The innkeeper is sitting on a couch reading an old parchment book. He glances up at you as you walk around.>
		speak choose <hometon inn>
		examine <The innkeeper is sitting on a couch reading an old parchment book. He glances up at you as you walk around.>
		prefix <an>
		displaytype <character>
		article <it>
		gender <he>
	end define

	define object <hometon_inn_display_board>
		alias <display board>
		alt <board; display>
		look <This display board shows how much the inn rooms cost.>
		examine <This display board shows how much the inn rooms cost.>
		prefix <a>
		displaytype <object>
		article <it>
		gender <it>
		properties <readable>
		action <read> msg <Cheap room - 20 gold>
	end define

end define

define room <hometon_temple>
	alias <Temple>
	prefix <the>
	look <This temple is large for the size of the town, and sounds of prayers reverberate around the building.>
	out <Hometon>
	properties <town; temple>

	define object <hometon_altar>
		alias <altar>
		look <This is the largest of the five altars in the temple, resting in the middle. Engravings of miracles and holy happenings are on it.>
		examine <This is the largest of the five altars in the temple, resting in the middle. Engravings of miracles and holy happenings are on it.>
		prefix <an>
		displaytype <object>
		article <it>
		gender <it>
	end define

	define object <hometion_priest>
		alias <priest>
		look <The priest is standing near the central altar and cleaning a few of the statues nearby. He is dressed in the standard robes.>
		speak choose <hometon temple>
		examine <The priest is standing near the central altar and cleaning a few of the statues nearby. He is dressed in the standard robes.>
		prefix <a>
		displaytype <character>
		article <it>
		gender <he>
	end define

end define

define room <hometon_general_store>
	alias <General store>
	prefix <an>
	look <This is a small stall that sells a few basic items for those who plan on travelling You suspect the food it sells are the only reasons it has stayed open.>
	out <Hometon>
	properties <town>

	define object <hometon_general_storekeeper>
		alias <shopkeeper>
		alt <keeper; shop>
		look <The shopkeeper here is dressed in poor clothes and is a bit thin. Usually people here don't go on long ventures, so his sales are low.>
		speak choose <hometon general store>
		examine <The shopkeeper here is dressed in poor clothes and is a bit thin. Usually people here don't go on long ventures, so his sales are low.>
		prefix <a>
		displaytype <character>
		article <it>
		gender <he>
	end define

	define object <hometon_general_display_board>
		alias <display board>
		alt <board; display>
		look <This display board shows what the shop sells and how much they cost.>
		examine <This display board shows what the shop sells and how much they cost.>
		prefix <a>
		displaytype <object>
		article <it>
		gender <it>
		properties <readable>
		action <read> msg <Food ration - 2 gold|nPotion - 5 gold|nAntidote - 5 gold|nBurn cream - 5 gold|nEye drop - 5 gold>
	end define

end define

define room <hometon_armoury>
	alias <Armoury>
	prefix <an>
	look <This armoury is small and dusty, suggesting few people have ever used it. Looking around all you can see is poor quallity leather armour and small weapons more commonly used as winter clothing tools.>
	out <Hometon>
	properties <town>

	define object <hometon_weaponry_shopkeeper>
		alias <Weapons shopkeeper>
		look <To your surprise the shopkeeper is a young female of about twenty-five. She is pacing the store restlessly.>
		speak choose <hometon weaponry>
		examine <To your surprise the shopkeeper is a young female of about twenty-five. She is pacing the store restlessly.>
		prefix <a>
		displaytype <character>
		article <it>
		gender <she>
	end define

	define object <hometon_armoury_shopkeeper>
		alias <Armour shopkeeper>
		look <The shopkeeper is an old man in his late fifties pacing the store, checking each piece of armour over and over again.>
		speak choose <hometon armoury>
		examine <The shopkeeper is an old man in his late fifties pacing the store, checking each piece of armour over and over again.>
		prefix <a>
		displaytype <character>
		article <it>
		gender <he>
	end define

	define object <hometon_armoury_display_board>
		alias <Weapons display board>
		alt <board; display>
		look <This display board shows what the shop sells and how much they cost.>
		examine <This display board shows what the shop sells and how much they cost.>
		prefix <a>
		displaytype <object>
		article <it>
		gender <it>
		properties <readable>
		action <read> msg <Leather vest - 20 gold|nLeather shield - 10 gold|nLeather hat - 5 gold|nLeather gloves - 5 gold>
	end define

	define object <hometon_weaponry_display_board>
		alias <Armour display board>
		alt <board; display>
		look <This display board shows what the shop sells and how much they cost.>
		examine <This display board shows what the shop sells and how much they cost.>
		prefix <a>
		displaytype <object>
		article <it>
		gender <it>
		properties <readable>
		action <read> msg <Small knife - 20 gold|nSmall sword - 20 gold|nShort spear - 20 gold|nSmall axe - 20 gold|nSmall rod - 20 gold|nShort bow - 20 gold>
	end define

end define

define room <hometon_magic>
	alias <Magic shop>
	prefix <an>
	look <This medium sized shop seems to be the only one in Hometon that is doing well for itself. A few customers come and go every now and then, and many trivial spells are for sale.>
	out <Hometon>
	properties <town; sell_earthquake; sell_freeze; sell_heal; sell_angel's kiss; sell_guard; sell_shell; sell_blinding; sell_stupidity; sell_understanding; sell_warp>

	define object <hometon_magic_storekeeper>
		alias <shopkeeper>
		alt <keeper; shop>
		look <The shopkeeper looks young on first glance, but upon closer inspection the shopkeeper seems to be a half-elf, and much older than she looks.>
		speak do <buy spell>
		examine <The shopkeeper looks young on first glance, but upon closer inspection the shopkeeper seems to be a half-elf, and much older than she looks.>
		prefix <a>
		displaytype <character>
		article <it>
		gender <she>
	end define

	define object <hometon_magic_display_board>
		alias <display board>
		alt <board; display>
		look <This display board shows what the shop sells and how much they cost.>
		examine <This display board shows what the shop sells and how much they cost.>
		prefix <a>
		displaytype <object>
		article <it>
		gender <it>
		properties <readable>
		action <read> msg <BLACK MAGIC:|nEarthquake - 25 gold|nFreeze - 50 gold|n|nWHITE MAGIC:|nHeal - 25 gold|nAngel's kiss - 50 gold|n|nENCHANTMENT MAGIC:|nGuard - 25 gold|nBlinding - 25 gold|nShell - 50 gold|nStupidity - 50 gold|n|nMISCELLANEOUS MAGIC:|nUnderstanding - 25 gold|nWarp - 50 gold>
	end define

end define

define procedure <character selection>
	clear
	msg <What will this character's name be?>
	enter <temp>
	property <#quest.thing#; name=#temp#>
	property <#quest.thing#; alias=#temp#>
	choose <race selection>
	choose <gender selection>
	choose <class selection>
	wait
	
end define

define procedure <introduction>
	clear
	msg <|jc|iThis was once a world of peace, an age of prosperity, a fairytale kingdom...|n>
	msg <|jc|iHow things have changed.|n>
	msg <|jc|iMonsters have begun to appear everywhere. The only safe places are defended towns and cities, though even these are losing protection,|n>
	msg <|jc|iHuge majestic buildings, temples and even castles have fallen into ruin, conquered by evil creatures,|n>
	msg <|jc|iSimple resources are becoming rare and difficult to obtain,|n>
	msg <|jc|iAnd above all a dark shadow is forming, slowly drawing power from chaos.|n>
	msg <|jc|iMany heroes have set out in hope of saving the land, but all have failed.|n>
	wait <|jc|iYet while the free races join together and resist the doom upon the land then all hope is not lost.|xi>
	clear
	msg <|bYour story:|xb|n>
	msg <|jcYou were just a young child when you were thrown out of the villiage, accused of a crime you did not commit. No towns nearby would adopt you, and were forced to live off the wilderness. Despite all odds you survived a long time, living like a scavenger. During this time you learnt many skills such as finding food, coping with exhaustion, and fighting.|nIn you time in the wilderness you met up with three other outcasts in a similiar situation to yours. Despite great differences you became good friends and helped each other out in desperate times.|nNow the wilderness is becoming too dangerous to live in with increasing monsters. You and your friends have returned to the villiage you were cast out of, in search of work suitable to a small group such as yourself.>
	wait
	clear
	font <Old English Text MT>
	msg <|jc|cr|s50|xiRPG>
	font <>
	msg <|jc|cr|s14|iReading Presented Gallivant|xi|cb|n|n|n>
	msg <|jc|s00|cbCreated by Christopher Ames|jl>
	wait <>
	clear
	goto <Hometon>
	move <char1; Hometon>
	move <char2; Hometon>
	move <char3; Hometon>
	move <char4; Hometon>
	do <calculate stats>
	set numeric <weather; 10>
	
end define

define procedure <level up check>
	if ( #(quest.thing):xp# >= 10 ) and ( #(quest.thing):level# = 1 ) then {
		property <#quest.thing#; level=2>
		do <level up>
	}
	if ( #(quest.thing):xp# >= 30 ) and ( #(quest.thing):level# = 2 ) then {
		property <#quest.thing#; level=3>
		do <level up>
	}
	if ( #(quest.thing):xp# >= 80 ) and ( #(quest.thing):level# = 3 ) then {
		property <#quest.thing#; level=4>
		do <level up>
	}
	if ( #(quest.thing):xp# >= 150 ) and ( #(quest.thing):level# = 4 ) then {
		property <#quest.thing#; level=5>
		do <level up>
	}
	if ( #(quest.thing):xp# >= 250 ) and ( #(quest.thing):level# = 5 ) then {
		property <#quest.thing#; level=6>
		do <level up>
	}
	if ( #(quest.thing):xp# >= 400 ) and ( #(quest.thing):level# = 6 ) then {
		property <#quest.thing#; level=7>
		do <level up>
	}
	if ( #(quest.thing):xp# >= 700 ) and ( #(quest.thing):level# = 7 ) then {
		property <#quest.thing#; level=8>
		do <level up>
	}
	if ( #(quest.thing):xp# >= 1200 ) and ( #(quest.thing):level# = 8 ) then {
		property <#quest.thing#; level=9>
		do <level up>
	}
	if ( #(quest.thing):xp# >= 1900 ) and ( #(quest.thing):level# = 9 ) then {
		property <#quest.thing#; level=10>
		do <level up>
	}
	if ( #(quest.thing):xp# >= 3000 ) and ( #(quest.thing):level# = 10 ) then {
		property <#quest.thing#; level=11>
		do <level up>
	}
	if ( #(quest.thing):xp# >= 5000 ) and ( #(quest.thing):level# = 11 ) then {
		property <#quest.thing#; level=12>
		do <level up>
	}
	if ( #(quest.thing):xp# >= 8000 ) and ( #(quest.thing):level# = 12 ) then {
		property <#quest.thing#; level=13>
		do <level up>
	}
	if ( #(quest.thing):xp# >= 13000 ) and ( #(quest.thing):level# = 13 ) then {
		property <#quest.thing#; level=14>
		do <level up>
	}
	if ( #(quest.thing):xp# >= 20000 ) and ( #(quest.thing):level# = 14 ) then {
		property <#quest.thing#; level=15>
		do <level up>
	}
	if ( #(quest.thing):xp# >= 29000 ) and ( #(quest.thing):level# = 15 ) then {
		property <#quest.thing#; level=16>
		do <level up>
	}
	if ( #(quest.thing):xp# >= 40000 ) and ( #(quest.thing):level# = 16 ) then {
		property <#quest.thing#; level=17>
		do <level up>
	}
	if ( #(quest.thing):xp# >= 55000 ) and ( #(quest.thing):level# = 17 ) then {
		property <#quest.thing#; level=18>
		do <level up>
	}
	if ( #(quest.thing):xp# >= 75000 ) and ( #(quest.thing):level# = 18 ) then {
		property <#quest.thing#; level=19>
		do <level up>
	}
	if ( #(quest.thing):xp# >= 100000 ) and ( #(quest.thing):level# = 19 ) then {
		property <#quest.thing#; level=20>
		do <level up>
	}
	
end define

define procedure <level up>
	if ( #(quest.thing):class# = warrior ) then {
		set numeric <strplus; $rand(4;5)$>
		set numeric <agiplus; $rand(2;4)$>
		set numeric <intplus; $rand(0;1)$>
		set numeric <wisplus; $rand(1;2)$>
		set numeric <spiplus; $rand(0;1)$>
		set numeric <evaplus; $rand(2;3)$>
		set numeric <defplus; $rand(2;5)$>
		set numeric <mdefplus; $rand(1;3)$>
		set numeric <speplus; $rand(2;3)$>
		set numeric <hpplus; $rand(4;7)$>
		set numeric <mpplus; $rand(1;1)$>
	}
	if ( #(quest.thing):class# = rogue ) then {
		set numeric <strplus; $rand(2;3)$>
		set numeric <agiplus; $rand(4;5)$>
		set numeric <intplus; $rand(1;3)$>
		set numeric <wisplus; $rand(0;1)$>
		set numeric <spiplus; $rand(0;2)$>
		set numeric <evaplus; $rand(4;5)$>
		set numeric <defplus; $rand(1;2)$>
		set numeric <mdefplus; $rand(1;3)$>
		set numeric <speplus; $rand(3;4)$>
		set numeric <hpplus; $rand(2;5)$>
		set numeric <mpplus; $rand(2;3)$>
	}
	if ( #(quest.thing):class# = barbarian ) then {
		set numeric <strplus; $rand(5;6)$>
		set numeric <agiplus; $rand(2;3)$>
		set numeric <intplus; $rand(0;0)$>
		set numeric <wisplus; $rand(0;1)$>
		set numeric <spiplus; $rand(0;0)$>
		set numeric <evaplus; $rand(1;3)$>
		set numeric <defplus; $rand(3;5)$>
		set numeric <mdefplus; $rand(0;2)$>
		set numeric <speplus; $rand(1;2)$>
		set numeric <hpplus; $rand(5;10)$>
		set numeric <mpplus; $rand(0;0)$>
	}
	if ( #(quest.thing):class# = defender ) then {
		set numeric <strplus; $rand(1;3)$>
		set numeric <agiplus; $rand(1;2)$>
		set numeric <intplus; $rand(1;2)$>
		set numeric <wisplus; $rand(2;4)$>
		set numeric <spiplus; $rand(1;1)$>
		set numeric <evaplus; $rand(0;2)$>
		set numeric <defplus; $rand(4;5)$>
		set numeric <mdefplus; $rand(4;5)$>
		set numeric <speplus; $rand(1;2)$>
		set numeric <hpplus; $rand(4;9)$>
		set numeric <mpplus; $rand(3;5)$>
	}
	if ( #(quest.thing):class# = sorcerer ) then {
		set numeric <strplus; $rand(0;1)$>
		set numeric <agiplus; $rand(2;3)$>
		set numeric <intplus; $rand(2;3)$>
		set numeric <wisplus; $rand(1;2)$>
		set numeric <spiplus; $rand(5;6)$>
		set numeric <evaplus; $rand(1;2)$>
		set numeric <defplus; $rand(0;2)$>
		set numeric <mdefplus; $rand(2;5)$>
		set numeric <speplus; $rand(1;3)$>
		set numeric <hpplus; $rand(0;5)$>
		set numeric <mpplus; $rand(5;10)$>
	}
	if ( #(quest.thing):class# = enchanter ) then {
		set numeric <strplus; $rand(2;2)$>
		set numeric <agiplus; $rand(1;3)$>
		set numeric <intplus; $rand(5;6)$>
		set numeric <wisplus; $rand(1;2)$>
		set numeric <spiplus; $rand(1;2)$>
		set numeric <evaplus; $rand(1;3)$>
		set numeric <defplus; $rand(1;2)$>
		set numeric <mdefplus; $rand(1;4)$>
		set numeric <speplus; $rand(2;3)$>
		set numeric <hpplus; $rand(2;5)$>
		set numeric <mpplus; $rand(3;8)$>
	}
	if ( #(quest.thing):class# = healer ) then {
		set numeric <strplus; $rand(0;2)$>
		set numeric <agiplus; $rand(0;2)$>
		set numeric <intplus; $rand(1;3)$>
		set numeric <wisplus; $rand(5;6)$>
		set numeric <spiplus; $rand(0;1)$>
		set numeric <evaplus; $rand(2;3)$>
		set numeric <defplus; $rand(1;2)$>
		set numeric <mdefplus; $rand(3;4)$>
		set numeric <speplus; $rand(1;3)$>
		set numeric <hpplus; $rand(1;5)$>
		set numeric <mpplus; $rand(4;8)$>
	}
	if ( #(quest.thing):class# = generalist ) then {
		set numeric <strplus; $rand(2;3)$>
		set numeric <agiplus; $rand(2;3)$>
		set numeric <intplus; $rand(2;3)$>
		set numeric <wisplus; $rand(2;3)$>
		set numeric <spiplus; $rand(2;3)$>
		set numeric <evaplus; $rand(2;3)$>
		set numeric <defplus; $rand(2;3)$>
		set numeric <mdefplus; $rand(2;3)$>
		set numeric <speplus; $rand(2;3)$>
		set numeric <hpplus; $rand(3;6)$>
		set numeric <mpplus; $rand(3;6)$>
	}
	if ( #(quest.thing):race# = dwarf ) then {
		inc <strplus; $rand(0;1)$>
		inc <evaplus; $rand(0;1)$>
		dec <defplus; $rand(0;1)$>
		dec <agiplus; $rand(0;1)$>
		inc <wisplus; $rand(0;1)$>
		dec <intplus; $rand(0;1)$>
	}
	if ( #(quest.thing):race# = gnome ) then {
		dec <strplus; $rand(0;1)$>
		dec <defplus; 1>
		inc <speplus; $rand(0;1)$>
		inc <intplus; $rand(0;1)$>
		inc <agiplus; $rand(0;1)$>
	}
	if ( #(quest.thing):race# = elf ) then {
		dec <hpplus; $rand(0;1)$>
		dec <intplus; $rand(0;1)$>
		inc <mpplus; 1>
		inc <spiplus; $rand(0;1)$>
	}
	if ( #(quest.thing):race# = orc ) then {
		inc <defplus; $rand(0;1)$>
		inc <mdefplus; $rand(0;1)$>
		dec <intplus; $rand(0;1)$>
		dec <wisplus; $rand(0;1)$>
		dec <spiplus; $rand(0;1)$>
		dec <speplus; $rand(0;1)$>
	}
	if ( #(quest.thing):race# = kratoos ) then {
		inc <speplus; $rand(1;2)$>
		dec <evaplus; $rand(0;1)$>
		dec <agiplus; $rand(0;1)$>
	}
	if ( #(quest.thing):gender# = male ) then {
		inc <strplus; $rand(0;1)$>
		inc <hpplus; 1>
		dec <spiplus; $rand(0;1)$>
		dec <agiplus; $rand(0;1)$>
	}
	if ( #(quest.thing):gender# = female ) then {
		dec <strplus; $rand(0;1)$>
		dec <hpplus; 1>
		inc <spiplus; $rand(0;1)$>
		inc <agiplus; $rand(0;1)$>
	}
	if ( %strplus% < 0 ) then set numeric <strplus; 0>
	if ( %agiplus% < 0 ) then set numeric <agiplus; 0>
	if ( %intplus% < 0 ) then set numeric <intplus; 0>
	if ( %wisplus% < 0 ) then set numeric <wisplus; 0>
	if ( %spiplus% < 0 ) then set numeric <spiplus; 0>
	if ( %defplus% < 0 ) then set numeric <defplus; 0>
	if ( %mdefplus% < 0 ) then set numeric <mdefplus; 0>
	if ( %evaplus% < 0 ) then set numeric <evaplus; 0>
	if ( %speplus% < 0 ) then set numeric <speplus; 0>
	if ( %hpplus% < 0 ) then set numeric <hpplus; 0>
	if ( %mpplus% < 0 ) then set numeric <mpplus; 0>
	set numeric <temp; #(quest.thing):base_strength# + %strplus%>
	property <#quest.thing#; base_strength=%temp%>
	set numeric <temp; #(quest.thing):base_agility# + %agiplus%>
	property <#quest.thing#; base_agility=%temp%>
	set numeric <temp; #(quest.thing):base_intelligence# + %intplus%>
	property <#quest.thing#; base_intelligence=%temp%>
	set numeric <temp; #(quest.thing):base_wisdom# + %wisplus%>
	property <#quest.thing#; base_wisdom=%temp%>
	set numeric <temp; #(quest.thing):base_spirit# + %spiplus%>
	property <#quest.thing#; base_spirit=%temp%>
	set numeric <temp; #(quest.thing):base_evasion# + %evaplus%>
	property <#quest.thing#; base_evasion=%temp%>
	set numeric <temp; #(quest.thing):base_defence# + %defplus%>
	property <#quest.thing#; base_defence=%temp%>
	set numeric <temp; #(quest.thing):base_magic_defence# + %mdefplus%>
	property <#quest.thing#; base_magic_defence=%temp%>
	set numeric <temp; #(quest.thing):base_speed# + %speplus%>
	property <#quest.thing#; base_speed=%temp%>
	set numeric <temp; #(quest.thing):base_health# + %hpplus%>
	property <#quest.thing#; base_health=%temp%>
	set numeric <temp; #(quest.thing):base_magic# + %mpplus%>
	property <#quest.thing#; base_magic=%temp%>
	msg <Congratulations! #(quest.thing):name# has reached experience level #(quest.thing):level#!>
	msg <Strength + %strplus%! Agility + %agiplus%! Intelligence + %intplus%! Wisdom + %wisplus%! Spirit + %spiplus%! Evasion + %evaplus%! Defence + %defplus%! Magic defence + %mdefplus%! Speed + %speplus%! Health + %hpplus%! Magic + %mpplus%!>
	
end define

define procedure <use an item>
	if property <#target#; character> then {
		if property <#item#; item> then doaction <#item#; use> else msg <You can't use that item on a character.>
	}
	else exec <use #@item# on #@target#; normal>
	
end define

define procedure <time calculation>
	set string <tempcom; $left(#quest.command#;4)$>
	if not ( #tempcom# = view ) and not ( #tempcom# = info ) then {
		if property <#quest.currentroom#; town> or property <#quest.currentroom#; battle> then {
			inc <minute; 1>
			inc <foodtimer; 1>
			inc <sleeptimer; 1>
		}
		if property <#quest.currentroom#; dungeon> then {
			inc <minute; 5>
			inc <foodtimer; 5>
			inc <sleeptimer; 5>
		}
		if property <#quest.currentroom#; wilderness> then {
			inc <minute; 30>
			inc <foodtimer; 30>
			inc <sleeptimer; 30>
		}
	}
	if ( %minute% >= 60 ) then {
		dec <minute; 60>
		inc <hour; 1>
		set numeric <temp1; $rand(1;3)$>
		set numeric <temp2; $rand(1;3)$>
		if ( %temp1% = 1 ) then {
			msg <The weather seems to be getting cooler.>
			dec <weather; %temp2%>
		}
		if ( %temp1% = 2 ) then {
			msg <The weather seems to be getting warmer.>
			inc <weather; %temp2%>
		}
	}
	if ( %hour% >= 24 ) then {
		dec <hour; 24>
		inc <day; 1>
	}
	if ( %hour% < 6 ) or ( %hour% >= 18 ) then flag on <night> else flag off <night>
	if ( %foodtimer% < 0 ) then {
		set numeric <foodtimer; 0>
	}
	if ( %sleeptimer% < 0 ) then {
		set numeric <sleeptimer; 0>
	}
	
end define

define procedure <time display>
	msg <The current time is %hour% hours and %minute% minutes.|xn>
	if not flag <night> then msg <It is currently day-time.> else msg <It is currently night-time.>
	msg <You have been adventuring for %day% days.>
	if property <#quest.currentroom#; wilderness> then {
		if ( %weather% = 1 ) then msg <You are caught in a blizzard.>
		if ( %weather% = 2 ) then msg <You are caught in a hailstorm.>
		if ( %weather% = 3 ) then msg <You are caught in a storm.>
		if ( %weather% = 4 ) then msg <It is raining.>
		if ( %weather% = 5 ) then msg <It is raining lightly.>
		if ( %weather% = 6 ) then msg <It is getting cloudy.>
		if ( %weather% >= 7 ) and ( %weather% <= 14 ) then msg <It is fine and sunny.>
		if ( %weather% = 15 ) then msg <It is rather warm.>
		if ( %weather% = 16 ) then msg <It is quite hot.>
		if ( %weather% = 17 ) then msg <It is steaming hot.>
		if ( %weather% = 18 ) then msg <You are caught in boiling temperatures.>
		if ( %weather% = 19 ) then msg <You are caught in a heatwave.>
		if ( %weather% = 20 ) then msg <You are caught in a drought.>
	}
	else {
		if ( %weather% < 7 ) then msg <It seems to be cold outside.>
		if ( %weather% => 7 ) and ( %weather% =< 14) then msg <It seems to be fine outside.>
		if ( %weather% > 14 ) then msg <It seems to be warm outside.>
	}
	
end define

define procedure <sell something>
	msg <"Okay, what would you like to sell?">
	enter <temp>
	flag off <tempflag>
	for each object in <inventory> if property <#quest.thing#; #temp#> and not flag <tempflag> then {
		set string <2temp; #quest.thing#>
		flag on <tempflag>
	}
	flag off <tempflag>
	if got <#2temp#> then {
		if property <#2temp#; sellable> then {
			if property <#2temp#; normal> then {
				msg <"How many will you sell me?">
				enter <temp2>
				set numeric <temp3; #temp2#>
				if ( %temp3% = 0 ) then msg <"So you've changed you mind? That's fine.">
				if ( %temp3% > 0 ) then {
					if ( %#2temp#% > %temp3% ) then {
						set numeric <temp4; #(temp):sell_price#>
						set numeric <temp5; %temp3%*%temp4%>
						msg <"I'll pay %temp5% gold coins for %temp3% #2temp#s. Is that okay?">
						if ask <Sell %temp3% #2temp#s for %temp5%?> then {
							msg <"Okay, here's your money.">
							inc <gold; %temp5%>
							dec <#2temp#; %temp3%>
						}
						else msg <"So you've changed your mind? That's fine.">
					}
					else msg <"You don't have that many!">
				}
			}
			else {
				msg <"I'll pay #(2temp):sell_price# gold for that. Is that okay?">
				if ask <Sell your #2temp# for #(2temp):sell_price# gold?> then {
					msg <"Okay, here's your money.">
					set numeric <tempp; #(2temp):sell_price#>
					inc <gold; %tempp%>
					lose <#2temp#>
					hide <#2temp#>
				}
				else msg <"So you've changed your mind? That's fine.">
			}
		}
		else msg <"I'm sorry, I can't buy that from you.">
	}
	else msg <The shopkeeper looks bewildered. "But you don't have that!">
	
end define

define procedure <buy normal item>
	msg <"How many #item#s do you want?">
	enter <temp>
	set numeric <temp3; #temp#>
	if ( %temp3% = 0 ) then msg <"So you've changed your mind then?">
	if ( %temp3% > 0 ) then {
		set numeric <temp2; %temp3%*%itemcost%>
		if ( %temp2% > %gold% ) then msg <"You can't afford that many!"> else {
			msg <"It will cost you %temp2% gold coins to buy %temp3% #item#s. Is that okay?">
			if ask <Buy %temp3% #item#s for %temp2% gold?> then msg <ok>
			dec <gold; %temp2%>
			inc <#item#; %temp3%>
			msg <"Here are your goods, and thank you for shopping!">
		}
	}
	
end define

define procedure <free room>
	msg <"You can stay in this room for free. Is that okay?">
	if ask <Stay in a free room for 0 gold?> then {
		msg <The innkeeper leads you to a ruined and tatty room. You spend the next night sleeping incredibly uncomfortably, and wake up somewhat refreshed.>
		for each object in <inventory> {
			if property <#quest.thing#; character> then {
				set numeric <temp; #(quest.thing):max_health# / 3>
				property <#quest.thing#; health=%temp%>
				if ( #(quest.thing):health# > #(quest.thing):max_health# ) then property <#quest.thing#; health=#(quest.thing):max_health#>
				set numeric <temp; #(quest.thing):max_magic# / 3>
				property <#quest.thing#; magic=%temp%>
				if ( #(quest.thing):magic# > #(quest.thing):max_magic# ) then property <#quest.thing#; magic=#(quest.thing):max_magic#>
			}
			if property <#quest.thing#; sellable> then {
				set numeric <tempsteal; $rand(1;5)$>
				if ( %tempsteal% = 1 ) then {
					hide <#quest.thing#>
					msg <You find your #quest.thing# has been taken in your sleep!>
					set numeric <#quest.thing#; 0>
				}
			}
			set numeric <hour; 6>
			set numeric <minute; 0>
			set numeric <sleeptimer; 0>
			inc <day; 1>
		}
	}
	
end define

define procedure <cheap room>
	msg <"A cheap room will cost you %tempcost% gold. Is that okay?">
	if ask <Stay in a cheap room for %tempcost% gold?> then {
		if ( %gold% >= %tempcost% ) then {
			msg <The innkeeper leads you to a cheap shabby room. You spend the next night sleeping uncomfortably, and wake up somewhat refreshed.>
			msg <When you wake up you get a small complimentary breakfast.>
			dec <gold; %tempcost%>
			for each object in <inventory> {
				if property <#quest.thing#; character> then {
					set numeric <temp; #(quest.thing):max_health# / 3>
					property <#quest.thing#; health=%temp%>
					if ( #(quest.thing):health# > #(quest.thing):max_health# ) then property <#quest.thing#; health=#(quest.thing):max_health#>
					set numeric <temp; #(quest.thing):max_magic# / 3>
					property <#quest.thing#; magic=%temp%>
					if ( #(quest.thing):magic# > #(quest.thing):max_magic# ) then property <#quest.thing#; magic=#(quest.thing):max_magic#>
				}
				set numeric <hour; 6>
				set numeric <minute; 0>
				inc <day; 1>
				dec <foodtimer; 360>
				set numeric <sleeptimer; 0>
			}
			else msg <"You don't have enough gold!">
		}
	}
	
end define

define procedure <normal room>
	msg <"A normal room will cost you %tempcost% gold. Is that okay?">
	if ask <Stay in a normal room for %tempcost% gold?> then {
		if ( %gold% >= %tempcost% ) then {
			msg <The innkeeper leads you to a normal inn room. You spend the next night sleeping well and feel mostly refreshed.>
			msg <When you wake up you get a complimentary breakfast.>
			dec <gold; %tempcost%>
			for each object in <inventory> {
				if property <#quest.thing#; character> then {
					set numeric <temp; #(quest.thing):max_health# / 3>
					set numeric <temp; temp*2>
					property <#quest.thing#; health=%temp%>
					if ( #(quest.thing):health# > #(quest.thing):max_health# ) then property <#quest.thing#; health=#(quest.thing):max_health#>
					set numeric <temp; #(quest.thing):max_magic# / 3>
					set numeric <temp; temp*2>
					property <#quest.thing#; magic=%temp%>
					if ( #(quest.thing):magic# > #(quest.thing):max_magic# ) then property <#quest.thing#; magic=#(quest.thing):max_magic#>
				}
				set numeric <hour; 6>
				set numeric <minute; 0>
				inc <day; 1>
				dec <foodtimer; 560>
				set numeric <sleeptimer; 0>
			}
			else msg <"You don't have enough gold!">
		}
	}
	
end define

define procedure <expensive room>
	msg <"An expensive room will cost you %tempcost% gold. Is that okay?">
	if ask <Stay in an expensive room for %tempcost% gold?> then {
		if ( %gold% >= %tempcost% ) then {
			msg <The innkeeper leads you to a well-furnished expensive inn room. You spend the next night sleeping very comfortably and feel very refreshed.>
			msg <When you wake up you get a large complimentary breakfast.>
			dec <gold; %tempcost%>
			for each object in <inventory> {
				if property <#quest.thing#; character> then {
					set numeric <temp; #(quest.thing):max_health# / 3>
					set numeric <temp; temp*2>
					property <#quest.thing#; health=%temp%>
					if ( #(quest.thing):health# > #(quest.thing):max_health# ) then property <#quest.thing#; health=#(quest.thing):max_health#>
					set numeric <temp; #(quest.thing):max_magic# / 3>
					set numeric <temp; temp*2>
					property <#quest.thing#; magic=%temp%>
					property <#quest.thing#; not poison>
					property <#quest.thing#; not mind_drain>
					property <#quest.thing#; not mind_destroy>
					property <#quest.thing#; not deadly_poison>
					property <#quest.thing#; not paralyse>
					property <#quest.thing#; not burn>
					property <#quest.thing#; not silence>
					property <#quest.thing#; not numb>
					property <#quest.thing#; not blind>
					property <#quest.thing#; not sleep>
					property <#quest.thing#; not bind>
					property <#quest.thing#; not curse>
					if ( #(quest.thing):magic# > #(quest.thing):max_magic# ) then property <#quest.thing#; magic=#(quest.thing):max_magic#>
				}
				set numeric <hour; 6>
				set numeric <minute; 0>
				inc <day; 1>
				dec <foodtimer; 720>
				set numeric <sleeptimer; 0>
			}
			else msg <"You don't have enough gold!">
		}
	}
	
end define

define procedure <priceless room>
	msg <"A priceless room will cost you %tempcost% gold. Is that okay?">
	if ask <Stay in a priceless room for %tempcost% gold?> then {
		if ( %gold% >= %tempcost% ) then {
			msg <The innkeeper leads you to a luxurious inn room. You spend the next night sleeping perfectly and feel completely refreshed.>
			msg <When you wake up you get a smorgasbord complimentary breakfast.>
			dec <gold; %tempcost%>
			for each object in <inventory> {
				if property <#quest.thing#; character> then {
					property <#quest.thing#; health=#(quest.thing):max_health#>
					property <#quest.thing#; magic=#(quest.thing):max_magic#>
					property <#quest.thing#; not poison>
					property <#quest.thing#; not deadly_poison>
					property <#quest.thing#; not mind_drain>
					property <#quest.thing#; not mind_destroy>
					property <#quest.thing#; not paralyse>
					property <#quest.thing#; not burn>
					property <#quest.thing#; not silence>
					property <#quest.thing#; not numb>
					property <#quest.thing#; not blind>
					property <#quest.thing#; not sleep>
					property <#quest.thing#; not bind>
					property <#quest.thing#; not curse>
				}
				set numeric <hour; 6>
				set numeric <minute; 0>
				inc <day; 1>
				set numeric <foodtimer; 0>
				set numeric <sleeptimer; 0>
			}
			else msg <"You don't have enough gold!">
		}
	}
	
end define

define procedure <pray>
	if ( #char1:health# > 0 ) and ( #char2:health# > 0 ) and ( #char3:health# > 0 ) and ( #char4:health# > 0 ) then msg <You offer a small prayer to the gods, but notice no effect.> else {
		for each object in <#quest.currentroom#> if property <#quest.thing#; character> and ( #(quest.thing):health# = 0 ) then {
			msg <How much gold will you offer to the gods for #(quest.thing):name#'s revival?>
			enter <temp>
			set numeric <temp2; #temp#>
			if ( %gold% < %temp2% ) then {
				msg <You don't have that much gold!>
				set numeric <temp2; 0>
			}
			dec <gold; %temp2%>
			set numeric <temp33; %temp2%/2>
			set numeric <temp3; $rand(%temp33%;%temp2%)$>
			set numeric <tempp; #(quest.thing):base_wisdom#>
			inc <temp3; %tempp%>
			if ( %temp3% > 35 ) then {
				msg <A bright light shines down and engulfs #(quest.thing):name#! A moment later #(quest.thing):name# is revived!>
				set numeric <temp4; 1+%temp2%>
				property <#quest.thing#; health=%temp4%>
				if ( #(quest.thing):health# > #(quest.thing):max_health# ) then property <#quest.thing#; health=#(quest.thing):max_health#>
				set numeric <temp4; %temp4%/2>
			}
			else msg <#(quest.thing):name# is not deemed worthy of a second chance.>
		}
	}
	
end define

define procedure <louie bet>
	dec <gold; %temp%>
	msg <"Pick a card, 1 through 13." Louie says.>
	enter <temp2>
	set numeric <temp2; $rand(1;13)$>
	if ( %temp2% = 1 ) then {
		msg <Louie flips the card. It's an ace!|n"Lucky bugger," Louie says, duefully handing you your money.>
		set numeric <temp3; %temp%*3>
		inc <gold; %temp3%>
	}
	if ( %temp2% = 2 ) then {
		msg <Louie flips the card. It's a King!|n"Lucky bugger," Louie says, duefully handing you your money.>
		set numeric <temp3; %temp%*2>
		inc <gold; %temp3%>
	}
	if ( %temp2% = 3 ) then {
		msg <Louie flips the card. It's a Queen!|n"Lucky bugger," Louie says, duefully handing you your money.>
		set numeric <temp3; %temp%*3>
		set numeric <temp4; %temp3%/2>
		inc <gold; %temp4%>
	}
	if ( %temp2% = 4 ) then {
		msg <Louie flips the card. It's a Jack.|n"Hmmm," Louie says, duefully handing you your money back.>
		inc <gold; %temp%>
	}
	if ( %temp2% > 4 ) then {
		msg <Louie flips the card. It's a number card.|n"Sorry pal, batter luck next time. Wanna play again?" Louie offers kindly.>
		if ask <Play again?> then choose <Louie>
	}
	exec <save; normal>
	
end define

define procedure <equip something>
	if property <#item#; body> then {
		msg <#@target# equips the #@item#.>
		if ( #(target):armour_body# <> none ) then show <#(target):armour_body#>
		property <#target#; armour_body=#item#>
		hide <#item#>
		set string <quest.thing; #target#>
		do <calculate stats>
	}
	if property <#item#; shield> then {
		if not property <#(target):weapon#; two-handed> then {
			msg <#@target# equips the #@item#.>
			if ( #(target):armour_shield# <> none ) then show <#(target):armour_shield#>
			property <#target#; armour_shield=#item#>
			hide <#item#>
			set string <quest.thing; #target#>
			do <calculate stats>
		}
		else msg <You can't use a shield with a two-handed weapon.>
	}
	if property <#item#; glove> then {
		msg <#@target# equips the #@item#.>
		if ( #(target):armour_glove# <> none ) then show <#(target):armour_glove#>
		property <#target#; armour_glove=#item#>
		hide <#item#>
		set string <quest.thing; #target#>
		do <calculate stats>
	}
	if property <#item#; helm> then {
		msg <#@target# equips the #@item#.>
		if ( #(target):armour_helm# <> none ) then show <#(target):armour_helm#>
		property <#target#; armour_helm=#item#>
		hide <#item#>
		set string <quest.thing; #target#>
		do <calculate stats>
	}
	if property <#item#; accessory> then {
		msg <#@target# equips the #@item#.>
		if ( #(target):armour_accessory# <> none ) then show <#(target):armour_accessory#>
		property <#target#; armour_accessory=#item#>
		hide <#item#>
		set string <quest.thing; #target#>
		do <calculate stats>
	}
	if property <#item#; weapon> then {
		msg <#@target# equips the #@item#.>
		if ( #(target):weapon# <> none ) then show <#(target):weapon#>
		property <#target#; weapon=#item#>
		hide <#item#>
		set string <quest.thing; #target#>
		do <calculate stats>
	}
	
end define

define procedure <unequip something>
	if ( #temp# = weapon ) then {
		if ( #(target):weapon# <> none ) then {
			msg <#@target# unequips #(target):weapon#>
			show <#(target):weapon#>
			property <#target#; weapon=none>
			set string <quest.thing; #target#>
			do <calculate stats>
		}
		else msg <You do not have a weapon ready.>
	}
	if ( #temp# = body armour ) then {
		if ( #(target):armour_body# <> none ) then {
			msg <#@target# unequips #(target):armour_body#>
			show <#(target):armour_body#>
			property <#target#; armour_body=none>
			set string <quest.thing; #target#>
			do <calculate stats>
		}
		else msg <You are wearing no body armour.>
	}
	if ( #temp# = helm ) then {
		if ( #(target):armour_helm# <> none ) then {
			msg <#@target# unequips #(target):armour_helm#>
			show <#(target):armour_helm#>
			property <#target#; helm=none>
			set string <quest.thing; #target#>
			do <calculate stats>
		}
		else msg <You are wearing no helm.>
	}
	if ( #temp# = gloves ) then {
		if ( #(target):armour_glove# <> none ) then {
			msg <#@target# unequips #(target):armour_glove#>
			show <#(target):armour_glove#>
			property <#target#; armour_glove=none>
			set string <quest.thing; #target#>
			do <calculate stats>
		}
		else msg <You are wearing no gloves.>
	}
	if ( #temp# = shield ) then {
		if ( #(target):armour_shield# <> none ) then {
			msg <#@target# unequips #(target):armour_shield#>
			show <#(target):armour_shield#>
			property <#target#; shield=none>
			set string <quest.thing; #target#>
			do <calculate stats>
		}
		else msg <You are wearing no shield.>
	}
	if ( #temp# = accessory ) then {
		if ( #(target):armour_accessory# <> none ) then {
			msg <#@target# unequips #(target):armour_accessory#>
			show <#(target):armour_accessory#>
			property <#target#; accessory=none>
			set string <quest.thing; #target#>
			do <calculate stats>
		}
		else msg <You are wearing no accessory.>
	}
	
end define

define procedure <calculate stats>
	for each object in <#quest.currentroom#> if property <#quest.thing#; character> then {
		set numeric <tempstr; #(quest.thing):base_strength#+#(quest.thing):temp_strength#>
		set numeric <tempagi; #(quest.thing):base_agility#+#(quest.thing):temp_agility#>
		set numeric <tempint; #(quest.thing):base_intelligence#+#(quest.thing):temp_intelligence#>\
		set numeric <tempspi; #(quest.thing):base_spirit#+#(quest.thing):temp_spirit#>
		set numeric <tempwis; #(quest.thing):base_wisdom#+#(quest.thing):temp_wisdom#>
		set numeric <tempeva; #(quest.thing):base_evasion#+#(quest.thing):temp_evasion#>
		set numeric <tempdef; #(quest.thing):base_defence#+#(quest.thing):temp_defence#>
		set numeric <tempmdef; #(quest.thing):base_magic_defence#+#(quest.thing):temp_magic_defence#>
		set numeric <tempspe; #(quest.thing):base_speed#+#(quest.thing):temp_speed#>
		set string <temp2; #(quest.thing):weapon#>
		set numeric <tempstr; %tempstr%+#(temp2):strextra#>
		set numeric <tempagi; %tempagi%+#(temp2):agiextra#>
		set numeric <tempint; %tempint%+#(temp2):intextra#>
		set numeric <tempspi; %tempspi%+#(temp2):spiextra#>
		set numeric <tempwis; %tempwis%+#(temp2):wosextra#>
		set numeric <tempeva; %tempeva%+#(temp2):evaextra#>
		set numeric <tempdef; %tempdef%+#(temp2):defextra#>
		set numeric <tempmdef; %tempmdef%+#(temp2):mdefextra#>
		set numeric <tempspe; %tempspe%+#(temp2):spiextra#>
		set string <temp2; #(quest.thing):armour_body#>
		set numeric <tempstr; %tempstr%+#(temp2):strextra#>
		set numeric <tempagi; %tempagi%+#(temp2):agiextra#>
		set numeric <tempint; %tempint%+#(temp2):intextra#>
		set numeric <tempspi; %tempspi%+#(temp2):spiextra#>
		set numeric <tempwis; %tempwis%+#(temp2):wosextra#>
		set numeric <tempeva; %tempeva%+#(temp2):evaextra#>
		set numeric <tempdef; %tempdef%+#(temp2):defextra#>
		set numeric <tempmdef; %tempmdef%+#(temp2):mdefextra#>
		set numeric <tempspe; %tempspe%+#(temp2):spiextra#>
		set string <temp2; #(quest.thing):armour_shield#>
		set numeric <tempstr; %tempstr%+#(temp2):strextra#>
		set numeric <tempagi; %tempagi%+#(temp2):agiextra#>
		set numeric <tempint; %tempint%+#(temp2):intextra#>
		set numeric <tempspi; %tempspi%+#(temp2):spiextra#>
		set numeric <tempwis; %tempwis%+#(temp2):wosextra#>
		set numeric <tempeva; %tempeva%+#(temp2):evaextra#>
		set numeric <tempdef; %tempdef%+#(temp2):defextra#>
		set numeric <tempmdef; %tempmdef%+#(temp2):mdefextra#>
		set numeric <tempspe; %tempspe%+#(temp2):spiextra#>
		set string <temp2; #(quest.thing):armour_helm#>
		set numeric <tempstr; %tempstr%+#(temp2):strextra#>
		set numeric <tempagi; %tempagi%+#(temp2):agiextra#>
		set numeric <tempint; %tempint%+#(temp2):intextra#>
		set numeric <tempspi; %tempspi%+#(temp2):spiextra#>
		set numeric <tempwis; %tempwis%+#(temp2):wosextra#>
		set numeric <tempeva; %tempeva%+#(temp2):evaextra#>
		set numeric <tempdef; %tempdef%+#(temp2):defextra#>
		set numeric <tempmdef; %tempmdef%+#(temp2):mdefextra#>
		set numeric <tempspe; %tempspe%+#(temp2):spiextra#>
		set string <temp2; #(quest.thing):armour_glove#>
		set numeric <tempstr; %tempstr%+#(temp2):strextra#>
		set numeric <tempagi; %tempagi%+#(temp2):agiextra#>
		set numeric <tempint; %tempint%+#(temp2):intextra#>
		set numeric <tempspi; %tempspi%+#(temp2):spiextra#>
		set numeric <tempwis; %tempwis%+#(temp2):wosextra#>
		set numeric <tempeva; %tempeva%+#(temp2):evaextra#>
		set numeric <tempdef; %tempdef%+#(temp2):defextra#>
		set numeric <tempmdef; %tempmdef%+#(temp2):mdefextra#>
		set numeric <tempspe; %tempspe%+#(temp2):spiextra#>
		set string <temp2; #(quest.thing):armour_accessory#>
		set numeric <tempstr; %tempstr%+#(temp2):strextra#>
		set numeric <tempagi; %tempagi%+#(temp2):agiextra#>
		set numeric <tempint; %tempint%+#(temp2):intextra#>
		set numeric <tempspi; %tempspi%+#(temp2):spiextra#>
		set numeric <tempwis; %tempwis%+#(temp2):wosextra#>
		set numeric <tempeva; %tempeva%+#(temp2):evaextra#>
		set numeric <tempdef; %tempdef%+#(temp2):defextra#>
		set numeric <tempmdef; %tempmdef%+#(temp2):mdefextra#>
		set numeric <tempspe; %tempspe%+#(temp2):spiextra#>
		property <#quest.thing#; agility=%tempagi%>
		property <#quest.thing#; intelligence=%tempint%>
		property <#quest.thing#; spirit=%tempspi%>
		property <#quest.thing#; wisdom=%tempwis%>
		property <#quest.thing#; evasion=%tempeva%>
		property <#quest.thing#; defence=%tempdef%>
		property <#quest.thing#; magic_defence=%tempmdef%>
		property <#quest.thing#; strength=%tempstr%>
		property <#quest.thing#; speed=%tempspe%>
	}
	
end define

define procedure <food and rest>
	if ( %foodtimer% > 540 ) and not flag <food_warning_1> then {
		msg <You are starting to get peckish.>
		flag on <food_warning_1>
	}
	if ( %foodtimer% > 720 ) and not flag <food_warning_2> then {
		msg <You are a bit hungry.>
		flag on <food_warning_2>
	}
	if ( %foodtimer% > 840 ) and not flag <food_warning_3> then {
		msg <You are hungry now.>
		flag on <food_warning_3>
	}
	if ( %foodtimer% > 930 ) and not flag <food_warning_4> then {
		msg <You are very hungry.>
		flag on <food_warning_4>
	}
	if ( %foodtimer% > 990 ) and not flag <food_warning_5> then {
		msg <You are ravenous.>
		flag on <food_warning_5>
	}
	if ( %foodtimer% > 1035 ) and not flag <food_warning_6> then {
		msg <You are becoming very weak from hunger.>
		flag on <food_warning_6>
	}
	if ( %foodtimer% > 1065 ) and not flag <food_warning_7> then {
		msg <You can barely keep thinking from hunger.>
		flag on <food_warning_7>
	}
	if ( %foodtimer% > 1080 ) then {
		msg <Your hunger overcomes you and you collapse onto the ground dead.>
		playerlose
	}
	if ( %foodtimer% < 540 ) then flag off <food_warning_1>
	if ( %foodtimer% < 720 ) then flag off <food_warning_2>
	if ( %foodtimer% < 840 ) then flag off <food_warning_3>
	if ( %foodtimer% < 930 ) then flag off <food_warning_4>
	if ( %foodtimer% < 990 ) then flag off <food_warning_5>
	if ( %foodtimer% < 1035 ) then flag off <food_warning_6>
	if ( %foodtimer% < 1065 ) then flag off <food_warning_7>
	if ( %sleeptimer% > 1200 ) and not flag <sleep_warning_1> then {
		msg <You are starting to feel tired.>
		flag on <sleep_warning_1>
	}
	if ( %sleeptimer% > 1800 ) and not flag <sleep_warning_2> then {
		msg <You are feeling tired.>
		flag on <sleep_warning_2>
	}
	if ( %sleeptimer% > 2100 ) and not flag <sleep_warning_3> then {
		msg <You are feeling sleepy.>
		flag on <sleep_warning_3>
	}
	if ( %sleeptimer% > 2400 ) and not flag <sleep_warning_4> then {
		msg <You are feeling very tired.>
		flag on <sleep_warning_4>
	}
	if ( %sleeptimer% > 2580 ) and not flag <sleep_warning_5> then {
		msg <You are having difficulty concentrating.>
		flag on <sleep_warning_5>
	}
	if ( %sleeptimer% > 2760 ) and not flag <sleep_warning_6> then {
		msg <You're concentration is falling radidly from sleep loss.>
		flag on <sleep_warning_6>
	}
	if ( %sleeptimer% > 2820 ) and not flag <sleep_warning_7> then {
		msg <You can barely keep your eyelids open, let alone do anything much at all.>
		flag on <sleep_warning_7>
	}
	if ( %sleeptimer% > 2880 ) then {
		do <sleep loss>
	}
	if ( %sleeptimer% < 540 ) then flag off <sleep_warning_1>
	if ( %sleeptimer% < 720 ) then flag off <sleep_warning_2>
	if ( %sleeptimer% < 840 ) then flag off <sleep_warning_3>
	if ( %sleeptimer% < 930 ) then flag off <sleep_warning_4>
	if ( %sleeptimer% < 990 ) then flag off <sleep_warning_5>
	if ( %sleeptimer% < 1035 ) then flag off <sleep_warning_6>
	if ( %sleeptimer% < 1065 ) then flag off <sleep_warning_7>
	
end define

define procedure <view stats>
	helpmsg <|b#(char):name#|xb|n#(char):name# is a #(char):gender# #(char):race# #(char):class#.|nLEVEL: #(char):level#|nHEALTH: #(char):health# / #(char):max_health#|nMAGIC: #(char):magic# / #(char):max_magic#|n>
	if ( #status_string# <>  ) then helpmsg <#status_string#>
	helpmsg <|bStats|xb|nStrength: #(char):strength#|nAgility: #(char):agility#|nIntelligence: #(char):intelligence#|nSpirit: #(char):spirit#|nWisdom: #(char):wisdom#|nEvasion: #(char):evasion#|nDefence: #(char):defence#|nMagic Defence: #(char):magic_defence#|nSpeed: #(char):speed#|n>
	helpmsg <|bEquiptment|xb|nWeapon: #@(char):weapon#|nBody armour: #@(char):armour_body#|nShield: #@(char):armour_shield#|nHelm: #@(char):armour_helm#|nGloves: #@(char):armour_gloves#|nAccessory: #@(char):armour_accessory#|n>
	msg <|bWeapon Skills|xb|nKnives: #(char):skill_knife#|nSwords: #(char):skill_sword#|nSpears: #(char):skill_spear#|nAxe: #(char):skill_axe#|nBows: #(char):skill_bow#|nRods: #(char):skill_rod#|n>
	msg <|bSpell Skills|xb>
	for each object in <spell storage> {
		if property <#quest.thing#; misc> then {
			<#quest.thing#: Skill level N/A>
			}
		else {
		if property <#char#; spell_#quest.thing#> then msg <#quest.thing#: Skill level #(char):skill_(quest.thing)#>
		}
	}	
end define

define procedure <get status string>
	set string <status_string; >
	if property <#char#; health=0> then set string <status_string; #status_string#+DEAD> else {
		if property <#char#; poison> then set string <status_string; #status_string#+poison >
		if property <#char#; deadly_poison> then set string <status_string; #status_string#+deadly poison >
		if property <#char#; mind_drain> then set string <status_string; #status_string#+mind drain >
		if property <#char#; mind_destroy> then set string <status_string; #status_string#+mind destroy >
		if property <#char#; paralyse> then set string <status_string; #status_string#+paralyse >
		if property <#char#; burn> then set string <status_string; #status_string#+burn >
		if property <#char#; slow> then set string <status_string; #status_string#+slow >
		if property <#char#; confusion> then set string <status_string; #status_string#+confusion >
		if property <#char#; stun> then set string <status_string; #status_string#+stun >
		if property <#char#; blind> then set string <status_string; #status_string#+blind >
		if property <#char#; numb> then set string <status_string; #status_string#+numb >
		if property <#char#; sleep> then set string <status_string; #status_string#+sleep >
		if property <#char#; bind> then set string <status_string; #status_string#+bind >
		if property <#char#; silence> then set string <status_string; #status_string#+silence >
		if property <#char#; guard_break> then set string <status_string; #status_string#+guard break >
		if property <#char#; brain_freeze> then set string <status_string; #status_string#+brain freeze >
		if property <#char#; curse> then set string <status_string; #status_string#+curse >
		if property <#char#; amnesia> then set string <status_string; #status_string#+amnesia >
	}
	
end define

define procedure <camp>
	msg <Your party sets up a temporary camp for the night, taking turns to be on watch. The night is thankfully without interest and the next morning the party is no longer tired.>
	dec <sleeptimer; 1000>
	inc <foodtimer; 120>
	inc <day; 1>
	set numeric <minute; 0>
	set numeric <hour; 6>
	
end define

define procedure <sleep loss>
	msg <You collapse on the floor out of exhaustion and drift into sleep...>
	set numeric <temp; $rand(1;60)$>
	if property <#quest.currentroom#; battle> then set numeric <temp2; 1>
	if property <#quest.currentroom#; town> then set numeric <temp2; 61>
	if property <#quest.currentroom#; dungeon> or property <#quest.currentroom#; wilderness> then set numeric <temp2; $rand(20;60)$>
	if ( %temp% > %temp2% ) then {
		msg <While you are sleeping monsters find you and kill you quickly.>
		playerlose
	}
	else {
		msg <You jerk awake again.>
		dec <sleeptimer; %temp%>
	}
	
end define

define procedure <info>
	if action <#ee#; info> then doaction <#ee#; info>
	if ( #ee# = strength ) then msg <A character's strength represents their raw power and muscle. A strong character can do more damage in melee fighting.>
	if ( #ee# = agility ) then msg <A character's agility represents their nimbleness and dexterity. An agile character can hit more both in melee and with magic.>
	if ( #ee# = wisdom ) then msg <A character's wisdom represents their knowledge of nature and the gods. A wise character can use white magic more effectively and recovers magic faster.>
	if ( #ee# = spirit ) then msg <A character's spirit represents their determination and mental readiness. A spiritual character can use black magic more effectively and recovers magic faster.>
	if ( #ee# = intelligence ) then msg <A character's intelligence represents their technical knowledge and brain power. An intelligent character can use enchantment magic more effectively and recovers magic faster.>
	if ( #ee# = evasion ) then msg <A character's evasion represents their reactions and ability to dodge. A character with high evasion is better at dodging attacks.>
	if ( #ee# = defence ) then msg <A character's defence represents their physical sturdiness and resilience. A character with high defence takes less damage from physical attacks.>
	if ( #ee# = magic defence ) then msg <A character's magic defence represents their ability to deflect and reduce hostile spells. A character with high magic defence will take less damage from magical attacks.>
	if ( #ee# = speed ) then msg <A character's speed represents their quickness and flight of foot. A speedy character is able to act sooner in combat.>
	if ( #ee# = health ) then msg <A character's health represents their physical well-being. A character with low health is injured, one with high health is in good shape. If a character's health reaches 0 then they have been killed.>
	if ( #ee# = magic ) then msg <A character's magic represents their unnatural power they gain from magical sources. A character with no magic left can not cast any spells.>
	if ( #ee# = sword ) then msg <Swords are a balanced weapon group that increase both your accuracy and strength.>
	if ( #ee# = knife ) then msg <Knives are the weakest weapon group, but also the most accurate.>
	if ( #ee# = axe ) then msg <Axes are the strongest weapon group, but the least accurate.>
	if ( #ee# = spear ) then msg <Spears are a defensive weapon group with reasonable strength and low accuracy, plus a small defence bonus.>
	if ( #ee# = bow ) then msg <Bows are a weak weapon group with reasonable agility and a small evasion boost.>
	if ( #ee# = rod ) then msg <Rods are a magical weapon group that increase magic defence and all magic stats somewhat.>
	if ( #ee# = poison ) then msg <Poison will slowly deplete your character's health.>
	if ( #ee# = deadly poison ) then msg <Deadly poison will more rapidly deplete your character's health.>
	if ( #ee# = mind drain ) then msg <Mind drain will slowly deplete your character's magic.>
	if ( #ee# = mind destroy ) then msg <Mind destroy will more rapidly deplete your character's health.>
	if ( #ee# = paralyse ) then msg <Paralyse may prevent your character's action each turn.>
	if ( #ee# = burn ) then msg <Burn will slowly deplete your character's health and reduce attack.>
	if ( #ee# = silence ) then msg <Silence will prevent your character from casting spells.>
	if ( #ee# = numb ) then msg <Numb reduces agility and evasion.>
	if ( #ee# = slow ) then msg <Slow reduces speed and evasion.>
	if ( #ee# = confusion ) then msg <Confusion will make your character attack a random enemy instead of choosing one.>
	if ( #ee# = blind ) then msg <Blind reduces accuracy and prevents defending.>
	if ( #ee# = sleep ) then msg <Sleep reduces defence to 1 and prevents action until attacked.>
	if ( #ee# = stun ) then msg <Stun prevents action for a single turn.>
	if ( #ee# = bind ) then msg <Bind reduces defence and agility, and makes attacking and fleeing impossible.>
	if ( #ee# = stupid ) then msg <Stupid reduces intelligence, wisdom and spirit.>
	if ( #ee# = weak ) then msg <Weak reduces strength and agility.>
	if ( #ee# = guard break ) then msg <Guard break reduces defence, magic defence and evasion, and prevents defending.>
	if ( #ee# = brain freeze ) then msg <Brain freeze reduces intelligence, spirit and magic defence, and may prevent casting spells.>
	if ( #ee# = curse ) then msg <Curse reduces all stats slightly and may prevent actions each turn.>
	if ( #ee# = amnesia ) then msg <Amnesia resets reduces all skills to one.>
	if ( #ee# = safeguard ) then msg <Safeguard makes the next attack on the character always miss.>
	if ( #ee# = life ) then msg <Life restores a small portion of the character's health each turn.>
	if ( #ee# = earthquake ) then msg <Deals earth damage and may stun target.>
	if ( #ee# = freeze ) then msg <Deals ice damage and may numb target.>
	if ( #ee# = thunder ) then msg <Deals lightening damage and may paralyse target.>
	if ( #ee# = flame ) then msg <Deals fire damage and may burn target.>
	if ( #ee# = noxious ) then msg <Deals poison damage and may poison or deadly poison target.>
	if ( #ee# = tornado ) then msg <Deals wind damage and may brain freeze target.>
	if ( #ee# = abyss ) then msg <Deals darkness damage and may curse target.>
	if ( #ee# = ultima ) then msg <Deals holy damage and may bind target.>
	if ( #ee# = heal ) then msg <Restores health to target.>
	if ( #ee# = angel's kiss ) then msg <Bestows the life effect on target.>
	if ( #ee# = restore ) then msg <Removes negetive status effects from target.>
	if ( #ee# = teleport ) then msg <Teleports party out of battle.>
	if ( #ee# = revive ) then msg <Brings dead character back to life.>
	if ( #ee# = avoidance ) then msg <Bestows the safeguard effect on target.>
	if ( #ee# = mystic aura ) then msg <Bestows the aura effect on target.>
	if ( #ee# = divine blessing ) then msg <Bestows the bless effect on target.>
	if ( #ee# = haste ) then msg <Temporarily increases target's speed.>
	if ( #ee# = berserk ) then msg <Temporarily increases target's strength.>
	if ( #ee# = guard ) then msg <Temporarily increases target's defence.>
	if ( #ee# = shell ) then msg <Temporarily increases target's magic defence.>
	if ( #ee# = focus ) then msg <Temporarily increases target's agility.>
	if ( #ee# = blur ) then msg <Temporarily increases target's evasion.>
	if ( #ee# = prayer ) then msg <Temporarily increases target's wisdom.>
	if ( #ee# = sharpen ) then msg <Temporarily increases target's spirit.>
	if ( #ee# = drowsiness ) then msg <Inflicts sleep upon target.>
	if ( #ee# = weaken ) then msg <Inflicts weak upon target.>
	if ( #ee# = guard-breaker ) then msg <Inflicts guard-break upon target.>
	if ( #ee# = stupidity ) then msg <Inflicts stupid upon target.>
	if ( #ee# = silencer ) then msg <Inflicts silence upon target.>
	if ( #ee# = confuse ) then msg <Inflicts confusion upon target.>
	if ( #ee# = blinding ) then msg <Inflicts blind upon target.>
	if ( #ee# = deceleration ) then msg <Inflicts slow upon target.>
	if ( #ee# = normal ) then msg <No stat change.>
	if ( #ee# = berserker ) then msg <Increased strength, agility and speed. Reduced evasion, defence and magic defence. No fleeing.>
	if ( #ee# = coward ) then msg <Increased evasion, defence and magic defence. Reduced strength, agility and spirit. No attacking.>
	if ( #ee# = reflex ) then msg <Increased agility and evasion. Reduced spirit, intelligence and wisdom. No casting.>
	if ( #ee# = concentrate ) then msg <Increased spirit, intelligence and wisdom. Reduced evasion and defence. No defending.>
	if ( #ee# = independent ) then msg <Slightly increased strength, evasion, wisdom, intelligence and spirit. No using items or recieving aid from others.>
	if ( #ee# = understanding ) then msg <Gives a hint in some rooms with puzzles.>
	if ( #ee# = warp ) then msg <Move characters from one town to another.>
	if ( #ee# = time warp ) then msg <Moves the characters twelves hours into the future.>
	if ( #ee# = satisfy hunger ) then msg <Neglects any party hunger.>
	if ( #ee# = alchemy ) then msg <Turns one sellable item into gold.>
	if ( #ee# = forecast ) then msg <Character can set the weather to anything.>
	if ( #ee# = recall ) then msg <Recalls the party to the last visited town.>
	if ( #ee# = Save ) then msg <Saves the game anywhere.>
	
end define

define procedure <mp recovery>
	set numeric <temp; #(quest.thing):wisdom#+#(quest.thing):intelligence#>
	set numeric <temp; temp+#(quest.thing):spirit#>
	inc <#quest.thing#.mprecovery; temp>
	repeat while ( #quest.thing#.mprecovery > 100 ) {
		dec <#quest.thing#.mprecovery; 100>
		set numeric <temp2; #(quest.thing):magic#+1>
		property <#quest.thing#; magic=%temp2%>
		if ( #(quest.thing):magic# > #(quest.thing):max_magic# ) then property <#quest.thing#; magic=#(quest.thing):max_magic#>
	}
	
end define

define procedure <learn spell>
	msg <Who shall learn #spell#?>
	enter <temp>
	for each object in <#quest.currentroom#> if ( #(quest.thing):name# = #temp# ) then {
		set string <char; #quest.thing#>
		flag on <temp>
	}
	if flag <temp> then {
		flag off <temp>
		if property <#char#; spell_#spell#> then msg <#@char# already knows that spell!> else {
			if property <#spell#; enchantment> then set string <temp2; enchantment>
			if property <#spell#; white> then set string <temp2; white>
			if property <#spell#; misc> then set string <temp2; misc>
			if property <#spell#; black> then set string <temp2; black>
			if property <#char#; #temp2#_okay> then {
				if flag <shop> then {
					if ( %gold% >= %spellcost% ) then {
						msg <"I can teach #@char# #spell# for %spellcost% gold.">
						if ask <Have #@char# learn #spell# for %spellcost% gold?> then {
							flag on <learnokay>
							dec <gold; %spellcost%>
						}
					}
					else msg <You don't have enough gold.>
					flag off <shop>
				}
				else {
					if ask <Have #@char# learn #spell#?> then {
						flag on <learnokay>
						hide <#spellbook#>
					}
				}
				if flag <learnokay> then {
					msg <#@char# learn the spell #spell#!>
					flag off <learnokay>
					property <#char#; spell_#spell#>
				}
			}
			else msg <#@char# can not learn #temp2# magic.>
		}
	}
	else msg <There is nobody of that name in your party!>
	
end define

define procedure <end-turn status effects>
	if property <#char#; poison> then {
		msg <#(char):name# is hurt by poison.>
		set numeric <temp; #(char):health#>
		dec <temp; 2>
		property <#char#; health=%temp%>
	}
	if property <#char#; deadly_poison> then {
		msg <#(char):name# is hurt by deadly poison.>
		set numeric <temp; #(char):health#>
		dec <temp; 5>
		property <#char#; health=%temp%>
	}
	if property <#char#; mind_drain> then {
		msg <#(char):name# magic is drained by mind drain.>
		set numeric <temp; #(char):magic#>
		dec <temp; 2>
		property <#char#; magic=%temp%>
	}
	if property <#char#; mind_destroy> then {
		msg <#(char):name# magic is drained by mind destroy.>
		set numeric <temp; #(char):magic#>
		dec <temp; 5>
		property <#char#; magic=%temp%>
	}
	if property <#char#; burn> then {
		msg <#(char):name# is hurt by burn.>
		set numeric <temp; #(char):health#>
		dec <temp; 2>
		property <#char#; health=%temp%>
	}
	if property <#char#; life> then {
		msg <#(char):name# is healed by life.>
		set numeric <temp; #(char):health#>
		inc <temp; 3>
		property <#char#; health=%temp%>
	}
	if ( #char1:health# = 0 ) and ( #char2:health# = 0 ) and ( #char3:health# = 0 ) and ( #char4:health# = 0 ) then {
		playerlose
	}
	
end define

define procedure <non-battle casting>
	if property <#spell#; cast_anytime> then {
		if property <#spell#; misc> then set numeric <temp; #(spell):mpcost#> else set numeric <temp; #(char):skill_(spell)#>
		if ( #(char):magic# >= temp ) then {
			if property <#spell#; need_target> and flag <gottarget> then {
				set numeric <temp2; #(char):magic#>
				dec <temp2; %temp%>
				property <#char#; magic=%temp2%>
				doaction <#spell#; cast>
			}
			if not property <#spell#; need_target> then {
				set numeric <temp2; #(char):magic#>
				dec <temp2; %temp%>
				property <#char#; magic=%temp2%>
				doaction <#spell#; cast>
			}
		}
		else msg <#@char# doesn't have enough magic to cast that spell.>
	}
	else msg <You can't cast that spell outside of battle.>
	
end define

define procedure <buy spell>
	msg <"What spell do you wish to learn?">
	enter <spell>
	if property <#quest.currentroom#; sell_#spell#> then {
		if property <#spell#; level_1> then set numeric <spellcost; 25>
		if property <#spell#; level_2> then set numeric <spellcost; 50>
		if property <#spell#; level_3> then set numeric <spellcost; 100>
		if property <#spell#; level_4> then set numeric <spellcost; 200>
		if property <#spell#; level_5> then set numeric <spellcost; 500>
		if property <#spell#; level_6> then set numeric <spellcost; 1000>
		flag on <shop>
		do <learn spell>
	}
	else msg <"I'm sorry we don't teach that spell here. Check the display board for a list of the spells we can teach you.">
	
end define

define procedure <misc>
	move <char1; #quest.currentroom#>
	move <char2; #quest.currentroom#>
	move <char3; #quest.currentroom#>
	move <char4; #quest.currentroom#>
	if ( %weather% < 1 ) then set numeric <weather; 1>
	if ( %weather% > 20 ) then set numeric <weather; 20>
	if property <#quest.currentroom#; wilderness> and ( %weather% < 5 ) then {
		inc <minute; 10>
		msg <The cold harsh weather makes you take longer than normal.>
		}
	if property <#quest.currentroom#; wilderness> and ( %weather% < 4 ) then inc <minute; 10>
	if property <#quest.currentroom#; wilderness> and ( %weather% < 3 ) then inc <minute; 5>
	if property <#quest.currentroom#; wilderness> and ( %weather% < 2 ) then inc <minute; 5>
	if property <#quest.currentroom#; wilderness> and ( %weather% > 16 ) then {
		inc <foodtimer; 10>
		msg <The hot harsh weather makes you become hungrier faster than normal.>
		}
	if property <#quest.currentroom#; wilderness> and ( %foodtimer% > 17 ) then inc <foodtimer; 10>
	if property <#quest.currentroom#; wilderness> and ( %foodtimer% > 18 ) then inc <foodtimer; 5>
	if property <#quest.currentroom#; wilderness> and ( %foodtimer% > 19 ) then inc <foodtimer; 5>
	if property <#quest.currentroom#; wilderness> and ( %weather% = 1 ) then {
		msg <The raging blizzard freezes your party.>
		for each object in <#quest.currentroom#> if ( property <#quest.thing#; character> ) then {
			set numeric <temp; #(quest.thing):health#-3>
			property <#quest.thing#; health=%temp%>
			}
		}
		if property <#quest.currentroom#; wilderness> and ( %weather% = 3 ) and ( $rand(1;10)$ = 1 ) then {
			set numeric <temp; $rand(1;4)$>
			msg <A lightening bolt shoots down from above and strikes #(char%temp%):name#!>
			set numeric <temp2; $rand(10;50)$>
			set numeric <temp3; #(char%temp%):health#>
			dec <temp3; %temp2%>
			property <#char%temp%#; health=%temp3%>
		}
		if property <#quest.currentroom#; wilderness> and ( %weather% = 20 ) then {
			set numeric <temp; $rand(1;5)$>
			if ( %temp% = 1 ) then {
				msg <The party pass out from heat exhaustion...>
				for each object in <#quest.currentroom#> if ( property <#quest.thing; character> ) then {
					set numeric <temp2; $rand(20;30)$>
					set numeric <temp3; #(quest.thing):health#>
					dec <temp3; %temp2%>
					property <#quest.thing#; health=%temp3%>
				}
				if ( #char1:health# < 0 ) and ( #char2:health# < 0 ) and ( #char3:health# < 0 ) and ( #char4:health# < 0 ) then {
				msg <... and never wakes up again.>
				playerlose
				}
				else msg <...and wakes up a few minutes later.>
		}
		}
	for each object in <#quest.currentroom#> if ( #(quest.thing):health# < 0 ) then property <#quest.thing#; health=0>
	for each object in <#quest.currentroom#> if ( #(quest.thing):magic# < 0 ) then property <#quest.thing#; magic=0>
end define

define text <intro>

end define

define text <win>

end define

define text <lose>

Your party of adventurers has been defeated, and chaos will reign the land.

|bGAME OVER...|xb
end define

define text <help>
|cr|iRPG - Reading Presented Gallivant: Quick-help|cb|xi
(for full game instructions see RPG manual.doc)

This quick-help was put in just in case you forgot any of the basic commands and can't be bothered searching the full manual, and to put faqs in that you may have missed in the manual. The format is:
What command is: (variable you must type) COMMAND [optional, sometimes needed command] (option/another option/third option etc.)

To cast a spell: (character) CAST (spell) [ON (target)]
To use an item: USE (item) ON (character)
To equip something: EQUIP (item) ON (character)
To remove something: UNEQUIP (weapon/body armour/shield/helm/gloves/accessory) FROM (character)
To eat something: EAT (item)
To pray in a temple: PRAY
To view current time: TIME
To pass an extra hour: WAIT
To camp out in the wilderness: CAMP
To see overview of party: VIEW PARTY
To see character detail: VIEW (character)
To get information on some things: INFO ((stat)/(weapon group)/(status effect)/(spell)/(tactic)/(normal item)/(equitable item))
To view this quick-help: HELP

There are other new commands as well that are sometimes used in dungeon puzzles such as open, push, pull etc. but you can figure them out for yourself.

|bFAQ|xb
Q: Why can't I save!?!?
A: You must find someone to tell your story to (usually a priest in a temple).
Q: This is a short FAQ huh?
A: Yep.
end define

define selection <class selection>
	info <What class will #(quest.thing):name# be?>
	choice <Warrior> {
		msg <A warrior is a well-balanced fighter that is both strong and agile. They can defend themselves well and have a lot of health. Unfortunetly a warrior is hopeless when it comes to magic and can only cast very basic white magic, and that poorly.>
		wait<>
		if ask <Is the Warrior class okay?> then {
			msg <Okay, #(quest.thing):name# will be a mighty warrior of legend!>
			property <#quest.thing#; class=warrior>
			property <#quest.thing#; health=30>
			property <#quest.thing#; max_health=30>
			property <#quest.thing#; magic=5>
			property <#quest.thing#; max_magic=5>
			property <#quest.thing#; base_strength=12>
			property <#quest.thing#; base_agility=10>
			property <#quest.thing#; base_intelligence=5>
			property <#quest.thing#; base_wisdom=6>
			property <#quest.thing#; base_spirit=5>
			property <#quest.thing#; base_evasion=10>
			property <#quest.thing#; base_defence=12>
			property <#quest.thing#; base_magic_defence=5>
			property <#quest.thing#; base_speed=10>
			property <#quest.thing#; white_okay>
		}
		else choose <class selection>
	}
	choice <Rogue> {
		msg <A rogue is a very quick and agile fighter. They are fast and have great agility and evasion, but suffer when it comes to raw strength and defence. A rogue can cast some basic enchantments to tilt the odds in his or her favour.>
		wait<>
		if ask <Is the Rogue class okay?> then {
			msg <Okay, #(quest.thing):name# will be a quick-thinking and agile rogue!>
			property <#quest.thing#; class=rogue>
			property <#quest.thing#; health=20>
			property <#quest.thing#; max_health=20>
			property <#quest.thing#; magic=5>
			property <#quest.thing#; max_magic=5>
			property <#quest.thing#; base_strength=7>
			property <#quest.thing#; base_agility=14>
			property <#quest.thing#; base_intelligence=8>
			property <#quest.thing#; base_wisdom=5>
			property <#quest.thing#; base_spirit=5>
			property <#quest.thing#; base_evasion=14>
			property <#quest.thing#; base_defence=5>
			property <#quest.thing#; base_magic_defence=5>
			property <#quest.thing#; base_speed=15>
			property <#quest.thing#; enchantment_okay>
		}
		else choose <class selection>
	}
	choice <Barbarian> {
		msg <Barbarians are rare battle-hardy warriors of legend. Their strength and health are unmatched by any, and they are experts at defending their body. However a barbarian is less quick and agile then their other warrior counter-parts, and have no magic abilities whatsoever.>
		wait<>
		if ask <Is the Barbarian class okay?> then {
			msg <Okay, #(quest.thing):name# will wield the awesome brute force of the barbarian!>
			property <#quest.thing#; class=barbarian>
			property <#quest.thing#; health=40>
			property <#quest.thing#; max_health=40>
			property <#quest.thing#; magic=0>
			property <#quest.thing#; max_magic=0>
			property <#quest.thing#; base_strength=15>
			property <#quest.thing#; base_agility=8>
			property <#quest.thing#; base_intelligence=5>
			property <#quest.thing#; base_wisdom=5>
			property <#quest.thing#; base_spirit=5>
			property <#quest.thing#; base_evasion=8>
			property <#quest.thing#; base_defence=12>
			property <#quest.thing#; base_magic_defence=5>
			property <#quest.thing#; base_speed=5>
			property <#quest.thing#; not misc_okay>
		}
		else choose <class selection>
	}
	choice <Defender> {
		msg <Defenders are experts at self-preservation and are extremely difficult to kill. The have the best defence, both physical and magical