bed1.qsrc 12 KB

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