obkitchen.qsrc 1.3 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465
  1. # obkitchen
  2. if $args[0] = '':
  3. $metka = ''
  4. $loc = 'obkitchen'
  5. $location_type = 'private'
  6. $locclass = 'kitr'
  7. gs 'stat'
  8. '<center><b>in the dorm kitchen</b></center>'
  9. '<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/obkitchen.jpg"></center>'
  10. act 'Return to the corridor':gt 'dorm', 'korr'
  11. if eda > 0:
  12. 'Your shelf in the refrigerator holds <b><<eda>></b> servings of food.'
  13. if edahot = 0:
  14. act 'Cook food (0:25)':
  15. cla
  16. *clr
  17. minut += 25
  18. edahot += 1
  19. eda -= 1
  20. pcs_mood -= 5
  21. gs 'stat'
  22. '<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
  23. 'You prepare a meal.'
  24. gs 'obkitchen', 'food'
  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 tea biscuits.'
  36. else
  37. 'You have enough tea biscuits 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':
  49. edahot = 0
  50. gt 'food', 'm_meal'
  51. end
  52. end
  53. --- obkitchen ---------------------------------