bed1 12 KB

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