239_Gresep 1.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354
  1. # Gresep
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. '<center><H4>Receptionist</H4></center>'
  5. '<center><img src="pic/Gotel.jpg" ></center>'
  6. 'Behind the counter stands a pretty brunette.'
  7. clr
  8. gs'stat'
  9. if GotelWork=0 and GotelRoom=0:
  10. if BeInOtel<10:
  11. 'The girl smiles at you and asks "the desired number? 500 rubles per day."'
  12. end
  13. if BeInOtel>=10:
  14. 'Girl slyly smiling at you and asks "the desired number? 500 rubles per day. Or you are in another case?"'
  15. end
  16. !'if money>=500:
  17. act'pay room':
  18. cls
  19. money-=500
  20. Goteldaytot=daystart+1
  21. GotelRoom=1
  22. gs'stat'
  23. 'You pay at the hotel.'
  24. act'move_away':gt'Gotel'
  25. end
  26. end
  27. '
  28. act'ask the work':
  29. cls
  30. if GermanQW=0:GermanQW=1
  31. gs'stat'
  32. '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."'
  33. act'move_away':gt'Gotel'
  34. end
  35. end
  36. act'move_away':gt'Gotel'
  37. if GotelRoom>0:
  38. act'Go into the room':gt'Gotelroom'
  39. end
  40. --- Gresep ---------------------------------