135_spalnya 1.1 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758
  1. # spalnya
  2. $metkaM = $ARGS[0]
  3. $locM = $CURLOC
  4. '<center><b>Bedroom</b></center>'
  5. '<center><img src="images/img/centr/spaln.jpg"></center>'
  6. set minut += 5
  7. set tanhouse1 = 1
  8. gs 'stat'
  9. if komp = 1:'<a href="exec:GT ''Komp'', ''start''">Computer</a>.'
  10. act 'In the corridor':gt 'house'
  11. act 'Lesson (2:00)':
  12. cla
  13. set minut += 120
  14. set intel += 1
  15. 'You prozanimavshis two hours seems something in your head postponed'
  16. act 'Finish':gt 'spalnya'
  17. end
  18. if student > 0 and kursovik < 100:
  19. act 'Write kursovik (1:00)':
  20. cla
  21. *clr
  22. set minut += 60
  23. set kursovik += rand(intel/20, intel/10)
  24. if kursovik > 100:set kursovik = 100
  25. set manna -= 10
  26. '<center><img src="images/etogame/study.jpg"></center>'
  27. 'You sat on the course work and prepared her <<kursovik>> percent.'
  28. act 'Finish':gt 'spalnya'
  29. end
  30. end
  31. act 'Mirror':gt 'mirror', 'start'
  32. act 'Cupboard':gt 'loker', 'start'
  33. act 'In bed':gt 'bed', 'start'
  34. if tanga = 0 and clrbelo > 0:
  35. act 'Wear underwear':
  36. cla
  37. set tanga = 1
  38. gt 'spalnya'
  39. end
  40. else
  41. act 'Remove Underwear':
  42. cla
  43. set tanga = 0
  44. gt 'spalnya'
  45. end
  46. end
  47. --- spalnya ---------------------------------