Gresep 1.0 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950
  1. # Gresep
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. clr
  5. gs 'stat'
  6. '<center><h4>Reception</h4></center>'
  7. '<center><img src="images/pic/Gotel.jpg"></center>'
  8. 'Behind the counter stands a pretty brunette.'
  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. elseif BeInOtel >= 10:
  13. 'Girl slyly smiling at you and asks "the desired number? 500 rubles per day. Or you are in another case?"'
  14. end
  15. !'
  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 'Leave':gt 'Gotel'
  25. end
  26. end
  27. '!
  28. act 'Ask for 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 'Leave':gt 'Gotel'
  34. end
  35. end
  36. act 'Leave':gt 'Gotel'
  37. if GotelRoom > 0:
  38. act 'Go into the room':gt 'Gotelroom'
  39. end
  40. --- Gresep ---------------------------------