Gresep 1.0 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546
  1. # Gresep
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. '<center><h4>Receptionist</h4></center>'
  5. '<center><img src="images/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:'The girl smiles at you and asks "the desired number? 500 rubles per day."'
  11. if BeInOtel >= 10:'Girl slyly smiling at you and asks "the desired number? 500 rubles per day. Or you are in another case?"'
  12. !'if money >= 500:
  13. act 'pay room':
  14. cls
  15. money -= 500
  16. Goteldaytot = daystart + 1
  17. GotelRoom = 1
  18. gs 'stat'
  19. 'You pay at the hotel.'
  20. act 'Leave':gt 'Gotel'
  21. end
  22. end
  23. '!
  24. act 'Ask for work':
  25. cls
  26. if GermanQW = 0:GermanQW = 1
  27. gs 'stat'
  28. '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."'
  29. act 'Leave':gt 'Gotel'
  30. end
  31. end
  32. act 'Leave':gt 'Gotel'
  33. if GotelRoom > 0:
  34. act 'Go into the room':gt 'Gotelroom'
  35. end
  36. --- Gresep ---------------------------------