selfPorno 4.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220
  1. # selfPorno
  2. if $ARGS[0] = 'start':
  3. clr
  4. gs 'stat'
  5. 'You have spent <<selfPornVidTime>> minutes on your film and had <<videoOrgasm>> orgasms on camera.'
  6. if selfPornVidTime < 300:
  7. if nude ! 1:
  8. act 'Strip':dynamic $selfPorno_Strip
  9. end
  10. act 'Fondle Breasts':dynamic $selfPorno_Fondle
  11. if nude = 1:
  12. act 'Masturbate':dynamic $selfPorno_Masturbate
  13. end
  14. if nude = 1 and dildo > 0:
  15. act 'Masturbate with dildo':dynamic $selfPorno_Dildo
  16. end
  17. if nude = 1 and zoo >= 1:
  18. act 'Fuck your dog':dynamic $selfPorno_Dog
  19. end
  20. else
  21. 'You have spent over five hours on a single video, your done with it.'
  22. end
  23. if selfPornVidTime > 0 and DVDDisk > 0:act 'Finish Video and burn to disk':dynamic $selfPorno_Disk
  24. if selfPornVidTime > 0:act 'Finish Video and upload to site':dynamic $selfPorno_Finish
  25. act 'Leave webcam program':gt 'Komp', 'start'
  26. end
  27. $selfPorno_Strip = {
  28. cla
  29. *clr
  30. set nude = 1
  31. set odedosna = numdress
  32. set numdress = 0
  33. set selfPornVidTime += 5
  34. set minut += 5
  35. set selfPornVar += 5
  36. set horny += 5
  37. clr
  38. !!gs 'stat'
  39. 'You spent five minutes stripping erotically.'
  40. act 'Continue':gt 'selfPorno', 'start'
  41. }
  42. $selfPorno_Fondle = {
  43. cla
  44. *clr
  45. gs 'stat'
  46. set minut += 5
  47. if nude ! 1:
  48. set selfPornVidTime += 5
  49. set selfPornVar += 3
  50. set horny += 7
  51. clr
  52. 'You spent five minutes fondling your breasts through your clothes.'
  53. else
  54. set selfPornVidTime += 5
  55. set selfPornVar += 5
  56. set horny += 10
  57. clr
  58. 'You spent five minutes fondling your breasts.'
  59. end
  60. act 'Continue':gt 'selfPorno', 'start'
  61. }
  62. $selfPorno_Masturbate = {
  63. cla
  64. *clr
  65. gs 'stat'
  66. set selfPornVidTime += 10
  67. set minut += 10
  68. set mastr += 1
  69. set manna += 15
  70. set willpower += 15
  71. set horny += 10
  72. if horny <= 90:
  73. clr
  74. set selfPornVar += 5
  75. 'You spend ten minutes masturbating for the camera.'
  76. act 'Continue':gt 'selfPorno', 'start'
  77. else
  78. clr
  79. set videoOrgasm += 1
  80. set selfPornVar += 8
  81. 'You spend ten minutes masturbating for the camera and end up orgasming.'
  82. act 'Continue':gt 'selfPorno', 'start'
  83. end
  84. }
  85. $selfPorno_Dildo = {
  86. cla
  87. *clr
  88. gs 'stat'
  89. set selfPornVidTime += 10
  90. set minut += 10
  91. set mastr += 1
  92. set manna += 15
  93. set willpower += 15
  94. set horny += 15
  95. set selfPornVar += 5
  96. if horny <= 85:
  97. set selfPornVar += 10
  98. clr
  99. 'You spend ten minutes masturbating for the camera with a dildo.'
  100. act 'Continue':gt 'selfPorno', 'start'
  101. else
  102. clr
  103. set videoOrgasm += 1
  104. set selfPornVar += 15
  105. 'You spend ten minutes masturbating for the camera with a dildo and end up orgasming.'
  106. act 'Continue':gt 'selfPorno', 'start'
  107. end
  108. }
  109. $selfPorno_Dog = {
  110. cla
  111. *clr
  112. gs 'stat'
  113. set selfPornDogTime = rand(10, 25)
  114. set selfPornVidTime += selfPornDogTime
  115. set minut += selfPornDogTime
  116. set zoo += 1
  117. set manna += 15
  118. set willpower += 15
  119. set horny += 15
  120. set selfPornVar += selfPornDogTime
  121. if horny <= 85:
  122. set selfPornVar += 10
  123. clr
  124. 'You spend <<selfPornDogTime>> minutes having sex with your dog on camera.'
  125. act 'Continue':gt 'selfPorno', 'start'
  126. else
  127. set videoOrgasm += 1
  128. set selfPornVar += 15
  129. clr
  130. 'You spend <<selfPornDogTime>> minutes having sex with your dog on camera and end up orgasming.'
  131. act 'Continue':gt 'selfPorno', 'start'
  132. end
  133. }
  134. $selfPorno_Finish = {
  135. clr
  136. gs 'stat'
  137. set webcamday = day
  138. if selfPornVidTime >= 0 and selfPornVidTime < 20:
  139. set selfPornVidMoney = selfPornVar * 50 * videoOrgasm
  140. set minut += 10
  141. set selfPornVidTime = 0
  142. set selfPornVar = 0
  143. set videoOrgasm = 0
  144. set selfPornvid += 1
  145. cls
  146. 'You put together your video and upload it to a site'
  147. act 'Continue':gt 'Komp', 'start'
  148. end
  149. if selfPornVidTime >= 20 and selfPornVidTime < 120:
  150. set selfPornVidMoney = selfPornVar*100*videoOrgasm
  151. set minut += 10
  152. set selfPornVidTime = 0
  153. set selfPornVar = 0
  154. set videoOrgasm = 0
  155. set selfPornvid += 1
  156. cls
  157. 'You put together your video and upload it to a site'
  158. act 'Continue':gt 'Komp', 'start'
  159. end
  160. if selfPornVidTime >= 120:
  161. set selfPornVidMoney = selfPornVar*75*videoOrgasm
  162. set minut += 10
  163. set selfPornVidTime = 0
  164. set selfPornVar = 0
  165. set videoOrgasm = 0
  166. set selfPornvid += 1
  167. cls
  168. 'You put together your video and upload it to a site'
  169. act 'Continue':gt 'Komp', 'start'
  170. end
  171. }
  172. $selfPorno_Disk = {
  173. clr
  174. gs 'stat'
  175. set webcamday = day
  176. set DVDDisk -= 1
  177. set selfPornvidDVD += 1
  178. set minut += 10
  179. set selfPornVidTime = 0
  180. set selfPornVar = 0
  181. set videoOrgasm = 0
  182. 'You burned your porn video to a DVD.'
  183. act 'Continue':gt 'Komp', 'start'
  184. }
  185. --- selfPorno ---------------------------------