Gaddvor.qsrc 4.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122
  1. # Gaddvor
  2. if $ARGS[0]='':
  3. $metka = ''
  4. $loc = 'Gaddvor'
  5. $location_type = 'public_outdoors'
  6. killvar '$locclass'
  7. gs 'stat'
  8. CLOSE ALL
  9. gs 'gadukino_event', 'sound'
  10. clothesAtLocation = FUNC('lost_clothes_here',$CURLOC)
  11. if clothesAtLocation = 1:
  12. if $clothingworntype = 'nude':
  13. act 'Get dressed':
  14. gs 'clothing', 'recover_lost_clothes', 'Gaddvor', 1
  15. gs 'underwear', 'wear'
  16. gt 'Gaddvor'
  17. end
  18. else
  19. act 'Pick up your clothes':
  20. gs 'clothing', 'recover_lost_clothes', 'Gaddvor'
  21. 'You picked up your clothes.'
  22. gt 'Gaddvor'
  23. end
  24. end
  25. end
  26. if StoryLine = 1:
  27. '<center><h4>Your grandparents'' yard</h4></center>'
  28. else
  29. '<center><h4>Old Couple''s yard</h4></center>'
  30. end
  31. if month >= 4 and month <= 10:
  32. if hour >= 6 and hour < 22:
  33. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/dvor.jpg"></center>'
  34. else
  35. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/dvor_night.jpg"></center>'
  36. end
  37. else
  38. if hour >= 8 and hour < 18:
  39. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/dvor_winter.jpg"></center>'
  40. else
  41. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/dvor_winter_night.jpg"></center>'
  42. end
  43. end
  44. if StoryLine = 1:
  45. 'A fenced yard behind your grandparents'' house. The yard is surrounded by a small barn packed with junk and a separate building that is used as a banya where you can take a bath. On the back porch are a few chairs to sit in.'
  46. else
  47. 'A fenced yard behind the house. The yard is surrounded by a small barn packed with junk and a separate building that is used as a banya where people take a bath. On the back porch are a few chairs to sit in.'
  48. end
  49. if StoryLine = 1:
  50. act 'Enter your grandparents'' house':minut += 1 & gt 'Gadhouse'
  51. act 'Enter the banya':minut += 1 & gt 'Gadbana'
  52. end
  53. if $clothingworntype = 'nude':
  54. *nl
  55. 'You are naked and can only go into your grandparent''s house to get dressed or go to the banya.'
  56. else
  57. if feed_chickens = 1 or (hour >= 6 and hour < 20 and month >= 4 and month <= 10):'In the yard there are <a href="exec:gt ''Gaddvor'',''chickens''">chickens</a> running around.'
  58. if mira_guest = 1: Miraloc = 7 & 'Your friend <a href="exec: gt ''Miroslava'', ''Start''">Mira</a> stands next to you.'
  59. act 'Go to the barn':minut += 1 & gt 'Gadsarai'
  60. act 'Go to the garden':minut += 1 & gt'Gadgarden','garden'
  61. if meadow > 0 and hour >= 6 and hour < 20 and month >= 4 and month <= 10:act 'Go to the meadow':minut += 20 & gt 'Meadow', 'start'
  62. act '<b>Go to Gadukino</b>':minut += 5 & gt 'gadukino'
  63. !removed from 1.2.5
  64. if hour >= 17 and hour < 20:
  65. if mitkaday!daystart:'<a href="exec:gt ''mitka''">Mitka</a> is hanging out near the barn in your grandparents'' backyard, he is following you while taking a smoke.'
  66. elseif hour >= 20 and sunWeather = 1:
  67. 'Several <a href="exec:gt ''mitkabuh''">young men</a> are sitting near your grandparents'' backyard, drinking moonshine and talking loudly.'
  68. end
  69. !125s
  70. mira_temp = rand(1,5)
  71. if mira_temp = 3 and hour >= 9 and hour <= 19 and npc_rel['A60'] >= 15 and Mira_no = 0 and sunWeather = 1 and mira_guestday ! daystart and (npc_QW['A63'] < 13 or npc_QW['A60'] >= 10 or mirasex > 1):
  72. *clr & cla
  73. gs 'Miroslava', 'miraclothes'
  74. 'You went out into the yard and noticed Mira standing there.'
  75. '"Oh, <<$pcs_nickname>> hi, hope you don’’t mind me visiting. I was bored being home alone." she said smiling.'
  76. mira_guestday = daystart
  77. minut += 5
  78. mira_guest = 1
  79. gs 'stat'
  80. act 'Further':gt'Gaddvor'
  81. end
  82. end
  83. end
  84. if $ARGS[0]='chickens':
  85. *clr & cla
  86. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/chickens1.jpg"></center>'
  87. 'Ordinary chickens clucking about their pen.'
  88. minut += 1
  89. gs 'stat'
  90. !job Granny
  91. if feed_chickens = 1:
  92. act 'Feed the chickens':
  93. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/chickens2.jpg"></center>'
  94. 'You decide to feed the chickens. You pick up a bucket full of bird''s seed and grain mix and toss it on the ground. They immediately rush over and start to greedily eat. You watch them for a bit before you go about your business.'
  95. *clr & cla
  96. minut += 30
  97. grandmahelp += 1
  98. feed_chickens = 0
  99. hndiwrk_exp += rand(0,3)
  100. gs 'stat'
  101. act 'Finish':gt'Gaddvor'
  102. end
  103. end
  104. act 'Leave': gt'Gaddvor'
  105. end
  106. !!125e
  107. --- Gaddvor ---------------------------------