494_Autofight
if Formula = 0:
Formula=3
end
$endurdin = {
Ken= (musle / 100) * Kus / 100
if ken <= 0:
ken = 1
end
Kene = (musle[i] / 100) * Kuse / 100
if kene <= 0:
kene = 1
end
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)
=======
# Autofight
if Formula=0:Formula=3
$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(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)
>>>>>>> 494_Autofight
}
<<<<<<< 494_Autofight
$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
=======
$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
>>>>>>> 494_Autofight
}
<<<<<<< 494_Autofight
!power, throws
!flexibility, protection,
!speed, initiative
!equipment,
!endurance
a = 1
point = 0
pointE = 0
$nameE = $nikname[i]
$nameA = $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
end
'
before round'
''
'you and <<$nameE>> greeted each other.'
'Referee required to start a fight on his hands.'
!picture
act 'Fight on his hands':
cls
!picture
''
if strenw > strenwE:
point += 1
lustw += 1
$text = 'Stand your opponent on all fours, and you catch him from behind.'
'You won the fight on his hands.'
crouch = 1
end
if strenw < strenwE:
pointE += 1
lustwE += 1
$text = 'You get up on all fours, and your opponent to catch him from behind.'
'You lost the battle on his hands.'
crouch = 0
end
if strenw = strenwE:
'Quest on hand ended in a draw. The referee tossed the coin, that would determine the winner.'
varrand = rand(0, 1)
if varrand = 0:
crouch = 1 & $text = 'Stand your opponent on all fours, and you catch him from behind.'
end
if varrand = 1:
crouch = 0 & $text = 'You get up on all fours, and your opponent to catch him from behind.'
end
end
'Refferi stopped you and commanded <<$text>>'
act 'Follow the instructions referees':
gt 'FightCrouch'
end
end
=======
point=0
pointE=0
$nameE=$nikname[i]
$nameA=$nikname[a]
strenW=musle[a]/10
strenWE=musle[i]/10
agilW=flex[a]/10
agilWE=flex[i]/10
lustMax=wipo[a]
lustMaxE=wipo[i]
lustW=lustMax
lustWe=lustMaxe
Brosok=Bteh[a]/10
BrosokE=Bteh[i]/10
Uder=Uteh[a]/10
Udere=Uteh[i]/10
Zash=Zteh[a]/10
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 strenw>strenwE:
point+=1
lustw+=1
crouch=1
end
if strenw0:
arand=RAND(0,1)
if arand=0:
dynamic $uderdin
if Aktiv>Passiv:
point+=1
Ku+=1
stoper=0
jump'markfight2'
end
if AktivPassiv:
point+=2
lustw+=1
Kb+=1
stoper=0
jump'markfight1'
end
if Aktiv=3:
pointE+=1
jump'markRoundStop'
end
:markfight1
koef=100
koefE=85
rMin-=1
stoper+=1
if endur<=0 or lustw<=0:jump'markSubLoss'
if endurE<=0 or lustwE<=0:jump'markSubWin'
if stoper<3:
if rMin>0:
dynamic $uderdin
if Aktiv>Passiv:
point+=1
Ku+=1
stoper=0
jump'markfight2'
end
if Aktiv=3:
pointE+=1
jump'markRoundStop'
end
:markfight2
koef=100
koefE=80
lustE-=1
rMin-=1
stoper+=1
if endur<=0 or lustw<=0:jump'markSubLoss'
if endurE<=0 or lustwE<=0:jump'markSubWin'
if stoper<3:
if rMin>0:
dynamic $uderdin
endurE-=2
if Aktiv>=Passiv:
point+=1
lustwE-=1
Ku+=1
jump'markfight2'
end
if Aktiv=3:
point+=3
jump'markRoundStop'
end
:markfight3
koef=100
koefE=100
rMin-=1
stoper+=1
if endur<=0 or lustw<=0:jump'markSubLoss'
if endurE<=0 or lustwE<=0:jump'markSubWin'
if stoper<3:
if rMin>0:
arand=RAND(0,1)
if arand=0:
dynamic $uderdin
if Aktiv>Passiv:
point+=1
Ku+=1
stoper=0
jump'markfight2'
end
if Aktiv<=Passiv:
pointE+=1
KzE+=1
jump'markRoundStop'
end
end
if arand=1:
dynamic $brosdin
if Aktiv>Passiv:
point+=2
lustw+=1
Kb+=1
stoper=0
jump'markfight1'
end
if Aktiv<=Passiv:
pointE+=1
KzE+=1
jump'markRoundStop'
end
end
else
jump'markRoundEnd'
end
end
if stoper>=3:
pointE+=1
jump'markRoundStop'
end
:markfightE
koef=90
koefE=100
rMin-=1
stoper+=1
if endur<=0 or lustw<=0:jump'markSubLoss'
if endurE<=0 or lustwE<=0:jump'markSubWin'
if stoper<3:
if rMin>0:
deystrand=RAND(0,1)
if deystrand=0:
dynamic $uderdinE
if Aktiv>Passiv:
pointE+=1
KuE+=1
stoper=0
jump'markfightE1'
end
if AktivPassiv:
pointE+=2
lustwE+=1
KbE+=1
stoper=0
jump'markfightE2'
end
if Aktiv=3:
point+=1
jump'markRoundStop'
end
:markfightE1
koef=80
koefE=100
lust-=1
rMin-=1
stoper+=1
if endur<=0 or lustw<=0:jump'markSubLoss'
if endurE<=0 or lustwE<=0:jump'markSubWin'
if stoper<3:
if rMin>0:
dynamic $uderdinE
endur-=2
if Aktiv>=Passiv:
pointE+=1
lustw-=1
KuE+=1
jump'markfightE1'
end
if Aktiv=3:
pointE+=3
jump'markRoundStop'
end
:markfightE2
koef=85
koefE=100
rMin-=1
stoper+=1
if endur<=0 or lustw<=0:jump'markSubLoss'
if endurE<=0 or lustwE<=0:jump'markSubWin'
if stoper<3:
if rMin>0:
dynamic $uderdinE
if Aktiv>Passiv:
pointE+=1
KuE+=1
stoper=0
jump'markfightE1'
end
if Aktiv=3:
point+=1
jump'markRoundStop'
end
:markfightE3
koef=100
koefE=100
rMin-=1
stoper+=1
if endur<=0 or lustw<=0:jump'markSubLoss'
if endurE<=0 or lustwE<=0:jump'markSubWin'
if stoper<3:
if rMin>0:
deystrand=RAND(0,1)
if deystrand=0:
dynamic $uderdinE
if Aktiv>Passiv:
pointE+=1
KuE+=1
stoper=0
jump'markfightE1'
end
if Aktiv<=Passiv:
point+=1
Kz+=1
jump'markRoundStop'
end
end
if deystrand=1:
dynamic $brosdinE
if Aktiv>Passiv:
pointE+=2
lustwE+=1
KbE+=1
stoper=0
jump'markfightE2'
end
if Aktiv<=Passiv:
point+=1
Kz+=1
jump'markRoundStop'
end
end
else
jump'markRoundEnd'
end
end
if stoper>=3:
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 point>pointE:
resultFight=1
end
if point> <>-<>-<> <>/<>'
if NoView=0:'<<$nameE>> <>-<>-<> <>/<>'
if NoView=0:'<> points <<$nameA>> <> Activism in the attacks retention, <> Activism in the attacks throws, <> successful defenses.'
if NoView=0:'<> points <<$nameE>> <> Activism in the attacks retention, <> Activism in the attacks throws, <> 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:'<<$nameA>> won surrender'
$spisok[a]+='<<$nameA>> <>-<>-<> <>/<> vs <<$nameE>> <>-<>-<> <>/<> wins by submission
'
$spisok[i]+='<<$nameA>> <>-<>-<> <>/<> vs <<$nameE>> <>-<>-<> <>/<> defeat surrender
'
win[a]+=1
SubWin[a]+=1
loss[i]+=1
SubLoss[i]+=1
end
if 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:'<<$nameA>> won'
$spisok[a]+='<<$nameA>> <>-<>-<> <>/<> vs <<$nameE>> <>-<>-<> <>/<> victory
'
$spisok[i]+='<<$nameA>> <>-<>-<> <>/<> vs <<$nameE>> <>-<>-<> <>/<> defeat
'
win[a]+=1
loss[i]+=1
end
if resultFight=2:
rating[a]-=1
rating[i]-=1
if NoView=0:'The result of the fight a draw'
$spisok[a]+='<<$nameA>> <>-<>-<> <>/<> vs <<$nameE>> <>-<>-<> <>/<> draw
'
$spisok[i]+='<<$nameA>> <>-<>-<> <>/<> vs <<$nameE>> <>-<>-<> <>/<> draw
'
draw[a]+=1
draw[i]+=1
end
if 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:'<<$nameE>> won'
$spisok[a]+='<<$nameA>> <>-<>-<> <>/<> vs <<$nameE>> <>-<>-<> <>/<> defeat
'
$spisok[i]+='<<$nameA>> <>-<>-<> <>/<> vs <<$nameE>> <>-<>-<> <>/<> victory
'
win[i]+=1
loss[a]+=1
end
if 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:'<<$nameE>> won surrender'
$spisok[a]+='<<$nameA>> <>-<>-<> <>/<> vs <<$nameE>> <>-<>-<> <>/<> defeat surrender
'
$spisok[i]+='<<$nameA>> <>-<>-<> <>/<> vs <<$nameE>> <>-<>-<> <>/<> wins by submission
'
win[i]+=1
SubWin[i]+=1
loss[a]+=1
SubLoss[a]+=1
end
--- Autofight ---------------------------------
>>>>>>> 494_Autofight