#
# Finder script (English)
# for Yakkey v1.0
#
# $Id: finder.script,v 1.4 2001/06/11 09:17:53 jani Exp $
# $Revision: 1.4 $
#
# by Jani Patokallio <jpatokal@iki.fi>
# Copyright 2001 the University of Tokyo
#
script.title=	Finder
script.version=	1.0
script.init=	Goto macro main;

macro.init=
	Set NOP \
Pause Sorry, not implemented yet<P><P>
<font size=+2><I>press any button to continue</I></font>;
	Set LEFT <FONT color=green>SELECT</FONT> ;
	Set RIGHT <FONT color=red>CANCEL</FONT> ;
	Goto $1;

main.title=Where do you want to go today?
main.action=
Hotel		($NOP)
Restaurant	(Goto food)
Train station	($NOP)
<FONT color=blue>Help, I'm lost!</FONT>	($NOP)

# Not written yet...
lost.init=Pause Don't worry!<P>Do you have a map?<P><P>
	$LEFT if yes<P>$RIGHT if no ;
	TRUE

food.title=What type of restaurant?
food.action=
Anywhere cheap	($NOP)
Japanese food	(Goto food_jp)
Western food	($NOP)
Go back		(Goto main)

food_jp.title=Japanese food
food_jp.action=
<I>Gyuudon</I> <FONT size=+2>Beef and rice</FONT>
	(Set location gyuudon ; Goto finder)
<I>Ramen</I> <FONT size=+2>Chinese noodles</FONT>
	(Set location ramen ; Goto finder)
<I>Soba/Udon</I> <FONT size=+2>Japanese noodles</FONT>
	(Set location soba ; Goto finder)
<I>Sushi</I> <FONT size=+2>Raw fish</FONT>
	(Set location sushi ; Goto finder)
<I>Tempura</I> <FONT size=+2>Deep-fried seafood</FONT>
	(Set location tempura ; Goto finder)

finder.init=
	Blank Time to kidnap a bystander ;
	Pause $LEFT to start asking,<P>
	 	$RIGHT to say 'Excuse me';
	TRUE : Goto finder2 ;
	Blank Excuse me... ;
	Play call_waiter;
	Goto finder ;

finder2.init=
	Blank Asking... ;
	Play finder_start ;
	Goto finder_main ;

finder_main.init=
	Play finder_$location;
	Pause $LEFT if they understood,<P>
	 	$RIGHT to repeat;
	FALSE : Goto finder2 ;
finder_main.title=Ask directions
finder_main.action=
Repeat slowly		(Blank Asking...;
			Play finder_repeat)
Point direction		(Blank Asking...;
			Play finder_point)
Show on map		(Blank Please show the map.;
			Play finder_showmap)
Draw a map		(Blank Please offer something to draw on.;
			Play finder_drawmap)
Thanks & goodbye	(Blank Thanking... ;
			Play finder_thanks ;
			Blank Did you find it? ;
			Pause $LEFT if you did,<P>
	 		$RIGHT to ask for help again ;
			FALSE : Goto finder ;
			Load index.script);