450_avb 8.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205
  1. # avb
  2. if car = 1:
  3. <<<<<<< 450_avb
  4. if wrek = 1 or teh <= 0: set bupay = RAND(10000,20000)
  5. if wrek = 0:
  6. if teh >= tehcar * 75/100 and wrek = 0: set bupay = RAND(50000,100000)
  7. if teh < tehcar*75/100 and teh >= tehcar * 50/100 and wrek = 0: set bupay = RAND(40000,60000)
  8. if teh < tehcar*50/100 and teh >= tehcar * 25/100 and wrek = 0: set bupay = RAND(20000,40000)
  9. if teh < tehcar*25/100 and wrek = 0: set bupay = RAND(10000,20000)
  10. end
  11. =======
  12. if wrek = 1 or teh <= 0:set bupay = RAND (10000,20000)
  13. if wrek=0:
  14. if teh >= tehcar*75/100 and wrek = 0:set bupay = RAND (50000,100000)
  15. if teh < tehcar*75/100 and teh >= tehcar*50/100 and wrek = 0:set bupay = RAND (40000,60000)
  16. if teh < tehcar*50/100 and teh >= tehcar*25/100 and wrek = 0:set bupay = RAND (20000,40000)
  17. if teh < tehcar*25/100 and wrek = 0:set bupay = RAND (10000,20000)
  18. end
  19. >>>>>>> 450_avb
  20. end
  21. if car > 1 and car < 6:
  22. <<<<<<< 450_avb
  23. if wrek = 1 or teh <= 0: set bupay = RAND(10000,20000)
  24. if wrek = 0:
  25. if teh >= tehcar * 75/100 and wrek = 0: set bupay = RAND(100000,200000)
  26. if teh < tehcar*75/100 and teh >= tehcar * 50/100 and wrek = 0: set bupay = RAND(80000,120000)
  27. if teh < tehcar*50/100 and teh >= tehcar * 25/100 and wrek = 0: set bupay = RAND(60000,90000)
  28. if teh < tehcar*25/100 and wrek = 0: set bupay = RAND(50000,70000)
  29. end
  30. =======
  31. if wrek = 1 or teh <= 0:set bupay = RAND (10000,20000)
  32. if wrek = 0:
  33. if teh >= tehcar*75/100 and wrek = 0:set bupay = RAND (100000,200000)
  34. if teh < tehcar*75/100 and teh >= tehcar*50/100 and wrek = 0:set bupay = RAND (80000,120000)
  35. if teh < tehcar*50/100 and teh >= tehcar*25/100 and wrek = 0:set bupay = RAND (60000,90000)
  36. if teh < tehcar*25/100 and wrek = 0:set bupay = RAND (50000,70000)
  37. end
  38. >>>>>>> 450_avb
  39. end
  40. if car >= 6 and car < 11:
  41. <<<<<<< 450_avb
  42. if wrek = 1 or teh <= 0: set bupay = RAND(10000,20000)
  43. if wrek = 0:
  44. if teh >= tehcar * 75/100 and wrek = 0: set bupay = RAND(150000,220000)
  45. if teh < tehcar*75/100 and teh >= tehcar * 50/100 and wrek = 0: set bupay = RAND(100000,160000)
  46. if teh < tehcar*50/100 and teh >= tehcar * 25/100 and wrek = 0: set bupay = RAND(80000,120000)
  47. if teh < tehcar*25/100 and wrek = 0: set bupay = RAND(50000,90000)
  48. end
  49. =======
  50. if wrek = 1 or teh <= 0:set bupay = RAND (10000,20000)
  51. if wrek = 0:
  52. if teh >= tehcar*75/100 and wrek = 0:set bupay = RAND (150000,220000)
  53. if teh < tehcar*75/100 and teh >= tehcar*50/100 and wrek = 0:set bupay = RAND (100000,160000)
  54. if teh < tehcar*50/100 and teh >= tehcar*25/100 and wrek = 0:set bupay = RAND (80000,120000)
  55. if teh < tehcar*25/100 and wrek = 0:set bupay = RAND (50000,90000)
  56. end
  57. >>>>>>> 450_avb
  58. end
  59. if car >= 11 and car <= 12:
  60. <<<<<<< 450_avb
  61. if wrek = 1 or teh <= 0: set bupay = RAND(10000,20000)
  62. if wrek = 0:
  63. if teh >= tehcar * 75/100 and wrek = 0: set bupay = RAND(70000,100000)
  64. if teh < tehcar*75/100 and teh >= tehcar * 50/100 and wrek = 0: set bupay = RAND(40000,80000)
  65. if teh < tehcar*50/100 and teh >= tehcar * 25/100 and wrek = 0: set bupay = RAND(20000,60000)
  66. if teh < tehcar*25/100 and wrek = 0: set bupay = RAND(10000,30000)
  67. end
  68. =======
  69. if wrek = 1 or teh <= 0:set bupay = RAND (10000,20000)
  70. if wrek = 0:
  71. if teh >= tehcar*75/100 and wrek = 0:set bupay = RAND (70000,100000)
  72. if teh < tehcar*75/100 and teh >= tehcar*50/100 and wrek = 0:set bupay = RAND (40000,80000)
  73. if teh < tehcar*50/100 and teh >= tehcar*25/100 and wrek = 0:set bupay = RAND (20000,60000)
  74. if teh < tehcar*25/100 and wrek = 0:set bupay = RAND (10000,30000)
  75. end
  76. >>>>>>> 450_avb
  77. end
  78. if car = 95:
  79. <<<<<<< 450_avb
  80. if wrek = 1 or teh <= 0: set bupay = RAND(20000,60000)
  81. if wrek = 0:
  82. if teh >= tehcar * 75/100 and wrek = 0: set bupay = RAND(500000,900000)
  83. if teh < tehcar*75/100 and teh >= tehcar * 50/100 and wrek = 0: set bupay = RAND(400000,600000)
  84. if teh < tehcar*50/100 and teh >= tehcar * 25/100 and wrek = 0: set bupay = RAND(300000,500000)
  85. if teh < tehcar*25/100 and wrek = 0: set bupay = RAND(50000,300000)
  86. end
  87. =======
  88. if wrek = 1 or teh <= 0:set bupay = RAND (20000,60000)
  89. if wrek = 0:
  90. if teh >= tehcar*75/100 and wrek = 0:set bupay = RAND (500000,900000)
  91. if teh < tehcar*75/100 and teh >= tehcar*50/100 and wrek = 0:set bupay = RAND (400000,600000)
  92. if teh < tehcar*50/100 and teh >= tehcar*25/100 and wrek = 0:set bupay = RAND (300000,500000)
  93. if teh < tehcar*25/100 and wrek = 0:set bupay = RAND (50000,300000)
  94. end
  95. >>>>>>> 450_avb
  96. end
  97. if car = 96:
  98. <<<<<<< 450_avb
  99. if wrek = 1 or teh <= 0: set bupay = RAND(20000,60000)
  100. if wrek = 0:
  101. if teh >= tehcar * 75/100 and wrek = 0: set bupay = RAND(3000000,4800000)
  102. if teh < tehcar*75/100 and teh >= tehcar * 50/100 and wrek = 0: set bupay = RAND(2540000,3200000)
  103. if teh < tehcar*50/100 and teh >= tehcar * 25/100 and wrek = 0: set bupay = RAND(1150000,2550000)
  104. if teh < tehcar*25/100 and wrek = 0: set bupay = RAND(50000,1160000)
  105. end
  106. =======
  107. if wrek = 1 or teh <= 0:set bupay = RAND (20000,60000)
  108. if wrek = 0:
  109. if teh >= tehcar*75/100 and wrek = 0:set bupay = RAND (3000000,4800000)
  110. if teh < tehcar*75/100 and teh >= tehcar*50/100 and wrek = 0:set bupay = RAND (2540000,3200000)
  111. if teh < tehcar*50/100 and teh >= tehcar*25/100 and wrek = 0:set bupay = RAND (1150000,2550000)
  112. if teh < tehcar*25/100 and wrek = 0:set bupay = RAND (50000,1160000)
  113. end
  114. >>>>>>> 450_avb
  115. end
  116. if car = 97:
  117. <<<<<<< 450_avb
  118. if wrek = 1 or teh <= 0: set bupay = RAND(20000,60000)
  119. if wrek = 0:
  120. if teh >= tehcar * 75/100 and wrek = 0: set bupay = RAND(1000000,1800000)
  121. if teh < tehcar*75/100 and teh >= tehcar * 50/100 and wrek = 0: set bupay = RAND(540000,1200000)
  122. if teh < tehcar*50/100 and teh >= tehcar * 25/100 and wrek = 0: set bupay = RAND(150000,550000)
  123. if teh < tehcar*25/100 and wrek = 0: set bupay = RAND(50000,160000)
  124. end
  125. =======
  126. if wrek = 1 or teh <= 0:set bupay = RAND (20000,60000)
  127. if wrek = 0:
  128. if teh >= tehcar*75/100 and wrek = 0:set bupay = RAND (1000000,1800000)
  129. if teh < tehcar*75/100 and teh >= tehcar*50/100 and wrek = 0:set bupay = RAND (540000,1200000)
  130. if teh < tehcar*50/100 and teh >= tehcar*25/100 and wrek = 0:set bupay = RAND (150000,550000)
  131. if teh < tehcar*25/100 and wrek = 0:set bupay = RAND (50000,160000)
  132. end
  133. >>>>>>> 450_avb
  134. end
  135. if car = 98:
  136. <<<<<<< 450_avb
  137. if wrek = 1 or teh <= 0: set bupay = RAND(20000,60000)
  138. if wrek = 0:
  139. if teh >= tehcar * 75/100 and wrek = 0: set bupay = RAND(3000000,4800000)
  140. if teh < tehcar*75/100 and teh >= tehcar * 50/100 and wrek = 0: set bupay = RAND(2540000,3200000)
  141. if teh < tehcar*50/100 and teh >= tehcar * 25/100 and wrek = 0: set bupay = RAND(1150000,2550000)
  142. if teh < tehcar*25/100 and wrek = 0: set bupay = RAND(50000,1160000)
  143. end
  144. =======
  145. if wrek = 1 or teh <= 0:set bupay = RAND (20000,60000)
  146. if wrek = 0:
  147. if teh >= tehcar*75/100 and wrek = 0:set bupay = RAND (3000000,4800000)
  148. if teh < tehcar*75/100 and teh >= tehcar*50/100 and wrek = 0:set bupay = RAND (2540000,3200000)
  149. if teh < tehcar*50/100 and teh >= tehcar*25/100 and wrek = 0:set bupay = RAND (1150000,2550000)
  150. if teh < tehcar*25/100 and wrek = 0:set bupay = RAND (50000,1160000)
  151. end
  152. >>>>>>> 450_avb
  153. end
  154. if car = 99:
  155. <<<<<<< 450_avb
  156. if wrek = 1 or teh <= 0: set bupay = RAND(20000,60000)
  157. if wrek = 0:
  158. if teh >= tehcar * 75/100 and wrek = 0: set bupay = RAND(2000000,3800000)
  159. if teh < tehcar*75/100 and teh >= tehcar * 50/100 and wrek = 0: set bupay = RAND(1540000,2200000)
  160. if teh < tehcar*50/100 and teh >= tehcar * 25/100 and wrek = 0: set bupay = RAND(550000,1550000)
  161. if teh < tehcar*25/100 and wrek = 0: set bupay = RAND(50000,560000)
  162. end
  163. =======
  164. if wrek = 1 or teh <= 0:set bupay = RAND (20000,60000)
  165. if wrek = 0:
  166. if teh >= tehcar*75/100 and wrek = 0:set bupay = RAND (2000000,3800000)
  167. if teh < tehcar*75/100 and teh >= tehcar*50/100 and wrek = 0:set bupay = RAND (1540000,2200000)
  168. if teh < tehcar*50/100 and teh >= tehcar*25/100 and wrek = 0:set bupay = RAND (550000,1550000)
  169. if teh < tehcar*25/100 and wrek = 0:set bupay = RAND (50000,560000)
  170. end
  171. >>>>>>> 450_avb
  172. end
  173. if car = 100:
  174. <<<<<<< 450_avb
  175. if wrek = 1 or teh <= 0: set bupay = RAND(20000,60000)
  176. if wrek = 0:
  177. if teh >= tehcar * 75/100 and wrek = 0: set bupay = RAND(3000000,5800000)
  178. if teh < tehcar*75/100 and teh >= tehcar * 50/100 and wrek = 0: set bupay = RAND(2540000,3200000)
  179. if teh < tehcar*50/100 and teh >= tehcar * 25/100 and wrek = 0: set bupay = RAND(1550000,2550000)
  180. if teh < tehcar*25/100 and wrek = 0: set bupay = RAND(50000,1560000)
  181. end
  182. end
  183. =======
  184. if wrek = 1 or teh <= 0:set bupay = RAND (20000,60000)
  185. if wrek = 0:
  186. if teh >= tehcar*75/100 and wrek = 0:set bupay = RAND (3000000,5800000)
  187. if teh < tehcar*75/100 and teh >= tehcar*50/100 and wrek = 0:set bupay = RAND (2540000,3200000)
  188. if teh < tehcar*50/100 and teh >= tehcar*25/100 and wrek = 0:set bupay = RAND (1550000,2550000)
  189. if teh < tehcar*25/100 and wrek = 0:set bupay = RAND (50000,1560000)
  190. end
  191. end
  192. >>>>>>> 450_avb
  193. --- avb ---------------------------------