mod_public_WC_kara.qsrc 19 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652
  1. # mod_public_WC_kara
  2. if $ARGS[0] = '0sliv':
  3. $loc = 'mod_public_WC_kara'
  4. slova = 0
  5. 'Oh, no! I spent more words than I had.'
  6. wait 700
  7. if brak <= 2:
  8. 'You do not want to listen, you will be punished!'
  9. act 'continue': gt 'mod_public_WC_kara', 'kara3'
  10. else
  11. brak += 1
  12. temp = rand (1,3)
  13. if temp = 1: pcs_humint += 1
  14. 'You have been warned about words, you will be punished'
  15. wait 1500
  16. if brak < 10:
  17. temp = 1
  18. if cumgame = 1: temp = 2
  19. elseif brak < 20:
  20. temp = 6
  21. elseif brak < 30:
  22. temp = rand(2,3)
  23. elseif brak < 40:
  24. temp = rand(2,4)
  25. elseif brak < 60:
  26. temp = rand(1,2)
  27. if temp = 1: temp = 4
  28. if temp = 2: temp = 7
  29. elseif brak < 70:
  30. temp = rand(1,3)
  31. if temp = 1: temp = 4
  32. if temp = 2: temp = 5
  33. if temp = 3: temp = 7
  34. else
  35. temp = 5
  36. end
  37. if temp = 1: gt 'mod_public_WC_kara', 'kara1'
  38. if temp = 2: gt 'mod_public_WC_kara', 'kara2'
  39. if temp = 3: gt 'mod_public_WC_kara', 'kara3'
  40. if temp = 4: gt 'mod_public_WC_kara', 'kara4'
  41. if temp = 5: gt 'mod_public_WC_kara', 'kara5'
  42. if temp = 6: gt 'mod_public_WC_kara', 'kara6'
  43. if temp = 7: gt 'mod_public_WC_kara7', 'kara7'
  44. end
  45. end
  46. if $ARGS[0] = 'vtecha':
  47. $loc = 'mod_public_WC_kara'
  48. 'You will be punished!'
  49. act 'Continue':
  50. if brak < 10:
  51. temp = 1
  52. if cumgame = 1: temp = 2
  53. elseif brak < 20:
  54. temp = 6
  55. elseif brak < 30:
  56. temp = rand(2,3)
  57. elseif brak < 40:
  58. temp = rand(2,4)
  59. elseif brak < 60:
  60. temp = rand(1,2)
  61. if temp = 1: temp = 4
  62. if temp = 2: temp = 7
  63. elseif brak < 70:
  64. temp = rand(1,3)
  65. if temp = 1: temp = 4
  66. if temp = 2: temp = 5
  67. if temp = 3: temp = 7
  68. else
  69. temp = 5
  70. end
  71. if temp = 1: gt 'mod_public_WC_kara', 'kara1'
  72. if temp = 2: gt 'mod_public_WC_kara', 'kara2'
  73. if temp = 3: gt 'mod_public_WC_kara', 'kara3'
  74. if temp = 4: gt 'mod_public_WC_kara', 'kara4'
  75. if temp = 5: gt 'mod_public_WC_kara', 'kara5'
  76. if temp = 6: gt 'mod_public_WC_kara', 'kara6'
  77. if temp = 7: gt 'mod_public_WC_kara7', 'kara7'
  78. end
  79. end
  80. if $ARGS[0] = 'kara1':
  81. CLOSE ALL
  82. menu_off = 0
  83. $location_type = 'secluded'
  84. *clr & cla
  85. $loc = 'mod_public_WC_kara'
  86. gs 'stat'
  87. 'Well, I understand everything, you''re new. And the punishment will not be severe, yet. Appreciate my generosity.'
  88. gs 'arousal', 'voyeur', 2
  89. gs 'stat'
  90. 'Redneck fills a full glass and hands it to me.'
  91. temp = rand (1,3)
  92. '<center><video autoplay loop src="mod/public_WC/lisrab/kara/1/<<temp>>.mp4"></video></center>'
  93. emptyglass = 0
  94. 'Drink!'
  95. if trt_cumeater = 1:
  96. act 'With pleasure. I drink':
  97. *clr & cla
  98. '<center><img <<$set_imgh>> src="mod/public_WC/lisrab/kara/1/drinkp1.jpg"></center>'
  99. gs 'cum_call', 'mouth', 'redneck'
  100. cumstakan = rand(1,brak) - 1
  101. cumgame = 1
  102. cumwin = cumstakan
  103. 'He strokes my head and says, well done. All over the yard and houses, I''ll hide <<cumstakan>> glasses full of cum. You must find them all and drink as soon as possible. Day after tomorrow you will show me all the empty glasses.'
  104. 'And for your persistence, I give you 2 words.'
  105. slova += 2
  106. vlada += 1
  107. if week = 1: finishcumgame = 3
  108. if week = 2: finishcumgame = 4
  109. if week = 3: finishcumgame = 5
  110. if week = 4: finishcumgame = 6
  111. if week = 5: finishcumgame = 7
  112. if week = 6: finishcumgame = 1
  113. if week = 7: finishcumgame = 2
  114. gs 'stat'
  115. act 'Continue': gt 'mod_public_WC_rab', 'dvir'
  116. end
  117. end
  118. act 'I drink it':
  119. *clr & cla
  120. '<center><img <<$set_imgh>> src="mod/public_WC/lisrab/kara/1/drinkp1.jpg"></center>'
  121. willpowermax -= rand(1,2)
  122. gs 'cum_call', 'mouth', 'redneck'
  123. cumstakan = rand(1,brak) - 1
  124. cumgame = 1
  125. cumwin = cumstakan
  126. 'He strokes my head and says, well done. All over the yard and houses, I''ll hide <<cumstakan>> glasses full of cum. You must find them all and drink as soon as possible. Day after tomorrow you will show me all the empty glasses.'
  127. 'Well done, get a word.'
  128. slova += 1
  129. vlada += 1
  130. if week = 1: finishcumgame = 3
  131. if week = 2: finishcumgame = 4
  132. if week = 3: finishcumgame = 5
  133. if week = 4: finishcumgame = 6
  134. if week = 5: finishcumgame = 7
  135. if week = 6: finishcumgame = 1
  136. if week = 7: finishcumgame = 2
  137. gs 'stat'
  138. act 'Continue': gt 'mod_public_WC_rab', 'dvir'
  139. end
  140. gs 'willpower', 'misc', 'self', 'hard'
  141. if will_cost <= pcs_willpwr:
  142. act 'No! (<<will_cost>> Willpower)':
  143. *clr & cla
  144. gs 'willpower', 'pay', 'self'
  145. gs 'stat'
  146. '"You disappoint me!" He hit me in the face with a big swing...'
  147. gs 'pain', rand(3,4), 'head', 'hit'
  148. brak += 2
  149. willpowermax += rand(0,2)
  150. gs 'stat'
  151. act 'Continue': gt 'mod_public_WC_kara', 'kara3'
  152. end
  153. else
  154. act 'No! (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  155. end
  156. end
  157. if $ARGS[0] = 'kara2':
  158. CLOSE ALL
  159. menu_off = 0
  160. $location_type = 'secluded'
  161. *clr & cla
  162. $loc = 'mod_public_WC_kara'
  163. gs 'bras', 'remove'
  164. gs 'clothing', 'strip'
  165. gs 'panties', 'remove'
  166. gs 'stat'
  167. 'What have you still not understood what you need! You have everything you want and yet you create problems!'
  168. 'They tied me, now I looks like sex doll.'
  169. temp = rand(1,9)
  170. '<center><img <<$set_imgh>> src="mod/public_WC/lisrab/kara/2/s<<temp>>.jpg"></center>'
  171. act 'wait':
  172. *clr & cla
  173. 'Redneck fucked me'
  174. temp = rand(1,3)
  175. '<center><video autoplay loop src="mod/public_WC/lisrab/kara/2/p<<temp>>.mp4"></video></center>'
  176. pcs_vag += 1
  177. guy += 1
  178. rape += 1
  179. gs 'cum_call', 'vaginal', 'redneck'
  180. gs 'cum_manage'
  181. gs 'cuminsidereact', 'redneck'
  182. minut += rand(5, 25)
  183. temp = rand (5,13)
  184. trah = temp
  185. gs 'stat'
  186. act 'Contiue':
  187. cla
  188. temp = rand(1,2)
  189. if temp = 1: gt 'mod_public_WC_kara', 'bj'
  190. if temp = 2: gt 'mod_public_WC_kara', 'sex'
  191. end
  192. end
  193. end
  194. if $ARGS[0] = 'bj':
  195. CLOSE ALL
  196. menu_off = 0
  197. $location_type = 'secluded'
  198. *clr & cla
  199. $loc = 'mod_public_WC_kara'
  200. trah -= 1
  201. if trah < 0:
  202. gt 'mod_public_WC_rab', 'dvir'
  203. else
  204. temp = rand(5, 45)
  205. minut += temp
  206. 'After <<temp>> minuts next redneck come'
  207. 'He fucked my mouth.'
  208. temp = rand (1,6)
  209. '<center><img <<$set_imgh>> src="mod/public_WC/lisrab/kara/2/b<<temp>>.jpg"></center>'
  210. gs 'arousal', 'bj', temp, 'sub', 'rough'
  211. swallow += 1
  212. rape += 1
  213. gs 'cum_call', 'mouth', 'redneck'
  214. minut += rand(5, 15)
  215. gs 'stat'
  216. act 'Contiue':
  217. temp = rand(1,2)
  218. if temp = 1: gt 'mod_public_WC_kara', 'bj'
  219. if temp = 2: gt 'mod_public_WC_kara', 'sex'
  220. end
  221. end
  222. end
  223. if $ARGS[0] = 'sex':
  224. CLOSE ALL
  225. menu_off = 0
  226. $location_type = 'secluded'
  227. *clr & cla
  228. $loc = 'mod_public_WC_kara'
  229. trah -= 1
  230. if trah < 0:
  231. gt 'mod_public_WC_rab', 'dvir'
  232. else
  233. temp = rand(5, 45)
  234. minut += temp
  235. 'After <<temp>> minuts next redneck come'
  236. 'He fucked me'
  237. temp = rand(1,3)
  238. '<center><video autoplay loop src="mod/public_WC/lisrab/kara/2/p<<temp>>.mp4"></video></center>'
  239. pcs_vag += 1
  240. guy += 1
  241. rape += 1
  242. gs 'cum_call', 'vaginal', 'redneck'
  243. gs 'cum_manage'
  244. gs 'cuminsidereact', 'redneck'
  245. gs 'arousal', 'vaginal', 15, 'unknown', 'sub', 'rough', 'rape'
  246. gs 'stat'
  247. act 'Contiue':
  248. temp = rand(1,2)
  249. if temp = 1: gt 'mod_public_WC_kara', 'bj'
  250. if temp = 2: gt 'mod_public_WC_kara', 'sex'
  251. end
  252. end
  253. end
  254. if $ARGS[0] = 'kara3':
  255. CLOSE ALL
  256. menu_off = 0
  257. $location_type = 'secluded'
  258. *clr & cla
  259. $loc = 'mod_public_WC_kara'
  260. gs 'bras', 'remove'
  261. gs 'panties', 'remove'
  262. gs 'stat'
  263. 'What have you still not understood what you need! You have everything you want and yet you create problems!'
  264. 'I was tied up outside'
  265. temp = rand(1,2)
  266. if temp = 1:
  267. temp = rand(1,3)
  268. '<center><img <<$set_imgh>> src="mod/public_WC/lisrab/kara/3/s<<temp>>.jpg"></center>'
  269. else
  270. temp = rand(1,2)
  271. '<center><video autoplay loop src="mod/public_WC/lisrab/kara/3/sv<<temp>>.mp4"></video></center>'
  272. end
  273. act 'wait':
  274. *clr & cla
  275. 'Redneck used my mouth'
  276. temp = rand(1,2)
  277. if temp = 1:
  278. temp = rand(1,2)
  279. '<center><img <<$set_imgh>> src="mod/public_WC/lisrab/kara/3/b<<temp>>.jpg"></center>'
  280. else
  281. temp = rand(1,3)
  282. '<center><video autoplay loop src="mod/public_WC/lisrab/kara/3/bv<<temp>>.mp4"></video></center>'
  283. end
  284. gs 'arousal', 'bj', rand(5, 15)
  285. swallow += 1
  286. rape += 1
  287. sper = 1
  288. gs 'cum_call', 'mouth', 'redneck'
  289. minut += rand(5, 15)
  290. gs 'stat'
  291. trah = rand(1,10)
  292. act 'Contiue': gt 'mod_public_WC_kara', 'bj2'
  293. end
  294. end
  295. if $ARGS[0] = 'bj2':
  296. CLOSE ALL
  297. menu_off = 0
  298. $location_type = 'secluded'
  299. *clr & cla
  300. $loc = 'mod_public_WC_kara'
  301. trah -= 1
  302. sper += 1
  303. if trah < 0:
  304. act 'Finally the end': gt 'mod_public_WC_rab', 'dvir'
  305. else
  306. temp = rand(5, 45)
  307. minut += temp
  308. 'After <<temp>> minuts next redneck come'
  309. 'Redneck fucked my mouth'
  310. if temp = 1:
  311. temp = rand(1,2)
  312. '<center><img <<$set_imgh>> src="mod/public_WC/lisrab/kara/3/b<<temp>>.jpg"></center>'
  313. else
  314. temp = rand(1,3)
  315. '<center><video autoplay loop src="mod/public_WC/lisrab/kara/3/bv<<temp>>.mp4"></video></center>'
  316. end
  317. gs 'arousal', 'bj', rand(5, 15)
  318. swallow += 1
  319. rape += 1
  320. gs 'cum_call', 'mouth', 'redneck'
  321. if sper >= 3: gs 'cum_call', 'face', 'redneck'
  322. if sper = 4: gs 'cum_call', 'clothes', 'redneck'
  323. if sper = 5:
  324. gs 'cum_call', 'hair', 'redneck'
  325. gs 'clothing', 'strip'
  326. end
  327. if sper >= 6:
  328. gs 'cum_call', 'legs', 'redneck'
  329. gs 'cum_call', 'hair', 'redneck'
  330. end
  331. if sper >= 7: gs 'cum_call', 'mouth', 'redneck'
  332. gs 'stat'
  333. act 'Next?': gt 'mod_public_WC_kara', 'bj2'
  334. end
  335. end
  336. if $ARGS[0] = 'kara4':
  337. CLOSE ALL
  338. menu_off = 0
  339. $location_type = 'secluded'
  340. *clr & cla
  341. $loc = 'mod_public_WC_kara'
  342. gs 'stat'
  343. if brak >= 30:
  344. temp = rand(1,2)
  345. else
  346. temp = 1
  347. end
  348. if temp = 1:
  349. 'Simple methods do not cure, let''s try this one'
  350. temp = rand (1,4)
  351. '<center><video autoplay loop src="mod/public_WC/lisrab/kara/4/uv<<temp>>.mp4"></video></center>'
  352. stat['BDSM'] += 1
  353. gs 'arousal', 'BDSM', rand(45,120), 'bound', 'sub'
  354. gs 'pain', rand(0,2), 'back', 'spank'
  355. gs 'pain', rand(0,2), 'asscheeks', 'spank'
  356. gs 'pain', rand(0,2), 'hips', 'spank'
  357. gs 'pain', rand(0,2), 'legL', 'spank'
  358. gs 'pain', rand(0,2), 'legR', 'spank'
  359. gs 'pain', rand(0,2), 'shoulders', 'spank'
  360. gs 'pain', rand(0,2), 'armL', 'spank'
  361. gs 'pain', rand(0,2), 'armR', 'spank'
  362. gs 'pain', rand(0,2), 'chest', 'spank'
  363. gs 'pain', rand(0,2), 'breasts', 'spank'
  364. gs 'pain', rand(0,2), 'nipples', 'spank'
  365. gs 'pain', rand(0,2), 'ribs', 'spank'
  366. gs 'pain', rand(0,2), 'tummy', 'spank'
  367. gs 'pain', rand(0,2), 'pubic', 'spank'
  368. gs 'pain', rand(0,2), 'labia', 'spank'
  369. gs 'stat'
  370. act 'Finally the end': gt 'mod_public_WC_rab', 'dvir'
  371. else
  372. 'Hold the bottle. You now have a choice. Either you jump on it, or or I''ll shove 3 of those in you'
  373. temp = rand(1,3)
  374. stat['BDSM'] += 1
  375. '<center><video autoplay loop src="mod/public_WC/lisrab/kara/4/pv<<temp>>.mp4"></video></center>'
  376. 'I have no choice, I agreed.'
  377. willpowermax -= rand(0,2)
  378. $orgasm_or = 'yes'
  379. gs 'arousal', 'vaginal_fist', 15, 'rough', 'sub', 'humiliation'
  380. gs 'arousal', 'end'
  381. gs 'stat'
  382. vlada += 1
  383. pcs_vag += 4
  384. stat['vaginal'] += 3
  385. stat['vaginal_fist'] += 4
  386. gs 'pain', rand(2,7), 'vaginal', 'pierce'
  387. gs 'pain', rand(2,4), 'vaginal', 'break'
  388. gs 'pain', rand(4,5), 'vaginal', 'stretch'
  389. gs 'stat'
  390. act 'Finally redneck told me to stop': gt 'mod_public_WC_rab', 'dvir'
  391. end
  392. end
  393. if $ARGS[0] = 'kara5':
  394. CLOSE ALL
  395. menu_off = 0
  396. $location_type = 'secluded'
  397. *clr & cla
  398. $loc = 'mod_public_WC_kara'
  399. gs 'stat'
  400. if brak - vlada >= 30:
  401. 'Bitch, we are tired of you.'
  402. 'I forcefully pour a huge dose of vodka and I lose consciousness.'
  403. gs 'drugs', 'alcohol', 'vodka', 4
  404. gs 'stat'
  405. workDolg += rand(20000,40000)
  406. brak = 0
  407. vlada -= 15
  408. if vlada < 0: vlada = 0
  409. 'You are at the sauna. The brutes drag you into a room and start to explain. "You''re going to live here and work until you have cleared your debt. Got it? Try to contact the authorities or escape, we''ll put a bullet in your head and bury you in the woods, understand?"'
  410. 'You become frightened as they''re convincing, so you just nod.'
  411. act 'Look around': gt 'city_sauna', 'saunaroom'
  412. else
  413. if rand(1,3) >= 2:
  414. 'I was drugged and locked up in a room ... Very soon I can no longer think, I want to be fucked ...'
  415. 'Naked strangers come into the room and I take turns treating everyone'
  416. amphetamine += 1
  417. gs 'drugs', 'amphetamine'
  418. aphrodisiac_have += 1
  419. gs 'drugs', 'aphrodisiac'
  420. gs 'stat'
  421. temp = rand(1,25)
  422. '<center><video autoplay loop src="mod/public_WC/lisrab/work/line/lwv<<temp>>.mp4"></video></center>'
  423. willpowermax -= rand(0,3)
  424. gs 'arousal', 'vaginal', 8, 'sub', 'rough', 'prostitution', 'group'
  425. gs 'arousal', 'anal', 8, 'sub', 'rough', 'prostitution', 'group'
  426. gs 'arousal', 'bj', 8, 'sub', 'rough', 'prostitution', 'group'
  427. $orgasm_or = 'yes'
  428. pcs_vag += rand(1,2)
  429. pcs_throat += rand(1,2)
  430. pcs_ass += rand(1,2)
  431. pcs_ass += rand(1,2)
  432. facial += rand(1,2)
  433. sex += rand(1,2)
  434. gang += 1
  435. guy += rand(1,5)
  436. gs 'sweat', 'add', 30
  437. gs 'cum_call', 'vaginal', 'an unknown guy'
  438. gs 'cum_manage'
  439. gs 'cuminsidereact', 'an unknown guy'
  440. gs 'stat'
  441. gs 'cum_call', 'face', 'an unknown guy'
  442. gs 'cum_call', 'face', 'an unknown guy'
  443. gs 'cum_call', 'clothes', 'an unknown guy'
  444. gs 'cum_call', 'back', 'an unknown guy'
  445. gs 'cum_call', 'arms', 'an unknown guy'
  446. gs 'cum_call', 'hands', 'an unknown guy'
  447. gs 'cum_call', 'stomach', 'an unknown guy'
  448. gs 'cum_call', 'breasts', 'an unknown guy'
  449. gs 'cum_call', 'hair', 'an unknown guy'
  450. gs 'cum_call', 'labia', 'an unknown guy'
  451. gs 'cum_call', 'butt', 'an unknown guy'
  452. gs 'cum_call', 'anus', 'an unknown guy'
  453. gs 'cum_call', 'vaginal', 'an unknown guy'
  454. gs 'cum_manage'
  455. gs 'cuminsidereact', 'an unknown guy'
  456. gs 'stat'
  457. gs 'cum_call', 'vaginal', 'an unknown guy'
  458. gs 'cum_manage'
  459. gs 'cuminsidereact', 'an unknown guy'
  460. gs 'stat'
  461. act 'I fucked...': gt 'mod_public_WC_rab', 'dvir'
  462. else
  463. 'You are smart and helpful, but nothing comes to you. We have no choice; we give you to the Master for training.'
  464. act 'Continue': gt 'mod_public_WC_rab_Mayster', 'start'
  465. end
  466. end
  467. end
  468. if $ARGS[0] = 'kara6':
  469. CLOSE ALL
  470. menu_off = 0
  471. $location_type = 'secluded'
  472. *clr & cla
  473. $loc = 'mod_public_WC_kara'
  474. gs 'stat'
  475. 'Why have you not yet understood what we need! You have everything you want and still create problems. We have come up with a fun way to punish you. You''ll like it... I have a pimp friend, I asked him something for your punishment.'
  476. 'I was put at the table and Tolik put the jar on the table.'
  477. '<center><img <<$set_imgh>> src="mod/public_WC/lisrab/kara/6/banka.jpg"></center>'
  478. 'Eat it all!!!'
  479. gs 'willpower', 'misc', 'resist', 'hard'
  480. if will_cost <= pcs_willpwr:
  481. act 'No! (<<will_cost>> Willpower)':
  482. *clr & cla
  483. gs 'willpower', 'pay', 'resist'
  484. gs 'stat'
  485. 'Tolik bends me over, the other two hold me while he fucks me.'
  486. rape += 1
  487. guy += 1
  488. pcs_vag += 1
  489. gs 'stat'
  490. act 'wait':
  491. *clr & cla
  492. gs 'bras', 'remove'
  493. gs 'clothing', 'strip'
  494. gs 'panties', 'remove'
  495. gs 'stat'
  496. temp = rand(3,4)
  497. '<center><video autoplay loop src="mod/public_WC/lisrab/tolik/1/tolik<<temp>>.mp4"></video></center>'
  498. minut += rand(5,10)
  499. 'Tolik finishes, but I do not feel like I was flooded from the inside, but Tolik always cums inside'
  500. act 'continue':
  501. ztemp = 0 & gt 'mod_public_WC_kara', 'gandon'
  502. end
  503. end
  504. end
  505. else
  506. act 'No! (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  507. end
  508. act 'ok': ztemp = 1 & gt 'mod_public_WC_kara', 'gandon'
  509. end
  510. if $ARGS[0] = 'gandon':
  511. CLOSE ALL
  512. menu_off = 0
  513. $location_type = 'secluded'
  514. *clr & cla
  515. $loc = 'mod_public_WC_kara'
  516. if ztemp = 0:
  517. temp = rand(1,2)
  518. '<center><img <<$set_imgh>> src="mod/public_WC/lisrab/kara/6/tolik<<temp>>.jpg"></center>'
  519. 'Tolik used condom?'
  520. 'Here''s a little familiar taste, haha, now you drink it?'
  521. act 'ok':
  522. cla
  523. ztemp = 1
  524. 'I remove the condom from Toliks'' 25 sm dick and add it to the jar'
  525. act 'Continue': gt 'mod_public_WC_kara', 'gandon'
  526. end
  527. gs 'willpower', 'misc', 'resist', 'hard'
  528. if will_cost <= pcs_willpwr:
  529. act 'No! (<<will_cost>> Willpower)':
  530. *clr & cla
  531. gs 'willpower', 'pay', 'resist'
  532. gs 'stat'
  533. 'You pissed me off'
  534. 'They starts to beat me'
  535. gs 'pain', rand(1,3), 'back', 'hit'
  536. gs 'pain', rand(1,3), 'hips', 'hit'
  537. gs 'pain', rand(1,3), 'legL', 'kick'
  538. gs 'pain', rand(1,3), 'legR', 'kick'
  539. gs 'pain', rand(1,3), 'armL', 'hit'
  540. gs 'pain', rand(1,3), 'armR', 'hit'
  541. gs 'pain', rand(1,3), 'ribs', 'kick'
  542. gs 'pain', rand(1,3), 'tummy', 'hit'
  543. minut += rand(15,20)
  544. gs 'stat'
  545. act 'It is finally over': gt 'mod_public_WC_rab', 'dvir'
  546. end
  547. else
  548. act 'No! (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  549. end
  550. else
  551. 'I am ready to drink condoms'
  552. temp = rand(1,2)
  553. '<center><img <<$set_imgh>> src="mod/public_WC/lisrab/kara/6/gotova<<temp>>.jpg"></center>'
  554. gandonpiyu = brak
  555. act 'Drink': gt 'mod_public_WC_kara', 'gandondrink'
  556. end
  557. end
  558. if $ARGS[0] = 'gandondrink':
  559. CLOSE ALL
  560. menu_off = 0
  561. $location_type = 'secluded'
  562. *clr & cla
  563. $loc = 'mod_public_WC_kara'
  564. if gandonpiyu = 0:
  565. 'I drank everything'
  566. 'Tolik patted me on the head "Good girl, now you can go"'
  567. act 'Go out': gt 'mod_public_WC_rab', 'dvir'
  568. else
  569. 'Drink one more condom'
  570. gandonpiyu -= 1
  571. if gandonpiyu > 1:
  572. '<<gandonpiyu>> condoms left'
  573. else
  574. '<<gandonpiyu>> condom left'
  575. end
  576. temp = rand(1,14)
  577. '<center><img <<$set_imgh>> src="mod/public_WC/lisrab/kara/6/d<<temp>>.jpg"></center>'
  578. gs 'cum_call', 'mouth'
  579. if trt_cumeater = 1:
  580. mood += rand(1,3)
  581. else
  582. 'The smell and taste are horrible, I can barely contain my vomiting'
  583. pcs_health -= rand(0,10)
  584. mood -= rand(1,3)
  585. if pcs_health <= 50:
  586. zaraz = 0
  587. 'I can no longer drink'
  588. act 'Beg to stop it!':
  589. cla
  590. willpowermax -= rand(2,10)
  591. gs 'stat'
  592. temp = rand(1,2)
  593. if temp = 1:
  594. temp = rand(1,10)
  595. act 'Beg even more to stop it!':
  596. willpowermax -= rand(0,3)
  597. gs 'stat'
  598. zaraz += 1
  599. if zaraz = temp:
  600. *clr & cla
  601. 'Tolik laughed, dipped my face into the contents of the condoms, kicked me and said "Free"'
  602. gs 'cum_call', 'face', 'unknown', 0, 1, -1, 150
  603. gs 'cum_call', 'hair', 'unknown', 0, 1, -1, 150
  604. gs 'pain', 2, 'chest', 'kick'
  605. gs 'stat'
  606. act 'Crawl out of here': gt 'mod_public_WC_rab', 'dvir'
  607. end
  608. end
  609. else
  610. 'Tolik laughed, dipped my face into the contents of the condoms, kicked me and said "Free"'
  611. gs 'cum_call', 'face', 'unknown', 0, 1, -1, 150
  612. gs 'cum_call', 'hair', 'unknown', 0, 1, -1, 150
  613. gs 'pain', 2, 'chest', 'kick'
  614. gs 'stat'
  615. act 'Crawl out of here': gt 'mod_public_WC_rab', 'dvir'
  616. end
  617. end
  618. end
  619. end
  620. act 'Continue': gt 'mod_public_WC_kara', 'gandondrink'
  621. end
  622. end
  623. --- mod_public_WC_kara ---------------------------------