bed1.qsrc 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316
  1. # bed1
  2. if $ARGS[0] = 'sogn':
  3. cla
  4. *clr
  5. menu_off = 1
  6. dogday = daystart
  7. '<center><img <<$set_imgh>> src="images/beast/zoo/2.jpg"></center>'
  8. 'You undress and lie down on the bed <<$namesob>> brazenly jump onto the bed and starts licking your pussy'
  9. gs 'arousal', 'cuni', 10, 'beast'
  10. gs 'stat'
  11. act 'Succumb to the desire':gt 'bed1', 'sog2'
  12. act 'Kick the dog out':gt 'bed', 'start'
  13. end
  14. if $ARGS[0] = 'sog1':
  15. menu_off = 1
  16. if zoo >= 6 and sobaka ! 0:
  17. if husband > 0 and husbandrink ! 10:
  18. if hour > 22 or hour < 7:
  19. cla
  20. *clr
  21. gs 'boyStat', $petID
  22. '<center><img <<$set_imgh>> src="images/beast/zoo/z1.jpg"></center>'
  23. 'You undress and lie down on the bed <<$namesob>> brazenly jumps onto your bed and starts licking your pussy.'
  24. gs 'arousal', 'cuni', 30, 'sub', 'beast'
  25. gs 'stat'
  26. if harakHusb = 0:
  27. '"What''s he doing dear, stop him." cries your husband'
  28. '"I can''t, I''m trying." you reply.'
  29. husband -= 1
  30. '<<$husName>> trys to shove the dog, but he growls and snarls. "I can''t get it off you, what should I do dear?" he asks.'
  31. '"Think of something." you reply, already slightly moaning with pleasure. <<$husName>> starts to rummage through the room.'
  32. 'Periodically, he tries to shoo the dog, but he''s growled off. With <<$husName>> pacing the room dog begins trying to jump you.'
  33. '"Oh my God, what is he going to do?" shrieked <<$husName>>, Seeing the dogs attempts to jump you.'
  34. '"Somehow you still haven''t realised that he wants to fuck me" you shout.'
  35. '"Dear, pleaase try to stop him" pleads your husband.'
  36. act 'Try':
  37. cla
  38. *clr
  39. gs 'cum_call', '', $namesob, 1, 0, -1, 60
  40. '<center><img <<$set_imgh>> src="images/beast/zoo/z2.jpg"></center>'
  41. 'You reluctantly start trying to push the dog and off you, but as you push him backwards, <<$namesob>> leans on you with all his weight. You feel his penis rubs against your thighs searching for your hole.'
  42. if izvratH = 0:
  43. '"Oh my God, I can''t watch this," cries your husband slamming the door and running. Meanwhile, the dogs member has found a hole and he starts fucking you.'
  44. 'You moan as the arousal becomes too much, soon you orgasm. A few seconds later <<$namesob>> cums inside you, pulls away and runs out into the corridor.'
  45. dynamic $dogpot
  46. spafinloc = 0
  47. sexpartkno = 1
  48. $orgasm_or = 'yes'
  49. gs 'arousal', 'vaginal', 10, 'beast'
  50. gs 'arousal', 'end'
  51. gs 'stat'
  52. gs 'Cum_Manage'
  53. 'Your husband comes back, you are still on all fours with dog sperm flowing from your pussy.'
  54. '"I''ll take him and have him put down," says <<$husName>>'
  55. elseif izvratH = 1:
  56. '"Get the fuck off of her!" shouts <<$husName>> at the dog, to little effect. Meanwhile, the dogs member has found a hole and he starts fucking you.'
  57. 'You moan as the arousal becomes too much and your husband deciding that your movement is an attempt to escape, shouts, "Yes <<$pcs_nickname>> wiggle more, I think you''re loosening his grip."'
  58. 'Soon you orgasm. A few seconds later <<$namesob>> cums inside you, then pulls away and runs out into the corridor.'
  59. dynamic $dogpot
  60. spafinloc = 0
  61. sexpartkno = 1
  62. $orgasm_or = 'yes'
  63. gs 'arousal', 'vaginal', 10, 'beast'
  64. gs 'arousal', 'end'
  65. gs 'stat'
  66. gs 'Cum_Manage'
  67. 'Your husband looks at you on all fours, ass in the air, canine semen flowing out of your pussy.'
  68. '"I''ll take him and have him put down," says <<$husName>>'
  69. end
  70. act 'Allow':
  71. sobaka = 0
  72. killvar '$petID'
  73. zoo = 0
  74. gt 'bedr'
  75. end
  76. act 'Stop him':
  77. cla
  78. '"No dear, he is not guilty, he has instincts, I''ll take it for mating and he will calm down," you say.'
  79. '"Fine dear, whatever you say."'
  80. act 'Finish':gt 'bedr'
  81. end
  82. end
  83. elseif harakHusb = 1:
  84. '"Your dog is completely out of control, take it out onto the street, bitch, and then kill it." your husband says.'
  85. '"I can not do that myself." you reply.'
  86. if izvratH = 0:
  87. '<<$husName>> tries picking the dog up but he growls and bares his teeth. So he goes to the bathroom and comes back with some old sheets.'
  88. 'Throwing them over the dog and picking up the corners is able to pick up <<$namesob>> in his improvised bag.'
  89. '"I''ll have him put down." says <<$husName>>'
  90. act 'Allow':
  91. sobaka = 0
  92. killvar '$petID'
  93. zoo = 0
  94. gt 'sitr'
  95. end
  96. act 'Stop him':
  97. cla
  98. '"No dear, he is not guilty, he has the instincts, I''ll take it for mating and he will calm down." you said.'
  99. '"Okay, whatever, it''s your dog."'
  100. act 'Finish':gt 'bedr'
  101. end
  102. elseif izvratH = 1:
  103. '"Can not or don''t want to." says <<$husName>> smiling and continues to sit and watch as the dog licks you.'
  104. '"Does not want to, I guess" you reply and deliberately push your legs apart. <<$husName>> looks as you moan while the dog licks you.'
  105. 'Suddenly he gets up pulls out his dick brings to your mouth.'
  106. gs 'arousal', 'cuni', 10, 'beast'
  107. gs 'stat'
  108. act 'Suck husband':
  109. cla
  110. *clr
  111. gs 'cum_call', 'mouth', $husName
  112. gs 'boyStat', $husID
  113. '<center><img <<$set_imgh>> src="images/beast/zoo/z3.jpg"></center>'
  114. 'You grab his cock and take it on your mouth, soon begins your pleasure center lights up and your whole body is racked by your orgasm.'
  115. 'Seconds later <<$husName>> ends up in your mouth. You swallow sperm and continue to suck his fading dick. Encouraged the dog begins trying to climb onto you, looking for a more.'
  116. gs 'boyStat', $husID
  117. gs 'arousal', 'bj', 3, 'sub'
  118. gs 'arousal', 'vaginal', 3, 'beast'
  119. minut -= 3
  120. gs 'arousal', 'end'
  121. '"This is too much" says <<$husName>> and tried to shoo your dog out, but he growls and bares his teeth.'
  122. '<<$husName>> goes to the bathroom and comes back with some old sheets.'
  123. 'Throwing them over the dog and picking up the corners is able to pick up <<$namesob>> in his improvised bag.'
  124. '"I''ll have him put down." says <<$husName>>'
  125. act 'Allow':
  126. sobaka = 0
  127. killvar '$petID'
  128. zoo = 0
  129. gt 'sitr'
  130. end
  131. act 'Stop him':
  132. cla
  133. '"No dear, he is not guilty, he has instincts, besides he tried very hard." you said.'
  134. '"Well, if he was trying so hard, maybe you should thank him" your husband suggests.'
  135. act 'Jerk the dog':
  136. cla
  137. *clr
  138. husband -= 1
  139. gs 'cum_call', 'hands', $namesob, 1, 0, -1, 60
  140. '<center><img <<$set_imgh>> src="images/beast/zoo/z6.jpg"></center>'
  141. 'You take the dogs dick in your hand and begin to masturbate, after a few minutes you dog cums in your hand.'
  142. gs 'arousal', 'hj', 10, 'beast'
  143. gs 'arousal', 'end'
  144. gs 'stat'
  145. act 'Finish':gt 'bedr'
  146. end
  147. act 'Suck the dog':
  148. cla
  149. *clr
  150. swallow += 1
  151. husband -= 40
  152. gs 'cum_call', 'mouth', $namesob, 1, 0, -1, 60
  153. '<center><img <<$set_imgh>> src="images/beast/zoo/z7.jpg"></center>'
  154. 'You lay the dog on the floor and take his cock in my mouth, your husband looks at you with disgust as you suck the dogs cock.'
  155. 'In a couple of minutes the dog cums in your mouth and you swallow his sperm.'
  156. '"Well, you''re a pervert, " your husband says with obvious distaste.'
  157. gs 'arousal', 'bj', 10, 'beast'
  158. gs 'arousal', 'end'
  159. gs 'stat'
  160. act 'Finish':gt 'bedr'
  161. end
  162. act 'Finish':gt 'bedr'
  163. end
  164. end
  165. end
  166. elseif harakHusb = 2:
  167. '"Your dog is completely out of control, take it out onto the street, bitch, and then kill it." your husband says.'
  168. '"I can not do it myself." you reply.'
  169. if izvratH = 0:
  170. pcs_mood -= 15
  171. pcs_willpwr -= 15
  172. '<<$husName>> tries shooing your dog away, but it growls and bares his teeth, so he kicks the <<$namesob>> with all his might.'
  173. 'Your dogs ribs are shattered and screeching he crawls into a corner, your husband follows and kicks it even harder.'
  174. 'Seeing his condition, goto your dog and cradle his head and close your eyes. A few minutes later your dog is dead.'
  175. '"There''s nothing you can do for your freak dog now." says <<$husName>>. Opening your eyes you see a dead dog in a pool of blood.'
  176. '"Well, I don''t know about you, but there''s not much point keep a dead dog. I''ll get rid of him." he takes the dog, wraps it in a sheet and goes out.'
  177. 'While he is gone you have some time to scour the blood from the floor.'
  178. act 'Finish':
  179. sobaka = 0
  180. killvar '$petID'
  181. zoo = 0
  182. gt 'bedr'
  183. end
  184. elseif izvratH = 1:
  185. '"What do you mean I can not? Do you like the way he licks you?!" shouts <<$husName>>.'
  186. '"No, of course not," you begin to make excuses.'
  187. '"I can see you dirty whore, your pussy all wet, you think I don''t see? It would be polite to thank him, " he says.'
  188. 'Seeing your lack of comprehension continues, "Well, go on suck his dick."'
  189. act 'Suck dogs dick':
  190. cla
  191. *clr
  192. '<center><img <<$set_imgh>> src="images/beast/zoo/z4.jpg"></center>'
  193. '<<$husName>> grabs the dog by the collar, pushes you to the floor and guides the dog on top of you.'
  194. 'With the dogs ersct penis right in front of your mouth, you realise you have no choice and start sucking.'
  195. 'Your husband, watching you and cheers saying that the dog loves your mouth. Soon he is bored just watching, he dropped his pants says "Spread your legs."'
  196. gs 'arousal', 'bj', 10, 'beast', 'sub'
  197. gs 'stat'
  198. act 'Spread your legs':
  199. *clr & cla
  200. suprdolg += 1
  201. gs 'cum_call', '', $HusID
  202. '<center><img <<$set_imgh>> src="images/beast/zoo/z5.jpg"></center>'
  203. 'You obediently spread your legs and your husband enters your pussy, he makes you keep sucking the dog.'
  204. 'You are not gaining any pleasure from this. Soon your husband cums and says "<<$namesob>> hasn''t finished yet, are you not trying? Fine, Present your ass!."'
  205. gs 'arousal', 'bj', 10, 'beast'
  206. gs 'boyStat', $HusID
  207. gs 'arousal', 'vaginal', 10, 'sub'
  208. gs 'stat'
  209. act 'Offer your ass':
  210. *clr & cla
  211. analorgasm += 1
  212. gs 'cum_call', 'anus', $namesob, 1, 0, -1, 60
  213. '<center><img <<$set_imgh>> src="images/beast/zoo/z8.jpg"></center>'
  214. 'You get on your knees and the dog immediately jumps on you. With one hand you spread your buttocks, and the other guides the dogs cock into your ass.'
  215. 'Finding your hole the dog quickly enters and fucks your ass. Your husband watches, "Go on you whore."'
  216. 'The sensation from the dog fucking your ass is driving you to orgasm, as it hits, your legs give out and you''re no longer able to stand.'
  217. 'The dog twitces and spews his seed in your ass. Spent, <<$namesob>> leaves satisfied.'
  218. gs 'arousal', 'anal', 10, 'beast'
  219. gs 'arousal', 'end'
  220. gs 'stat'
  221. act 'Finish':gt 'bedr'
  222. end
  223. end
  224. end
  225. end
  226. end
  227. else
  228. gt 'bed1', 'sogn'
  229. end
  230. else
  231. gt 'bed1', 'sogn'
  232. end
  233. end
  234. end
  235. if $ARGS[0] = 'sog2':
  236. *clr & cla
  237. menu_off = 1
  238. gs 'boyStat', $petID
  239. '<center><img <<$set_imgh>> src="images/beast/zoo/sog.jpg"></center>'
  240. 'You take <<$namesob>>s penis in your hand and start masturbating him.'
  241. gs 'arousal', 'hj', 10, 'beast'
  242. gs 'stat'
  243. act 'Take in your mouth':gt 'bed1', 'sog3'
  244. act 'Spread your legs':gt 'bed1', 'sog4'
  245. end
  246. if $ARGS[0] = 'sog3':
  247. *clr & cla
  248. menu_off = 1
  249. '<center><img <<$set_imgh>> src="images/beast/zoo/sog1.jpg"></center>'
  250. 'You greedily swallow <<$namesob>>s dick.'
  251. gs 'arousal', 'bj', 10, 'beast'
  252. gs 'stat'
  253. act 'Spread your legs':gt 'bed1', 'sog4'
  254. end
  255. if $ARGS[0] = 'sog4':
  256. *clr & cla
  257. menu_off = 1
  258. gs 'cum_call', '', $namesob, 1, 0, -1, 60
  259. '<center><img <<$set_imgh>> src="images/beast/zoo/sog2.jpg"></center>'
  260. 'You open your legs and <<$namesob>> fucks your pussy'
  261. 'Finally the dog ends inside you'
  262. gs 'arousal', 'vaginal', 10, 'beast'
  263. gs 'arousal', 'end'
  264. gs 'stat'
  265. act 'Hug the dog and sleep':gt 'bed2'
  266. end
  267. if $ARGS[0] = 'fin':
  268. cla
  269. menu_off = 1
  270. gt $loc, $metka
  271. !!savegame 'avtosave.sav'
  272. !!if home_owned[1] = 1 and housrA = 1:
  273. !! if $clothingworntype = 'nude':
  274. !! $nude = 'In the corridor'
  275. !! else
  276. !! $nude = 'Get dressed'
  277. !! end
  278. !! housrA = 0
  279. !! gt 'bedr'
  280. !!end
  281. end
  282. --- bed1 ---------------------------------