obkitchen.qsrc 1.3 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364
  1. # obkitchen
  2. if $args[0] = '':
  3. $metka = ''
  4. $loc = 'obkitchen'
  5. $location_type = 'private'
  6. gs 'stat'
  7. '<center><b>in the dorm kitchen</b></center>'
  8. '<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/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:25)':
  14. cla
  15. *clr
  16. minut += 25
  17. edahot += 1
  18. eda -= 1
  19. pcs_mood -= 5
  20. gs 'stat'
  21. '<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
  22. 'You prepare a meal.'
  23. gs 'obkitchen', 'food'
  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 tea biscuits.'
  35. else
  36. 'You have enough tea biscuits 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':
  48. edahot = 0
  49. gt 'food', 'm_meal'
  50. end
  51. end
  52. --- obkitchen ---------------------------------