1
0

experiment.qsrc 128 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589
  1. # experiment
  2. $loc = 'experiment'
  3. $location_type = private
  4. $locM = 'experiment'
  5. $menu_loc = 'experiment'
  6. $menu_arg = 'private'
  7. menu_off = 0
  8. $doc1 = 'Doctor Sokolnikov'
  9. $doc2 = 'Doctor Ivanov'
  10. if $ARGS[0] = 'start':
  11. $metka = 'start'
  12. minut += 2
  13. gs 'stat'
  14. if experimentAbsolved = 0:
  15. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\desk.jpg"></center>'
  16. *nl
  17. 'A young woman, dressed in office clothes and wearing glasses is sitting behind a desk.'
  18. else
  19. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
  20. *nl
  21. 'An elderly nurse is sitting behind a desk.'
  22. end
  23. if succubusflag = 0:
  24. if unrelated_preg = 1 and knowpreg = 1:
  25. *nl
  26. 'You are pregnant and they don''t take on pregnant candidates.'
  27. elseif exp_form = 0 and experimentAbsolved = 0 and (knowpreg = 0 or unrelated_preg = 0):
  28. *nl
  29. 'You are warmly welcomed by the woman sitting behind the desk, "Hello miss, can I help you?"'
  30. '"I read an advert that you are looking for people to test some kind of new treatment... And that you compensate the subjects for it." you reply.'
  31. '"Yes, that is true. If you want to apply, please read and fill in this form." She hands you over the form.'
  32. act 'Take the form':gt 'experiment', 'form'
  33. elseif exp_form = 1 and experimentAbsolved = 0 and (knowpreg = 0 or unrelated_preg = 0):
  34. act 'Go to the area marked in the book to start the experiment':gt 'experiment', 'form:filled'
  35. elseif shouted = 1:
  36. *nl
  37. '"Hello miss <<$pcs_lastname>>, you are not going to shout at me again, will you?" the woman behind the desk asks.'
  38. act '<i>Angrily shout at her for ruining your life</i>':gt 'experiment', 'deskTalk:shout'
  39. act 'No, I am sorry about that..':gt 'experiment', 'deskTalk' & shouted = 0
  40. else
  41. 'Hello miss <<$pcs_lastname>>, how is your pregnancy?'
  42. if kid = 0 and pregchem > 0:act 'It is going well':gt 'experiment', 'deskTalk'
  43. if kid > 0 and knowpreg = 1:act 'I already gave birth, but I''m also pregnant again':gt 'experiment', 'deskTalk'
  44. if kid > 0 and knowpreg = 0:act 'I already gave birth':gt 'experiment', 'deskTalk'
  45. if kid = 0 and pregchem = 0:act 'I had an abortion':gt 'experiment', 'deskTalk'
  46. end
  47. else
  48. 'You have a really bad feeling about this place. It''s no place for a succubus.'
  49. end
  50. act 'Leave':gt 'poli', 'start'
  51. end
  52. if $ARGS[0] = 'deskTalk':
  53. minut += 3
  54. menu_off = 1
  55. gs 'stat'
  56. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
  57. *nl
  58. if kid = 0 and pregchem > 0:
  59. '"That is good to hear. Can I help you somehow?"'
  60. act 'No':gt 'poli', 'start'
  61. elseif kid > 0 and (pregchem = 0 or (pregchem > 0 and knowpreg = 0)):
  62. '"Wonderful! Anyway, can I help you somehow? Are you maybe interested in rejoining the experiment?" she curiously asks.'
  63. '"That''s still a possibility?" you surprisingly ask.'
  64. '"Of course it is miss <<$pcs_lastname>>. We don''t discriminate if you''ve had a child or not, on the contrary." she re-assures you.'
  65. '"Really?" you start to ponder.'
  66. '"Indeed. If I remember correctly you were in need of money, weren''t you? Think about it..."'
  67. act 'No way I''m going through that again!':gt 'experiment', 'deskTalk:refuse'
  68. act 'Yes, I need the money..':gt 'experiment', 'deskTalk:volunteer'
  69. act 'Leave':gt 'poli', 'start'
  70. elseif kid > 0 and knowpreg = 1:
  71. '"I already gave birth, but I''m also pregnant again." you say.'
  72. '"That''s wonderful! We need to wait until you have given birth again if you want to rejoin the experiment." she says with a smile.'
  73. act 'Leave':gt 'poli', 'start'
  74. elseif kid = 0 and pregchem = 0:
  75. '"Oh, that is unfortunate, but not unexpected. Why are you here again, tell me? Do you want to rejoin the experiment again? Have you changed your mind, or do you need the money? Our doctors would definitely welcome to test on a subject that underwent a pregnancy termination..." she asks.'
  76. act 'No way I''m going through that again!':gt 'experiment', 'deskTalk:refuse'
  77. act 'Yes, I need the money..':gt 'experiment', 'deskTalk:volunteer'
  78. act '<i>Angrily shout at her for ruining your life</i>':gt 'experiment', 'deskTalk:shout'
  79. act 'Leave':gt 'poli', 'start'
  80. end
  81. end
  82. if $ARGS[0] = 'deskTalk:shout':
  83. shouted = 1
  84. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\shout.jpg"></center>'
  85. *nl
  86. '"Calm damn miss <<$pcs_lastname>>, or I will be forced to call a security!" the woman yells as she tries to calm you down.'
  87. '"You can all go to hell, all of you and your medical experiments!" you yell back.'
  88. act 'Leave':gt 'poli', 'start'
  89. end
  90. if $ARGS[0] = 'deskTalk:refuse':
  91. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
  92. *nl
  93. '"I understand miss <<$pcs_lastname>>. I guess being used by those extra large sized cocks is not an experience that a woman would like to go through repeatedly." she understandingly replies.'
  94. '"Thank you nurse." you are surprised by her empathy.'
  95. '"Yet you are not a regular woman, are you?" her look and voice changes.'
  96. '"What?" you frightfully ask.'
  97. '"Admit it, you are a slut. I''ve seen you silently enjoy the pounding those africans gave you. I''ve seen your true self. You are a whore, a cum bucket, a slut." the woman starts attacking you.'
  98. '"How dare you?!" you start mouthing back.'
  99. '"What''s worse, you are not just any regular whore, but you are a big black cock whore, the worst of the worst. A true disgrace to all decent women originating from Russia!" she hisses back.'
  100. act '<i>Angrily shout at her for those lies</i>':gt 'experiment', 'deskTalk:shout'
  101. act 'Admit that you love black cocks':gt 'experiment', 'deskTalk:admitWhore'
  102. act 'Leave':gt 'poli', 'start'
  103. end
  104. if $ARGS[0] = 'deskTalk:admitWhore':
  105. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
  106. *nl
  107. '"You see miss <<$pcs_lastname>>, acceptance is the first step. Now do you want to rejoin the experiment, or not?" she grins as she asks.'
  108. '"I am not sure, nurse..." you hesitantly answer.'
  109. '"Just think about all those big black cocks, ready to fill you up... And all the orgasms you would be experiencing!" she is trying her best to tempt you.'
  110. act 'Yes, I need it...':gt 'experiment', 'deskTalk:volunteer'
  111. act 'No, I have to fight this..':gt 'poli', 'start'
  112. end
  113. if $ARGS[0] = 'deskTalk:volunteer':
  114. minut += 1
  115. impreg = 0
  116. expVolunteer = 1
  117. expVolunteerExam = 0
  118. gs 'stat'
  119. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
  120. *nl
  121. '"Great! No need to go through the regular procedures again. Go directly to the changing room and then come back to me." she points you towards the direction of the changing room.'
  122. act 'Go change':gt 'experiment', 'testarea:lockeroom:locker'
  123. end
  124. if $ARGS[0] = 'deskTalk:volunteer:start':
  125. minut += 3
  126. gs 'stat'
  127. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
  128. *nl
  129. '"Very well miss <<$pcs_lastname>>, now follow me, I will show you to your room." she begins to lead you towards the room.'
  130. 'As you follow her, she turns your head to you, saying:'
  131. '"Please mind that the regular restrictions still apply to you, even though you are volunteering again."'
  132. '"Regular restrictions?" you ask.'
  133. '"Yes" she nods her head, "You will be restricted to your room and not allowed to leave until the experiment is completed, just as last time."'
  134. '"Will the men be rough with me again? Can''t they be a bit more gentle now that I''ve volunteered once again?" you ask.'
  135. 'The nurse shakes her head, "I am afraid they will be the same. You can''t change men, girl... You should already know that."'
  136. act 'Follow her':gt 'experiment', 'testarea:treatment:room'
  137. end
  138. if $ARGS[0] = 'form':
  139. minut += 2
  140. gs 'stat'
  141. '<h2>Research project #667 - "Fruit of Eden"</h2>'
  142. '<h4>Description</h4>'
  143. '7 days experimental treatment requiring 24/7 facility stay.'
  144. 'Subjects will be divided into two groups, a test group and a control group.'
  145. 'Both subjects will be injected by a test drug without knowing if it is a placebo or not.'
  146. '<h4>Possible harms to health</h4>'
  147. 'Only minor threats: nausea, swellings, cramps, confusion'
  148. '<h4>Who can apply</h4>'
  149. 'Women in age between 18 and 40, in perfect health.'
  150. 'Men in age between 35 and 70, with further conditions applied case to case by a supervising doctor.'
  151. '<h4>Payment</h4>'
  152. 'A compensation will be paid at the end of the treatment, a value of 50.000 <b>₽</b>.'
  153. if age <= 40:
  154. act 'Fill in the form and hand it over to the desk attendant':gt 'experiment', 'form:filled'
  155. act 'Leave it be':gt 'poli', 'start'
  156. else
  157. act 'Leave it be (you are too old)':gt 'poli', 'start'
  158. end
  159. end
  160. if $ARGS[0] = 'form:filled':
  161. exp_form = 1
  162. minut += 3
  163. gs 'stat'
  164. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\desk.jpg"></center>'
  165. *nl
  166. 'As you hand the form back the nurse, she begins to talk, "Thank you miss. You can start at any time, this project is ongoing and you do not have to wait for other people."'
  167. 'She hands you over a confirmed copy of the form and a guide book with instructions.'
  168. act 'Go to the area marked in the guide to start the experiment':gt 'experiment', 'testarea:start'
  169. act 'Leave for now':gt 'poli', 'start'
  170. end
  171. if $ARGS[0] = 'testarea:start':
  172. minut += 1
  173. gs 'stat'
  174. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
  175. *nl
  176. '"Hello miss, you are here for the experimental treatment?" an other nurse asks you.'
  177. '"Yes, I have the confirmed form right here." you hand over the form.'
  178. '"Okay, very well. But before we start, we need to double check a couple of facts, if you don''t mind." she tells you.'
  179. 'She brings up a new form and begins to ask you questions, taking notes:'
  180. act 'Start the questionare':gt 'experiment', 'testarea:questionare:0'
  181. end
  182. ! pregnant
  183. if $ARGS[0] = 'testarea:questionare:0':
  184. minut += 1
  185. gs 'stat'
  186. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
  187. *nl
  188. '"Are you pregnant?"'
  189. if knowpreg = 1:
  190. act 'Yes':
  191. cla
  192. *nl
  193. '"Yes", you answer truthfully.'
  194. '"Oh, I''m sorry, but we can''t sign you up for the experiment when you are pregnant." she disappointingly replies.'
  195. unrelated_preg = 1
  196. act 'Leave': gt 'experiment', 'start'
  197. end
  198. act 'No (lie)': gt 'experiment', 'testarea:questionare:1'
  199. elseif knowpreg = 0:
  200. act 'Yes (lie)':
  201. cla
  202. *nl
  203. '"Yes", you lie.'
  204. '"Oh, I''m sorry, but we can''t sign you up for the experiment when you are pregnant." she disappointingly replies.'
  205. unrelated_preg = 1
  206. act 'Leave': gt 'experiment', 'start'
  207. end
  208. act 'No': unrelated_preg = 0 & gt 'experiment', 'testarea:questionare:1'
  209. end
  210. end
  211. ! age
  212. if $ARGS[0] = 'testarea:questionare:1':
  213. minut += 1
  214. gs 'stat'
  215. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
  216. *nl
  217. '"How old are you?"'
  218. if age < 18:act '18 years (lie)':underage = 1 & gt 'experiment', 'testarea:questionare:2'
  219. if age >= 18:act age+' years':gt 'experiment', 'testarea:questionare:2'
  220. end
  221. ! period or pill?
  222. if $ARGS[0] = 'testarea:questionare:2':
  223. minut += 1
  224. gs 'stat'
  225. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
  226. *nl
  227. '"Are you having regular periods?"'
  228. if tabletkicheck = 2:
  229. act 'No, I have had the birth control shot':regper = 4 & gt 'experiment', 'testarea:questionare:3'
  230. elseif tabletkicheck = 1:
  231. act 'No, I am on the pill':regper = 3 & gt 'experiment', 'testarea:questionare:3'
  232. else
  233. act 'No, I am on the pill (lie)':regper = 3 & gt 'experiment', 'testarea:questionare:3'
  234. act 'Yes' :regper = 1 & gt 'experiment', 'testarea:questionare:3'
  235. act 'Yes (lie)' :regper = 2 & gt 'experiment', 'testarea:questionare:3'
  236. act 'No' :regper = -1 & gt 'experiment', 'testarea:questionare:3'
  237. act 'No (lie)' :regper = -2 & gt 'experiment', 'testarea:questionare:3'
  238. end
  239. end
  240. ! sexual experience
  241. if $ARGS[0] = 'testarea:questionare:3':
  242. minut += 1
  243. gs 'stat'
  244. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
  245. *nl
  246. '"How many sexual partners have you had so far?"'
  247. if guy = 0 and pcs_vag = 0:act 'None, I am a virgin.':virg = 1 & gt 'experiment', 'testarea:questionare:5'
  248. if guy > 0:act 'None, I am a virgin. (lie)':virg = 0 & gt 'experiment', 'testarea:questionare:5'
  249. if guy = 0:act 'A few (lie) ':virg = 2 & slut = 0 & gt 'experiment', 'testarea:questionare:4'
  250. if guy = 0:act 'Many (lie)':virg = 2 & slut = 1 & gt 'experiment', 'testarea:questionare:4'
  251. if guy > 0 and guy <= 5:act 'A few':virg = 2 & slut = 0 & gt 'experiment', 'testarea:questionare:4'
  252. if guy > 0 and guy <= 5:act 'Many (lie)':virg = 2 & slut = 2 & gt 'experiment', 'testarea:questionare:4'
  253. if guy > 5:act 'A few (lie)':virg = 2 & slut = 0 & gt 'experiment', 'testarea:questionare:4'
  254. if guy > 5:act 'Many':virg = 2 & slut = 1 & gt 'experiment', 'testarea:questionare:4'
  255. end
  256. ! sex intervals
  257. if $ARGS[0] = 'testarea:questionare:4':
  258. minut += 1
  259. gs 'stat'
  260. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
  261. *nl
  262. '"How many times a week do you have sex?"'
  263. act 'None or rarely':sexfreq = 1 & gt 'experiment', 'testarea:questionare:5'
  264. act 'A few times':sexfreq = 2 & gt 'experiment', 'testarea:questionare:5'
  265. act 'Daily or almost daily':sexfreq = 3 & slut = 1 & gt 'experiment', 'testarea:questionare:5'
  266. end
  267. ! dick size pref
  268. if $ARGS[0] = 'testarea:questionare:5':
  269. minut += 1
  270. gs 'stat'
  271. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
  272. *nl
  273. '"What size of your partners penis do you prefer?"'
  274. '"I''m sorry, but these questions are really starting to be suspiciously related to sexual nature?" you start to question her intentions.'
  275. 'The nurse smiles, "No need to worry, we''ll be shortly done..."'
  276. if virg <= 1:
  277. act 'I do not know, I am a virgin after all.':gt 'experiment', 'testarea:questionare:6'
  278. else
  279. act 'A small one, it is more comfortable and painless.':dick_pref = 1 & prude = 1 &gt 'experiment', 'testarea:questionare:6'
  280. act 'A medium one, balance between pleasure and comfort.':dick_pref = 2 & gt 'experiment', 'testarea:questionare:6'
  281. act 'A big one, the feeling of fullness exceeds the occasional discomfort.':dick_pref = 3 & slut = 1 & gt 'experiment', 'testarea:questionare:6'
  282. end
  283. end
  284. ! race experiance
  285. if $ARGS[0] = 'testarea:questionare:6':
  286. minut += 1
  287. gs 'stat'
  288. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
  289. *nl
  290. '"Have you ever had sex with anyone other than of Russian native origin?"'
  291. if virg <= 1:
  292. act 'I already told you I am a virgin':gt 'experiment', 'testarea:questionare:7'
  293. else
  294. act 'No.':gt 'experiment', 'testarea:questionare:7'
  295. act 'No. (lie) ':gt 'experiment', 'testarea:questionare:7'
  296. act 'Yes, an african man':interr = 2 & gt 'experiment', 'testarea:questionare:7'
  297. act 'Yes, an asian man.':interr = 1 & gt 'experiment', 'testarea:questionare:7'
  298. act 'Yes, both asian and african man.':interr = 3 &gt 'experiment', 'testarea:questionare:7'
  299. end
  300. end
  301. ! thank you
  302. if $ARGS[0] = 'testarea:questionare:7':
  303. minut += 1
  304. gs 'stat'
  305. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
  306. *nl
  307. '"Thank you miss. Now that we have this paperwork taken care for, we can proceed with the experiment."'
  308. '"Do you have any questions?" the nurse asks you.'
  309. act 'Yes, why did you ask such weird questions?':gt 'experiment', 'testarea:questionare:8'
  310. act 'No, we can proceed.':gt 'experiment', 'testarea:questionare:9'
  311. end
  312. ! weird questions?
  313. if $ARGS[0] = 'testarea:questionare:8':
  314. minut += 1
  315. gs 'stat'
  316. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
  317. *nl
  318. '"Why were you asking such weird questions? I thought this was a medical experiment. They were really weird!" you ask.'
  319. '"Don''t worry miss, it is a standard procedure meant to assess potential risks of sexually transmitted diseases." the nurse is trying to re-assure you.'
  320. act 'Sounds genuine, we can proceed':gt 'experiment', 'testarea:questionare:9'
  321. act 'Something''s wrong, I want to leave':gt 'poli', 'start'
  322. end
  323. ! questionare end
  324. if $ARGS[0] = 'testarea:questionare:9':
  325. minut += 1
  326. gs 'stat'
  327. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
  328. *nl
  329. '"I am glad you are pleased. Now please head over to the locker room, put all your things in locker No 54. It will be stored for you until you finish the treatment."'
  330. '"You will find a patient gown inside there, put in on and come back to me." she tells you.'
  331. act 'Head over to the locker room':gt 'experiment', 'testarea:lockeroom:locker:meetAfrican'
  332. end
  333. if $ARGS[0] = 'testarea:lockeroom:locker:meetAfrican':
  334. minut += 2
  335. menu_off = 1
  336. gs 'stat'
  337. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\africanmeet.jpg"></center>'
  338. *nl
  339. 'As you walk down the hall, you notice a room with open doors.'
  340. 'You don''t know why but you quietly step behind the door, as if you didn''t want to be seen or heard.'
  341. 'A black man is standing in the middle of the room, smoking a cigarette, and he''s completely <b>naked</b>!'
  342. 'He doesn''t notice you. It could be that he is just ignoring you.'
  343. 'Your curiosity gets the best of you as you stray your eyes away from his face, and continue down his body to stop by his crotch... You open your mouth wide in shock and disbelief:'
  344. if pcs_vag = 0:'<i>I have seen a few penis pictures so far, but none has ever been so big, not nearly! I''ve heard stories about black men, but to be this big?</i>'
  345. if pcs_vag > 0 and pcs_vag <= 10:'<i>I have seen a few penises so far, but none has ever been so big, not nearly! I''ve heard stories about black men, but to be this big?</i>'
  346. if pcs_vag > 10:'<i>I have seen many penises already, but none has ever been so big, not nearly! I''ve heard stories about black men, but to be this big?</i>'
  347. act 'Stare at him':gt 'experiment', 'testarea:lockeroom:locker:stareAfrican'
  348. act 'Something''s wrong - run away':gt 'poli', 'start'
  349. end
  350. if $ARGS[0] = 'testarea:lockeroom:locker:stareAfrican':
  351. minut += 2
  352. menu_off = 1
  353. gs 'stat'
  354. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\africanmeet.jpg"></center>'
  355. *nl
  356. 'The man finishes his cigarette, and all of a sudden turns over and is hungrily looking at you.'
  357. '"<b>Haven''t seen you before, you are new? Can''t wait to knock you up... Why you not bound? Come here!</b>" he yells out.'
  358. 'He makes a move towards you, his giant penis swinging freely between the legs.'
  359. 'This wakes you from the shock, realizing that he is standing in front of you and what is he implying.'
  360. 'Frightened, you take a step back.'
  361. act 'Step back and continue down the hall':gt 'experiment', 'testarea:lockeroom:locker'
  362. act 'Something''s wrong, run away':gt 'poli', 'start'
  363. end
  364. if $ARGS[0] = 'testarea:lockeroom:locker':
  365. minut += 2
  366. menu_off = 1
  367. gs 'stat'
  368. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\lockerroom.jpg"></center>'
  369. *nl
  370. 'A room full of old rusty steel lockers. Each one has a code lock.'
  371. 'You find locker No. 54 in the middle of the room.'
  372. $pantyworntype = 'none'
  373. $braworntype = 'none'
  374. $shoeworntype = 'none'
  375. vibratorIN = 0
  376. analplugin = 0
  377. gs 'clothing', 'strip'
  378. act 'Strip down and put on the gown':gt 'experiment', 'testarea:lockeroom:gown'
  379. end
  380. if $ARGS[0] = 'testarea:lockeroom:gown':
  381. minut += 3
  382. gs 'stat'
  383. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\gown.jpg"></center>'
  384. *nl
  385. 'You wear nothing but the long, plain white gown. It is secured behind your back by a strap, leaving your back and ass cheeks barely covered.'
  386. 'You feel as if you were naked, and an insecurity comes over you...'
  387. if expVolunteer = 0:act 'Leave the room and go back to nurse':gt 'experiment', 'testarea:start:treatment:ask1'
  388. if expVolunteer = 1:act 'Leave the room and go back to nurse':gt 'experiment', 'deskTalk:volunteer:start'
  389. end
  390. if $ARGS[0] = 'testarea:start:treatment:ask1':
  391. minut += 2
  392. gs 'stat'
  393. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
  394. *nl
  395. 'Back in the entry hall, you feel a sudden cold breeze running through your back.'
  396. 'The unexpected meeting with the black man made you tremble as you remember the things he said to you...'
  397. *nl
  398. 'Meanwhile the nurse comes back, and takes a look at you, "So miss <<$pcs_lastname>>, everything alright? Can we proceed?"'
  399. act 'Yes, we can proceed':gt 'experiment', 'testarea:start:treatmentStart'
  400. act 'No, I have a question':gt 'experiment', 'testarea:start:treatment:ask2'
  401. end
  402. if $ARGS[0] = 'testarea:start:treatment:ask2':
  403. minut += 2
  404. gs 'stat'
  405. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
  406. *nl
  407. if ask1 = 2:lvl = 1
  408. if ask2 = 2 and ask3 = 2 and ask4 = 2:lvl = 2
  409. if lvl = 0:
  410. '"I have a question." you swallow hard.'
  411. '"Very well, miss <<$pcs_lastname>>, ask away." the nurse is awaiting your question.'
  412. else
  413. '"Do you have another question, miss <<$pcs_lastname>>?"'
  414. end
  415. if lvl = 0 and ask1 = 0:act 'Who was that black man I just encountered?':ask1 = 1 & gt 'experiment', 'testarea:start:treatment:ask3'
  416. if lvl = 1 and ask2 = 0:act 'Why did he have such enormous penis?':ask2 = 1 & gt 'experiment', 'testarea:start:treatment:ask3'
  417. if lvl = 1 and ask3 = 0:act 'Why did he call me a whore waiting to be knocked up?':ask3 = 1 & gt 'experiment', 'testarea:start:treatment:ask3'
  418. if lvl = 1 and ask4 = 0:act 'He mentioned something about me being not bound?':ask4 = 1 & gt 'experiment', 'testarea:start:treatment:ask3'
  419. if lvl = 2 and ask5 = 0:act 'What exactly will be tested on me?':ask5 = 1 & gt 'experiment', 'testarea:start:treatment:ask3'
  420. if lvl = 2 and ask6 = 0:act 'Will I be meeting these black male subjects?':ask6 = 1 & gt 'experiment', 'testarea:start:treatment:ask3'
  421. if lvl > 0:act 'No, we can proceed':gt 'experiment', 'testarea:start:treatmentStart'
  422. if lvl > 0:act 'I think I''ve changed my mind about this':gt 'experiment', 'testarea:start:changeMind'
  423. end
  424. if $ARGS[0] = 'testarea:start:treatment:ask3':
  425. minut += 2
  426. gs 'stat'
  427. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
  428. *nl
  429. if ask1 = 1:
  430. ask1 = 2
  431. '"<b>Who was that black man I just encountered?</b>" you ask.'
  432. '"I see, you have witnessed something you shouldn''t have. Alright, no use hiding it before you anymore, I will tell you. He is one of our male subjects." the nurse starts explaining.'
  433. '"A black male? Are all the subjects like him?" you impatiently ask.'
  434. '"Yes miss <<$pcs_lastname>>, they are all of african descent." the nurse replies.'
  435. '"But... Why?" you frightfully question.'
  436. '"It is a part of the research. The males are africans, the females are caucasians." she tells you without a further explanation.'
  437. act 'Continue':gt 'experiment', 'testarea:start:treatment:ask2'
  438. elseif ask2 = 1:
  439. ask2 = 2
  440. '"<b>How come did he have such an enormous penis?</b>" you ask.'
  441. '"Oh, he was administered an experimental treatment for penis enlargement." the nurse explains.'
  442. '"What? That is possible?" you gasp.'
  443. 'The nurse nods, "Yes miss <<$pcs_lastname>>, it is one of the drugs we research here." she shortly explains.'
  444. act 'Continue':gt 'experiment', 'testarea:start:treatment:ask2'
  445. elseif ask3 = 1:
  446. ask3 = 2
  447. '"<b>Why did he want to knock me up?</b>" you ask.'
  448. '"You see miss <<$pcs_lastname>>, the drug has side effects. The subjects can end up confused, in some cases their brain function gets limited." she says.'
  449. '"That is horrible!" you reply.'
  450. '"We do our best to remove such side effects. But it takes time to correct." the nurse does her best to explain.'
  451. '"And they don''t mind being in such a state?" you curiously ask.'
  452. '"They have taken part in this project knowing all the risks." the nurse sighs.'
  453. act 'Continue':gt 'experiment', 'testarea:start:treatment:ask2'
  454. elseif ask4 = 1:
  455. ask4 =2
  456. '"<b>He mentioned something about me being not bound?</b>" you ask.'
  457. '"Indeed miss <<$pcs_lastname>>, we have to restrict the movement of some of our patients from time to time." she explains.'
  458. '"Why?" you frightfully ask.'
  459. '"To prevent them from harming themselves. The side effects vary, you know..." the nurse continues on.'
  460. '"Will you restrict me too?" you question the nurse.'
  461. '"There''s a risk for that, yes. But only for your good and if necessary." she re-assures you.'
  462. act 'Continue':gt 'experiment', 'testarea:start:treatment:ask2'
  463. elseif ask5 = 1:
  464. ask5 = 2
  465. '"<b>What exactly will be tested on me?</b>" you ask.'
  466. '"I cannot tell you even if I wanted to." the nurse replies.'
  467. '"Why?" you ask.'
  468. '"Firstly, you shouldn''t know what to expect. It may be a placebo or not." the nurse explains.'
  469. '"There''s more?" you continue on pressing.'
  470. '"Secondly, it will be decided when we run the tests. You will be assigned a schedule best fitting for you." the nurse annoyingly answers.'
  471. act 'Continue':gt 'experiment', 'testarea:start:treatment:ask2'
  472. elseif ask6 = 1:
  473. ask6 = 2
  474. '"<b>Will I be meeting these black male subjects?</b>" you ask.'
  475. '"Most certainly." the nurse replies.'
  476. '"In what way?" you pry on.'
  477. '"A regular interaction is required in order to do the research." the nurse explains.'
  478. '"What do you mean regular? What kind of interaction?" you angrily ask.'
  479. '"Several times a day. I cannot tell you more, it will be decided when we run the tests and once you will be assigned to a specific test group." the nurse vaguely explains.'
  480. *nl
  481. 'As if from afar, you hear a male''s grunts and heavy breathing, getting more and more intensive, when it suddenly stops with just one last loud grunt.'
  482. act 'Continue':gt 'experiment', 'testarea:start:treatment:ask2'
  483. end
  484. end
  485. if $ARGS[0] = 'testarea:start:changeMind':
  486. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
  487. *nl
  488. '"<b>I think I changed my mind.</b>" you tell the nurse.'
  489. '"What do you mean miss <<$pcs_lastname>>?" she is confusingly looking at you.'
  490. '"Everything here is too suspicious. Questions regarding sex, black males with giant penises wanting to impregnate me, restricting your test subjects, not telling me what actually will I go through." you explain.'
  491. '"I think you are over-thinking it, miss <<$pcs_lastname>>. This is an official research project. There is nothing to be afraid of. Are you sure you want to leave?" the nurse asks.'
  492. act 'Tell her you changed your mind and want to continue on':gt 'experiment', 'testarea:start:treatmentStart'
  493. act 'Tell her yes, dress up and leave':gs 'clothing', 'wear_last_worn' & gt 'poli', 'start'
  494. end
  495. if $ARGS[0] = 'testarea:start:treatmentStart':
  496. minut += 2
  497. gs 'stat'
  498. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
  499. *nl
  500. 'Back in the entry hall, you feel a sudden cold breeze running through your back.'
  501. *nl
  502. '"Alright nurse, I am ready." you tell her.'
  503. '"Have you secured the locker?" she asks.'
  504. '"Yes, I have." you reply.'
  505. '"Good. Now please follow me, it''s time to start." she commands you.'
  506. *nl
  507. 'She leads you through a long hallway to a room that looks like any other doctor room.'
  508. *nl
  509. 'The nurse points towards a chair, "Please sit down, I need to inject some vitamins before the doctors come and start the actual treatment."'
  510. *nl
  511. 'She takes out a syringe, pushing the remaining air bubbles out. Holding you by the arm she is about to inject it into you...'
  512. act 'Brace for the pinch':
  513. if preg = 0: gt 'experiment', 'testarea:start:treatmentStart:injection'
  514. if preg > 0:
  515. cla & *clr
  516. minut += 120
  517. thinkpreg = 1
  518. knowpreg = 1
  519. unrelated_preg = 1
  520. gs 'stat'
  521. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
  522. *nl
  523. 'You wake up in a hospital bed the nurse standing beside you, "I''m sorry but you are pregnant and we can''t sign up pregnant woman for the experiment."'
  524. act 'Leave': gt 'experiment', 'start'
  525. end
  526. end
  527. end
  528. if $ARGS[0] = 'testarea:start:treatmentStart:injection':
  529. minut += 60
  530. gs 'stat'
  531. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\injection.jpg"></center>'
  532. *nl
  533. '"See, it didn''t hurt at all." the nurse smiles.'
  534. *nl
  535. '"What are these vitamins for anyway?" you ask.'
  536. '"To make you strong and healthy for the upcoming treatment, miss <<$pcs_lastname>>." the nurse explains.'
  537. '"Will the treatment hurt, nurse?" you curiously ask.'
  538. '"Well, some girls say that it does. You will notice..." she shortly replies.'
  539. *nl
  540. 'Hearing that, you start to feel very, very sleepy.'
  541. *nl
  542. '"I... I don''t feel entirely fine, nur..." you don''t even finish the sentence before you''re fast asleep.'
  543. act 'Am I dreaming or is this reality?':gt 'experiment', 'testarea:start:treatmentStart:dream1'
  544. end
  545. if $ARGS[0] = 'testarea:start:treatmentStart:dream1':
  546. minut += 3
  547. gs 'stat'
  548. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doctorsblurred.jpg"></center>'
  549. *nl
  550. 'You wake up confused and disoriented, but you''re slowly getting to it, remembering your whereabouts. A clinic... experimental treatment... nurse... weird questions... vitamin injection...'
  551. 'It all seems as a dream that you are unable to wake up from. You desperately try to, but it just won''t let you wake up!'
  552. *nl
  553. 'Struggling like this for a while, trying to clear your mind, you hear voices from afar...'
  554. *nl
  555. '<<$doc1>>: "So we''ve got another subject, I see."'
  556. '<<$doc2>>: "Yes, this one looks promising."'
  557. if age < 18:
  558. '<<$doc1>>: "She looks very young. What did she put down on the form?"'
  559. '<<$doc2>>: "18 years."'
  560. '<<$doc1>>: "Really? I don''t believe that. Let me check with the system."'
  561. '<<$doc1>>: "Indeed. Her medical record says she is '+age+' years old."'
  562. '<<$doc2>>: "Hmm, I guess we can still work with her. It is her problem she is hiding her actual age."'
  563. end
  564. act 'What the...?':gt 'experiment', 'testarea:start:treatmentStart:dream2'
  565. end
  566. if $ARGS[0] = 'testarea:start:treatmentStart:dream2':
  567. minut += 10
  568. gs 'stat'
  569. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doctorsblurred.jpg"></center>'
  570. *nl
  571. '<i>What is this all about? Such a weird dream..</i>'
  572. *nl
  573. '<<$doc1>>: "What''s next in the form?"'
  574. if regper = 3 or regper = 4:
  575. '<<$doc2>>: "She claims that she is using some kind of anti-conception pill."'
  576. '<<$doc1>>: "Well, not exactly desirable, but we will manage."'
  577. elseif regper = 1 or regper = 2:
  578. '<<$doc2>>: "She claims that her period is regular."'
  579. '<<$doc1>>: "Very good, but we need to run tests to confirm it."'
  580. elseif regper = -1 or regper = -2:
  581. '<<$doc2>>: "She claims that her period is not very regular."'
  582. '<<$doc1>>: "Well, not exactly desirable, but we will manage."'
  583. end
  584. *nl
  585. if virg <= 1:
  586. '<<$doc2>>: "She claims to be a virgin."'
  587. '<<$doc1>>: "Hmm, we will have to check that."'
  588. '<<$doc2>>: "Because of that there is no data regarding her sexual experience, racial experience or penis preferences."'
  589. '<<$doc1>>: "Come on dear colleague, just look at her lying on the bed. She can''t be lying?"'
  590. else
  591. if slut = 0:
  592. '<<$doc2>>: "She claims to had few sexual partners."'
  593. '<<$doc1>>: "Barely used I see. We can work with that."'
  594. if sexfreq = 1:
  595. *nl
  596. '<<$doc2>>: "She claims to not have almost no sex during a regular week."'
  597. '<<$doc1>>: "Probably long time without a boyfriend."'
  598. elseif sexfreq = 2:
  599. *nl
  600. '<<$doc2>>: "She claims to have sex few times a week."'
  601. '<<$doc1>>: "Quite regular giving her so far sexual experience."'
  602. elseif sexfreq = 3:
  603. *nl
  604. '<<$doc2>>: "She claims to have sex daily."'
  605. '<<$doc1>>: "Really? What a slut. Or her boyfriend must be really horny bastard."'
  606. end
  607. elseif slut = 1 or slut = 2:
  608. '<<$doc2>>: "She claims to had a lot of sexual partners."'
  609. '<<$doc1>>: "Another slut? At least she''ll endure the treatment more easily."'
  610. if sexfreq = 1:
  611. *nl
  612. '<<$doc2>>: "She claims to not have almost no sex during a regular week."'
  613. '<<$doc1>>: "What? I don''t believe her. Just look at her other answers, she IS a slut."'
  614. elseif sexfreq = 2:
  615. *nl
  616. '<<$doc2>>: "She claims to have sex few times a week."'
  617. '<<$doc1>>: "With such high number of sexual partners? She must be lying."'
  618. elseif sexfreq = 3:
  619. *nl
  620. '<<$doc2>>: "She claims to have sex daily."'
  621. '<<$doc1>>: "Well, even her other answers implicate she is a slut."'
  622. end
  623. end
  624. *nl
  625. !black and asian
  626. if interr = 3:
  627. '<<$doc2>>: "She claims to have sexual experience with a partner of causaian, african and asian origin."'
  628. '<<$doc1>>: "A multicultural slut, isn''t she? Very good."'
  629. !black
  630. elseif interr = 2:
  631. '<<$doc2>>: "She claims to have sexual experience with a partner of african origin."'
  632. '<<$doc1>>: "Only africans?! Perfect! Exactly what we need."'
  633. !asian
  634. elseif interr = 1:
  635. '<<$doc2>>: "She claims to have sexual experience with a partner of asian origin."'
  636. '<<$doc1>>: "Asians?! That''s interesting."'
  637. !none
  638. else
  639. '<<$doc2>>: "She claims to have no other sexual experience but with a partner of caucasian origin."'
  640. '<<$doc1>>: "Untouched by any other but a Russian? That will change very soon."'
  641. end
  642. *nl
  643. if dick_pref = 1:
  644. '<<$doc2>>: "She claims to prefer small penises, accenting her comfort and painless experience."'
  645. '<<$doc1>>: "Such a prude. We need to fix that as we start the experiment."'
  646. elseif dick_pref = 2:
  647. '<<$doc2>>: "She claims to prefer regular size penises, accenting balance between pleasure and comfort."'
  648. '<<$doc1>>: "Like most of our subjects."'
  649. elseif dick_pref = 3:
  650. '<<$doc2>>: "She claims to prefer large size penises, accenting her enjoyment of fullness before comfort and pain."'
  651. '<<$doc1>>: "A big cock lover? A good test candidate indeed."'
  652. end
  653. end
  654. act 'What is going on?':gt 'experiment', 'testarea:start:treatmentStart:dream3'
  655. end
  656. if $ARGS[0] = 'testarea:start:treatmentStart:dream3':
  657. minut += 3
  658. if slut = 0: $title = 'girl'
  659. if slut > 0: $title = 'slut'
  660. if virg <= 1: $title = 'virgin'
  661. if dick_pref = 1: $dick_pref_t = 'small'
  662. if dick_pref = 2: $dick_pref_t = 'regular'
  663. if dick_pref = 3: $dick_pref_t = 'big'
  664. gs 'stat'
  665. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doctorsblurred.jpg"></center>'
  666. *nl
  667. if virg <= 1:
  668. '<<$doc1>>: "So my dear colleague, we''ve got a '+age+' years old '+$title+'."'
  669. '<<$doc2>>: "So it seems."'
  670. '<<$doc1>>: "We should better check everything is correct. You never know, these days."'
  671. else
  672. '<<$doc1>>: "So my dear colleague, we''ve got a '+age+' years old '+$title+' who prefers '+$dick_pref_t+' sized cocks."'
  673. if regper = 3 or regper = 4:'<<$doc2>>: "And she is using anti-conception."'
  674. if regper = 1 or regper = 2:'<<$doc2>>: "And her period is regular."'
  675. if regper = -1 or regper = -2:'<<$doc2>>: "And her period is irregular."'
  676. if interr = 0:'<<$doc1>>: "Indeed. And she has never had sex with an african nor an asian male."'
  677. if interr = 1:'<<$doc1>>: "Indeed. And she has had sex with an asian male."'
  678. if interr = 2:'<<$doc1>>: "Indeed. And she has had sex with an african male."'
  679. if interr = 3:'<<$doc1>>: "Indeed. And she has had sex with both an asian AND an african male."'
  680. end
  681. *nl
  682. 'Unable to stay awake anymore you fade out back to the world of unknowing...'
  683. act '(Fade out)':minut += 300 & gt 'experiment', 'testarea:start:treatmentStart:wakeup1'
  684. end
  685. if $ARGS[0] = 'testarea:start:treatmentStart:wakeup1':
  686. minut += 1
  687. gs 'stat'
  688. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\lights.jpg"></center>'
  689. *nl
  690. 'You''re finally awake, feeling as if you''ve slept for days.'
  691. 'Your eyes slowly adjust to the light coming from the ceiling lamps. It looks as if there are no windows at all and only artificial light illuminates the room.'
  692. 'But you feel something is off...'
  693. *nl
  694. 'You can''t move! <i>Oh my god, I''m paralyzed!</i>'
  695. 'As you move your head to the side, you can feel it is not paralysis, but your hands and legs are bound to the bed!'
  696. 'In horror you struggle to raise your head, only to see that the medical gown is gone and...'
  697. act 'And what???':gt 'experiment', 'testarea:start:treatmentStart:wakeup2'
  698. end
  699. if $ARGS[0] = 'testarea:start:treatmentStart:wakeup2':
  700. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound1.jpg"></center>'
  701. *nl
  702. '...you are not just bound, but also completely naked!'
  703. 'You start panicking, hoping to somehow break free.'
  704. *nl
  705. 'You continue on trying to struggle yourself free, but your body feels very weak, as if all your strength has been sucked out of you...'
  706. act 'Footsteps, someone is coming!':gt 'experiment', 'testarea:start:treatmentStart:wakeup3'
  707. end
  708. if $ARGS[0] = 'testarea:start:treatmentStart:wakeup3':
  709. minut += 5
  710. gs 'stat'
  711. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc1.jpg"></center>'
  712. *nl
  713. 'A doctor, who you barely recognize from your half-dream, stands above you.'
  714. 'Your eyes widen as you realize he is watching your naked, exposed body.'
  715. '<<$doc1>>: "You are awake I see. Are you confused?"'
  716. 'You want to answer him, shout at him to release you. But it is as if your body was not your own, you''re not able to form a single sound...'
  717. '<<$doc1>>: "Perfect. Our drug worked very well once again. I guess I owe you at least an explanation."'
  718. 'You manage to nod your head in response, both eager and afraid to hear what is going on.'
  719. '<<$doc1>>: "So you signed up to this experimental treatment. Completely voluntary with all the paperwork in perfect order. And as you know, we''re in Russia and nobody cares what is going inside here, as long as the papers are fine and pockets are full. Don''t worry my dear, you will be released at the end. But first we will do for what you came here for, to perform an experiment on you."'
  720. 'You swallow anxiously and you can feel a few sweat drops form on your head as you wait for the doctor to continue on...'
  721. '<<$doc1>>: "You see, this is a combined experiment. We are testing a drug for male fertility, drug for a female ovulation and also an impact of both drugs to interracial intercourse."'
  722. 'You stare at him, even more confused than before...'
  723. '<<$doc1>>: "You appear to be a bit slow... Do you want me to tell you the simple version?"'
  724. 'This time he does not wait for you to nod.'
  725. '<<$doc1>>: "We will use a drug to induce an ovulation, afterwards you will be repeatedly have intercourse with a drug induced african male until you get pregnant."'
  726. 'Your eyes widen in disbelief...'
  727. '<<$doc1>>: "Good, I see you have some wits left at the very least."'
  728. gs 'cum_cleanup', 'cleandeposit'
  729. index = 0
  730. amount = 1028
  731. :start
  732. if index < amount:
  733. gs 'cum_cleanup', 'cleanwomb', index
  734. index += 1
  735. jump 'start'
  736. end
  737. ! disable anticonception
  738. tabletkishot = 0
  739. shotdays = 0
  740. tabletkicheck = 0
  741. pillcon = 0
  742. ! cause ovulation
  743. lastovulation = daystart
  744. cycle = 2
  745. ovulate = 24+rand(24,48)
  746. EggRH = 320+rand(160, 320)
  747. if pcs_vag = 0:
  748. act '(fade out again)':gt 'experiment', 'testarea:start:treatmentStart:wakeup:virgin1'
  749. elseif virg = 0:
  750. act '(fade out again)':gt 'experiment', 'testarea:start:treatmentStart:wakeup:liedVirgin'
  751. else
  752. 'Either from the drug or from the shock of your situation, you start to fade out once again.'
  753. 'The doctor walks out, leaving you to your fate. As if from afar, already half asleep, you hear him say:'
  754. '<<$doc1>>: "Oh, and I forgot to mention that we also test what success rate of having an extremely large penis has to human fertilization."'
  755. if dick_pref = 1:'<<$doc1>>: "And since you said you enjoy small penises because of the pain... we are doctors after all. We will cure this weakness of yours. When we are done with you, no size will be painful for you, rest assured!"'
  756. if dick_pref = 2:'<<$doc1>>: "And since you said you enjoy regular penises, this will at least EXPAND your... horizons!"'
  757. if dick_pref = 3:'<<$doc1>>: "And since you said you enjoy big penises, it will surely be a walk in park for you!"'
  758. '"Best of luck!" the doctor scoffs.'
  759. act '(fade out again)':gt 'experiment', 'testarea:treatment:bed'
  760. end
  761. act '(struggle hard to remain awake)':gt 'experiment', 'testarea:treatment:struggleEscape1'
  762. end
  763. if $ARGS[0] = 'testarea:treatment:struggleEscape1':
  764. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound1.jpg"></center>'
  765. *nl
  766. '<<$doc1>> walks out, leaving you alone, bound on the bed.'
  767. 'The drug you''ve been injected is heavily restricting your abilities, you feel very tired. But from what you heard, and what they plan for you, there''s no way you can remain here!'
  768. *nl
  769. act 'Focus your willpower as much as possible':gt 'experiment', 'testarea:treatment:struggleEscape2'
  770. if pcs_vag = 0:
  771. act 'Succumb to the drug':gt 'experiment', 'testarea:start:treatmentStart:wakeup:virgin1'
  772. elseif pcs_vag > 0 and virg = 0:
  773. act 'Succumb to the drug':gt 'experiment', 'testarea:start:treatmentStart:wakeup:liedVirgin'
  774. else
  775. act 'Succumb to the drug':gt 'experiment', 'testarea:treatment:bed'
  776. end
  777. end
  778. if $ARGS[0] = 'testarea:treatment:struggleEscape2':
  779. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound1.jpg"></center>'
  780. *nl
  781. 'As you focus your willpower, you feel that your body starting to respond. Your right hand pulls the rope so strongly that your arm breaks free!'
  782. 'With one hand free, your mind gets a strong positive signal and your body responds. Untying the rest of the binds is a matter of seconds.'
  783. 'You get up, naked as you are and run through the hall.'
  784. 'Your heart beats like it will explode but finally after running around you manage to locate the back-door to the clinic hall!'
  785. *nl
  786. act 'Escape':gt 'poli', 'start'
  787. end
  788. if $ARGS[0] = 'testarea:start:treatmentStart:wakeup:liedVirgin':
  789. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc2.jpg"></center>'
  790. *nl
  791. 'You must have faded out again... You are slowly regaining consciousness, feeling cold and confused.'
  792. 'Someone is standing above you, it''s one of the doctors..'
  793. '<<$doc2>>: "Nurse, give her 2 ml, I want to speak to her."'
  794. 'The nurse quickly comes over and injects you with some drug. Several seconds later you can feel your body return back to normal...'
  795. '<<$doc2>>: "So my little test subject, an examination has confirmed that you have lied to us and that you are not a virgin after all."'
  796. 'You take a while to catch up with your situation...'
  797. '"And? So I lied! Let me go!" you are almost surprised that you are able to speak again.'
  798. '<<$doc2>>: "Oh no, you have signed up for this, you have to go through it. Tell me <<$pcs_firstname>>, obviously you had vaginal sex before, what size do you prefer?"'
  799. '"Why do you ask that?" you ask.'
  800. '<<$doc2>>: "A small, barely noticeable penis? A regular cock? Or do you prefer, which I doubt, an above average phallus?"'
  801. '"I won''t tell, not YOU anyway!" you defiantly reply.'
  802. '<<$doc2>>: "Actually it does not matter. Here you won''t get neither of those three. We are testing a penis enlargement drug with quite a success."'
  803. '"What do you mean?!" you yell out.'
  804. '<<$doc2>>: "Thanks to our drug all our males have bigger penises than the largest ones ever measured."'
  805. '"That cannot be true!" you swallow hard.'
  806. '<<$doc2>>: "Believe me, miss <<$pcs_lastname>>, and you''ll shortly find out..."'
  807. 'He gets up and leaves the same way he entered. The nurse injects you with something and the world darkens as you fade off once again...'
  808. act '(fade out)':gt 'experiment', 'testarea:treatment:bed'
  809. end
  810. if $ARGS[0] = 'testarea:start:treatmentStart:wakeup:virgin1':
  811. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc2.jpg"></center>'
  812. *nl
  813. 'You must have faded out again... You are slowly regaining consciousness, feeling cold and confused.'
  814. 'Someone is standing above you, it''s one of the doctors..'
  815. '<<$doc2>>: "Nurse, give her 2 ml, I want to speak to her."'
  816. 'The nurse quickly comes over and injects you with some drug. Several seconds later you can feel your body return back to normal...'
  817. if virg = 2:'<<$doc2>>: "So my little test subject, an examination has confirmed that you lied to us and that you ARE a virgin!"'
  818. if virg = 1:'<<$doc2>>: "So my little test subject, an examination has confirmed that you are a virgin after all."'
  819. 'You take a while to catch up with your situation..'
  820. '"Of course I am! I am a decent girl! Let me go!" you are almost surprised that you are able to speak again.'
  821. '<<$doc2>>: "Oh no, you have signed up for this, you have to go through it now. Tell me <<$pcs_firstname>>, how did you imagine your first time would be?"'
  822. '"There''s no way I would tell you that!" you defiantly answer.'
  823. '<<$doc2>>: "In warm hands of your lover? With your boyfriend, first time for the both of you? With an older, experienced gentleman?"'
  824. '"I won''t tell, not YOU anyway!" you yell back.'
  825. '<<$doc2>>: "Well, whatever your ideas was, you can forget about it. I have arranged a special occasion for you."'
  826. act 'What occasion?':gt 'experiment', 'testarea:start:treatmentStart:wakeup:virgin2'
  827. end
  828. if $ARGS[0] = 'testarea:start:treatmentStart:wakeup:virgin2':
  829. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc2.jpg"></center>'
  830. '"What occasion?" you frightfully ask.'
  831. '<<$doc2>>: "Did I already mention that we also test for another experimental drug?"'
  832. '"Uhm... another drug?" you ask.'
  833. '<<$doc2>>: "Yes. A penis enlargement drug. It works fairly well, most of the times that is..."'
  834. '"And what does it have to do with me?" you ask the doctor.'
  835. '<<$doc2>>: "You should feel proud! I have picked out our most successful subject to be the one to deflower you."'
  836. '"Oh my god no, please no! It will hurt!" you plead with him.'
  837. '<<$doc2>>: "Yes it will. Jamal has so far more than doubled his initial size. He is 37 cm long and almost 25 cm in circumference.'
  838. 'An intense feeling of fear runs through your entire body, making you tremble...'
  839. act 'Why? Why are you doing this to me??':gt 'experiment', 'testarea:start:treatmentStart:wakeup:virgin3'
  840. end
  841. if $ARGS[0] = 'testarea:start:treatmentStart:wakeup:virgin3':
  842. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc2.jpg"></center>'
  843. 'Why? Why are you doing this to me?" you plead.'
  844. '<<$doc2>>: "Medical reasons..."'
  845. '"Liar! You are a sadist! A pervert!" you yell out.'
  846. '<<$doc2>>: "Maybe I am, maybe I am not. It makes no difference for you."'
  847. '"Go to hell!" you curse him...'
  848. '<<$doc2>>: "Concept of hell exists only for those who believe in it. For you, a living hell will come in a few minutes. Enjoy it miss <<$pcs_lastname>>, it is your first time after all."'
  849. *nl
  850. 'He turns away from you, slowly walking back towards where he came from. You shout at him, throwing both swears and pleas his way, but he leaves without another word or any reaction at all.'
  851. 'You are left to your fate, tied to a bed, helpless and vulnerable. The effect of the antidote seems to fade and you slowly start to feel tired, weak and sleepy...'
  852. act '(fade out again)':deflower = 1 & gt 'experiment', 'testarea:treatment:bed'
  853. end
  854. if $ARGS[0] = 'testarea:treatment:bed':
  855. minut += 5
  856. gs 'stat'
  857. '<center><h3>Experiment public room</h3></center>'
  858. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound2.jpg"></center>'
  859. 'You wake up bound to the medical bed, completely naked, with your legs are secured high behind your head.'
  860. '"This position is designed to prevent the sperm from pouring out, to support the impregnation process," the nurse explains.'
  861. if plugIn = 1:'<b>A cold, metal plug is stuffed securely inside your vagina, preventing the superfluous ejaculate to spur out of you.</b>'
  862. 'You try to respond but you can''t manage to say a word, your throat feeling dry and a bit sore. You struggle weakly against the straps holding you down before realizing the only thing you can do is move your head left or right.'
  863. 'Looking beside you, you see there are several more beds, most of them occupied by young girls secured in similar positions such as yourself.'
  864. 'Eventually you give up and relax against the bed as best you can. The only thing you are able to do now is helplessly await what happens, or try to sleep if you feel tired enough.'
  865. gs 'stat'
  866. ! custom vagina state
  867. if coitVagCount <= 2:
  868. if deflowered = 1:
  869. $vagState = 'recently deflowered'
  870. else
  871. $vagState = 'abused'
  872. end
  873. elseif coitVagCount >= 3 and coitVagCount <= 4:
  874. $vagState = 'battered'
  875. else
  876. $vagState = 'widely gaping'
  877. end
  878. if deflower = 1:
  879. act '(wait until something happens)':deflower = 0 & deflowered = 1 & gt 'experiment', 'testarea:treatment:deflower'
  880. else
  881. act '(wait until something happens)':gt 'experiment', 'testarea:treatment:bed:wait'
  882. act '(sleep)':gt 'experiment', 'testarea:treatment:bed:sleep'
  883. end
  884. end
  885. if $ARGS[0] = 'testarea:treatment:bed:sleep':
  886. if plugIn = 0:'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound3.jpg"></center>'
  887. if plugIn = 1:'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound5.jpg"></center>'
  888. *nl
  889. if pcs_sleep <= 50:
  890. 'Even in this uncomfortable position you manage to fall into an uneasy sleep.'
  891. minut += 240
  892. pcs_sleep += 65
  893. gs 'stat'
  894. else
  895. 'You try to fall asleep, but you are just not tired enough.'
  896. end
  897. act 'Continue':gt 'experiment', 'testarea:treatment:bed'
  898. end
  899. if $ARGS[0] = 'testarea:treatment:bed:wait':
  900. minut += rand (20, 60)
  901. gs 'stat'
  902. if plugIn = 0:'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound3.jpg"></center>'
  903. if plugIn = 1:'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound5.jpg"></center>'
  904. *nl
  905. 'As if you have anything else to do, you patiently wait until something happens.'
  906. if impreg = 1:
  907. act 'Wait':gt 'experiment', 'testarea:treatment:impreg:lead'
  908. else
  909. act 'Wait':gt 'experiment', 'testarea:treatment:bed:wait:event'
  910. end
  911. end
  912. if $ARGS[0] = 'testarea:treatment:impreg:lead':
  913. minut += 5
  914. gs 'stat'
  915. if plugIn = 0:'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound3.jpg"></center>'
  916. if plugIn = 1:'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound5.jpg"></center>'
  917. *nl
  918. 'You hear someone approaching your bed once again. You tremble at the thought which black male is going to pound your pussy again.'
  919. 'This time you''re in luck, it is one of the nurses, she unbinds your ankles, finally enabling you to retain a normal position.'
  920. 'A pain runs through your body as you''ve forgot about how it is to be in a normal position.'
  921. 'You don''t get much time to recover, "Follow me."'
  922. 'She leads you to a room, "Sit down and wait."'
  923. act 'Follow her':gt 'experiment', 'testarea:treatment:impreg'
  924. end
  925. if $ARGS[0] = 'testarea:treatment:bed:wait:event':
  926. minut += 5
  927. actionType = rand (1, 10)
  928. gs 'stat'
  929. ! fuck other girl
  930. if actionType >= 1 and actionType <= 3 and pcs_health >= 100 and pain['vaginal'] < 50:
  931. if plugIn = 0:'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound4.jpg"></center>'
  932. if plugIn = 1:'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound5.jpg"></center>'
  933. 'A naked black male with huge erect penis enters the room, followed by a nurse.'
  934. 'You tremble in fear... But you let out a sigh of relief as he passes your bed and goes to one of the other girls instead.'
  935. 'You turn your head and watch what is about to happen.'
  936. *nl
  937. 'He begins fucking the girl as is, bound and helpless, burying his phallus deeper with each stroke.'
  938. 'The girl screams, either in horror or pain... You can''t tell which one...'
  939. 'Not wanting to watch the onslaught you turn your head, shut your eyes and try to zone out the terrifying deed.'
  940. *nl
  941. 'When you open your eyes, no one else but the other bound girl is there...'
  942. act 'Continue':gt 'experiment', 'testarea:treatment:bed'
  943. ! fuck Sveta
  944. elseif actionType >= 4 and actionType <= 8 and pcs_health >= 100 and pain['vaginal'] < 50:
  945. coitVagCount += 1
  946. 'A naked black male with huge erect penis enters the room, followed by a nurse.'
  947. 'You tremble in fear... your worse fear might come true. He stops by your bed, hungrily observing your helpless body.'
  948. 'The nurse spats a large portion of lubricant on the brim of your vagina.'
  949. 'He climbs the bed, crouching above you. He grabs his giant, veiny cock, pointing it directly at the entry of your <b>'+$vagState+'</b> hole.'
  950. 'Your eyes widen at the moment he starts pushing inside of you...'
  951. *nl
  952. if coitVagCount = 1:
  953. '<i>Oh no, oh no, I don''t want him to put THAT THING inside of me!</i>'
  954. elseif coitVagCount >= 2 and coitVagCount <= 3:
  955. '<i>No, not again, please!!!</i>'
  956. elseif coitVagCount >= 4 and coitVagCount <= 5:
  957. '<i>I''m already so full of cum... there is no space anymore!</i>'
  958. else
  959. '<i>More...dick...more...cum...</i>'
  960. end
  961. act 'Continue':gt 'experiment', 'testarea:treatment:sex1'
  962. ! status check by nurse
  963. else
  964. cumPlugCheck += 1
  965. if pcs_health < 100:
  966. pcs_health += 150
  967. else
  968. pcs_health += 30
  969. end
  970. pcs_hydra += 100
  971. pcs_energy += 100
  972. pcs_mood += 50
  973. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
  974. *nl
  975. 'A nurse comes in, and heads directly towards your bed.'
  976. *nl
  977. if cumPlugCheck = 1:
  978. 'She stops in front of you and takes a small sample of blood, checks your health and insemination status.'
  979. *nl
  980. elseif cumPlugCheck >= 2:
  981. 'Once again she stops in front of you and takes a small sample of blood, checks your health and insemination status.'
  982. *nl
  983. elseif cumPlugCheck >= 4:
  984. 'By now you already know the process, the nurse takes a small sample of blood, checks your health and insemination status.'
  985. end
  986. if pain['vaginal'] > 30:
  987. 'She gives you something against the vaginal pain.'
  988. pain['vaginal'] -= rand(9,18)
  989. end
  990. gs 'stat'
  991. if plugIn = 1:
  992. if coitVagCount >= 6 and refusal = 0:
  993. *nl
  994. 'The nurse pulls the plug out of your pussy, "Hmm, yes, it is time."'
  995. '<i>Time for what??</i> you think to yourself, still unable to speak.'
  996. 'The nurse leaves. Your pussy, finally unplugged after long hours and '+coitVagCount+' voluminous doses of cum, starts dripping clots of white sticky juice.'
  997. act 'Continue':gt 'experiment', 'testarea:treatment:bed:doctor1'
  998. else
  999. if pregchem > 30:
  1000. pregTalkPC = 1
  1001. impreg = 1
  1002. *nl
  1003. '"Very well you little cum bucket, you have finally managed to finish the impregnation process. You will proceed to the final stage in a short time." the doctor tells you.'
  1004. else
  1005. *nl
  1006. 'The nurse pulls the plug out of your pussy, "Hmm, it seems you''ll need a fresh dose of sperm soon. The old one has been almost absorbed."'
  1007. 'With these words she rams the plug back in.'
  1008. if cycle <= 1 or cycle > 2 and fertEgg = 0 and pregchem = 0:
  1009. lastovulation = daystart
  1010. cycle = 2
  1011. ovulate = 24+rand(24,48)
  1012. EggRH = 320+rand(160, 320)
  1013. '"It seems you need a fresh dose of the ovulation drug." as she injects you with another dose.'
  1014. end
  1015. end
  1016. act 'Continue':gt 'experiment', 'testarea:treatment:bed'
  1017. end
  1018. else
  1019. act 'Continue':gt 'experiment', 'testarea:treatment:bed'
  1020. end
  1021. end
  1022. end
  1023. if $ARGS[0] = 'testarea:treatment:sex1':
  1024. imgRand = rand(1, 3)
  1025. '<center><img <<$set_imgh>> src="images\shared\sex\vag\miss\africanmis'+imgRand+'.jpg"></center>'
  1026. 'One of the men is setting himself into a position above you. He holds his giant cock in one hand, forcing it down... the grey tip, big as an apple, now touches the brim of your vagina, making you shake both in fear and expectation.'
  1027. 'The previously applied lube does its job as he lowers his entire body down, pushing the tip inside you.'
  1028. *nl
  1029. if coitVagCount = 1:'<i>Nonono..this can''t be true!</i>'
  1030. *nl
  1031. gs 'pain', 4, 'vaginal', 'stretch'
  1032. gs 'arousal', 'vaginal', 3, 'bound', 'sub', 'rough', 'humiliation'
  1033. gs 'stat'
  1034. act 'Continue':gt 'experiment', 'testarea:treatment:sex2'
  1035. end
  1036. if $ARGS[0] = 'testarea:treatment:sex2':
  1037. imgRand = rand(3, 7)
  1038. '<center><video autoplay loop src="images\shared\sex\vag\miss\africanmis'+imgRand+'.mp4"></video></center>'
  1039. 'The few first thrusts are enough for him to get comfortable. He is already burying his long black cock more than halfway down your aching vagina.'
  1040. if coitVagCount = 1:
  1041. '<i>Aaarghh... I''m being sodomized, please help! It hurts! If I could at least scream!</i>'
  1042. elseif coitVagCount >= 2 and coitVagCount <= 3:
  1043. '<i>Ouch... ouch... he is tearing me apart!!</i>'
  1044. elseif coitVagCount >= 4 and coitVagCount <= 5:
  1045. '<i>No no... not so deep please... not so dee... ouch!</i>'
  1046. else
  1047. '<i>Another..Ouch..hit..ouch..to my..ouch..cervix..ouch..</i>'
  1048. end
  1049. 'A relentless, beast-like pounding is what you have to endure. His stamina seems without limits, as he keeps the furious pace steady for what seems as long minutes...'
  1050. *nl
  1051. if coitVagCount >= 3:'The several doses of cum you have been pumped with whiles ago are still inside you. With his giant dick filling all of your insides, the cums squirts out of you with each thrust.'
  1052. *nl
  1053. gs 'pain', 4, 'vaginal', 'tear'
  1054. gs 'arousal', 'vaginal', 9, 'bound', 'sub', 'rough', 'humiliation'
  1055. gs 'arousal', 'end'
  1056. gs 'stat'
  1057. act 'Continue':gt 'experiment', 'testarea:treatment:sex3'
  1058. end
  1059. if $ARGS[0] = 'testarea:treatment:sex3':
  1060. imgRand = rand(1, 3)
  1061. '<center><video autoplay loop src="images\shared\sex\cum\vagcreampie\africancreampie'+imgRand+'.mp4"></video></center>'
  1062. 'Finally he reaches his orgasm, but not before he increases the pace even more.'
  1063. 'Your pussy already feels like on fire, your back hurts from his full weight falling down on your bound and exposed body.'
  1064. 'Buried all the way inside you, with the tip of his cock surely pushed all the way to your cervix, he ejaculates.'
  1065. 'Wave after wave a fresh dose of hot, thick sperm is pumped into you. It may be your imagination, but it seems as your belly is bulging more and more with each dose.'
  1066. 'There seems to be no end to his waves, he must have emptied his load at least ten times.'
  1067. if coitVagCount = 1:
  1068. '<i>...please don''t cum in me, please don''t cum in me, please don''t... oh no... ugh!</i>'
  1069. elseif coitVagCount >= 2 and coitVagCount <= 3:
  1070. 'Ugh... I can feel it gushing into my womb... is that even possible?<i></i>'
  1071. elseif coitVagCount >= 4 and coitVagCount <= 5:
  1072. '<i>Ugh... ugh... ugh... ugh... oh god, he has been cumming for like a minute in a row, stop already! ugh... ugh...</i>'
  1073. else
  1074. '<i>I... feel... so... full...</i>'
  1075. end
  1076. *nl
  1077. gs 'pain', 4, 'cervix', 'slam'
  1078. gs 'arousal', 'vaginal', 4, 'bound', 'sub', 'rough', 'humiliation'
  1079. gs 'arousal', 'end'
  1080. gs 'cum_call', '', 'Some african male', 0, '', 100000, 75
  1081. gs 'stat'
  1082. *nl
  1083. 'At last his ejaculation ends. He does not pull immediately out, instead he signals for the nurse. As she arrives, he finally pulls his sticky, cum covered cock out. And you don''t feel empty for too long...'
  1084. act 'Continue':gt 'experiment', 'testarea:treatment:plugIn'
  1085. end
  1086. if $ARGS[0] = 'testarea:treatment:deflower':
  1087. if experi_stage = 0:
  1088. minut += 2
  1089. gs 'stat'
  1090. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\africandeflowerer.jpg"></center>'
  1091. *nl
  1092. 'Waiting for some time, you hear some footsteps nearing you.'
  1093. 'Turning your head you see a black man, naked, with something tremendous hanging between his legs.'
  1094. 'You finally figure out what it is, his penis! With each step the giant, heavy device swings from side to side...'
  1095. 'You start to tremble again as the man is approaching you...'
  1096. act '(tremble in fear)':experi_stage = 1 & gt 'experiment', 'testarea:treatment:deflower'
  1097. elseif experi_stage = 1:
  1098. minut += 2
  1099. gs 'stat'
  1100. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound3.jpg"></center>'
  1101. *nl
  1102. 'You are still bound to your bed, both hands and legs secured behind your head.'
  1103. 'Your ass is lifted in the air, exposing your virgin holes to anyone who comes near the bed.'
  1104. 'One of the male participants approaches you, "Doctor said your pussy virgin is. I come to remove it."'
  1105. 'As he touches your ass cheeks, you begin to panic as it slowly dawns on you what is about to happen...'
  1106. 'He climbs your bed, stroking his giant, inhumanly enormous penis with his hands, making it thicker and harder, using a lot of lubricant.'
  1107. 'You have no choice but to watch him inflate his giant penis right above your head...'
  1108. act '(watch him)':experi_stage = 2 & gt 'experiment', 'testarea:treatment:deflower'
  1109. elseif experi_stage = 2:
  1110. '<center><video autoplay loop src="images\shared\sex\vag\miss\africanmis8.mp4"></video></center>'
  1111. *nl
  1112. 'Within few minutes his penis gets to its full size. The doctor was not exaggerating, it is huge and super thick!'
  1113. 'He lowers the phallus with his hands, pointing at the virgin membrane still present in your pure pussy...'
  1114. '"Prepare for my black cock white virgin whore. Now I go in." he whispers...'
  1115. 'With these words, he starts to push, penetrating your virgin pussy slowly but steadily, deflowering you in a brutal and painful way.'
  1116. 'If you could scream, you would... but thanks to the drugs you''re not able to make a single noise...'
  1117. *nl
  1118. gs 'arousal', 'vaginal', 5, 'bound', 'sub', 'rough', 'humiliation'
  1119. gs 'arousal', 'end'
  1120. gs 'pain', 10, 'vaginal', 'tear'
  1121. gs 'stat'
  1122. act '(endure)':experi_stage = 3 & gt 'experiment', 'testarea:treatment:deflower'
  1123. elseif experi_stage = 3:
  1124. '<center><video autoplay loop src="images\shared\sex\vag\miss\africanmis9.mp4"></video></center>'
  1125. *nl
  1126. 'As he goes deeper and deeper, a stream of blood starts pouring out of your deflowered pussy...'
  1127. 'Yet he does not mind, his only aim is to penetrate you as deep as possible, using his superior strength.'
  1128. '"White whore have nice small pussy. Now I go deep more." he says as he pushes in even further...'
  1129. 'You''re barely able to take it, you''re fully stretched and it feels like he''s entered your stomach...'
  1130. 'Finally he stops thrusting in what you think will offer some respite, but to your dismay the man instead starts pounding you. It is even worse than before... His pace is fast and his strokes are still very deep...'
  1131. 'His pace is furious, it seems he has to fuck intensively to reach an orgasm.'
  1132. 'You have no choice but to endure it until the end...'
  1133. *nl
  1134. gs 'arousal', 'vaginal', 15, 'bound', 'sub', 'rough', 'humiliation'
  1135. gs 'arousal', 'end'
  1136. gs 'pain', 4, 'vaginal', 'stretch'
  1137. gs 'stat'
  1138. act '(endure)':experi_stage = 4 & gt 'experiment', 'testarea:treatment:deflower'
  1139. elseif experi_stage = 4:
  1140. '<center><video autoplay loop src="images\shared\sex\cum\vagcreampie\africancreampie4.mp4"></video></center>'
  1141. *nl
  1142. 'Finally he starts to grunt, he''s reaching the edge...'
  1143. '"White whore now will get reward, lot cum." he lets out between his grunts.'
  1144. 'His strokes get slower but more intensive, reaching your very cervix!'
  1145. 'Fortunately after several such painful strokes, he ejaculates!'
  1146. 'His 37 cm cock is buried almost all the way inside you, pumping his cum into you...'
  1147. *nl
  1148. gs 'pain', 6, 'cervix', 'slam'
  1149. gs 'arousal', 'vaginal', 5, 'bound', 'sub', 'rough', 'humiliation'
  1150. gs 'arousal', 'end'
  1151. gs 'cum_call', '', 'Some african male', 0, '', 100000, 75
  1152. gs 'stat'
  1153. *nl
  1154. act '(endure)':experi_stage = 5 & gt 'experiment', 'testarea:treatment:deflower'
  1155. elseif experi_stage = 5:
  1156. minut += 5
  1157. gs 'stat'
  1158. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\africandeflowerer.jpg"></center>'
  1159. *nl
  1160. 'As he finishes, he pulls out his cock from your battered, deflowered vagina.'
  1161. 'A stream of cum mixed with blood pours out of it...'
  1162. 'He stands beside your bed, looking first at your gaping, leaking pussy... than turns his gaze towards your face...'
  1163. '"White whore now big girl is. See you soon, we fuck more will." with that he leaves you as you are...'
  1164. 'Still bound and helpless, you fade out again. Who knows, if it''s from the drugs or the terrible experience...'
  1165. act '(fade out again)':experi_stage = 0 & gt 'experiment', 'testarea:treatment:bed'
  1166. end
  1167. end
  1168. if $ARGS[0] = 'testarea:treatment:plugIn':
  1169. gs 'arousal', 'vaginal_dildo', 2, 'bound', 'sub', 'rough', 'humiliation'
  1170. gs 'arousal', 'end'
  1171. gs 'stat'
  1172. plugIn = 1
  1173. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\pussyplug.jpg"></center>'
  1174. *nl
  1175. 'Right after he pulls out his giant cock, the nurse grabs hold of a big, round plug and shoves it down your cum-filled hole.'
  1176. 'She manages it so quickly that almost no cum manages to slop out.'
  1177. 'Without a word she leaves you as you are, plugged like some kind of cattle...'
  1178. act 'Continue':gt 'experiment', 'testarea:treatment:bed'
  1179. end
  1180. if $ARGS[0] = 'testarea:treatment:bed:doctor1':
  1181. minut += 5
  1182. gs 'stat'
  1183. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc2.jpg"></center>'
  1184. *nl
  1185. 'After few minutes the nurse gets back, followed by one of the doctors you have seen during the initial ''test''.'
  1186. '<<$doc2>>: "Hello miss <<$pcs_lastname>>. The nurse here has informed me that you''ve made some progress."'
  1187. 'The doctor is observing you, as if he''s trying to figure out what''s on your mind...'
  1188. 'Your eyes widen as your mind drifts toward the worst case scenario...'
  1189. '<<$doc2>>: "Nurse, give her a dose, I want to speak to her."'
  1190. 'The nurse empties an already prepared injection to your arm.'
  1191. 'You can slowly feel as if your body turns once again to your own control.'
  1192. '"Uhm... uhm... I... I... can... speak?" you manage to whimper.'
  1193. '<<$doc2>>: "Yes miss <<$pcs_lastname>>, we have given you an antidote. It is now up to you if you will get back to that vegetative state, or if you will cooperate and retain your full consciousness."'
  1194. act 'Up to me?':gt 'experiment', 'testarea:treatment:bed:doctor2'
  1195. end
  1196. if $ARGS[0] = 'testarea:treatment:bed:doctor2':
  1197. minut += 3
  1198. gs 'stat'
  1199. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc2.jpg"></center>'
  1200. *nl
  1201. '<<$doc2>>: "Yes miss <<$pcs_lastname>>, you have shown a great ability to experience an over-sized member. Your sperm absorption ability is also above average."'
  1202. '"That... is... good... I guess?" you frightfully ask...'
  1203. '<<$doc2>>: "It is. We would like to extent an offer not every subject here gets."'
  1204. '"An offer? You will let me go? Really? I need to... I want to, please!" you eagerly say.'
  1205. '<<$doc2>>: "No, we definitely don''t want to let you go. You are legally bound to finish this treatment, you have no say in that."'
  1206. '"But..." you start to sob as the sudden glimpse of hope gets crushed again.'
  1207. '<<$doc2>>: "But you have SOME choice. To remain half awake, bound to a bed like an animal and be used like an animal."'
  1208. '"...or?" you raise your eyes to meet his.'
  1209. '<<$doc2>>: "Or you can continue under more, let''s say, cooperative conditions."'
  1210. act 'That means what?':gt 'experiment', 'testarea:treatment:bed:doctor3'
  1211. end
  1212. if $ARGS[0] = 'testarea:treatment:bed:doctor3':
  1213. minut += 3
  1214. gs 'stat'
  1215. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc2.jpg"></center>'
  1216. *nl
  1217. '<<$doc2>>: "It means that for the remainder of the experiment, you will be provided with a private room, regular nutritions and hygienically equipment."'
  1218. 'You''re a bit surprised by that offer, "That sounds good... a little too good..."'
  1219. '<<$doc2>>: "Indeed. However you will have to fully cooperate in all matters."'
  1220. '"Which are?" you ask.'
  1221. '<<$doc2>>: "Well, the ones you are already familiar with. You will still be inseminated regularly until you get impregnated. You will also be used by our top subjects."'
  1222. '"Top subjects?" you curiously ask.'
  1223. '<<$doc2>>: "Few of our first subjects, african males, who have been subjected to the Penis over-sizement project and members of the male fertility project for the longest time."'
  1224. 'He looks down on you, still bound with your ass higher than your head. It is probably the weirdest style of conversation you could ever think of.'
  1225. 'Still awaiting your answer the doctor grows impatient, "You are a bit slow, aren''t you? Well let me translate it so a slut can understand. You will have all the comfort, but you will also be fucked by males with the largest cocks ever seen, size of a horse, who ejaculate as much as a horse. You will have to do it willingly. They will use you any way they want. Those are the conditions. Yes or no?"'
  1226. act 'I accept':gt 'experiment', 'testarea:treatment:bed:doctor5'
  1227. act 'I refuse':gt 'experiment', 'testarea:treatment:bed:doctor4'
  1228. end
  1229. if $ARGS[0] = 'testarea:treatment:bed:doctor4':
  1230. minut += 3
  1231. refusal = 1
  1232. gs 'stat'
  1233. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc2.jpg"></center>'
  1234. *nl
  1235. '<<$doc2>>: Well, that''s disappointing, not at all what I hoped for, but it''s your choice. Nurse, do what you have to do. Goodbye miss <<$pcs_lastname>>. And enjoy..."'
  1236. act 'Return to a vegetative state...':gt 'experiment', 'testarea:treatment:bed'
  1237. end
  1238. if $ARGS[0] = 'testarea:treatment:bed:doctor5':
  1239. minut += 3
  1240. gs 'stat'
  1241. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc2.jpg"></center>'
  1242. *nl
  1243. '<<$doc2>>: "Very good! Nurse, untie her and lead her to her new room. Goodbye miss <<$pcs_lastname>>. And enjoy..."'
  1244. act 'Continue':gt 'experiment', 'testarea:treatment:room'
  1245. end
  1246. if $ARGS[0] = 'testarea:treatment:room':
  1247. minut += 1
  1248. gs 'stat'
  1249. $metka = 'testarea:treatment:room'
  1250. '<center><h3>Experiment private room</h3></center>'
  1251. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\room.jpg"></center>'
  1252. *nl
  1253. 'The room you are locked in is not a big one, but has all what you might need. Everything is however somehow adjusted to provide for more or less violent sexual acts.'
  1254. 'The bed has arm and leg cuffs. A hook is hanging from the ceiling. A large box in the far corner is locked by a code lock, you can only guess what''s inside.'
  1255. 'What strikes fear in your heart is a first aid kit on one of the walls, what just might happen here is so terrible that a first aid kit would be needed...'
  1256. 'The <a href="exec:gt ''experiment'', ''testarea:treatment:room:shower''">bathroom</a> has, in addition to regular equipment, also an enema kit.'
  1257. 'The exit door has a safety glass window. You are able to leave the room, but the only way you can go is the <a href="exec:gt ''experiment'', ''testarea:treatment:room:social''">social room</a>. All the other doors are securely locked.'
  1258. act 'Wait for some time':gt 'experiment', 'testarea:treatment:room:wait'
  1259. act 'Go to the bathroom':gt 'experiment', 'testarea:treatment:room:shower'
  1260. act 'Eat hospital meal (0:20)':
  1261. cla
  1262. *clr
  1263. minut += 20
  1264. pranik -= 1
  1265. pcs_health += 30
  1266. pcs_manna += 100
  1267. pcs_energy += 50
  1268. water -= 25
  1269. cumspclnt = 2
  1270. gs 'cum_cleanup'
  1271. fbreath = 0
  1272. fat += 4
  1273. frost = 0
  1274. gs 'stat'
  1275. '<center><img src="images\locations\shared\clinic\experiment\meal.jpg"></center>'
  1276. 'You ate a pretty stale hospital meal...'
  1277. act 'Get back':gt 'experiment', 'testarea:treatment:room'
  1278. end
  1279. act 'Drink some water (0:05)':gs 'beverage', 'bev_wat'
  1280. if pcs_sleep < 50:
  1281. act 'Go to sleep':gt 'experiment', 'testarea:treatment:room:sleep'
  1282. end
  1283. act 'Go to social room':gt 'experiment', 'testarea:treatment:room:social'
  1284. end
  1285. if $ARGS[0] = 'testarea:treatment:room:sleep':
  1286. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\sleep.jpg"></center>'
  1287. *nl
  1288. 'You fall asleep on the bed, barely covered by the sheets...'
  1289. pcs_hairbsh = 0
  1290. cloth_vid = 0
  1291. pain['killer'] = 0
  1292. if fat > 5 and stringimplant = 1:silicone += 1 & fat -= 5
  1293. minut += 240
  1294. pcs_sleep += 65
  1295. gs 'dreams', 'start'
  1296. gs 'stat'
  1297. act 'Wake up':gt 'experiment', 'testarea:treatment:room'
  1298. end
  1299. if $ARGS[0] = 'testarea:treatment:room:shower':
  1300. $locM = 'experiment'
  1301. $metkaM = 'testarea:treatment:room:shower'
  1302. $metka = 'testarea:treatment:room:shower'
  1303. '<center><h3>Experiment private - bathroom</h3></center>'
  1304. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\roomshower.jpg"></center>'
  1305. *nl
  1306. 'The bathroom has a small, hospital-like shower, a toilet, some clean razors, an enema kit and a sink with <a href="exec:gt ''mirror'',''start''">mirror</a>.'
  1307. if klisma = 0: klisma = 1 & klisma_borrowed = 1
  1308. if stanok > 0 and stanok_storage = 0: stanok_storage = stanok
  1309. stanok = 2
  1310. dynamic $shower
  1311. dynamic $brit
  1312. dynamic $enema
  1313. dynamic $tampon
  1314. dynamic $basin
  1315. gs 'stat'
  1316. act 'Go back':
  1317. if klisma_borrowed = 1: klisma = 0 & klisma_borrowed = 0
  1318. stanok = 0
  1319. if stanok_storage > 0:
  1320. stanok = stanok_storage
  1321. stanok_storage = 0
  1322. end
  1323. gt 'experiment', 'testarea:treatment:room'
  1324. end
  1325. end
  1326. if $ARGS[0] = 'testarea:treatment:room:wait':
  1327. waitTime = rand (20, 60)
  1328. minut += waitTime
  1329. gs 'stat'
  1330. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\roomwaiting.jpg"></center>'
  1331. *nl
  1332. 'As if you have anything else to do, you patiently wait until something happens.'
  1333. if impreg = 1:
  1334. act 'Wait':gt 'experiment', 'testarea:treatment:impreg'
  1335. elseif expVolunteerExam = 0:
  1336. expVolunteerExam = 1
  1337. act 'Wait':gt 'experiment', 'testarea:treatment:room:event:nurse:check'
  1338. else
  1339. act 'Wait':gt 'experiment', 'testarea:treatment:room:event'
  1340. end
  1341. end
  1342. if $ARGS[0] = 'testarea:treatment:room:social':
  1343. minut += 10
  1344. $metka = 'testarea:treatment:room:social'
  1345. G1R = rand (0, 100)
  1346. if G1R <= 30:
  1347. G1 = 1
  1348. else
  1349. G1 = 0
  1350. end
  1351. G2R = rand (0, 100)
  1352. if G2R <= 30:
  1353. G2 = 1
  1354. else
  1355. G2 = 0
  1356. end
  1357. G3R = rand (0, 100)
  1358. if G3R <= 30:
  1359. G3 = 1
  1360. else
  1361. G3 = 0
  1362. end
  1363. mateR = rand (0, 100)
  1364. soundR = rand (0, 100)
  1365. gs 'stat'
  1366. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\roomsocial.jpg"></center>'
  1367. *nl
  1368. 'The room has no windows. There are several sofas, a bookcase with some old books, a few used table games that are placed bellow the conference table.'
  1369. *nl
  1370. if G1 = 0 and G2 = 0 and G3 = 0:
  1371. waitTime = rand (30, 60)
  1372. 'You are currently alone in the room.'
  1373. else
  1374. if G1 = 1:'A young, <a href="exec:gt ''experiment'', ''testarea:treatment:room:social:girls:G1''">blonde girl</a> is sitting on one of the couches.'
  1375. if G2 = 1:'A thin, <a href="exec:gt ''experiment'', ''testarea:treatment:room:social:girls:G2''">brunette girl</a> is leaning by the wall.'
  1376. if G3 = 1:'A mature, <a href="exec:gt ''experiment'', ''testarea:treatment:room:social:girls:G3''">dark haired woman</a> is reading a book.'
  1377. end
  1378. *nl
  1379. if soundR <= 20:
  1380. 'A loud wetly pattering sound can be heard, coming from one of the rooms, along with male grunts and female moaning...'
  1381. elseif soundR > 20 and soundR <= 40:
  1382. 'A rhythmic painful female screams resonate through the hallway, along with harsh male grunts...'
  1383. elseif soundR > 40 and soundR <= 60:
  1384. 'A quiet yet noticeable sobbing of some girl can be heard through the silent hallway...'
  1385. elseif soundR > 60 and soundR <= 80:
  1386. 'A period sound of whip landing on a skin resonates through the hallway, along with female sobbing...'
  1387. else
  1388. 'A rare silence wanders through the hallways...'
  1389. end
  1390. *nl
  1391. gs 'exercise', 'start'
  1392. fuckCh = rand (0, 100)
  1393. if fuckCh <= 30:
  1394. act 'Spend some time reading':
  1395. cls
  1396. gs 'stat'
  1397. '<center><img <<$set_imgh>> src="images/shared/accessories/books/book.jpg"></center>'
  1398. if pcs_nerd > 0:
  1399. lastread = totminut
  1400. lastreadday = daystart
  1401. pcs_nerd += 1
  1402. blizoruk += 1
  1403. end
  1404. if rand(0,1) = 0:
  1405. makupskl_exp += 1
  1406. 'The book is really girly and mostly centres around what the characters wear and how they get ready to go out.'
  1407. 'You do pick up a few make up tips but its not mentally stimulating.'
  1408. else
  1409. if pcs_sewng <= 100: sewng_exp += rand(1,3)
  1410. 'The book is about an older lady solving a murder. For the most part its exciting.'
  1411. 'The slower parts have her sewing and it goes into more detail than it needs to, you do learn a little though.'
  1412. end
  1413. pcs_mood += 10
  1414. minut += waitTime
  1415. 'While you are reading, all of a sudden a strong hand grabs you by the neck.'
  1416. act 'Stop reading': gt 'experiment', 'testarea:treatment:room:social:gofuck'
  1417. end
  1418. else
  1419. act 'Spend some time reading':
  1420. cls
  1421. gs 'stat'
  1422. '<center><img <<$set_imgh>> src="images/shared/accessories/books/book.jpg"></center>'
  1423. if pcs_nerd > 0:
  1424. lastread = totminut
  1425. lastreadday = daystart
  1426. pcs_nerd += 1
  1427. blizoruk += 1
  1428. end
  1429. if rand(0,1) = 0:
  1430. makupskl_exp += 1
  1431. 'The book is really girly and mostly centres around what the characters wear and how they get ready to go out.'
  1432. 'You do pick up a few make up tips but its not mentally stimulating.'
  1433. else
  1434. if pcs_sewng <= 100: sewng_exp += rand(1,3)
  1435. 'The book is about an older lady solving a murder. For the most part its exciting.'
  1436. 'The slower parts have her sewing and it goes into more detail than it needs to, you do learn a little though.'
  1437. end
  1438. pcs_mood += 10
  1439. minut += waitTime
  1440. gt 'experiment', 'testarea:treatment:room:social'
  1441. end
  1442. end
  1443. act 'Go back to your room':gt 'experiment', 'testarea:treatment:room'
  1444. end
  1445. if $ARGS[0] = 'testarea:treatment:room:social:gofuck':
  1446. '"White whore stop reading! Too much cum in balls I have, I need to empty them!" you hear a deep voice say.'
  1447. *nl
  1448. 'One of the men approached you directly in the social room! You have no choice but to submit to him... like some kind of pet.'
  1449. 'He leads you to your room, throwing you down between the bedsheets...'
  1450. coitusType = rand (0,16)
  1451. act 'Continue':gt 'experiment', 'testarea:treatment:room:event:sex'
  1452. end
  1453. if $ARGS[0] = 'testarea:treatment:room:social:girls:G1':
  1454. minut += 2
  1455. gs 'stat'
  1456. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g1.jpg"></center>'
  1457. *nl
  1458. 'A petite young girl, she must''ve just turned eighteen. She is obviously in a bad mood, keeping to herself.'
  1459. act 'Talk to her':gt 'experiment', 'testarea:treatment:room:social:girls:G1:talk'
  1460. act 'Go back':gt 'experiment', 'testarea:treatment:room:social'
  1461. end
  1462. if $ARGS[0] = 'testarea:treatment:room:social:girls:G1:talk':
  1463. $subloc = 'testarea:treatment:room:social:girls:G1:talk:question'
  1464. minut += 3
  1465. gs 'stat'
  1466. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g1.jpg"></center>'
  1467. *nl
  1468. 'As you approach her, she looks up at you with a saddened look.'
  1469. act 'Why are you so sad?':G1Q = 1 & gt 'experiment', $subloc
  1470. act 'Why did you join this experiment?':G1Q = 2 & gt 'experiment', $subloc
  1471. act 'What will you do once you finish the experiment?':G1Q = 3 & gt 'experiment', $subloc
  1472. act 'You don''t mind the way we are treated by the men?':G1Q = 4 & gt 'experiment', $subloc
  1473. act 'Leave her be':gt 'experiment', 'testarea:treatment:room:social'
  1474. end
  1475. if $ARGS[0] = 'testarea:treatment:room:social:girls:G1:talk:question':
  1476. minut += 5
  1477. gs 'stat'
  1478. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g1.jpg"></center>'
  1479. *nl
  1480. if G1Q = 1:
  1481. '"Why are you so sad?" you ask.'
  1482. '"I have been tricked into joining this experiment! How could I be not sad?" she responds.'
  1483. elseif G1Q = 2:
  1484. '"Why did you join this experiment?" you ask.'
  1485. '"For money! Only for the stupid money! I was so desperate when I ran away from home and my boyfriend kicked me out from his apartment. I had nowhere to go, no money for food... But this, this is worse than living under the bridge! What will I do afterwards? I will receive 50.000 <b>₽</b> but also a baby in my belly..." she responds.'
  1486. elseif G1Q = 3:
  1487. '"What will you do once you finish the experiment?" you ask.'
  1488. '"Well, I will be pregnant, that''s for sure. But... But I don''t really know. I was sure I was going to do an abortion but... It''s a tiny life inside you, you know? Would you kill it?" she replies.'
  1489. elseif G1Q = 4:
  1490. '"You don''t mind the way we are treated by the men?" you ask.'
  1491. '"Of course I do mind! I hate it! I was a virgin when I signed up for this hell... They... they deflowered me. The biggest man did it. He tore me... They had to stitch me up... It hurts every time... I guess I am too tight, too small, for a regular men, even more for those drugged over-sized beasts!" she replies with tears in her eyes.'
  1492. end
  1493. act 'Continue':gt 'experiment', 'testarea:treatment:room:social:girls:G1:talk'
  1494. end
  1495. if $ARGS[0] = 'testarea:treatment:room:social:girls:G2':
  1496. minut += 2
  1497. gs 'stat'
  1498. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g2.jpg"></center>'
  1499. *nl
  1500. 'A thin but lively girl. She is observing everyone else in the room, probably looking for a distraction from the usual boredom.'
  1501. act 'Talk to her':gt 'experiment', 'testarea:treatment:room:social:girls:G2:talk'
  1502. act 'Go back':gt 'experiment', 'testarea:treatment:room:social'
  1503. end
  1504. if $ARGS[0] = 'testarea:treatment:room:social:girls:G2:talk':
  1505. minut += 3
  1506. gs 'stat'
  1507. $subloc = 'testarea:treatment:room:social:girls:G2:talk:question'
  1508. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g2.jpg"></center>'
  1509. *nl
  1510. 'As you approach her, her face brightens as she gets some attention.'
  1511. act 'How can you be in such a good mood?':G2Q = 1 & gt 'experiment', $subloc
  1512. act 'Why did you join this experiment?':G2Q = 2 & gt 'experiment', $subloc
  1513. act 'What will you do once you finish the experiment?':G2Q = 3 & gt 'experiment', $subloc
  1514. act 'You don''t mind the way we are treated by the men?':G2Q = 4 & gt 'experiment', $subloc
  1515. act 'Leave her be':gt 'experiment', 'testarea:treatment:room:social'
  1516. end
  1517. if $ARGS[0] = 'testarea:treatment:room:social:girls:G2:talk:question':
  1518. minut += 5
  1519. gs 'stat'
  1520. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g2.jpg"></center>'
  1521. *nl
  1522. if G2Q = 1:
  1523. '"How can you have such a good mood?" you ask.'
  1524. '"Why wouldn''t I? It is so much fun in here. Where else would you get so many orgasms? And those giant dicks! I love them!" she replies.'
  1525. elseif G2Q = 2:
  1526. '"Why did you join this experiment?" you ask.'
  1527. 'First I was attracted by the money. But when I heard what is it about, I didn''t wait a second! I love fucking black men! There are so few of them in Russia, but here.. it''s like a fairytale!'
  1528. elseif G2Q = 3:
  1529. '"What will you do once you finish the experiment?" you ask.'
  1530. '"I''ll be pregnant! I hope they will keep me around for some time at least. You can safely have sex almost until the end of the pregnancy, did you know that?" she happily replies.'
  1531. elseif G2Q = 4:
  1532. '"You don''t mind the way we are treated by the men?" you ask.'
  1533. '"I love it! It is true their cocks are big and it hurts sometimes, but those orgasms I get! It is the reason I am here!" she eagerly replies.'
  1534. end
  1535. act 'Continue':gt 'experiment', 'testarea:treatment:room:social:girls:G2:talk'
  1536. end
  1537. if $ARGS[0] = 'testarea:treatment:room:social:girls:G3':
  1538. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g3.jpg"></center>'
  1539. *nl
  1540. 'A mature but fairly attractive woman in her late thirties. She is minding her own, reading a book.'
  1541. act 'Talk to her':gt 'experiment', 'testarea:treatment:room:social:girls:G3:talk'
  1542. act 'Go back':gt 'experiment', 'testarea:treatment:room:social'
  1543. end
  1544. if $ARGS[0] = 'testarea:treatment:room:social:girls:G3:talk':
  1545. minut += 3
  1546. gs 'stat'
  1547. $subloc = 'testarea:treatment:room:social:girls:G3:talk:question'
  1548. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g3.jpg"></center>'
  1549. *nl
  1550. 'As you approach her, she lifts her sight from the book, looking at you haughtily.'
  1551. act 'Why are you not talking to anyone?':G3Q = 1 & gt 'experiment', $subloc
  1552. act 'Why did you join this experiment?':G3Q = 2 & gt 'experiment', $subloc
  1553. act 'What will you do once you finish the experiment?':G3Q = 3 & gt 'experiment', $subloc
  1554. act 'You don''t mind the way we are treated by the men?':G3Q = 4 & gt 'experiment', $subloc
  1555. act 'Leave her be':gt 'experiment', 'testarea:treatment:room:social'
  1556. end
  1557. if $ARGS[0] = 'testarea:treatment:room:social:girls:G3:talk:question':
  1558. minut += 5
  1559. gs 'stat'
  1560. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g3.jpg"></center>'
  1561. *nl
  1562. if G3Q = 1:
  1563. '"Why are you not talking to anyone?" you ask.'
  1564. '"Why would I? It''s all you ungrateful youngsters whimpering about being tricked and all. You don''t appreciate the opportunity you have been given." she snarly answers.'
  1565. elseif G3Q = 2:
  1566. '"Why did you join this experiment?" you ask.'
  1567. '"A woman has to eat you know? I was working hard as a waitress but the money was tight, work was hard and everything sucked. Then I got this opportunity. I am here already for the fifth time." she answers.'
  1568. elseif G3Q = 3:
  1569. '"What will you do once you finish the experiment?" you ask.'
  1570. '"I''ll head directly to an abortion clinic. Then I will rest for a six weeks and then I will get back here." she answers.'
  1571. elseif G3Q = 4:
  1572. '"You don''t mind the way we are treated by the men?" you ask.'
  1573. '"As a waitress you live through a lot. I have done it for almost 15 years. It''s true some of them are rough but it is a walk through a rose garden compared to what the those crime bosses do to a lonely girl serving drinks." she answers.'
  1574. end
  1575. act 'Continue':gt 'experiment', 'testarea:treatment:room:social:girls:G3:talk'
  1576. end
  1577. if $ARGS[0] = 'testarea:treatment:room:event':
  1578. actionType = rand (1, 12)
  1579. ! SEX
  1580. if actionType >= 1 and actionType <= 6 and pain['asshole'] < 50 and pain['vagina'] < 50 and pcs_health >= 100:
  1581. type = rand(1, 3)
  1582. if type = 1:
  1583. $africanN = 'africanMaleDark'
  1584. africanMaleDarkC += 1
  1585. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\africanmaledark.jpg"></center>'
  1586. 'The door opens and a tall man enters your room. His skin is dark as the night''s sky. A huge, almost horse-like cock is heavily hanging between his legs.'
  1587. act 'Kneel down':gt 'experiment', 'testarea:treatment:room:event:positionKneel'
  1588. act 'Get in position to get fucked':gt 'experiment', 'testarea:treatment:room:event:positionDoggy'
  1589. act 'Lay back and let him have his way with you':gt 'experiment', 'testarea:treatment:room:event:positionVag'
  1590. act 'Beg him not to abuse you':gt 'experiment', 'testarea:treatment:room:event:beg'
  1591. act 'Resist him':gt 'experiment', 'testarea:treatment:room:event:resist'
  1592. if pcs_inhib =< 65: act 'Try to influence his choice of holes': gt 'experiment', 'testarea:treatment:room:event:seduce'
  1593. elseif type = 2:
  1594. $africanN = 'africanMaleMuscular'
  1595. africanMaleMuscularC += 1
  1596. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\africanmalemuscular.jpg"></center>'
  1597. 'You can hear the door open as a muscular man enters to your room.'
  1598. 'Afraid by his posture you have no other choice than to offer yourself to him...'
  1599. act 'Kneel down':gt 'experiment', 'testarea:treatment:room:event:positionKneel'
  1600. act 'Get in position to get fucked':gt 'experiment', 'testarea:treatment:room:event:positionDoggy'
  1601. act 'Lay back and let him have his way with you':gt 'experiment', 'testarea:treatment:room:event:positionVag'
  1602. act 'Beg him not to abuse you':gt 'experiment', 'testarea:treatment:room:event:beg'
  1603. if pcs_inhib =< 65: act 'Try to influence his choice of holes': gt 'experiment', 'testarea:treatment:room:event:seduce'
  1604. elseif type = 3:
  1605. $africanN = 'africanMaleFat'
  1606. africanMaleFatC += 1
  1607. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\africanmalefat.jpg"></center>'
  1608. 'A somewhat old and fat man enters your room, locking the door behind him. He is very hairy and smells terribly.'
  1609. *nl
  1610. if africanMaleFatC > 0:'<i>Oh god, not this one again! I hate him... he is so repugnant... and violent... please no... I... I just can''t...</i>'
  1611. panicCh = rand (0, 100)
  1612. if (africanMaleFatC > 0 and panicCh >= 50):act 'Do nothing and wait to see what happens':coitusType = rand (0,16) & gt 'experiment', 'testarea:treatment:room:event:sex'
  1613. act 'Beg him not to abuse you':gt 'experiment', 'testarea:treatment:room:event:beg'
  1614. act 'Resist him':gt 'experiment', 'testarea:treatment:room:event:resist'
  1615. end
  1616. ! NOTHING
  1617. elseif actionType >= 7 and actionType <= 10 and pain['asshole'] < 50 and pain['vagina'] < 50 and pcs_health >= 100:
  1618. 'You wait and wait, but it seems nothing is going to happen this time...'
  1619. act 'Continue':gt 'experiment', 'testarea:treatment:room'
  1620. ! NURSE
  1621. else
  1622. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
  1623. 'A nurse enters your room, looking at you very strictly, "Lay down, hands behind head, spread your legs wide and don''t move."'
  1624. act 'Do as told':gt 'experiment', 'testarea:treatment:room:event:nurse:check'
  1625. if nurseTalk = 0:act 'Try to talk to her':gt 'experiment', 'testarea:treatment:room:event:nurse:talkTry'
  1626. if nurseTalk = 1:act 'Talk to her':gt 'experiment', 'testarea:treatment:room:event:nurse:talk'
  1627. end
  1628. end
  1629. if $ARGS[0] = 'testarea:treatment:room:event:positionDoggy':
  1630. minut += 2
  1631. gs 'stat'
  1632. i = rand(1, 3)
  1633. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\positiondoggy'+i+'.jpg"></center>'
  1634. 'You position yourself to his liking, lifting your ass in the air, inviting his to do whatever he pleases...'
  1635. posR = rand(0, 5)
  1636. if posR < 5:pos = 1
  1637. if posR = 5:pos = 12
  1638. act 'Close your eyes and wait':coitusType = pos & gt 'experiment', 'testarea:treatment:room:event:sex'
  1639. end
  1640. if $ARGS[0] = 'testarea:treatment:room:event:positionVag':
  1641. minut += 2
  1642. gs 'stat'
  1643. i = rand(1, 3)
  1644. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\positionvag'+i+'.jpg"></center>'
  1645. 'You position yourself to his liking, lifting your ass in the air, inviting him to do whatever he pleases...'
  1646. posR = rand(0, 5)
  1647. if posR < 5:pos = 6
  1648. if posR = 5:pos = 13
  1649. act 'Signal him you want him in your pussy':coitusType = pos & gt 'experiment', 'testarea:treatment:room:event:sex'
  1650. end
  1651. if $ARGS[0] = 'testarea:treatment:room:event:positionKneel':
  1652. minut += 2
  1653. gs 'stat'
  1654. i = rand(1, 3)
  1655. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\positionkneel'+i+'.jpg"></center>'
  1656. 'Kneeling down before him you shut your eyes, awaiting what he is going to do to you...'
  1657. posR = rand(0, 6)
  1658. if posR < 5:pos = 2
  1659. if posR = 5:pos = 14
  1660. if posR = 6:pos = 15
  1661. act 'Kneel down':coitusType = pos & gt 'experiment', 'testarea:treatment:room:event:sex'
  1662. end
  1663. if $ARGS[0] = 'testarea:treatment:room:event:seduce':
  1664. minut += 2
  1665. gs 'stat'
  1666. i = rand(1, 3)
  1667. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\positionvag'+i+'.jpg"></center>'
  1668. 'You try to seduce him into knocking you up. You are here to get pregnant, the sooner you are knocked up, the sooner you get to leave and enjoy the hefty payment.'
  1669. 'You spread you legs and show him your pussy.'
  1670. '"Come and breed me. Put your babies in me." you try to convince him.'
  1671. if pcs_apprnc => 80:
  1672. posR = rand(1,3)
  1673. if posR = 1:pos = 0
  1674. if posR = 2:pos = 3
  1675. if posR = 3:pos = 6
  1676. else
  1677. posR = rand(0, 5)
  1678. if posR < 5:pos = 6
  1679. if posR = 5:pos = 13
  1680. end
  1681. act 'Close your eyes and wait':coitusType = pos & gt 'experiment', 'testarea:treatment:room:event:sex'
  1682. end
  1683. if $ARGS[0] = 'testarea:treatment:room:event:beg':
  1684. minut += 2
  1685. gs 'stat'
  1686. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\beg.jpg"></center>'
  1687. 'You beg him to not abuse anymore... you are very sore!'
  1688. 'But your begging seems to has no effect on him... on the contrary!'
  1689. posR = rand(1, 2)
  1690. if posR = 1:pos = 15
  1691. if posR = 2:pos = 16
  1692. act 'Beg':coitusType = pos & gt 'experiment', 'testarea:treatment:room:event:sex'
  1693. end
  1694. if $ARGS[0] = 'testarea:treatment:room:event:resist':
  1695. minut += 2
  1696. gs 'stat'
  1697. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\resist.jpg"></center>'
  1698. *nl
  1699. 'You start hitting his chest as he''s grabbing your hair.'
  1700. 'There is no chance against his superior strength...'
  1701. act 'Resist him':coitusType = 16 & gt 'experiment', 'testarea:treatment:room:event:sex'
  1702. end
  1703. if $ARGS[0] = 'testarea:treatment:room:event:sex':
  1704. gs 'stat'
  1705. ! COITUS: vaginal doggy, 1v1
  1706. if coitusType >= 0 and coitusType < 3:
  1707. imgRand = rand(1, 5)
  1708. '<center><video autoplay loop src="images\shared\sex\vag\doggy\africandoggy'+imgRand+'.mp4"></video></center>'
  1709. 'Holding you by your neck, he pushes you on the bed, lifting your hips with his strong hands.'
  1710. 'Having your ass up you brace for the entry of his giant cock.'
  1711. 'It hurts, but at least your pussy is still lubed from the last fuck, so it is not as bad as it could be. Yet his cock is so thick that the whole time you feel your pussy stretching to its limits.'
  1712. 'After several minutes he increases his pace, climaxing in long and voluminous ejaculation into your insides.'
  1713. gs 'pain', 4, 'vaginal', 'tear'
  1714. gs 'arousal', 'vaginal', 20, 'sub', 'rough', 'humiliation'
  1715. gs 'arousal', 'end'
  1716. gs 'cum_call', '', 'Some african male', 0, '', 250000, 100
  1717. gs 'stat'
  1718. ! COITUS: vaginal cowgirl, 1v1
  1719. elseif coitusType >= 3 and coitusType < 6:
  1720. imgRand = rand(1, 3)
  1721. '<center><video autoplay loop src="images\shared\sex\vag\cowgirl\africancowgirl'+imgRand+'.mp4"></video></center>'
  1722. 'The man lies down on the bed, relaxed and already with a huge erection, "Do your job white slut, or I make sure it hurts even more."'
  1723. 'Not wanting to upset him, you climb the bed, wrap your legs around his wide strong hips and carefully insert the tremendous tip inside your vagina.'
  1724. 'You slowly manage to bury yourself deeper and deeper, until it is somehow comfortable to ride him.'
  1725. 'He truly enjoys it and after several minutes a tremendous delivery of sperm fills you up.'
  1726. gs 'pain', 2, 'vaginal', 'tear'
  1727. gs 'pain', 2, 'armL', 'bind'
  1728. gs 'pain', 2, 'armR', 'bind'
  1729. gs 'arousal', 'vaginal', 45, 'bound', 'sub', 'rough', 'humiliation'
  1730. gs 'arousal', 'end'
  1731. gs 'cum_call', '', 'Some african male', 0, '', 250000, 100
  1732. gs 'stat'
  1733. ! COITUS: vaginal missionary, 1v1
  1734. elseif coitusType >= 6 and coitusType < 9:
  1735. imgRand = rand(1, 3)
  1736. '<center><video autoplay loop src="images\shared\sex\vag\miss\africanmis'+imgRand+'.mp4"></video></center>'
  1737. 'Holding you by your neck, he pushes you on the bed, spreading your legs to get better access to your pink, wetly pussy.'
  1738. 'You stiffen a bit as he penetrates you.'
  1739. 'It hurts, but at least your pussy is still lubed from the last fuck, so it is not as bad as it could. Yet his cock is so thick that the whole time you feel your pussy stretching to its limits.'
  1740. 'After several minutes he increases his pace, climaxing in long and voluminous ejaculation into your insides.'
  1741. 'As you watch him ejaculate, you can feel your abdomen bulking, as if the cum entered your very cervix.'
  1742. gs 'pain', 2, 'throat', 'stretch'
  1743. gs 'arousal', 'bj', 15, 'sub', 'rough', 'humiliation'
  1744. gs 'arousal', 'end'
  1745. gs 'cum_call', '', 'Some african male', 0, '', 250000, 100
  1746. gs 'stat'
  1747. ! COITUS: vaginal + mouth, 2v1
  1748. elseif coitusType >= 9 and coitusType < 12:
  1749. imgRand = rand(1, 3)
  1750. '<center><video autoplay loop src="images\shared\sex\mmf\africandoggydouble'+imgRand+'.mp4"></video></center>'
  1751. 'As he''s about to penetrate you, the door opens and another man walks in.'
  1752. 'Confused you await what is going to happen, but the other man just causally walks around and grabs your head, and pushes the tip of his cock to your yet closed lips.'
  1753. 'Before you realize what''s happening, the other man penetrates your vagina...'
  1754. '"Ouch!" the penetration makes your mouth open automatically, while the second man takes the opportunity and sticks his cock inside your unprepared mouth!'
  1755. 'You gag but he does not mind, as he begins to fuck your throat.'
  1756. 'You have no choice but to satisfy them both at once.'
  1757. gs 'pain', 6, 'vaginal', 'tear'
  1758. gs 'arousal', 'vaginal', 30, 'sub', 'rough', 'humiliation'
  1759. gs 'arousal', 'end'
  1760. gs 'cum_call', '', 'Some african male', 0, '', 250000, 100
  1761. gs 'cum_call', 'mouth', 'Some african male', 0, '', 250000, 100
  1762. gs 'stat'
  1763. ! COITUS: anal doggy, 1v1
  1764. elseif coitusType = 12:
  1765. imgRand = rand(1, 5)
  1766. '<center><video autoplay loop src="images\shared\sex\anal\doggy\africananaldoggy'+imgRand+'.mp4"></video></center>'
  1767. 'Holding you by your neck, he pushes you on the bed, lifting your hips with his strong hands.'
  1768. 'With your ass up you expect him to penetrate your pussy...'
  1769. 'But all of a sudden a sharp pain runs through your lower parts! You yell out as he starts penetrating your ass!'
  1770. 'He either did not realize it, or maybe it was his intention.'
  1771. 'As he fucks you, beside all the pain it feels as if he''s bumping to your actual stomach from inside you!'
  1772. 'After several minutes he increases his pace, climaxing with a long and voluminous ejaculation into your intestines.'
  1773. gs 'pain', 4, 'anal', 'tear'
  1774. gs 'arousal', 'anal', 20, 'sub', 'rough', 'humiliation'
  1775. gs 'arousal', 'end'
  1776. gs 'cum_call', 'anus', 'Some african male', 0, '', 250000, 100
  1777. gs 'stat'
  1778. ! COITUS: anal missionary, 1v1
  1779. elseif coitusType = 13:
  1780. imgRand = rand(1, 4)
  1781. '<center><video autoplay loop src="images\shared\sex\anal\mis\africananalmis'+imgRand+'.mp4"></video></center>'
  1782. 'Holding you by your neck, he pushes you on the bed, spreading your legs to get better access to your pink, wetly pussy.'
  1783. 'You stiffen a bit as you expect him to penetrate your pussy..'
  1784. 'But all of a sudden a sharp pain runs through your lower parts! You yell out as he starts penetrating your ass!'
  1785. 'He either did not realize it, or maybe it was his intention.'
  1786. 'As he fucks you, beside all the pain it feels as if he''s bumping to your actual stomach from inside you!'
  1787. 'After several minutes he increases his pace, climaxing with a long and voluminous ejaculation into your intestines.'
  1788. gs 'pain', 4, 'anal', 'tear'
  1789. gs 'arousal', 'anal', 30, 'sub', 'rough', 'humiliation'
  1790. gs 'arousal', 'end'
  1791. gs 'cum_call', 'anus', 'Some african male', 0, '', 250000, 100
  1792. gs 'stat'
  1793. ! COITUS: bj, 1v1
  1794. elseif coitusType = 14:
  1795. imgRand = rand(1, 5)
  1796. '<center><video autoplay loop src="images\shared\sex\blowjob\africanblowjob'+imgRand+'.mp4"></video></center>'
  1797. 'Holding you by your neck, he forcefully pushes you to the ground, making you kneel before him.'
  1798. 'His giant black cock is hanging in front of your face...'
  1799. '"Suck my black cock white white. Suck deep, or I make you." he commands.'
  1800. 'Taking his cock in your hands, almost unable to wrap your whole hand around it, you start to suck the tip.'
  1801. 'You slowly make way down your throat, while the horselike cock makes you gag and almost suffocate.'
  1802. 'After working on his cock for what feels like an eternity he grunts and finally ejaculates.'
  1803. 'Part of his cum lands around your mouth and face, as he sees you are not swallowing he forces your head, almost whole length of his cock is now buried inside your throat.'
  1804. 'You can feel the hot cum flowing directly to your stomach with each wave of cum...'
  1805. gs 'pain', 4, 'throat', 'stretch'
  1806. gs 'arousal', 'bj', 30, 'sub', 'rough', 'humiliation'
  1807. gs 'arousal', 'end'
  1808. gs 'cum_call', 'mouth', 'Some african male', 0, '', 250000, 70
  1809. gs 'cum_call', 'face', 'Some african male', 0, '', 250000, 20
  1810. gs 'stat'
  1811. ! COITUS: bdsm, anal, 1v1
  1812. elseif coitusType = 15:
  1813. imgRand = rand(1, 3)
  1814. '<center><video autoplay loop src="images\shared\sex\anal\bdsm\africananalbdsm'+imgRand+'.mp4"></video></center>'
  1815. '"White whore, I have no patience now. Turn around." he commands.'
  1816. 'As you do it he brings your hands together and binds them.'
  1817. 'He then positions you to his likes, you are unable to move, with all your holes at his mercy.'
  1818. 'He seems happy to see you helpless like that, and begins penetrating your anus with his giant cock!'
  1819. '"Not my ass, please, it hurts! Ouuch!" you yell out...'
  1820. 'Disregarding your pleads, he fucks you like that for some time until he finally ejaculates, filling you with his immense amount of cum.'
  1821. gs 'pain', 2, 'anal', 'tear'
  1822. gs 'pain', 2, 'armL', 'bind'
  1823. gs 'pain', 2, 'armR', 'bind'
  1824. gs 'arousal', 'anal', 30, 'bound', 'sub', 'rough', 'humiliation'
  1825. gs 'arousal', 'end'
  1826. gs 'cum_call', 'anus', 'Some african male', 0, '', 250000, 100
  1827. gs 'stat'
  1828. ! COITUS: bdsm, whip, 1v1
  1829. elseif coitusType = 16:
  1830. imgRand = rand(1, 5)
  1831. '<center><video autoplay loop src="images\locations\shared\clinic\experiment\whip'+imgRand+'.mp4"></video></center>'
  1832. '"White whore deserve to be punished. Turn around." he commands you.'
  1833. 'As you do it he brings your hands together and binds them, securing you in a position.'
  1834. 'From the box in the corner he takes out a long leather whip.'
  1835. 'Without saying another word, regardless of your pleads, he starts whipping your ass cheeks.'
  1836. 'With each stroke you let out a scream, like small girl that is punished by her bad behavior.'
  1837. 'When you finally believe it is over, he walks to the front, and does the same to your tender breasts!'
  1838. '"Not my breasts, please, it hurts! My nipples! you yell out.'
  1839. 'After he is really over, both your ass cheeks and breasts burn like hell, being red and bruised by the punishment.'
  1840. gs 'pain', 4, 'breasts', 'spank'
  1841. gs 'pain', 4, 'asscheeks', 'spank'
  1842. gs 'pain', 2, 'armL', 'bind'
  1843. gs 'pain', 2, 'armR', 'bind'
  1844. gs 'stat'
  1845. end
  1846. act 'Wait until he leaves':gt 'experiment', 'testarea:treatment:room'
  1847. if coitusType < 15:act 'Try to talk to him':gt 'experiment', 'testarea:treatment:room:event:african:talk'
  1848. end
  1849. if $ARGS[0] = 'testarea:treatment:room:event:african:talk':
  1850. minut += 2
  1851. gs 'stat'
  1852. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\<<$africanN>>.jpg"></center>'
  1853. *nl
  1854. talkChance = rand (0, 100)
  1855. if talkChance <= 20:
  1856. 'You try to talk to him, but he does not react at all. As if he does not even recognize your presence.'
  1857. act 'Let him be':gt 'experiment', 'testarea:treatment:room'
  1858. elseif talkChance > 20 and talkChance <= 40:
  1859. 'You try to talk to him. Looking at you he slowly opens his mouth, "Must... fuck... many... white... women..."'
  1860. 'He speaks as if he wasn''t even aware of himself. Maybe he is under some kind of drug, or even hypnotized?'
  1861. act 'Let him be':gt 'experiment', 'testarea:treatment:room'
  1862. elseif talkChance > 40 and talkChance <= 60:
  1863. 'You try to talk to him. He finally looks at you...'
  1864. '"Shut your mouth white whore. I must not talk, only to cum inside." he angrily replies.'
  1865. 'Not wanting to upset him further, you keep quiet...'
  1866. 'It doesn''t take long before he leaves, looking at you with angry face while closing the door. You just hope he will not be back before his anger fades, otherwise...'
  1867. act 'Continue':gt 'experiment', 'testarea:treatment:room'
  1868. else
  1869. 'You try to talk to him. He finally pays attention to you, this time looking a bit friendlier than before.'
  1870. '"What you want white whore?" he asks...'
  1871. act 'Why are you here?':gt 'experiment', 'testarea:treatment:room:event:african:talk:Q1'
  1872. if expVolunteer = 0:act 'Are you also a prisoner like me?':gt 'experiment', 'testarea:treatment:room:event:african:talk:Q2'
  1873. act 'Where are you from?':gt 'experiment', 'testarea:treatment:room:event:african:talk:Q3'
  1874. act 'Why are you so violent?':gt 'experiment', 'testarea:treatment:room:event:african:talk:Q4'
  1875. act 'How can your cock be so enormous?':gt 'experiment', 'testarea:treatment:room:event:african:talk:Q5'
  1876. act 'Are you in Russia legally?':gt 'experiment', 'testarea:treatment:room:event:african:talk:Q6'
  1877. act 'Why do you crave to fuck white women so much?':gt 'experiment', 'testarea:treatment:room:event:african:talk:Q7'
  1878. act 'How can you enjoy hurting women in such a way?':gt 'experiment', 'testarea:treatment:room:event:african:talk:Q8'
  1879. end
  1880. end
  1881. if $ARGS[0] = 'testarea:treatment:room:event:african:talk:Q1':
  1882. minut += 5
  1883. pcs_mood += 20
  1884. gs 'stat'
  1885. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\<<$africanN>>.jpg"></center>'
  1886. '"Why are you here?" you ask...'
  1887. '"Guess why, you white whore." he replies.'
  1888. '"For money?" you guess.'
  1889. '"That too." he quickly replies.'
  1890. '"Too? What else?" you continue on.'
  1891. '"For fun. Doctor gave me pills so my cock bigger is. And free white whores to fuck." he smirks, "I like white whores. Money good is but fuck better is."'
  1892. act 'Continue':gt 'experiment', 'testarea:treatment:room'
  1893. end
  1894. if $ARGS[0] = 'testarea:treatment:room:event:african:talk:Q2':
  1895. minut += 5
  1896. pcs_mood += 20
  1897. gs 'stat'
  1898. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\<<$africanN>>.jpg"></center>'
  1899. '"Are you also a prisoner like me?" you ask.'
  1900. '"No! I am never slave as you white whore are." he replies.'
  1901. '"So you entered the experiment voluntarily?" you press on.'
  1902. '"Yes, I come for money but I stay for whores." he smiles.'
  1903. '"I see..." you comment.'
  1904. '"And for pills. Pills make my cock big, as big as horse. Horse cock, white whores, a lot fun." his grin is getting even bigger.'
  1905. '"Not for me, it hurts so much!" you moan.'
  1906. '"Horse cock is good for white whore. The bigger the more fun when it hurts. It''s fun more when white whore can not say no." he laughs loudly.'
  1907. 'You just gulp, in disgust, unable to say anything more.'
  1908. 'He gets up, slaps your face with his almost flaccid cock and leaves.'
  1909. act 'Continue':gt 'experiment', 'testarea:treatment:room'
  1910. end
  1911. if $ARGS[0] = 'testarea:treatment:room:event:african:talk:Q3':
  1912. minut += 5
  1913. pcs_mood += 20
  1914. gs 'stat'
  1915. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\<<$africanN>>.jpg"></center>'
  1916. '"Where are you from?" you ask.'
  1917. '"From the start, a country in Africa. But I come out of Germany. White man not let me stay." he sadly answers.'
  1918. '"Why?" you curiously ask.'
  1919. '"German man is racist. German cunts went for police. I must go out." he replies.'
  1920. 'You are in shock. Is he some kind of criminal? Better not make him upset...'
  1921. 'Before you''re able to say anything he speaks up, "My balls are getting full again are. White whore get ready, I come soon again."'
  1922. act 'Continue':gt 'experiment', 'testarea:treatment:room'
  1923. end
  1924. if $ARGS[0] = 'testarea:treatment:room:event:african:talk:Q4':
  1925. minut += 5
  1926. gs 'stat'
  1927. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\<<$africanN>>.jpg"></center>'
  1928. '"Why are you so violent?" you ask.'
  1929. '"White whore should keep quiet." he annoyingly answers.'
  1930. '"What do you mean?" you push on.'
  1931. '"White whore should know we treat as the whores they are." he explains.'
  1932. '"What are you saying!" you tell him off.'
  1933. '"White whore should shut mouth or I stuff my fist inside her." he threatens you.'
  1934. 'You are shocked. He seem to feel no remorse about what he''s doing to you, he''s probably used to treat women as slaves who require nothing else than punishment and abuse.'
  1935. act 'Continue':gt 'experiment', 'testarea:treatment:room'
  1936. end
  1937. if $ARGS[0] = 'testarea:treatment:room:event:african:talk:Q5':
  1938. minut += 5
  1939. gs 'stat'
  1940. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\<<$africanN>>.jpg"></center>'
  1941. '"How can your cock be so enormous?" you ask.'
  1942. '"My cock was not so big before." he begins to explain.'
  1943. '"Before what?" you pry further.'
  1944. '"Before doctor came and give me chance." he continues on.'
  1945. '"A chance?" you look confusedly at him.'
  1946. '"Yes, doctor gave me pills. My cock now is double big as before." he proudly says.'
  1947. '"I understand..." you say.'
  1948. '"Double dick size but also balls are more full. So doctor give me white whores to fuck." he smiles.'
  1949. act 'Continue':gt 'experiment', 'testarea:treatment:room'
  1950. end
  1951. if $ARGS[0] = 'testarea:treatment:room:event:african:talk:Q6':
  1952. minut += 5
  1953. gs 'stat'
  1954. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\<<$africanN>>.jpg"></center>'
  1955. '"Are you legally in Russia?" you ask.'
  1956. '"Doctor promised. I do eat pills, I get passport." he explains.'
  1957. '"So you will receive citizenship for being part of this medical research?" you continue on.'
  1958. '"Doctor promised. I will not go back." he''s pretty resolute in his answer.'
  1959. '"Why, if you don''t mind me asking?" you pry.'
  1960. '"Because, war." you replies as his eyes sadden.'
  1961. '"Oh, there is a war in your country?" you continue on.'
  1962. 'But he waves it away, "Yes, war. And no white whores to fuck, boredom. But Russia good is."'
  1963. act 'Continue':gt 'experiment', 'testarea:treatment:room'
  1964. end
  1965. if $ARGS[0] = 'testarea:treatment:room:event:african:talk:Q7':
  1966. minut += 5
  1967. gs 'stat'
  1968. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\<<$africanN>>.jpg"></center>'
  1969. '"Why do you crave to fuck white women so much?" you ask.'
  1970. '"White woman is not woman. She whore is." he replies in broken russian.'
  1971. '"Excuse me?!" you yell out.'
  1972. '"Black woman is good woman. She decent is. Not provoke, not slut." he starts explaining.'
  1973. '"And white is a slut or what?" annoyed, you ask.'
  1974. '"Yes, white woman is slut. She show too much skin... She wants cock..." he says.'
  1975. '"That is not true!" you start to explain.'
  1976. '"It true is. Look yourself. You here are for cock. You let be fucked by black man. You slut are." and with that he finishes the discussion.'
  1977. act 'Continue':gt 'experiment', 'testarea:treatment:room'
  1978. end
  1979. if $ARGS[0] = 'testarea:treatment:room:event:african:talk:Q8':
  1980. minut += 5
  1981. gs 'stat'
  1982. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\<<$africanN>>.jpg"></center>'
  1983. '"How can you enjoy hurting women in such a way?" you ask.'
  1984. '"I do not hurt women. No." he confidently answers.'
  1985. '"But you just abused me in very aggressive and painful way!" you begin to explain.'
  1986. '"You no woman are. You white whore are." he angrily replies.'
  1987. '"What? Me being a whore makes me not a woman?" you try to reason with him.'
  1988. '"Yes, white whore not woman. She only to fuck wants. All Africa knows well." he''s almost shouting.'
  1989. '"What? Everyone in Africa knows what?" you''re irritated by now.'
  1990. '"Every man in Africa knows white whores only for sex is. All white whore is and want sex." he continues on.'
  1991. act 'Continue':gt 'experiment', 'testarea:treatment:room'
  1992. end
  1993. if $ARGS[0] = 'testarea:treatment:room:event:nurse:check':
  1994. minut += 5
  1995. ! STATUS CHECK: nurse
  1996. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
  1997. 'She takes a sample of your blood, measures your temperature, blood pressure and proceeds to examine insides of your vagina.'
  1998. if pain['vaginal'] > 30 or pain['asshole'] > 30:
  1999. 'She gives you something against the pain.'
  2000. if pain['vaginal'] > 30: pain['vaginal'] -= rand(9,18)
  2001. if pain['asshole'] > 30: pain['asshole'] -= rand(9,18)
  2002. end
  2003. '<i>The cold medical mirror is nothing compared to the abuse endured by the giant black cocks.</i>'
  2004. 'When she''s done, she packs up her equipment and says,'
  2005. if pregchem > 30:
  2006. pregTalkPC = 1
  2007. impreg = 1
  2008. 'Very well miss <<$pcs_lastname>>, you have finally managed to complete the impregnation process. You will proceed to the final stage in a short time.'
  2009. else
  2010. 'The impregnation has yet not taken place, further insemination is needed. See you later miss <<$pcs_lastname>>.'
  2011. end
  2012. if cycle <= 1 or cycle > 2 and fertEgg = 0 and pregchem = 0:
  2013. lastovulation = daystart
  2014. cycle = 2
  2015. ovulate = 24+rand(24,48)
  2016. EggRH = 320+rand(160, 320)
  2017. 'Also it seems you need a refresh of the ovulation drug. She injects you with another dose.'
  2018. end
  2019. gs 'stat'
  2020. act 'Continue':gt 'experiment', 'testarea:treatment:room'
  2021. end
  2022. if $ARGS[0] = 'testarea:treatment:room:event:nurse:talkTry':
  2023. minut += 1
  2024. gs 'stat'
  2025. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
  2026. 'You decide to try to talk to her...'
  2027. act 'Please nurse, please talk to me!':gt 'experiment', 'testarea:treatment:room:event:nurse:talk'
  2028. end
  2029. if $ARGS[0] = 'testarea:treatment:room:event:nurse:talk':
  2030. nurseRel += 1
  2031. minut += 2
  2032. gs 'stat'
  2033. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
  2034. *nl
  2035. if nurseRel <= 2:
  2036. 'The nurse does not seem to be interested in talking with you.'
  2037. act 'Let her be':gt 'experiment', 'testarea:treatment:room:event:nurse:check'
  2038. elseif nurseRel >= 3 and nurseRel <= 4:
  2039. 'The nurse still does not want to talk to you, yet you can see that she looks compassionately at your face occasionally.'
  2040. act 'Let her be':gt 'experiment', 'testarea:treatment:room:event:nurse:check'
  2041. else
  2042. nurseTalk = 1
  2043. 'The nurse looks at you, "What do you want to talk about miss <<$pcs_lastname>>?"'
  2044. '"I''m so glad you decided to speak to me. Everyone here just comes, fucks me like a doll and leaves without saying a word." you explain.'
  2045. '"Well, that''s what you signed for after all. Do you have some questions or not?" she answers cold hearteningly.'
  2046. act 'When will you let me go?':gt 'experiment', 'testarea:treatment:room:event:nurse:talk:Q1'
  2047. if expVolunteer = 0:act 'Why are you doing this to me?':gt 'experiment', 'testarea:treatment:room:event:nurse:talk:Q2'
  2048. if expVolunteer = 0:act 'Is this experiment even legal?':gt 'experiment', 'testarea:treatment:room:event:nurse:talk:Q3'
  2049. act 'Did you also gone through the experiment?':gt 'experiment', 'testarea:treatment:room:event:nurse:talk:Q4'
  2050. if expVolunteer = 0:act 'How can you let them do this to me?':gt 'experiment', 'testarea:treatment:room:event:nurse:talk:Q5'
  2051. act 'Why do you use the africans?':gt 'experiment', 'testarea:treatment:room:event:nurse:talk:Q6'
  2052. act 'Why do the africans have such unnaturally oversized penises?':gt 'experiment', 'testarea:treatment:room:event:nurse:talk:Q7'
  2053. end
  2054. end
  2055. if $ARGS[0] = 'testarea:treatment:room:event:nurse:talk:Q1':
  2056. minut += 3
  2057. gs 'stat'
  2058. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
  2059. '"When will you let me go?" you ask.'
  2060. '"You will be released from the experimental research once you finish it." the nurse explains.'
  2061. '"And when I will finish it?" you continue asking.'
  2062. '"Once you get impregnated." she shortly answers.'
  2063. '"But what will I do with a child afterwards?" you hesitantly ask.'
  2064. 'The nurse nonchalantly looks at you, "I don''t know miss <<$pcs_lastname>>. You can do whatever you want I guess. I must go, I have to get back to work."'
  2065. act 'Continue':gt 'experiment', 'testarea:treatment:room:event:nurse:check'
  2066. end
  2067. if $ARGS[0] = 'testarea:treatment:room:event:nurse:talk:Q2':
  2068. minut += 3
  2069. gs 'stat'
  2070. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
  2071. '"Why are you doing this to me?" you ask.'
  2072. '"Me? I am doing just my job." she answers.'
  2073. '"But I was tricked! I did not know the experiment will be like this!" you try to reason with her.'
  2074. '"You believe this yourself? I think there is just enough information to catch up with the actual nature of this research." she answers.'
  2075. '"But... but..." you start...'
  2076. '"But what?" she annoyingly looks at you...'
  2077. '"I don''t want this anymore!" your eyes tear up.'
  2078. '"That is unfortunate, but I cannot do anything about it. I am just a cog in a large machine, you know." she explains.'
  2079. '"But... but..." you try...'
  2080. 'She interrupts you, "I have to go now miss <<$pcs_lastname>>. See you later."'
  2081. act 'Continue':gt 'experiment', 'testarea:treatment:room:event:nurse:check'
  2082. end
  2083. if $ARGS[0] = 'testarea:treatment:room:event:nurse:talk:Q3':
  2084. minut += 3
  2085. gs 'stat'
  2086. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
  2087. '"Is this experiment even legal?" you ask.'
  2088. '"Of course it is. You have filed out the paperwork, stating your attendance as entirely voluntary and willing." the nurse smirks.'
  2089. '"Voluntary? That means I can leave when I want?" you feel getting the upper hand.'
  2090. 'The nurse quickly shuts you down, "Almost. You will be released while your contract obligations are fulfilled. Not until the goal is accomplished."'
  2091. act 'Continue':gt 'experiment', 'testarea:treatment:room:event:nurse:check'
  2092. end
  2093. if $ARGS[0] = 'testarea:treatment:room:event:nurse:talk:Q4':
  2094. minut += 3
  2095. gs 'stat'
  2096. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
  2097. '"Did you also gone through the experiment?" you ask.'
  2098. '"What do you mean?" the nurse is confusingly looking at you.'
  2099. '"Well... have you been also... you know... in my place?" you pry on.'
  2100. 'The nurse takes offense, "What??? Do I look like so miserable to sell my own body?"'
  2101. '"I did not..." you begin to explain yourself...'
  2102. 'But the nurse quickly interrupts you, "Shut up you stupid black cock loving whore, you are a disgrace of the Russian people."'
  2103. nurseRel -= 3
  2104. nurseTalk = 0
  2105. act 'Continue':gt 'experiment', 'testarea:treatment:room:event:nurse:check'
  2106. end
  2107. if $ARGS[0] = 'testarea:treatment:room:event:nurse:talk:Q5':
  2108. minut += 3
  2109. gs 'stat'
  2110. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
  2111. '"How can you let them do this to me?" you ask.'
  2112. '"Me? I am doing just my own job. I did not force anyone to do anything." she explains.'
  2113. '"But you see what they do to me and do nothing about it!" you yell out.'
  2114. 'Annoyed she replies, "And what should I do? Go to authorities or police? They are bribed. I would end up without a job, and that would be even the best outcome."'
  2115. nurseTalk = 0
  2116. act 'Continue':gt 'experiment', 'testarea:treatment:room:event:nurse:check'
  2117. end
  2118. if $ARGS[0] = 'testarea:treatment:room:event:nurse:talk:Q6':
  2119. minut += 3
  2120. gs 'stat'
  2121. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
  2122. 'Why do you use the black males?" you ask.'
  2123. '"Well, it''s an idea of the doctors. Something about several areas to test." she explains.'
  2124. '"Several areas?" you ask.'
  2125. '"Yes, apparently they wanted to use this opportunity to their best. They can test the ovulation drug, the male fertility drug and in addition they can test it in interracial environment." she tries to explain.'
  2126. '"I understand..." you quietly answer.'
  2127. '"But I believe there is also a more practical reason." she smirks.'
  2128. '"What reason?" you quickly ask.'
  2129. '"Well if they hired male Russians, word about the experiment would get out sooner or later. So they hired those black males instead, who barely speak Russian, and even if they would, nobody would believe them a single word. And when this is finished, they can dispose of them very quietly..." she tells you before leaving.'
  2130. nurseTalk = 0
  2131. act 'Continue':gt 'experiment', 'testarea:treatment:room:event:nurse:check'
  2132. end
  2133. if $ARGS[0] = 'testarea:treatment:room:event:nurse:talk:Q7':
  2134. minut += 3
  2135. gs 'stat'
  2136. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
  2137. '"Why do the africans have such unnaturally over-sized penises?" you ask.'
  2138. '"It''s the other drug that is tested here. Experimental penis enlargement." she explains.'
  2139. '"It really works? I thought it was only a placebo..." you say.'
  2140. 'She nears you and starts whispering, "What they sell on-line is a fake. But what we test here is not. But..."'
  2141. '"But what?" you curiously ask.'
  2142. '"It has side effects. Sometimes their bodies fail to keep up with the enlargement process, and..." she keeps telling you.'
  2143. '"And?" the excitement is killing you...'
  2144. '"They don''t survive it. Better said, their ''devices'' don''t survive it, and they slowly follow afterwards." she explains.'
  2145. 'You gasp, "They died because why, their cocks... fell off?"'
  2146. 'The nurse nods, "Crudely said, yes. It can cause an incurable gangrene that in the end causes the victim to die. That is another reason why doctors use these africans, people without documents, without connection to reality. People who are missed by nobody... Until they finally fix this side effect, that is."'
  2147. nurseTalk = 0
  2148. act 'Continue':gt 'experiment', 'testarea:treatment:room:event:nurse:check'
  2149. end
  2150. if $ARGS[0] = 'testarea:treatment:impreg':
  2151. minut += 3
  2152. gs 'stat'
  2153. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\positiondoggy2.jpg"></center>'
  2154. 'Lying on the bed you hear the door open once again. You have lost count of how many times you have been abused, how many ejaculations have you taken inside you...'
  2155. 'You do not even watch to see who is coming in, you automatically turn around on the bed, sticking your ass up, getting ready to be fucked once again...'
  2156. if expVolunteer = 0:
  2157. act 'Await penetration':gt 'experiment', 'testarea:treatment:impreg:doctor'
  2158. else
  2159. act 'Await penetration':gt 'experiment', 'testarea:treatment:impreg:doctor:volunteer'
  2160. end
  2161. end
  2162. if $ARGS[0] = 'testarea:treatment:impreg:doctor:volunteer':
  2163. minut += 3
  2164. thinpreg = 1
  2165. knowpreg = 1
  2166. unrelated_preg = 0
  2167. gs 'stat'
  2168. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc1.jpg"></center>'
  2169. '<<$doc1>>: "Miss <<$pcs_lastname>>?"'
  2170. *nl
  2171. 'Hearing that voice you realize it is not another black male coming to abuse you, but one of the doctors!'
  2172. 'You quickly turn around on the bed to be able to look at him. He is watching you with weird interest.'
  2173. '"What do you want from me?" you ask.'
  2174. '<<$doc1>>: "I have come to inform you about your progress."'
  2175. '"Progress?" you look strangely at him.'
  2176. '<<$doc1>>: "Yes, the insemination has finally been processed."'
  2177. '"Already?" you disappointingly ask.'
  2178. '<<$doc1>>: "Indeed miss <<$pcs_lastname>>, you are pregnant. Congratulations!"'
  2179. '"Thank you, I guess...?" you don''t really know how to act.'
  2180. '<<$doc1>>: "Both our ovulation drug and male fertility drug worked very efficiently in your case. It was a valuable input to our experiment."'
  2181. act 'Follow him':gt 'experiment', 'testarea:treatment:impreg:dressup'
  2182. end
  2183. if $ARGS[0] = 'testarea:treatment:impreg:doctor':
  2184. minut += 3
  2185. thinpreg = 1
  2186. knowpreg = 1
  2187. unrelated_preg = 0
  2188. gs 'stat'
  2189. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc1.jpg"></center>'
  2190. '<<$doc1>>: "Miss <<$pcs_lastname>>?"'
  2191. *nl
  2192. 'Hearing that voice you realize it is not another black male coming to abuse you, but one of the doctors!'
  2193. 'You quickly turn around on the bed to be able to look at him. He is watching you with weird interest.'
  2194. '"What do you want from me?" you ask.'
  2195. '<<$doc1>>: "I have come to inform you about your progress."'
  2196. '"Progress?" you look strangely at him.'
  2197. '<<$doc1>>: "Yes. The insemination has finally been processed."'
  2198. 'You gasp, "I... I''m...?"'
  2199. '<<$doc1>>: "Indeed miss <<$pcs_lastname>>, you are pregnant. Congratulations!"'
  2200. 'You shake your head in disbelief, "Oh no... pregnant... by one of... them?"'
  2201. '<<$doc1>>: "Of course, who else? Both our ovulation drug and male fertility drug worked very efficiently in your case. It was a valuable input to our experiment."'
  2202. act 'Collapse and cry':gt 'experiment', 'testarea:treatment:impreg:cry'
  2203. act 'Get angry and shout at him':gt 'experiment', 'testarea:treatment:impreg:shout'
  2204. end
  2205. if $ARGS[0] = 'testarea:treatment:impreg:cry':
  2206. minut += 3
  2207. gs 'stat'
  2208. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\cry.jpg"></center>'
  2209. '<<$doc1>>: "Do not cry miss <<$pcs_lastname>>. You should be proud of yourself, you helped the medical field progress."'
  2210. 'With tears running down your cheeks, "Progress?! My life is ruined! I''m expecting a black bastard! How will I explain this to my friends? To my family?!"'
  2211. '<<$doc1>>: "That is a problem you should have thought about before signing the form. Now follow me, I will show you to the exit."'
  2212. act 'Follow him crying':gt 'experiment', 'testarea:treatment:impreg:dressup'
  2213. end
  2214. if $ARGS[0] = 'testarea:treatment:impreg:dressup':
  2215. minut += 8
  2216. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
  2217. 'The nurse enters the room, "So miss <<$pcs_lastname>>, here are your things from the locker, please dress up."'
  2218. 'You eagerly put on the clothing that you left in the locker before getting locked up for days, maybe weeks, but definitely dozens of ejaculations ago.'
  2219. gs 'clothing', 'wear_last_worn'
  2220. gs 'stat'
  2221. act 'Continue':gt 'experiment', 'testarea:treatment:impreg:leave'
  2222. end
  2223. if $ARGS[0] = 'testarea:treatment:impreg:leave':
  2224. minut += 5
  2225. money += 50000
  2226. experimentAbsolved += 1
  2227. gs 'stat'
  2228. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
  2229. 'The nurse speaks up, "And the last matter to be settled is your payment."'
  2230. if expVolunteer = 0:'<i>At least I will get paid for the abuse I''ve been through...</i>'
  2231. 'She hands you several bills. You count them, it is 50.000 <b>₽</b>, "Now follow me, I will show you the way out."'
  2232. if expVolunteer = 0:'<i>Finally, freedom!</i>'
  2233. if expVolunteer = 1:act 'Uhm... nurse?':gt 'experiment', 'testarea:treatment:impreg:shout:punish:volunteer1'
  2234. act 'Get out':gt 'poli', 'start'
  2235. end
  2236. if $ARGS[0] = 'testarea:treatment:impreg:shout:punish:volunteer1':
  2237. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
  2238. '"What is it miss <<$pcs_lastname>>?" the nurse asks.'
  2239. '"Uhm... I..." you hesitate.'
  2240. 'The nurse is growing inpatient, "Just tell me what you want, I have to get back to paperwork."'
  2241. act 'It''s nothing... (thank her and leave)':gt 'poli', 'start'
  2242. act 'Can I get one last fuck?':gt 'experiment', 'testarea:treatment:impreg:shout:punish:volunteer2'
  2243. end
  2244. if $ARGS[0] = 'testarea:treatment:impreg:shout:punish:volunteer2':
  2245. '<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
  2246. 'The nurse is a bit shocked by your request, "Miss <<$pcs_lastname>>, haven''t you had enough?"'
  2247. 'You look down at the ground, "Uhm... you know..."'
  2248. 'The nurse crosses her arms, "After so many days, being stuffed by those black cocks, and you ask me for another fuck?"'
  2249. '"Well... I..." you shyly speak.'
  2250. 'With a stern look the nurse begins to speak, "Someone here needs to punished. Abdul, come over here!"'
  2251. act '(change your mind and quickly leave)':gt 'poli', 'start'
  2252. act '(sit down and wait)':gt 'experiment', 'testarea:treatment:impreg:shout:punish'
  2253. end
  2254. if $ARGS[0] = 'testarea:treatment:impreg:shout':
  2255. minut += 3
  2256. gs 'stat'
  2257. '<center><img <<$set_imgh>> src="images\shout\pc.jpg"></center>'
  2258. '"My life is ruined! You have forced upon this me! I was raped at least million times!" you angrily yell out.'
  2259. '<<$doc1>>: "Calm down miss <<$pcs_lastname>>. You should be proud of yourself, you helped the medical field progress.'
  2260. '"Go to hell! You and your medicine!" you keep on yelling.'
  2261. '<<$doc1>>: "Calm down or I will have you forcefully led out!"'
  2262. '"Fuck you!" with these words you jump off the bed and start slapping him with your hands.'
  2263. 'As if from nowhere a pair of strong black hands grab you, lifting you in the air. You''re kicking with your legs like a beetle, but resistance is futile.'
  2264. *nl
  2265. '<<$doc1>>: "Thank you Abdul. Show this stubborn girl her place and then kick her out."'
  2266. *nl
  2267. '"You heard doctor we job have to do." with these words he looks at you with a mean smile.'
  2268. act 'Continue':gt 'experiment', 'testarea:treatment:impreg:shout:punish'
  2269. end
  2270. if $ARGS[0] = 'testarea:treatment:impreg:shout:punish':
  2271. '<center><video autoplay loop src="images\shared\sex\group\africangroup1.mp4"></video></center>'
  2272. 'Several black men, most of them you have ''met'' before, start entering the room.'
  2273. 'The one called Abdul is holding you while the other men grab your legs, making their way to your battered groin.'
  2274. 'Even more violently than before, all of them at once, abuse you. A big black cock is rammed deep in every free hole.'
  2275. 'You cry, you beg, but they are relentless, as if no human pity is left inside them. Might be caused by the fertility drug, but who really knows anymore...'
  2276. gs 'pain', 4, 'breasts', 'spank'
  2277. gs 'pain', 4, 'asscheeks', 'spank'
  2278. gs 'pain', 4, 'neck', 'twist'
  2279. gs 'pain', 2, 'armL', 'bind'
  2280. gs 'pain', 2, 'armR', 'bind'
  2281. gs 'pain', 4, 'vaginal', 'stretch'
  2282. gs 'pain', 4, 'asshole', 'stretch'
  2283. gs 'arousal', 'vaginal', 30, 'bound', 'sub', 'rough', 'humiliation'
  2284. gs 'arousal', 'end'
  2285. gs 'cum_call', 'anus', 'Some african male', 0, '', 250000, 50
  2286. gs 'cum_call', '', 'Some african male', 0, '', 250000, 50
  2287. gs 'cum_call', 'face', 'Some african male', 0, '', 250000, 50
  2288. gs 'cum_call', 'hair', 'Some african male', 0, '', 250000, 50
  2289. gs 'cum_call', 'stomach', 'Some african male', 0, '', 250000, 50
  2290. gs 'cum_call', 'breasts', 'Some african male', 0, '', 250000, 50
  2291. gs 'cum_call', 'butt', 'Some african male', 0, '', 250000, 50
  2292. gs 'cum_call', 'labia', 'Some african male', 0, '', 250000, 50
  2293. gs 'stat'
  2294. act 'Continue':gt 'experiment', 'testarea:treatment:impreg:shout:punish:kickout'
  2295. end
  2296. if $ARGS[0] = 'testarea:treatment:impreg:shout:punish:kickout':
  2297. minut += 5
  2298. 'When they are finally done with you, one by one they leave the room and you crumble to the ground, filled with and covered by thick layers of jizz.'
  2299. 'Far too exhausted, you can barely move, much less say anything. The only thing heard in the room for a moment is your hard, shaky breathing.'
  2300. '"Filthy whore, get up! We''re done with you, to the real world back you go!" He grabs you by your hair, forcing you to get up. Like this he drags you naked and cum covered through the hallway to the reception.'
  2301. *nl
  2302. '"Nurse get her junk. I order have to kick her out!" The nurse nods to him before looking down at you. You expected to see pity in her eyes, but she looks at you with disgust and disdain. She quickly shuffles off behind a door and in a few minutes returns carrying a plastic bag with your clothing inside.'
  2303. '"Miss <<$pcs_lastname>>, in this bag are your things and payment for you...services. Take it and get out." the nurse starts explaining.'
  2304. '"No! Give me that," he says before snatching the bag from her. With a twisted smile, he looks down at you, "Doctor give me order so I kick her out!" and without another word, he grabs you and drags you to the entrance.'
  2305. *nl
  2306. '<i>He''s going to kick me out of the clinic hall like this? Naked and covered in cum? Really?!</i>'
  2307. *nl
  2308. 'You didn''t believe he would do it, but he did. He opens the door and pushes you out. You fall onto the cold pavement of the clinic hallway.'
  2309. 'Abdul watches you for a moment as you squirm and try to cover yourself. "Here your slut suit and payment for black cock whoring!" He laughs and throws the bag on you before shutting the door behind him.'
  2310. 'At least you are free once again...'
  2311. money += 50000
  2312. experimentAbsolved += 1
  2313. gs 'stat'
  2314. act 'Get up':gt 'poli', 'start'
  2315. end
  2316. --- experiment ---------------------------------