1
0

traits.qsrc 3.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899
  1. # traits
  2. if $ARGS[0] = 'menu':
  3. *clr & cla
  4. gs 'obj_din', 'chartabs'
  5. '<center><h2>Traits</h2></center>'
  6. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  7. '<td>'
  8. '<center><b>Bimbo</b></center>'
  9. if bimbolevel = 0:
  10. 'You do not have this trait.'
  11. 'To gain this trait you must wear bimbo clothing / shoes for a few days.'
  12. 'You have <<bimbo>> out of 10 points towards level 1.'
  13. elseif bimbolevel = 1:
  14. 'You have this trait at level 1.'
  15. 'To maintain this trait you must wear bimbo clothing / shoes and/or have regular sex.'
  16. 'Due to this trait you gain a very small bonus to appearance and a very small penalty to intelligence.'
  17. 'You have <<bimbo>> out of 20 points towards level 2.'
  18. if bimbowithdrawal = 0:
  19. 'You are not in withdrawal.'
  20. else
  21. 'You have <<bimbowithdrawal>> out of 30 points towards losing this trait.'
  22. end
  23. elseif bimbolevel = 2:
  24. 'You have this trait at level 2.'
  25. 'To maintain this trait you must wear bimbo clothing / shoes and/or have regular sex.'
  26. 'Due to this trait you gain a small bonus to appearance and a small penalty to intelligence.'
  27. 'You have <<bimbo>> out of 30 points towards level 3.'
  28. if bimbowithdrawal = 0:
  29. 'You are not in withdrawal.'
  30. else
  31. 'You have <<bimbowithdrawal>> out of 30 points towards losing this trait.'
  32. end
  33. else
  34. 'You have this trait at level 3.'
  35. 'To maintain this trait you must wear bimbo clothing / shoes and/or have regular sex.'
  36. 'Due to this trait you gain a moderate bonus to appearance and a moderate penalty to intelligence.'
  37. if bimbowithdrawal = 0:
  38. 'You are not in withdrawal.'
  39. else
  40. 'You have <<bimbowithdrawal>> out of 30 points towards losing this trait.'
  41. end
  42. end
  43. *nl
  44. '<center><b>Exhibitionist</b></center>'
  45. if Exhibitionist_lvl = 0 and exhib_cheat = 0:
  46. 'You do not have this trait.'
  47. 'To gain this trait you must have low enough inhibition and choose to expose your breasts in public.'
  48. 'You have <<pcs_exhib>> out of 10 points towards level 1. This will slowly decrease each day unless you expose yourself.'
  49. elseif Exhibitionist_lvl = 1:
  50. 'You have this trait at level 1.'
  51. 'To increase this trait you must choose to expose your breasts and/or bare bottom in public.'
  52. 'This trait grants you a small amount or excitement from exposing yourself.'
  53. 'You have <<pcs_exhib>> out of 50 points towards level 2.'
  54. elseif Exhibitionist_lvl = 2:
  55. 'You have this trait at level 2.'
  56. 'To increase this trait you must choose to expose your breasts, bare bottom and/or pussy in public.'
  57. 'This trait grants you a moderate amount or excitement from exposing yourself.'
  58. if pcs_exhib < 100:
  59. 'You have <<pcs_exhib>> out of 100 points towards level 3.'
  60. else
  61. 'You must trigger an event in the park to gain level 3.'
  62. end
  63. else
  64. 'You have this trait at level 3.'
  65. 'This is the highest level of this trait.'
  66. 'This trait grants you a large amount or excitement from exposing yourself.'
  67. end
  68. *nl
  69. '<center><b>Cumeater</b></center>'
  70. if trt_cumeater = 0 and cumeater_cheat = 0:
  71. 'You do not have this trait.'
  72. 'To gain this trait you must swallow cum 10 times.'
  73. 'You have swallowed cum <<swallow>> times.'
  74. elseif trt_cumeater = 0 and cumeater_cheat = 1:
  75. 'You do not have this trait.'
  76. else
  77. 'You have this trait.'
  78. 'It allows you to remove cum from certain locations and eat it'
  79. 'This trait cannot be lost.'
  80. end
  81. act 'Exit the menu': gt $loc, $metka
  82. '</td></tr></table></center>'
  83. end
  84. if $ARGS[0] = 'hourly':
  85. if swallow >= 10 and trt_cumeater = 0 and cumeater_cheat = 0:
  86. trt_cumeater = 1
  87. msg 'You have gained the trait "Cumeater"'
  88. end
  89. end
  90. if $ARGS[0] = 'overnight':
  91. end
  92. --- traits ---------------------------------