obkitchen 1.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566
  1. # obkitchen
  2. if $args[0] = '':
  3. $metkaM = $ARGS[0]
  4. $locM = $CURLOC
  5. $location_type = 'private'
  6. gs 'stat'
  7. '<center><b>in the dorm kitchen</b></center>'
  8. '<center><img src="images/img/centr/obkitchen.jpg"></center>'
  9. act 'Return to the corridor':gt 'dorm', 'korr'
  10. if eda > 0:
  11. 'Your shelf in the refrigerator holds <b><<eda>></b> servings of food.'
  12. if edahot = 0:
  13. act 'Cook food (0:30)':
  14. cla
  15. *clr
  16. minut += 30
  17. edahot += 1
  18. eda -= 1
  19. manna -= 5
  20. gs 'stat'
  21. '<center><img src="images/pics/cook.jpg"></center>'
  22. 'You prepare a meal.'
  23. gs 'obkitchen', 'food'
  24. act 'Leave the meal':gt 'obkitchen'
  25. end
  26. end
  27. end
  28. if edaD = 0 and eda = 0:'<b><font color = red>Your shelf in the refrigerator is bare, there is nothing left for you to eat.</font></b>'
  29. if edahot > 0:
  30. 'A cooked meal is on the table.'
  31. gs 'obkitchen', 'food'
  32. end
  33. if pranik > 0:
  34. if pranik = 1:
  35. 'You only have one more portion of cookies.'
  36. else
  37. 'You have enough cookies for <b><<pranik>></b> more snacks.'
  38. end
  39. dynamic $pranik
  40. end
  41. dynamic $edaD
  42. dynamic $fatdel
  43. dynamic $driwater
  44. dynamic $lekarstvo
  45. dynamic $vitamin
  46. end
  47. if $args[0] = 'food':
  48. act 'Eat cooked food (0:30)':
  49. cla
  50. *clr
  51. edahot = 0
  52. manna += 20
  53. dynamic $food
  54. end
  55. end
  56. --- obkitchen ---------------------------------