0
0

128_paysex 2.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128
  1. # paysex
  2. if $ARGS[0] = 'start':
  3. set picrand = rand(0, 1)
  4. set minut += 30
  5. set gang += 1
  6. set sweat += 1
  7. gt 'paysex', 'var'
  8. end
  9. if $ARGS[0] = 'var':
  10. set paysexrand = rand(0, 2)
  11. set colpaysex += 1
  12. if paysexrand = 0:
  13. cla
  14. *clr
  15. set horny += 10
  16. if paysxbj = 0:
  17. set bj += 1
  18. set paysxbj = 1
  19. end
  20. if paysxsex = 0:
  21. set sex += 1
  22. set paysxsex = 1
  23. end
  24. set SUB += 1
  25. '<center><img src="images/img/paysex/vag<<picrand>>.jpg"></center>'
  26. 'While one guy fucks your pussy, you sucked the rest.'
  27. act 'More':gt 'paysex', 'var'
  28. if colpaysex > 3:
  29. act 'Finish.':gt 'paysex', 'end'
  30. end
  31. end
  32. if paysexrand = 1:
  33. cla
  34. *clr
  35. set horny += 10
  36. if paysxbj = 0:
  37. set bj += 1
  38. set paysxbj = 1
  39. end
  40. if paysxanal = 0:
  41. set anal += 1
  42. set paysxanal = 1
  43. end
  44. set SUB += 1
  45. '<center><img src="images/img/paysex/anal<<picrand>>.jpg"></center>'
  46. 'While one guy fucks you in the ass, you sucked the rest.'
  47. act 'More':gt 'paysex', 'var'
  48. if colpaysex > 3:
  49. act 'Finish.':gt 'paysex', 'end'
  50. end
  51. end
  52. if paysexrand = 2:
  53. cla
  54. *clr
  55. set horny += 10
  56. if paysxbj = 0:
  57. set bj += 1
  58. set paysxbj = 1
  59. end
  60. if paysxsex = 0:
  61. set sex += 1
  62. set paysxsex = 1
  63. end
  64. if paysxanal = 0:
  65. set anal += 1
  66. set paysxanal = 1
  67. end
  68. '<center><img src="images/img/paysex/dp<<picrand>>.jpg"></center>'
  69. 'Fuck you in all the cracks.'
  70. act 'More':gt 'paysex', 'var'
  71. if colpaysex > 3:
  72. act 'Finish.':gt 'paysex', 'end'
  73. end
  74. end
  75. end
  76. if $ARGS[0] = 'end':
  77. cla
  78. *clr
  79. set paysxbj = 0
  80. set paysxsex = 0
  81. set paysxanal = 0
  82. set colpaysex = 0
  83. set cumbelly = 1
  84. set cumpussy = 1
  85. set cumass = 1
  86. set cumlip = 1
  87. set cumface = 1
  88. if horny >= 80:
  89. set horny = 0
  90. set orgasm += 1
  91. end
  92. '<center><img src="images/img/paysex/cum<<picrand>>.jpg"></center>'
  93. 'When they were satisfied that you have filled in all his sperm.'
  94. act 'Leave':
  95. if picrand = 16 or picrand = 17:gt 'office', 'work'
  96. if picrand = 18:gt 'husbSex', 'dolgend'
  97. gt $sexloc, 'start'
  98. end
  99. end
  100. --- paysex ---------------------------------