:: FSstat
<<set $here = 'FSstat'>>
<<set $ARGS = $location_var[$here]>>
<<set $FSneedExpNextLvl = ($FSlvl * 10) * $FSlvl>>
<<set $FSneedExp = $FSneedExpNextLvl - $FSexp>>
<<if getvar("$FSneedExp") <= 0 and $FSlvl > $FSlvlr>>
	<<set $FSlvlr = $FSlvl>> <<setn $FSpoint += 5>> <<setn $FSlvl += 1>> <<set $FSexp = 0>>

<</if>>
<<if getvar("$FSfemin") < 45>>
	<<set $FSfemin = 'Men'>>

<</if>>
<<if getvar("$FSfemin") >= 45 and getvar("$FSfemin") >= 55>>
	<<set $FSfemin = 'Androgynous'>>

<</if>>
<<if getvar("$FSfemin") > 55>>
	<<set $FSfemin = 'Female'>>

<</if>>
<<if getvar("$FSfigur") < 45>>
	<<set $FSfigur = 'Male figure'>>

<</if>>
<<if getvar("$FSfigur") >= 45 and getvar("$FSfigur") >= 55>>
	<<set $FSfigur = 'Androgynous figure'>>

<</if>>
<<if getvar("$FSfigur") > 55>>
	<<set $FSfigur = 'Female figure'>>

<</if>>
<<if getvar("$FScolor") < 0>>
	<<set $FScolor = 0>>

<</if>>
<<if getvar("$FScolor") > 5>>
	<<set $FScolor = 5>>

<</if>>
<<if getvar("$FScolor") == 0>>
	<<set $FScolor = 'Black hair'>> <<set $FSsherst = 'Black'>>

<</if>>
<<if getvar("$FScolor") == 1>>
	<<set $FScolor = 'Brown hair'>> <<set $FSsherst = 'Brown'>>

<</if>>
<<if getvar("$FScolor") == 2>>
	<<set $FScolor = 'Foxy hair'>> <<set $FSsherst = 'Redhead'>>

<</if>>
<<if getvar("$FScolor") == 3>>
	<<set $FScolor = 'Blonde hair'>> <<set $FSsherst = '$pc.name_nick'>>

<</if>>
<<if getvar("$FScolor") == 4>>
	<<set $FScolor = 'Pink hair'>> <<set $FSsherst = 'Pink'>>

<</if>>
<<if getvar("$FScolor") == 5>>
	<<set $FScolor = 'White hair'>> <<set $FSsherst = 'White'>>

<</if>>
<<if getvar("$FSface") <= 0>>
	<<set $FSface = '$FSfemin person. $FScolor'>>

<</if>>
<<if getvar("$FSface") == 1>>
	<<set $FSface = '$FSfemin a person with cat ears and nose. $FScolor'>>

<</if>>
<<if getvar("$FSface") == 2>>
	<<set $FSface = '$FSfemin a person with dog ears and nose. $FScolor'>>

<</if>>
<<if getvar("$FSface") == 3>>
	<<set $FSface = '$FSfemin A person with fox ears and nose. $FScolor'>>

<</if>>
<<if getvar("$FSface") == 4>>
	<<set $FSface = '$FSfemin The person with the protruding ears and nose. $FScolor'>>

<</if>>
<<if getvar("$FSface") == 5>>
	<<set $FSface = '$FSfemin A person with cow's ears and nose. $FScolor'>>

<</if>>
<<if getvar("$FSface") >= 6>>
	<<set $FSface = '$FSfemin a person with ears and nose like a lizard. $FScolor'>>

<</if>>
<<if getvar("$FSskin") <= 0>>
	<<set $FSskin = 'Normal skin'>>

<</if>>
<<if getvar("$FSskin") == 1>>
	<<set $FSskin = '$FSsherst The fur on the body'>>

<</if>>
<<if getvar("$FSskin") >= 2>>
	<<set $FSskin = 'Scales on body'>>

<</if>>
<<if getvar("$FShvost") <= 0>>
	<<set $FShvost = ''>>

<</if>>
<<if getvar("$FShvost") == 1>>
	<<set $FShvost = 'Cat`s tail'>>

<</if>>
<<if getvar("$FShvost") == 2>>
	<<set $FShvost = 'Dog`s tail'>>

<</if>>
<<if getvar("$FShvost") == 3>>
	<<set $FShvost = 'Foxtail'>>

<</if>>
<<if getvar("$FShvost") == 4>>
	<<set $FShvost = 'Horse`s tail'>>

<</if>>
<<if getvar("$FShvost") == 5>>
	<<set $FShvost = 'Cow`s Tail'>>

<</if>>
<<if getvar("$FShvost") >= 6>>
	<<set $FShvost = 'Reptile tail'>>

<</if>>
<<if getvar("$dicktipe") <= 0>>
	<<set $dicktipe = 'Normal male'>>

<</if>>
<<if getvar("$dicktipe") == 1>>
	<<set $dicktipe = 'Conical, covered with soft spines cat'>>

<</if>>
<<if getvar("$dicktipe") == 2>>
	<<set $dicktipe = 'Red, a large dog at the base node'>>

<</if>>
<<if getvar("$dicktipe") == 3>>
	<<set $dicktipe = 'Covered with coarse, black leather bull'>>

<</if>>
<<if getvar("$dicktipe") >= 4>>
	<<set $dicktipe = 'Powerful horse'>>

<</if>>
<<if getvar("$FSdick") > 0>>
	<<set $FSdick = '$dicktipe long dick FSdick, see'>>

<</if>>
<<if getvar("$FSdick") <= 0>>
	<<set $FSdick = ''>>

<</if>>
<<if getvar("$FSvagina") > 0>>
	<<set $FSvagina = 'Between the legs of you is Snatch.'>>

<</if>>
<<if getvar("$FSvagina") <= 0>>
	<<set $FSvagina = ''>>

<</if>>
<<if getvar("$FStits") == 1>>
	<<set $FStitrazm = 'AA'>>

<</if>>
<<if getvar("$FStits") == 2>>
	<<set $FStitrazm = 'A resolution'>>

<</if>>
<<if getvar("$FStits") == 3>>
	<<set $FStitrazm = 'size B'>>

<</if>>
<<if getvar("$FStits") == 4>>
	<<set $FStitrazm = 'size C'>>

<</if>>
<<if getvar("$FStits") == 5>>
	<<set $FStitrazm = 'size D'>>

<</if>>
<<if getvar("$FStits") == 6>>
	<<set $FStitrazm = 'size E'>>

<</if>>
<<if getvar("$FStits") == 7>>
	<<set $FStitrazm = 'size F'>>

<</if>>
<<if getvar("$FStits") > 8>>
	<<set $FStitrazm = 'size F +'>>

<</if>>
<<if getvar("$FStits") > 0 and getvar("$FStitsLine") == 0>>
	<<set $FStits = 'Female breast $FStitrazm'>>

<</if>>
<<if getvar("$FStits") > 0 and getvar("$FStitsLine") == 1>>
	<<set $FStits = 'Two pairs of women's breasts $FStitrazm'>>

<</if>>
<<if getvar("$FStits") > 0 and getvar("$FStitsLine") >= 2>>
	<<set $FStits = 'Three pairs of nipples $FStitrazm'>>

<</if>>
<<if getvar("$FSpers") == 0>>
	<<set $FSpers = 'You have no character'>>

<</if>>
<<if getvar("$FSpers") > 0>>
	<<set $FSpers = '$FSname. $FSface $FSfigur $FStits $FSskin $FShvost $FSdick $FSvagina'>>

<</if>>
Level <<FSlvl>>, exp <<FSexp>>, need for next level <<FSneedExp>> exp
Life <<FSHP>>
Strength <<FSstren>>
Speed <<FSspeed>>
Agility <<FSagil>>
Initiative <<FSreakt>>
Endurance <<FSvital>>
<<if getvar("$FShour") >= 24>>
	<<set $FShour -= 24>>
	<<set $FSday += 1>>
	<<if getvar("$FSsup") == 0>>
		<<set $FSHP -= 10>>
	<<else>>
		<<set $FSsup -= 1>>
	<</if>>
<</if>>
<<if getvar("$FSHP") > 100>>
	<<set $FSHP = 100>>

<</if>>
<<link "Get out of the game">><<gt 'FSstart'>><</link>>
Day <<FSday>>, h <<FShour>>
<<FSgem>> of coins. Food enough for <<FSsup>> days
<p></p>
:: FSatk_macro[widget]
<<widget 'FSatk'>>
	<<set $KGOLzas = rand(FSagilV / 4, FSagilV)>>
	<<set $KGOLataka = rand(FSspeed / 2, FSspeed * 2)>>
	<<if $KGOLataka >= $KGOLzas>>
		<<if $KGOLataka >= $KGOLzas * 2>>
			<<set $KGHPnpow = rand(FSstren/2, FSstren)+ rand(FSweaponDam/2, FSweaponDam)>>
			<<set $FSHPV -= $KGHPnpow>>
			<font color="green">CRETE <<KGHPnpow>></font>
		<<else>>
			<<set $KGHPnpow = rand(FSstren/4, FSstren/2)+ rand(FSweaponDam/4, FSweaponDam/2)>>
			<<set $KGHPntpow = $KGHPnpow - $FSbronaV>>
			<<if getvar("$KGHPntpow") <= 0>>
			<<set $KGHPntpow = 1>>

		<</if>>
			<<set $FSHPV -= $KGHPnpow>>
			<font color="blue">Contact with <<KGHPnpow>></font>
		<</if>>
	<<else>>
		<font color="red"><<$FSnameV>> dodged your attack</font>
	<</if>>
<</widget>>
:: FSatkV_macro[widget]
<<widget 'FSatkV'>>
	<<set $KGOLzas = rand(FSagil / 4, FSagil)>>
	<<set $KGOLataka = rand(FSspeedV / 2, FSspeedV * 2)>>
	<<if $KGOLataka >= $KGOLzas>>
		<<if $KGOLataka >= $KGOLzas * 2>>
			<<set $KGHPnpow = rand(FSstrenV/2, FSstrenV)+ rand(FSweaponDamV/2, FSweaponDamV)>>
			<<set $FSHP -= $KGHPnpow>>
			<font color="red">CRETE <<KGHPnpow>></font>
		<<else>>
			<<set $KGHPnpow = rand(FSstrenV/4, FSstrenV/2)+ rand(FSweaponDamV/4, FSweaponDamV/2)>>
			<<set $KGHPntpow = $KGHPnpow - $FSbrona>>
			<<if getvar("$KGHPntpow") <= 0>>
			<<set $KGHPntpow = 1>>

		<</if>>
			<<set $FSHP -= $KGHPnpow>>
			<font color="brown">Contact with <<KGHPnpow>></font>
		<</if>>
	<<else>>
		<font color="green">You dodged the attack</font>
	<</if>>
<</widget>>
