sauna 749 B

1234567891011121314151617181920212223242526272829303132
  1. # sauna
  2. clr
  3. sauna += 1
  4. gs 'stat'
  5. '<center><b>Sauna</b></center>'
  6. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sauna.jpg"></center>'
  7. 'Luxurious high quality sauna.'
  8. act 'Leave':minut += 15 & gt 'street'
  9. !!if saunaWorkWhore > 0:act 'Go to work':gt 'saunawork'
  10. if SaunaWhore > 0:act 'Go to work whore':gt 'saunawork'
  11. if week = 5 and workDisk = 2:
  12. 'At the entrance a strong man is waiting for you to arrive.'
  13. act 'Give disk':
  14. cls
  15. minut += 20
  16. workDisk = 3
  17. konvert = 1
  18. gs 'stat'
  19. 'You give the thumb drive to him and you are handed a thick envelope.'
  20. act 'Leave':minut += 15 & gt 'street'
  21. end
  22. end
  23. if hour >= 8 and hour <= 23:act 'Go to the sauna':gt 'sauna2'
  24. --- sauna ---------------------------------