drugs.qsrc 3.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141
  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. !! Alcohol: gs 'drugs', 'alcohol', 'type', count
  9. !! Types: beer, champagne, moonshine, rum, scotch, vodka, wine, whiskey
  10. !! 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)
  11. !! Example 1: sveta drinks vodka gs 'drugs', 'alcohol', 'vodka' (or gs 'drugs', 'alcohol', 'vodka', 1)
  12. !! Example 2: sveta drinks 2 beer gs 'drugs', 'alcohol', 'beer', 2
  13. if $ARGS[0] = 'smoke':
  14. if NarkImmune = 0: smoker += 1
  15. siga -= 1
  16. smokeDay = daystart
  17. smokeHour = hour
  18. smokeminut = minut + 5
  19. smokerNeed = 0
  20. cumspclnt = 2
  21. gs 'cum_cleanup'
  22. pcs_breath = 0
  23. pcs_mood += 100
  24. wipo += 100
  25. if pcs_hydra >= 100:
  26. pcs_hydra -= 5
  27. else
  28. pcs_hydra -= 10
  29. end
  30. if pcs_energy < 80: pcs_energy += 4
  31. gs '$menu_obnovit'
  32. elseif $ARGS[0] = 'joint':
  33. if NarkImmune = 0: joint_smoked += 1
  34. joint -= 1
  35. jointday = daystart
  36. jointhour = hour
  37. jointminut = minut + 5
  38. if minut > 30:
  39. jointhigh = 2
  40. else
  41. jointhigh = 1
  42. end
  43. cumspclnt = 2
  44. gs 'cum_cleanup'
  45. pcs_breath = 0
  46. pcs_mood += 100
  47. if pcs_hydra >= 100:
  48. pcs_hydra -= 5
  49. else
  50. pcs_hydra -= 10
  51. end
  52. if pcs_energy > 20:
  53. pcs_energy -= 20
  54. else
  55. pcs_energy = 0
  56. end
  57. gs '$menu_obnovit'
  58. elseif $ARGS[0] = 'heroin':
  59. if NarkImmune = 0: SNarkTimes += 1
  60. StrongNarkota += 25
  61. pcs_mood = 100
  62. pcs_health -= 10
  63. gs '$menu_obnovit'
  64. elseif $ARGS[0] = 'cocaine':
  65. dur -= 1
  66. pcs_health = pcs_vital * 10 + pcs_stren * 5
  67. pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5
  68. pcs_mood = 100
  69. pcs_horny = 100
  70. nark += 10
  71. elseif $ARGS[0] = 'amphetamine':
  72. if amphIntake < 2:
  73. '<font color= blue>You swallow the white pill.</font>'
  74. amphIntake += 1
  75. amphetamine -=1
  76. amphHigh = 12
  77. else
  78. 'Your heart is already beating uncontrollably in your chest, you should avoid taking anymore pills.'
  79. end
  80. elseif $ARGS[0] = 'alcohol':
  81. if ARGS[2] <= 1:
  82. alc_count = 1
  83. else
  84. alc_count = ARGS[2]
  85. end
  86. :alcohol_jump
  87. alc_count -= 1
  88. frost = 0
  89. pcs_health -= 5
  90. pcs_energy -= 5
  91. cumspclnt = 2
  92. gs 'cum_cleanup'
  93. pcs_breath = 0
  94. if $ARGS[1] = 'beer':
  95. alko += 1
  96. fat += 3
  97. pcs_mood += 10
  98. if pcs_hydra >= 100:
  99. pcs_hydra += 5
  100. else
  101. pcs_hydra += 10
  102. end
  103. elseif $ARGS[1] = 'wine' or $ARGS[1] = 'champagne':
  104. alko += 2
  105. fat += 4
  106. pcs_mood += 20
  107. if pcs_hydra >= 100:
  108. pcs_hydra += 5
  109. else
  110. pcs_hydra += 10
  111. end
  112. elseif $ARGS[1] = 'vodka' or $ARGS[1] = 'whiskey' or $ARGS[1] = 'scotch' or $ARGS[1] = 'rum':
  113. alko += 3
  114. fat += 6
  115. if pcs_hydra >= 100:
  116. pcs_hydra -= 5
  117. else
  118. pcs_hydra -= 10
  119. end
  120. elseif $ARGS[1] = 'moonshine':
  121. alko += 5
  122. fat += 6
  123. if pcs_hydra >= 100:
  124. pcs_hydra -= 5
  125. else
  126. pcs_hydra -= 10
  127. end
  128. else
  129. '<br><font color = red>Developer note: The type of alcohol is missing in this scene. Please report this and the following variable: $curloc = <<$curloc>> as a bug.</font>'
  130. end
  131. if alc_count > 0: jump 'alcohol_jump'
  132. killvar 'alc_count'
  133. else
  134. '<br><font color = red>Developer note: The type of drug is wrong or missing in this scene. Please report this and the following variable: $curloc = <<$curloc>> as a bug.</font>'
  135. end
  136. --- drugs ---------------------------------