1
0

sexorg 3.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159
  1. # sexorg
  2. if $ARGS[0] = 'start':
  3. cla
  4. *clr
  5. gs 'stat'
  6. set picrand = rand(0, 1)
  7. set minut += 30
  8. set sweat += 1
  9. gt 'sexorg', 'var'
  10. end
  11. if $ARGS[0] = 'var':
  12. set sexorgrand = rand(0, 6)
  13. if sexorgrand = 0:
  14. cla
  15. *clr
  16. set horny += 10
  17. if orsxbj = 0:
  18. set bj += 1
  19. set orsxbj = 1
  20. end
  21. set sexvar += 1
  22. '<center><img src="images/img/sexorg/minet<<picrand>>.jpg"></center>'
  23. 'You two suck his cock, then take turns licking it with his dildo, touching tongues.'
  24. act 'More':gt 'sexorg', 'var'
  25. if sexvar >= 3:act 'Finish.':gt 'sexorg', 'end'
  26. end
  27. if sexorgrand = 1:
  28. cla
  29. *clr
  30. set horny += 10
  31. set sexvar += 1
  32. '<center><img src="images/img/sexorg/vag<<picrand>>.jpg"></center>'
  33. 'While she enjoys her pussy in a member, you also find yourself iteresnoe employment.'
  34. act 'More':gt 'sexorg', 'var'
  35. if sexvar >= 3:act 'Finish.':gt 'sexorg', 'end'
  36. end
  37. if sexorgrand = 2:
  38. cla
  39. *clr
  40. set horny += 10
  41. if orsxsex = 0:
  42. set sex += 1
  43. set orsxsex = 1
  44. end
  45. set sexvar += 1
  46. '<center><img src="images/img/sexorg/uvag<<picrand>>.jpg"></center>'
  47. 'He comes into you, his cock moving inside your pussy bringing you pleasure, this time she did not lose too found something to do.'
  48. act 'More':gt 'sexorg', 'var'
  49. if sexvar >= 3:act 'Finish.':gt 'sexorg', 'end'
  50. end
  51. if sexorgrand = 3:
  52. cla
  53. *clr
  54. set horny += 10
  55. set sexvar += 1
  56. '<center><img src="images/img/sexorg/anal<<picrand>>.jpg"></center>'
  57. 'Do you like the sight of his cock in her ass and sweet until she yells trying to absorb all of it, too, you did not get lost.'
  58. act 'More':gt 'sexorg', 'var'
  59. if sexvar >= 3:act 'Finish.':gt 'sexorg', 'end'
  60. end
  61. if sexorgrand = 4:
  62. cla
  63. *clr
  64. set horny += 10
  65. if orsxanal = 0:
  66. set anal += 1
  67. set pdsxanal = 1
  68. end
  69. '<center><img src="images/img/sexorg/uanal<<picrand>>.jpg"></center>'
  70. 'When he enters you in the anus you hurt a little, but soon the pain goes away and its place is taken by a pleasant feeling, while his moving dildo in your ass it is not sitting idly by.'
  71. act 'More':gt 'sexorg', 'var'
  72. if sexvar >= 3:act 'Finish.':gt 'sexorg', 'end'
  73. end
  74. if sexorgrand = 5:
  75. cla
  76. *clr
  77. set horny += 10
  78. if orsxbj = 0:
  79. set bj += 1
  80. set orsxbj = 1
  81. end
  82. if orsxsex = 0:
  83. set sex += 1
  84. set orsxsex = 1
  85. end
  86. if orsxanal = 0:
  87. set anal += 1
  88. set orsxanal = 1
  89. end
  90. '<center><img src="images/img/sexorg/udp<<picrand>>.jpg"></center>'
  91. 'Two men enter into you and you moan with pleasure feeling both dildo move inside.'
  92. act 'More':gt 'sexorg', 'var'
  93. if sexvar >= 3:act 'Finish.':gt 'sexorg', 'end'
  94. end
  95. if sexorgrand = 6:
  96. cla
  97. *clr
  98. set horny += 10
  99. set sexvar += 1
  100. '<center><img src="images/img/sexorg/dp<<picrand>>.jpg"></center>'
  101. 'When they enter into it as a couple you get a little jealous seeing how she enjoys.'
  102. act 'More':gt 'sexorg', 'var'
  103. if sexvar >= 3:act 'Finish.':gt 'sexorg', 'end'
  104. end
  105. end
  106. if $ARGS[0] = 'end':
  107. cla
  108. *clr
  109. set orsxbj = 0
  110. set orsxsex = 0
  111. set orsxanal = 0
  112. set sexvar = 0
  113. set cumlip = 1
  114. if horny >= 80:
  115. set horny = 0
  116. set orgasm += 1
  117. end
  118. '<center><img src="images/img/sexorg/cum<<picrand>>.jpg"></center>'
  119. 'They came, and you lick the cum off each other.'
  120. act 'Leave':gt $sexloc, 'start'
  121. end
  122. --- sexorg ---------------------------------