kiosk.qsrc 6.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225
  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 = 'counter'
  91. $menu_arg = ''
  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. act 'Buy a snack (100 <b>₽</b>) (0:05)':
  116. *clr & cla
  117. gs 'stat'
  118. minut += 5
  119. money -= 100
  120. pcs_health += 10
  121. pcs_mood += 20
  122. fat += 6
  123. pcs_energy += 20
  124. if pcs_hydra >= 100:
  125. pcs_hydra += 10
  126. else
  127. pcs_hydra += 20
  128. end
  129. cumspclnt = 2
  130. gs 'cum_cleanup'
  131. pcs_breath = 0
  132. gs 'stat'
  133. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  134. 'You enjoy a small tasty, but somewhat fattening, snack.'
  135. act 'return': gt 'kiosk', 'start'
  136. end
  137. act 'Buy some water (40 <b>₽</b>) (0:05)':
  138. *clr & cla
  139. frost = 1
  140. alko -= 1
  141. minut += 5
  142. money -= 40
  143. pcs_health += 10
  144. pcs_energy += 4
  145. if pcs_hydra >= 100:
  146. pcs_hydra += 25
  147. else
  148. pcs_hydra += 50
  149. end
  150. cumspclnt = 2
  151. gs 'cum_cleanup'
  152. pcs_breath = 0
  153. gs 'cum_cleanup'
  154. gs 'stat'
  155. '<center><img <<$set_imgh>> src="images/locations/shared/brothel/barorderwater.jpg"></center>'
  156. 'You enjoy a drink of water'
  157. act 'return': gt 'kiosk', 'start'
  158. end
  159. act 'View phone themes': $kioskloc = '' & gt 'kiosk', 'themes'
  160. end
  161. if $ARGS[0] = 'themes':
  162. *clr & cla
  163. gs 'stat'
  164. '<center><img <<$set_imgh>> src="images/locations/city/shared/kiosk/kiosk123.jpg"></center>'
  165. '<center><img WIDTH = 245 HEIGHT = 56 src="images/locations/city/shared/kiosk/ruch.jpg"></center>'
  166. 'All themes cost 500 <b>₽</b>'
  167. if money >= 500:
  168. i = 1
  169. :phonethemeloop
  170. if i = 1: $phoneNameTemp = 'Bimbo'
  171. if i = 2: $phoneNameTemp = 'Aluminus'
  172. if i = 3: $phoneNameTemp = 'Bottlecapped'
  173. if i = 4: $phoneNameTemp = 'Galactic'
  174. if i = 5: $phoneNameTemp = 'Vectored'
  175. if i = 6: $phoneNameTemp = 'Veneer'
  176. if i = 7: $phoneNameTemp = 'Voidwalker'
  177. if i = 8: $phoneNameTemp = 'Voidwalker Red'
  178. if i = 9: $phoneNameTemp = 'Voidwalker Toxic'
  179. if i = 10: $phoneNameTemp = 'Gopnik'
  180. if i = 11: $phoneNameTemp = 'Sports'
  181. if i = 12: $phoneNameTemp = 'Succubus'
  182. if i = 13: $phoneNameTemp = 'Woodshop'
  183. 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.'
  184. i += 1
  185. if i < 14: jump 'phonethemeloop'
  186. killvar '$phoneNameTemp'
  187. else
  188. 'You don''t have enough money to buy a phone theme.'
  189. end
  190. act 'Return': gt 'kiosk', 'counter'
  191. end
  192. --- kiosk ---------------------------------