blowPR 4.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135
  1. # blowPR
  2. if $ARGS[0] = 'start':
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. cla
  6. clr
  7. *clr
  8. minut += 1
  9. guy += 1
  10. bj += 1
  11. throat += 1
  12. prosta += 1
  13. !!son -= 1
  14. zpprand = rand(0, 100)
  15. if zpprand >= 70:dynamic $venerasiak
  16. gs 'stat'
  17. '<center><img src="images/img/prost/bj.jpg"></center>'
  18. 'Your hand slid crotch guy and unzipped his pants. You shoved his hand into his pants and pulled out his cock.'
  19. if prezik > 0:act 'Wear a condom on the penis mouth.':gt 'blowPR', '1'
  20. if prezik = 0:act 'Mark cock in her mouth.':gt 'blowPR', '2'
  21. end
  22. if $ARGS[0] = '1':
  23. $metka = $ARGS[0]
  24. $loc = $CURLOC
  25. cla
  26. clr
  27. *clr
  28. minut += 5
  29. prezik -= 1
  30. gs 'stat'
  31. picrand = rand(1, 7)
  32. '<center><img src="images/img/prost/bjp<<picrand>>.jpg"></center>'
  33. 'You pulled his lips a condom on the penis'
  34. if prosti = 0:
  35. 'Your lips slide down the barrel client until he cums in a condom'
  36. act 'Leave.':gt $locSex, $metkaSex
  37. elseif prosti = 1:
  38. 'Client sufficiently warmed up and you can continue.'
  39. act 'Further.':gt 'NormPR', '1'
  40. elseif prosti = 2:
  41. 'Client sufficiently warmed up and you can continue.'
  42. act 'Further.':gt 'AnalPR', '1'
  43. end
  44. end
  45. if $ARGS[0] = '2':
  46. $metka = $ARGS[0]
  47. $loc = $CURLOC
  48. cla
  49. clr
  50. *clr
  51. dynamic $venerasiak
  52. minut += 5
  53. gs 'stat'
  54. picrand = rand(8, 13)
  55. '<center><img src="images/img/prost/bjp<<picrand>>jpg"></center>'
  56. 'You clasped lips member.'
  57. act 'Suck':gt 'blowPR', '12'
  58. end
  59. if $ARGS[0] = '12':
  60. $metka = $ARGS[0]
  61. $loc = $CURLOC
  62. *clr
  63. cla
  64. if prosti = 0:
  65. bjrand = rand(0, 100)
  66. if bj <= 15 and bjrand > 0 and bjrand <= 50:
  67. 'You clumsy movements suck dick customer until he cums in your mouth, making you wince from the unpleasant taste of sperm.'
  68. cumlip += 1
  69. '<center><img src="images/img/prost/bjm.jpg"></center>'
  70. act 'Leave.':gt $locSex, $metkaSex
  71. elseif bj > 15 and bjrand > 0 and bjrand <= 50:
  72. cumlip += 1
  73. '<center><img src="images/img/prost/bjm2.jpg"></center>'
  74. 'Your trained sponge glide up and down, bringing pleasure to the customer. Very soon you will feel the taste of his seed that you swallow with delight to the last drop.'
  75. act 'Leave.':gt $locSex, $metkaSex
  76. elseif bjrand > 50 and bjrand <= 80 and bj <= 15 and mop = 1:
  77. cumface += 1
  78. '<center><img src="images/img/prost/bjf.jpg"></center>'
  79. 'You clumsy movements suck dick client suddenly you he pulls his dick, ending on your face, you do not have time to blink, a little sperm gets you in the eye, but, despite the burning, you can not cry, you can only smile.'
  80. act 'Leave.':gt $locSex, $metkaSex
  81. elseif bjrand > 50 and bjrand <= 80 and bj <= 15 and mop > 1:
  82. cumface += 1
  83. mop = 0
  84. '<center><img src="images/img/prost/bjf.jpg"></center>'
  85. 'You clumsy movements suck dick client suddenly you he pulls his dick, ending on your face, you do not have time to blink, a little sperm gets you in the eye, but, despite the burning, you can not cry, you can only smile.'
  86. act 'Leave.':gt $locSex, $metkaSex
  87. elseif bjrand > 50 and bjrand <= 80 and bj > 15:
  88. cumface += 1
  89. '<center><img src="images/img/prost/bjf2.jpg"></center>'
  90. 'Your trained sponge glide up and down, bringing pleasure to the customer as soon as the client has released your mouth, you realize that your face is now flooded with sperm. You have time, tilt the head back with her eyes closed, heavy drops falling on your chin, forcing to smile at the thought of not smeared makeup.'
  91. act 'Leave.':gt $locSex, $metkaSex
  92. elseif bjrand > 80 and bjrand <= 100 and bj <= 15:
  93. cumfrot += 1
  94. '<center><img src="images/img/prost/bjt2.jpg"></center>'
  95. 'You clumsy movements suck dick client, it stretches hands to your chest trying to expose it. You moaned, letting him know that was not the deal. Dissatisfied client continued to have you in my mouth. You have already relaxed, as a client, pushing, pulled wet from saliva member. His eyes closed, you feel like a drop of sperm not fall on your face and chest! Surprised you open your eyes in horror when he saw in the semen-stained clothing, and pretty smiling customer.'
  96. act 'Leave.':gt $locSex, $metkaSex
  97. elseif bjrand > 80 and bjrand <= 100 and bj > 15:
  98. money += 500
  99. '<center><img src="images/img/prost/bjt.jpg"></center>'
  100. 'Your trained sponge glide up and down, bringing pleasure to the customer. He stretches his hands to your chest did not patiently trying to expose her, you understand everything without words. Exposing boobs you become even more carefully to work his mouth when he was already on the brink, you have stepped back sharply, slipping back with the member in a moment became a client shoot sperm on your carefully when substituted hemisphere. Left happy, he handed you another Piatihatki.'
  101. act 'Leave.':gt $locSex, $metkaSex
  102. end
  103. elseif prosti = 1:
  104. 'Client sufficiently warmed up and you can continue.'
  105. act 'Further.':gt 'NormPR', '2'
  106. elseif prosti = 2:
  107. 'Client sufficiently warmed up and you can continue.'
  108. act 'Further.':gt 'AnalPR', '2'
  109. end
  110. end
  111. --- blowPR ---------------------------------