leonid.qsrc 34 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868
  1. # leonid
  2. $bName = 'Leonid'
  3. $bSurname = 'Nosov'
  4. $boy = $bName+' '+$bSurname
  5. gs 'npcgeneratec', 0, $boy, 35
  6. gs 'boyStat', $npclastgenerated
  7. lustPool = 100
  8. if leonidInFavour < -5:
  9. $slaveTitle = 'slave slut'
  10. elseif leonidInFavour >= -5 and leonidInFavour <= 5:
  11. $slaveTitle = 'slave girl'
  12. elseif leonidInFavour > 5:
  13. $slaveTitle = 'slave darling'
  14. end
  15. if $ARGS[0] = 'firstTime':
  16. minut += 15
  17. leonidSlave = 1
  18. leonidSlaveDay = (daystart + 1)
  19. leonidInFavour = 0
  20. painkiller = painkiller_bak
  21. prezik = prezik_bak
  22. vitamin = vitamin_bak
  23. kosmetica = kosmetica_bak
  24. lipbalm = lipbalm_bak
  25. gs 'stat'
  26. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/office.jpg"></center>'
  27. 'You are in the office with label <<$bName>> <<$bSurname>>, lawyer.'
  28. '<<$bName>> orders you to kneel in front of his desk.'
  29. '"So <<$pcs_firstname>>, I have taken out of that hole. Do you already see why?"'
  30. '"I''m not sure Mister <<$bSurname>>"'
  31. '"Then let me explain. I love my wife, but I have certain needs. Long time I have neglected myself, but things got even worse. When I got the opportunity, I got in touch with the ''Haulers''. You know them, those are the people that abducted you and made you a what you are now."'
  32. '"What? What do you mean by ''what am I now?''"'
  33. '"A slave. My slave."'
  34. '"How do you imagine this? You''ll keep me locked in this room or what?"'
  35. '"No, of course not <<$pcs_firstname>>. I''m not a monster. I just want a tool to ventilate my urges. That tool is you."'
  36. '"What do you mean mean?"'
  37. '"As beautiful you are so slow your thinking is. I will do to you whatever I want to. And it does not matter if you agree or not, you are my slave after all."'
  38. '"If you won''t keep me locked how will you prevent me from running to the police and telling them everything?"'
  39. ''
  40. 'He slaps your face.'
  41. ''
  42. '"Do you think I am stupid? The authorities are under my grasp. I own them. Do it and nobody will see you ever again."'
  43. 'You get up back to your knees.'
  44. '"All right Mister <<$bSurname>>, I''ve got the idea. I promise to keep quiet and be your... slave."'
  45. '"Very well. I will call you if I require your presence. Until then you are free to go."'
  46. if SchoolAtestat = 0:
  47. '"But Mister <<$bSurname>>, what do I tell to my <<$npc_nickname[''A29'']>>? How do I explain my absence from the school and everything?"'
  48. '"Do not care about the school. I will take care of it. As for your <<$npc_nickname[''A29'']>>, if she asks, tell her you ran from home to a friend but reconsidered and went back."'
  49. '"Yes Mister <<$bSurname>>."'
  50. schoolprogul = 0
  51. end
  52. *nl
  53. 'He throws you your clothes which he must have got when he bought you, "Get dressed and leave."'
  54. act 'Do as he says':
  55. minut += 5
  56. cla
  57. *clr
  58. gs 'stat'
  59. gs 'clothing', 'wear_last_worn'
  60. gs 'underwear', 'wear'
  61. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/office.jpg"></center>'
  62. 'You quickly put your clothes on, surprised to find they are clean and fresh.'
  63. act 'Leave':gt 'pav_commercial_offices'
  64. end
  65. end
  66. if $ARGS[0] = 'hall':
  67. minut += 1
  68. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/officehall.jpg"></center>'
  69. 'You are in the hallway leading to several offices. One of the doors has a doorsign <a href="exec:gt ''leonid'', ''office''"><<$bName>> <<$bSurname>>, lawyer.</a>'
  70. gs 'stat'
  71. leoHorny = rand(0,20)
  72. leoStress = rand(0,30)
  73. leoCoffee = rand(80,100)
  74. leoComfort = rand(0,30)
  75. paperwork = rand(40,60)
  76. act 'Get back':gt 'pav_commercial_offices'
  77. end
  78. if $ARGS[0] = 'office':
  79. minut += 1
  80. killvar '$locclass'
  81. if (hour >= 9 and hour < 10) and leonidSecretary = 1 and week <= 5:
  82. if $clothingworntype = 'office':
  83. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/office.jpg"></center>'
  84. 'You are in the office of <<$bName>> <<$bSurname>>, working as his secretary. There are three other doors inside the office, one leading to a small <a href="exec:gt ''leonid'', ''officeKitchen''">kitchen</a>, second leading to a conference room and third leading to a <a href="exec:gt ''leonid'', ''toilet''">toilet</a>.'
  85. atWork = 1
  86. gt 'leonid', 'secretaryGate'
  87. else
  88. 'You need to be dressed as a secretary.'
  89. act 'Leave':gt 'leonid', 'hall'
  90. end
  91. elseif (hour >= 10 and hour <= 19) and leonidSecretary = 1 and week <= 5 and atWork = 1:
  92. gt 'leonid', 'secretaryGate'
  93. elseif (hour >= 10 and hour <= 18) and leonidVisit = 0 and week <= 5:
  94. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/office.jpg"></center>'
  95. 'You are in the office of <<$bName>> <<$bSurname>>. There are three other doors inside the office, one leading to a small <a href="exec:gt ''leonid'', ''officeKitchen''">kitchen</a>, second leading to a conference room and third leading to a <a href="exec:gt ''leonid'', ''toilet''">toilet</a>.'
  96. '<a href="exec:gt ''leonid'', ''officeLeonidGate''"><<$bName>> <<$bSurname>></a> is sitting behind his desk, working.'
  97. if slaveEventCount > 0: 'In the middle of the bookcase, there are hidden doors to a <a href="exec:gt ''leonid'', ''secretRoom''">bondage rooms</a>.'
  98. elseif (hour >= 19 and hour =< 21) and leonidVisit = 1:
  99. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/office.jpg"></center>'
  100. 'You are in the office of <<$bName>> <<$bSurname>>. There are three other doors inside the office, one leading to a small <a href="exec:gt ''leonid'', ''officeKitchen''">kitchen</a>, second leading to a conference room and third leading to a <a href="exec:gt ''leonid'', ''toilet''">toilet</a>.'
  101. '<a href="exec:gt ''leonid'', ''officeLeonidGate''"><<$bName>> <<$bSurname>></a> is sitting behind his desk, waiting for you to come.'
  102. if slaveEventCount > 0:
  103. 'In the middle of the bookcase, there are hidden doors to a <a href="exec:gt ''leonid'', ''secretRoom''">bondage room</a>.'
  104. end
  105. else
  106. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/officehall.jpg"></center>'
  107. 'The office is locked, you cannot enter. The <a href="exec:gt ''leonid'', ''toilet''">toilet</a> is still open.'
  108. end
  109. if $clothingworntype = 'nude':
  110. '<b>You are naked.</b>'
  111. mult = 3
  112. end
  113. gs 'stat'
  114. if $clothingworntype = 'nude':
  115. '<b>You need to get dressed in order to leave.</b>'
  116. else
  117. act 'Get back':gt 'leonid', 'hall'
  118. end
  119. end
  120. if $ARGS[0] = 'secretaryGate':
  121. if $clothingworntype ! 'office':
  122. gt 'leonid', 'toilet'
  123. end
  124. if hour >= 19:
  125. gt 'leonid', 'secretaryEndWorkday'
  126. end
  127. if $clothingworntype = 'nude':
  128. '<b>You are naked.</b>'
  129. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/secretarynaked.jpg"></center>'
  130. mult = 3
  131. end
  132. if $clothingworntype = 'office' and CloBimbo = 0:
  133. '<b>You are dressed as a secretary.</b>'
  134. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/secretarynormal.jpg"></center>'
  135. mult = 1
  136. end
  137. if $clothingworntype = 'office' and CloBimbo = 1:
  138. '<b>You are dressed as a naughty secretary.</b>'
  139. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/secretarysexy.jpg"></center>'
  140. mult = 2
  141. end
  142. 'You are in the office of <<$bName>> <<$bSurname>>. There are three other doors inside the office, one leading to a small <a href="exec:gt ''leonid'', ''officeKitchen''">kitchen</a>, second leading to a conference room and third leading to a <a href="exec:gt ''leonid'', ''toilet''">toilet</a>.'
  143. *nl
  144. '<a href="exec:gt ''leonid'', ''officeLeonidGate''"><<$bName>> <<$bSurname>></a> is sitting behind his desk, working.'
  145. *nl
  146. if leoHorny < 0:leoHorny = 0
  147. if leoHorny > 100: leoHorny = 100
  148. if leoStress < 0:leoStress = 0
  149. if leoStress > 100:leoStress = 100
  150. if leoCoffee < 0:leoCoffee = 0
  151. if leoCoffee > 100:leoCoffee = 100
  152. if leoComfort < 0:leoComfort = 0
  153. if leoComfort > 100:leoComfort = 100
  154. if paperwork < 0:paperwork = 0
  155. if paperwork > 100:paperwork = 100
  156. punishBuildup = (40 * leoHorny + 40 * leoStress + 30 * leoCoffee + 30 * leoComfort) / 100
  157. !'<table><tr><td valign="top">'
  158. !'</td><td valign="top">'
  159. !'<<$bName>> - status and needs:'
  160. !'<b>Overall mood:'+punishBuildup+'</b>'
  161. !'Horniness: '+leoHorny
  162. !'Stress: '+leoStress
  163. !'Coffee: '+leoCoffee
  164. !'Comfort: '+leoComfort
  165. !''
  166. !'Your paperwork: '+paperwork
  167. !''
  168. !'</td></tr></table>'
  169. if punishBuildup >= 100:
  170. act 'Be approched':gt 'leonid', 'doPunish'
  171. else
  172. if paperwork > 0:
  173. act 'Do paperwork':gt 'leonid', 'doPaperwork'
  174. end
  175. act 'Be lazy':gt 'leonid', 'doLazy'
  176. end
  177. end
  178. if $ARGS[0] = 'secretaryEndWorkday':
  179. atWork = 0
  180. workQuality = paperwork + (punishBuildup / 4)
  181. if workQuality < 10:
  182. $workQualityText = 'very good'
  183. workPayment = 1000
  184. elseif workQuality < 40:
  185. $workQualityText = 'good'
  186. workPayment = 500
  187. elseif workQuality < 60:
  188. $workQualityText = 'poor'
  189. workPayment = 250
  190. else
  191. $workQualityText = 'terrible'
  192. workPayment = 1
  193. end
  194. 'Your workday is over. <<$bName>> is packing up his things and prepares to go home.'
  195. '<<$bName>>: <<$pcs_firstname>>, my <<$slaveTitle>> secretary. Today you did a <<$workQualityText>> job.'
  196. 'He hands you '+workPayment+' RUB and leaves.'
  197. ''
  198. 'Today you''ve done your duties on '+(100 - workQuality)+' %.'
  199. money += workPayment
  200. act 'Leave':gt 'leonid', 'hall'
  201. end
  202. if $ARGS[0] = 'doPunish':
  203. '<<$pcs_firstname>>, you are not doing your job as you should. I think it is time to remind you of your actual status, <<$slaveTitle>>!'
  204. leonidInFavour -= 1
  205. act 'Yes, master <<$bSurname>>.':gt 'leonid', 'bdsmGate'
  206. end
  207. if $ARGS[0] = 'doPaperwork':
  208. minut += 60
  209. leoHorny += rand (5 * mult, 20 * mult)
  210. leoStress += rand (5, 20)
  211. leoCoffee += rand (5, 15)
  212. leoComfort += rand (5, 15)
  213. donePaperwork = rand (10, 20)
  214. paperwork -= donePaperwork
  215. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/paperwork'+rand(1, 5)+'.jpg"></center>'
  216. 'You manage to get part of the workload to order, copying, filing and archiving.'
  217. ''
  218. 'Paperwork has diminished by '+donePaperwork
  219. gs 'stat'
  220. act 'Continue':gt 'leonid', 'secretaryGate'
  221. end
  222. if $ARGS[0] = 'doLazy':
  223. minut += 60
  224. leoHorny += rand (5 * mult, 20 * mult)
  225. leoStress += rand (5, 20)
  226. leoCoffee += rand (5, 15)
  227. leoComfort += rand (5, 15)
  228. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/lazy'+rand(1, 5)+'.jpg"></center>'
  229. 'You spend your working time polishing your nails and all the stuff everyone actually thinks secretaries do.'
  230. gs 'stat'
  231. act 'Continue':gt 'leonid', 'secretaryGate'
  232. end
  233. if $ARGS[0] = 'officeKitchen':
  234. minut += 2
  235. $locclass = 'kitr'
  236. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/kitchen.jpg"></center>'
  237. 'Small office kitchen, equipped with all that is needed for a regular working day.'
  238. if taskCoffee = 1 or leonidSecretary = 1:
  239. 'You can use the coffee maker to <a href="exec:gt ''leonid'', ''officeKitchenMakeCoffe''">prepare a coffee</a>.'
  240. end
  241. gs 'stat'
  242. act 'Get back to office':gt 'leonid', 'office'
  243. end
  244. if $ARGS[0] = 'officeKitchenMakeCoffe':
  245. minut += 10
  246. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/coffeemaker.jpg"></center>'
  247. 'You''ve put some coffee in the maker, poured water in the tank and put it on.'
  248. 'After few minutes the drink is ready.'
  249. gs 'stat'
  250. act 'Continue':gt 'leonid', 'officeKitchenBringCoffee'
  251. end
  252. if $ARGS[0] = 'officeKitchenBringCoffee':
  253. minut += 2
  254. 'You are about to bring coffee to mister <<$bSurname>>. You decide to:'
  255. taskCoffee = 0
  256. gs 'stat'
  257. if hour >= 10 and hour < 18:
  258. act 'Strip and bring it naked':gt 'leonid', 'officeKitchenBringCoffeeNaked'
  259. end
  260. act 'Just bring it, nothing special':gt 'leonid', 'officeKitchenBringCoffeeNormal'
  261. end
  262. if $ARGS[0] = 'officeKitchenBringCoffeeNaked':
  263. minut += 5
  264. gs 'underwear', 'remove'
  265. gs 'clothing', 'strip'
  266. gs 'stat'
  267. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/bringcoffeenaked.jpg"></center>'
  268. 'You strip down even your panties and take the coffee. Slowly you walk through the door inside <<$bName>>''s office, trying to look as arousing as possible.'
  269. fuckCh = rand(1, 100) + leoHorny
  270. if fuckCh >= 70:
  271. '<<$bName>> looks up to you and sees that you are naked.'
  272. 'There is a flash of surprise in his eyes, but you can see he is delighted by this pleasant improvement of his otherwise regular working day.'
  273. 'You place the cup on his desk, showing him even more of your beautiful breasts, and giving him a teasing look.'
  274. 'He reaches for your tits and starts to enjoy himself.'
  275. act 'Give in to him':gt 'leonid', 'officeFuck'
  276. else
  277. '<<$bName>> looks up to you and sees that you are naked.'
  278. 'He''s sliding his eyes all over your body but soon he gets back to his paperwork.'
  279. 'You put the cup on his desk and trying to tease him you wait a few seconds, but he''s still working, paying you no attention.'
  280. act 'Give up and get back':gt 'leonid', 'office'
  281. end
  282. leoCoffee -= 50
  283. leonidInFavour += 1
  284. gs 'stat'
  285. end
  286. if $ARGS[0] = 'officeKitchenBringCoffeeNormal':
  287. minut += 5
  288. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/bringcoffee.jpg"></center>'
  289. 'You take the cup and bring it to his desk, putting next to the papers <<$bName>> is working on.'
  290. 'He briefly looks on the cup and frowns.'
  291. 'You take it as a sign of approval.'
  292. leoCoffee -= 50
  293. gs 'stat'
  294. act 'Leave':gt 'leonid', 'office'
  295. end
  296. if $ARGS[0] = 'officeFuck':
  297. sexType = rand(1,2)
  298. if sexType = 1:
  299. '<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/pussy'+rand(1, 5)+'.mp4"></video></center>'
  300. '<<$bName>> bends you over his desk, pushing the paperwork away.'
  301. 'You angle your ass for better access, just like his true <<$slaveTitle>>.'
  302. '<<$bName>> takes his hard cock out of his pants and pushes it into your already wet pussy.'
  303. gs 'arousal', 'vaginal', 45, 'sub'
  304. act 'Continue':gt 'leonid', 'cumPussy'
  305. else
  306. '<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/anal'+rand(1, 2)+'.mp4"></video></center>'
  307. '<<$bName>> bends you over his desk, pushing the paperwork away.'
  308. 'You angle your ass for better access, just like his true <<$slaveTitle>>.'
  309. '<<$bName>> takes his hard cock out of his pants, spits some of his own saliva on it and pushes it into your dry anus.'
  310. gs 'arousal', 'anal', 45, 'sub'
  311. act 'Continue':gt 'leonid', 'cumAnal'
  312. end
  313. gs 'stat'
  314. end
  315. if $ARGS[0] = 'cumAnal':
  316. minut += 10
  317. leoHorny -= 50
  318. gs 'cum_call', 'anus', $boy, 1
  319. gs 'arousal', 'end'
  320. gs 'stat'
  321. '<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/cumanal'+rand(1, 2)+'.mp4"></video></center>'
  322. '<<$bName>> cums deep in your intestines.'
  323. if money < 2000 and leonidSecretary = 0:
  324. act 'Mister <<$bSurname>>, may I ask you something?':gt 'leonid', 'askForJob'
  325. end
  326. act 'Thank him and leave':gt 'leonid', 'office'
  327. end
  328. if $ARGS[0] = 'cumPussy':
  329. minut += 10
  330. leoHorny -= 50
  331. gs 'cum_call', '', $boy, 1
  332. gs 'arousal', 'end'
  333. gs 'stat'
  334. if money < 2000 and leonidSecretary = 0:
  335. act 'Mister <<$bSurname>>, may I ask you something?':gt 'leonid', 'askForJob'
  336. end
  337. '<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/cumpussy'+rand(1, 1)+'.mp4"></video></center>'
  338. '<<$bName>> cums deep in your vagina.'
  339. act 'Thank him and leave':gt 'leonid', 'office'
  340. end
  341. if $ARGS[0] = 'askForJob':
  342. minut += 2
  343. 'Sir you know.. I.. I need money. So I thought, maybe, maybe I could work for you..'
  344. 'You don''t want me whoring to random men, do you?'
  345. ''
  346. 'Hmm, <<$pcs_firstname>>, I was actually already thinking about hiring a secretary.'
  347. 'With you taking such place, my workdays could be much more interesting..'
  348. act 'Accept':gt 'leonid', 'askForJobYes'
  349. act 'On second thought.. I''m not qualified enough.':gt 'leonid', 'askForJobNo'
  350. end
  351. if $ARGS[0] = 'askForJobYes':
  352. 'Thank you master, I would love to be your secretary.'
  353. ''
  354. 'Good.'
  355. 'Come next working day between 9 and 10.'
  356. 'Be sure to dress as befits to your new role.'
  357. 'He takes 5000 rubles and hands them to you. Here, buy some office clothes, I need you to at least look the part.'
  358. money += 5000
  359. leonidSecretary = 1
  360. act 'Leave':gt 'leonid', 'office'
  361. end
  362. if $ARGS[0] = 'askForJobNo':
  363. 'On second thought.. I''m not qualified enough'
  364. ''
  365. '<<$pcs_firstname>>, don''t play with me.'
  366. 'You are still my slave and I think you need to be reminded of that!'
  367. act 'Continue':gt 'leonid', 'officeLeonidPunishmentGate'
  368. end
  369. if $ARGS[0] = 'secretRoom':
  370. if slaveEventCount = 0:
  371. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/sex/secretdoor.jpg"></center>'
  372. '<<$bName>> opens up a secret door behind a bookcase. It leads to a several other rooms - one has a large bed with various straps and cuffs, other contains various bondage equipment.'
  373. 'Come, <<$slaveTitle>>, come to my kingdom.'
  374. 'In fear you step through the secret door and look around on all the stuff that is prepared for you.'
  375. '<<$bName>> closes the door behind you and grabs you by the arm.'
  376. slaveEventCount += 1
  377. leonidVisit = 0
  378. if leonidVisitMissed > 0:leonidVisitMissed -= 1
  379. leonidSlaveDay = (daystart + rand(1, 5))
  380. act 'Continue':gt 'leonid', 'bdsmGate'
  381. elseif slaveEventCount > 0 and leonidVisit = 1 and leonidVisitMissed <= 3:
  382. leoHorny = rand (30, 100)
  383. slaveEventCount += 1
  384. leonidVisit = 0
  385. if leonidVisitMissed > 0:leonidVisitMissed -= 1
  386. leonidSlaveDay = (daystart + rand(1, 5))
  387. gs 'stat'
  388. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/sex/kneeling1.jpg"></center>'
  389. 'You go in the secret room, strip down and equip your collar. You kneel down expecting <<$bName>> to come, ready to serve him.'
  390. act 'Continue':gt 'leonid', 'bdsmGate'
  391. elseif leonidVisitMissed > 3:
  392. gs 'leonid', 'sold'
  393. else
  394. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/sex/secretroom.jpg"></center>'
  395. 'You are in the secret room, full of bondage equipment.'
  396. act 'Get back':gt 'leonid', 'office'
  397. end
  398. end
  399. if $ARGS[0] = 'bdsmGate':
  400. if leoHorny < 30:
  401. actionType = rand(1, 2)
  402. elseif leoHorny >= 30:
  403. actionType = rand(3, 8)
  404. end
  405. if actionType = 1:
  406. gs 'leonid', 'bdsmFuckVaginal'
  407. elseif actionType = 2:
  408. gs 'leonid', 'bdsmFuckAnal'
  409. elseif actionType = 3 and actionTypeRecent ! 3:
  410. gs 'leonid', 'bdsmHorse'
  411. elseif actionType = 4 and actionTypeRecent ! 4:
  412. gs 'leonid', 'bdsmWhip'
  413. elseif actionType = 5 and actionTypeRecent ! 5:
  414. gs 'leonid', 'bdsmDildo'
  415. elseif actionType = 6 and actionTypeRecent ! 6:
  416. gs 'leonid', 'bdsmMachine'
  417. elseif actionType = 7 and actionTypeRecent ! 7:
  418. gs 'leonid', 'bdsmDeepthroat'
  419. elseif actionType = 8 and actionTypeRecent ! 8:
  420. gs 'leonid', 'bdsmForcedOrgasm'
  421. else
  422. gs 'leonid', 'bdsmGate'
  423. end
  424. end
  425. if $ARGS[0] = 'bdsmFuckVaginal':
  426. '<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/pussybound'+rand(1, 5)+'.mp4"></video></center>'
  427. '<<$bName>> ties you up and positions you as he will.'
  428. 'Then he takes his hard cock and shoves it into your unprepared pussy.'
  429. gs 'arousal', 'vaginal', 60, 'sub', 'rough', 'maso', 'bound'
  430. gs 'pain', 2, 'vaginal', 'stretch'
  431. gs 'stat'
  432. act 'Continue':gt 'leonid', 'cumPussy'
  433. end
  434. if $ARGS[0] = 'bdsmFuckAnal':
  435. '<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/analbound'+rand(1, 5)+'.mp4"></video></center>'
  436. '<<$bName>> ties you up and positions you as he will.'
  437. 'Then he takes his hard cock and shoves it into your unprepared anus.'
  438. gs 'arousal', 'anal', 60, 'sub', 'rough', 'maso', 'bound'
  439. gs 'pain', 2, 'asshole', 'stretch'
  440. gs 'stat'
  441. act 'Continue':gt 'leonid', 'cumAnal'
  442. end
  443. if $ARGS[0] = 'bdsmHorse':
  444. actionTypeRecent = 3
  445. leoHorny -= rand(20, 50)
  446. '<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/horse'+rand(1, 5)+'.mp4"></video></center>'
  447. '<<$bName>> ties you up and leads you to a room with bondage devices.'
  448. 'He decides to play with you on a wooden horse.. this is going to hurt!'
  449. 'With bound hands you are seaten on it. The top is dull but it hurts anyway - the wooden top is squeezing your labia against the crotch.'
  450. 'As much as you try to twist and ease, it gets only worse.'
  451. minut += 30
  452. gs 'pain', 3, 'labia', 'hit'
  453. gs 'stat'
  454. act 'Continue':gt 'leonid', 'bdsmGate'
  455. end
  456. if $ARGS[0] = 'bdsmWhip':
  457. actionTypeRecent = 4
  458. leoHorny -= rand(20, 50)
  459. '<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/whip'+rand(1, 7)+'.mp4"></video></center>'
  460. '<<$bName>> ties you up and leads you to a room with bondage devices.'
  461. 'He suspends your hand to a hook on the ceiling, leaving you almost hanging by your hands.'
  462. 'Then he takes a leather whip a gives you a hard whipping, targeting your sensitive areas.'
  463. 'When he''s done, your breast, belly, croctch and ass are red as a lobster, burning in pain.'
  464. minut += 30
  465. gs 'pain', 2, 'asscheeks', 'spank'
  466. gs 'pain', 2, 'breasts', 'spank'
  467. gs 'pain', 2, 'tummy', 'spank'
  468. gs 'pain', 2, 'labia', 'spank'
  469. gs 'stat'
  470. act 'Continue':gt 'leonid', 'bdsmGate'
  471. end
  472. if $ARGS[0] = 'bdsmDildo':
  473. actionTypeRecent = 5
  474. leoHorny -= rand(20, 50)
  475. '<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/dildo'+rand(1, 4)+'.mp4"></video></center>'
  476. '<<$bName>> ties you up and leads you to a room with bondage devices.'
  477. 'He orders you to kneel down, sticking your ass high in the air and ties your hands and legs so you cannot move.'
  478. 'Then he brings a large dildo and starts using it on your holes, fucking you with it furiously and relentlessly.'
  479. 'He switches your ass and pussy as he likes, not caring about your feelings.'
  480. 'It hurts since he hits your cervix or instestinal walls often - the only thing you are able to do is moan loud as every stroke makes you cry some more.'
  481. minut -= 30
  482. gs 'arousal', 'vaginal_dildo', 30, 'sub', 'bound', 'rough'
  483. gs 'arousal', 'anal_dildo', 30, 'sub', 'bound', 'rough'
  484. gs 'pain', 2, 'vaginal', 'stretch'
  485. gs 'pain', 2, 'cervix', 'hit'
  486. gs 'pain', 2, 'asshole', 'stretch'
  487. gs 'pain', 2, 'tummy', 'hit'
  488. gs 'stat'
  489. act 'Continue':gt 'leonid', 'bdsmGate'
  490. end
  491. if $ARGS[0] = 'bdsmMachine':
  492. actionTypeRecent = 6
  493. leoHorny -= rand(20, 50)
  494. '<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/machine'+rand(1, 5)+'.mp4"></video></center>'
  495. '<<$bName>> ties you up and leads you to a room with bondage devices.'
  496. 'He orders you to kneel down into a strange device - the most visible part of it is a rod with a screw. What could be screwed on it, you wonder.'
  497. 'Your question is answered shortly - <<$bName>> brings a large dildo and secures it on the rod.'
  498. 'He spats some lube on it - you are expecting to penetrate you any minute, wondering only if it will be your ass or pussy..'
  499. '<<$bName>> points it toward your pussy and turns it on, stepping away with a remote controller.'
  500. 'Being bound like that, he just plays with the remote, sometime making you scream and sometime lowering the speed to ease your sensations.'
  501. gs 'arousal', 'vaginal_dildo', 30, 'sub', 'bound', 'rough'
  502. gs 'pain', 2, 'vaginal', 'stretch'
  503. gs 'stat'
  504. act 'Continue':gt 'leonid', 'bdsmGate'
  505. end
  506. if $ARGS[0] = 'bdsmDeepthroat':
  507. actionTypeRecent = 7
  508. leoHorny -= rand(20, 50)
  509. '<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/dildothroat'+rand(1, 3)+'.mp4"></video></center>'
  510. '<<$bName>> ties you up and leads you to a room with bondage devices.'
  511. 'He orders you to kneel down, having your hands bound behind your back.'
  512. '<<$bName>> brings a large rubber dildo and orders you to open your mouth.'
  513. 'Like a slave you actually are, you comply without hesitance and open it as wide as possible.'
  514. 'He stuffs the dildo inside it and slowly starts to fuck it, with every stroke going deeper and deeper.'
  515. 'After few minutes the dildo is being pushed all the way inside your throat, with your own saliva and tears running down your face.'
  516. gs 'arousal', 'bj', 30, 'sub', 'bound', 'deepthroat'
  517. gs 'pain', 2, 'throat', 'stretch'
  518. gs 'stat'
  519. act 'Continue':gt 'leonid', 'bdsmGate'
  520. end
  521. if $ARGS[0] = 'bdsmForcedOrgasm':
  522. actionTypeRecent = 8
  523. leoHorny -= rand(20, 50)
  524. '<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/forcedorgasm'+rand(1, 4)+'.mp4"></video></center>'
  525. '<<$bName>> ties you up and leads you to a room with bondage devices.'
  526. 'He lies you down, securing your hands and legs so you cannot move and also exposing your crotch to his liking.'
  527. 'He brings a large vibrator device and starts to massage your labia.'
  528. 'First he uses low setting, but after a while he turns it on max and instead targets directly your clitoris.'
  529. 'The sensation is so strong, you cannot differentiate if it hurts or if its pleasurable.'
  530. $orgasm_or = 'yes'
  531. gs 'arousal', 'vaginal_vibe', 30, 'sub', 'rough', 'maso', 'bound'
  532. gs 'pain', 3, 'clitoris', 'ache'
  533. gs 'stat'
  534. act 'Continue':gt 'leonid', 'bdsmGate'
  535. end
  536. if $ARGS[0] = 'officeLeonidGate':
  537. minut += 2
  538. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/leonid.jpg"></center>'
  539. if leonidVisit = 1:
  540. 'Hello <<$pcs_firstname>>, my <<$slaveTitle>>.'
  541. if slaveEventCount = 0:
  542. act 'Hello mister <<$bSurname>>, you called me?':gt 'leonid', 'secretRoom'
  543. else
  544. act 'Hello mister <<$bSurname>>, you called me?':gt 'leonid', 'secretRoom'
  545. end
  546. elseif leonidVisit = 0:
  547. 'What do you want <<$pcs_firstname>>? I''m working, can''t you see?'
  548. act 'I want to serve my master':gt 'leonid', 'officeLeonidHasTime'
  549. if leoComfort > 50:
  550. act 'Offer him a massage':gt 'leonid', 'massage'
  551. end
  552. if leonidSecretary = 1:
  553. act 'Get back':gt 'leonid', 'secretaryGate'
  554. else
  555. act 'Appologize and leave':gt 'leonid', 'office'
  556. end
  557. end
  558. gs 'stat'
  559. end
  560. if $ARGS[0] = 'massage':
  561. minut += 2
  562. 'You are about to give a massage to <<$bName>> <<$bSurname>>..'
  563. act 'Strip down and give erotic massage':gt 'leonid', 'massageErotic'
  564. !! act 'Give him regular massage':gt 'leonid', 'massageRegular'
  565. end
  566. if $ARGS[0] = 'massageErotic':
  567. gs 'stat'
  568. gs 'arousal', 'foreplay', 30
  569. leoHorny += rand (60, 80)
  570. leoComfort -= rand (40, 60)
  571. '<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/massageerotic'+rand(1,2)+'.mp4"></video></center>'
  572. '<<$bName>> lies down on a table. You strip down your clothes and give him errotic massage using oil.'
  573. 'First his back, then you move to his front. He seems to enjoy it..'
  574. act 'End the massage end get back to work':gt 'leonid', 'office'
  575. act 'Use your hands':gt 'leonid', 'massageEroticHandjob'
  576. end
  577. if $ARGS[0] = 'massageEroticHandjob':
  578. gs 'stat'
  579. gs 'arousal', 'hj', 5
  580. '<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/massageerotichand.mp4"></video></center>'
  581. '<<$bName>>''s member is already hard in the moment you reach for it.'
  582. 'Gently jerking it off he seems to be aroused even more.'
  583. act 'Finish him with your hand':gt 'leonid', 'massageEroticHandjobFinish'
  584. act 'Continue with mouth':gt 'leonid', 'massageEroticBlowjob'
  585. end
  586. if $ARGS[0] = 'massageEroticHandjobFinish':
  587. gs 'stat'
  588. gs 'arousal', 'hj', 15
  589. gs 'cum_call', 'hands', $boy, 1
  590. '<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/massageerotichandfinish.mp4"></video></center>'
  591. 'You bring him to an orgasm using your hand..'
  592. leoHorny -= rand (40, 50)
  593. act 'Clean up and get back to work':gt 'leonid', 'office'
  594. end
  595. if $ARGS[0] = 'massageEroticBlowjob':
  596. gs 'stat'
  597. gs 'arousal', 'bj', 5
  598. '<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/massageeroticmouth'+rand(1, 2)+'.mp4"></video></center>'
  599. 'His hard cock feels nice in your mouth and <<$bName>> seems to enjoy it even more than just your hand..'
  600. act 'Finish him with your mouth':gt 'leonid', 'massageEroticBlowjobFinish'
  601. act 'Bend over and offer your holes':gt 'leonid', 'massageEroticFuck'
  602. end
  603. if $ARGS[0] = 'massageEroticBlowjobFinish':
  604. gs 'stat'
  605. gs 'arousal', 'bj', 15
  606. gs 'cum_call', 'mouth', $boy, 1
  607. '<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/massageeroticmouthfinish.mp4"></video></center>'
  608. 'You bring him to an orgasm using your mouth..'
  609. leoHorny -= rand (50, 60)
  610. act 'Clean up and get back to work':gt 'leonid', 'office'
  611. end
  612. if $ARGS[0] = 'massageEroticFuck':
  613. gs 'stat'
  614. gs 'arousal', 'vaginal', 10
  615. '<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/massageeroticfuck.mp4"></video></center>'
  616. '<<$bName>> does not take long, get up and sticks his hard cock inside your already wet pussy.'
  617. act 'Let him finish':gt 'leonid', 'massageEroticFuckFinish'
  618. end
  619. if $ARGS[0] = 'massageEroticFuckFinish':
  620. gs 'stat'
  621. gs 'arousal', 'vaginal', 15
  622. gs 'cum_call', '', $boy, 1
  623. '<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/massageeroticfuckfinish.mp4"></video></center>'
  624. 'He fucks you until he cums. Inside..'
  625. leoHorny -= rand (60, 80)
  626. act 'Clean up and get back to work':gt 'leonid', 'office'
  627. end
  628. if $ARGS[0] = 'officeLeonidHasTime':
  629. minut += 2
  630. serveType = rand(1, 50) + leoStress
  631. if serveType > 70:
  632. 'I said I''m working, <<$slaveTitle>>. Do you want to be punished for causing trouble?'
  633. act 'I want to be punished':gt 'leonid', 'officeLeonidPunishmentGate'
  634. if leonidSecretary = 1:
  635. act 'Get back':gt 'leonid', 'secretaryGate'
  636. else
  637. act 'Appologize and leave':gt 'leonid', 'office'
  638. end
  639. else
  640. gs 'leonid', 'officeLeonidVoluntaryServeGate'
  641. end
  642. gs 'stat'
  643. end
  644. if $ARGS[0] = 'officeLeonidVoluntaryServeGate':
  645. minut += 2
  646. serveType = rand(1, 50) + leoHorny
  647. if serveType <= 70:
  648. taskCoffee = 1
  649. 'Go and make me a coffee.'
  650. act 'Go make it':gt 'leonid', 'officeKitchen'
  651. elseif serveType > 70:
  652. 'Then crawl under the desk and suck my dick.'
  653. act 'Do it':gt 'leonid', 'officeLeonidSuckUnderTable'
  654. end
  655. gs 'stat'
  656. end
  657. if $ARGS[0] = 'officeLeonidSuckUnderTable':
  658. '<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/suckundertable'+rand(1,4)+'.mp4"></video></center>'
  659. gs 'stat'
  660. gs 'arousal', 'bj', 20, 'sub'
  661. gs 'arousal', 'end'
  662. act 'Let him cum in your mouth':gt 'leonid', 'officeLeonidSuckUnderTable1'
  663. act 'Let him cum on your face':gt 'leonid', 'officeLeonidSuckUnderTable2'
  664. end
  665. if $ARGS[0] = 'officeLeonidSuckUnderTable1':
  666. minut += 3
  667. leoHorny -= 40
  668. gs 'cum_call', 'mouth', $boy, 1
  669. gs 'stat'
  670. '<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/cummouth'+rand(1,4)+'.mp4"></video></center>'
  671. 'As <<$bName>> cums, you let the tip of his cock point into your mouth and catch all the sperm.'
  672. 'Then you stick your head up, show him your mouth full of his sperm and with smile you swallow it.'
  673. act 'Continue':gt 'leonid', 'office'
  674. end
  675. if $ARGS[0] = 'officeLeonidSuckUnderTable2':
  676. minut += 3
  677. leoHorny -= 40
  678. gs 'cum_call', 'face', $boy, 1
  679. gs 'stat'
  680. '<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/cumface'+rand(1,5)+'.mp4"></video></center>'
  681. 'As <<$bName>> cums, you let the tip of his cock point towards your face, letting him spray all over your face.'
  682. 'Then you stick your head up, showing him your face cowered in sperm.'
  683. act 'Continue':gt 'leonid', 'office'
  684. end
  685. if $ARGS[0] = 'officeLeonidPunishmentGate':
  686. minut += 2
  687. !! maybe somebody wanted to make more ways here but just one is active
  688. !! serveType = rand(1, 100)
  689. !! if serveType <= 100:
  690. !! gs 'leonid', 'officeLeonidPunishmentSpank'
  691. !! elseif:
  692. !! end
  693. leonidInFavour -= 1
  694. gt 'leonid', 'officeLeonidPunishmentSpank'
  695. end
  696. if $ARGS[0] = 'officeLeonidPunishmentSpank':
  697. '<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/spank'+rand(1,5)+'.mp4"></video></center>'
  698. '<<$bName>> strips down your clothes and gives you a harsh spanking.'
  699. leoStress -= 50
  700. minut += 30
  701. pain['asscheeks'] += 10
  702. gs 'stat'
  703. gs 'arousal', 'foreplay', 10, 'sub', 'maso', 'humiliation'
  704. if leonidSecretary = 1:
  705. act 'Get back':gt 'leonid', 'secretaryGate'
  706. else
  707. act 'Thank you master':gt 'leonid', 'office'
  708. end
  709. end
  710. if $ARGS[0] = 'call':
  711. minut += 2
  712. '<<$pcs_firstname>>, be at 20:00 at the office. Understood?'
  713. leonidVisit = 1
  714. minut += 1
  715. gs 'stat'
  716. act 'Yes mister <<$bSurname>>.':gt $loc, $loc_arg
  717. end
  718. if $ARGS[0] = 'callMissed':
  719. minut += 2
  720. if leonidVisitMissed <= 2:
  721. 'Are you forgetting what you are, slave? Be at 20:00 at the office and don''t fail me again, or there will be consequences. Understood?'
  722. elseif leonidVisitMissed >= 3:
  723. 'This is your last warning, slave. If you won''t come to my office today at 20:00, bad things will happen. Understood?'
  724. end
  725. leonidVisit = 1
  726. minut += 1
  727. leonidSlaveDay = daystart
  728. gs 'stat'
  729. act 'Yes mister <<$bSurname>>, I''m sorry. I''ll be there.':gt $loc, $loc_arg
  730. end
  731. if $ARGS[0] = 'sold':
  732. minut += 35
  733. leonidSlave = 0
  734. '"<<$pcs_firstname>>, you stupid bitch. I thought you were already trained well, given the experience from the slave facility."'
  735. 'You try to object to his statement, but he just slaps your face shutting you up even before you were able to say a word.'
  736. '"I don''t need such an unruly slave as you. I can easily buy another, more obedient one."'
  737. '"Perhaps I shall keep them locked up, next time. But not you, <<$pcs_firstname>>. I don''t want any more trouble with you."'
  738. '"Everything is already arranged. You are leaving now, enjoy the countless dicks waiting for you."'
  739. 'Your face turn pale from his words, fearing what they meant.'
  740. 'A fat old lady comes with cuffs and a hood, still in surprise you are bound and hood is put on your head.'
  741. 'You find yourself once again in a trunk of a car, travelling somewhere else to an unknown and possibly unpleasant future..'
  742. ''
  743. 'After about half an hour you are unloaded from the trunk and lead somewhere inside.'
  744. 'The fat lady removes the hood: "You are in brothel, bitch. I guess you know what are you going to do here."'
  745. '"Over there is your room where you can sleep. Some food is in the cabinet."'
  746. '"When whoring, I want you clean and made up. Earn me enough money and I may let you leave. Understood?"'
  747. workDolg = 100000 + money
  748. gs 'stat'
  749. act 'Continue':gt 'city_sauna', 'saunaroom'
  750. end
  751. if $ARGS[0] = 'toilet':
  752. CLOSE ALL
  753. $loc = 'leonid'
  754. $loc_arg = 'toilet'
  755. $location_type = 'bathroom'
  756. $locM = 'leonid'
  757. $locM_arg = 'toilet'
  758. minut += 2
  759. '<center><h4>Office toilet</h4></center>'
  760. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/toilet.jpg"></center>'
  761. 'You are in an office toilet.'
  762. *nl
  763. 'You can access your <a href="exec: quick_dress = 1 & gt ''wardrobe'', ''default''">default clothing</a> options directly.'
  764. if $clothingworntype ! 'office':
  765. '<b style="color: #FF00000">You are at work, so you need to be dressed as a secretary!</b>'
  766. end
  767. act 'Leave the restroom':gt 'leonid', 'office'
  768. act 'Change your clothes':gt 'wardrobe', 'start'
  769. act 'Look in the mirror': gt 'mirror', 'start'
  770. if pcs_hairbsh = 0: act 'Brush your hair': gt 'mirror', 'brush'
  771. dynamic $tampon
  772. dynamic $quickwash
  773. dynamic $basin
  774. dynamic $publicpan
  775. end
  776. --- leonid ---------------------------------