1
0

drugs.qsrc 8.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260
  1. # drugs
  2. !! How to use:
  3. !! Smoking: gs 'drugs', 'smoke' (if it isn''t svetas cigarette, you have to add siga += 1)
  4. !! Joint/Weed: gs 'drugs', 'joint' (if it isn''t svetas joint, you have to add joint += 1)
  5. !! Heroin: gs 'drugs', 'heroin'
  6. !! Cocaine: gs 'drugs', 'cocaine' (if it isn''t svetas cocaine, you have to add dur += 1)
  7. !! Amphetamine: gs 'drugs', 'amphetamine' (if it isn''t svetas amphetamine, you have to add amphetamine += 1)
  8. !! Neurobooster: gs 'drugs', 'mentats' (if it isn''t svetas mentats, you have to add mentats_have += 1)
  9. !! Aphrodisiac: gs 'drugs', 'aphrodisiac' (if it isn''t svetas aphrodisiac, you have to add aphrodisiac_have += 1)
  10. !! Alcohol: gs 'drugs', 'alcohol', 'type', count
  11. !! Types: beer, champagne, moonshine, rum, scotch, vodka, wine, whiskey
  12. !! Count: Number of drinks of the chosen type sveta drinks (if the number is 1, you don''t have add the count, but it isn''t a problem if you do)
  13. !! Example 1: sveta drinks vodka gs 'drugs', 'alcohol', 'vodka' (or gs 'drugs', 'alcohol', 'vodka', 1)
  14. !! Example 2: sveta drinks 2 beer gs 'drugs', 'alcohol', 'beer', 2
  15. if $ARGS[0] = 'smoke':
  16. if NarkImmune = 0:
  17. smoker += 1
  18. if smoker > 20 and smoke_exp = 0: smoke_exp = 1
  19. end
  20. siga -= 1
  21. smokeDay = daystart
  22. smokeHour = hour
  23. smokeminut = minut + 3
  24. smokerNeed = 0
  25. cumspclnt = 2
  26. gs 'cum_cleanup'
  27. pcs_breath = 0
  28. pcs_mood += 100
  29. wipo += 100
  30. if pcs_hydra >= 100:
  31. pcs_hydra -= 5
  32. else
  33. pcs_hydra -= 10
  34. end
  35. if pcs_energy < 80: pcs_energy += 4
  36. gs 'stat'
  37. elseif $ARGS[0] = 'joint':
  38. minut += 10
  39. if NarkImmune = 0:
  40. joint_smoked += 1
  41. if joint_smoked > 5 and joint_exp = 0: joint_exp = 1
  42. end
  43. joint -= 1
  44. jointday = daystart
  45. jointhour = hour
  46. jointminut = minut + 2
  47. if minut > 30:
  48. jointhigh = 2
  49. else
  50. jointhigh = 1
  51. end
  52. cumspclnt = 2
  53. gs 'cum_cleanup'
  54. pcs_breath = 0
  55. pcs_mood += 100
  56. if pcs_hydra >= 100:
  57. pcs_hydra -= 5
  58. else
  59. pcs_hydra -= 10
  60. end
  61. if pcs_energy > 20:
  62. pcs_energy -= 20
  63. else
  64. pcs_energy = 0
  65. end
  66. gs 'stat'
  67. elseif $ARGS[0] = 'heroin':
  68. if NarkImmune = 0:
  69. SNarkTimes += 1
  70. if SNarkTimes > 1 and heroin_exp = 0: heroin_exp = 1
  71. end
  72. StrongNarkota += 25
  73. narkozakday = day
  74. pcs_mood = 100
  75. pcs_health -= 10
  76. gs 'stat'
  77. elseif $ARGS[0] = 'cocaine':
  78. if NarkImmune = 0:
  79. cocaine_count += 1
  80. if cocaine_count > 3 and cocaine_exp = 0: cocaine_exp = 1
  81. end
  82. dur -= 1
  83. pcs_health = pcs_vital * 10 + pcs_stren * 5
  84. if willday_cocaine ! daystart: willday_cocaine = daystart & pcs_willpwr += 10
  85. pcs_mood = 100
  86. pcs_horny = 100
  87. nark += 10
  88. gs 'stat'
  89. elseif $ARGS[0] = 'amphetamine':
  90. if NarkImmune = 0:
  91. amphetamine_count += 1
  92. if amphetamine_count > 5 and amphetamine_exp = 0: amphetamine_exp = 1
  93. end
  94. if amphIntake < 2:
  95. '<font color= blue>You swallow the white pill.</font>'
  96. amphIntake += 1
  97. amphetamine -=1
  98. amphHigh = 12
  99. else
  100. 'Your heart is already beating uncontrollably in your chest, you should avoid taking anymore pills.'
  101. end
  102. gs 'stat'
  103. elseif $ARGS[0] = 'alcohol':
  104. if NarkImmune = 0:
  105. alcohol_count += 1
  106. if alcohol_count > 15 and alcohol_exp = 0: alcohol_exp = 1
  107. end
  108. if ARGS[2] <= 1:
  109. alc_count = 1
  110. else
  111. alc_count = ARGS[2]
  112. end
  113. :alcohol_jump
  114. alc_count -= 1
  115. frost = 0
  116. pcs_health -= 5
  117. pcs_energy -= 5
  118. cumspclnt = 2
  119. gs 'cum_cleanup'
  120. pcs_breath = 0
  121. if $ARGS[1] = 'beer':
  122. if alko_trait = -1:
  123. alko += rand(1,2)
  124. elseif alko_trait = 1:
  125. alko += rand(0,1)
  126. else
  127. alko += 1
  128. end
  129. fat += 3
  130. pcs_mood += 10
  131. if pcs_hydra >= 100:
  132. pcs_hydra += 5
  133. else
  134. pcs_hydra += 10
  135. end
  136. alko_trait_day += 1
  137. elseif $ARGS[1] = 'wine' or $ARGS[1] = 'champagne':
  138. if alko_trait = -1:
  139. alko += 3
  140. elseif alko_trait = 1:
  141. alko += 1
  142. else
  143. alko += 2
  144. end
  145. fat += 4
  146. pcs_mood += 20
  147. if pcs_hydra >= 100:
  148. pcs_hydra += 5
  149. else
  150. pcs_hydra += 10
  151. end
  152. alko_trait_day += 2
  153. elseif $ARGS[1] = 'vodka' or $ARGS[1] = 'whiskey' or $ARGS[1] = 'scotch' or $ARGS[1] = 'rum':
  154. if alko_trait = -1:
  155. alko += rand(4,5)
  156. elseif alko_trait = 1:
  157. alko += rand(1,2)
  158. else
  159. alko += 3
  160. end
  161. fat += 6
  162. if pcs_hydra >= 100:
  163. pcs_hydra -= 5
  164. else
  165. pcs_hydra -= 10
  166. end
  167. alko_trait_day += 3
  168. elseif $ARGS[1] = 'moonshine':
  169. if alko_trait = -1:
  170. alko += rand(7,8)
  171. elseif alko_trait = 1:
  172. alko += rand(2,3)
  173. else
  174. alko += 5
  175. end
  176. fat += 6
  177. if pcs_hydra >= 100:
  178. pcs_hydra -= 5
  179. else
  180. pcs_hydra -= 10
  181. end
  182. alko_trait_day += 5
  183. else
  184. '<br><font color = red>Developer note: The type of alcohol is missing in this scene. Please report this and a small part of the text of the current scene as a bug.</font>'
  185. end
  186. if alc_count > 0: jump 'alcohol_jump'
  187. killvar 'alc_count'
  188. gs 'stat'
  189. elseif $ARGS[0] = 'mentats':
  190. mentats_dose += 1
  191. mentats_have -= 1
  192. elseif $ARGS[0] = 'aphrodisiac':
  193. if aphrodisiac_overdose = 1:
  194. $aphrodisiac_msg = '<br>You''ve had enough aphrodisiac for today.'
  195. elseif aphrodisiac_timer = 0:
  196. $aphrodisiac_msg = '<font color = #DB7093><br>You take a gum and chew it. It tastes like strawberry, but is also kind of spicy.</font>'
  197. aphrodisiac_have -= 1
  198. aphrodisiac_timer += 8
  199. pcs_horny = 80
  200. elseif aphrodisiac_timer > 0 and aphrodisiac_timer <= 8:
  201. $aphrodisiac_msg = '<font color = #DB7093><br>You take another gum and chew it. It makes your mouth feel kinda tingly.</font>'
  202. aphrodisiac_have -= 1
  203. aphrodisiac_timer += 8
  204. pcs_horny = 100
  205. elseif aphrodisiac_timer > 8 and min_arousal < 60:
  206. $aphrodisiac_msg = '<font color = red><b><br>You take yet another gum and start chewing it. Suddenly you find yourself in grip of an intense orgasm!<br>It goes on and on and you sink to the ground and do your best to endure it.</b></font>'
  207. aphrodisiac_have -= 1
  208. orgasm += 1
  209. pcs_mood = 100
  210. min_arousal += 10
  211. aphrodisiac_overdose = 1
  212. if min_arousal = 10:
  213. pcs_horny = min_arousal
  214. $min_arousal_msg = '<font color = #DB7093>That was intense! You can still feel the tingles.</font>'
  215. elseif min_arousal = 20:
  216. pcs_horny = min_arousal
  217. $min_arousal_msg = '<font color = #DB7093>You are really starting to enjoy these! Your crotch still feels kinda hot though.</font>'
  218. elseif min_arousal = 30:
  219. pcs_horny = min_arousal
  220. $min_arousal_msg = '<font color = #DB7093>As you are trying to get back to your feet you notice that you are still horny. What is happening to you?</font>'
  221. elseif min_arousal = 40:
  222. pcs_horny = min_arousal
  223. $min_arousal_msg = '<font color = #DB7093>You are certain of it. Every time those gums give you an orgasm they also increase your libido.</font>'
  224. elseif min_arousal = 50:
  225. pcs_horny = min_arousal
  226. $min_arousal_msg = '<font color = #DB7093>You run a finger across your slit and shudder. You really should stop chewing these gums while you can still think of something other than sex.</font>'
  227. elseif min_arousal = 60:
  228. pcs_horny = min_arousal
  229. $min_arousal_msg = '<font color = #DB7093>You are burning up. You feel like you could fuck anything and everything all day long.</font>'
  230. end
  231. else
  232. $aphrodisiac_msg = '<font color = #DB7093>You chew another gum with trepidation, looking forward to more orgasms but nothing happens. Huh. Have you become immune?</font>'
  233. aphrodisiac_have -= 1
  234. end
  235. else
  236. '<br><font color = red>Developer note: The type of drug is wrong or missing in this scene. Please report this and a small part of the text of the current scene as a bug.</font>'
  237. end
  238. !!Addictive Personality Trait
  239. if addictive_cheat = 0:
  240. addictive_exp = smoke_exp + joint_exp + heroin_exp + cocaine_exp + alcohol_exp + amphetamine_exp
  241. if addictive_exp = 2 and addictive_trait_lvl < 1:
  242. addictive_trait_lvl = 1
  243. if add_trait_msg_1 = 0: add_trait_msg_1 = 1 & msg 'You have gained the trait ''Addicitive Personality''.'
  244. elseif addictive_exp = 3 and addictive_trait_lvl < 2:
  245. addictive_trait_lvl = 2
  246. if add_trait_msg_2 = 0: add_trait_msg_2 = 1 & msg 'You have increased the level of your ''Addicitive Personality'' trait to 2.'
  247. elseif addictive_exp >= 4 or (heroin_exp = 1 and cocaine_exp = 1) and addictive_trait_lvl < 3:
  248. addictive_trait_lvl = 3
  249. if add_trait_msg_3 = 0: add_trait_msg_3 = 1 & msg 'You have increased the level of your ''Addicitive Personality'' trait to 3.'
  250. end
  251. end
  252. --- drugs ---------------------------------