spalnya 1.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657
  1. # spalnya
  2. $metkaM = $ARGS[0]
  3. $locM = $CURLOC
  4. minut += 5
  5. tanhouse1 = 1
  6. gs 'stat'
  7. '<center><b>Bedroom</b></center>'
  8. '<center><img src="images/img/centr/spaln.jpg"></center>'
  9. if komp = 1:'<a href="exec:gt ''Komp'', ''start''">Computer</a>.'
  10. act 'In the corridor':gt 'house'
  11. act 'Learn lesson (2:00)':
  12. cla
  13. minut += 120
  14. 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. minut += 60
  23. kursovik += rand(intel / 20, intel / 10)
  24. if kursovik > 100:kursovik = 100
  25. 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 'clothing', 'view_clothing_list', 'wardrobe'
  33. act 'In bed':gt 'bed', 'start'
  34. if tanga = 0 and clrbelo > 0:
  35. act 'Wear Underwear':
  36. cla
  37. tanga = 1
  38. gt 'spalnya'
  39. end
  40. else
  41. act 'Remove Underwear':
  42. cla
  43. tanga = 0
  44. gt 'spalnya'
  45. end
  46. end
  47. --- spalnya ---------------------------------