kiosk.qsrc 6.3 KB

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