sitrPar 2.4 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374
  1. # sitrPar
  2. CLOSE ALL
  3. act 'Leave the room':gt 'korrPar'
  4. $metkaM = $ARGS[0]
  5. $locM = $CURLOC
  6. $metka = $ARGS[0]
  7. $loc = $CURLOC
  8. $location_type = 'private'
  9. clr
  10. minut += 1
  11. gs 'stat'
  12. if night_mode = 1:
  13. fcolor = rgb(255, 255, 255)
  14. bcolor = rgb(0, 0, 0)
  15. lcolor = rgb(106, 90, 205)
  16. else
  17. fcolor = rgb(0, 0, 0)
  18. bcolor = rgb(255, 255, 255)
  19. lcolor = rgb(106, 90, 205)
  20. end
  21. '<center><b><font color="maroon">Living Room</font></b></center>'
  22. ! WD: Correct Image path ~ "images/qwest/alter/<<$loc>>.jpg"
  23. '<center><img src="images/locations/pavlovsk/resident/apartment/home/sitrpar.jpg"></center>'
  24. 'The living room has a <a href="exec:gt ''TV'',''pav''">TV</a>, which is near the window. In front of the TV is a sofa, on which your brother sleeps at night. A large tapestry covers one wall, while the other wall has several shelves on it, stocked with books and other things.'
  25. gs 'family'
  26. if month = 12 and day >= 20:'A Christmas tree stands next to the TV, decorated with tinsel garlands and other ornaments.'
  27. if month = 12 and day = 31 and hour >= 20:
  28. act 'Celebrate the New Year with your family.':
  29. cls
  30. npc_rel['A29'] = 100
  31. npc_rel['A28'] = 100
  32. npc_rel['A33'] = 100
  33. npc_rel['A34'] = 100
  34. money += 5000
  35. hour = 23
  36. minut = 0
  37. minut += 120
  38. pcs_sleep = 0
  39. pcs_mood += 100
  40. wipo += 1000
  41. gs 'food', 'l_meal'
  42. gs 'stat'
  43. 'You sit at the festive table laid in front of the TV and celebrate the New Year with your family, the TV providing some background noise. At the table people strike up a conversation and common problems are forgotten for a while, everyone is having fun talking to each other. At midnight, everyone wishes one another a happy New Year and enjoys the champagne and fireworks outside. Your mom gives you an envelope with a greeting card and five thousand <b>₽</b>. For a while you continue to watch TV, enjoying the champagne and company of your family, but after a while everyone is kind of tired and one by one they go to bed.'
  44. act 'Leave':gt $curloc
  45. end
  46. elseif month = 1 and day = 1:
  47. act 'Eat some leftovers at the festive table.':
  48. cla
  49. *clr
  50. frost = 0
  51. minut += 15
  52. pcs_health += 10
  53. pcs_mood += 20
  54. fat += 2
  55. pcs_energy += 20
  56. water += 20
  57. cumspclnt = 2
  58. gs 'cum_cleanup'
  59. pcs_breath = 0
  60. gs 'stat'
  61. '<center><img src="images/shared/food/food.jpg"></center>'
  62. 'You have finished the leftovers remaining on the table from the holidays.'
  63. act 'Get up from the table':gt $locM, $metkaM
  64. end
  65. end
  66. --- sitrPar ---------------------------------