135_spalnya 2.2 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394
  1. # spalnya
  2. $metkaM = $ARGS[0]
  3. $locM = $CURLOC
  4. <<<<<<< 135_spalnya
  5. '<center><B>Bedroom</B></center>'
  6. '<center><img src="images\img\centr\spaln.jpg"></center>'
  7. set minut += 5
  8. set tanhouse1 = 1
  9. gs 'stat'
  10. if komp = 1: '<a href="exec: GT ''Komp'',''start''">Computer</a>.'
  11. act 'In the corridor': gt 'house'
  12. act 'Lesson (2:00)':
  13. cla
  14. set minut += 120
  15. set intel += 1
  16. 'You prozanimavshis two hours seems something in your head postponed'
  17. act 'Finish': gt 'spalnya'
  18. end
  19. if student > 0 and kursovik < 100:
  20. act 'Write kursovik (1:00)':
  21. cla
  22. *clr
  23. set minut += 60
  24. set kursovik += RAND(intel/20, intel/10)
  25. if kursovik > 100: set kursovik = 100
  26. set manna -= 10
  27. '<center><img src="images\etogame\study.jpg"></center>'
  28. 'You sat on the course work and prepared her <<kursovik>> percent.'
  29. act 'Finish': gt 'spalnya'
  30. end
  31. end
  32. act 'Mirror': gt 'mirror','start'
  33. act 'Cupboard': gt 'loker','start'
  34. act 'In bed': gt 'bed','start'
  35. if tanga = 0 and clrbelo > 0:
  36. act 'Wear underwear':
  37. cla
  38. set tanga = 1
  39. gt 'spalnya'
  40. end
  41. else
  42. act 'Remove Underwear':
  43. cla
  44. set tanga = 0
  45. gt 'spalnya'
  46. end
  47. end
  48. =======
  49. '<center><B>bedroom</B></center>'
  50. '<center><img src="img/centr/spaln.jpg" ></center>'
  51. set minut+=5
  52. set tanhouse1=1
  53. gs 'stat'
  54. if komp = 1:'<a href="exec:GT ''Komp'',''start''">computer</a>.'
  55. act 'In the corridor':gt'house'
  56. act 'do(2 hours)':
  57. cla
  58. set minut+=120
  59. set intel+=1
  60. 'You prozanimalsya two o`clock, I think in your head that-then postponed'
  61. act 'End_Up':gt'spalnya'
  62. end
  63. if student > 0 and kursovik < 100:
  64. act 'write kursovik 1 h':
  65. cla
  66. *clr
  67. set minut = minut + 60
  68. set kursovik = kursovik + RAND (intel/20,intel/10)
  69. if kursovik > 100:set kursovik = 100
  70. set manna = manna - 10
  71. '<center><img src="pic/study.jpg" ></center>'
  72. 'You sat on coursework and prepare it for <<kursovik>> percent.'
  73. act 'End_Up':gt'spalnya'
  74. end
  75. end
  76. act 'mirror':gt'mirror','start'
  77. act 'cupboard':gt'loker','start'
  78. act 'In bed':gt'bed','start'
  79. if tanga=0 and clrbelo>0:
  80. act 'Dress Underwear':
  81. cla
  82. set tanga = 1
  83. gt'spalnya'
  84. end
  85. else
  86. act 'Remove underwear':
  87. cla
  88. set tanga = 0
  89. gt'spalnya'
  90. end
  91. end
  92. >>>>>>> 135_spalnya
  93. --- spalnya ---------------------------------