drugs.qsrc 7.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231
  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. if NarkImmune = 0:
  39. joint_smoked += 1
  40. if joint_smoked > 5 and joint_exp = 0: joint_exp = 1
  41. end
  42. joint -= 1
  43. jointday = daystart
  44. jointhour = hour
  45. jointminut = minut + 2
  46. if minut > 30:
  47. jointhigh = 2
  48. else
  49. jointhigh = 1
  50. end
  51. cumspclnt = 2
  52. gs 'cum_cleanup'
  53. pcs_breath = 0
  54. pcs_mood += 100
  55. if pcs_hydra >= 100:
  56. pcs_hydra -= 5
  57. else
  58. pcs_hydra -= 10
  59. end
  60. if pcs_energy > 20:
  61. pcs_energy -= 20
  62. else
  63. pcs_energy = 0
  64. end
  65. gs 'stat'
  66. elseif $ARGS[0] = 'heroin':
  67. if NarkImmune = 0:
  68. SNarkTimes += 1
  69. if SNarkTimes > 1 and heroin_exp = 0: heroin_exp = 1
  70. end
  71. StrongNarkota += 25
  72. narkozakday = day
  73. pcs_mood = 100
  74. pcs_health -= 10
  75. gs 'stat'
  76. elseif $ARGS[0] = 'cocaine':
  77. if NarkImmune = 0:
  78. cocaine_count += 1
  79. if cocaine_count > 3 and cocaine_exp = 0: cocaine_exp = 1
  80. end
  81. dur -= 1
  82. pcs_health = pcs_vital * 10 + pcs_stren * 5
  83. pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5
  84. pcs_mood = 100
  85. pcs_horny = 100
  86. nark += 10
  87. gs 'stat'
  88. elseif $ARGS[0] = 'amphetamine':
  89. if NarkImmune = 0:
  90. amphetamine_count += 1
  91. if amphetamine_count > 5 and amphetamine_exp = 0: amphetamine_exp = 1
  92. end
  93. if amphIntake < 2:
  94. '<font color= blue>You swallow the white pill.</font>'
  95. amphIntake += 1
  96. amphetamine -=1
  97. amphHigh = 12
  98. else
  99. 'Your heart is already beating uncontrollably in your chest, you should avoid taking anymore pills.'
  100. end
  101. gs 'stat'
  102. elseif $ARGS[0] = 'alcohol':
  103. if NarkImmune = 0:
  104. alcohol_count += 1
  105. if alcohol_count > 15 and alcohol_exp = 0: alcohol_exp = 1
  106. end
  107. if ARGS[2] <= 1:
  108. alc_count = 1
  109. else
  110. alc_count = ARGS[2]
  111. end
  112. :alcohol_jump
  113. alc_count -= 1
  114. frost = 0
  115. pcs_health -= 5
  116. pcs_energy -= 5
  117. cumspclnt = 2
  118. gs 'cum_cleanup'
  119. pcs_breath = 0
  120. if $ARGS[1] = 'beer':
  121. alko += 1
  122. fat += 3
  123. pcs_mood += 10
  124. if pcs_hydra >= 100:
  125. pcs_hydra += 5
  126. else
  127. pcs_hydra += 10
  128. end
  129. elseif $ARGS[1] = 'wine' or $ARGS[1] = 'champagne':
  130. alko += 2
  131. fat += 4
  132. pcs_mood += 20
  133. if pcs_hydra >= 100:
  134. pcs_hydra += 5
  135. else
  136. pcs_hydra += 10
  137. end
  138. elseif $ARGS[1] = 'vodka' or $ARGS[1] = 'whiskey' or $ARGS[1] = 'scotch' or $ARGS[1] = 'rum':
  139. alko += 3
  140. fat += 6
  141. if pcs_hydra >= 100:
  142. pcs_hydra -= 5
  143. else
  144. pcs_hydra -= 10
  145. end
  146. elseif $ARGS[1] = 'moonshine':
  147. alko += 5
  148. fat += 6
  149. if pcs_hydra >= 100:
  150. pcs_hydra -= 5
  151. else
  152. pcs_hydra -= 10
  153. end
  154. else
  155. '<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>'
  156. end
  157. if alc_count > 0: jump 'alcohol_jump'
  158. killvar 'alc_count'
  159. gs 'stat'
  160. elseif $ARGS[0] = 'mentats':
  161. mentats_dose += 1
  162. mentats_have -= 1
  163. elseif $ARGS[0] = 'aphrodisiac':
  164. if aphrodisiac_overdose = 1:
  165. $aphrodisiac_msg = '<br>You''ve had enough aphrodisiac for today.'
  166. elseif aphrodisiac_timer = 0:
  167. $aphrodisiac_msg = '<font color = #DB7093><br>You take a gum and chew it. It tastes like strawberry, but is also kind of spicy.</font>'
  168. aphrodisiac_have -= 1
  169. aphrodisiac_timer += 8
  170. pcs_horny = 80
  171. elseif aphrodisiac_timer > 0 and aphrodisiac_timer <= 8:
  172. $aphrodisiac_msg = '<font color = #DB7093><br>You take another gum and chew it. It makes your mouth feel kinda tingly.</font>'
  173. aphrodisiac_have -= 1
  174. aphrodisiac_timer += 8
  175. pcs_horny = 100
  176. elseif aphrodisiac_timer > 8 and min_arousal < 60:
  177. $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>'
  178. aphrodisiac_have -= 1
  179. orgasm += 1
  180. pcs_mood = 100
  181. min_arousal += 10
  182. aphrodisiac_overdose = 1
  183. if min_arousal = 10:
  184. pcs_horny = min_arousal
  185. $min_arousal_msg = '<font color = #DB7093>That was intense! You can still feel the tingles.</font>'
  186. elseif min_arousal = 20:
  187. pcs_horny = min_arousal
  188. $min_arousal_msg = '<font color = #DB7093>You are really starting to enjoy these! Your crotch still feels kinda hot though.</font>'
  189. elseif min_arousal = 30:
  190. pcs_horny = min_arousal
  191. $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>'
  192. elseif min_arousal = 40:
  193. pcs_horny = min_arousal
  194. $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>'
  195. elseif min_arousal = 50:
  196. pcs_horny = min_arousal
  197. $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>'
  198. elseif min_arousal = 60:
  199. pcs_horny = min_arousal
  200. $min_arousal_msg = '<font color = #DB7093>You are burning up. You feel like you could fuck anything and everything all day long.</font>'
  201. end
  202. else
  203. $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>'
  204. aphrodisiac_have -= 1
  205. end
  206. else
  207. '<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>'
  208. end
  209. !!Addictive Personality Trait
  210. if addictive_cheat = 0:
  211. addictive_exp = smoke_exp + joint_exp + heroin_exp + cocaine_exp + alcohol_exp + amphetamine_exp
  212. if addictive_exp = 2 and addictive_trait_lvl < 1:
  213. addictive_trait_lvl = 1
  214. if add_trait_msg_1 = 0: add_trait_msg_1 = 1 & msg 'You have gained the trait ''Addicitive Personality''.'
  215. elseif addictive_exp = 3 and addictive_trait_lvl < 2:
  216. addictive_trait_lvl = 2
  217. if add_trait_msg_2 = 0: add_trait_msg_2 = 1 & msg 'You have increased the level of your ''Addicitive Personality'' trait to 2.'
  218. elseif addictive_exp >= 4 or (heroin_exp = 1 and cocaine_exp = 1) and addictive_trait_lvl < 3:
  219. addictive_trait_lvl = 3
  220. if add_trait_msg_3 = 0: add_trait_msg_3 = 1 & msg 'You have increased the level of your ''Addicitive Personality'' trait to 3.'
  221. end
  222. end
  223. --- drugs ---------------------------------