glife/locations/363_FSstat

# FSstat
FSneedExpNextLvl=(FSlvl * 10)*FSlvl
FSneedExp = FSneedExpNextLvl - FSexp
if FSneedExp <= 0 and FSlvl > FSlvlr: FSlvlr = FSlvl & FSpoint += 5 & FSlvl += 1 & FSexp = 0

if FSfemin < 45:$FSfemin = 'Men'
if FSfemin >= 45 and FSfemin >= 55:$FSfemin = 'Androgynous'
if FSfemin > 55:$FSfemin = 'Female'

if FSfigur < 45:$FSfigur = 'Male figure'
if FSfigur >= 45 and FSfigur >= 55:$FSfigur = 'Androgynous figure'
if FSfigur > 55:$FSfigur = 'Female figure'

if FScolor < 0: FScolor = 0
if FScolor > 5: FScolor = 5
if FScolor = 0:$FScolor = 'Black hair' & $FSsherst = 'Black'
if FScolor = 1:$FScolor = 'Brown hair' & $FSsherst = 'Brown'
if FScolor = 2:$FScolor = 'Foxy hair' & $FSsherst = 'Redhead'
if FScolor = 3:$FScolor = 'Blonde hair' & $FSsherst = '<<$name>>'
if FScolor = 4:$FScolor = 'Pink hair' & $FSsherst = 'Pink'
if FScolor = 5:$FScolor = 'White hair' & $FSsherst = 'White'

if FSface <= 0:$FSface = '<<$FSfemin>> person. <<$FScolor>>'
if FSface = 1:$FSface = '<<$FSfemin>> a person with cat ears and nose. <<$FScolor>>'
if FSface = 2:$FSface = '<<$FSfemin>> a person with dog ears and nose. <<$FScolor>>'
if FSface = 3:$FSface = '<<$FSfemin>> A person with fox ears and nose. <<$FScolor>>'
if FSface = 4:$FSface = '<<$FSfemin>> The person with the protruding ears and nose. <<$FScolor>>'
if FSface = 5:$FSface = '<<$FSfemin>> A person with cow´s ears and nose. <<$FScolor>>'
if FSface >= 6:$FSface = '<<$FSfemin>> a person with ears and nose like a lizard. <<$FScolor>>'

if FSskin <= 0:$FSskin = 'Normal skin'
if FSskin = 1:$FSskin = '<<$FSsherst>> The fur on the body'
if FSskin >= 2:$FSskin = 'Scales on body'

if FShvost <= 0:$FShvost = ''
if FShvost = 1:$FShvost = 'Cat´s tail'
if FShvost = 2:$FShvost = 'Dog´s tail'
if FShvost = 3:$FShvost = 'Foxtail'
if FShvost = 4:$FShvost = 'Horse´s tail'
if FShvost = 5:$FShvost = 'Cow´s Tail'
if FShvost >= 6:$FShvost = 'Reptile tail'

if dicktipe <= 0:$dicktipe = 'Normal male'
if dicktipe = 1:$dicktipe = 'Conical, covered with soft spines cat'
if dicktipe = 2:$dicktipe = 'Red, a large dog at the base node'
if dicktipe = 3:$dicktipe = 'Covered with coarse, black leather bull'
if dicktipe >= 4:$dicktipe = 'Powerful horse'

if FSdick > 0:$FSdick = '<<$dicktipe>> long dick <<FSdick>>, see'
if FSdick <= 0:$FSdick = ''

if FSvagina > 0:$FSvagina = 'Between the legs of you is Snatch.'
if FSvagina <= 0:$FSvagina = ''

if FStits = 1:$FStitrazm = 'AA'
if FStits = 2:$FStitrazm = 'A resolution'
if FStits = 3:$FStitrazm = 'size B'
if FStits = 4:$FStitrazm = 'size C'
if FStits = 5:$FStitrazm = 'size D'
if FStits = 6:$FStitrazm = 'size E'
if FStits = 7:$FStitrazm = 'size F'
if FStits > 8:$FStitrazm = 'size F +'

if FStits > 0 and FStitsLine = 0:$FStits = 'Female breast <<$FStitrazm>>'
if FStits > 0 and FStitsLine = 1:$FStits = 'Two pairs of women´s breasts <<$FStitrazm>>'
if FStits > 0 and FStitsLine >= 2:$FStits = 'Three pairs of nipples <<$FStitrazm>>'

if FSpers = 0:$FSpers = 'You have no character'
if FSpers > 0:$FSpers = '<<$FSname>>. <<$FSface>> <<$FSfigur>> <<$FStits>> <<$FSskin>> <<$FShvost>> <<$FSdick>> <<$FSvagina>>'
'Level <<FSlvl>>, exp <<FSexp>>, need for next level <<FSneedExp>> exp'
'Life <<FSHP>>'
'Strength <<FSstren>>'
'Speed <<FSspeed>>'
'Agility <<FSagil>>'
'Initiative <<FSreakt>>'
'Endurance <<FSvital>>'


if FShour >= 24:
FShour -= 24
FSday += 1
	if FSsup = 0:
	FSHP -= 10
	else
	FSsup -= 1
	end
end

if FSHP > 100: FSHP = 100

'<a href="exec:GT ''FSstart''">Get out of the game</a>'
'Day <<FSday>>, h <<FShour>>'
'<<FSgem>> of coins. Food enough for <<FSsup>> days'
''

$FSatk = {
KGOLzas = RAND(FSagilV/4, FSagilV)
KGOLataka = RAND(FSspeed/2, FSspeed * 2)
if KGOLataka >= KGOLzas:
	if KGOLataka >= KGOLzas * 2:
	KGHPnpow = RAND(FSstren/2, FSstren)+ RAND(FSweaponDam/2, FSweaponDam)
	FSHPV -= KGHPnpow
	'<font color = green>CRETE <<KGHPnpow>></font>'
	else
	KGHPnpow = RAND(FSstren/4, FSstren/2)+ RAND(FSweaponDam/4, FSweaponDam/2)
	KGHPntpow = KGHPnpow - FSbronaV
	if KGHPntpow <= 0: KGHPntpow = 1
	FSHPV -= KGHPnpow
	'<font color = blue>Contact with <<KGHPnpow>></font>'
	end
else
'<font color = red><<$FSnameV>> dodged your attack</font>'
end
}
$FSatkV = {
KGOLzas = RAND(FSagil/4, FSagil)
KGOLataka = RAND(FSspeedV/2, FSspeedV * 2)
if KGOLataka >= KGOLzas:
	if KGOLataka >= KGOLzas * 2:
	KGHPnpow = RAND(FSstrenV/2, FSstrenV)+ RAND(FSweaponDamV/2, FSweaponDamV)
	FSHP -= KGHPnpow
	'<font color = red>CRETE <<KGHPnpow>></font>'
	else
	KGHPnpow = RAND(FSstrenV/4, FSstrenV/2)+ RAND(FSweaponDamV/4, FSweaponDamV/2)
	KGHPntpow = KGHPnpow - FSbrona
	if KGHPntpow <= 0: KGHPntpow = 1
	FSHP -= KGHPnpow
	'<font color = brown>Contact with <<KGHPnpow>></font>'
	end
else
'<font color = green>You dodged the attack</font>'
end
}
--- FSstat ---------------------------------