1
0

drugs.qsrc 7.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232
  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. alko += 1
  123. fat += 3
  124. pcs_mood += 10
  125. if pcs_hydra >= 100:
  126. pcs_hydra += 5
  127. else
  128. pcs_hydra += 10
  129. end
  130. elseif $ARGS[1] = 'wine' or $ARGS[1] = 'champagne':
  131. alko += 2
  132. fat += 4
  133. pcs_mood += 20
  134. if pcs_hydra >= 100:
  135. pcs_hydra += 5
  136. else
  137. pcs_hydra += 10
  138. end
  139. elseif $ARGS[1] = 'vodka' or $ARGS[1] = 'whiskey' or $ARGS[1] = 'scotch' or $ARGS[1] = 'rum':
  140. alko += 3
  141. fat += 6
  142. if pcs_hydra >= 100:
  143. pcs_hydra -= 5
  144. else
  145. pcs_hydra -= 10
  146. end
  147. elseif $ARGS[1] = 'moonshine':
  148. alko += 5
  149. fat += 6
  150. if pcs_hydra >= 100:
  151. pcs_hydra -= 5
  152. else
  153. pcs_hydra -= 10
  154. end
  155. else
  156. '<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>'
  157. end
  158. if alc_count > 0: jump 'alcohol_jump'
  159. killvar 'alc_count'
  160. gs 'stat'
  161. elseif $ARGS[0] = 'mentats':
  162. mentats_dose += 1
  163. mentats_have -= 1
  164. elseif $ARGS[0] = 'aphrodisiac':
  165. if aphrodisiac_overdose = 1:
  166. $aphrodisiac_msg = '<br>You''ve had enough aphrodisiac for today.'
  167. elseif aphrodisiac_timer = 0:
  168. $aphrodisiac_msg = '<font color = #DB7093><br>You take a gum and chew it. It tastes like strawberry, but is also kind of spicy.</font>'
  169. aphrodisiac_have -= 1
  170. aphrodisiac_timer += 8
  171. pcs_horny = 80
  172. elseif aphrodisiac_timer > 0 and aphrodisiac_timer <= 8:
  173. $aphrodisiac_msg = '<font color = #DB7093><br>You take another gum and chew it. It makes your mouth feel kinda tingly.</font>'
  174. aphrodisiac_have -= 1
  175. aphrodisiac_timer += 8
  176. pcs_horny = 100
  177. elseif aphrodisiac_timer > 8 and min_arousal < 60:
  178. $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>'
  179. aphrodisiac_have -= 1
  180. orgasm += 1
  181. pcs_mood = 100
  182. min_arousal += 10
  183. aphrodisiac_overdose = 1
  184. if min_arousal = 10:
  185. pcs_horny = min_arousal
  186. $min_arousal_msg = '<font color = #DB7093>That was intense! You can still feel the tingles.</font>'
  187. elseif min_arousal = 20:
  188. pcs_horny = min_arousal
  189. $min_arousal_msg = '<font color = #DB7093>You are really starting to enjoy these! Your crotch still feels kinda hot though.</font>'
  190. elseif min_arousal = 30:
  191. pcs_horny = min_arousal
  192. $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>'
  193. elseif min_arousal = 40:
  194. pcs_horny = min_arousal
  195. $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>'
  196. elseif min_arousal = 50:
  197. pcs_horny = min_arousal
  198. $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>'
  199. elseif min_arousal = 60:
  200. pcs_horny = min_arousal
  201. $min_arousal_msg = '<font color = #DB7093>You are burning up. You feel like you could fuck anything and everything all day long.</font>'
  202. end
  203. else
  204. $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>'
  205. aphrodisiac_have -= 1
  206. end
  207. else
  208. '<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>'
  209. end
  210. !!Addictive Personality Trait
  211. if addictive_cheat = 0:
  212. addictive_exp = smoke_exp + joint_exp + heroin_exp + cocaine_exp + alcohol_exp + amphetamine_exp
  213. if addictive_exp = 2 and addictive_trait_lvl < 1:
  214. addictive_trait_lvl = 1
  215. if add_trait_msg_1 = 0: add_trait_msg_1 = 1 & msg 'You have gained the trait ''Addicitive Personality''.'
  216. elseif addictive_exp = 3 and addictive_trait_lvl < 2:
  217. addictive_trait_lvl = 2
  218. if add_trait_msg_2 = 0: add_trait_msg_2 = 1 & msg 'You have increased the level of your ''Addicitive Personality'' trait to 2.'
  219. elseif addictive_exp >= 4 or (heroin_exp = 1 and cocaine_exp = 1) and addictive_trait_lvl < 3:
  220. addictive_trait_lvl = 3
  221. if add_trait_msg_3 = 0: add_trait_msg_3 = 1 & msg 'You have increased the level of your ''Addicitive Personality'' trait to 3.'
  222. end
  223. end
  224. --- drugs ---------------------------------