fame.qsrc 7.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193
  1. # fame
  2. !!For adding to the PC fame, the call will look a bit like so:
  3. !!gs 'fame', 'pav', 'dance', 5
  4. !!$ARGS [0] is for the location: pav, city or village
  5. !!$ARGS [1] is for the act that is adding to fame, listed below:
  6. !!acting, dance, painting, music, ballet, modelling, porn, stripping, prostitute, sex, kickboxing, running, volleyball, chess, teaching
  7. !!ARGS[2] is the value of the increase and should be an integer, its hard to put a value on fame but lets go with:
  8. !! 1-5 for small regular stuff and 10-50 for things with big impact like modelling
  9. !!the sex in slut fame is for sexual encounters of a slutty nature, so things like public sex or being used for sex by the Gopniks.
  10. !!It is not for regular sex in a normal relationship and anything secret cannot be subject to rumours.
  11. if $ARGS[0] = 'deg':
  12. !!degradation calculation applied overnight
  13. $fametown = 'pav'
  14. :famedegloop
  15. if dyneval('RESULT = <<$fametown>>_acting') > 2: dynamic '<<$fametown>>_acting -= rand(-1,3)'
  16. if dyneval('RESULT = <<$fametown>>_dance') > 2: dynamic '<<$fametown>>_dance -= rand(-1,3)'
  17. if dyneval('RESULT = <<$fametown>>_painting') > 2: dynamic '<<$fametown>>_painting -= rand(-1,3)'
  18. if dyneval('RESULT = <<$fametown>>_music') > 2: dynamic '<<$fametown>>_music -= rand(-1,3)'
  19. if dyneval('RESULT = <<$fametown>>_ballet') > 2: dynamic '<<$fametown>>_ballet -= rand(-1,3)'
  20. if dyneval('RESULT = <<$fametown>>_modelling') > 2: dynamic '<<$fametown>>_modelling -= rand(-1,3)'
  21. if dyneval('RESULT = <<$fametown>>_porn') > 2: dynamic '<<$fametown>>_porn -= rand(-1,3)'
  22. if dyneval('RESULT = <<$fametown>>_stripping') > 2: dynamic '<<$fametown>>_stripping -= rand(-1,3)'
  23. if dyneval('RESULT = <<$fametown>>_sex') > 2: dynamic '<<$fametown>>_sex -= rand(-1,3)'
  24. if dyneval('RESULT = <<$fametown>>_prostitute') > 2: dynamic '<<$fametown>>_prostitute -= rand(-1,3)'
  25. if dyneval('RESULT = <<$fametown>>_kickboxing') > 2: dynamic '<<$fametown>>_kickboxing -= rand(-1,3)'
  26. if dyneval('RESULT = <<$fametown>>_running') > 2: dynamic '<<$fametown>>_running -= rand(-1,3)'
  27. if dyneval('RESULT = <<$fametown>>_volleyball') > 2: dynamic '<<$fametown>>_volleyball -= rand(-1,3)'
  28. if dyneval('RESULT = <<$fametown>>_chess') > 2: dynamic '<<$fametown>>_chess -= rand(-1,3)'
  29. if dyneval('RESULT = <<$fametown>>_teaching') > 2: dynamic '<<$fametown>>_teaching -= rand(-1,3)'
  30. if dyneval('RESULT = <<$fametown>>_media') > 2: dynamic '<<$fametown>>_media -= rand(-1,3)'
  31. if $fametown = 'pav':
  32. $fametown = 'city'
  33. jump 'famedegloop'
  34. elseif $fametown = 'city':
  35. $fametown = 'village'
  36. jump 'famedegloop'
  37. end
  38. else
  39. !!main fame calculation
  40. dynamic '<<$ARGS[0]>>_<<$ARGS[1]>> += <<ARGS[2]>>'
  41. fame_performer = 0
  42. fame_sexind = 0
  43. fame_slut = 0
  44. fame_sport = 0
  45. fame_int = 0
  46. fame_social = 0
  47. global_performer = 0
  48. global_sexind = 0
  49. global_slut = 0
  50. global_sport = 0
  51. global_int = 0
  52. global_social = 0
  53. $fametown = 'pav'
  54. :fametownloop
  55. dynamic '<<$fametown>>_performer = 0'
  56. if dyneval('RESULT = <<$fametown>>_acting') > 30: dynamic '<<$fametown>>_performer += (<<$fametown>>_acting)/3'
  57. if dyneval('RESULT = <<$fametown>>_dance') > 30: dynamic '<<$fametown>>_performer += (<<$fametown>>_dance)/3'
  58. if dyneval('RESULT = <<$fametown>>_painting') > 30: dynamic '<<$fametown>>_performer += (<<$fametown>>_painting)/3'
  59. if dyneval('RESULT = <<$fametown>>_music') > 30: dynamic '<<$fametown>>_performer += (<<$fametown>>_music)/3'
  60. if dyneval('RESULT = <<$fametown>>_ballet') > 30: dynamic '<<$fametown>>_performer += (<<$fametown>>_ballet)/3'
  61. if dyneval('RESULT = <<$fametown>>_modelling') > 30: dynamic '<<$fametown>>_performer += (<<$fametown>>_modelling)/3'
  62. dynamic '<<$fametown>>_sexind = 0'
  63. if dyneval('RESULT = <<$fametown>>_porn') > 30: dynamic '<<$fametown>>_sexind += (<<$fametown>>_porn)/2'
  64. if dyneval('RESULT = <<$fametown>>_stripping') > 30: dynamic '<<$fametown>>_sexind += (<<$fametown>>_stripping)/2'
  65. dynamic '<<$fametown>>_slut = 0'
  66. if dyneval('RESULT = <<$fametown>>_sex') > 30: dynamic '<<$fametown>>_slut += (<<$fametown>>_sex)/2'
  67. if dyneval('RESULT = <<$fametown>>_prostitute') > 30: dynamic '<<$fametown>>_slut += (<<$fametown>>_prostitute)/2'
  68. dynamic '<<$fametown>>_sport = 0'
  69. if dyneval('RESULT = <<$fametown>>_kickboxing') > 30: dynamic '<<$fametown>>_sport += (<<$fametown>>_kickboxing)/3'
  70. if dyneval('RESULT = <<$fametown>>_running') > 30: dynamic '<<$fametown>>_sport += (<<$fametown>>_running)/3'
  71. if dyneval('RESULT = <<$fametown>>_volleyball') > 30: dynamic '<<$fametown>>_sport += (<<$fametown>>_volleyball)/3'
  72. dynamic '<<$fametown>>_int = 0'
  73. if dyneval('RESULT = <<$fametown>>_chess') > 30: dynamic '<<$fametown>>_int += (<<$fametown>>_chess)/2'
  74. if dyneval('RESULT = <<$fametown>>_teaching') > 30: dynamic '<<$fametown>>_int += (<<$fametown>>_teaching)/3'
  75. dynamic '<<$fametown>>_social = 0'
  76. if dyneval('RESULT = <<$fametown>>_media') > 30: dynamic '<<$fametown>>_social += (<<$fametown>>_media)/2'
  77. dynamic '<<$fametown>>_fame = 0'
  78. if dyneval('RESULT = <<$fametown>>_performer') > 30:
  79. dynamic '<<$fametown>>_fame += (<<$fametown>>_performer - 30)/2'
  80. if dyneval('RESULT = <<$fametown>>_performer') > 30:
  81. dynamic 'global_performer += <<$fametown>>_performer - 30'
  82. end
  83. end
  84. if dyneval('RESULT = <<$fametown>>_sexind') > 30:
  85. dynamic '<<$fametown>>_fame += (<<$fametown>>_sexind - 30)/2'
  86. if dyneval('RESULT = <<$fametown>>_sexind') > 80:
  87. dynamic 'global_sexind += <<$fametown>>_sexind - 80'
  88. end
  89. end
  90. if dyneval('RESULT = <<$fametown>>_slut') > 30:
  91. dynamic '<<$fametown>>_fame += (<<$fametown>>_slut - 30)/2'
  92. if dyneval('RESULT = <<$fametown>>_slut') > 80:
  93. dynamic 'global_slut += <<$fametown>>_slut - 80'
  94. end
  95. end
  96. if dyneval('RESULT = <<$fametown>>_sport') > 30:
  97. dynamic '<<$fametown>>_fame += (<<$fametown>>_sport - 30)/2'
  98. if dyneval('RESULT = <<$fametown>>_sport') > 50:
  99. dynamic 'global_sport += <<$fametown>>_sport - 50'
  100. end
  101. end
  102. if dyneval('RESULT = <<$fametown>>_int') > 30:
  103. dynamic '<<$fametown>>_fame += (<<$fametown>>_int - 30)/2'
  104. if dyneval('RESULT = <<$fametown>>_int') > 80:
  105. dynamic 'global_int += <<$fametown>>_int - 80'
  106. end
  107. end
  108. if dyneval('RESULT = <<$fametown>>_social') > 30:
  109. dynamic '<<$fametown>>_fame += (<<$fametown>>_social - 30)/2'
  110. if dyneval('RESULT = <<$fametown>>_social') > 20:
  111. dynamic 'global_social += <<$fametown>>_social - 20'
  112. end
  113. end
  114. if $fametown = 'pav':
  115. $fametown = 'city'
  116. jump 'fametownloop'
  117. elseif $fametown = 'city':
  118. $fametown = 'village'
  119. jump 'fametownloop'
  120. end
  121. $fametown = 'pav'
  122. :fametownloop2
  123. if dyneval('RESULT = <<$fametown>>_performer') < global_performer/2: dynamic '<<$fametown>>_performer += global_performer/2'
  124. if dyneval('RESULT = <<$fametown>>_sexind') < global_sexind/2: dynamic '<<$fametown>>_sexind += global_sexind/4'
  125. if dyneval('RESULT = <<$fametown>>_slut') < global_slut/2: dynamic '<<$fametown>>_slut += global_slut/5'
  126. if dyneval('RESULT = <<$fametown>>_sport') < global_sport/2: dynamic '<<$fametown>>_sport += global_sport/4'
  127. if dyneval('RESULT = <<$fametown>>_int') < global_int/2: dynamic '<<$fametown>>_int += global_int/4'
  128. if dyneval('RESULT = <<$fametown>>_social') < global_social/2: dynamic '<<$fametown>>_social += global_social/2'
  129. if $fametown = 'pav':
  130. $fametown = 'city'
  131. jump 'fametownloop2'
  132. elseif $fametown = 'city':
  133. $fametown = 'village'
  134. jump 'fametownloop2'
  135. end
  136. if pav_slut < 25 :
  137. $gnikname = ''
  138. elseif pav_slut < 50 :
  139. $gnikname = 'flirt'
  140. elseif pav_slut < 75 :
  141. $gnikname = 'tease'
  142. elseif pav_slut < 100 :
  143. $gnikname = 'minx'
  144. elseif pav_slut < 125 :
  145. $gnikname = 'vixen'
  146. elseif pav_slut < 150 :
  147. $gnikname = 'tempress'
  148. elseif pav_slut < 175 :
  149. $gnikname = 'cocklover'
  150. elseif pav_slut < 200 :
  151. $gnikname = 'boytoy'
  152. elseif pav_slut < 225 :
  153. $gnikname = 'slut'
  154. elseif pav_slut < 250 :
  155. $gnikname = 'nympho'
  156. elseif pav_slut < 275 :
  157. $gnikname = 'whore'
  158. elseif pav_slut < 300 :
  159. $gnikname = 'town bicycle'
  160. else
  161. $gnikname = 'cum dumpster'
  162. end
  163. end
  164. --- fame ---------------------------------