208_gadhouse 2.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160
  1. <<<<<<< 208_gadhouse
  2. # gadhouse
  3. =======
  4. # Gadhouse
  5. >>>>>>> 208_Gadhouse
  6. $metkaM = $ARGS[0]
  7. $locM = $CURLOC
  8. $metka = $ARGS[0]
  9. $loc = $CURLOC
  10. '<center><H4>cottage</H4></center>'
  11. <<<<<<< 208_gadhouse
  12. '<center><img src="images/qwest/gadukino/izba.jpg" ></center>'
  13. =======
  14. '<center><img src="qwest/gadukino/izba.jpg" ></center>'
  15. >>>>>>> 208_Gadhouse
  16. 'Simple village hut. In a small room is <a href="exec:GT ''loker'',''start''">cupboard</a> and <a href="exec:GT ''bedPar''">bed</a> where you can sleep. In a large room is <a href="exec:GT ''tvPar''">tv_set</a>. TV stands next to an ancient <a href="exec:GT ''mirror'',''start''">trellis</a>'
  17. clr
  18. gs'stat'
  19. fcolor=rgb(0,0,0)
  20. bcolor=rgb(255,255,255)
  21. LCOLOR = rgb(106,90,205)
  22. <<<<<<< 208_gadhouse
  23. act 'Go outside':
  24. minut += 5 & gt'Gaddvor'
  25. end
  26. act 'Eat':
  27. cla
  28. *clr
  29. gs'stat'
  30. frost=0
  31. '<center><img src="images/pics/food.jpg" ></center>'
  32. set minut += 30
  33. set health += 10
  34. set manna += 20
  35. wipo += 5
  36. salo += 1
  37. if energy >= 30:
  38. set fat += 5
  39. 'You can no longer have.'
  40. end
  41. if energy >= 20 and energy < 30:
  42. set fat += 3
  43. set energy += 10
  44. 'You pushed through the power of a meal.'
  45. end
  46. if energy < 20:
  47. set energy += 20
  48. !set fat = fat + 1
  49. 'You gladly ate cooked food.'
  50. end
  51. if water >= 20:
  52. 'Tea in you no longer climbs.'
  53. end
  54. if water < 20:
  55. 'You gladly drank a cup of tea.'
  56. set water += 20
  57. end
  58. gs 'stat'
  59. act 'Get up from the table':
  60. gt $locM, $metkaM
  61. end
  62. end
  63. =======
  64. act'Go outside':minut+=5&gt'Gaddvor'
  65. act 'Is_There':
  66. cla
  67. *clr
  68. gs'stat'
  69. frost=0
  70. '<center><img src="pics/food.jpg" ></center>'
  71. set minut = minut + 30
  72. set health = health + 10
  73. set manna = manna + 20
  74. wipo+=5
  75. salo+=1
  76. if energy >= 30:
  77. set fat = fat + 5
  78. 'You can no longer have.'
  79. end
  80. if energy >= 20 and energy < 30:
  81. set fat = fat + 3
  82. set energy = energy + 10
  83. 'You pushed through the power of a meal.'
  84. end
  85. if energy < 20:
  86. set energy = energy +20
  87. !set fat = fat + 1
  88. 'You gladly ate cooked food.'
  89. end
  90. if water >= 20:
  91. 'Tea in you no longer climbs.'
  92. end
  93. if water < 20:
  94. 'You gladly drank a cup of tea.'
  95. set water = water +20
  96. end
  97. gs'stat'
  98. act 'Get up from the table':gt $locM, $metkaM
  99. end
  100. >>>>>>> 208_Gadhouse
  101. dynamic $d_read_book
  102. <<<<<<< 208_gadhouse
  103. if indorf = 1:
  104. 'The room resting parents.'
  105. if week = 7:
  106. if hour >= 20:
  107. gt 'farmhomeride'
  108. end
  109. end
  110. =======
  111. if indorf=1:
  112. 'The room resting parents.'
  113. if week=7:
  114. if hour>=20:
  115. gt'farmhomeride'
  116. end
  117. end
  118. >>>>>>> 208_Gadhouse
  119. end
  120. <<<<<<< 208_gadhouse
  121. if monthbabkapay ! month:
  122. monthbabkapay = month
  123. money += 2000
  124. gs 'stat'
  125. 'Grandma gives you two thousand.'
  126. end
  127. --- gadhouse ---------------------------------
  128. =======
  129. if monthbabkapay!month:
  130. monthbabkapay=month
  131. money+=2000
  132. gs'stat'
  133. 'Grandma gives you two thousand.'
  134. end
  135. --- Gadhouse ---------------------------------
  136. >>>>>>> 208_Gadhouse