sweat.qsrc 898 B

123456789101112131415161718192021222324252627282930
  1. # sweat
  2. ! gs 'sweat', 'add', X replaces pcs_sweat += X
  3. if $ARGS[0] = 'add':
  4. if deodorant_on = 1:
  5. ! 1/2 to 1/1 sweat gains? Up for debate...
  6. pcs_sweat += rand(ARGS[1] / 2, ARGS[1])
  7. else
  8. pcs_sweat += ARGS[1]
  9. end
  10. end
  11. ! Applying deodorant | deodorant quality is currently not included, but could be later on
  12. ! gs 'sweat', 'deo', deo_quality
  13. if $ARGS[0] = 'deo':
  14. ! You can refresh before it "runs out"
  15. if deodorant_on = 0: deodorant_on = 1
  16. ! Deodorant ware-off timer, general claims about duration seem to be around 1d+, so 1d it is
  17. deodorant_time = totminut + 24 * 60
  18. ! Small reduction in pcs_sweat?
  19. pcs_sweat -= 2
  20. if pcs_sweat < 0: pcs_sweat = 0
  21. end
  22. ! Removing of deodorant. Included in all shower/bathe/swim actions + anything similar
  23. ! gs 'sweat', 'remove_deo'
  24. if $ARGS[0] = 'remove_deo':
  25. deodorant_on = 0
  26. killvar 'deodorant_time'
  27. end
  28. --- sweat ---------------------------------