1
0

Military.qsrc 8.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282
  1. # Military
  2. if $ARGS[0] = 'start':
  3. CLOSE ALL
  4. $loc_arg = $ARGS[0]
  5. $loc = 'Military'
  6. $sexloc = 'Military'
  7. $menu_loc = 'Military'
  8. $menu_arg = 'start'
  9. menu_off = 0
  10. $location_type = 'public_outdoors'
  11. gs 'stat'
  12. '<center><b><font color="maroon">Army Camp</font></b></center>'
  13. '<center><img <<$set_imgh>> src="images/locations/city/shared/military/military.jpg"></center>'
  14. 'A small city with a lot of tents and full of people, a lot of soldiers are running around with guns, training.'
  15. act 'Work in the infirmary':
  16. cla
  17. menu_off = 1
  18. minut += 60
  19. sanrand = rand(0, 10)
  20. medcn_exp += rand (0,2)
  21. gs 'stat'
  22. if sanrand = 0:gt 'Military', 'san0'
  23. if sanrand = 1:gt 'Military', 'san1'
  24. 'You are working in the infirmary.'
  25. act 'Leave':gt 'Military', 'start'
  26. end
  27. act 'Go to your tent':gt 'Palatka', 'start'
  28. act 'Take a walk in the woods':
  29. cls
  30. menu_off = 1
  31. '<center><img <<$set_imgh>> src="images/locations/city/shared/military/woman_forest.jpg"></center>'
  32. minut += 60
  33. milprorand = rand(0, 10)
  34. gs 'stat'
  35. 'You walk for a while in the forest.'
  36. if milprorand = 0:gt 'Military', 'pro0'
  37. if milprorand = 1:gt 'Military', 'pro1'
  38. act 'Finish':gt 'Military', 'start'
  39. end
  40. act 'Get some food and drink from the mess hall':gs 'food', 'm_meal'
  41. if week < 6 or week = 7 and hour >= 18:
  42. cla
  43. minut += 60
  44. money += 5000
  45. act 'Go back to town':gt 'city_residential'
  46. end
  47. end
  48. if $ARGS[0] = 'san0':
  49. $location_type = 'event'
  50. menu_off = 1
  51. cla
  52. *clr
  53. gs 'npcgeneratec', 0, 'soldier', rand(18,30)
  54. gs 'boyStat', $npclastgenerated
  55. '<center><img <<$set_imgh>> src="images/locations/city/shared/military/sex/san0.jpg"></center>'
  56. 'During the examination, the patient shows you his erection and looks at you with anticipation.'
  57. gs 'willpower', 'bj', 'resist'
  58. if will_cost <= pcs_willpwr:
  59. act 'Drive him away (<<will_cost>> Willpower)':
  60. gs 'willpower', 'bj', 'resist'
  61. gs 'willpower', 'pay', 'resist'
  62. gs 'stat'
  63. gt 'Military', 'start'
  64. end
  65. else
  66. act 'Drive him away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  67. end
  68. act 'Play along':
  69. guy += 1
  70. picrand = 41
  71. sexpartkno = 1
  72. gt 'sex', 'minet'
  73. end
  74. end
  75. if $ARGS[0] = 'san1':
  76. $location_type = 'event'
  77. menu_off = 1
  78. cla
  79. *clr
  80. gs 'npcgeneratec', 0, 'army doctor', rand(22,32)
  81. gs 'boyStat', $npclastgenerated
  82. '<center><img <<$set_imgh>> src="images/locations/city/shared/military/sex/san1.jpg"></center>'
  83. 'While the infirmary is unoccupied, the doctor begins to molest you.'
  84. gs 'willpower', 'bj', 'resist'
  85. if will_cost <= pcs_willpwr:
  86. act 'Drive him away (<<will_cost>> Willpower)':
  87. gs 'willpower', 'bj', 'resist'
  88. gs 'willpower', 'pay', 'resist'
  89. gs 'stat'
  90. gt 'Military', 'start'
  91. end
  92. else
  93. act 'Drive him away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  94. end
  95. act 'Play along':
  96. guy += 1
  97. picrand = 42
  98. sexpartkno = 1
  99. gt 'sex', 'minet'
  100. end
  101. end
  102. if $ARGS[0] = 'pro0':
  103. $location_type = 'event'
  104. menu_off = 1
  105. cla
  106. 'You met two soldiers whom ask you to help them out with a war game, in the role of a captive spy.'
  107. gs 'willpower', 'gangbang', 'resist'
  108. if will_cost <= pcs_willpwr:
  109. act 'Refuse (<<will_cost>> Willpower)':
  110. gs 'willpower', 'gangbang', 'resist'
  111. gs 'willpower', 'pay', 'resist'
  112. gs 'stat'
  113. gt 'Military', 'start'
  114. end
  115. else
  116. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  117. end
  118. act 'Agree':
  119. gs 'npcgeneratec', 0, 'Soldier', rand(18,34)
  120. gs 'boyStat', $npclastgenerated
  121. $boy[0] = $boy
  122. gs 'npcgeneratec', 0, 'Soldier', rand(18,34)
  123. $boy[1] = $npclastgenerated
  124. cla
  125. *clr
  126. '<center><img <<$set_imgh>> src="images/locations/city/shared/military/sex/pro0.jpg"></center>'
  127. 'Your hands are tied and you are led to the headquarters where they set up an interrogation, then with the words "Now the interrogation begins!", they pull out their cocks. That''s what you get for allowing two burly men you do not even know to bind your hands.'
  128. act 'Submit':
  129. guy += 2
  130. SUB += 1
  131. picrand = 21
  132. sexpartkno = 1
  133. xgt 'sexdvoe', 'var'
  134. end
  135. end
  136. end
  137. if $ARGS[0] = 'pro1':
  138. $location_type = 'event'
  139. menu_off = 1
  140. cla
  141. 'You notice that a guy follows you for several minutes.'
  142. act 'Ignore it':gt 'military', 'rape'
  143. gs 'willpower', 'rape', 'resist'
  144. if will_cost <= pcs_willpwr:
  145. act 'Run away (<<will_cost>> Willpower)':
  146. gs 'willpower', 'rape', 'resist'
  147. gs 'willpower', 'pay', 'resist'
  148. gs 'stat'
  149. '<center><img <<$set_imgh>> src="images/locations/city/shared/military/forest_running.jpg"></center>'
  150. if pcs_run < 10:
  151. peshimraperand = rand(0, 11)
  152. elseif pcs_run < 20:
  153. peshimraperand = rand(0, 20)
  154. elseif pcs_run < 30:
  155. peshimraperand = rand(0, 30)
  156. elseif pcs_run < 40:
  157. peshimraperand = rand(0, 40)
  158. elseif pcs_run < 50:
  159. peshimraperand = rand(0, 50)
  160. elseif pcs_run < 60:
  161. peshimraperand = rand(0, 60)
  162. elseif pcs_run < 70:
  163. peshimraperand = rand(0, 70)
  164. elseif pcs_run < 80:
  165. peshimraperand = rand(0, 80)
  166. elseif pcs_run < 90:
  167. peshimraperand = rand(0, 90)
  168. else
  169. peshimraperand = rand(11, 100)
  170. end
  171. if peshimraperand < 11:
  172. cla
  173. 'You tried to run away but the guy caught you.'
  174. act 'Continue':gt 'military', 'rape'
  175. else
  176. cla
  177. 'You are rushing headlong, crashing through the bushes. Finally you ran back to the camp.'
  178. act 'Continue':gt 'military', 'start'
  179. end
  180. end
  181. else
  182. act 'Run away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  183. end
  184. end
  185. if $ARGS[0] = 'rape':
  186. gs 'npcgeneratec', 0, 'rapist', rand(18,30)
  187. gs 'boyStat', $npclastgenerated
  188. menu_off = 1
  189. cla
  190. *clr
  191. rape += 1
  192. guy += 1
  193. 'You suddenly feel a blow on the back of your head, and lose conciousness.'
  194. '...'
  195. '<center><img <<$set_imgh>> src="images/locations/city/shared/military/sex/rape1.jpg"></center>'
  196. '...'
  197. 'You woke up in a barn with a bag on your head, so you can''t see anything. You also have a headache from the impact to your head, and a leash around your neck.'
  198. act 'Shout':
  199. cla
  200. *clr
  201. '<center><img <<$set_imgh>> src="images/locations/city/shared/military/sex/rape2.jpg"></center>'
  202. 'You began to cry for help, when a dick is stuffed in your mouth.'
  203. '"Here''s something to shut your mouth", came the voice of a rapist.'
  204. 'You tried to spit it out, but it''s getting worse as he thrust it down your throat, and began to throatfuck you.'
  205. gs 'arousal', 'bj', 5, 'sub', 'rough'
  206. gs 'stat'
  207. act 'Continue':
  208. cla
  209. *clr
  210. cumprecheck = 1
  211. gs 'cum_manage'
  212. '<center><img <<$set_imgh>> src="images/locations/city/shared/military/sex/rape3.jpg"></center>'
  213. 'When you are starting to lose consciousness choking on his cock, he takes it out of your mouth, pulls the baf from your head and throws you on a crate. He steps to you, forcing his dick into your vagina quite forcefully. Although you can see now, you still tied up to do effectively anything.'
  214. gs 'arousal', 'vaginal', 10, 'sub', 'rough'
  215. gs 'stat'
  216. act 'Continue':
  217. cla
  218. *clr
  219. '<center><img <<$set_imgh>> src="images/locations/city/shared/military/sex/rape4.jpg"></center>'
  220. 'When your pussy bored him, he turned you around and drove his cock into your ass. You cry out in pain, but he does not care and continues to fuck your ass as hard as he could. You cry and beg him to at least use some lubrication, but he just scowls in response. You pass out from the pain and shock.'
  221. gs 'arousal', 'anal', 10, 'sub', 'rough'
  222. gs 'stat'
  223. act 'Continue':
  224. cla
  225. *clr
  226. sexpartkno = 1
  227. spafinloc = 12
  228. gs 'cum_manage'
  229. pcs_makeup = 0
  230. minut += 240
  231. SUB += 5
  232. '<center><img <<$set_imgh>> src="images/locations/city/shared/military/sex/rape5.jpg"></center>'
  233. 'You do not know how much time passed since you fainted, but when you regain your concoiusness he''s pulling out of you. He pulls you to your knees and stuck his dick in your mouth, saying only a word, "Suck". You dutifully start to suck him off with your ass is brutally raped and in pain, wondering whether to bite it off, but before you could give it a second thought your rapist suddenly comes in your mouth. After this you are immediately knocked out again with a blow to your head.'
  234. gs 'arousal', 'end'
  235. gs 'stat'
  236. act 'Continue':gt 'military', 'start'
  237. end
  238. end
  239. end
  240. end
  241. end
  242. --- Military ---------------------------------