Gadhouse 1.5 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374
  1. # Gadhouse
  2. $metkaM = $ARGS[0]
  3. $locM = $CURLOC
  4. $metka = $ARGS[0]
  5. $loc = $CURLOC
  6. frost = 0
  7. '<center><H4>Cottage</H4></center>'
  8. '<center><img src="images/qwest/gadukino/izba.jpg"></center>'
  9. 'Simple village hut. In a small room is <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">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>'
  10. clr
  11. gs 'stat'
  12. fcolor = rgb(0, 0, 0)
  13. bcolor = rgb(255, 255, 255)
  14. lcolor = rgb(106, 90, 205)
  15. act 'Go outside':minut += 5 & gt 'Gaddvor'
  16. act 'Eat':
  17. cla
  18. *clr
  19. frost = 0
  20. minut += 30
  21. health += 10
  22. manna += 20
  23. wipo += 5
  24. salo += 1
  25. gs 'stat'
  26. '<center><img src="images/pics/food.jpg"></center>'
  27. if energy >= 30:
  28. fat += 5
  29. 'You can no longer eat.'
  30. elseif energy >= 20 and energy < 30:
  31. fat += 3
  32. energy += 10
  33. 'You pushed through the power of a meal.'
  34. elseif energy < 20:
  35. energy += 20
  36. !!fat = fat + 1
  37. 'You gladly ate cooked food.'
  38. end
  39. if water >= 20:
  40. 'You don''t need any more tea.'
  41. elseif water < 20:
  42. water += 20
  43. 'You gladly drank a cup of tea.'
  44. end
  45. gs 'stat'
  46. act 'Get up from the table':gt $locM, $metkaM
  47. end
  48. dynamic $d_read_book
  49. if indorf = 1:
  50. 'The room resting parents.'
  51. if week = 7:
  52. if hour >= 20:gt 'farmhomeride'
  53. end
  54. end
  55. if monthbabkapay ! month:
  56. monthbabkapay = month
  57. money += 2000
  58. gs 'stat'
  59. 'Grandma gives you two thousand.'
  60. end
  61. --- Gadhouse ---------------------------------