# beforeFW
$endurdin = {
	Ken = (musle / 100) * Kus / 100

	if ken <= 0:ken = 1

	Kene = (musle[i] / 100) * Kuse / 100

	if kene <= 0:kene = 1

	KoefUder = rand(Uder * 20 / 100, Uder)
	KoefUderE = rand(Udere * 20 / 100, Udere)
	KoefBros = rand(Brosok * 20 / 100, Brosok)
	KoefBrosE = rand(Brosoke * 20 / 100, Brosoke)
	KoefProt = rand(Zash * 20 / 100, Zash)
	KoefProtE = rand(Zashe*20 / 100, Zashe)
}

$uderdin = {
	Kus = 5
	Kuse = 10
	dynamic $endurdin
	endur -= ken
	endurE -= kene
	Aktiv = (strenw / 2) + agilw + rand(0, lustw) + KoefUder
	Aktiv = Aktiv * endur / endurMax
	Passiv = (((strenwE + (agilwE / 2)) * koefE) / 100) + rand(0, lustwE) + KoefProtE
	Passiv = Passiv * endurE / endurMaxE
}

$uderdinE = {
	Kus = 10
	Kuse = 5
	dynamic $endurdin
	endur -= ken
	endurE -= kene
	Aktiv = (strenwE / 2) + agilwE + rand(0, lustwE) + KoefUdere
	Aktiv = Aktiv * endurE / endurMaxE
	Passiv = (((strenw + (agilw / 2)) * koef) / 100) + rand(0, lustw) + KoefProt
	Passiv = Passiv * endur / endurMaxE
}

$brosdin = {
	Kus = 10
	Kuse = 10
	dynamic $endurdin
	endur -= ken
	endurE -= kene
	Aktiv = strenw + (agilw / 2) + rand(0, lustw) + KoefBros
	Aktiv = Aktiv * endur / endurMax
	Passiv = (((strenwE / 2) + agilwE) * koefE / 100) + rand(0, lustwE) + KoefProtE
	Passiv = Passiv * endurE / endurMaxE
}

$brosdinE = {
	Kus = 10
	Kuse = 10
	dynamic $endurdin
	endur -= ken
	endurE -= kene
	Aktiv = strenwE + (agilwE / 2) + rand(0, lustwE) + KoefBrosE
	Aktiv = Aktiv * endurE / endurMaxE
	Passiv = (((strenw / 2) + agilw) * koef / 100) + rand(0, lustw) + KoefProt
	Passiv = Passiv * endur / endurMax
}

!!power, throws
!!flexibility, protection,
!!speed, initiative
!!equipment,
!!endurance
a = 1
point = 0
pointE = 0
$pcs_firstnameE = $nikname[i]
$pcs_firstnameA = $nikname[a]
strenw = musle[1] / 10
strenwE = musle[i] / 10
agilw = flex[1] / 10
agilwE = flex[i] / 10
lustMax = wipo[1]
lustMaxE = wipo[i]
lustw = lustMax
lustwe = lustMaxe
Brosok = Bteh[1] / 10
BrosokE = Bteh[i] / 10
Uder = Uteh[1] / 10
Udere = Uteh[i] / 10
Zash = Zteh[1] / 10
Zashe = Zteh[i] / 10

resultFight = 0
endurMax = stamina[1] / 10
endurMaxE = stamina[i] / 10
endur = endurMax
endurE = endurMaxE
croonce = 0
round = 1
rMin = 8
stoper = 0
Ku = 0
Kb = 0
Kz = 0
KuE = 0
KbE = 0
KzE = 0
!!minus the endurance of fat
!!force depends on the endurance
!!speed depends on the endurance

if Formula = 0:Formula = 3

'<center><b>before round</b></center>'
'<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/kickboxing/bef.jpg"></center>'
'The referee has the two of you meet in the middle of the ring explaining the rules before the fight, "Before we decide who gets advantage you need to arm wrestle. Let''s have a clean fight and now greet each other." she says.'
'You and <<$pcs_firstnameE>> nod and greet each other and move towards the middle to decide who gets the advantage.'

act 'Arm wrestle':
	cls
	!!picture
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/kickboxing/arm.jpg"></center>'
	'The two of you begin tugging back and forward. Both you and your opponent are giving you best as you want the advantage...'
	
	if strenw > strenwE:
		point += 1
		lustw += 1
		crouch = 1
		'You''ve won the arm wrestle and the referee has your opponent get down on all fours, as you position yourself behind her.'
	elseif strenw < strenwE:
		pointE += 1
		lustwE += 1
		crouch = 0
		'You''ve lost the arm wrestle and the referee has you get down on all fours, and the opponent position herself behind you.'
	elseif strenw = strenwE:
		varrand = rand(0, 1)
		'No one seems to be able to win the arm wrestle so the referee stops and tells you that they would use a coin instead that would determine who wins.'

		if varrand = 0:crouch = 1
		'The referee has your opponent get down on all fours, as you position yourself behind her.'

		if varrand = 1:crouch = 0
		'The referee has you get down on all fours, and the opponent position herself behind you.'		
	end

	act 'Follow the referees instruction':gt 'FightCrouch'
end

--- beforeFW ---------------------------------