0
0

439_FSstat 9.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304
  1. # FSstat
  2. <<<<<<< 439_FSstat
  3. FSneedExpNextLvl=(FSlvl * 10)*FSlvl
  4. FSneedExp = FSneedExpNextLvl - FSexp
  5. if FSneedExp <= 0 and FSlvl > FSlvlr: FSlvlr = FSlvl & FSpoint += 5 & FSlvl += 1 & FSexp = 0
  6. if FSfemin < 45:$FSfemin = 'Men'
  7. if FSfemin >= 45 and FSfemin >= 55:$FSfemin = 'Androgynous'
  8. if FSfemin > 55:$FSfemin = 'Female'
  9. if FSfigur < 45:$FSfigur = 'Male figure'
  10. if FSfigur >= 45 and FSfigur >= 55:$FSfigur = 'Androgynous figure'
  11. if FSfigur > 55:$FSfigur = 'Female figure'
  12. if FScolor < 0: FScolor = 0
  13. if FScolor > 5: FScolor = 5
  14. if FScolor = 0:$FScolor = 'Black hair' & $FSsherst = 'Black'
  15. if FScolor = 1:$FScolor = 'Brown hair' & $FSsherst = 'Brown'
  16. if FScolor = 2:$FScolor = 'Foxy hair' & $FSsherst = 'Redhead'
  17. if FScolor = 3:$FScolor = 'Blonde hair' & $FSsherst = '<<$name>>'
  18. if FScolor = 4:$FScolor = 'Pink hair' & $FSsherst = 'Pink'
  19. if FScolor = 5:$FScolor = 'White hair' & $FSsherst = 'White'
  20. if FSface <= 0:$FSface = '<<$FSfemin>> person. <<$FScolor>>'
  21. if FSface = 1:$FSface = '<<$FSfemin>> a person with cat ears and nose. <<$FScolor>>'
  22. if FSface = 2:$FSface = '<<$FSfemin>> a person with dog ears and nose. <<$FScolor>>'
  23. if FSface = 3:$FSface = '<<$FSfemin>> A person with fox ears and nose. <<$FScolor>>'
  24. if FSface = 4:$FSface = '<<$FSfemin>> The person with the protruding ears and nose. <<$FScolor>>'
  25. if FSface = 5:$FSface = '<<$FSfemin>> A person with cow´s ears and nose. <<$FScolor>>'
  26. if FSface >= 6:$FSface = '<<$FSfemin>> a person with ears and nose like a lizard. <<$FScolor>>'
  27. if FSskin <= 0:$FSskin = 'Normal skin'
  28. if FSskin = 1:$FSskin = '<<$FSsherst>> The fur on the body'
  29. if FSskin >= 2:$FSskin = 'Scales on body'
  30. if FShvost <= 0:$FShvost = ''
  31. if FShvost = 1:$FShvost = 'Cat´s tail'
  32. if FShvost = 2:$FShvost = 'Dog´s tail'
  33. if FShvost = 3:$FShvost = 'Foxtail'
  34. if FShvost = 4:$FShvost = 'Horse´s tail'
  35. if FShvost = 5:$FShvost = 'Cow´s Tail'
  36. if FShvost >= 6:$FShvost = 'Reptile tail'
  37. if dicktipe <= 0:$dicktipe = 'Normal male'
  38. if dicktipe = 1:$dicktipe = 'Conical, covered with soft spines cat'
  39. if dicktipe = 2:$dicktipe = 'Red, a large dog at the base node'
  40. if dicktipe = 3:$dicktipe = 'Covered with coarse, black leather bull'
  41. if dicktipe >= 4:$dicktipe = 'Powerful horse'
  42. if FSdick > 0:$FSdick = '<<$dicktipe>> long dick <<FSdick>>, see'
  43. if FSdick <= 0:$FSdick = ''
  44. if FSvagina > 0:$FSvagina = 'Between the legs of you is Snatch.'
  45. if FSvagina <= 0:$FSvagina = ''
  46. if FStits = 1:$FStitrazm = 'AA'
  47. if FStits = 2:$FStitrazm = 'A resolution'
  48. if FStits = 3:$FStitrazm = 'size B'
  49. if FStits = 4:$FStitrazm = 'size C'
  50. if FStits = 5:$FStitrazm = 'size D'
  51. if FStits = 6:$FStitrazm = 'size E'
  52. if FStits = 7:$FStitrazm = 'size F'
  53. if FStits > 8:$FStitrazm = 'size F +'
  54. if FStits > 0 and FStitsLine = 0:$FStits = 'Female breast <<$FStitrazm>>'
  55. if FStits > 0 and FStitsLine = 1:$FStits = 'Two pairs of women´s breasts <<$FStitrazm>>'
  56. if FStits > 0 and FStitsLine >= 2:$FStits = 'Three pairs of nipples <<$FStitrazm>>'
  57. if FSpers = 0:$FSpers = 'You have no character'
  58. if FSpers > 0:$FSpers = '<<$FSname>>. <<$FSface>> <<$FSfigur>> <<$FStits>> <<$FSskin>> <<$FShvost>> <<$FSdick>> <<$FSvagina>>'
  59. 'Level <<FSlvl>>, exp <<FSexp>>, need for next level <<FSneedExp>> exp'
  60. 'Life <<FSHP>>'
  61. 'Strength <<FSstren>>'
  62. 'Speed <<FSspeed>>'
  63. 'Agility <<FSagil>>'
  64. 'Initiative <<FSreakt>>'
  65. 'Endurance <<FSvital>>'
  66. if FShour >= 24:
  67. FShour -= 24
  68. FSday += 1
  69. if FSsup = 0:
  70. FSHP -= 10
  71. else
  72. FSsup -= 1
  73. end
  74. =======
  75. FSneedExpNextLvl=(FSlvl*10)*FSlvl
  76. FSneedExp=FSneedExpNextLvl-FSexp
  77. if FSneedExp<=0 and FSlvl>FSlvlr:FSlvlr=FSlvl&FSpoint+=5&FSlvl+=1&FSexp=0
  78. if FSfemin<45:$FSfemin='Men'
  79. if FSfemin>=45 and FSfemin>=55:$FSfemin='androgynous'
  80. if FSfemin>55:$FSfemin='women`s'
  81. if FSfigur<45:$FSfigur='male figure'
  82. if FSfigur>=45 and FSfigur>=55:$FSfigur='androgynous figure'
  83. if FSfigur>55:$FSfigur='female figure'
  84. if FScolor<0:FScolor=0
  85. if FScolor>5:FScolor=5
  86. if FScolor=0:$FScolor='black hair'&$FSsherst='black'
  87. if FScolor=1:$FScolor='brown hair'&$FSsherst='brown'
  88. if FScolor=2:$FScolor='red hair'&$FSsherst='Redhead'
  89. if FScolor=3:$FScolor='blond hair'&$FSsherst='light'
  90. if FScolor=4:$FScolor='pink hair'&$FSsherst='pink'
  91. if FScolor=5:$FScolor='white hair'&$FSsherst='white'
  92. if FSface<=0:$FSface='<<$FSfemin>> face. <<$FScolor>>'
  93. if FSface=1:$FSface='<<$FSfemin>> face with cat ears and nose. <<$FScolor>>'
  94. if FSface=2:$FSface='<<$FSfemin>> face with dog ears and nose. <<$FScolor>>'
  95. if FSface=3:$FSface='<<$FSfemin>> face with fox ears and nose. <<$FScolor>>'
  96. if FSface=4:$FSface='<<$FSfemin>> person with horse ears and nose. <<$FScolor>>'
  97. if FSface=5:$FSface='<<$FSfemin>> face with cow ears and nose. <<$FScolor>>'
  98. if FSface>=6:$FSface='<<$FSfemin>> face with ears and nose like a lizard. <<$FScolor>>'
  99. if FSskin<=0:$FSskin='normal skin'
  100. if FSskin=1:$FSskin='<<$FSsherst>> hair on the body'
  101. if FSskin>=2:$FSskin='Scales on body'
  102. if FShvost<=0:$FShvost=''
  103. if FShvost=1:$FShvost='cat`s tail'
  104. if FShvost=2:$FShvost='dog`s tail'
  105. if FShvost=3:$FShvost='foxtail'
  106. if FShvost=4:$FShvost='horse`s tail'
  107. if FShvost=5:$FShvost='cow tail'
  108. if FShvost>=6:$FShvost='tail reptiles'
  109. if dicktipe<=0:$dicktipe='normal, men`s'
  110. if dicktipe=1:$dicktipe='conical, covered with soft spikes cat'
  111. if dicktipe=2:$dicktipe='red, with a large knot at the base of the dog'
  112. if dicktipe=3:$dicktipe='covered with coarse, black leather bull'
  113. if dicktipe>=4:$dicktipe='powerful horse'
  114. if FSdick>0:$FSdick='<<$dicktipe>> member of the longest <<FSdick>> cm.'
  115. if FSdick<=0:$FSdick=''
  116. if FSvagina>0:$FSvagina='Between your legs you are Snatch.'
  117. if FSvagina<=0:$FSvagina=''
  118. if FStits=1:$FStitrazm='AA'
  119. if FStits=2:$FStitrazm='A size'
  120. if FStits=3:$FStitrazm='size B'
  121. if FStits=4:$FStitrazm='With size'
  122. if FStits=5:$FStitrazm='size D'
  123. if FStits=6:$FStitrazm='size E'
  124. if FStits=7:$FStitrazm='size F'
  125. if FStits>8:$FStitrazm='size F+'
  126. if FStits>0 and FStitsLine=0:$FStits='female breasts <<$FStitrazm>>'
  127. if FStits>0 and FStitsLine=1:$FStits='Two pairs of female breasts <<$FStitrazm>>'
  128. if FStits>0 and FStitsLine>=2:$FStits='Three pairs of female breasts <<$FStitrazm>>'
  129. if FSpers=0:$FSpers='You do not have the character'
  130. if FSpers>0:$FSpers='<<$FSname>>. <<$FSface>> <<$FSfigur>> <<$FStits>> <<$FSskin>> <<$FShvost>> <<$FSdick>> <<$FSvagina>>
  131. level <<FSlvl>>, experience <<FSexp>>, necessary to the next level <<FSneedExp>> experience
  132. life <<FSHP>>
  133. power <<FSstren>>
  134. speed <<FSspeed>>
  135. dodge <<FSagil>>
  136. Initsiantiva <<FSreakt>>
  137. endurance <<FSvital>>
  138. '
  139. if FShour>=24:
  140. FShour-=24
  141. FSday+=1
  142. if FSsup=0:
  143. FSHP-=10
  144. else
  145. FSsup-=1
  146. end
  147. >>>>>>> 439_FSstat
  148. end
  149. <<<<<<< 439_FSstat
  150. if FSHP > 100: FSHP = 100
  151. '<a href="exec:GT ''FSstart''">Get out of the game</a>'
  152. 'Day <<FSday>>, h <<FShour>>'
  153. '<<FSgem>> of coins. Food enough for <<FSsup>> days'
  154. ''
  155. $FSatk = {
  156. KGOLzas = RAND(FSagilV/4, FSagilV)
  157. KGOLataka = RAND(FSspeed/2, FSspeed * 2)
  158. if KGOLataka >= KGOLzas:
  159. if KGOLataka >= KGOLzas * 2:
  160. KGHPnpow = RAND(FSstren/2, FSstren)+ RAND(FSweaponDam/2, FSweaponDam)
  161. FSHPV -= KGHPnpow
  162. '<font color = green>CRETE <<KGHPnpow>></font>'
  163. else
  164. KGHPnpow = RAND(FSstren/4, FSstren/2)+ RAND(FSweaponDam/4, FSweaponDam/2)
  165. KGHPntpow = KGHPnpow - FSbronaV
  166. if KGHPntpow <= 0: KGHPntpow = 1
  167. FSHPV -= KGHPnpow
  168. '<font color = blue>Contact with <<KGHPnpow>></font>'
  169. end
  170. else
  171. '<font color = red><<$FSnameV>> dodged your attack</font>'
  172. =======
  173. if FSHP>100:FSHP=100
  174. '<a href="exec:GT ''FSstart''">Leave the game</a>'
  175. 'day <<FSday>>, h <<FShour>>'
  176. '<<FSgem>> coin. Food enough for <<FSsup>> days'
  177. ''
  178. $FSatk={
  179. KGOLzas=RAND(FSagilV/4,FSagilV)
  180. KGOLataka=RAND(FSspeed/2,FSspeed*2)
  181. if KGOLataka>=KGOLzas:
  182. if KGOLataka>=KGOLzas*2:
  183. KGHPnpow=RAND(FSstren/2,FSstren)+ RAND(FSweaponDam/2,FSweaponDam)
  184. FSHPV-=KGHPnpow
  185. '<font color=green>CRETE <<KGHPnpow>></font>'
  186. else
  187. KGHPnpow=RAND(FSstren/4,FSstren/2)+ RAND(FSweaponDam/4,FSweaponDam/2)
  188. KGHPntpow=KGHPnpow-FSbronaV
  189. if KGHPntpow<=0:KGHPntpow=1
  190. FSHPV-=KGHPnpow
  191. '<font color=blue>hit <<KGHPnpow>></font>'
  192. end
  193. else
  194. '<font color=red><<$FSnameV>> dodged your attack</font>'
  195. >>>>>>> 439_FSstat
  196. end
  197. }
  198. <<<<<<< 439_FSstat
  199. $FSatkV = {
  200. KGOLzas = RAND(FSagil/4, FSagil)
  201. KGOLataka = RAND(FSspeedV/2, FSspeedV * 2)
  202. if KGOLataka >= KGOLzas:
  203. if KGOLataka >= KGOLzas * 2:
  204. KGHPnpow = RAND(FSstrenV/2, FSstrenV)+ RAND(FSweaponDamV/2, FSweaponDamV)
  205. FSHP -= KGHPnpow
  206. '<font color = red>CRETE <<KGHPnpow>></font>'
  207. else
  208. KGHPnpow = RAND(FSstrenV/4, FSstrenV/2)+ RAND(FSweaponDamV/4, FSweaponDamV/2)
  209. KGHPntpow = KGHPnpow - FSbrona
  210. if KGHPntpow <= 0: KGHPntpow = 1
  211. FSHP -= KGHPnpow
  212. '<font color = brown>Contact with <<KGHPnpow>></font>'
  213. end
  214. else
  215. '<font color = green>You dodged the attack</font>'
  216. =======
  217. $FSatkV={
  218. KGOLzas=RAND(FSagil/4,FSagil)
  219. KGOLataka=RAND(FSspeedV/2,FSspeedV*2)
  220. if KGOLataka>=KGOLzas:
  221. if KGOLataka>=KGOLzas*2:
  222. KGHPnpow=RAND(FSstrenV/2,FSstrenV)+ RAND(FSweaponDamV/2,FSweaponDamV)
  223. FSHP-=KGHPnpow
  224. '<font color=red>CRETE <<KGHPnpow>></font>'
  225. else
  226. KGHPnpow=RAND(FSstrenV/4,FSstrenV/2)+ RAND(FSweaponDamV/4,FSweaponDamV/2)
  227. KGHPntpow=KGHPnpow-FSbrona
  228. if KGHPntpow<=0:KGHPntpow=1
  229. FSHP-=KGHPnpow
  230. '<font color=brown>hit <<KGHPnpow>></font>'
  231. end
  232. else
  233. '<font color=green>You dodged the attack</font>'
  234. >>>>>>> 439_FSstat
  235. end
  236. }
  237. --- FSstat ---------------------------------