obkitchen 1.3 KB

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