# dachamy $metka = $ARGS[0] $loc = $CURLOC <<<<<<< 386_dachamy '

Cottage

' '
' ======= '

dacha

' '
' >>>>>>> 386_dachamy 'Your favorite summer residence.' clr <<<<<<< 386_dachamy gs 'stat' gs 'time' act 'Go into the house': gt 'dachain' if hour < 23 and hour >= 7: act 'Inspect garden': cla minut += 5 if etoexhib < 16: gt 'dachaogr0' if etoexhib = 16: gt 'dachaogr' end end act 'Exit the alley': minut += 15 & gt 'dachi' ======= gs'stat' gs'time' act 'Go to the house':gt'dachain' if hour <23 and hour=>7: act 'inspect the garden': cla minut+=5 if etoexhib<16:gt'dachaogr0' if etoexhib=16: gt'dachaogr' end end act 'Get off at the mall':minut+=15>'dachi' >>>>>>> 386_dachamy --- dachamy ---------------------------------