1
0

beforeFW 3.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154
  1. # beforeFW
  2. $endurdin = {
  3. Ken = (musle / 100) * Kus / 100
  4. if ken <= 0:ken = 1
  5. Kene = (musle[i] / 100) * Kuse / 100
  6. if kene <= 0:kene = 1
  7. KoefUder = rand(Uder * 20 / 100, Uder)
  8. KoefUderE = rand(Udere * 20 / 100, Udere)
  9. KoefBros = rand(Brosok * 20 / 100, Brosok)
  10. KoefBrosE = rand(Brosoke * 20 / 100, Brosoke)
  11. KoefProt = rand(Zash * 20 / 100, Zash)
  12. KoefProtE = rand(Zashe*20 / 100, Zashe)
  13. }
  14. $uderdin = {
  15. Kus = 5
  16. Kuse = 10
  17. dynamic $endurdin
  18. endur -= ken
  19. endurE -= kene
  20. Aktiv = (strenw / 2) + agilw + rand(0, lustw) + KoefUder
  21. Aktiv = Aktiv * endur / endurMax
  22. Passiv = (((strenwE + (agilwE / 2)) * koefE) / 100) + rand(0, lustwE) + KoefProtE
  23. Passiv = Passiv * endurE / endurMaxE
  24. }
  25. $uderdinE = {
  26. Kus = 10
  27. Kuse = 5
  28. dynamic $endurdin
  29. endur -= ken
  30. endurE -= kene
  31. Aktiv = (strenwE / 2) + agilwE + rand(0, lustwE) + KoefUdere
  32. Aktiv = Aktiv * endurE / endurMaxE
  33. Passiv = (((strenw + (agilw / 2)) * koef) / 100) + rand(0, lustw) + KoefProt
  34. Passiv = Passiv * endur / endurMaxE
  35. }
  36. $brosdin = {
  37. Kus = 10
  38. Kuse = 10
  39. dynamic $endurdin
  40. endur -= ken
  41. endurE -= kene
  42. Aktiv = strenw + (agilw / 2) + rand(0, lustw) + KoefBros
  43. Aktiv = Aktiv * endur / endurMax
  44. Passiv = (((strenwE / 2) + agilwE) * koefE / 100) + rand(0, lustwE) + KoefProtE
  45. Passiv = Passiv * endurE / endurMaxE
  46. }
  47. $brosdinE = {
  48. Kus = 10
  49. Kuse = 10
  50. dynamic $endurdin
  51. endur -= ken
  52. endurE -= kene
  53. Aktiv = strenwE + (agilwE / 2) + rand(0, lustwE) + KoefBrosE
  54. Aktiv = Aktiv * endurE / endurMaxE
  55. Passiv = (((strenw / 2) + agilw) * koef / 100) + rand(0, lustw) + KoefProt
  56. Passiv = Passiv * endur / endurMax
  57. }
  58. !!power, throws
  59. !!flexibility, protection,
  60. !!speed, initiative
  61. !!equipment,
  62. !!endurance
  63. a = 1
  64. point = 0
  65. pointE = 0
  66. $nameE = $nikname[i]
  67. $nameA = $nikname[a]
  68. strenw = musle[1] / 10
  69. strenwE = musle[i] / 10
  70. agilw = flex[1] / 10
  71. agilwE = flex[i] / 10
  72. lustMax = wipo[1]
  73. lustMaxE = wipo[i]
  74. lustw = lustMax
  75. lustwe = lustMaxe
  76. Brosok = Bteh[1] / 10
  77. BrosokE = Bteh[i] / 10
  78. Uder = Uteh[1] / 10
  79. Udere = Uteh[i] / 10
  80. Zash = Zteh[1] / 10
  81. Zashe = Zteh[i] / 10
  82. resultFight = 0
  83. endurMax = stamina[1] / 10
  84. endurMaxE = stamina[i] / 10
  85. endur = endurMax
  86. endurE = endurMaxE
  87. croonce = 0
  88. round = 1
  89. rMin = 8
  90. stoper = 0
  91. Ku = 0
  92. Kb = 0
  93. Kz = 0
  94. KuE = 0
  95. KbE = 0
  96. KzE = 0
  97. !!minus the endurance of fat
  98. !!force depends on the endurance
  99. !!speed depends on the endurance
  100. if Formula = 0:Formula = 3
  101. '<center><b>before round</b></center>'
  102. '<center><img src="images/pic/fight/bef.jpg"></center>'
  103. 'you and <<$nameE>> greeted each other.'
  104. 'Referee required to start a fight on his hands.'
  105. !!picture
  106. act 'Fight on his hands':
  107. cls
  108. !!picture
  109. '<center><img src="images/pic/fight/arm.jpg"></center>'
  110. if strenw > strenwE:
  111. point += 1
  112. lustw += 1
  113. $text = 'Stand your opponent on all fours, and you catch him from behind.'
  114. 'You won the fight on his hands.'
  115. crouch = 1
  116. end
  117. if strenw < strenwE:
  118. pointE += 1
  119. lustwE += 1
  120. $text = 'You get up on all fours, and your opponent to catch him from behind.'
  121. 'You lost the battle on his hands.'
  122. crouch = 0
  123. end
  124. if strenw = strenwE:
  125. 'Quest on hand ended in a draw. The referee tossed the coin, that would determine the winner.'
  126. varrand = rand(0, 1)
  127. if varrand = 0:crouch = 1 & $text = 'Stand your opponent on all fours, and you catch him from behind.'
  128. if varrand = 1:crouch = 0 & $text = 'You get up on all fours, and your opponent to catch him from behind.'
  129. end
  130. 'Refferi stopped you and commanded <<$text>>'
  131. act 'Follow the instructions referees':gt 'FightCrouch'
  132. end
  133. --- beforeFW ---------------