kutuzka 465 B

1234567891011121314151617181920212223
  1. # kutuzka
  2. gs 'stat'
  3. 'You sit in a small cell, where there is no toilet, no shell, is only a wooden plank. All you have to sit <<kutime>> hours.'
  4. if kutime > 0:
  5. act 'sit':
  6. cls
  7. minut += 60
  8. kutime -= 1
  9. gs 'stat'
  10. 'You sit on hard wooden planks.'
  11. act 'further':gt $curloc
  12. end
  13. end
  14. if kutime <= 0:
  15. 'Finally the time of his release over and you have been released.'
  16. act 'Leave':minut += 1 & gt $curloc
  17. end
  18. --- kutuzka ---------------------------------