slife/locations/239_Gresep

# Gresep
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>Receptionist</H4></center>'
'<center><img src="pic/Gotel.jpg" ></center>'
'Behind the counter stands a pretty brunette.'
clr
gs'stat'


if GotelWork=0 and GotelRoom=0:
     if BeInOtel<10:
     'The girl smiles at you and asks "the desired number? 500 rubles per day."'
     end
     if BeInOtel>=10:
     'Girl slyly smiling at you and asks "the desired number? 500 rubles per day. Or you are in another case?"'
     end
     
     !'if money>=500:
         act'pay room':
         cls
         money-=500
         Goteldaytot=daystart+1
         GotelRoom=1
         gs'stat'
         'You pay at the hotel.'
         act'move_away':gt'Gotel'
         end
     end
     '
     
	 act'ask the work':
	 cls
	 if GermanQW=0:GermanQW=1
	 gs'stat'
	 'You asked the girl working at the hotel. She shrugged, "The hiring of workers engaged in the host Herman Hotels Leonidovich, it is mainly in the hotel with 12 prior_to 13."'
	 act'move_away':gt'Gotel'
	 end
     
end



act'move_away':gt'Gotel'

if GotelRoom>0:
act'Go into the room':gt'Gotelroom'
end




--- Gresep ---------------------------------