\title{Aeropuerto}
\language{es}
\range{-5..5}
\author{Gang XIAO}
\email{xiao@unice.fr}
\computeanswer{no}
\format{html}
\precision{10000}

\text{ville=random(París, Londres, Nueva York, Los Angeles, Pekín, Tokyo, Hong
Kong, Roma, Niza, Moscú, Shanghai, Singapur, Ginebra, Zurich, Bruselas,
Berlín, Montreal)}
\text{h=h}
\integer{ah=random(9..15)}
\integer{am=random(1..11)*5}
\integer{a=\ah*60+\am}
\text{am=wims(char -2,-1 of 0\am)}
\integer{comptoir=random(30,35,40,45,50)}
\integer{ta=\a-\comptoir}
\integer{t1=random(6..11)*5}
\integer{s1=random(3..5)*5}
\integer{s2=random(2..5)*5}
\integer{t2=\t1+\s1}
\integer{t3=\t2+\s2}
\integer{good=random(1..4)}
\integer{tt=item(\good,randint(\t3+2..\t3+20),
			randint(\t2+2..\t3-2),
			randint(\t1+2..\t2-2),
			randint(\t1-15..\t1-2))}
\integer{td=\ta-\tt}
\integer{hd=floor(\td/60)}
\integer{md=\td-60*\hd}
\text{md=wims(char -2,-1 of 0\md)}
\integer{size=160}
\text{clock=slib(draw/clock \hd:\md,160,1,nosecond)}
\text{nom=slib(lang/fname boy)}
\integer{prix1=random(3..10)}
\integer{prix2=random((\prix1+1)*1.2..(\prix1+1)*1.8)}
\integer{prix3=random(\prix2*1.6..\prix2*3)}
\integer{ha=floor(\ta/60)}
\integer{ma=\ta-60*\ha}
\text{ma=wims(char -2,-1 of 0\ma)}

\statement{
<center><table border=0>
<tr><td>\nom debe coger un vuelo para \ville a las \ah\h\am.
Debe estar en el aeropuerto al menos \comptoir minutos
antes del despegue.
<p>Para ir al aeropuerto puede elegir entre: 
<ul>
<li>El autobús urbano, que tarda \t3 minutos. Precio: \prix1 euros.
<li>El autobús del aeropuerto, que tarda \t2 minutos. Precio: \prix2 euros.
<li>Un taxi, que tarda \t1 minutos. Precio: \prix3 euros.
</ul>
<td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<td>\draw{\size,\size}{\clock}
</table></center> <p>
¿Cuál es el medio más barato para ir al aeropuerto?
<p><center>\embed{reply 1} </center>
}


\answer{Respuesta}{\good;El autobús urbano, El autobús del aeropuerto,
Un taxi, Ninguno: ya es demasiado tarde}{type=menu}

\solution{Son las \hd\h\md.
\nom debe llegar al aeropuerto a las \ha\h\ma. Por tanto tiene \tt minutos
para llegar.}