1
0

liames.qsrc 6.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188
  1. # liames
  2. $loc_arg = ''
  3. $loc = 'liames'
  4. $location_type = 'public_outdoors'
  5. $menu_loc = 'liames'
  6. $menu_arg = ''
  7. menu_off = 0
  8. CLOSE ALL
  9. clr
  10. gs'stat'
  11. set palMir=0
  12. set bordysh=0
  13. set housrA=0
  14. set palMir=0
  15. set obdysh=0
  16. set tanhouse1=0
  17. set obMir=0
  18. set obLoker=0
  19. set houseob=0
  20. set borMir=0
  21. set borLoker=0
  22. set minut+=10
  23. '<center><B>High Street</B></center>'
  24. '<center><img <<$set_imgh>> src="images/locations/oldtown/liames.jpg" ></center>'
  25. 'High Street is a square serving as the joining point of several smaller streets. There are many small cafes and shops.'
  26. 'Another street runs straight to the <a href="exec:gt ''liam'',''start''">Town Center</a>.'
  27. 'High Street itself leads to the Old Town <a href="exec:gt ''parks'',''start''">Park</a>.'
  28. if hour >= 8 and hour <= 20:
  29. 'A small <a href="exec:gt ''larek'',''start''">grocery store</a> is currently open.'
  30. else
  31. 'There is a small whole foods store that is open from 8:00 - 20:00 everyday. It is currently closed.'
  32. end
  33. if hour >= 10 and hour <= 22:
  34. 'A quaint little restaurant has put a sign outside of its door, reading, "<a href="exec:gt ''liamelkafe'',''start''">Liamel Cafe</a>."'
  35. else
  36. 'Liamel Cafe is current closed, it is open every day 10:00 - 22:00'
  37. end
  38. if exhibitionQW > 3:
  39. if week < 7 and hour >= 8 and hour <= 18:
  40. '<a href="exec:gt ''exhibitionistshop'',''start''">Expression of You</a> is just down a small side street from here.'
  41. else
  42. '<b>Expression of You,</b> is open Mon - Sat, 8:00 - 18:00'
  43. end
  44. end
  45. if hour >= 18 and hour <= 22:
  46. if pcs_inhib > 30:
  47. 'There is a <a href="exec:gt ''burlesque'',''start''">burlesque club</a> with shows running until 22:00, that was once an old theatre.'
  48. else
  49. 'There is a burlesque club in an old theatre here. It makes you self-conscious about your looks and you cannot bring yourself to go there.'
  50. end
  51. else
  52. 'The old theatre housing a burlesque club is closed now. It is open every day 18:00 - 22:00'
  53. end
  54. if home_owned[4] = 1: act '<b>Go home</b>':gt'korr2x'
  55. if hour >= 8 and hour <= 17 and exhibitionQW = 3: act 'Search for the shop on the card from Kseniya': gt 'exhibitionistshop', 'start'
  56. act 'wait':gs 'obj_din', 'wait'
  57. if home_owned[4] = 1 and hour = meethour:
  58. if svidanie[0] = 1:'<b>Near the entrance you expect <a href="exec:lover_number = 0 & gt ''lover_meet'',''start''"><<$loverdesc[0]>></a></b>'
  59. if svidanie[1] = 1:'<b>Near the entrance you expect <a href="exec:lover_number = 1 & gt ''lover_meet'',''start''"><<$loverdesc[1]>></a></b>'
  60. if svidanie[2] = 1:'<b>Near the entrance you expect <a href="exec:lover_number = 2 & gt ''lover_meet'',''start''"><<$loverdesc[2]>></a></b>'
  61. end
  62. if rand(0,100) >= 60 and pcs_lover < 3 and rand(0,1200) <= pcs_apprnc:
  63. gs 'boy'
  64. 'To you came <<$boybody>> <<$boybod>> <<$boyface>>. It <<$boyClo>>'
  65. 'The guy introduced himself as <<$boydesc>> and asks you for your telephone number.'
  66. act 'Walk away': gt 'liames'
  67. act 'Tell him your telephone number.':
  68. cla
  69. gs'boyfrend', 'start'
  70. stopboy = 0
  71. '<<$boydesc>> saved your phone number and left.'
  72. act 'Continue': gt 'liames'
  73. end
  74. end
  75. if rand(1,100) >= 95:
  76. *clr & cla
  77. minut += 5
  78. gs'stat'
  79. '<center><img <<$set_imgh>> src="images/locations/oldtown/liamhud1.jpg"></center>'
  80. 'Making your way down High Street, you see a woman waiting patiently while an artist paints her portrait.'
  81. act 'Continue': gt'liames'
  82. end
  83. if hour >= 8 and hour <= 20 and sunWeather = 1 and temper >= 15 and ml_guitar['carried'] = 1 and ml_performance['performed_minutes'] < ml_performance['max_perform_minutes'] and ml_performance['max_perform_minutes'] >= 15:
  84. *nl
  85. 'With the weather being pleasant and sunny, there are groups of people moving around the streets. You could play some music, practice performing songs and maybe make some money too.'
  86. ml_buskingtime = min((ml_performance['max_perform_minutes']-ml_performance['performed_minutes']), 60)
  87. if pcs_inhib < 30:
  88. if pcs_inhib < 10:
  89. $diff = 'hard'
  90. elseif pcs_inhib < 20:
  91. $diff = 'medium'
  92. else
  93. $diff = 'easy'
  94. end
  95. gs 'willpower', 'skill', 'self', $diff
  96. will_cost = (will_cost * 3) - (pcs_perform)
  97. if will_cost <= pcs_willpwr:
  98. act 'Start busking (<<ml_buskingtime>> minutes) (<<will_cost>> Willpower)':
  99. inhib_exp += rand(1,3)
  100. gs 'willpower', 'pay', 'self'
  101. gs 'stat'
  102. gs 'music_buskingevents', 'busking', 'oldtown'
  103. end
  104. else
  105. act 'Start busking (<<ml_buskingtime>> minutes) (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  106. end
  107. else
  108. act 'Start busking (<<ml_buskingtime>> minutes)': gs 'music_buskingevents', 'busking', 'oldtown'
  109. end
  110. end
  111. if hour >= 15 and hour <= 22 and tusa = 0:
  112. act 'Go to the local hangout':
  113. *clr & cla
  114. menu_off = 1
  115. minut += 20
  116. tusa = 1
  117. gs 'dibodi'
  118. gs'stat'
  119. '<center><img <<$set_imgh>> src="images/locations/oldtown/photo.jpg"></center>'
  120. 'Local youth get-together.'
  121. act 'Explore it': gt 'dibodi', 'sgtusa'
  122. end
  123. elseif hour >= 15 and hour <= 22 and tusa = 1 and tusnyakday ! daystart:
  124. act 'Go to the local hangout':
  125. *clr & cla
  126. menu_off = 1
  127. minut += 20
  128. gs'dibodi'
  129. gs'stat'
  130. '<center><img <<$set_imgh>> src="images/locations/oldtown/photo.jpg"></center>'
  131. 'The girls and boys at the local hangout happily greet you.'
  132. act'Leave': gt 'liames'
  133. if $pantyworntype = 'none' and sttan = 0:
  134. cla
  135. '"Hey guys, <<$pcs_nickname>> is going commando," one of the boys says.'
  136. act 'Continue':gt 'dibodi', 'sotusa'
  137. end
  138. !! if sttan = 1 and $pantyworntype = 'none':
  139. !! '- <<$pcs_nickname>>, and again without panties, - said one of the boys - Pussy pokezh?'
  140. !! '- And yet to show? - you said - How do I want and go.'
  141. !! act 'Further':gt'etoexhib','pos2'
  142. !! end
  143. !! if sttan = 1 and $pantyworntype ! 'none':
  144. !! '- Vav <<$pcs_nickname>> truselya put.'
  145. !! act 'Answer':gt'etoexhib','pos3'
  146. !! end
  147. end
  148. end
  149. if stallionQ = 3:
  150. *clr & cla
  151. 'There is a rumbling in your stomach, you need to use the restroom. There appears to be a public restroom tucked into the corner of a building. Unfortunately, the female one has a sign reading, "Out of order."'
  152. gs 'willpower', 'misc', 'resist', 'easy'
  153. if will_cost <= pcs_willpwr:
  154. act 'Hold it (<<will_cost>> Willpower)':
  155. gs 'willpower', 'pay', 'resist'
  156. stallionQ = 1
  157. gt 'liames'
  158. end
  159. else
  160. act 'Hold it (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  161. end
  162. act 'Use the Men''s Restroom': gt 'stallion','start'
  163. end
  164. --- liames ---------------------------------