stolPar 524 B

1234567891011121314151617181920212223242526272829
  1. # stolPar
  2. gs 'stat'
  3. !!'<center><img src="images/pics/telek.jpg"></center>'
  4. 'You sat down at the desk.'
  5. act 'Get up from the table':gt $locM, $metkaM
  6. if lernHome > 0:
  7. act 'Learning lessons':
  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. 'Sitting for a long time you learned yet they were able to learn.'
  20. act 'Get up from the table':gt $locM, $metkaM
  21. end
  22. end
  23. --- stolPar ---------------------------------