1
1

494_Autofight 16 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838
  1. <<<<<<< 494_Autofight
  2. if Formula = 0:
  3. Formula=3
  4. end
  5. $endurdin = {
  6. Ken= (musle / 100) * Kus / 100
  7. if ken <= 0:
  8. ken = 1
  9. end
  10. Kene = (musle[i] / 100) * Kuse / 100
  11. if kene <= 0:
  12. kene = 1
  13. end
  14. KoefUder = rand(Uder * 20 / 100, Uder)
  15. KoefUderE = rand(Udere * 20 / 100, Udere)
  16. KoefBros = rand(Brosok * 20 / 100, Brosok)
  17. KoefBrosE = rand(Brosoke * 20 / 100, Brosoke)
  18. KoefProt = rand(Zash * 20 / 100, Zash)
  19. KoefProtE = rand(Zashe * 20 / 100, Zashe)
  20. =======
  21. # Autofight
  22. if Formula=0:Formula=3
  23. $endurdin={
  24. Ken=(musle[a]/100)*Kus/100
  25. if ken<=0:ken=1
  26. Kene=(musle[i]/100)*Kuse/100
  27. if kene<=0:kene=1
  28. KoefUder=RAND(Uder*20/100,Uder)
  29. KoefUderE=RAND(Udere*20/100,Udere)
  30. KoefBros=RAND(Brosok*20/100,Brosok)
  31. KoefBrosE=RAND(Brosoke*20/100,Brosoke)
  32. KoefProt=RAND(Zash*20/100,Zash)
  33. KoefProtE=RAND(Zashe*20/100,Zashe)
  34. >>>>>>> 494_Autofight
  35. }
  36. <<<<<<< 494_Autofight
  37. $uderdin = {
  38. Kus = 5
  39. Kuse = 10
  40. dynamic $endurdin
  41. endur -= ken
  42. endurE -= kene
  43. Aktiv = (strenw / 2) + agilw + rand(0, lustw) + KoefUder
  44. Aktiv = Aktiv * endur / endurMax
  45. Passiv = (((strenwE + (agilwE / 2)) * koefE) / 100) + rand (0, lustwE) + KoefProtE
  46. Passiv = Passiv * endurE / endurMaxE
  47. }
  48. $uderdinE = {
  49. Kus = 10
  50. Kuse = 5
  51. dynamic $endurdin
  52. endur -= ken
  53. endurE -= kene
  54. Aktiv = (strenwE / 2) + agilwE + rand(0, lustwE) + KoefUdere
  55. Aktiv = Aktiv * endurE / endurMaxE
  56. Passiv = (((strenw + (agilw / 2)) * koef) / 100) + rand(0, lustw) + KoefProt
  57. Passiv = Passiv * endur / endurMaxE
  58. }
  59. $brosdin = {
  60. Kus = 10
  61. Kuse = 10
  62. dynamic $endurdin
  63. endur -= ken
  64. endurE -= kene
  65. Aktiv = strenw + (agilw / 2) + rand(0, lustw) + KoefBros
  66. Aktiv = Aktiv * endur / endurMax
  67. Passiv = (((strenwE / 2) + agilwE) * koefE / 100) + rand(0, lustwE) + KoefProtE
  68. Passiv = Passiv * endurE / endurMaxE
  69. }
  70. $brosdinE = {
  71. Kus = 10
  72. Kuse = 10
  73. dynamic $endurdin
  74. endur -= ken
  75. endurE -= kene
  76. Aktiv = strenwE + (agilwE / 2) + rand(0, lustwE) + KoefBrosE
  77. Aktiv = Aktiv * endurE / endurMaxE
  78. Passiv = (((strenw / 2) + agilw) * koef / 100) + rand(0, lustw) + KoefProt
  79. Passiv = Passiv * endur / endurMax
  80. =======
  81. $uderdin={
  82. Kus=5
  83. Kuse=10
  84. dynamic $endurdin
  85. endur-=ken
  86. endurE-=kene
  87. Aktiv=(strenW/2)+agilW+RAND(0,lustW)+KoefUder
  88. Aktiv=Aktiv*endur/endurMax
  89. Passiv=(((strenWE+(agilWE/2))*koefE)/100)+RAND(0,lustWE)+KoefProtE
  90. Passiv=Passiv*endurE/endurMaxE
  91. }
  92. $uderdinE={
  93. Kus=10
  94. Kuse=5
  95. dynamic $endurdin
  96. endur-=ken
  97. endurE-=kene
  98. Aktiv=(strenWE/2)+agilWE+RAND(0,lustWE)+KoefUdere
  99. Aktiv=Aktiv*endurE/endurMaxE
  100. Passiv=(((strenw+(agilw/2))*koef)/100)+RAND(0,lustw)+KoefProt
  101. Passiv=Passiv*endur/endurMaxE
  102. }
  103. $brosdin={
  104. Kus=10
  105. Kuse=10
  106. dynamic $endurdin
  107. endur-=ken
  108. endurE-=kene
  109. Aktiv=strenw+(agilw/2)+RAND(0,lustw)+KoefBros
  110. Aktiv=Aktiv*endur/endurMax
  111. Passiv=(((strenwE/2)+agilwE)*koefE/100)+RAND(0,lustwE)+KoefProtE
  112. Passiv=Passiv*endurE/endurMaxE
  113. }
  114. $brosdinE={
  115. Kus=10
  116. Kuse=10
  117. dynamic $endurdin
  118. endur-=ken
  119. endurE-=kene
  120. Aktiv=strenwE+(agilwE/2)+RAND(0,lustwE)+KoefBrosE
  121. Aktiv=Aktiv*endurE/endurMaxE
  122. Passiv=(((strenw/2)+agilw)*koef/100)+RAND(0,lustw)+KoefProt
  123. Passiv=Passiv*endur/endurMax
  124. >>>>>>> 494_Autofight
  125. }
  126. <<<<<<< 494_Autofight
  127. !power, throws
  128. !flexibility, protection,
  129. !speed, initiative
  130. !equipment,
  131. !endurance
  132. a = 1
  133. point = 0
  134. pointE = 0
  135. $nameE = $nikname[i]
  136. $nameA = $nikname[a]
  137. strenw = musle[1] / 10
  138. strenwE = musle[i] / 10
  139. agilw = flex[1] / 10
  140. agilwE = flex[i] / 10
  141. lustMax = wipo[1]
  142. lustMaxE = wipo[i]
  143. lustw = lustMax
  144. lustwe = lustMaxe
  145. Brosok = Bteh[1] / 10
  146. BrosokE = Bteh[i] / 10
  147. Uder = Uteh[1] / 10
  148. Udere = Uteh[i] / 10
  149. Zash = Zteh[1] / 10
  150. Zashe = Zteh[i] / 10
  151. resultFight = 0
  152. endurMax = stamina[1] / 10
  153. endurMaxE = stamina[i] / 10
  154. endur = endurMax
  155. endurE = endurMaxE
  156. croonce = 0
  157. round = 1
  158. rMin = 8
  159. stoper = 0
  160. Ku = 0
  161. Kb = 0
  162. Kz = 0
  163. KuE =0
  164. KbE= 0
  165. KzE = 0
  166. !minus the endurance of fat
  167. !force depends on the endurance
  168. !speed depends on the endurance
  169. if Formula = 0:
  170. Formula = 3
  171. end
  172. '<center><b>before round</b></center>'
  173. '<center><img src="images/pic/fight/bef.jpg" ></center>'
  174. 'you and <<$nameE>> greeted each other.'
  175. 'Referee required to start a fight on his hands.'
  176. !picture
  177. act 'Fight on his hands':
  178. cls
  179. !picture
  180. '<center><img src="pic/fight/arm.jpg" ></center>'
  181. if strenw > strenwE:
  182. point += 1
  183. lustw += 1
  184. $text = 'Stand your opponent on all fours, and you catch him from behind.'
  185. 'You won the fight on his hands.'
  186. crouch = 1
  187. end
  188. if strenw < strenwE:
  189. pointE += 1
  190. lustwE += 1
  191. $text = 'You get up on all fours, and your opponent to catch him from behind.'
  192. 'You lost the battle on his hands.'
  193. crouch = 0
  194. end
  195. if strenw = strenwE:
  196. 'Quest on hand ended in a draw. The referee tossed the coin, that would determine the winner.'
  197. varrand = rand(0, 1)
  198. if varrand = 0:
  199. crouch = 1 & $text = 'Stand your opponent on all fours, and you catch him from behind.'
  200. end
  201. if varrand = 1:
  202. crouch = 0 & $text = 'You get up on all fours, and your opponent to catch him from behind.'
  203. end
  204. end
  205. 'Refferi stopped you and commanded <<$text>>'
  206. act 'Follow the instructions referees':
  207. gt 'FightCrouch'
  208. end
  209. end
  210. =======
  211. point=0
  212. pointE=0
  213. $nameE=$nikname[i]
  214. $nameA=$nikname[a]
  215. strenW=musle[a]/10
  216. strenWE=musle[i]/10
  217. agilW=flex[a]/10
  218. agilWE=flex[i]/10
  219. lustMax=wipo[a]
  220. lustMaxE=wipo[i]
  221. lustW=lustMax
  222. lustWe=lustMaxe
  223. Brosok=Bteh[a]/10
  224. BrosokE=Bteh[i]/10
  225. Uder=Uteh[a]/10
  226. Udere=Uteh[i]/10
  227. Zash=Zteh[a]/10
  228. Zashe=Zteh[i]/10
  229. resultFight=0
  230. endurMax=stamina[a]/10
  231. endurMaxE=stamina[i]/10
  232. endur=endurMax
  233. endurE=endurMaxE
  234. croonce=0
  235. round=1
  236. rMin=8
  237. stoper=0
  238. Ku=0
  239. Kb=0
  240. Kz=0
  241. KuE=0
  242. KbE=0
  243. KzE=0
  244. if strenw>strenwE:
  245. point+=1
  246. lustw+=1
  247. crouch=1
  248. end
  249. if strenw<strenwE:
  250. pointE+=1
  251. lustwE+=1
  252. crouch=0
  253. end
  254. if strenw=strenwE:
  255. varrand=rand(0,1)
  256. if varrand=0:crouch=1
  257. if varrand=1:crouch=0
  258. end
  259. :markFightCrouch
  260. stoper=0
  261. if crouch=1:
  262. enrand=RAND(0,1)
  263. arand=RAND(0,1)
  264. if arand=0:
  265. endur-=2
  266. if enrand=0:
  267. pointE+=1
  268. jump'markfight'
  269. end
  270. if enrand=1:
  271. point+=2
  272. endurE-=1
  273. jump'markfight1'
  274. end
  275. end
  276. if arand=1:
  277. endur-=1
  278. if enrand=0:
  279. point+=1
  280. jump'markfight2'
  281. end
  282. if enrand=1:
  283. pointE+=1
  284. endurE-=1
  285. jump'markfight3'
  286. end
  287. end
  288. else
  289. enrand=RAND(0,1)
  290. arand=RAND(0,1)
  291. if arand=0:
  292. if enrand=0:
  293. point+=1
  294. endurE-=2
  295. jump'markfightE'
  296. end
  297. if enrand=1:
  298. pointE+=1
  299. endurE-=1
  300. jump'markfightE1'
  301. end
  302. end
  303. if arand=1:
  304. endur-=1
  305. if enrand=0:
  306. pointE+=2
  307. endurE-=2
  308. jump'markfightE2'
  309. end
  310. if enrand=1:
  311. point+=1
  312. endurE-=1
  313. jump'markfightE3'
  314. end
  315. end
  316. end
  317. :markfight
  318. koef=100
  319. koefE=90
  320. rMin-=1
  321. stoper+=1
  322. if endur<=0 or lustw<=0:jump'markSubLoss'
  323. if endurE<=0 or lustwE<=0:jump'markSubWin'
  324. if stoper<3:
  325. if rMin>0:
  326. arand=RAND(0,1)
  327. if arand=0:
  328. dynamic $uderdin
  329. if Aktiv>Passiv:
  330. point+=1
  331. Ku+=1
  332. stoper=0
  333. jump'markfight2'
  334. end
  335. if Aktiv<Passiv:
  336. pointE+=1
  337. KzE+=1
  338. stoper=0
  339. jump'markfight3'
  340. end
  341. if Aktiv=Passiv:
  342. jump'markfight'
  343. end
  344. end
  345. if arand=1:
  346. dynamic $brosdin
  347. if Aktiv>Passiv:
  348. point+=2
  349. lustw+=1
  350. Kb+=1
  351. stoper=0
  352. jump'markfight1'
  353. end
  354. if Aktiv<Passiv:
  355. pointE+=1
  356. KzE+=1
  357. stoper=0
  358. jump'markfight3'
  359. end
  360. if Aktiv=Passiv:
  361. jump'markfight'
  362. end
  363. end
  364. else
  365. jump'markRoundEnd'
  366. end
  367. end
  368. if stoper>=3:
  369. pointE+=1
  370. jump'markRoundStop'
  371. end
  372. :markfight1
  373. koef=100
  374. koefE=85
  375. rMin-=1
  376. stoper+=1
  377. if endur<=0 or lustw<=0:jump'markSubLoss'
  378. if endurE<=0 or lustwE<=0:jump'markSubWin'
  379. if stoper<3:
  380. if rMin>0:
  381. dynamic $uderdin
  382. if Aktiv>Passiv:
  383. point+=1
  384. Ku+=1
  385. stoper=0
  386. jump'markfight2'
  387. end
  388. if Aktiv<Passiv:
  389. pointE+=1
  390. KzE+=1
  391. stoper=0
  392. jump'markfight3'
  393. end
  394. if Aktiv=Passiv:
  395. jump'markfight1'
  396. end
  397. else
  398. jump'markRoundEnd'
  399. end
  400. end
  401. if stoper>=3:
  402. pointE+=1
  403. jump'markRoundStop'
  404. end
  405. :markfight2
  406. koef=100
  407. koefE=80
  408. lustE-=1
  409. rMin-=1
  410. stoper+=1
  411. if endur<=0 or lustw<=0:jump'markSubLoss'
  412. if endurE<=0 or lustwE<=0:jump'markSubWin'
  413. if stoper<3:
  414. if rMin>0:
  415. dynamic $uderdin
  416. endurE-=2
  417. if Aktiv>=Passiv:
  418. point+=1
  419. lustwE-=1
  420. Ku+=1
  421. jump'markfight2'
  422. end
  423. if Aktiv<Passiv:
  424. pointE+=1
  425. KzE+=1
  426. stoper=0
  427. jump'markfight3'
  428. end
  429. else
  430. jump'markRoundEnd'
  431. end
  432. end
  433. if stoper>=3:
  434. point+=3
  435. jump'markRoundStop'
  436. end
  437. :markfight3
  438. koef=100
  439. koefE=100
  440. rMin-=1
  441. stoper+=1
  442. if endur<=0 or lustw<=0:jump'markSubLoss'
  443. if endurE<=0 or lustwE<=0:jump'markSubWin'
  444. if stoper<3:
  445. if rMin>0:
  446. arand=RAND(0,1)
  447. if arand=0:
  448. dynamic $uderdin
  449. if Aktiv>Passiv:
  450. point+=1
  451. Ku+=1
  452. stoper=0
  453. jump'markfight2'
  454. end
  455. if Aktiv<=Passiv:
  456. pointE+=1
  457. KzE+=1
  458. jump'markRoundStop'
  459. end
  460. end
  461. if arand=1:
  462. dynamic $brosdin
  463. if Aktiv>Passiv:
  464. point+=2
  465. lustw+=1
  466. Kb+=1
  467. stoper=0
  468. jump'markfight1'
  469. end
  470. if Aktiv<=Passiv:
  471. pointE+=1
  472. KzE+=1
  473. jump'markRoundStop'
  474. end
  475. end
  476. else
  477. jump'markRoundEnd'
  478. end
  479. end
  480. if stoper>=3:
  481. pointE+=1
  482. jump'markRoundStop'
  483. end
  484. :markfightE
  485. koef=90
  486. koefE=100
  487. rMin-=1
  488. stoper+=1
  489. if endur<=0 or lustw<=0:jump'markSubLoss'
  490. if endurE<=0 or lustwE<=0:jump'markSubWin'
  491. if stoper<3:
  492. if rMin>0:
  493. deystrand=RAND(0,1)
  494. if deystrand=0:
  495. dynamic $uderdinE
  496. if Aktiv>Passiv:
  497. pointE+=1
  498. KuE+=1
  499. stoper=0
  500. jump'markfightE1'
  501. end
  502. if Aktiv<Passiv:
  503. point+=1
  504. Kz+=1
  505. stoper=0
  506. jump'markfightE3'
  507. end
  508. if Aktiv=Passiv:
  509. jump'markfightE'
  510. end
  511. end
  512. if deystrand=1:
  513. dynamic $brosdinE
  514. if Aktiv>Passiv:
  515. pointE+=2
  516. lustwE+=1
  517. KbE+=1
  518. stoper=0
  519. jump'markfightE2'
  520. end
  521. if Aktiv<Passiv:
  522. point+=1
  523. Kz+=1
  524. stoper=0
  525. jump'markfightE3'
  526. end
  527. if Aktiv=Passiv:
  528. jump'markfightE'
  529. end
  530. end
  531. else
  532. jump'markRoundEnd'
  533. end
  534. end
  535. if stoper>=3:
  536. point+=1
  537. jump'markRoundStop'
  538. end
  539. :markfightE1
  540. koef=80
  541. koefE=100
  542. lust-=1
  543. rMin-=1
  544. stoper+=1
  545. if endur<=0 or lustw<=0:jump'markSubLoss'
  546. if endurE<=0 or lustwE<=0:jump'markSubWin'
  547. if stoper<3:
  548. if rMin>0:
  549. dynamic $uderdinE
  550. endur-=2
  551. if Aktiv>=Passiv:
  552. pointE+=1
  553. lustw-=1
  554. KuE+=1
  555. jump'markfightE1'
  556. end
  557. if Aktiv<Passiv:
  558. point+=1
  559. Kz+=1
  560. stoper=0
  561. jump'markfightE3'
  562. end
  563. else
  564. jump'markRoundEnd'
  565. end
  566. end
  567. if stoper>=3:
  568. pointE+=3
  569. jump'markRoundStop'
  570. end
  571. :markfightE2
  572. koef=85
  573. koefE=100
  574. rMin-=1
  575. stoper+=1
  576. if endur<=0 or lustw<=0:jump'markSubLoss'
  577. if endurE<=0 or lustwE<=0:jump'markSubWin'
  578. if stoper<3:
  579. if rMin>0:
  580. dynamic $uderdinE
  581. if Aktiv>Passiv:
  582. pointE+=1
  583. KuE+=1
  584. stoper=0
  585. jump'markfightE1'
  586. end
  587. if Aktiv<Passiv:
  588. point+=1
  589. Kz+=1
  590. stoper=0
  591. jump'markfightE3'
  592. end
  593. if Aktiv=Passiv:
  594. jump'markfightE2'
  595. end
  596. else
  597. jump'markRoundEnd'
  598. end
  599. end
  600. if stoper>=3:
  601. point+=1
  602. jump'markRoundStop'
  603. end
  604. :markfightE3
  605. koef=100
  606. koefE=100
  607. rMin-=1
  608. stoper+=1
  609. if endur<=0 or lustw<=0:jump'markSubLoss'
  610. if endurE<=0 or lustwE<=0:jump'markSubWin'
  611. if stoper<3:
  612. if rMin>0:
  613. deystrand=RAND(0,1)
  614. if deystrand=0:
  615. dynamic $uderdinE
  616. if Aktiv>Passiv:
  617. pointE+=1
  618. KuE+=1
  619. stoper=0
  620. jump'markfightE1'
  621. end
  622. if Aktiv<=Passiv:
  623. point+=1
  624. Kz+=1
  625. jump'markRoundStop'
  626. end
  627. end
  628. if deystrand=1:
  629. dynamic $brosdinE
  630. if Aktiv>Passiv:
  631. pointE+=2
  632. lustwE+=1
  633. KbE+=1
  634. stoper=0
  635. jump'markfightE2'
  636. end
  637. if Aktiv<=Passiv:
  638. point+=1
  639. Kz+=1
  640. jump'markRoundStop'
  641. end
  642. end
  643. else
  644. jump'markRoundEnd'
  645. end
  646. end
  647. if stoper>=3:
  648. point+=1
  649. jump'markRoundStop'
  650. end
  651. :markRoundStop
  652. stoper=0
  653. if crouch=1 and croonce=0:crouch=0&croonce=1
  654. if crouch=0 and croonce=0:crouch=1&croonce=1
  655. croonce=0
  656. jump'markFightCrouch'
  657. :markSubWin
  658. resultFight=0
  659. jump'markEndFight'
  660. :markSubLoss
  661. resultFight=4
  662. jump'markEndFight'
  663. :markRoundEnd
  664. round+=1
  665. rMin=8
  666. stoper=0
  667. if round=Formula+1:
  668. if point>pointE:
  669. resultFight=1
  670. end
  671. if point<pointE:
  672. resultFight=3
  673. end
  674. if point=pointE:
  675. resultFight=2
  676. end
  677. jump'markEndFight'
  678. end
  679. if round<Formula+1:
  680. endur+=lustw*25/100
  681. endurE+=lustwe*25/100
  682. if crouch=1 and croonce=0:crouch=0&croonce=1
  683. if crouch=0 and croonce=0:crouch=1&croonce=1
  684. croonce=0
  685. jump'markFightCrouch'
  686. end
  687. :markEndFight
  688. if NoView=0:'<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>>'
  689. if NoView=0:'<<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>>'
  690. if NoView=0:'<<point>> points <<$nameA>> <<Ku>> Activism in the attacks retention, <<Kb>> Activism in the attacks throws, <<Kz>> successful defenses.'
  691. if NoView=0:'<<pointE>> points <<$nameE>> <<KuE>> Activism in the attacks retention, <<KbE>> Activism in the attacks throws, <<KzE>> successful defenses.'
  692. if resultFight=0:
  693. wipo[a]+=2
  694. wipo[i]-=1
  695. rating[a]+=2
  696. rating[i]-=5
  697. strand=RAND(0,2)
  698. if strand=0:musle[a]+=10
  699. if strand=1:flex[a]+=10
  700. if strand=2:stamina[a]+=10
  701. tehrand=RAND(0,2)
  702. if tehrand=0:Bteh[a]+=10
  703. if tehrand=1:Uteh[a]+=10
  704. if tehrand=2:Zteh[a]+=10
  705. if NoView=0:'<b><<$nameA>> won surrender</b>'
  706. $spisok[a]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=green>wins by submission</font>
  707. '
  708. $spisok[i]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=red>defeat surrender</font>
  709. '
  710. win[a]+=1
  711. SubWin[a]+=1
  712. loss[i]+=1
  713. SubLoss[i]+=1
  714. end
  715. if resultFight=1:
  716. wipo[a]+=1
  717. rating[a]+=1
  718. rating[i]-=3
  719. strand=RAND(0,2)
  720. if strand=0:musle[a]+=10
  721. if strand=1:flex[a]+=10
  722. if strand=2:stamina[a]+=10
  723. tehrand=RAND(0,2)
  724. if tehrand=0:Bteh[a]+=10
  725. if tehrand=1:Uteh[a]+=10
  726. if tehrand=2:Zteh[a]+=10
  727. if NoView=0:'<b><<$nameA>> won</b>'
  728. $spisok[a]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=green>victory</font>
  729. '
  730. $spisok[i]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=red>defeat</font>
  731. '
  732. win[a]+=1
  733. loss[i]+=1
  734. end
  735. if resultFight=2:
  736. rating[a]-=1
  737. rating[i]-=1
  738. if NoView=0:'<b>The result of the fight a draw</b>'
  739. $spisok[a]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=black>draw</font>
  740. '
  741. $spisok[i]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=black>draw</font>
  742. '
  743. draw[a]+=1
  744. draw[i]+=1
  745. end
  746. if resultFight=3:
  747. wipo[i]+=1
  748. rating[a]-=3
  749. rating[i]+=1
  750. strand=RAND(0,2)
  751. if strand=0:musle[i]+=10
  752. if strand=1:flex[i]+=10
  753. if strand=2:stamina[i]+=10
  754. tehrand=RAND(0,2)
  755. if tehrand=0:Bteh[i]+=10
  756. if tehrand=1:Uteh[i]+=10
  757. if tehrand=2:Zteh[i]+=10
  758. if NoView=0:'<b><<$nameE>> won</b>'
  759. $spisok[a]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=red>defeat</font>
  760. '
  761. $spisok[i]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=green>victory</font>
  762. '
  763. win[i]+=1
  764. loss[a]+=1
  765. end
  766. if resultFight=4:
  767. wipo[i]+=2
  768. wipo[a]-=1
  769. rating[a]-=5
  770. rating[i]+=2
  771. strand=RAND(0,2)
  772. if strand=0:musle[i]+=10
  773. if strand=1:flex[i]+=10
  774. if strand=2:stamina[i]+=10
  775. tehrand=RAND(0,2)
  776. if tehrand=0:Bteh[i]+=10
  777. if tehrand=1:Uteh[i]+=10
  778. if tehrand=2:Zteh[i]+=10
  779. if NoView=0:'<b><<$nameE>> won surrender</b>'
  780. $spisok[a]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=red>defeat surrender</font>
  781. '
  782. $spisok[i]+='<<$nameA>> <<win[a]>>-<<loss[a]>>-<<draw[a]>> <<SubWin[a]>>/<<SubLoss[a]>> vs <<$nameE>> <<win[i]>>-<<loss[i]>>-<<draw[i]>> <<SubWin[i]>>/<<SubLoss[i]>> <font color=green>wins by submission</font>
  783. '
  784. win[i]+=1
  785. SubWin[i]+=1
  786. loss[a]+=1
  787. SubLoss[a]+=1
  788. end
  789. --- Autofight ---------------------------------
  790. >>>>>>> 494_Autofight