FSstat 4.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145
  1. # FSstat
  2. FSneedExpNextLvl = (FSlvl * 10)*FSlvl
  3. FSneedExp = FSneedExpNextLvl - FSexp
  4. if FSneedExp <= 0 and FSlvl > FSlvlr:FSlvlr = FSlvl & FSpoint += 5 & FSlvl += 1 & FSexp = 0
  5. if FSfemin < 45:$FSfemin = 'Men'
  6. if FSfemin >= 45 and FSfemin >= 55:$FSfemin = 'Androgynous'
  7. if FSfemin > 55:$FSfemin = 'Female'
  8. if FSfigur < 45:$FSfigur = 'Male figure'
  9. if FSfigur >= 45 and FSfigur >= 55:$FSfigur = 'Androgynous figure'
  10. if FSfigur > 55:$FSfigur = 'Female figure'
  11. if FScolor < 0:FScolor = 0
  12. if FScolor > 5:FScolor = 5
  13. if FScolor = 0:$FScolor = 'Black hair' & $FSsherst = 'Black'
  14. if FScolor = 1:$FScolor = 'Brown hair' & $FSsherst = 'Brown'
  15. if FScolor = 2:$FScolor = 'Foxy hair' & $FSsherst = 'Redhead'
  16. if FScolor = 3:$FScolor = 'Blonde hair' & $FSsherst = '<<$name>>'
  17. if FScolor = 4:$FScolor = 'Pink hair' & $FSsherst = 'Pink'
  18. if FScolor = 5:$FScolor = 'White hair' & $FSsherst = 'White'
  19. if FSface <= 0:$FSface = '<<$FSfemin>> person. <<$FScolor>>'
  20. if FSface = 1:$FSface = '<<$FSfemin>> a person with cat ears and nose. <<$FScolor>>'
  21. if FSface = 2:$FSface = '<<$FSfemin>> a person with dog ears and nose. <<$FScolor>>'
  22. if FSface = 3:$FSface = '<<$FSfemin>> A person with fox ears and nose. <<$FScolor>>'
  23. if FSface = 4:$FSface = '<<$FSfemin>> The person with the protruding ears and nose. <<$FScolor>>'
  24. if FSface = 5:$FSface = '<<$FSfemin>> A person with cow''s ears and nose. <<$FScolor>>'
  25. if FSface >= 6:$FSface = '<<$FSfemin>> a person with ears and nose like a lizard. <<$FScolor>>'
  26. if FSskin <= 0:$FSskin = 'Normal skin'
  27. if FSskin = 1:$FSskin = '<<$FSsherst>> The fur on the body'
  28. if FSskin >= 2:$FSskin = 'Scales on body'
  29. if FShvost <= 0:$FShvost = ''
  30. if FShvost = 1:$FShvost = 'Cat''s tail'
  31. if FShvost = 2:$FShvost = 'Dog''s tail'
  32. if FShvost = 3:$FShvost = 'Foxtail'
  33. if FShvost = 4:$FShvost = 'Horse''s tail'
  34. if FShvost = 5:$FShvost = 'Cow''s Tail'
  35. if FShvost >= 6:$FShvost = 'Reptile tail'
  36. if dicktipe <= 0:$dicktipe = 'Normal male'
  37. if dicktipe = 1:$dicktipe = 'Conical, covered with soft spines cat'
  38. if dicktipe = 2:$dicktipe = 'Red, a large dog at the base node'
  39. if dicktipe = 3:$dicktipe = 'Covered with coarse, black leather bull'
  40. if dicktipe >= 4:$dicktipe = 'Powerful horse'
  41. if FSdick > 0:$FSdick = '<<$dicktipe>> long dick <<FSdick>>, see'
  42. if FSdick <= 0:$FSdick = ''
  43. if FSvagina > 0:$FSvagina = 'Between the legs of you is Snatch.'
  44. if FSvagina <= 0:$FSvagina = ''
  45. if FStits = 1:$FStitrazm = 'AA'
  46. if FStits = 2:$FStitrazm = 'A resolution'
  47. if FStits = 3:$FStitrazm = 'size B'
  48. if FStits = 4:$FStitrazm = 'size C'
  49. if FStits = 5:$FStitrazm = 'size D'
  50. if FStits = 6:$FStitrazm = 'size E'
  51. if FStits = 7:$FStitrazm = 'size F'
  52. if FStits > 8:$FStitrazm = 'size F +'
  53. if FStits > 0 and FStitsLine = 0:$FStits = 'Female breast <<$FStitrazm>>'
  54. if FStits > 0 and FStitsLine = 1:$FStits = 'Two pairs of women''s breasts <<$FStitrazm>>'
  55. if FStits > 0 and FStitsLine >= 2:$FStits = 'Three pairs of nipples <<$FStitrazm>>'
  56. if FSpers = 0:$FSpers = 'You have no character'
  57. if FSpers > 0:$FSpers = '<<$FSname>>. <<$FSface>> <<$FSfigur>> <<$FStits>> <<$FSskin>> <<$FShvost>> <<$FSdick>> <<$FSvagina>>'
  58. 'Level <<FSlvl>>, exp <<FSexp>>, need for next level <<FSneedExp>> exp'
  59. 'Life <<FSHP>>'
  60. 'Strength <<FSstren>>'
  61. 'Speed <<FSspeed>>'
  62. 'Agility <<FSagil>>'
  63. 'Initiative <<FSreakt>>'
  64. 'Endurance <<FSvital>>'
  65. if FShour >= 24:
  66. FShour -= 24
  67. FSday += 1
  68. if FSsup = 0:
  69. FSHP -= 10
  70. else
  71. FSsup -= 1
  72. end
  73. end
  74. if FSHP > 100:FSHP = 100
  75. '<a href="exec:gt ''FSstart''">Get out of the game</a>'
  76. 'Day <<FSday>>, h <<FShour>>'
  77. '<<FSgem>> of coins. Food enough for <<FSsup>> days'
  78. ''
  79. $FSatk = {
  80. KGOLzas = rand(FSagilV / 4, FSagilV)
  81. KGOLataka = rand(FSspeed / 2, FSspeed * 2)
  82. if KGOLataka >= KGOLzas:
  83. if KGOLataka >= KGOLzas * 2:
  84. KGHPnpow = rand(FSstren/2, FSstren)+ rand(FSweaponDam/2, FSweaponDam)
  85. FSHPV -= KGHPnpow
  86. '<font color="green">CRETE <<KGHPnpow>></font>'
  87. else
  88. KGHPnpow = rand(FSstren/4, FSstren/2)+ rand(FSweaponDam/4, FSweaponDam/2)
  89. KGHPntpow = KGHPnpow - FSbronaV
  90. if KGHPntpow <= 0:KGHPntpow = 1
  91. FSHPV -= KGHPnpow
  92. '<font color="blue">Contact with <<KGHPnpow>></font>'
  93. end
  94. else
  95. '<font color="red"><<$FSnameV>> dodged your attack</font>'
  96. end
  97. }
  98. $FSatkV = {
  99. KGOLzas = rand(FSagil / 4, FSagil)
  100. KGOLataka = rand(FSspeedV / 2, FSspeedV * 2)
  101. if KGOLataka >= KGOLzas:
  102. if KGOLataka >= KGOLzas * 2:
  103. KGHPnpow = rand(FSstrenV/2, FSstrenV)+ rand(FSweaponDamV/2, FSweaponDamV)
  104. FSHP -= KGHPnpow
  105. '<font color="red">CRETE <<KGHPnpow>></font>'
  106. else
  107. KGHPnpow = rand(FSstrenV/4, FSstrenV/2)+ rand(FSweaponDamV/4, FSweaponDamV/2)
  108. KGHPntpow = KGHPnpow - FSbrona
  109. if KGHPntpow <= 0:KGHPntpow = 1
  110. FSHP -= KGHPnpow
  111. '<font color="brown">Contact with <<KGHPnpow>></font>'
  112. end
  113. else
  114. '<font color="green">You dodged the attack</font>'
  115. end
  116. }
  117. --- FSstat ---------------------------------