glife/locations/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 ---------------------------------