iWhore/locations/mod_iwhore_autofight.qsrc

# mod_iwhore_autofight
if Formula = 0:Formula = 3

$iwm_endurdin = {
	Ken = (musle[a] / 100) * Kus / 100

	if ken <= 0:ken = 1

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

	if kene <= 0:kene = 1

	KoefUder = rand(iwm_Uder * 20 / 100, iwm_Uder)
	KoefUderE = rand(iwm_Udere * 20 / 100, iwm_Udere)
	KoefBros = rand(iwm_Brosok * 20 / 100, iwm_Brosok)
	KoefBrosE = rand(iwm_BrosokE * 20 / 100, iwm_BrosokE)
	KoefProt = rand(iwm_Zash * 20 / 100, iwm_Zash)
	KoefProtE = rand(iwm_Zashe * 20 / 100, iwm_Zashe)
}

$iwm_uderdin = {
	Kus = 5
	Kuse = 10
	dynamic $iwm_endurdin
	endur -= ken
	endurE -= kene
	Aktiv = (iwm_strenW / 2) + iwm_agilW + rand(0, iwm_lustW) + KoefUder
	Aktiv = Aktiv * endur / endurMax
	Passiv = (((iwm_strenWE + (iwm_agilWE / 2)) * koefE) / 100) + rand (0, iwm_lustWE) + KoefProtE
	Passiv = Passiv * endurE / endurMaxE
}

$iwm_uderdinE = {
	Kus = 10
	Kuse = 5
	dynamic $iwm_endurdin
	endur -= ken
	endurE -= kene
	Aktiv = (iwm_strenWE / 2) + iwm_agilWE + rand(0, iwm_lustWE) + KoefUdere
	Aktiv = Aktiv * endurE / endurMaxE
	Passiv = (((iwm_strenW + (iwm_agilW / 2)) * koef) / 100) + rand(0, iwm_lustW) + KoefProt
	Passiv = Passiv * endur / endurMaxE
}

$iwm_brosdin = {
	Kus = 10
	Kuse = 10
	dynamic $iwm_endurdin
	endur -= ken
	endurE -= kene
	Aktiv = iwm_strenW + (iwm_agilW / 2) + rand(0, iwm_lustW) + KoefBros
	Aktiv = Aktiv * endur / endurMax
	Passiv = (((iwm_strenWE / 2) + iwm_agilWE) * koefE / 100) + rand(0, iwm_lustWE) + KoefProtE
	Passiv = Passiv * endurE / endurMaxE
}

$iwm_$brosdinE = {
	Kus = 10
	Kuse = 10
	dynamic $iwm_endurdin
	endur -= ken
	endurE -= kene
	Aktiv = iwm_strenWE + (iwm_agilWE / 2) + rand(0, iwm_lustWE) + KoefBrosE
	Aktiv = Aktiv * endurE / endurMaxE
	Passiv = (((iwm_strenW / 2) + iwm_agilW) * koef / 100) + rand(0, iwm_lustW) + KoefProt
	Passiv = Passiv * endur / endurMax

}

iwm_point = 0
iwm_pointE = 0
$iwm_nameE = $nikname[i]
$iwm_nameA = $nikname[a]
iwm_strenW = musle[a] / 10
iwm_strenWE = musle[i] / 10
iwm_agilW = flex[a] / 10
iwm_agilWE = flex[i] / 10
iwm_lustMax = wipo[a]
iwm_lustMaxE = wipo[i]
iwm_lustW = iwm_lustMax
iwm_lustWE = iwm_lustMaxE
iwm_Brosok = Bteh[a] / 10
iwm_BrosokE = Bteh[i] / 10
iwm_Uder = Uteh[a] / 10
iwm_Udere = Uteh[i] / 10
iwm_Zash = Zteh[a] / 10
iwm_Zashe = Zteh[i] / 10
resultFight = 0
endurMax = stamina[a] / 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
if iwm_strenW > iwm_strenWE:
	iwm_point += 1
	iwm_lustW += 1
	crouch = 1
elseif iwm_strenW < iwm_strenWE:
	iwm_pointE += 1
	iwm_lustWE += 1
	crouch = 0
elseif iwm_strenW = iwm_strenWE:
		varrand = rand(0, 1)

		if varrand = 0:crouch = 1
		if varrand=1:crouch=0
end
:markFightCrouch
stoper = 0

if crouch = 1:
	enrand = rand(0, 1)
	arand = rand(0, 1)

	if arand = 0:
		endur -= 2

		if enrand = 0:
			iwm_pointE += 1
			jump 'markfight'
		elseif enrand = 1:
			iwm_point += 2
			endurE -= 1
			jump 'markfight1'
		end
	elseif arand = 1:
		endur -= 1

		if enrand = 0:
			iwm_point += 1
			jump 'markfight2'
		elseif enrand = 1:
			iwm_pointE += 1
			endurE -= 1
			jump 'markfight3'
		end
	end
else
	enrand = rand(0, 1)
	arand = rand(0, 1)

	if arand = 0:
		if enrand = 0:
			iwm_point += 1
			endurE -= 2
			jump 'markfightE'
		elseif enrand = 1:
			iwm_pointE += 1
			endurE -= 1
			jump 'markfightE1'
		end
	elseif arand = 1:
		endur -= 1

		if enrand = 0:
			iwm_pointE += 2
			endurE -= 2
			jump 'markfightE2'
		elseif enrand = 1:
			iwm_point += 1
			endurE -= 1
			jump 'markfightE3'
		end
	end
end

:markfight
koef = 100
koefE = 90
rMin -= 1
stoper += 1

if endur <= 0 or iwm_lustW <= 0:jump 'markSubLoss'
if endurE <= 0 or iwm_lustWE <= 0:jump 'markSubWin'

if stoper < 3:
	if rMin > 0:
		arand = rand(0, 1)

		if arand = 0:
			dynamic $iwm_uderdin

			if Aktiv > Passiv:
				iwm_point += 1
				Ku += 1
				stoper = 0
				jump 'markfight2'
			elseif Aktiv < Passiv:
				iwm_pointE += 1
				KzE += 1
				stoper = 0
				jump 'markfight3'
			elseif Aktiv = Passiv:
				jump 'markfight'
			end
		elseif arand = 1:
			dynamic $iwm_brosdin

			if Aktiv > Passiv:
				iwm_point += 2
				iwm_lustW += 1
				Kb += 1
				stoper = 0
				jump 'markfight1'
			elseif Aktiv < Passiv:
				iwm_pointE += 1
				KzE += 1
				stoper = 0
				jump 'markfight3'
			elseif Aktiv = Passiv:
				jump 'markfight'
			end
		end
	else
		jump 'markRoundEnd'
	end
elseif stoper >= 3:
	iwm_pointE += 1
	jump 'markRoundStop'
end

:markfight1
koef = 100
koefE = 85
rMin -= 1
stoper += 1

if endur <= 0 or iwm_lustW <= 0:jump 'markSubLoss'
if endurE <= 0 or iwm_lustWE <= 0:jump 'markSubWin'

if stoper < 3:
	if rMin > 0:
		dynamic $iwm_uderdin

		if Aktiv > Passiv:
			iwm_point += 1
			Ku += 1
			stoper = 0
			jump 'markfight2'
		elseif Aktiv < Passiv:
			iwm_pointE += 1
			KzE += 1
			stoper = 0
			jump 'markfight3'
		elseif Aktiv = Passiv:
			jump 'markfight1'
		end
	else
		jump 'markRoundEnd'
	end
elseif stoper >= 3:
	iwm_pointE += 1
	jump 'markRoundStop'
end

:markfight2
koef = 100
koefE = 80
lustE -= 1
rMin -= 1
stoper += 1

if endur <= 0 or iwm_lustW <= 0:jump 'markSubLoss'
if endurE <= 0 or iwm_lustWE <= 0:jump 'markSubWin'

if stoper < 3:
	if rMin > 0:
		dynamic $iwm_uderdin
		endurE -= 2

		if Aktiv >= Passiv:
			iwm_point += 1
			iwm_lustWE -= 1
			Ku += 1
			jump 'markfight2'
		elseif Aktiv < Passiv:
			iwm_pointE += 1
			KzE += 1
			stoper = 0
			jump 'markfight3'
		end
	else
		jump 'markRoundEnd'
	end
elseif stoper >= 3:
	iwm_point += 3
	jump 'markRoundStop'
end

:markfight3
koef = 100
koefE = 100
rMin -= 1
stoper += 1

if endur <= 0 or iwm_lustW <= 0:jump 'markSubLoss'
if endurE <= 0 or iwm_lustWE <= 0:jump 'markSubWin'

if stoper < 3:
	if rMin > 0:
		arand = rand(0, 1)

		if arand = 0:
			dynamic $iwm_uderdin

			if Aktiv > Passiv:
				iwm_point += 1
				Ku += 1
				stoper = 0
				jump 'markfight2'
			elseif Aktiv <= Passiv:
				iwm_pointE += 1
				KzE += 1
				jump 'markRoundStop'
			end
		elseif arand = 1:
			dynamic $iwm_brosdin

			if Aktiv > Passiv:
				iwm_point += 2
				iwm_lustW += 1
				Kb += 1
				stoper = 0
				jump 'markfight1'
			elseif Aktiv <= Passiv:
				iwm_pointE += 1
				KzE += 1
				jump 'markRoundStop'
			end
		end
	else
		jump 'markRoundEnd'
	end
elseif stoper >= 3:
	iwm_pointE += 1
	jump 'markRoundStop'
end

:markfightE
koef = 90
koefE = 100
rMin -= 1
stoper += 1

if endur <= 0 or iwm_lustW <= 0:jump 'markSubLoss'
if endurE <= 0 or iwm_lustWE <= 0:jump 'markSubWin'

if stoper < 3:
	if rMin > 0:
		deystrand = rand(0, 1)

		if deystrand = 0:
			dynamic $iwm_uderdinE

			if Aktiv > Passiv:
				iwm_pointE += 1
				KuE += 1
				stoper = 0
				jump 'markfightE1'
			elseif Aktiv < Passiv:
				iwm_point += 1
				Kz += 1
				stoper = 0
				jump 'markfightE3'
			elseif Aktiv = Passiv:
				jump 'markfightE'
			end
		elseif deystrand = 1:
			dynamic $iwm_$brosdinE

			if Aktiv > Passiv:
				iwm_pointE += 2
				iwm_lustWE += 1
				KbE += 1
				stoper = 0
				jump 'markfightE2'
			elseif Aktiv < Passiv:
				iwm_point += 1
				Kz += 1
				stoper = 0
				jump 'markfightE3'
			elseif Aktiv = Passiv:
				jump 'markfightE'
			end
		end
	else
		jump 'markRoundEnd'
	end
elseif stoper >= 3:
	iwm_point += 1
	jump 'markRoundStop'
end

:markfightE1
koef = 80
koefE = 100
lust -= 1
rMin -= 1
stoper += 1

if endur <= 0 or iwm_lustW <= 0:jump 'markSubLoss'
if endurE <= 0 or iwm_lustWE <= 0:jump 'markSubWin'

if stoper < 3:
	if rMin > 0:
		dynamic $iwm_uderdinE
		endur -= 2

		if Aktiv >= Passiv:
			iwm_pointE += 1
			iwm_lustW -= 1
			KuE += 1
			jump 'markfightE1'
		elseif Aktiv < Passiv:
			iwm_point += 1
			Kz += 1
			stoper = 0
			jump 'markfightE3'
		end
	else
		jump 'markRoundEnd'
	end
elseif stoper >= 3:
	iwm_pointE += 3
	jump 'markRoundStop'
end

:markfightE2
koef = 85
koefE = 100
rMin -= 1
stoper += 1

if endur <= 0 or iwm_lustW <= 0:jump 'markSubLoss'
if endurE <= 0 or iwm_lustWE <= 0:jump 'markSubWin'

if stoper < 3:
	if rMin > 0:
		dynamic $iwm_uderdinE

		if Aktiv > Passiv:
			iwm_pointE += 1
			KuE += 1
			stoper = 0
			jump 'markfightE1'
		elseif Aktiv < Passiv:
			iwm_point += 1
			Kz += 1
			stoper = 0
			jump 'markfightE3'
		elseif Aktiv = Passiv:
			jump 'markfightE2'
		end
	else
		jump 'markRoundEnd'
	end
elseif stoper >= 3:
	iwm_point += 1
	jump 'markRoundStop'
end

:markfightE3
koef = 100
koefE = 100
rMin -= 1
stoper += 1

if endur <= 0 or iwm_lustW <= 0:jump 'markSubLoss'
if endurE <= 0 or iwm_lustWE <= 0:jump 'markSubWin'

if stoper < 3:
	if rMin > 0:
		deystrand = rand(0 ,1)

		if deystrand = 0:
			dynamic $iwm_uderdinE

			if Aktiv > Passiv:
				iwm_pointE += 1
				KuE += 1
				stoper = 0
				jump 'markfightE1'
			elseif Aktiv <= Passiv:
				iwm_point += 1
				Kz += 1
				jump 'markRoundStop'
			end
		elseif deystrand = 1:
			dynamic $iwm_$brosdinE

			if Aktiv > Passiv:
				iwm_pointE += 2
				iwm_lustWE += 1
				KbE += 1
				stoper = 0
				jump 'markfightE2'
			elseif Aktiv <= Passiv:
				iwm_point += 1
				Kz += 1
				jump 'markRoundStop'
			end
		end
	else
		jump 'markRoundEnd'
	end
elseif stoper >= 3:
	iwm_point += 1
	jump 'markRoundStop'
end

:markRoundStop
stoper = 0

if crouch = 1 and croonce = 0:crouch = 0 & croonce = 1
if crouch = 0 and croonce = 0:crouch = 1 & croonce = 1

croonce = 0
jump 'markFightCrouch'

:markSubWin
resultFight = 0
jump 'markEndFight'

:markSubLoss
resultFight = 4
jump ' markEndFight'

:markRoundEnd
round += 1
rMin = 8
stoper = 0

if round = Formula + 1:
	if iwm_point > iwm_pointE:
		resultFight = 1
	elseif iwm_point < iwm_pointE:
		resultFight=3
	elseif iwm_point = iwm_pointE:
		resultFight=2
	end

	jump 'markEndFight'
elseif round < Formula + 1:
	endur += iwm_lustW * 25 / 100
	endurE += iwm_lustWE *25 / 100

	if crouch = 1 and croonce = 0:crouch = 0 & croonce = 1
	if crouch = 0 and croonce = 0:crouch = 1 & croonce = 1

	croonce = 0
	jump 'markFightCrouch'
end

:markEndFight
if NoView = 0:'<<$iwm_nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>>'
if NoView = 0:'<<$iwm_nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>>'
if NoView = 0:'<<iwm_point>> points <<$iwm_nameA>> <<Ku>> Activism in the attacks retention, <<Kb>> Activism in the attacks throws, <<Kz>> successful defenses.'
if NoView = 0:'<<iwm_pointE>> points <<$iwm_nameE>> <<KuE>> Activism in the attacks retention, <<KbE>> Activism in the attacks throws,  <<KzE>> successful defenses.'

if resultFight = 0:
	wipo[a] += 2
	wipo[i] -= 1
	rating[a] += 2
	rating[i] -= 5
	strand = rand(0, 2)

	if strand = 0:musle[a] += 10
	if strand = 1:flex[a] += 10
	if strand = 2:stamina[a] += 10

	tehrand = rand(0, 2)

	if tehrand = 0:Bteh[a] += 10
	if tehrand = 1:Uteh[a] += 10
	if tehrand = 2:Zteh[a] += 10
	if NoView = 0:'<b><<$iwm_nameA>> won surrender</b>'

	$spisok[a] += '<<$iwm_nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$iwm_nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=green>wins by submission</font>'
	$spisok[i] += '<<$iwm_nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$iwm_nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=red>defeat surrender</font>'
	win[a] += 1
	SubWin[a] += 1
	loss[i] += 1
	SubLoss[i] += 1
elseif resultFight = 1:
	wipo[a] += 1
	rating[a] += 1
	rating[i] -= 3
	strand = rand(0, 2)

	if strand = 0:musle[a] += 10
	if strand = 1:flex[a] += 10
	if strand = 2:stamina[a] += 10

	tehrand = rand(0, 2)

	if tehrand = 0:Bteh[a] += 10
	if tehrand = 1:Uteh[a] += 10
	if tehrand = 2:Zteh[a] += 10
	if NoView = 0:'<b><<$iwm_nameA>> won</b>'

	$spisok[a] += '<<$iwm_nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$iwm_nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=green>victory</font>'
	$spisok[i] += '<<$iwm_nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$iwm_nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=red>defeat</font>'
	win[a] += 1
	loss[i] += 1
elseif resultFight = 2:
	rating[a] -= 1
	rating[i] -= 1

	if NoView = 0:'<b>The result of the fight a draw</b>'

	$spisok[a] += '<<$iwm_nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$iwm_nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=black>draw</font>'
	$spisok[i] += '<<$iwm_nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$iwm_nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=black>draw</font>'
	draw[a] += 1
	draw[i] += 1
elseif resultFight = 3:
	wipo[i] += 1
	rating[a] -= 3
	rating[i] += 1
	strand = rand(0, 2)

	if strand = 0:musle[i] += 10
	if strand = 1:flex[i] += 10
	if strand = 2:stamina[i] += 10

	tehrand = rand(0, 2)

	if tehrand = 0:Bteh[i] += 10
	if tehrand = 1:Uteh[i] += 10
	if tehrand = 2:Zteh[i] += 10
	if NoView = 0:'<b><<$iwm_nameE>> won</b>'

	$spisok[a] += '<<$iwm_nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$iwm_nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=red>defeat</font>'
	$spisok[i] += '<<$iwm_nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$iwm_nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=green>victory</font>'
	win[i] += 1
	loss[a] += 1
elseif resultFight = 4:
	wipo[i] += 2
	wipo[a] -= 1
	rating[a] -= 5
	rating[i] += 2
	strand = rand(0, 2)

	if strand = 0:musle[i] += 10
	if strand = 1:flex[i] += 10
	if strand = 2:stamina[i] += 10

	tehrand = rand(0, 2)

	if tehrand = 0:Bteh[i] += 10
	if tehrand = 1:Uteh[i] += 10
	if tehrand = 2:Zteh[i] += 10
	if NoView = 0:'<b><<$iwm_nameE>> won surrender</b>'

	$spisok[a] += '<<$iwm_nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$iwm_nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=red>defeat surrender</font>'
	$spisok[i] += '<<$iwm_nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$iwm_nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=green>wins by submission</font>'
	win[i] += 1
	SubWin[i] += 1
	loss[a] += 1
	SubLoss[a] += 1
end

--- mod_iwhore_autofight ---------------------------------