1
0

kiosk.qsrc 6.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233
  1. # kiosk
  2. !!WD:"SUB >= 15" for act - Will need balancing / playtesting
  3. if $kioskloc = 'counter' and $args[0] ! 'counter': gt 'kiosk', 'counter'
  4. if $ARGS[0] = 'start':
  5. if hour >= 14 and hour <= 16:
  6. *clr & cla
  7. menu_off = 1
  8. gs 'stat'
  9. '<center><img <<$set_imgh>> src="images/locations/city/shared/kiosk/kiosk21.jpg"></center>'
  10. 'It is currently very busy and looks like you''ll have to wait to get to the counter.'
  11. act 'Leave': minut += 1 & gt $loc
  12. act 'Wait in line (20 Minutes)': minut += 20 & gt 'kiosk', 'counter'
  13. if exhibitionist_lvl > 1:
  14. act 'Flash both your tits and your pussy to jump the queue':
  15. *clr & cla
  16. minut += 1
  17. gs 'flash', 'full', 'outdoors', 5
  18. gs 'stat'
  19. act 'Go to the counter': gt 'kiosk', 'counter'
  20. end
  21. end
  22. if exhibitionist_lvl > 0:
  23. act 'Flash your pussy to jump the queue':
  24. *clr & cla
  25. minut += 1
  26. gs 'flash', 'pussy', 'outdoors', 5
  27. gs 'stat'
  28. act 'Go to the counter': gt 'kiosk', 'counter'
  29. end
  30. end
  31. if pcs_inhib >= 40:
  32. act 'Flash your tits to jump the queue':
  33. *clr & cla
  34. minut += 1
  35. gs 'flash', 'tits', 'outdoors', 5
  36. gs 'stat'
  37. act 'Go to the counter': gt 'kiosk', 'counter'
  38. end
  39. end
  40. if exhibitionist_lvl > 0:
  41. act 'Suggest a blowjob in exchange for jumping the queue':
  42. if cumloc[11] = 0:
  43. *clr & cla
  44. pcs_throat += 1
  45. gs 'npcgeneratec', 0, 'stranger from the post office', rand(19,45)
  46. gs 'boyStat', $npclastgenerated
  47. inhib_exp += rand(3,5)
  48. '<center><img <<$set_imgh>> src="images/shared/sex/blowjob/kiosk_blowjob.jpg"></center>'
  49. 'A man agrees to your suggestion and lets you move in front of him.'
  50. gs 'arousal', 'bj', 10, 'sub'
  51. gs 'stat'
  52. act 'Cum on your face':
  53. *clr & cla
  54. '<center><img <<$set_imgh>> src="images/pc/body/cum/cumface/cumface' + rand(1,23) + '.jpg"></center>'
  55. 'The man cums on your face.'
  56. spafinloc = 11
  57. gs 'cum_manage'
  58. gs 'arousal', 'end'
  59. gs 'stat'
  60. act 'Go to the counter': gt 'kiosk', 'counter'
  61. end
  62. act 'Cum inside your mouth':
  63. *clr & cla
  64. '<center><img <<$set_imgh>> src="images/locations/shared/postoffice/sex/cumlip.jpg"></center>'
  65. 'The man cums inside your mouth.'
  66. spafinloc = 12
  67. gs 'cum_manage'
  68. gs 'arousal', 'end'
  69. gs 'stat'
  70. act 'Go to the counter': gt 'kiosk', 'counter'
  71. end
  72. else
  73. *clr & cla
  74. '<center><video autoplay loop src="images/locations/shared/postoffice/punch.mp4"></video></center>'
  75. 'The Man punches you in the gut and says, <font color="#0D42C0">"Go away bitch, your face is covered in sperm."</font> You stagger away from the kiosk and spend 2 hours curled up in a ball.'
  76. minut += 120
  77. gs 'pain', 4, 'tummy', 'hit'
  78. gs 'stat'
  79. act 'Recover':gt $loc
  80. end
  81. end
  82. end
  83. else
  84. gt 'kiosk', 'counter'
  85. end
  86. end
  87. if $ARGS[0] = 'counter':
  88. *clr & cla
  89. $kioskloc = 'counter'
  90. $menu_loc = 'kiosk'
  91. $menu_arg = 'counter'
  92. menu_off = 0
  93. gs 'stat'
  94. '<center><img <<$set_imgh>> src="images/locations/city/shared/kiosk/kiosk123.jpg"></center>'
  95. '<center><img WIDTH = 245 HEIGHT = 56 src="images/locations/city/shared/kiosk/ruch.jpg"></center>'
  96. if $message ! '':
  97. '<center>'+$message+'</center>'
  98. killvar '$message'
  99. else
  100. ''
  101. end
  102. *pl '<center><table align="center" width=80%>'
  103. *pl '<center><table align="center">'
  104. *P FUNC ('$stock_item', 20, 'Cigarettes', 115, 'siga', 'kiosk', 'counter')
  105. *P FUNC ('$single_stock_item', 1, 'Fashion magazine', 430, 'fashmag', 'kiosk', 'counter')
  106. *P FUNC ('$single_stock_item', 1, 'Computer magazine', 430, 'compmag', 'kiosk', 'counter')
  107. *P FUNC ('$single_stock_item', 1, 'Biographical magazine', 430, 'biomag', 'kiosk', 'counter')
  108. *P FUNC ('$single_stock_item', 1, 'Cooking magazine', 430, 'cookmag', 'kiosk', 'counter')
  109. *P FUNC ('$single_stock_item', 1, 'Knitting magazine', 430, 'knitmag', 'kiosk', 'counter')
  110. *P FUNC ('$single_stock_item', 1, 'Fitness magazine', 430, 'fitmag', 'kiosk', 'counter')
  111. *P FUNC ('$single_stock_item', 1, 'Umbrella', 1000, 'umbrella', 'kiosk', 'counter', '', iif(bag > 0, 0, 1), 'You need a purse')
  112. '</table></center>'
  113. *pl
  114. act 'Leave': $kioskloc = '' & minut += 1 & gt $loc
  115. if money >= 100:
  116. act 'Buy a snack (100 <b>₽</b>) (0:05)':
  117. *clr & cla
  118. gs 'stat'
  119. minut += 5
  120. money -= 100
  121. pcs_health += 10
  122. pcs_mood += 20
  123. fat += 6
  124. pcs_energy += 20
  125. if pcs_hydra >= 100:
  126. pcs_hydra += 10
  127. else
  128. pcs_hydra += 20
  129. end
  130. cumspclnt = 2
  131. gs 'cum_cleanup'
  132. pcs_breath = 0
  133. gs 'stat'
  134. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  135. 'You enjoy a small tasty, but somewhat fattening, snack.'
  136. act 'return': gt 'kiosk', 'start'
  137. end
  138. else
  139. 'You don''t have enough money to buy a snack.'
  140. end
  141. if money >= 40:
  142. act 'Buy some water (40 <b>₽</b>) (0:05)':
  143. *clr & cla
  144. frost = 1
  145. alko -= 1
  146. minut += 5
  147. money -= 40
  148. pcs_health += 10
  149. pcs_energy += 4
  150. if pcs_hydra >= 100:
  151. pcs_hydra += 25
  152. else
  153. pcs_hydra += 50
  154. end
  155. cumspclnt = 2
  156. gs 'cum_cleanup'
  157. pcs_breath = 0
  158. gs 'cum_cleanup'
  159. gs 'stat'
  160. '<center><img <<$set_imgh>> src="images/locations/shared/brothel/barorderwater.jpg"></center>'
  161. 'You enjoy a drink of water'
  162. act 'return': gt 'kiosk', 'start'
  163. end
  164. else
  165. 'You don''t have enough money to buy some water.'
  166. end
  167. act 'View phone themes': $kioskloc = '' & gt 'kiosk', 'themes'
  168. end
  169. if $ARGS[0] = 'themes':
  170. *clr & cla
  171. gs 'stat'
  172. '<center><img <<$set_imgh>> src="images/locations/city/shared/kiosk/kiosk123.jpg"></center>'
  173. '<center><img WIDTH = 245 HEIGHT = 56 src="images/locations/city/shared/kiosk/ruch.jpg"></center>'
  174. 'All themes cost 500 <b>₽</b>'
  175. if money >= 500:
  176. i = 1
  177. :phonethemeloop
  178. if i = 1: $phoneNameTemp = 'Bimbo'
  179. if i = 2: $phoneNameTemp = 'Aluminus'
  180. if i = 3: $phoneNameTemp = 'Bottlecapped'
  181. if i = 4: $phoneNameTemp = 'Galactic'
  182. if i = 5: $phoneNameTemp = 'Vectored'
  183. if i = 6: $phoneNameTemp = 'Veneer'
  184. if i = 7: $phoneNameTemp = 'Voidwalker'
  185. if i = 8: $phoneNameTemp = 'Voidwalker Red'
  186. if i = 9: $phoneNameTemp = 'Voidwalker Toxic'
  187. if i = 10: $phoneNameTemp = 'Gopnik'
  188. if i = 11: $phoneNameTemp = 'Sports'
  189. if i = 12: $phoneNameTemp = 'Succubus'
  190. if i = 13: $phoneNameTemp = 'Woodshop'
  191. if phonetheme[i] = 0: '<a href="exec: VIEW ''images/system/phone/previews/<<$phonetheme_name[i]>>.png''">Preview</a> <a href="exec: money -= 500 & phonetheme[<<i>>] = 1 & gt ''kiosk'', ''themes''">Buy</a> the <b><<$phoneNameTemp>></b> theme.'
  192. i += 1
  193. if i < 14: jump 'phonethemeloop'
  194. killvar '$phoneNameTemp'
  195. else
  196. 'You don''t have enough money to buy a phone theme.'
  197. end
  198. act 'Return': gt 'kiosk', 'counter'
  199. end
  200. --- kiosk ---------------------------------