selfPorno 4.2 KB

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