kutuzka.qsrc 665 B

1234567891011121314151617181920212223
  1. # kutuzka
  2. gs 'stat'
  3. 'The prison cell is not very big, and has almost nothing in it. No toilet, no sink, no bed... except for a wooden plank, there is nothing at all.'
  4. 'You have to stay in prison for <<kutime>> more hour(s).'
  5. if kutime > 0:
  6. act 'Sit out your punishment (1:00)':
  7. cls
  8. minut += 60
  9. kutime -= 1
  10. gs 'stat'
  11. 'You take a seat on the wooden plank, and have nothing else to do but just wait.'
  12. act 'Continue':gt $curloc
  13. end
  14. elseif kutime <= 0:
  15. 'You have finally spent enough time in the prison cell, and captain Katalkin comes to let you out.'
  16. act 'Continue':minut += 1 & gt 'pavtrainhall'
  17. end
  18. --- kutuzka ---------------------------------