stolPar 594 B

123456789101112131415161718192021222324252627282930
  1. # stolPar
  2. gs 'stat'
  3. !!'<center><img src="images/pics/telek.jpg"></center>'
  4. 'You sit down at the desk.'
  5. act 'Move away from the desk':gt $locM, $metkaM
  6. if lernHome > 0:
  7. act 'Do your homework':
  8. cls
  9. if lernHome <= 2:
  10. minut += 60 * lernHome
  11. lernHome = 0
  12. lern += 1
  13. gs 'stat'
  14. else
  15. minut += 60 * 2
  16. lernHome = 0
  17. gs 'stat'
  18. end
  19. 'It takes you a long time to finish your homework. Perhaps it would go quicker if you do your homework together with someone else.'
  20. act 'Move away from the desk':gt $locM, $metkaM
  21. end
  22. end
  23. --- stolPar ---------------------------------