!library

!asl-version <350>

'=====================================================
'==     QUEST Library for common / basic verbs      ==
'== 20:37 22/09/04                                  == 
'=====================================================
'==       This library add new verbs to the game    ==
'==   if you improved it, email eforgeot@yahoo.fr   ==
'=====================================================


!addto game
	command <blow in #@objects#> msg <Blowing in this doesn't make any interesting sound.>
	command <borrow #@objects# from #@actor#> msg <You can't achieve it this way.>
	command <buy #@object#> msg <#quest.error.gender# #@object# is not for sale>
	command	<bring #@object#> msg <You can't do this>
	command	<cancel> msg <You can't cancel your last action.>
	command	<cast> msg <Cast what ?>
	command	<carve, dig, pick #@object#> msg <You can't alter #quest.error.article# >
	command <change #@thing#> if action <#thing#; change> then doaction <#thing#; change> else msg <You can't do that.> 
	command	<clean #@object#> msg <#quest.error.article# #quest.lastobject# is not dirty.>
	command	<climb #@object#> {
		if property <#quest.objects#; climbable> then {
		msg <You climb on #quest.error.gender# #quest.objects#>
		} 
		else msg <#quest.error.gender# #quest.objects# can't be climbed.>
		}
	
	command	<close #@object#> {
		if property <#object#; closable> then {
		msg <You close the #objects# #quest.lastobject#>
		property <#object#; closed>
		property <#object#; not opened>
		} 
		else msg <#quest.error.gender# #quest.lastobject# can't be closed.>
		}
'	command	<comb>
	command	<complain> msg <Don't complain all the time !>
	command	<cook> msg <Maybe it's not time to cook now ?>
	command	<cook #@thing#> if action <#thing#; cook> then doaction <#thing#; cook> else msg <You can't cook this #thing#.> 
	command	<cough> msg <Reuf, reuf. What else ?>
	command	<count #@things#> {
	set numeric <nbcount; 0>
		for each object in <#quest.currentroom#> {
				if property <#quest.thing#; clonable> then {
				inc <nbcount>
				}
			}
		if (%nbcount% > 1 ) then msg <There are %nbcount% #@things#s in #quest.formatroom#> else msg <There is only one #@things# in #quest.formatroom#>
			}
	command <commit suicide> playerlose
	command <cry> msg <You don't need to do that now. Crying can't be made on command.>
	command <cut #@quest.objects#> {
		if property <#quest.objects#; breakable> then {
		msg <You torn #quest.error.gender# #quest.objects# to pieces, and nothing usefull remains.>
		conceal <#quest.objects#>
		}
		}
	command	<crawl> msg <You probably can find some other ideas ?>
	command	<dance> msg <You dance a bit for your own pleasure.>
'	command	<desire>
'	command	<detach>
'	command	<dive>
	command	<dig #@thing#> if action <#thing#; dig> then doaction <#thing#; dig> else msg <This #thing# is not diggable.> 
			
'	command	<draw>
	command	<dream> msg <You're not sleeping so you can't dream.>
	command	<drive #@thing#> if action <#thing#; drive> then doaction <#thing#; drive> else msg <You're not supposed to drive this.> 
	command <drink #@quest.objects#> {
		if property <#quest.objects#; drinkable> then {
		msg <You drink #quest.error.gender# #quest.objects#>
		conceal <#quest.objects#>
		} 
		else msg <#quest.error.gender# #quest.objects# doesn't seem good to drink, you should forget this.>
		}
	command <eat #@quest.objects#> {
		if property <#quest.objects#; edible> then {
		msg <You eat #quest.error.gender# #quest.objects#>
		conceal <#quest.objects#>
		} 
		else { 
			msg <#quest.error.gender# #quest.objects# doesn't appear appetizing, you shouldn't do this.>
			}
		}
'	command <erode> 
'	command	<edit>
	command	<edit #@thing#> if action <#thing#; edit> then doaction <#thing#; edit> else msg <This #thing# is not editable.> 
	command	<enter #@thing#> if action <#thing#; enter> then doaction <#thing#; enter> else msg <You can't enter #thing#, or if it's a place you could try to go to there.> 
	command	<escape>	msg <Only cowards run away. Face your destiny !>
'	command	<explain>
'	command	<empty>
	command	<empty #@thing#> if action <#thing#; empty> then doaction <#thing#; empty> else msg <You're not supposed to empty this.> 
	command	<fill #@thing# with #@thing2#> if action <#thing#; fill> then doaction <#thing#; fill> else msg <You're not supposed to fill this.> 
	command	<find #@thing#> if action <#thing#; find> then doaction <#thing#; find> else msg <You can't find it, but if it's very close to you, then take it !> 
'	command	<finish>
	command	<fix #@thing#> if action <#thing#; fix> then doaction <#thing#; fix> else msg <You're not supposed to fix it this.> 
	command	<fly> msg <You could if you had wings>
'	command	<glitter>
	command	<help #@object#>
	command <hit #@quest.objects#> msg <What do you plan to use for this courageous action ?>
'	command	<hurt>
	command	<jump> msg <You make some hops, and fell stupid for doing this now.>
	command	<kiss #@thing#> if action <#thing#; kiss> then doaction <#thing#; kiss> else msg <It's not a good idea.> 
	command	<kill #@person#> if action <#person#; kill> then doaction <#person#; kill> else msg <Don't use this kind of violence.>
	command <laugh> msg <Ha ha ha |n Ha ha ha ha>
	command <love #quest.objects# ; like #quest.objects# ; enjoy #quest.objects#> msg <We're glad you enjoy #quest.error.article# #quest.objects#.>
'	command	<learn>
'	command	<leave>
	command	<lift #@thing#> if action <#thing#; lift> then doaction <#thing#; lift> else msg <You can't do that.> 
	command	<listen> msg <You can't hear anything special.> 
	command	<listen #@thing#> if action <#thing#; listen> then doaction <#thing#; listen> else msg <You can't hear anything special.> 
'	command	<lose>
	command	<look under #@object#> msg <You find nothing of interest there.>
	command	<open #@object#> {
		if property <#object#; openable> then {
		msg <You open #quest.error.gender# #quest.lastobject#>
		property <#object#; opened>
		property <#object#; not closed>
		} 
		else msg <#quest.error.gender# #quest.lastobject# can't be opened.>
		}
	command	<pay #@thing#> if action <#thing#; pay> then doaction <#thing#; pay> else msg <You can't pay this.> 
	command	<pay for #@thing#> if action <#thing#; pay> then doaction <#thing#; pay> else msg <You can't afford that.> 
	command	<pick, pluck #@object#> exec <take #@object#; normal>
'	command	<plant>
'	command	<put>
'	command	<put on>
' put = drop
	command <drop #@thing# on #@support#> {
		if property <#support#; supporter> then {
		msg <You put #quest.error.gender# #thing# on #support#.>
		} 
		else { 
			msg <You can't put #quest.error.gender# #thing# on this.>
			}
		}

'	command <put #@thing# and #@otherthing# in #@container#> 
'	command	<radiate>
'	command	<rain>

'	command	<read #@thing#> {
'		if  type <#thing#; TLTreadable> or property <#thing#; readable> then {
'		msg <ok>
'		exec <#quest.originalcommand#;normal>
'		}
'		else {
'		msg <There is nothing written on #quest.error.gender# #thing#.>
'			}
'		}

	command <read #@thing#> if action <#thing#; read> then doaction <#thing#; read> else msg <There is nothing written on this #quest.error.gender# #thing#.> 
		
'	command	<release>
'	command	<reply>
'	command	<ride>
'	command	<rub>
	command <run> msg <Where could you run ?>
	command	<say #this# to #@person#> if action <#person#; say> then doaction <#thing#; say> else msg <You don't need to say that.> 
'	command	<see>
'	command	<seek>
	command	<scream> msg <You shout once.>
'	command	<sell>
	command	<sell #@thing#> if action <#thing#; sell> then doaction <#thing#; sell> else msg <Nobody wants to buy this from you.> 
'	command	<send>
'	command	<show>
	command	<sit> msg <You sit on the floor.>
	command	<stand up> msg <You stand up.>
	command <sing> msg <You sing a bit.>
	command	<sleep> msg <It's not time for sleeping. Wake up !>
	command	<smell> msg <You smell nothing unexpected here.>
	command	<smell #@thing#> if action <#thing#; smell> then doaction <#thing#; smell> else msg <You smell nothing unexpected here.> 
	command	<smoke #@thing#> if action <#thing#; smoke> then doaction <#thing#; smoke> else msg <You can't.> 
	command <smile> msg <You're smiling now.>
	command <shout> msg <You don't need to shout now.>
'	command	<spend>
	command	<stand up, get up> msg <In the case you were not, now you're up.>
'	command	<start>
	command	<steal #@thing#> if action <#thing#; steal> then doaction <#thing#; steal> else msg <You can't.> 
	command	<swim> msg <You don't want to wet your clothes.>
'	command	<take>
'	command	<take, receive>
'	command	<teach>
	command	<throw #@thing#> if action <#thing#; throw> then doaction <#thing#; throw> else msg <You don't need to try that.> 
	command	<wear #@thing#> if action <#thing#; wear> then doaction <#thing#; wear> else msg <You're not supposed to wear that.> 
'	command	<travel>
'	command	<try>
'	command	<turn off>
'	command	<turn on>
	command	<undo> msg <Unfortunately you can't undo your actions.>
	command <wait> msg <You wait for a while.>
'	command	<wake>
	command	<walk> msg <Just type your direction using the "north", "east", "south", "west" commands.>
	command	<walk #direction#> msg <Just enter your direction using the "north", "east", "south", "west" commands.>
	command <wash #@thing#> if action <#thing#; wash> then doaction <#thing#; wash> else msg <You're not supposed to wash this #quest.error.gender# #thing#.> 
	command	<weep> msg <It's not the kind of thing one can command.>
	command	<work> msg <Yes, you have to work more in order to finish this adventure !>
'	command	<worry> 
'	command	<write>


!end


'===========================================
'== Add some synonyms used in the library ==
'===========================================

!addto synonyms
	inspect, search, seek = examine
'	drop the; put the; put down the; put down; put = drop
	give back the; give back; give the = give
	get the; get; take back the; take back; take the = take
	out of the; out of; back from the; back from; from the = from
	in to; in to the; into the; into; inside the; inside = in
	back to the; back to; to the = to 

	leave = drop
	swallow = eat
	fetch = bring
	shut = close
	fall = jump
	slip = glitter
	graze = erode
	offer = give
	pour = fill
	see = look
	spell = cast
	stay = wait
	begin = start
'	study = read
	swallow = eat
	remove = drop
	whine = complain
'	kill = attack
	drop = put
	dump = throw
'	look under = look
'	look on = look
'	look for = look
	check; inspect = examine
	shout; yell = scream
	flee ; run away = escape

!end





' 	bring
' 	buy 
' 	cancel 
' 	cast
' 	carve, dig, pick
' 	change 
' 	clean 
' 	close 
' 	comb 
' 	complain 
' 	cook
' 	cough 
' 	count 
' 	crawl
' 	dance 
' 	desire
' 	detach
' 	dive
' 	draw 
' 	dream
' 	drive 
' 	edit
' 	enter
' 	escape
' 	explain  
' 	fill 
' 	find 
' 	finish 
' 	fix 
' 	fly 
' 	glitter
' 	help
' 	hurt  
' 	jump
' 	kiss
' 	learn 
' 	leave 
' 	lift
' 	listen 
' 	lose 
' 	pay 
' 	pick, pluck
' 	plant
' 	put 
' 	put on
' 	radiate
' 	rain 
' 	read 
' 	release
' 	reply 
' 	ride
' 	rub (without abrade)
' 	run 
' 	say 
' 	see 
' 	seek
' 	sell 
' 	send 
' 	show
' 	sit 
' 	sleep 
' 	smoke  
' 	spend 
' 	stand up, get up
' 	start 
' 	steal  
' 	swim 
' 	take 
' 	take, receive
' 	teach 
' 	throw
' 	wear
' 	travel 
' 	try 
' 	turn off 
' 	turn on 
' 	wake
' 	walk
' 	wash
' 	weep
' 	work 
' 	worry 
' 	write