1
0

traits.qsrc 693 B

1234567891011121314151617181920212223242526272829303132333435
  1. # traits
  2. if $ARGS[0] = 'menu':
  3. clr
  4. pl '<center>Traits Menu</center>'
  5. pl'<a href="exec:gs ''stat''">Leave</a>'
  6. nl
  7. !! pl '<b>Bimbo</b>'
  8. pl '<b>Cumeater</b>'
  9. if trt_cumeater = 0:
  10. pl 'You do not have this trait.'
  11. pl 'To gain this trait you must swallow cum 10 times.'
  12. pl 'You have swallowed cum <<swallow>> times.'
  13. else
  14. pl 'You have this trait.'
  15. pl 'It allows you to remove cum from certain locations and eat it'
  16. pl 'This trait cannot be lost.'
  17. end
  18. end
  19. if $ARGS[0] = 'hourly':
  20. if swallow >= 10 and trt_cumeater = 0:
  21. trt_cumeater = 1
  22. msg 'You have gained the trait "Cumeater"'
  23. end
  24. end
  25. if $ARGS[0] = 'overnight':
  26. end
  27. --- traits ---------------------------------