kiosk.qsrc 6.4 KB

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