API tools faq
paste
Shadowcat

InclFunc 2

Shadowcat
Jun 5th, 2011
279
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 213.72 KB | None | 0 0
raw download clone embed print report
  1. #include <GUIConstantsEx.au3>
  2. #include <EditConstants.au3>
  3. #include <ButtonConstants.au3>
  4.  
  5. Func _errbox()
  6.     Local $errbox
  7.     $errbox = MsgBox(0, "Извините", "На данный момент нет данных о машине," & @CRLF & "так как она находится в разработке.")
  8. EndFunc   ;==>_errbox
  9.  
  10. ; A1
  11. ; Ariel Atom 300 Supercharged
  12. Func _AA3()
  13.     Local $cost, $AA3, $aa3msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  14.  
  15.     $cost = ("$ 63 700")
  16.     $acc = ("93")
  17.     $spd = ("45")
  18.     $brk = ("87")
  19.     $maxspd = ("354 км/ч")
  20.     $100 = ("2.90 сек")
  21.     $hp = ("300 лс")
  22.     $perc = ("3%")
  23.  
  24.     $AA3 = GUICreate("A1:", 205, 215, -1, -1, -1, 0x00000080)
  25.     GUISetBkColor(0xffFFFF)
  26.     GUICtrlCreateButton("Ariel Atom 300S", 5, 2, 195, 20)
  27.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  28.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  29.  
  30.     GUICtrlCreateProgress(39, 46, 100, 13)
  31.     GUICtrlSetData(-1, 5)
  32.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  33.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  34.  
  35.     GUICtrlCreateProgress(100, 65, 100, 13)
  36.     GUICtrlSetData(-1, $acc)
  37.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  38.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  39.     GUICtrlCreateProgress(100, 87, 100, 13)
  40.     GUICtrlSetData(-1, $spd)
  41.     GUICtrlCreateLabel("Скорость:", 2, 87)
  42.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  43.     GUICtrlCreateProgress(100, 109, 100, 13)
  44.     GUICtrlSetData(-1, $brk)
  45.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  46.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  47.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  48.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  49.     GUICtrlCreateLabel("0-100:", 2, 155)
  50.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  51.     GUICtrlCreateLabel("Мощность:", 2, 177)
  52.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  53.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  54.     ;
  55.     GUICtrlCreateCheckbox(" ", 157, 192)
  56.     GUICtrlSetState(-1, $GUI_CHECKED)
  57.     GUICtrlCreateCheckbox(" ", 172, 192)
  58.     GUICtrlCreateCheckbox(" ", 187, 192)
  59.     GUICtrlSetState(-1, $GUI_CHECKED)
  60.     ;
  61.     GUISetState(@SW_SHOW, $AA3)
  62.     While 1
  63.         $aa3msg = GUIGetMsg()
  64.         Select
  65.             Case $aa3msg = -3
  66.                 GUIDelete($AA3)
  67.                 ;Exit
  68.                 ExitLoop
  69.         EndSelect
  70.     WEnd
  71. EndFunc   ;==>_AA3
  72.  
  73. ; Ariel Atom 500 V8
  74. Func _AA5()
  75.     Local $cost, $AA5, $aa5msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  76.  
  77.     $cost = (" - ")
  78.     $acc = ("95")
  79.     $spd = ("63")
  80.     $brk = ("97")
  81.     $maxspd = ("324 км/ч")
  82.     $100 = ("2.67 сек")
  83.     $hp = ("540 лс")
  84.     $perc = ("-")
  85.  
  86.     $AA5 = GUICreate("A1:", 205, 215, -1, -1, -1, 0x00000080)
  87.     GUISetBkColor(0xffFFFF)
  88.     GUICtrlCreateButton("Ariel Atom 500 V8", 5, 2, 195, 20)
  89.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  90.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  91.  
  92.     GUICtrlCreateProgress(39, 46, 100, 13)
  93.     GUICtrlSetData(-1, 1)
  94.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  95.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  96.  
  97.     GUICtrlCreateProgress(100, 65, 100, 13)
  98.     GUICtrlSetData(-1, $acc)
  99.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  100.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  101.     GUICtrlCreateProgress(100, 87, 100, 13)
  102.     GUICtrlSetData(-1, $spd)
  103.     GUICtrlCreateLabel("Скорость:", 2, 87)
  104.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  105.     GUICtrlCreateProgress(100, 109, 100, 13)
  106.     GUICtrlSetData(-1, $brk)
  107.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  108.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  109.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  110.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  111.     GUICtrlCreateLabel("0-100:", 2, 155)
  112.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  113.     GUICtrlCreateLabel("Мощность:", 2, 177)
  114.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  115.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  116.     ;
  117.     GUICtrlCreateCheckbox(" ", 157, 192)
  118.     GUICtrlSetState(-1, $GUI_CHECKED)
  119.     GUICtrlCreateCheckbox(" ", 172, 192)
  120.     GUICtrlCreateCheckbox(" ", 187, 192)
  121.     GUICtrlSetState(-1, $GUI_CHECKED)
  122.     ;
  123.     GUISetState(@SW_SHOW, $AA5)
  124.     While 1
  125.         $aa5msg = GUIGetMsg()
  126.         Select
  127.             Case $aa5msg = -3
  128.                 GUIDelete($AA5)
  129.                 ;Exit
  130.                 ExitLoop
  131.         EndSelect
  132.     WEnd
  133. EndFunc   ;==>_AA5
  134.  
  135. ; Ascari A10
  136. Func _AA10()
  137.     Local $cost, $AA10, $a10msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  138.  
  139.     $cost = ("$ 637 000")
  140.     $acc = ("94")
  141.     $spd = ("71")
  142.     $brk = ("87")
  143.     $maxspd = ("354 км/ч")
  144.     $100 = ("2.80 сек")
  145.     $hp = ("625 лс")
  146.     $perc = ("30%")
  147.  
  148.     $AA10 = GUICreate("A1:", 205, 215, -1, -1, -1, 0x00000080)
  149.     GUISetBkColor(0xffFFFF)
  150.     GUICtrlCreateButton("Ascari A10", 5, 2, 195, 20)
  151.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  152.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  153.  
  154.     GUICtrlCreateProgress(39, 46, 100, 13)
  155.     GUICtrlSetData(-1, 30)
  156.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  157.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  158.  
  159.     GUICtrlCreateProgress(100, 65, 100, 13)
  160.     GUICtrlSetData(-1, $acc)
  161.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  162.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  163.     GUICtrlCreateProgress(100, 87, 100, 13)
  164.     GUICtrlSetData(-1, $spd)
  165.     GUICtrlCreateLabel("Скорость:", 2, 87)
  166.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  167.     GUICtrlCreateProgress(100, 109, 100, 13)
  168.     GUICtrlSetData(-1, $brk)
  169.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  170.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  171.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  172.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  173.     GUICtrlCreateLabel("0-100:", 2, 155)
  174.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  175.     GUICtrlCreateLabel("Мощность:", 2, 177)
  176.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  177.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  178.     ;
  179.     GUICtrlCreateCheckbox(" ", 157, 192)
  180.     GUICtrlSetState(-1, $GUI_CHECKED)
  181.     GUICtrlCreateCheckbox(" ", 172, 192)
  182.     GUICtrlSetState(-1, $GUI_CHECKED)
  183.     GUICtrlCreateCheckbox(" ", 187, 192)
  184.     GUICtrlSetState(-1, $GUI_CHECKED)
  185.     ;
  186.     GUISetState(@SW_SHOW, $AA10)
  187.     While 1
  188.         $a10msg = GUIGetMsg()
  189.         Select
  190.             Case $a10msg = -3
  191.                 GUIDelete($AA10)
  192.                 ;Exit
  193.                 ExitLoop
  194.         EndSelect
  195.     WEnd
  196. EndFunc   ;==>_AA10
  197.  
  198. ; Aston Martin One-77
  199. Func _AMO77()
  200.     Local $cost, $AMO77, $amo77msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  201.  
  202.     $cost = ("$ 1 470 000 ")
  203.     $acc = ("87")
  204.     $spd = ("71")
  205.     $brk = ("81")
  206.     $maxspd = ("354 км/ч")
  207.     $100 = ("3.5 сек")
  208.     $hp = ("700 лс")
  209.     $perc = ("-")
  210.  
  211.     $AMO77 = GUICreate("A1:", 205, 215, -1, -1, -1, 0x00000080)
  212.     GUISetBkColor(0xffFFFF)
  213.     GUICtrlCreateButton("Aston Martin One-77", 5, 2, 195, 20)
  214.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  215.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  216.     GUICtrlCreateProgress(5, 47, 195, 13)
  217.     GUICtrlSetData(-1, 1)
  218.     GUICtrlCreateProgress(100, 65, 100, 13)
  219.     GUICtrlSetData(-1, $acc)
  220.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  221.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  222.     GUICtrlCreateProgress(100, 87, 100, 13)
  223.     GUICtrlSetData(-1, $spd)
  224.     GUICtrlCreateLabel("Скорость:", 2, 87)
  225.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  226.     GUICtrlCreateProgress(100, 109, 100, 13)
  227.     GUICtrlSetData(-1, $brk)
  228.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  229.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  230.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  231.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  232.     GUICtrlCreateLabel("0-100:", 2, 155)
  233.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  234.     GUICtrlCreateLabel("Мощность:", 2, 177)
  235.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  236.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  237.     ;
  238.     GUICtrlCreateCheckbox(" ", 157, 192)
  239.     GUICtrlSetState(-1, $GUI_CHECKED)
  240.     GUICtrlCreateCheckbox(" ", 172, 192)
  241.     GUICtrlSetState(-1, $GUI_CHECKED)
  242.     GUICtrlCreateCheckbox(" ", 187, 192)
  243.     GUICtrlSetState(-1, $GUI_CHECKED)
  244.     ;
  245.     GUISetState(@SW_SHOW, $AMO77)
  246.     While 1
  247.         $amo77msg = GUIGetMsg()
  248.         Select
  249.             Case $amo77msg = -3
  250.                 GUIDelete($AMO77)
  251.                 ;Exit
  252.                 ExitLoop
  253.         EndSelect
  254.     WEnd
  255. EndFunc   ;==>_AMO77
  256.  
  257. ; Bugatti Veyron 16.4
  258. Func _BV16()
  259.     Local $cost, $BV16, $bv16msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  260.  
  261.     $cost = ("$ 1 568 000")
  262.     $acc = ("97")
  263.     $spd = ("84")
  264.     $brk = ("87")
  265.     $maxspd = ("407 км/ч")
  266.     $100 = ("2.5 сек")
  267.     $hp = ("407 лс")
  268.     $perc = ("73%")
  269.  
  270.     $BV16 = GUICreate("A1:", 205, 215, -1, -1, -1, 0x00000080)
  271.     GUISetBkColor(0xffFFFF)
  272.     GUICtrlCreateButton("Bugatti Veyron 16.4", 5, 2, 195, 20)
  273.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  274.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  275.  
  276.     GUICtrlCreateProgress(39, 46, 100, 13)
  277.     GUICtrlSetData(-1, 73)
  278.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  279.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  280.  
  281.     GUICtrlCreateProgress(100, 65, 100, 13)
  282.     GUICtrlSetData(-1, $acc)
  283.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  284.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  285.     GUICtrlCreateProgress(100, 87, 100, 13)
  286.     GUICtrlSetData(-1, $spd)
  287.     GUICtrlCreateLabel("Скорость:", 2, 87)
  288.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  289.     GUICtrlCreateProgress(100, 109, 100, 13)
  290.     GUICtrlSetData(-1, $brk)
  291.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  292.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  293.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  294.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  295.     GUICtrlCreateLabel("0-100:", 2, 155)
  296.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  297.     GUICtrlCreateLabel("Мощность:", 2, 177)
  298.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  299.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  300.     ;
  301.     GUICtrlCreateCheckbox(" ", 157, 192)
  302.     GUICtrlSetState(-1, $GUI_CHECKED)
  303.     GUICtrlCreateCheckbox(" ", 172, 192)
  304.     GUICtrlCreateCheckbox(" ", 187, 192)
  305.     GUICtrlSetState(-1, $GUI_CHECKED)
  306.     ;
  307.     GUISetState(@SW_SHOW, $BV16)
  308.     While 1
  309.         $bv16msg = GUIGetMsg()
  310.         Select
  311.             Case $bv16msg = -3
  312.                 GUIDelete($BV16)
  313.                 ;Exit
  314.                 ExitLoop
  315.         EndSelect
  316.     WEnd
  317. EndFunc   ;==>_BV16
  318.  
  319. ; Bugatti Veyron 16.4 Grand Sport
  320. Func _BV16GS()
  321.     Local $cost, $BV16GS, $bv16gsmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  322.  
  323.     $cost = ("$ 1 960 000")
  324.     $acc = ("97")
  325.     $spd = ("84")
  326.     $brk = ("87")
  327.     $maxspd = ("407 км/ч")
  328.     $100 = ("2.50 сек")
  329.     $hp = ("1001 лс")
  330.     $perc = ("92%")
  331.  
  332.     $BV16GS = GUICreate("A1:", 205, 215, -1, -1, -1, 0x00000080)
  333.     GUISetBkColor(0xffFFFF)
  334.     GUICtrlCreateButton("Bugatti Veyron 16.4 Grand Sport", 5, 2, 195, 20)
  335.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  336.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  337.  
  338.     GUICtrlCreateProgress(39, 46, 100, 13)
  339.     GUICtrlSetData(-1, 92)
  340.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  341.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  342.  
  343.     GUICtrlCreateProgress(100, 65, 100, 13)
  344.     GUICtrlSetData(-1, $acc)
  345.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  346.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  347.     GUICtrlCreateProgress(100, 87, 100, 13)
  348.     GUICtrlSetData(-1, $spd)
  349.     GUICtrlCreateLabel("Скорость:", 2, 87)
  350.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  351.     GUICtrlCreateProgress(100, 109, 100, 13)
  352.     GUICtrlSetData(-1, $brk)
  353.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  354.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  355.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  356.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  357.     GUICtrlCreateLabel("0-100:", 2, 155)
  358.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  359.     GUICtrlCreateLabel("Мощность:", 2, 177)
  360.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  361.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  362.     ;
  363.     GUICtrlCreateCheckbox(" ", 157, 192)
  364.     GUICtrlSetState(-1, $GUI_CHECKED)
  365.     GUICtrlCreateCheckbox(" ", 172, 192)
  366.     GUICtrlCreateCheckbox(" ", 187, 192)
  367.     GUICtrlSetState(-1, $GUI_CHECKED)
  368.     ;
  369.     GUISetState(@SW_SHOW, $BV16GS)
  370.     While 1
  371.         $bv16gsmsg = GUIGetMsg()
  372.         Select
  373.             Case $bv16gsmsg = -3
  374.                 GUIDelete($BV16GS)
  375.                 ;Exit
  376.                 ExitLoop
  377.         EndSelect
  378.     WEnd
  379. EndFunc   ;==>_BV16GS
  380.  
  381. ; Ferrari 599 GTO
  382. Func _F599()
  383.     Local $cost, $F599, $F599msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  384.  
  385.     $cost = ("$ 460 800 ")
  386.     $acc = ("88")
  387.     $spd = ("66")
  388.     $brk = ("87")
  389.     $maxspd = ("335 км/ч")
  390.     $100 = ("3.35 сек")
  391.     $hp = ("670 лс")
  392.     $perc = ("100%")
  393.  
  394.     $F599 = GUICreate("A1:", 205, 215, -1, -1, -1, 0x00000080)
  395.     GUISetBkColor(0xffFFFF)
  396.     GUICtrlCreateButton("Ferrari 599 GTO", 5, 2, 195, 20)
  397.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  398.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  399.  
  400.     GUICtrlCreateProgress(39, 46, 100, 13)
  401.     GUICtrlSetData(-1, 100)
  402.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  403.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  404.  
  405.     GUICtrlCreateProgress(100, 65, 100, 13)
  406.     GUICtrlSetData(-1, $acc)
  407.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  408.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  409.     GUICtrlCreateProgress(100, 87, 100, 13)
  410.     GUICtrlSetData(-1, $spd)
  411.     GUICtrlCreateLabel("Скорость:", 2, 87)
  412.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  413.     GUICtrlCreateProgress(100, 109, 100, 13)
  414.     GUICtrlSetData(-1, $brk)
  415.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  416.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  417.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  418.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  419.     GUICtrlCreateLabel("0-100:", 2, 155)
  420.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  421.     GUICtrlCreateLabel("Мощность:", 2, 177)
  422.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  423.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  424.     ;
  425.     GUICtrlCreateCheckbox(" ", 157, 192)
  426.     GUICtrlCreateCheckbox(" ", 172, 192)
  427.     GUICtrlSetState(-1, $GUI_CHECKED)
  428.     GUICtrlCreateCheckbox(" ", 187, 192)
  429.     ;
  430.     GUISetState(@SW_SHOW, $F599)
  431.     While 1
  432.         $F599msg = GUIGetMsg()
  433.         Select
  434.             Case $F599msg = -3
  435.                 GUIDelete($F599)
  436.                 ;Exit
  437.                 ExitLoop
  438.         EndSelect
  439.     WEnd
  440. EndFunc   ;==>_F599
  441.  
  442. ; Ferrari Enzo
  443. Func _FE()
  444.     Local $cost, $FE, $FEmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  445.  
  446.     $cost = ("$ 661 500")
  447.     $acc = ("85")
  448.     $spd = ("63")
  449.     $brk = ("76")
  450.     $maxspd = ("324 км/ч")
  451.     $100 = ("3.65 сек")
  452.     $hp = ("660 лс")
  453.     $perc = ("%")
  454.  
  455.     $FE = GUICreate("A1:", 205, 215, -1, -1, -1, 0x00000080)
  456.     GUISetBkColor(0xffFFFF)
  457.     GUICtrlCreateButton("Ferrari Enzo", 5, 2, 195, 20)
  458.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  459.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  460.  
  461.     GUICtrlCreateProgress(39, 46, 100, 13)
  462.     GUICtrlSetData(-1, 100)
  463.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  464.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  465.  
  466.     GUICtrlCreateProgress(100, 65, 100, 13)
  467.     GUICtrlSetData(-1, $acc)
  468.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  469.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  470.     GUICtrlCreateProgress(100, 87, 100, 13)
  471.     GUICtrlSetData(-1, $spd)
  472.     GUICtrlCreateLabel("Скорость:", 2, 87)
  473.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  474.     GUICtrlCreateProgress(100, 109, 100, 13)
  475.     GUICtrlSetData(-1, $brk)
  476.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  477.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  478.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  479.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  480.     GUICtrlCreateLabel("0-100:", 2, 155)
  481.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  482.     GUICtrlCreateLabel("Мощность:", 2, 177)
  483.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  484.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  485.     ;
  486.     GUICtrlCreateCheckbox(" ", 157, 192)
  487.     GUICtrlCreateCheckbox(" ", 172, 192)
  488.     GUICtrlSetState(-1, $GUI_CHECKED)
  489.     GUICtrlCreateCheckbox(" ", 187, 192)
  490.     ;
  491.     GUISetState(@SW_SHOW, $FE)
  492.     While 1
  493.         $FEmsg = GUIGetMsg()
  494.         Select
  495.             Case $FEmsg = -3
  496.                 GUIDelete($FE)
  497.                 ;Exit
  498.                 ExitLoop
  499.         EndSelect
  500.     WEnd
  501. EndFunc   ;==>_FE
  502.  
  503. ; Koenigsegg CCXR Edition
  504. Func _KCCXR()
  505.     Local $cost, $KCCXR, $KCCXRmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  506.  
  507.     $cost = ("$ 2 131 500")
  508.     $acc = ("93")
  509.     $spd = ("86")
  510.     $brk = ("87")
  511.     $maxspd = ("417 км/ч")
  512.     $100 = ("2.90 сек")
  513.     $hp = ("1018 лс")
  514.     $perc = ("100%")
  515.  
  516.     $KCCXR = GUICreate("A1:", 205, 215, -1, -1, -1, 0x00000080)
  517.     GUISetBkColor(0xffFFFF)
  518.     GUICtrlCreateButton("Koenigsegg CCXR", 5, 2, 195, 20)
  519.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  520.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  521.  
  522.     GUICtrlCreateProgress(39, 46, 100, 13)
  523.     GUICtrlSetData(-1, 100)
  524.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  525.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  526.  
  527.     GUICtrlCreateProgress(100, 65, 100, 13)
  528.     GUICtrlSetData(-1, $acc)
  529.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  530.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  531.     GUICtrlCreateProgress(100, 87, 100, 13)
  532.     GUICtrlSetData(-1, $spd)
  533.     GUICtrlCreateLabel("Скорость:", 2, 87)
  534.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  535.     GUICtrlCreateProgress(100, 109, 100, 13)
  536.     GUICtrlSetData(-1, $brk)
  537.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  538.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  539.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  540.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  541.     GUICtrlCreateLabel("0-100:", 2, 155)
  542.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  543.     GUICtrlCreateLabel("Мощность:", 2, 177)
  544.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  545.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  546.     ;
  547.     GUICtrlCreateCheckbox(" ", 157, 192)
  548.     GUICtrlSetState(-1, $GUI_CHECKED)
  549.     GUICtrlCreateCheckbox(" ", 172, 192)
  550.     GUICtrlCreateCheckbox(" ", 187, 192)
  551.     GUICtrlSetState(-1, $GUI_CHECKED)
  552.     ;
  553.     GUISetState(@SW_SHOW, $KCCXR)
  554.     While 1
  555.         $KCCXRmsg = GUIGetMsg()
  556.         Select
  557.             Case $KCCXRmsg = -3
  558.                 GUIDelete($KCCXR)
  559.                 ;Exit
  560.                 ExitLoop
  561.         EndSelect
  562.     WEnd
  563. EndFunc   ;==>_KCCXR
  564.  
  565. ; McLaren MP4-12C
  566. Func _MLMP4()
  567.     Local $cost, $MLMP4, $MLMP4msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  568.  
  569.     $cost = ("$ 196 000")
  570.     $acc = ("92")
  571.     $spd = ("63")
  572.     $brk = ("87")
  573.     $maxspd = ("325 км/ч")
  574.     $100 = ("3.00 сек")
  575.     $hp = ("615 лс")
  576.     $perc = ("9%")
  577.  
  578.     $MLMP4 = GUICreate("A1:", 205, 215, -1, -1, -1, 0x00000080)
  579.     GUISetBkColor(0xffFFFF)
  580.     GUICtrlCreateButton("McLaren MP4-12C", 5, 2, 195, 20)
  581.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  582.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  583.  
  584.     GUICtrlCreateProgress(39, 46, 100, 13)
  585.     GUICtrlSetData(-1, 10)
  586.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  587.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  588.  
  589.     GUICtrlCreateProgress(100, 65, 100, 13)
  590.     GUICtrlSetData(-1, $acc)
  591.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  592.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  593.     GUICtrlCreateProgress(100, 87, 100, 13)
  594.     GUICtrlSetData(-1, $spd)
  595.     GUICtrlCreateLabel("Скорость:", 2, 87)
  596.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  597.     GUICtrlCreateProgress(100, 109, 100, 13)
  598.     GUICtrlSetData(-1, $brk)
  599.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  600.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  601.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  602.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  603.     GUICtrlCreateLabel("0-100:", 2, 155)
  604.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  605.     GUICtrlCreateLabel("Мощность:", 2, 177)
  606.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  607.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  608.     ;
  609.     GUICtrlCreateCheckbox(" ", 157, 192)
  610.     GUICtrlSetState(-1, $GUI_CHECKED)
  611.     GUICtrlCreateCheckbox(" ", 172, 192)
  612.     GUICtrlSetState(-1, $GUI_CHECKED)
  613.     GUICtrlCreateCheckbox(" ", 187, 192)
  614.     GUICtrlSetState(-1, $GUI_CHECKED)
  615.     ;
  616.     GUISetState(@SW_SHOW, $MLMP4)
  617.     While 1
  618.         $MLMP4msg = GUIGetMsg()
  619.         Select
  620.             Case $MLMP4msg = -3
  621.                 GUIDelete($MLMP4)
  622.                 ;Exit
  623.                 ExitLoop
  624.         EndSelect
  625.     WEnd
  626. EndFunc   ;==>_MLMP4
  627.  
  628. ; Mercedes-Benz SLR McLaren Stirling Moss
  629. Func _MBMLSM()
  630.     Local $cost, $MBMLSM, $MBMLSMmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  631.  
  632.     $cost = ("$ 980 000")
  633.     $acc = ("87")
  634.     $spd = ("70")
  635.     $brk = ("81")
  636.     $maxspd = ("350 км/ч")
  637.     $100 = ("3.50 сек")
  638.     $hp = ("650 лс")
  639.     $perc = ("0%")
  640.  
  641.     $MBMLSM = GUICreate("A1:", 205, 215, -1, -1, -1, 0x00000080)
  642.     GUISetBkColor(0xffFFFF)
  643.     GUICtrlCreateButton("Mercedes-Benz SLR McL Stirling Moss", 5, 2, 195, 20)
  644.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  645.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  646.  
  647.     GUICtrlCreateProgress(39, 46, 100, 13)
  648.     GUICtrlSetData(-1, 1)
  649.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  650.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  651.  
  652.     GUICtrlCreateProgress(100, 65, 100, 13)
  653.     GUICtrlSetData(-1, $acc)
  654.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  655.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  656.     GUICtrlCreateProgress(100, 87, 100, 13)
  657.     GUICtrlSetData(-1, $spd)
  658.     GUICtrlCreateLabel("Скорость:", 2, 87)
  659.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  660.     GUICtrlCreateProgress(100, 109, 100, 13)
  661.     GUICtrlSetData(-1, $brk)
  662.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  663.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  664.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  665.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  666.     GUICtrlCreateLabel("0-100:", 2, 155)
  667.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  668.     GUICtrlCreateLabel("Мощность:", 2, 177)
  669.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  670.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  671.     ;
  672.     GUICtrlCreateCheckbox(" ", 157, 192)
  673.     GUICtrlSetState(-1, $GUI_CHECKED)
  674.     GUICtrlCreateCheckbox(" ", 172, 192)
  675.     GUICtrlSetState(-1, $GUI_CHECKED)
  676.     GUICtrlCreateCheckbox(" ", 187, 192)
  677.     GUICtrlSetState(-1, $GUI_CHECKED)
  678.     ;
  679.     GUISetState(@SW_SHOW, $MBMLSM)
  680.     While 1
  681.         $MBMLSMmsg = GUIGetMsg()
  682.         Select
  683.             Case $MBMLSMmsg = -3
  684.                 GUIDelete($MBMLSM)
  685.                 ;Exit
  686.                 ExitLoop
  687.         EndSelect
  688.     WEnd
  689. EndFunc   ;==>_MBMLSM
  690.  
  691. ; Pagani Zonda Cinque
  692. Func _PZC()
  693.     Local $cost, $PZC, $PZCmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  694.  
  695.     $cost = ("$ 1 372 000")
  696.     $acc = ("88")
  697.     $spd = ("70")
  698.     $brk = ("87")
  699.     $maxspd = ("350 км/ч")
  700.     $100 = ("3.40 сек")
  701.     $hp = ("658 лс")
  702.     $perc = ("64%")
  703.  
  704.     $PZC = GUICreate("A1:", 205, 215, -1, -1, -1, 0x00000080)
  705.     GUISetBkColor(0xffFFFF)
  706.     GUICtrlCreateButton("Pagani Zonda Cinque", 5, 2, 195, 20)
  707.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  708.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  709.  
  710.     GUICtrlCreateProgress(39, 46, 100, 13)
  711.     GUICtrlSetData(-1, 65)
  712.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  713.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  714.  
  715.     GUICtrlCreateProgress(100, 65, 100, 13)
  716.     GUICtrlSetData(-1, $acc)
  717.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  718.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  719.     GUICtrlCreateProgress(100, 87, 100, 13)
  720.     GUICtrlSetData(-1, $spd)
  721.     GUICtrlCreateLabel("Скорость:", 2, 87)
  722.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  723.     GUICtrlCreateProgress(100, 109, 100, 13)
  724.     GUICtrlSetData(-1, $brk)
  725.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  726.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  727.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  728.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  729.     GUICtrlCreateLabel("0-100:", 2, 155)
  730.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  731.     GUICtrlCreateLabel("Мощность:", 2, 177)
  732.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  733.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  734.     ;
  735.     GUICtrlCreateCheckbox(" ", 157, 192)
  736.     GUICtrlSetState(-1, $GUI_CHECKED)
  737.     GUICtrlCreateCheckbox(" ", 172, 192)
  738.     GUICtrlSetState(-1, $GUI_CHECKED)
  739.     GUICtrlCreateCheckbox(" ", 187, 192)
  740.     GUICtrlSetState(-1, $GUI_CHECKED)
  741.     ;
  742.     GUISetState(@SW_SHOW, $PZC)
  743.     While 1
  744.         $PZCmsg = GUIGetMsg()
  745.         Select
  746.             Case $PZCmsg = -3
  747.                 GUIDelete($PZC)
  748.                 ;Exit
  749.                 ExitLoop
  750.         EndSelect
  751.     WEnd
  752. EndFunc   ;==>_PZC
  753.  
  754. ; Pagani Zonda F
  755. Func _PZF()
  756.     Local $cost, $PZF, $PZFmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  757.  
  758.     $cost = ("$ 637 000")
  759.     $acc = ("86")
  760.     $spd = ("68")
  761.     $brk = ("87")
  762.     $maxspd = ("345 км/ч")
  763.     $100 = ("3.60 сек")
  764.     $hp = ("602 лс")
  765.     $perc = ("30%")
  766.  
  767.     $PZF = GUICreate("A1:", 205, 215, -1, -1, -1, 0x00000080)
  768.     GUISetBkColor(0xffFFFF)
  769.     GUICtrlCreateButton("Pagani Zonda F", 5, 2, 195, 20)
  770.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  771.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  772.  
  773.     GUICtrlCreateProgress(39, 46, 100, 13)
  774.     GUICtrlSetData(-1, 30)
  775.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  776.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  777.  
  778.     GUICtrlCreateProgress(100, 65, 100, 13)
  779.     GUICtrlSetData(-1, $acc)
  780.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  781.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  782.     GUICtrlCreateProgress(100, 87, 100, 13)
  783.     GUICtrlSetData(-1, $spd)
  784.     GUICtrlCreateLabel("Скорость:", 2, 87)
  785.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  786.     GUICtrlCreateProgress(100, 109, 100, 13)
  787.     GUICtrlSetData(-1, $brk)
  788.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  789.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  790.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  791.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  792.     GUICtrlCreateLabel("0-100:", 2, 155)
  793.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  794.     GUICtrlCreateLabel("Мощность:", 2, 177)
  795.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  796.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  797.     ;
  798.     GUICtrlCreateCheckbox(" ", 157, 192)
  799.     GUICtrlSetState(-1, $GUI_CHECKED)
  800.     GUICtrlCreateCheckbox(" ", 172, 192)
  801.     GUICtrlSetState(-1, $GUI_CHECKED)
  802.     GUICtrlCreateCheckbox(" ", 187, 192)
  803.     GUICtrlSetState(-1, $GUI_CHECKED)
  804.     ;
  805.     GUISetState(@SW_SHOW, $PZF)
  806.     While 1
  807.         $PZFmsg = GUIGetMsg()
  808.         Select
  809.             Case $PZFmsg = -3
  810.                 GUIDelete($PZF)
  811.                 ;Exit
  812.                 ExitLoop
  813.         EndSelect
  814.     WEnd
  815. EndFunc   ;==>_PZF
  816.  
  817. ; Pagani Zonda F Roadster
  818. Func _PZFR()
  819.     Local $cost, $PZFR, $PZFRmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  820.  
  821.     $cost = ("$ 765 000")
  822.     $acc = ("86")
  823.     $spd = ("68")
  824.     $brk = ("87")
  825.     $maxspd = ("345 км/ч")
  826.     $100 = ("3.60 сек")
  827.     $hp = ("650 лс")
  828.     $perc = ("36%")
  829.  
  830.     $PZFR = GUICreate("A1:", 205, 215, -1, -1, -1, 0x00000080)
  831.     GUISetBkColor(0xffFFFF)
  832.     GUICtrlCreateButton("Pagani Zonda F Roadster", 5, 2, 195, 20)
  833.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  834.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  835.  
  836.     GUICtrlCreateProgress(39, 46, 100, 13)
  837.     GUICtrlSetData(-1, 36)
  838.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  839.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  840.  
  841.     GUICtrlCreateProgress(100, 65, 100, 13)
  842.     GUICtrlSetData(-1, $acc)
  843.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  844.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  845.     GUICtrlCreateProgress(100, 87, 100, 13)
  846.     GUICtrlSetData(-1, $spd)
  847.     GUICtrlCreateLabel("Скорость:", 2, 87)
  848.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  849.     GUICtrlCreateProgress(100, 109, 100, 13)
  850.     GUICtrlSetData(-1, $brk)
  851.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  852.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  853.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  854.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  855.     GUICtrlCreateLabel("0-100:", 2, 155)
  856.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  857.     GUICtrlCreateLabel("Мощность:", 2, 177)
  858.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  859.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  860.     ;
  861.     GUICtrlCreateCheckbox(" ", 157, 192)
  862.     GUICtrlSetState(-1, $GUI_CHECKED)
  863.     GUICtrlCreateCheckbox(" ", 172, 192)
  864.     GUICtrlSetState(-1, $GUI_CHECKED)
  865.     GUICtrlCreateCheckbox(" ", 187, 192)
  866.     GUICtrlSetState(-1, $GUI_CHECKED)
  867.     ;
  868.     GUISetState(@SW_SHOW, $PZFR)
  869.     While 1
  870.         $PZFRmsg = GUIGetMsg()
  871.         Select
  872.             Case $PZFRmsg = -3
  873.                 GUIDelete($PZFR)
  874.                 ;Exit
  875.                 ExitLoop
  876.         EndSelect
  877.     WEnd
  878. EndFunc   ;==>_PZFR
  879.  
  880. ; RUF RT 12
  881. Func _RRT12()
  882.     Local $cost, $RRT12, $RRT12msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  883.  
  884.     $cost = ("$ 294 000")
  885.     $acc = ("88")
  886.     $spd = ("71")
  887.     $brk = ("75")
  888.     $maxspd = ("354 км/ч")
  889.     $100 = ("3.40 сек")
  890.     $hp = ("658 лс")
  891.     $perc = ("0%")
  892.  
  893.     $RRT12 = GUICreate("A1:", 205, 215, -1, -1, -1, 0x00000080)
  894.     GUISetBkColor(0xffFFFF)
  895.     GUICtrlCreateButton("RUF RT 12", 5, 2, 195, 20)
  896.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  897.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  898.  
  899.     GUICtrlCreateProgress(39, 46, 100, 13)
  900.     GUICtrlSetData(-1, 1)
  901.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  902.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  903.  
  904.     GUICtrlCreateProgress(100, 65, 100, 13)
  905.     GUICtrlSetData(-1, $acc)
  906.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  907.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  908.     GUICtrlCreateProgress(100, 87, 100, 13)
  909.     GUICtrlSetData(-1, $spd)
  910.     GUICtrlCreateLabel("Скорость:", 2, 87)
  911.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  912.     GUICtrlCreateProgress(100, 109, 100, 13)
  913.     GUICtrlSetData(-1, $brk)
  914.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  915.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  916.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  917.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  918.     GUICtrlCreateLabel("0-100:", 2, 155)
  919.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  920.     GUICtrlCreateLabel("Мощность:", 2, 177)
  921.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  922.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  923.     ;
  924.     GUICtrlCreateCheckbox(" ", 157, 192)
  925.     GUICtrlSetState(-1, $GUI_CHECKED)
  926.     GUICtrlCreateCheckbox(" ", 172, 192)
  927.     GUICtrlSetState(-1, $GUI_CHECKED)
  928.     GUICtrlCreateCheckbox(" ", 187, 192)
  929.     GUICtrlSetState(-1, $GUI_CHECKED)
  930.     ;
  931.     GUISetState(@SW_SHOW, $RRT12)
  932.     While 1
  933.         $RRT12msg = GUIGetMsg()
  934.         Select
  935.             Case $RRT12msg = -3
  936.                 GUIDelete($RRT12)
  937.                 ;Exit
  938.                 ExitLoop
  939.         EndSelect
  940.     WEnd
  941. EndFunc   ;==>_RRT12
  942.  
  943.  
  944. ; A2
  945. ; Ascari KZ1 R Limited Edition
  946. Func _AKZ1()
  947.     Local $cost, $AKZ1, $AKZ1msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  948.  
  949.     $cost = ("$ 637 000")
  950.     $acc = ("89")
  951.     $spd = ("62")
  952.     $brk = ("87")
  953.     $maxspd = ("320 км/ч")
  954.     $100 = ("3.30 сек")
  955.     $hp = ("520 лс")
  956.     $perc = ("30%")
  957.  
  958.     $AKZ1 = GUICreate("A2:", 205, 215, -1, -1, -1, 0x00000080)
  959.     GUISetBkColor(0xffFFFF)
  960.     GUICtrlCreateButton("Ascari KZ1 R Limited Edition", 5, 2, 195, 20)
  961.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  962.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  963.  
  964.     GUICtrlCreateProgress(39, 46, 100, 13)
  965.     GUICtrlSetData(-1, 30)
  966.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  967.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  968.  
  969.     GUICtrlCreateProgress(100, 65, 100, 13)
  970.     GUICtrlSetData(-1, $acc)
  971.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  972.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  973.     GUICtrlCreateProgress(100, 87, 100, 13)
  974.     GUICtrlSetData(-1, $spd)
  975.     GUICtrlCreateLabel("Скорость:", 2, 87)
  976.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  977.     GUICtrlCreateProgress(100, 109, 100, 13)
  978.     GUICtrlSetData(-1, $brk)
  979.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  980.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  981.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  982.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  983.     GUICtrlCreateLabel("0-100:", 2, 155)
  984.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  985.     GUICtrlCreateLabel("Мощность:", 2, 177)
  986.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  987.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  988.     ;
  989.     GUICtrlCreateCheckbox(" ", 157, 192)
  990.     GUICtrlSetState(-1, $GUI_CHECKED)
  991.     GUICtrlCreateCheckbox(" ", 172, 192)
  992.     GUICtrlSetState(-1, $GUI_CHECKED)
  993.     GUICtrlCreateCheckbox(" ", 187, 192)
  994.     GUICtrlSetState(-1, $GUI_CHECKED)
  995.     ;
  996.     GUISetState(@SW_SHOW, $AKZ1)
  997.     While 1
  998.         $AKZ1msg = GUIGetMsg()
  999.         Select
  1000.             Case $AKZ1msg = -3
  1001.                 GUIDelete($AKZ1)
  1002.                 ;Exit
  1003.                 ExitLoop
  1004.         EndSelect
  1005.     WEnd
  1006. EndFunc   ;==>_AKZ1
  1007.  
  1008. ; Aston Martin V12 Vantage
  1009. Func _AMV12V()
  1010.     Local $cost, $AMV12V, $AMV12Vmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  1011.  
  1012.     $cost = ("$ 250 000")
  1013.     $acc = ("80")
  1014.     $spd = ("58")
  1015.     $brk = ("81")
  1016.     $maxspd = ("305 км/ч")
  1017.     $100 = ("4.2 сек")
  1018.     $hp = ("510 лс")
  1019.     $perc = ("3%")
  1020.  
  1021.     $AMV12V = GUICreate("A2:", 205, 215, -1, -1, -1, 0x00000080)
  1022.     GUISetBkColor(0xffFFFF)
  1023.     GUICtrlCreateButton("Aston Martin V12 Vantage", 5, 2, 195, 20)
  1024.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  1025.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  1026.  
  1027.     GUICtrlCreateProgress(39, 46, 100, 13)
  1028.     GUICtrlSetData(-1, 5)
  1029.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  1030.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  1031.  
  1032.     GUICtrlCreateProgress(100, 65, 100, 13)
  1033.     GUICtrlSetData(-1, $acc)
  1034.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  1035.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  1036.     GUICtrlCreateProgress(100, 87, 100, 13)
  1037.     GUICtrlSetData(-1, $spd)
  1038.     GUICtrlCreateLabel("Скорость:", 2, 87)
  1039.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  1040.     GUICtrlCreateProgress(100, 109, 100, 13)
  1041.     GUICtrlSetData(-1, $brk)
  1042.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  1043.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  1044.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  1045.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  1046.     GUICtrlCreateLabel("0-100:", 2, 155)
  1047.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  1048.     GUICtrlCreateLabel("Мощность:", 2, 177)
  1049.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  1050.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  1051.     ;
  1052.     GUICtrlCreateCheckbox(" ", 157, 192)
  1053.     GUICtrlSetState(-1, $GUI_CHECKED)
  1054.     GUICtrlCreateCheckbox(" ", 172, 192)
  1055.     GUICtrlSetState(-1, $GUI_CHECKED)
  1056.     GUICtrlCreateCheckbox(" ", 187, 192)
  1057.     GUICtrlSetState(-1, $GUI_CHECKED)
  1058.     ;
  1059.     GUISetState(@SW_SHOW, $AMV12V)
  1060.     While 1
  1061.         $AMV12Vmsg = GUIGetMsg()
  1062.         Select
  1063.             Case $AMV12Vmsg = -3
  1064.                 GUIDelete($AMV12V)
  1065.                 ;Exit
  1066.                 ExitLoop
  1067.         EndSelect
  1068.     WEnd
  1069. EndFunc   ;==>_AMV12V
  1070.  
  1071. ; Audi R8 5.2 FSI Coupe
  1072. Func _AR852()
  1073.     Local $cost, $AR852, $AR852msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  1074.  
  1075.     $cost = ("$ 142 000")
  1076.     $acc = ("82")
  1077.     $spd = ("63")
  1078.     $brk = ("87")
  1079.     $maxspd = ("325 км/ч")
  1080.     $100 = ("4.00 сек")
  1081.     $hp = ("525 лс")
  1082.     $perc = ("6%")
  1083.  
  1084.     $AR852 = GUICreate("A2:", 205, 215, -1, -1, -1, 0x00000080)
  1085.     GUISetBkColor(0xffFFFF)
  1086.     GUICtrlCreateButton("Audi R8 5.2 FSI Coupe", 5, 2, 195, 20)
  1087.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  1088.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  1089.  
  1090.     GUICtrlCreateProgress(39, 46, 100, 13)
  1091.     GUICtrlSetData(-1, 6)
  1092.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  1093.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  1094.  
  1095.     GUICtrlCreateProgress(100, 65, 100, 13)
  1096.     GUICtrlSetData(-1, $acc)
  1097.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  1098.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  1099.     GUICtrlCreateProgress(100, 87, 100, 13)
  1100.     GUICtrlSetData(-1, $spd)
  1101.     GUICtrlCreateLabel("Скорость:", 2, 87)
  1102.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  1103.     GUICtrlCreateProgress(100, 109, 100, 13)
  1104.     GUICtrlSetData(-1, $brk)
  1105.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  1106.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  1107.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  1108.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  1109.     GUICtrlCreateLabel("0-100:", 2, 155)
  1110.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  1111.     GUICtrlCreateLabel("Мощность:", 2, 177)
  1112.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  1113.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  1114.     ;
  1115.     GUICtrlCreateCheckbox(" ", 157, 192)
  1116.     GUICtrlSetState(-1, $GUI_CHECKED)
  1117.     GUICtrlCreateCheckbox(" ", 172, 192)
  1118.     GUICtrlSetState(-1, $GUI_CHECKED)
  1119.     GUICtrlCreateCheckbox(" ", 187, 192)
  1120.     GUICtrlSetState(-1, $GUI_CHECKED)
  1121.     ;
  1122.     GUISetState(@SW_SHOW, $AR852)
  1123.     While 1
  1124.         $AR852msg = GUIGetMsg()
  1125.         Select
  1126.             Case $AR852msg = -3
  1127.                 GUIDelete($AR852)
  1128.                 ;Exit
  1129.                 ExitLoop
  1130.         EndSelect
  1131.     WEnd
  1132. EndFunc   ;==>_AR852
  1133.  
  1134. ; Dodge Viper SRT10
  1135. Func _DVSRT10()
  1136.     Local $cost, $DVSRT10, $DVSRT10msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  1137.  
  1138.     $cost = ("$ 90 160")
  1139.     $acc = ("85")
  1140.     $spd = ("63")
  1141.     $brk = ("87")
  1142.     $maxspd = ("325 км/ч")
  1143.     $100 = ("3.70 сек")
  1144.     $hp = ("600 лс")
  1145.     $perc = ("3%")
  1146.  
  1147.     $DVSRT10 = GUICreate("A2:", 205, 215, -1, -1, -1, 0x00000080)
  1148.     GUISetBkColor(0xffFFFF)
  1149.     GUICtrlCreateButton("Dodge Viper SRT10", 5, 2, 195, 20)
  1150.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  1151.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  1152.  
  1153.     GUICtrlCreateProgress(39, 46, 100, 13)
  1154.     GUICtrlSetData(-1, 5)
  1155.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  1156.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  1157.  
  1158.     GUICtrlCreateProgress(100, 65, 100, 13)
  1159.     GUICtrlSetData(-1, $acc)
  1160.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  1161.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  1162.     GUICtrlCreateProgress(100, 87, 100, 13)
  1163.     GUICtrlSetData(-1, $spd)
  1164.     GUICtrlCreateLabel("Скорость:", 2, 87)
  1165.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  1166.     GUICtrlCreateProgress(100, 109, 100, 13)
  1167.     GUICtrlSetData(-1, $brk)
  1168.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  1169.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  1170.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  1171.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  1172.     GUICtrlCreateLabel("0-100:", 2, 155)
  1173.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  1174.     GUICtrlCreateLabel("Мощность:", 2, 177)
  1175.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  1176.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  1177.     ;
  1178.     GUICtrlCreateCheckbox(" ", 157, 192)
  1179.     GUICtrlSetState(-1, $GUI_CHECKED)
  1180.     GUICtrlCreateCheckbox(" ", 172, 192)
  1181.     GUICtrlSetState(-1, $GUI_CHECKED)
  1182.     GUICtrlCreateCheckbox(" ", 187, 192)
  1183.     GUICtrlSetState(-1, $GUI_CHECKED)
  1184.     ;
  1185.     GUISetState(@SW_SHOW, $DVSRT10)
  1186.     While 1
  1187.         $DVSRT10msg = GUIGetMsg()
  1188.         Select
  1189.             Case $DVSRT10msg = -3
  1190.                 GUIDelete($DVSRT10)
  1191.                 ;Exit
  1192.                 ExitLoop
  1193.         EndSelect
  1194.     WEnd
  1195. EndFunc   ;==>_DVSRT10
  1196.  
  1197. ; Ferrari 458 Italia
  1198. Func _F458()
  1199.     Local $cost, $F458, $F458msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  1200.  
  1201.     $cost = ("$ 200 000")
  1202.     $acc = ("88")
  1203.     $spd = ("63")
  1204.     $brk = ("85")
  1205.     $maxspd = ("325 км/ч")
  1206.     $100 = ("3.4 сек")
  1207.     $hp = ("562 лс")
  1208.     $perc = ("3%")
  1209.  
  1210.     $F458 = GUICreate("A2:", 205, 215, -1, -1, -1, 0x00000080)
  1211.     GUISetBkColor(0xffFFFF)
  1212.     GUICtrlCreateButton("Ferrari 458 Italia", 5, 2, 195, 20)
  1213.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  1214.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  1215.  
  1216.     GUICtrlCreateProgress(39, 46, 100, 13)
  1217.     GUICtrlSetData(-1, 5)
  1218.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  1219.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  1220.  
  1221.     GUICtrlCreateProgress(100, 65, 100, 13)
  1222.     GUICtrlSetData(-1, $acc)
  1223.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  1224.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  1225.     GUICtrlCreateProgress(100, 87, 100, 13)
  1226.     GUICtrlSetData(-1, $spd)
  1227.     GUICtrlCreateLabel("Скорость:", 2, 87)
  1228.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  1229.     GUICtrlCreateProgress(100, 109, 100, 13)
  1230.     GUICtrlSetData(-1, $brk)
  1231.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  1232.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  1233.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  1234.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  1235.     GUICtrlCreateLabel("0-100:", 2, 155)
  1236.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  1237.     GUICtrlCreateLabel("Мощность:", 2, 177)
  1238.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  1239.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  1240.     ;
  1241.     GUICtrlCreateCheckbox(" ", 157, 192)
  1242.     GUICtrlCreateCheckbox(" ", 172, 192)
  1243.     GUICtrlSetState(-1, $GUI_CHECKED)
  1244.     GUICtrlCreateCheckbox(" ", 187, 192)
  1245.     ;
  1246.     GUISetState(@SW_SHOW, $F458)
  1247.     While 1
  1248.         $F458msg = GUIGetMsg()
  1249.         Select
  1250.             Case $F458msg = -3
  1251.                 GUIDelete($F458)
  1252.                 ;Exit
  1253.                 ExitLoop
  1254.         EndSelect
  1255.     WEnd
  1256. EndFunc   ;==>_F458
  1257.  
  1258. ; Ferrari 599 GTB Fiorano
  1259. Func _F599GTB()
  1260.     Local $cost, $F599GTB, $F599GTBmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  1261.  
  1262.     $cost = ("$ 295 960")
  1263.     $acc = ("85")
  1264.     $spd = ("65")
  1265.     $brk = ("76")
  1266.     $maxspd = ("330 км/ч")
  1267.     $100 = ("3.7 сек")
  1268.     $hp = ("620 лс")
  1269.     $perc = ("3%")
  1270.  
  1271.     $F599GTB = GUICreate("A2:", 205, 215, -1, -1, -1, 0x00000080)
  1272.     GUISetBkColor(0xffFFFF)
  1273.     GUICtrlCreateButton("Ferrari 599 GTB Fiorano", 5, 2, 195, 20)
  1274.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  1275.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  1276.  
  1277.     GUICtrlCreateProgress(39, 46, 100, 13)
  1278.     GUICtrlSetData(-1, 5)
  1279.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  1280.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  1281.  
  1282.     GUICtrlCreateProgress(100, 65, 100, 13)
  1283.     GUICtrlSetData(-1, $acc)
  1284.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  1285.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  1286.     GUICtrlCreateProgress(100, 87, 100, 13)
  1287.     GUICtrlSetData(-1, $spd)
  1288.     GUICtrlCreateLabel("Скорость:", 2, 87)
  1289.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  1290.     GUICtrlCreateProgress(100, 109, 100, 13)
  1291.     GUICtrlSetData(-1, $brk)
  1292.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  1293.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  1294.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  1295.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  1296.     GUICtrlCreateLabel("0-100:", 2, 155)
  1297.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  1298.     GUICtrlCreateLabel("Мощность:", 2, 177)
  1299.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  1300.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  1301.     ;
  1302.     GUICtrlCreateCheckbox(" ", 157, 192)
  1303.     GUICtrlCreateCheckbox(" ", 172, 192)
  1304.     GUICtrlSetState(-1, $GUI_CHECKED)
  1305.     GUICtrlCreateCheckbox(" ", 187, 192)
  1306.     ;
  1307.     GUISetState(@SW_SHOW, $F599GTB)
  1308.     While 1
  1309.         $F599GTBmsg = GUIGetMsg()
  1310.         Select
  1311.             Case $F599GTBmsg = -3
  1312.                 GUIDelete($F599GTB)
  1313.                 ;Exit
  1314.                 ExitLoop
  1315.         EndSelect
  1316.     WEnd
  1317. EndFunc   ;==>_F599GTB
  1318.  
  1319. ; Ferrari F430 Scuderia
  1320. Func _FF430()
  1321.     Local $cost, $FF430, $FF430msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  1322.  
  1323.     $cost = ("$ 281 000")
  1324.     $acc = ("86")
  1325.     $spd = ("62")
  1326.     $brk = ("87")
  1327.     $maxspd = ("320 км/ч")
  1328.     $100 = ("3.6 сек")
  1329.     $hp = ("510 лс")
  1330.     $perc = ("3%")
  1331.  
  1332.     $FF430 = GUICreate("A2:", 205, 215, -1, -1, -1, 0x00000080)
  1333.     GUISetBkColor(0xffFFFF)
  1334.     GUICtrlCreateButton("Ferrari F430 Scuderia", 5, 2, 195, 20)
  1335.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  1336.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  1337.  
  1338.     GUICtrlCreateProgress(39, 46, 100, 13)
  1339.     GUICtrlSetData(-1, 5)
  1340.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  1341.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  1342.  
  1343.     GUICtrlCreateProgress(100, 65, 100, 13)
  1344.     GUICtrlSetData(-1, $acc)
  1345.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  1346.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  1347.     GUICtrlCreateProgress(100, 87, 100, 13)
  1348.     GUICtrlSetData(-1, $spd)
  1349.     GUICtrlCreateLabel("Скорость:", 2, 87)
  1350.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  1351.     GUICtrlCreateProgress(100, 109, 100, 13)
  1352.     GUICtrlSetData(-1, $brk)
  1353.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  1354.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  1355.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  1356.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  1357.     GUICtrlCreateLabel("0-100:", 2, 155)
  1358.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  1359.     GUICtrlCreateLabel("Мощность:", 2, 177)
  1360.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  1361.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  1362.     ;
  1363.     GUICtrlCreateCheckbox(" ", 157, 192)
  1364.     GUICtrlCreateCheckbox(" ", 172, 192)
  1365.     GUICtrlSetState(-1, $GUI_CHECKED)
  1366.     GUICtrlCreateCheckbox(" ", 187, 192)
  1367.     ;
  1368.     GUISetState(@SW_SHOW, $FF430)
  1369.     While 1
  1370.         $FF430msg = GUIGetMsg()
  1371.         Select
  1372.             Case $FF430msg = -3
  1373.                 GUIDelete($FF430)
  1374.                 ;Exit
  1375.                 ExitLoop
  1376.         EndSelect
  1377.     WEnd
  1378. EndFunc   ;==>_FF430
  1379.  
  1380. ; Ferrari F430 Scuderia Spider 16M
  1381. Func _FF430S()
  1382.     Local $cost, $FF430S, $FF430Smsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  1383.  
  1384.     $cost = ("$ 237 000")
  1385.     $acc = ("85")
  1386.     $spd = ("61")
  1387.     $brk = ("87")
  1388.     $maxspd = ("315 км/ч")
  1389.     $100 = ("3.7 сек")
  1390.     $hp = ("510 лс")
  1391.     $perc = ("3%")
  1392.  
  1393.     $FF430S = GUICreate("A2:", 205, 215, -1, -1, -1, 0x00000080)
  1394.     GUISetBkColor(0xffFFFF)
  1395.     GUICtrlCreateButton("Ferrari F430 Scuderia Spider 16M", 5, 2, 195, 20)
  1396.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  1397.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  1398.  
  1399.     GUICtrlCreateProgress(39, 46, 100, 13)
  1400.     GUICtrlSetData(-1, 5)
  1401.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  1402.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  1403.  
  1404.     GUICtrlCreateProgress(100, 65, 100, 13)
  1405.     GUICtrlSetData(-1, $acc)
  1406.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  1407.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  1408.     GUICtrlCreateProgress(100, 87, 100, 13)
  1409.     GUICtrlSetData(-1, $spd)
  1410.     GUICtrlCreateLabel("Скорость:", 2, 87)
  1411.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  1412.     GUICtrlCreateProgress(100, 109, 100, 13)
  1413.     GUICtrlSetData(-1, $brk)
  1414.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  1415.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  1416.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  1417.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  1418.     GUICtrlCreateLabel("0-100:", 2, 155)
  1419.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  1420.     GUICtrlCreateLabel("Мощность:", 2, 177)
  1421.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  1422.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  1423.     ;
  1424.     GUICtrlCreateCheckbox(" ", 157, 192)
  1425.     GUICtrlCreateCheckbox(" ", 172, 192)
  1426.     GUICtrlSetState(-1, $GUI_CHECKED)
  1427.     GUICtrlCreateCheckbox(" ", 187, 192)
  1428.     ;
  1429.     GUISetState(@SW_SHOW, $FF430S)
  1430.     While 1
  1431.         $FF430Smsg = GUIGetMsg()
  1432.         Select
  1433.             Case $FF430Smsg = -3
  1434.                 GUIDelete($FF430S)
  1435.                 ;Exit
  1436.                 ExitLoop
  1437.         EndSelect
  1438.     WEnd
  1439. EndFunc   ;==>_FF430S
  1440.  
  1441. ; Ford GT
  1442. Func _FGT()
  1443.     Local $cost, $FGT, $FGTmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  1444.  
  1445.     $cost = ("$ 137 000")
  1446.     $acc = ("83")
  1447.     $spd = ("65")
  1448.     $brk = ("66")
  1449.     $maxspd = ("330 км/ч")
  1450.     $100 = ("3.90 сек")
  1451.     $hp = ("550 лс")
  1452.     $perc = ("3%")
  1453.  
  1454.     $FGT = GUICreate("A2:", 205, 215, -1, -1, -1, 0x00000080)
  1455.     GUISetBkColor(0xffFFFF)
  1456.     GUICtrlCreateButton("Ford GT", 5, 2, 195, 20)
  1457.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  1458.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  1459.  
  1460.     GUICtrlCreateProgress(39, 46, 100, 13)
  1461.     GUICtrlSetData(-1, 5)
  1462.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  1463.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  1464.  
  1465.     GUICtrlCreateProgress(100, 65, 100, 13)
  1466.     GUICtrlSetData(-1, $acc)
  1467.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  1468.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  1469.     GUICtrlCreateProgress(100, 87, 100, 13)
  1470.     GUICtrlSetData(-1, $spd)
  1471.     GUICtrlCreateLabel("Скорость:", 2, 87)
  1472.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  1473.     GUICtrlCreateProgress(100, 109, 100, 13)
  1474.     GUICtrlSetData(-1, $brk)
  1475.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  1476.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  1477.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  1478.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  1479.     GUICtrlCreateLabel("0-100:", 2, 155)
  1480.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  1481.     GUICtrlCreateLabel("Мощность:", 2, 177)
  1482.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  1483.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  1484.     ;
  1485.     GUICtrlCreateCheckbox(" ", 157, 192)
  1486.     GUICtrlSetState(-1, $GUI_CHECKED)
  1487.     GUICtrlCreateCheckbox(" ", 172, 192)
  1488.     GUICtrlSetState(-1, $GUI_CHECKED)
  1489.     GUICtrlCreateCheckbox(" ", 187, 192)
  1490.     GUICtrlSetState(-1, $GUI_CHECKED)
  1491.     ;
  1492.     GUISetState(@SW_SHOW, $FGT)
  1493.     While 1
  1494.         $FGTmsg = GUIGetMsg()
  1495.         Select
  1496.             Case $FGTmsg = -3
  1497.                 GUIDelete($FGT)
  1498.                 ;Exit
  1499.                 ExitLoop
  1500.         EndSelect
  1501.     WEnd
  1502. EndFunc   ;==>_FGT
  1503.  
  1504. ; Ginetta F400
  1505. Func _GF400()
  1506.     Local $cost, $GF400, $GF400msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  1507.  
  1508.     $cost = ("$ 139 160")
  1509.     $acc = ("85")
  1510.     $spd = ("57")
  1511.     $brk = ("82")
  1512.     $maxspd = ("300 км/ч")
  1513.     $100 = ("3.70 сек")
  1514.     $hp = ("410 лс")
  1515.     $perc = ("3%")
  1516.  
  1517.     $GF400 = GUICreate("A2:", 205, 215, -1, -1, -1, 0x00000080)
  1518.     GUISetBkColor(0xffFFFF)
  1519.     GUICtrlCreateButton("Ginetta F400", 5, 2, 195, 20)
  1520.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  1521.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  1522.  
  1523.     GUICtrlCreateProgress(39, 46, 100, 13)
  1524.     GUICtrlSetData(-1, 5)
  1525.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  1526.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  1527.  
  1528.     GUICtrlCreateProgress(100, 65, 100, 13)
  1529.     GUICtrlSetData(-1, $acc)
  1530.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  1531.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  1532.     GUICtrlCreateProgress(100, 87, 100, 13)
  1533.     GUICtrlSetData(-1, $spd)
  1534.     GUICtrlCreateLabel("Скорость:", 2, 87)
  1535.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  1536.     GUICtrlCreateProgress(100, 109, 100, 13)
  1537.     GUICtrlSetData(-1, $brk)
  1538.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  1539.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  1540.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  1541.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  1542.     GUICtrlCreateLabel("0-100:", 2, 155)
  1543.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  1544.     GUICtrlCreateLabel("Мощность:", 2, 177)
  1545.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  1546.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  1547.     ;
  1548.     GUICtrlCreateCheckbox(" ", 157, 192)
  1549.     GUICtrlSetState(-1, $GUI_CHECKED)
  1550.     GUICtrlCreateCheckbox(" ", 172, 192)
  1551.     GUICtrlSetState(-1, $GUI_CHECKED)
  1552.     GUICtrlCreateCheckbox(" ", 187, 192)
  1553.     GUICtrlSetState(-1, $GUI_CHECKED)
  1554.     ;
  1555.     GUISetState(@SW_SHOW, $GF400)
  1556.     While 1
  1557.         $GF400msg = GUIGetMsg()
  1558.         Select
  1559.             Case $GF400msg = -3
  1560.                 GUIDelete($GF400)
  1561.                 ;Exit
  1562.                 ExitLoop
  1563.         EndSelect
  1564.     WEnd
  1565. EndFunc   ;==>_GF400
  1566.  
  1567. ; Mercedes-Benz SLR McLaren Roadster 722s
  1568. Func _MBSLRMLR722()
  1569.     Local $cost, $MBSLRMLR722, $MBSLRMLR722msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  1570.  
  1571.     $cost = ("$ 514 500")
  1572.     $acc = ("85")
  1573.     $spd = ("65")
  1574.     $brk = ("81")
  1575.     $maxspd = ("332 км/ч")
  1576.     $100 = ("3.70 сек")
  1577.     $hp = ("641 лс")
  1578.     $perc = ("3%")
  1579.  
  1580.     $MBSLRMLR722 = GUICreate("A2:", 205, 215, -1, -1, -1, 0x00000080)
  1581.     GUISetBkColor(0xffFFFF)
  1582.     GUICtrlCreateButton("Mercedes-Benz SLR McLaren Roadster 722s", 5, 2, 195, 20)
  1583.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  1584.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  1585.  
  1586.     GUICtrlCreateProgress(39, 46, 100, 13)
  1587.     GUICtrlSetData(-1, 5)
  1588.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  1589.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  1590.  
  1591.     GUICtrlCreateProgress(100, 65, 100, 13)
  1592.     GUICtrlSetData(-1, $acc)
  1593.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  1594.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  1595.     GUICtrlCreateProgress(100, 87, 100, 13)
  1596.     GUICtrlSetData(-1, $spd)
  1597.     GUICtrlCreateLabel("Скорость:", 2, 87)
  1598.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  1599.     GUICtrlCreateProgress(100, 109, 100, 13)
  1600.     GUICtrlSetData(-1, $brk)
  1601.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  1602.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  1603.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  1604.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  1605.     GUICtrlCreateLabel("0-100:", 2, 155)
  1606.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  1607.     GUICtrlCreateLabel("Мощность:", 2, 177)
  1608.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  1609.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  1610.     ;
  1611.     GUICtrlCreateCheckbox(" ", 157, 192)
  1612.     GUICtrlSetState(-1, $GUI_CHECKED)
  1613.     GUICtrlCreateCheckbox(" ", 172, 192)
  1614.     GUICtrlSetState(-1, $GUI_CHECKED)
  1615.     GUICtrlCreateCheckbox(" ", 187, 192)
  1616.     GUICtrlSetState(-1, $GUI_CHECKED)
  1617.     ;
  1618.     GUISetState(@SW_SHOW, $MBSLRMLR722)
  1619.     While 1
  1620.         $MBSLRMLR722msg = GUIGetMsg()
  1621.         Select
  1622.             Case $MBSLRMLR722msg = -3
  1623.                 GUIDelete($MBSLRMLR722)
  1624.                 ;Exit
  1625.                 ExitLoop
  1626.         EndSelect
  1627.     WEnd
  1628. EndFunc   ;==>_MBSLRMLR722
  1629.  
  1630. ; Mercedes-Benz SLS AMG
  1631. Func _MBSLSAMG()
  1632.     Local $cost, $MBSLKAMG, $MBSLKAMGmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  1633.  
  1634.     $cost = ("$ 235 200")
  1635.     $acc = ("84")
  1636.     $spd = ("61")
  1637.     $brk = ("75")
  1638.     $maxspd = ("317 км/ч")
  1639.     $100 = ("3.80 сек")
  1640.     $hp = ("563 лс")
  1641.     $perc = ("3%")
  1642.  
  1643.     $MBSLKAMG = GUICreate("A2:", 205, 215, -1, -1, -1, 0x00000080)
  1644.     GUISetBkColor(0xffFFFF)
  1645.     GUICtrlCreateButton("Mercedes-Benz SLS AMG", 5, 2, 195, 20)
  1646.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  1647.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  1648.  
  1649.     GUICtrlCreateProgress(39, 46, 100, 13)
  1650.     GUICtrlSetData(-1, 5)
  1651.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  1652.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  1653.  
  1654.     GUICtrlCreateProgress(100, 65, 100, 13)
  1655.     GUICtrlSetData(-1, $acc)
  1656.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  1657.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  1658.     GUICtrlCreateProgress(100, 87, 100, 13)
  1659.     GUICtrlSetData(-1, $spd)
  1660.     GUICtrlCreateLabel("Скорость:", 2, 87)
  1661.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  1662.     GUICtrlCreateProgress(100, 109, 100, 13)
  1663.     GUICtrlSetData(-1, $brk)
  1664.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  1665.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  1666.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  1667.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  1668.     GUICtrlCreateLabel("0-100:", 2, 155)
  1669.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  1670.     GUICtrlCreateLabel("Мощность:", 2, 177)
  1671.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  1672.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  1673.     ;
  1674.     GUICtrlCreateCheckbox(" ", 157, 192)
  1675.     GUICtrlSetState(-1, $GUI_CHECKED)
  1676.     GUICtrlCreateCheckbox(" ", 172, 192)
  1677.     GUICtrlSetState(-1, $GUI_CHECKED)
  1678.     GUICtrlCreateCheckbox(" ", 187, 192)
  1679.     GUICtrlSetState(-1, $GUI_CHECKED)
  1680.     ;
  1681.     GUISetState(@SW_SHOW, $MBSLKAMG)
  1682.     While 1
  1683.         $MBSLKAMGmsg = GUIGetMsg()
  1684.         Select
  1685.             Case $MBSLKAMGmsg = -3
  1686.                 GUIDelete($MBSLKAMG)
  1687.                 ;Exit
  1688.                 ExitLoop
  1689.         EndSelect
  1690.     WEnd
  1691. EndFunc   ;==>_MBSLSAMG
  1692.  
  1693. ; Nissan GT-R
  1694. Func _NGTR()
  1695.     Local $cost, $NGTR, $NGTRmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  1696.  
  1697.     $cost = ("$ 70 560")
  1698.     $acc = ("87")
  1699.     $spd = ("60")
  1700.     $brk = ("56")
  1701.     $maxspd = ("311 км/ч")
  1702.     $100 = ("- сек")
  1703.     $hp = ("485 лс")
  1704.     $perc = ("3%")
  1705.  
  1706.     $NGTR = GUICreate("A2:", 205, 215, -1, -1, -1, 0x00000080)
  1707.     GUISetBkColor(0xffFFFF)
  1708.     GUICtrlCreateButton("Nissan GT-R", 5, 2, 195, 20)
  1709.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  1710.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  1711.  
  1712.     GUICtrlCreateProgress(39, 46, 100, 13)
  1713.     GUICtrlSetData(-1, 5)
  1714.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  1715.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  1716.  
  1717.     GUICtrlCreateProgress(100, 65, 100, 13)
  1718.     GUICtrlSetData(-1, $acc)
  1719.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  1720.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  1721.     GUICtrlCreateProgress(100, 87, 100, 13)
  1722.     GUICtrlSetData(-1, $spd)
  1723.     GUICtrlCreateLabel("Скорость:", 2, 87)
  1724.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  1725.     GUICtrlCreateProgress(100, 109, 100, 13)
  1726.     GUICtrlSetData(-1, $brk)
  1727.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  1728.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  1729.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  1730.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  1731.     GUICtrlCreateLabel("0-100:", 2, 155)
  1732.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  1733.     GUICtrlCreateLabel("Мощность:", 2, 177)
  1734.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  1735.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  1736.     ;
  1737.     GUICtrlCreateCheckbox(" ", 157, 192)
  1738.     GUICtrlCreateCheckbox(" ", 172, 192)
  1739.     GUICtrlCreateCheckbox(" ", 187, 192)
  1740.     GUICtrlSetState(-1, $GUI_CHECKED)
  1741.     ;
  1742.     GUISetState(@SW_SHOW, $NGTR)
  1743.     While 1
  1744.         $NGTRmsg = GUIGetMsg()
  1745.         Select
  1746.             Case $NGTRmsg = -3
  1747.                 GUIDelete($NGTR)
  1748.                 ;Exit
  1749.                 ExitLoop
  1750.         EndSelect
  1751.     WEnd
  1752. EndFunc   ;==>_NGTR
  1753.  
  1754. ; Pagani Zonda C12S Roadster
  1755. Func _PZC12SR()
  1756.     Local $cost, $PZC12SR, $PZC12SRmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  1757.  
  1758.     $cost = ("$ 588 000")
  1759.     $acc = ("85")
  1760.     $spd = ("66")
  1761.     $brk = ("53")
  1762.     $maxspd = ("336 км/ч")
  1763.     $100 = ("3.70 сек")
  1764.     $hp = ("336 лс")
  1765.     $perc = ("1%")
  1766.  
  1767.     $PZC12SR = GUICreate("A2:", 205, 215, -1, -1, -1, 0x00000080)
  1768.     GUISetBkColor(0xffFFFF)
  1769.     GUICtrlCreateButton("Pagani Zonda C12S Roadster", 5, 2, 195, 20)
  1770.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  1771.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  1772.  
  1773.     GUICtrlCreateProgress(39, 46, 100, 13)
  1774.     GUICtrlSetData(-1, 1)
  1775.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  1776.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  1777.  
  1778.     GUICtrlCreateProgress(100, 65, 100, 13)
  1779.     GUICtrlSetData(-1, $acc)
  1780.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  1781.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  1782.     GUICtrlCreateProgress(100, 87, 100, 13)
  1783.     GUICtrlSetData(-1, $spd)
  1784.     GUICtrlCreateLabel("Скорость:", 2, 87)
  1785.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  1786.     GUICtrlCreateProgress(100, 109, 100, 13)
  1787.     GUICtrlSetData(-1, $brk)
  1788.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  1789.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  1790.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  1791.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  1792.     GUICtrlCreateLabel("0-100:", 2, 155)
  1793.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  1794.     GUICtrlCreateLabel("Мощность:", 2, 177)
  1795.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  1796.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  1797.     ;
  1798.     GUICtrlCreateCheckbox(" ", 157, 192)
  1799.     GUICtrlSetState(-1, $GUI_CHECKED)
  1800.     GUICtrlCreateCheckbox(" ", 172, 192)
  1801.     GUICtrlCreateCheckbox(" ", 187, 192)
  1802.     GUICtrlSetState(-1, $GUI_CHECKED)
  1803.     ;
  1804.     GUISetState(@SW_SHOW, $PZC12SR)
  1805.     While 1
  1806.         $PZC12SRmsg = GUIGetMsg()
  1807.         Select
  1808.             Case $PZC12SRmsg = -3
  1809.                 GUIDelete($PZC12SR)
  1810.                 ;Exit
  1811.                 ExitLoop
  1812.         EndSelect
  1813.     WEnd
  1814. EndFunc   ;==>_PZC12SR
  1815.  
  1816. ; RUF RGT
  1817. Func _RRGT()
  1818.     Local $cost, $RRGT, $RRGTmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  1819.  
  1820.     $cost = ("$ 63 700")
  1821.     $acc = ("86")
  1822.     $spd = ("65")
  1823.     $brk = ("75")
  1824.     $maxspd = ("330 км/ч")
  1825.     $100 = ("3.60 сек")
  1826.     $hp = ("590 лс")
  1827.     $perc = ("3%")
  1828.  
  1829.     $RRGT = GUICreate("A2:", 205, 215, -1, -1, -1, 0x00000080)
  1830.     GUISetBkColor(0xffFFFF)
  1831.     GUICtrlCreateButton("RUF RGT", 5, 2, 195, 20)
  1832.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  1833.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  1834.  
  1835.     GUICtrlCreateProgress(39, 46, 100, 13)
  1836.     GUICtrlSetData(-1, 5)
  1837.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  1838.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  1839.  
  1840.     GUICtrlCreateProgress(100, 65, 100, 13)
  1841.     GUICtrlSetData(-1, $acc)
  1842.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  1843.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  1844.     GUICtrlCreateProgress(100, 87, 100, 13)
  1845.     GUICtrlSetData(-1, $spd)
  1846.     GUICtrlCreateLabel("Скорость:", 2, 87)
  1847.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  1848.     GUICtrlCreateProgress(100, 109, 100, 13)
  1849.     GUICtrlSetData(-1, $brk)
  1850.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  1851.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  1852.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  1853.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  1854.     GUICtrlCreateLabel("0-100:", 2, 155)
  1855.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  1856.     GUICtrlCreateLabel("Мощность:", 2, 177)
  1857.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  1858.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  1859.     ;
  1860.     GUICtrlCreateCheckbox(" ", 157, 192)
  1861.     GUICtrlSetState(-1, $GUI_CHECKED)
  1862.     GUICtrlCreateCheckbox(" ", 172, 192)
  1863.     GUICtrlSetState(-1, $GUI_CHECKED)
  1864.     GUICtrlCreateCheckbox(" ", 187, 192)
  1865.     GUICtrlSetState(-1, $GUI_CHECKED)
  1866.     ;
  1867.     GUISetState(@SW_SHOW, $RRGT)
  1868.     While 1
  1869.         $RRGTmsg = GUIGetMsg()
  1870.         Select
  1871.             Case $RRGTmsg = -3
  1872.                 GUIDelete($RRGT)
  1873.                 ;Exit
  1874.                 ExitLoop
  1875.         EndSelect
  1876.     WEnd
  1877. EndFunc   ;==>_RRGT
  1878.  
  1879. ; RUF Rturbo
  1880. Func _RRT()
  1881.     Local $cost, $RRT, $RRTmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  1882.  
  1883.     $cost = ("$ 196 000")
  1884.     $acc = ("86")
  1885.     $spd = ("65")
  1886.     $brk = ("75")
  1887.     $maxspd = ("330 км/ч")
  1888.     $100 = ("3.60 сек")
  1889.     $hp = ("590 лс")
  1890.     $perc = ("3%")
  1891.  
  1892.     $RRT = GUICreate("A2:", 205, 215, -1, -1, -1, 0x00000080)
  1893.     GUISetBkColor(0xffFFFF)
  1894.     GUICtrlCreateButton("RUF Rturbo", 5, 2, 195, 20)
  1895.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  1896.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  1897.  
  1898.     GUICtrlCreateProgress(39, 46, 100, 13)
  1899.     GUICtrlSetData(-1, 5)
  1900.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  1901.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  1902.  
  1903.     GUICtrlCreateProgress(100, 65, 100, 13)
  1904.     GUICtrlSetData(-1, $acc)
  1905.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  1906.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  1907.     GUICtrlCreateProgress(100, 87, 100, 13)
  1908.     GUICtrlSetData(-1, $spd)
  1909.     GUICtrlCreateLabel("Скорость:", 2, 87)
  1910.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  1911.     GUICtrlCreateProgress(100, 109, 100, 13)
  1912.     GUICtrlSetData(-1, $brk)
  1913.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  1914.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  1915.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  1916.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  1917.     GUICtrlCreateLabel("0-100:", 2, 155)
  1918.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  1919.     GUICtrlCreateLabel("Мощность:", 2, 177)
  1920.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  1921.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  1922.     ;
  1923.     GUICtrlCreateCheckbox(" ", 157, 192)
  1924.     GUICtrlSetState(-1, $GUI_CHECKED)
  1925.     GUICtrlCreateCheckbox(" ", 172, 192)
  1926.     GUICtrlSetState(-1, $GUI_CHECKED)
  1927.     GUICtrlCreateCheckbox(" ", 187, 192)
  1928.     GUICtrlSetState(-1, $GUI_CHECKED)
  1929.     ;
  1930.     GUISetState(@SW_SHOW, $RRT)
  1931.     While 1
  1932.         $RRTmsg = GUIGetMsg()
  1933.         Select
  1934.             Case $RRTmsg = -3
  1935.                 GUIDelete($RRT)
  1936.                 ;Exit
  1937.                 ExitLoop
  1938.         EndSelect
  1939.     WEnd
  1940. EndFunc   ;==>_RRT
  1941.  
  1942. ; Spyker C12 Zagato
  1943. Func _SC12Z()
  1944.     Local $cost, $SC12Z, $SC12Zmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  1945.  
  1946.     $cost = ("$ 705 600")
  1947.     $acc = ("84")
  1948.     $spd = ("60")
  1949.     $brk = ("87")
  1950.     $maxspd = ("310 км/ч")
  1951.     $100 = ("3.80 сек")
  1952.     $hp = ("500 лс")
  1953.     $perc = ("100%")
  1954.  
  1955.     $SC12Z = GUICreate("A2:", 205, 215, -1, -1, -1, 0x00000080)
  1956.     GUISetBkColor(0xffFFFF)
  1957.     GUICtrlCreateButton("Spyker C12 Zagato", 5, 2, 195, 20)
  1958.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  1959.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  1960.  
  1961.     GUICtrlCreateProgress(39, 46, 100, 13)
  1962.     GUICtrlSetData(-1, 100)
  1963.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  1964.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  1965.  
  1966.     GUICtrlCreateProgress(100, 65, 100, 13)
  1967.     GUICtrlSetData(-1, $acc)
  1968.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  1969.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  1970.     GUICtrlCreateProgress(100, 87, 100, 13)
  1971.     GUICtrlSetData(-1, $spd)
  1972.     GUICtrlCreateLabel("Скорость:", 2, 87)
  1973.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  1974.     GUICtrlCreateProgress(100, 109, 100, 13)
  1975.     GUICtrlSetData(-1, $brk)
  1976.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  1977.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  1978.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  1979.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  1980.     GUICtrlCreateLabel("0-100:", 2, 155)
  1981.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  1982.     GUICtrlCreateLabel("Мощность:", 2, 177)
  1983.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  1984.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  1985.     ;
  1986.     GUICtrlCreateCheckbox(" ", 157, 192)
  1987.     GUICtrlSetState(-1, $GUI_CHECKED)
  1988.     GUICtrlCreateCheckbox(" ", 172, 192)
  1989.     GUICtrlSetState(-1, $GUI_CHECKED)
  1990.     GUICtrlCreateCheckbox(" ", 187, 192)
  1991.     GUICtrlSetState(-1, $GUI_CHECKED)
  1992.     ;
  1993.     GUISetState(@SW_SHOW, $SC12Z)
  1994.     While 1
  1995.         $SC12Zmsg = GUIGetMsg()
  1996.         Select
  1997.             Case $SC12Zmsg = -3
  1998.                 GUIDelete($SC12Z)
  1999.                 ;Exit
  2000.                 ExitLoop
  2001.         EndSelect
  2002.     WEnd
  2003. EndFunc   ;==>_SC12Z
  2004.  
  2005. ; TVR Sagaris
  2006. Func _TVRS()
  2007.     Local $cost, $TVRS, $TVRSmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  2008.  
  2009.     $cost = ("$ 88 200")
  2010.     $acc = ("86")
  2011.     $spd = ("60")
  2012.     $brk = ("62")
  2013.     $maxspd = ("310 км/ч")
  2014.     $100 = ("3.60 сек")
  2015.     $hp = ("380 лс")
  2016.     $perc = ("3%")
  2017.  
  2018.     $TVRS = GUICreate("A2:", 205, 215, -1, -1, -1, 0x00000080)
  2019.     GUISetBkColor(0xffFFFF)
  2020.     GUICtrlCreateButton("TVR Sagaris", 5, 2, 195, 20)
  2021.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  2022.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  2023.  
  2024.     GUICtrlCreateProgress(39, 46, 100, 13)
  2025.     GUICtrlSetData(-1, 5)
  2026.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  2027.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  2028.  
  2029.     GUICtrlCreateProgress(100, 65, 100, 13)
  2030.     GUICtrlSetData(-1, $acc)
  2031.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  2032.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  2033.     GUICtrlCreateProgress(100, 87, 100, 13)
  2034.     GUICtrlSetData(-1, $spd)
  2035.     GUICtrlCreateLabel("Скорость:", 2, 87)
  2036.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  2037.     GUICtrlCreateProgress(100, 109, 100, 13)
  2038.     GUICtrlSetData(-1, $brk)
  2039.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  2040.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  2041.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  2042.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  2043.     GUICtrlCreateLabel("0-100:", 2, 155)
  2044.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  2045.     GUICtrlCreateLabel("Мощность:", 2, 177)
  2046.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  2047.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  2048.     ;
  2049.     GUICtrlCreateCheckbox(" ", 157, 192)
  2050.     GUICtrlSetState(-1, $GUI_CHECKED)
  2051.     GUICtrlCreateCheckbox(" ", 172, 192)
  2052.     GUICtrlSetState(-1, $GUI_CHECKED)
  2053.     GUICtrlCreateCheckbox(" ", 187, 192)
  2054.     GUICtrlSetState(-1, $GUI_CHECKED)
  2055.     ;
  2056.     GUISetState(@SW_SHOW, $TVRS)
  2057.     While 1
  2058.         $TVRSmsg = GUIGetMsg()
  2059.         Select
  2060.             Case $TVRSmsg = -3
  2061.                 GUIDelete($TVRS)
  2062.                 ;Exit
  2063.                 ExitLoop
  2064.         EndSelect
  2065.     WEnd
  2066. EndFunc   ;==>_TVRS
  2067.  
  2068.  
  2069. ; A3
  2070. ; Alfa Romeo 8C Competizione
  2071. Func _AR8CC()
  2072.     Local $cost, $AR8CC, $AR8CCmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  2073.  
  2074.     $cost = ("$ 225 400")
  2075.     $acc = ("76")
  2076.     $spd = ("57")
  2077.     $brk = ("62")
  2078.     $maxspd = ("300 км/ч")
  2079.     $100 = ("4.50 сек")
  2080.     $hp = ("450 лс")
  2081.     $perc = ("3%")
  2082.  
  2083.     $AR8CC = GUICreate("A3:", 205, 215, -1, -1, -1, 0x00000080)
  2084.     GUISetBkColor(0xffFFFF)
  2085.     GUICtrlCreateButton("Alfa Romeo 8C Competizione", 5, 2, 195, 20)
  2086.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  2087.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  2088.  
  2089.     GUICtrlCreateProgress(39, 46, 100, 13)
  2090.     GUICtrlSetData(-1, 5)
  2091.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  2092.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  2093.  
  2094.     GUICtrlCreateProgress(100, 65, 100, 13)
  2095.     GUICtrlSetData(-1, $acc)
  2096.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  2097.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  2098.     GUICtrlCreateProgress(100, 87, 100, 13)
  2099.     GUICtrlSetData(-1, $spd)
  2100.     GUICtrlCreateLabel("Скорость:", 2, 87)
  2101.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  2102.     GUICtrlCreateProgress(100, 109, 100, 13)
  2103.     GUICtrlSetData(-1, $brk)
  2104.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  2105.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  2106.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  2107.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  2108.     GUICtrlCreateLabel("0-100:", 2, 155)
  2109.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  2110.     GUICtrlCreateLabel("Мощность:", 2, 177)
  2111.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  2112.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  2113.     ;
  2114.     GUICtrlCreateCheckbox(" ", 157, 192)
  2115.     GUICtrlSetState(-1, $GUI_CHECKED)
  2116.     GUICtrlCreateCheckbox(" ", 172, 192)
  2117.     GUICtrlSetState(-1, $GUI_CHECKED)
  2118.     GUICtrlCreateCheckbox(" ", 187, 192)
  2119.     GUICtrlSetState(-1, $GUI_CHECKED)
  2120.     ;
  2121.     GUISetState(@SW_SHOW, $AR8CC)
  2122.     While 1
  2123.         $AR8CCmsg = GUIGetMsg()
  2124.         Select
  2125.             Case $AR8CCmsg = -3
  2126.                 GUIDelete($AR8CC)
  2127.                 ;Exit
  2128.                 ExitLoop
  2129.         EndSelect
  2130.     WEnd
  2131. EndFunc   ;==>_AR8CC
  2132.  
  2133. ; Alfa Romeo 8C Spider
  2134. Func _AR8CS()
  2135.     Local $cost, $AR8CS, $AR8CSmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  2136.  
  2137.     $cost = ("$ 259 700")
  2138.     $acc = ("76")
  2139.     $spd = ("57")
  2140.     $brk = ("62")
  2141.     $maxspd = ("300 км/ч")
  2142.     $100 = ("4.50 сек")
  2143.     $hp = ("450 лс")
  2144.     $perc = ("3%")
  2145.  
  2146.     $AR8CS = GUICreate("A3:", 205, 215, -1, -1, -1, 0x00000080)
  2147.     GUISetBkColor(0xffFFFF)
  2148.     GUICtrlCreateButton("Alfa Romeo 8C Spider", 5, 2, 195, 20)
  2149.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  2150.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  2151.  
  2152.     GUICtrlCreateProgress(39, 46, 100, 13)
  2153.     GUICtrlSetData(-1, 5)
  2154.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  2155.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  2156.  
  2157.     GUICtrlCreateProgress(100, 65, 100, 13)
  2158.     GUICtrlSetData(-1, $acc)
  2159.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  2160.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  2161.     GUICtrlCreateProgress(100, 87, 100, 13)
  2162.     GUICtrlSetData(-1, $spd)
  2163.     GUICtrlCreateLabel("Скорость:", 2, 87)
  2164.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  2165.     GUICtrlCreateProgress(100, 109, 100, 13)
  2166.     GUICtrlSetData(-1, $brk)
  2167.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  2168.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  2169.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  2170.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  2171.     GUICtrlCreateLabel("0-100:", 2, 155)
  2172.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  2173.     GUICtrlCreateLabel("Мощность:", 2, 177)
  2174.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  2175.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  2176.     ;
  2177.     GUICtrlCreateCheckbox(" ", 157, 192)
  2178.     GUICtrlSetState(-1, $GUI_CHECKED)
  2179.     GUICtrlCreateCheckbox(" ", 172, 192)
  2180.     GUICtrlSetState(-1, $GUI_CHECKED)
  2181.     GUICtrlCreateCheckbox(" ", 187, 192)
  2182.     GUICtrlSetState(-1, $GUI_CHECKED)
  2183.     ;
  2184.     GUISetState(@SW_SHOW, $AR8CS)
  2185.     While 1
  2186.         $AR8CSmsg = GUIGetMsg()
  2187.         Select
  2188.             Case $AR8CSmsg = -3
  2189.                 GUIDelete($AR8CS)
  2190.                 ;Exit
  2191.                 ExitLoop
  2192.         EndSelect
  2193.     WEnd
  2194. EndFunc   ;==>_AR8CS
  2195.  
  2196. ; Aston Martin DBS Coupe
  2197. Func _AMDBSC()
  2198.     Local $cost, $AMDBSC, $AMDBSCmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  2199.  
  2200.     $cost = ("$ 265 000")
  2201.     $acc = ("78")
  2202.     $spd = ("59")
  2203.     $brk = ("81")
  2204.     $maxspd = ("307 км/ч")
  2205.     $100 = ("4.3 сек")
  2206.     $hp = ("510 лс")
  2207.     $perc = ("3%")
  2208.  
  2209.     $AMDBSC = GUICreate("A3:", 205, 215, -1, -1, -1, 0x00000080)
  2210.     GUISetBkColor(0xffFFFF)
  2211.     GUICtrlCreateButton("Aston Martin DBS", 5, 2, 195, 20)
  2212.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  2213.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  2214.  
  2215.     GUICtrlCreateProgress(39, 46, 100, 13)
  2216.     GUICtrlSetData(-1, 5)
  2217.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  2218.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  2219.  
  2220.     GUICtrlCreateProgress(100, 65, 100, 13)
  2221.     GUICtrlSetData(-1, $acc)
  2222.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  2223.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  2224.     GUICtrlCreateProgress(100, 87, 100, 13)
  2225.     GUICtrlSetData(-1, $spd)
  2226.     GUICtrlCreateLabel("Скорость:", 2, 87)
  2227.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  2228.     GUICtrlCreateProgress(100, 109, 100, 13)
  2229.     GUICtrlSetData(-1, $brk)
  2230.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  2231.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  2232.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  2233.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  2234.     GUICtrlCreateLabel("0-100:", 2, 155)
  2235.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  2236.     GUICtrlCreateLabel("Мощность:", 2, 177)
  2237.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  2238.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  2239.     ;
  2240.     GUICtrlCreateCheckbox(" ", 157, 192)
  2241.     GUICtrlSetState(-1, $GUI_CHECKED)
  2242.     GUICtrlCreateCheckbox(" ", 172, 192)
  2243.     GUICtrlSetState(-1, $GUI_CHECKED)
  2244.     GUICtrlCreateCheckbox(" ", 187, 192)
  2245.     GUICtrlSetState(-1, $GUI_CHECKED)
  2246.     ;
  2247.     GUISetState(@SW_SHOW, $AMDBSC)
  2248.     While 1
  2249.         $AMDBSCmsg = GUIGetMsg()
  2250.         Select
  2251.             Case $AMDBSCmsg = -3
  2252.                 GUIDelete($AMDBSC)
  2253.                 ;Exit
  2254.                 ExitLoop
  2255.         EndSelect
  2256.     WEnd
  2257. EndFunc   ;==>_AMDBSC
  2258.  
  2259. ; Caterham CSR 260
  2260. Func _CCSR260()
  2261.     Local $cost, $CCSR260, $CCSR260msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  2262.  
  2263.     $cost = ("$ 65 660")
  2264.     $acc = ("85")
  2265.     $spd = ("45")
  2266.     $brk = ("72")
  2267.     $maxspd = ("250 км/ч")
  2268.     $100 = ("3.70 сек")
  2269.     $hp = ("260 лс")
  2270.     $perc = ("3%")
  2271.  
  2272.     $CCSR260 = GUICreate("A3:", 205, 215, -1, -1, -1, 0x00000080)
  2273.     GUISetBkColor(0xffFFFF)
  2274.     GUICtrlCreateButton("Caterham CSR 260", 5, 2, 195, 20)
  2275.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  2276.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  2277.  
  2278.     GUICtrlCreateProgress(39, 46, 100, 13)
  2279.     GUICtrlSetData(-1, 5)
  2280.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  2281.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  2282.  
  2283.     GUICtrlCreateProgress(100, 65, 100, 13)
  2284.     GUICtrlSetData(-1, $acc)
  2285.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  2286.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  2287.     GUICtrlCreateProgress(100, 87, 100, 13)
  2288.     GUICtrlSetData(-1, $spd)
  2289.     GUICtrlCreateLabel("Скорость:", 2, 87)
  2290.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  2291.     GUICtrlCreateProgress(100, 109, 100, 13)
  2292.     GUICtrlSetData(-1, $brk)
  2293.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  2294.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  2295.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  2296.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  2297.     GUICtrlCreateLabel("0-100:", 2, 155)
  2298.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  2299.     GUICtrlCreateLabel("Мощность:", 2, 177)
  2300.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  2301.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  2302.     ;
  2303.     GUICtrlCreateCheckbox(" ", 157, 192)
  2304.     GUICtrlSetState(-1, $GUI_CHECKED)
  2305.     GUICtrlCreateCheckbox(" ", 172, 192)
  2306.     GUICtrlCreateCheckbox(" ", 187, 192)
  2307.     GUICtrlSetState(-1, $GUI_CHECKED)
  2308.     ;
  2309.     GUISetState(@SW_SHOW, $CCSR260)
  2310.     While 1
  2311.         $CCSR260msg = GUIGetMsg()
  2312.         Select
  2313.             Case $CCSR260msg = -3
  2314.                 GUIDelete($CCSR260)
  2315.                 ;Exit
  2316.                 ExitLoop
  2317.         EndSelect
  2318.     WEnd
  2319. EndFunc   ;==>_CCSR260
  2320.  
  2321. ; Ferrari 612 Scaglietti
  2322. Func _F612S()
  2323.     Local $cost, $F612S, $F612Smsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  2324.  
  2325.     $cost = ("$ 260 000")
  2326.     $acc = ("78")
  2327.     $spd = ("62")
  2328.     $brk = ("68")
  2329.     $maxspd = ("320 км/ч")
  2330.     $100 = ("4.3 сек")
  2331.     $hp = ("532 лс")
  2332.     $perc = ("3%")
  2333.  
  2334.     $F612S = GUICreate("A3:", 205, 215, -1, -1, -1, 0x00000080)
  2335.     GUISetBkColor(0xffFFFF)
  2336.     GUICtrlCreateButton("Ferrari 612 Scaglietti", 5, 2, 195, 20)
  2337.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  2338.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  2339.  
  2340.     GUICtrlCreateProgress(39, 46, 100, 13)
  2341.     GUICtrlSetData(-1, 5)
  2342.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  2343.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  2344.  
  2345.     GUICtrlCreateProgress(100, 65, 100, 13)
  2346.     GUICtrlSetData(-1, $acc)
  2347.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  2348.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  2349.     GUICtrlCreateProgress(100, 87, 100, 13)
  2350.     GUICtrlSetData(-1, $spd)
  2351.     GUICtrlCreateLabel("Скорость:", 2, 87)
  2352.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  2353.     GUICtrlCreateProgress(100, 109, 100, 13)
  2354.     GUICtrlSetData(-1, $brk)
  2355.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  2356.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  2357.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  2358.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  2359.     GUICtrlCreateLabel("0-100:", 2, 155)
  2360.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  2361.     GUICtrlCreateLabel("Мощность:", 2, 177)
  2362.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  2363.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  2364.     ;
  2365.     GUICtrlCreateCheckbox(" ", 157, 192)
  2366.     GUICtrlCreateCheckbox(" ", 172, 192)
  2367.     GUICtrlSetState(-1, $GUI_CHECKED)
  2368.     GUICtrlCreateCheckbox(" ", 187, 192)
  2369.     ;
  2370.     GUISetState(@SW_SHOW, $F612S)
  2371.     While 1
  2372.         $F612Smsg = GUIGetMsg()
  2373.         Select
  2374.             Case $F612Smsg = -3
  2375.                 GUIDelete($F612S)
  2376.                 ;Exit
  2377.                 ExitLoop
  2378.         EndSelect
  2379.     WEnd
  2380. EndFunc   ;==>_F612S
  2381.  
  2382. ; Ferrari California
  2383. Func _FC()
  2384.     Local $cost, $FC, $FCmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  2385.  
  2386.     $cost = ("$ 190 000")
  2387.     $acc = ("81")
  2388.     $spd = ("60")
  2389.     $brk = ("87")
  2390.     $maxspd = ("310 км/ч")
  2391.     $100 = ("4.10 сек")
  2392.     $hp = ("454 лс")
  2393.     $perc = ("3%")
  2394.  
  2395.     $FC = GUICreate("A3:", 205, 215, -1, -1, -1, 0x00000080)
  2396.     GUISetBkColor(0xffFFFF)
  2397.     GUICtrlCreateButton("Ferrari California", 5, 2, 195, 20)
  2398.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  2399.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  2400.  
  2401.     GUICtrlCreateProgress(39, 46, 100, 13)
  2402.     GUICtrlSetData(-1, 5)
  2403.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  2404.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  2405.  
  2406.     GUICtrlCreateProgress(100, 65, 100, 13)
  2407.     GUICtrlSetData(-1, $acc)
  2408.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  2409.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  2410.     GUICtrlCreateProgress(100, 87, 100, 13)
  2411.     GUICtrlSetData(-1, $spd)
  2412.     GUICtrlCreateLabel("Скорость:", 2, 87)
  2413.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  2414.     GUICtrlCreateProgress(100, 109, 100, 13)
  2415.     GUICtrlSetData(-1, $brk)
  2416.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  2417.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  2418.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  2419.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  2420.     GUICtrlCreateLabel("0-100:", 2, 155)
  2421.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  2422.     GUICtrlCreateLabel("Мощность:", 2, 177)
  2423.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  2424.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  2425.     ;
  2426.     GUICtrlCreateCheckbox(" ", 157, 192)
  2427.     GUICtrlCreateCheckbox(" ", 172, 192)
  2428.     GUICtrlSetState(-1, $GUI_CHECKED)
  2429.     GUICtrlCreateCheckbox(" ", 187, 192)
  2430.     ;
  2431.     GUISetState(@SW_SHOW, $FC)
  2432.     While 1
  2433.         $FCmsg = GUIGetMsg()
  2434.         Select
  2435.             Case $FCmsg = -3
  2436.                 GUIDelete($FC)
  2437.                 ;Exit
  2438.                 ExitLoop
  2439.         EndSelect
  2440.     WEnd
  2441. EndFunc   ;==>_FC
  2442.  
  2443. ; Mercedes-Benz CLK 63 AMG Black Series
  2444. Func _MBCLK63AMGBS()
  2445.     Local $cost, $MBCLK63AMGBS, $MBCLK63AMGBSmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  2446.  
  2447.     $cost = ("$ -")
  2448.     $acc = ("93")
  2449.     $spd = ("45")
  2450.     $brk = ("87")
  2451.     $maxspd = ("354 км/ч")
  2452.     $100 = ("2.90 сек")
  2453.     $hp = ("300 лс")
  2454.     $perc = ("3%")
  2455.  
  2456.     $MBCLK63AMGBS = GUICreate("A3:", 205, 215, -1, -1, -1, 0x00000080)
  2457.     GUISetBkColor(0xffFFFF)
  2458.     GUICtrlCreateButton("ercedes-Benz CLK 63 AMG Black Series", 5, 2, 195, 20)
  2459.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  2460.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  2461.  
  2462.     GUICtrlCreateProgress(39, 46, 100, 13)
  2463.     GUICtrlSetData(-1, 5)
  2464.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  2465.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  2466.  
  2467.     GUICtrlCreateProgress(100, 65, 100, 13)
  2468.     GUICtrlSetData(-1, $acc)
  2469.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  2470.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  2471.     GUICtrlCreateProgress(100, 87, 100, 13)
  2472.     GUICtrlSetData(-1, $spd)
  2473.     GUICtrlCreateLabel("Скорость:", 2, 87)
  2474.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  2475.     GUICtrlCreateProgress(100, 109, 100, 13)
  2476.     GUICtrlSetData(-1, $brk)
  2477.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  2478.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  2479.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  2480.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  2481.     GUICtrlCreateLabel("0-100:", 2, 155)
  2482.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  2483.     GUICtrlCreateLabel("Мощность:", 2, 177)
  2484.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  2485.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  2486.     ;
  2487.     GUICtrlCreateCheckbox(" ", 157, 192)
  2488.     GUICtrlSetState(-1, $GUI_CHECKED)
  2489.     GUICtrlCreateCheckbox(" ", 172, 192)
  2490.     GUICtrlCreateCheckbox(" ", 187, 192)
  2491.     GUICtrlSetState(-1, $GUI_CHECKED)
  2492.     ;
  2493.     GUISetState(@SW_SHOW, $MBCLK63AMGBS)
  2494.     While 1
  2495.         $MBCLK63AMGBSmsg = GUIGetMsg()
  2496.         Select
  2497.             Case $MBCLK63AMGBSmsg = -3
  2498.                 GUIDelete($MBCLK63AMGBS)
  2499.                 ;Exit
  2500.                 ExitLoop
  2501.         EndSelect
  2502.     WEnd
  2503. EndFunc   ;==>_MBCLK63AMGBS
  2504.  
  2505. ; RUF RK Spyder
  2506. Func _RRKS()
  2507.     Local $cost, $RRKS, $RRKSmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  2508.  
  2509.     $cost = ("$ 226 380")
  2510.     $acc = ("77")
  2511.     $spd = ("53")
  2512.     $brk = ("75")
  2513.     $maxspd = ("285 км/ч")
  2514.     $100 = ("4.40 сек")
  2515.     $hp = ("420 лс")
  2516.     $perc = ("3%")
  2517.  
  2518.     $RRKS = GUICreate("A3:", 205, 215, -1, -1, -1, 0x00000080)
  2519.     GUISetBkColor(0xffFFFF)
  2520.     GUICtrlCreateButton("RUF RK Spyder", 5, 2, 195, 20)
  2521.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  2522.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  2523.  
  2524.     GUICtrlCreateProgress(39, 46, 100, 13)
  2525.     GUICtrlSetData(-1, 5)
  2526.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  2527.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  2528.  
  2529.     GUICtrlCreateProgress(100, 65, 100, 13)
  2530.     GUICtrlSetData(-1, $acc)
  2531.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  2532.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  2533.     GUICtrlCreateProgress(100, 87, 100, 13)
  2534.     GUICtrlSetData(-1, $spd)
  2535.     GUICtrlCreateLabel("Скорость:", 2, 87)
  2536.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  2537.     GUICtrlCreateProgress(100, 109, 100, 13)
  2538.     GUICtrlSetData(-1, $brk)
  2539.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  2540.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  2541.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  2542.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  2543.     GUICtrlCreateLabel("0-100:", 2, 155)
  2544.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  2545.     GUICtrlCreateLabel("Мощность:", 2, 177)
  2546.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  2547.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  2548.     ;
  2549.     GUICtrlCreateCheckbox(" ", 157, 192)
  2550.     GUICtrlSetState(-1, $GUI_CHECKED)
  2551.     GUICtrlCreateCheckbox(" ", 172, 192)
  2552.     GUICtrlSetState(-1, $GUI_CHECKED)
  2553.     GUICtrlCreateCheckbox(" ", 187, 192)
  2554.     GUICtrlSetState(-1, $GUI_CHECKED)
  2555.     ;
  2556.     GUISetState(@SW_SHOW, $RRKS)
  2557.     While 1
  2558.         $RRKSmsg = GUIGetMsg()
  2559.         Select
  2560.             Case $RRKSmsg = -3
  2561.                 GUIDelete($RRKS)
  2562.                 ;Exit
  2563.                 ExitLoop
  2564.         EndSelect
  2565.     WEnd
  2566. EndFunc   ;==>_RRKS
  2567.  
  2568. ; Spyker C8 Aileron
  2569. Func _SC8A()
  2570.     Local $cost, $SC8A, $SC8Amsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  2571.  
  2572.     $cost = ("$ 63 700")
  2573.     $acc = ("93")
  2574.     $spd = ("45")
  2575.     $brk = ("87")
  2576.     $maxspd = ("354 км/ч")
  2577.     $100 = ("2.90 сек")
  2578.     $hp = ("300 лс")
  2579.     $perc = ("3%")
  2580.  
  2581.     $SC8A = GUICreate("A3:", 205, 215, -1, -1, -1, 0x00000080)
  2582.     GUISetBkColor(0xffFFFF)
  2583.     GUICtrlCreateButton("Spyker C8 Aileron", 5, 2, 195, 20)
  2584.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  2585.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  2586.  
  2587.     GUICtrlCreateProgress(39, 46, 100, 13)
  2588.     GUICtrlSetData(-1, 5)
  2589.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  2590.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  2591.  
  2592.     GUICtrlCreateProgress(100, 65, 100, 13)
  2593.     GUICtrlSetData(-1, $acc)
  2594.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  2595.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  2596.     GUICtrlCreateProgress(100, 87, 100, 13)
  2597.     GUICtrlSetData(-1, $spd)
  2598.     GUICtrlCreateLabel("Скорость:", 2, 87)
  2599.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  2600.     GUICtrlCreateProgress(100, 109, 100, 13)
  2601.     GUICtrlSetData(-1, $brk)
  2602.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  2603.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  2604.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  2605.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  2606.     GUICtrlCreateLabel("0-100:", 2, 155)
  2607.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  2608.     GUICtrlCreateLabel("Мощность:", 2, 177)
  2609.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  2610.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  2611.     ;
  2612.     GUICtrlCreateCheckbox(" ", 157, 192)
  2613.     GUICtrlSetState(-1, $GUI_CHECKED)
  2614.     GUICtrlCreateCheckbox(" ", 172, 192)
  2615.     GUICtrlCreateCheckbox(" ", 187, 192)
  2616.     GUICtrlSetState(-1, $GUI_CHECKED)
  2617.     ;
  2618.     GUISetState(@SW_SHOW, $SC8A)
  2619.     While 1
  2620.         $SC8Amsg = GUIGetMsg()
  2621.         Select
  2622.             Case $SC8Amsg = -3
  2623.                 GUIDelete($SC8A)
  2624.                 ;Exit
  2625.                 ExitLoop
  2626.         EndSelect
  2627.     WEnd
  2628. EndFunc   ;==>_SC8A
  2629.  
  2630. ;A4
  2631. ; Aston Martin DB9 Coupe
  2632. Func _AMDB9C()
  2633.     Local $cost, $AMDB9C, $AMDB9Cmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  2634.  
  2635.     $cost = ("$ 166 335")
  2636.     $acc = ("73")
  2637.     $spd = ("59")
  2638.     $brk = ("75")
  2639.     $maxspd = ("306 км/ч")
  2640.     $100 = ("4.8 сек")
  2641.     $hp = ("470 лс")
  2642.     $perc = ("3%")
  2643.  
  2644.     $AMDB9C = GUICreate("A4:", 205, 215, -1, -1, -1, 0x00000080)
  2645.     GUISetBkColor(0xffFFFF)
  2646.     GUICtrlCreateButton("Aston Martin DB9 Coupe", 5, 2, 195, 20)
  2647.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  2648.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  2649.  
  2650.     GUICtrlCreateProgress(39, 46, 100, 13)
  2651.     GUICtrlSetData(-1, 5)
  2652.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  2653.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  2654.  
  2655.     GUICtrlCreateProgress(100, 65, 100, 13)
  2656.     GUICtrlSetData(-1, $acc)
  2657.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  2658.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  2659.     GUICtrlCreateProgress(100, 87, 100, 13)
  2660.     GUICtrlSetData(-1, $spd)
  2661.     GUICtrlCreateLabel("Скорость:", 2, 87)
  2662.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  2663.     GUICtrlCreateProgress(100, 109, 100, 13)
  2664.     GUICtrlSetData(-1, $brk)
  2665.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  2666.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  2667.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  2668.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  2669.     GUICtrlCreateLabel("0-100:", 2, 155)
  2670.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  2671.     GUICtrlCreateLabel("Мощность:", 2, 177)
  2672.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  2673.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  2674.     ;
  2675.     GUICtrlCreateCheckbox(" ", 157, 192)
  2676.     GUICtrlSetState(-1, $GUI_CHECKED)
  2677.     GUICtrlCreateCheckbox(" ", 172, 192)
  2678.     GUICtrlSetState(-1, $GUI_CHECKED)
  2679.     GUICtrlCreateCheckbox(" ", 187, 192)
  2680.     GUICtrlSetState(-1, $GUI_CHECKED)
  2681.     ;
  2682.     GUISetState(@SW_SHOW, $AMDB9C)
  2683.     While 1
  2684.         $AMDB9Cmsg = GUIGetMsg()
  2685.         Select
  2686.             Case $AMDB9Cmsg = -3
  2687.                 GUIDelete($AMDB9C)
  2688.                 ;Exit
  2689.                 ExitLoop
  2690.         EndSelect
  2691.     WEnd
  2692. EndFunc   ;==>_AMDB9C
  2693.  
  2694. ; Aston Martin DB9 Volante
  2695. Func _AMDB9V()
  2696.     Local $cost, $AMDB9V, $AMDB9Vmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  2697.  
  2698.     $cost = ("$ 183 000")
  2699.     $acc = ("73")
  2700.     $spd = ("59")
  2701.     $brk = ("81")
  2702.     $maxspd = ("306 км/ч")
  2703.     $100 = ("4.80 сек")
  2704.     $hp = ("470 лс")
  2705.     $perc = ("3%")
  2706.  
  2707.     $AMDB9V = GUICreate("A4:", 205, 215, -1, -1, -1, 0x00000080)
  2708.     GUISetBkColor(0xffFFFF)
  2709.     GUICtrlCreateButton("Aston Martin DB9 Volante", 5, 2, 195, 20)
  2710.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  2711.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  2712.  
  2713.     GUICtrlCreateProgress(39, 46, 100, 13)
  2714.     GUICtrlSetData(-1, 5)
  2715.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  2716.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  2717.  
  2718.     GUICtrlCreateProgress(100, 65, 100, 13)
  2719.     GUICtrlSetData(-1, $acc)
  2720.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  2721.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  2722.     GUICtrlCreateProgress(100, 87, 100, 13)
  2723.     GUICtrlSetData(-1, $spd)
  2724.     GUICtrlCreateLabel("Скорость:", 2, 87)
  2725.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  2726.     GUICtrlCreateProgress(100, 109, 100, 13)
  2727.     GUICtrlSetData(-1, $brk)
  2728.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  2729.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  2730.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  2731.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  2732.     GUICtrlCreateLabel("0-100:", 2, 155)
  2733.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  2734.     GUICtrlCreateLabel("Мощность:", 2, 177)
  2735.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  2736.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  2737.     ;
  2738.     GUICtrlCreateCheckbox(" ", 157, 192)
  2739.     GUICtrlSetState(-1, $GUI_CHECKED)
  2740.     GUICtrlCreateCheckbox(" ", 172, 192)
  2741.     GUICtrlSetState(-1, $GUI_CHECKED)
  2742.     GUICtrlCreateCheckbox(" ", 187, 192)
  2743.     GUICtrlSetState(-1, $GUI_CHECKED)
  2744.     ;
  2745.     GUISetState(@SW_SHOW, $AMDB9V)
  2746.     While 1
  2747.         $AMDB9Vmsg = GUIGetMsg()
  2748.         Select
  2749.             Case $AMDB9Vmsg = -3
  2750.                 GUIDelete($AMDB9V)
  2751.                 ;Exit
  2752.                 ExitLoop
  2753.         EndSelect
  2754.     WEnd
  2755. EndFunc   ;==>_AMDB9V
  2756.  
  2757. ; Aston Martin V8 Vantage
  2758. Func _AMV8V()
  2759.     Local $cost, $AMV8V, $AMV8Vmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  2760.  
  2761.     $cost = ("$ 63 700")
  2762.     $acc = ("93")
  2763.     $spd = ("45")
  2764.     $brk = ("87")
  2765.     $maxspd = ("354 км/ч")
  2766.     $100 = ("2.90 сек")
  2767.     $hp = ("300 лс")
  2768.     $perc = ("3%")
  2769.  
  2770.     $AMV8V = GUICreate("A4:", 205, 215, -1, -1, -1, 0x00000080)
  2771.     GUISetBkColor(0xffFFFF)
  2772.     GUICtrlCreateButton("Aston Martin V8 Vantage", 5, 2, 195, 20)
  2773.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  2774.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  2775.  
  2776.     GUICtrlCreateProgress(39, 46, 100, 13)
  2777.     GUICtrlSetData(-1, 5)
  2778.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  2779.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  2780.  
  2781.     GUICtrlCreateProgress(100, 65, 100, 13)
  2782.     GUICtrlSetData(-1, $acc)
  2783.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  2784.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  2785.     GUICtrlCreateProgress(100, 87, 100, 13)
  2786.     GUICtrlSetData(-1, $spd)
  2787.     GUICtrlCreateLabel("Скорость:", 2, 87)
  2788.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  2789.     GUICtrlCreateProgress(100, 109, 100, 13)
  2790.     GUICtrlSetData(-1, $brk)
  2791.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  2792.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  2793.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  2794.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  2795.     GUICtrlCreateLabel("0-100:", 2, 155)
  2796.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  2797.     GUICtrlCreateLabel("Мощность:", 2, 177)
  2798.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  2799.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  2800.     ;
  2801.     GUICtrlCreateCheckbox(" ", 157, 192)
  2802.     GUICtrlSetState(-1, $GUI_CHECKED)
  2803.     GUICtrlCreateCheckbox(" ", 172, 192)
  2804.     GUICtrlCreateCheckbox(" ", 187, 192)
  2805.     GUICtrlSetState(-1, $GUI_CHECKED)
  2806.     ;
  2807.     GUISetState(@SW_SHOW, $AMV8V)
  2808.     While 1
  2809.         $AMV8Vmsg = GUIGetMsg()
  2810.         Select
  2811.             Case $AMV8Vmsg = -3
  2812.                 GUIDelete($AMV8V)
  2813.                 ;Exit
  2814.                 ExitLoop
  2815.         EndSelect
  2816.     WEnd
  2817. EndFunc   ;==>_AMV8V
  2818.  
  2819. ; Audi RS6 Avant
  2820. Func _ARS6A()
  2821.     Local $cost, $ARS6A, $ARS6Amsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  2822.  
  2823.     $cost = ("$ 152 880")
  2824.     $acc = ("75")
  2825.     $spd = ("45")
  2826.     $brk = ("62")
  2827.     $maxspd = ("250 км/ч")
  2828.     $100 = ("4.60 сек")
  2829.     $hp = ("572 лс")
  2830.     $perc = ("84%")
  2831.  
  2832.     $ARS6A = GUICreate("A4:", 205, 215, -1, -1, -1, 0x00000080)
  2833.     GUISetBkColor(0xffFFFF)
  2834.     GUICtrlCreateButton("Audi RS6 Avant", 5, 2, 195, 20)
  2835.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  2836.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  2837.  
  2838.     GUICtrlCreateProgress(39, 46, 100, 13)
  2839.     GUICtrlSetData(-1, 85)
  2840.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  2841.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  2842.  
  2843.     GUICtrlCreateProgress(100, 65, 100, 13)
  2844.     GUICtrlSetData(-1, $acc)
  2845.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  2846.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  2847.     GUICtrlCreateProgress(100, 87, 100, 13)
  2848.     GUICtrlSetData(-1, $spd)
  2849.     GUICtrlCreateLabel("Скорость:", 2, 87)
  2850.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  2851.     GUICtrlCreateProgress(100, 109, 100, 13)
  2852.     GUICtrlSetData(-1, $brk)
  2853.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  2854.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  2855.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  2856.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  2857.     GUICtrlCreateLabel("0-100:", 2, 155)
  2858.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  2859.     GUICtrlCreateLabel("Мощность:", 2, 177)
  2860.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  2861.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  2862.     ;
  2863.     GUICtrlCreateCheckbox(" ", 157, 192)
  2864.     GUICtrlSetState(-1, $GUI_CHECKED)
  2865.     GUICtrlCreateCheckbox(" ", 172, 192)
  2866.     GUICtrlCreateCheckbox(" ", 187, 192)
  2867.     GUICtrlSetState(-1, $GUI_CHECKED)
  2868.     ;
  2869.     GUISetState(@SW_SHOW, $ARS6A)
  2870.     While 1
  2871.         $ARS6Amsg = GUIGetMsg()
  2872.         Select
  2873.             Case $ARS6Amsg = -3
  2874.                 GUIDelete($ARS6A)
  2875.                 ;Exit
  2876.                 ExitLoop
  2877.         EndSelect
  2878.     WEnd
  2879. EndFunc   ;==>_ARS6A
  2880.  
  2881. ; Chevrolet Camaro 2SS
  2882. Func _CC2SS()
  2883.     Local $cost, $CC2SS, $CC2SSmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  2884.  
  2885.     $cost = ("$ 34 300")
  2886.     $acc = ("71")
  2887.     $spd = ("52")
  2888.     $brk = ("68")
  2889.     $maxspd = ("280 км/ч")
  2890.     $100 = ("5.00 сек")
  2891.     $hp = ("426 лс")
  2892.     $perc = ("3%")
  2893.  
  2894.     $CC2SS = GUICreate("A4:", 205, 215, -1, -1, -1, 0x00000080)
  2895.     GUISetBkColor(0xffFFFF)
  2896.     GUICtrlCreateButton("Chevrolet Camaro 2SS", 5, 2, 195, 20)
  2897.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  2898.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  2899.  
  2900.     GUICtrlCreateProgress(39, 46, 100, 13)
  2901.     GUICtrlSetData(-1, 5)
  2902.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  2903.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  2904.  
  2905.     GUICtrlCreateProgress(100, 65, 100, 13)
  2906.     GUICtrlSetData(-1, $acc)
  2907.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  2908.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  2909.     GUICtrlCreateProgress(100, 87, 100, 13)
  2910.     GUICtrlSetData(-1, $spd)
  2911.     GUICtrlCreateLabel("Скорость:", 2, 87)
  2912.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  2913.     GUICtrlCreateProgress(100, 109, 100, 13)
  2914.     GUICtrlSetData(-1, $brk)
  2915.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  2916.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  2917.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  2918.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  2919.     GUICtrlCreateLabel("0-100:", 2, 155)
  2920.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  2921.     GUICtrlCreateLabel("Мощность:", 2, 177)
  2922.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  2923.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  2924.     ;
  2925.     GUICtrlCreateCheckbox(" ", 157, 192)
  2926.     GUICtrlSetState(-1, $GUI_CHECKED)
  2927.     GUICtrlCreateCheckbox(" ", 172, 192)
  2928.     GUICtrlSetState(-1, $GUI_CHECKED)
  2929.     GUICtrlCreateCheckbox(" ", 187, 192)
  2930.     GUICtrlSetState(-1, $GUI_CHECKED)
  2931.     ;
  2932.     GUISetState(@SW_SHOW, $CC2SS)
  2933.     While 1
  2934.         $CC2SSmsg = GUIGetMsg()
  2935.         Select
  2936.             Case $CC2SSmsg = -3
  2937.                 GUIDelete($CC2SS)
  2938.                 ;Exit
  2939.                 ExitLoop
  2940.         EndSelect
  2941.     WEnd
  2942. EndFunc   ;==>_CC2SS
  2943.  
  2944. ; Jaguar XKR
  2945. Func _JXKR()
  2946.     Local $cost, $JXKR, $JXKRmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  2947.  
  2948.     $cost = ("$ 96 125")
  2949.     $acc = ("73")
  2950.     $spd = ("45")
  2951.     $brk = ("75")
  2952.     $maxspd = ("250 км/ч")
  2953.     $100 = ("4.80 сек")
  2954.     $hp = ("503 лс")
  2955.     $perc = ("3%")
  2956.  
  2957.     $JXKR = GUICreate("A4:", 205, 215, -1, -1, -1, 0x00000080)
  2958.     GUISetBkColor(0xffFFFF)
  2959.     GUICtrlCreateButton("Jaguar XKR", 5, 2, 195, 20)
  2960.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  2961.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  2962.  
  2963.     GUICtrlCreateProgress(39, 46, 100, 13)
  2964.     GUICtrlSetData(-1, 5)
  2965.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  2966.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  2967.  
  2968.     GUICtrlCreateProgress(100, 65, 100, 13)
  2969.     GUICtrlSetData(-1, $acc)
  2970.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  2971.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  2972.     GUICtrlCreateProgress(100, 87, 100, 13)
  2973.     GUICtrlSetData(-1, $spd)
  2974.     GUICtrlCreateLabel("Скорость:", 2, 87)
  2975.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  2976.     GUICtrlCreateProgress(100, 109, 100, 13)
  2977.     GUICtrlSetData(-1, $brk)
  2978.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  2979.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  2980.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  2981.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  2982.     GUICtrlCreateLabel("0-100:", 2, 155)
  2983.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  2984.     GUICtrlCreateLabel("Мощность:", 2, 177)
  2985.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  2986.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  2987.     ;
  2988.     GUICtrlCreateCheckbox(" ", 157, 192)
  2989.     GUICtrlSetState(-1, $GUI_CHECKED)
  2990.     GUICtrlCreateCheckbox(" ", 172, 192)
  2991.     GUICtrlSetState(-1, $GUI_CHECKED)
  2992.     GUICtrlCreateCheckbox(" ", 187, 192)
  2993.     GUICtrlSetState(-1, $GUI_CHECKED)
  2994.     ;
  2995.     GUISetState(@SW_SHOW, $JXKR)
  2996.     While 1
  2997.         $JXKRmsg = GUIGetMsg()
  2998.         Select
  2999.             Case $JXKRmsg = -3
  3000.                 GUIDelete($JXKR)
  3001.                 ;Exit
  3002.                 ExitLoop
  3003.         EndSelect
  3004.     WEnd
  3005. EndFunc   ;==>_JXKR
  3006.  
  3007.  
  3008. ;A5
  3009. ; Audi S5 Coupe
  3010. Func _AS5C()
  3011.     Local $cost, $AS5C, $AS5Cmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  3012.  
  3013.     $cost = ("$ 51 940")
  3014.     $acc = ("70")
  3015.     $spd = ("45")
  3016.     $brk = ("56")
  3017.     $maxspd = ("250 км/ч")
  3018.     $100 = ("5.10 сек")
  3019.     $hp = ("354 лс")
  3020.     $perc = ("3%")
  3021.  
  3022.     $AS5C = GUICreate("A5:", 205, 215, -1, -1, -1, 0x00000080)
  3023.     GUISetBkColor(0xffFFFF)
  3024.     GUICtrlCreateButton("Audi S5 Coupe", 5, 2, 195, 20)
  3025.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  3026.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  3027.  
  3028.     GUICtrlCreateProgress(39, 46, 100, 13)
  3029.     GUICtrlSetData(-1, 5)
  3030.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  3031.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  3032.  
  3033.     GUICtrlCreateProgress(100, 65, 100, 13)
  3034.     GUICtrlSetData(-1, $acc)
  3035.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  3036.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  3037.     GUICtrlCreateProgress(100, 87, 100, 13)
  3038.     GUICtrlSetData(-1, $spd)
  3039.     GUICtrlCreateLabel("Скорость:", 2, 87)
  3040.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  3041.     GUICtrlCreateProgress(100, 109, 100, 13)
  3042.     GUICtrlSetData(-1, $brk)
  3043.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  3044.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  3045.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  3046.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  3047.     GUICtrlCreateLabel("0-100:", 2, 155)
  3048.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  3049.     GUICtrlCreateLabel("Мощность:", 2, 177)
  3050.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  3051.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  3052.     ;
  3053.     GUICtrlCreateCheckbox(" ", 157, 192)
  3054.     GUICtrlSetState(-1, $GUI_CHECKED)
  3055.     GUICtrlCreateCheckbox(" ", 172, 192)
  3056.     GUICtrlSetState(-1, $GUI_CHECKED)
  3057.     GUICtrlCreateCheckbox(" ", 187, 192)
  3058.     GUICtrlSetState(-1, $GUI_CHECKED)
  3059.     ;
  3060.     GUISetState(@SW_SHOW, $AS5C)
  3061.     While 1
  3062.         $AS5Cmsg = GUIGetMsg()
  3063.         Select
  3064.             Case $AS5Cmsg = -3
  3065.                 GUIDelete($AS5C)
  3066.                 ;Exit
  3067.                 ExitLoop
  3068.         EndSelect
  3069.     WEnd
  3070. EndFunc   ;==>_AS5C
  3071.  
  3072. ; Audi TT-RS Roadster
  3073. Func _ATTRSR()
  3074.     Local $cost, $ATTRSR, $ATTRSRmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  3075.  
  3076.     $cost = ("$ 78 400")
  3077.     $acc = ("74")
  3078.     $spd = ("45")
  3079.     $brk = ("63")
  3080.     $maxspd = ("250 км/ч")
  3081.     $100 = ("4.70 сек")
  3082.     $hp = ("340 лс")
  3083.     $perc = ("3%")
  3084.  
  3085.     $ATTRSR = GUICreate("A5:", 205, 215, -1, -1, -1, 0x00000080)
  3086.     GUISetBkColor(0xffFFFF)
  3087.     GUICtrlCreateButton("Audi TT-RS Roadster", 5, 2, 195, 20)
  3088.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  3089.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  3090.  
  3091.     GUICtrlCreateProgress(39, 46, 100, 13)
  3092.     GUICtrlSetData(-1, 5)
  3093.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  3094.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  3095.  
  3096.     GUICtrlCreateProgress(100, 65, 100, 13)
  3097.     GUICtrlSetData(-1, $acc)
  3098.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  3099.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  3100.     GUICtrlCreateProgress(100, 87, 100, 13)
  3101.     GUICtrlSetData(-1, $spd)
  3102.     GUICtrlCreateLabel("Скорость:", 2, 87)
  3103.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  3104.     GUICtrlCreateProgress(100, 109, 100, 13)
  3105.     GUICtrlSetData(-1, $brk)
  3106.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  3107.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  3108.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  3109.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  3110.     GUICtrlCreateLabel("0-100:", 2, 155)
  3111.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  3112.     GUICtrlCreateLabel("Мощность:", 2, 177)
  3113.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  3114.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  3115.     ;
  3116.     GUICtrlCreateCheckbox(" ", 157, 192)
  3117.     GUICtrlSetState(-1, $GUI_CHECKED)
  3118.     GUICtrlCreateCheckbox(" ", 172, 192)
  3119.     GUICtrlCreateCheckbox(" ", 187, 192)
  3120.     GUICtrlSetState(-1, $GUI_CHECKED)
  3121.     ;
  3122.     GUISetState(@SW_SHOW, $ATTRSR)
  3123.     While 1
  3124.         $ATTRSRmsg = GUIGetMsg()
  3125.         Select
  3126.             Case $ATTRSRmsg = -3
  3127.                 GUIDelete($ATTRSR)
  3128.                 ;Exit
  3129.                 ExitLoop
  3130.         EndSelect
  3131.     WEnd
  3132. EndFunc   ;==>_ATTRSR
  3133.  
  3134. ; Dodge Charger SRT8
  3135. Func _DCSRT8()
  3136.     Local $cost, $DCSRT8, $DCSRT8msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  3137.  
  3138.     $cost = ("$ 39 818")
  3139.     $acc = ("72")
  3140.     $spd = ("48")
  3141.     $brk = ("60")
  3142.     $maxspd = ("265 км/ч")
  3143.     $100 = ("4.90 сек")
  3144.     $hp = ("425 лс")
  3145.     $perc = ("3%")
  3146.  
  3147.     $DCSRT8 = GUICreate("A5:", 205, 215, -1, -1, -1, 0x00000080)
  3148.     GUISetBkColor(0xffFFFF)
  3149.     GUICtrlCreateButton("Dodge Charger SRT8", 5, 2, 195, 20)
  3150.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  3151.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  3152.  
  3153.     GUICtrlCreateProgress(39, 46, 100, 13)
  3154.     GUICtrlSetData(-1, 5)
  3155.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  3156.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  3157.  
  3158.     GUICtrlCreateProgress(100, 65, 100, 13)
  3159.     GUICtrlSetData(-1, $acc)
  3160.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  3161.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  3162.     GUICtrlCreateProgress(100, 87, 100, 13)
  3163.     GUICtrlSetData(-1, $spd)
  3164.     GUICtrlCreateLabel("Скорость:", 2, 87)
  3165.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  3166.     GUICtrlCreateProgress(100, 109, 100, 13)
  3167.     GUICtrlSetData(-1, $brk)
  3168.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  3169.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  3170.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  3171.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  3172.     GUICtrlCreateLabel("0-100:", 2, 155)
  3173.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  3174.     GUICtrlCreateLabel("Мощность:", 2, 177)
  3175.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  3176.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  3177.     ;
  3178.     GUICtrlCreateCheckbox(" ", 157, 192)
  3179.     GUICtrlSetState(-1, $GUI_CHECKED)
  3180.     GUICtrlCreateCheckbox(" ", 172, 192)
  3181.     GUICtrlSetState(-1, $GUI_CHECKED)
  3182.     GUICtrlCreateCheckbox(" ", 187, 192)
  3183.     GUICtrlSetState(-1, $GUI_CHECKED)
  3184.     ;
  3185.     GUISetState(@SW_SHOW, $DCSRT8)
  3186.     While 1
  3187.         $DCSRT8msg = GUIGetMsg()
  3188.         Select
  3189.             Case $DCSRT8msg = -3
  3190.                 GUIDelete($DCSRT8)
  3191.                 ;Exit
  3192.                 ExitLoop
  3193.         EndSelect
  3194.     WEnd
  3195. EndFunc   ;==>_DCSRT8
  3196.  
  3197. ; Ford Mustang GT
  3198. Func _FMGT()
  3199.     Local $cost, $FMGT, $FMGTmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  3200.  
  3201.     $cost = ("$ 29 053")
  3202.     $acc = ("69")
  3203.     $spd = ("45")
  3204.     $brk = ("50")
  3205.     $maxspd = ("250 км/ч")
  3206.     $100 = ("5.20 сек")
  3207.     $hp = ("315 лс")
  3208.     $perc = ("3%")
  3209.  
  3210.     $FMGT = GUICreate("A5:", 205, 215, -1, -1, -1, 0x00000080)
  3211.     GUISetBkColor(0xffFFFF)
  3212.     GUICtrlCreateButton("Ford Mustang GT", 5, 2, 195, 20)
  3213.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  3214.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  3215.  
  3216.     GUICtrlCreateProgress(39, 46, 100, 13)
  3217.     GUICtrlSetData(-1, 5)
  3218.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  3219.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  3220.  
  3221.     GUICtrlCreateProgress(100, 65, 100, 13)
  3222.     GUICtrlSetData(-1, $acc)
  3223.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  3224.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  3225.     GUICtrlCreateProgress(100, 87, 100, 13)
  3226.     GUICtrlSetData(-1, $spd)
  3227.     GUICtrlCreateLabel("Скорость:", 2, 87)
  3228.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  3229.     GUICtrlCreateProgress(100, 109, 100, 13)
  3230.     GUICtrlSetData(-1, $brk)
  3231.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  3232.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  3233.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  3234.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  3235.     GUICtrlCreateLabel("0-100:", 2, 155)
  3236.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  3237.     GUICtrlCreateLabel("Мощность:", 2, 177)
  3238.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  3239.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  3240.     ;
  3241.     GUICtrlCreateCheckbox(" ", 157, 192)
  3242.     GUICtrlSetState(-1, $GUI_CHECKED)
  3243.     GUICtrlCreateCheckbox(" ", 172, 192)
  3244.     GUICtrlSetState(-1, $GUI_CHECKED)
  3245.     GUICtrlCreateCheckbox(" ", 187, 192)
  3246.     GUICtrlSetState(-1, $GUI_CHECKED)
  3247.     ;
  3248.     GUISetState(@SW_SHOW, $FMGT)
  3249.     While 1
  3250.         $FMGTmsg = GUIGetMsg()
  3251.         Select
  3252.             Case $FMGTmsg = -3
  3253.                 GUIDelete($FMGT)
  3254.                 ;Exit
  3255.                 ExitLoop
  3256.         EndSelect
  3257.     WEnd
  3258. EndFunc   ;==>_FMGT
  3259.  
  3260. ; Lotus Evora
  3261. Func _LE()
  3262.     Local $cost, $LE, $LEmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  3263.  
  3264.     $cost = ("$ 82 000")
  3265.     $acc = ("70")
  3266.     $spd = ("47")
  3267.     $brk = ("81")
  3268.     $maxspd = ("354 км/ч")
  3269.     $100 = ("2.90 сек")
  3270.     $hp = ("300 лс")
  3271.     $perc = ("3%")
  3272.  
  3273.     $LE = GUICreate("A5:", 205, 215, -1, -1, -1, 0x00000080)
  3274.     GUISetBkColor(0xffFFFF)
  3275.     GUICtrlCreateButton("Lotus Evora", 5, 2, 195, 20)
  3276.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  3277.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  3278.  
  3279.     GUICtrlCreateProgress(39, 46, 100, 13)
  3280.     GUICtrlSetData(-1, 5)
  3281.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  3282.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  3283.  
  3284.     GUICtrlCreateProgress(100, 65, 100, 13)
  3285.     GUICtrlSetData(-1, $acc)
  3286.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  3287.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  3288.     GUICtrlCreateProgress(100, 87, 100, 13)
  3289.     GUICtrlSetData(-1, $spd)
  3290.     GUICtrlCreateLabel("Скорость:", 2, 87)
  3291.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  3292.     GUICtrlCreateProgress(100, 109, 100, 13)
  3293.     GUICtrlSetData(-1, $brk)
  3294.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  3295.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  3296.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  3297.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  3298.     GUICtrlCreateLabel("0-100:", 2, 155)
  3299.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  3300.     GUICtrlCreateLabel("Мощность:", 2, 177)
  3301.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  3302.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  3303.     ;
  3304.     GUICtrlCreateCheckbox(" ", 157, 192)
  3305.     GUICtrlSetState(-1, $GUI_CHECKED)
  3306.     GUICtrlCreateCheckbox(" ", 172, 192)
  3307.     GUICtrlSetState(-1, $GUI_CHECKED)
  3308.     GUICtrlCreateCheckbox(" ", 187, 192)
  3309.     GUICtrlSetState(-1, $GUI_CHECKED)
  3310.     ;
  3311.     GUISetState(@SW_SHOW, $LE)
  3312.     While 1
  3313.         $LEmsg = GUIGetMsg()
  3314.         Select
  3315.             Case $LEmsg = -3
  3316.                 GUIDelete($LE)
  3317.                 ;Exit
  3318.                 ExitLoop
  3319.         EndSelect
  3320.     WEnd
  3321. EndFunc   ;==>_LE
  3322.  
  3323. ; Mercedes-Benz SLK 55 AMG
  3324. Func _MBSLK55AMG()
  3325.     Local $cost, $MBSLK55AMG, $MBSLK55AMGmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  3326.  
  3327.     $cost = ("$ 63 317")
  3328.     $acc = ("72")
  3329.     $spd = ("45")
  3330.     $brk = ("71")
  3331.     $maxspd = ("250 км/ч")
  3332.     $100 = ("4.90 сек")
  3333.     $hp = ("360 лс")
  3334.     $perc = ("3%")
  3335.  
  3336.     $MBSLK55AMG = GUICreate("A5:", 205, 215, -1, -1, -1, 0x00000080)
  3337.     GUISetBkColor(0xffFFFF)
  3338.     GUICtrlCreateButton("Mercedes-Benz SLK 55 AMG", 5, 2, 195, 20)
  3339.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  3340.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  3341.  
  3342.     GUICtrlCreateProgress(39, 46, 100, 13)
  3343.     GUICtrlSetData(-1, 5)
  3344.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  3345.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  3346.  
  3347.     GUICtrlCreateProgress(100, 65, 100, 13)
  3348.     GUICtrlSetData(-1, $acc)
  3349.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  3350.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  3351.     GUICtrlCreateProgress(100, 87, 100, 13)
  3352.     GUICtrlSetData(-1, $spd)
  3353.     GUICtrlCreateLabel("Скорость:", 2, 87)
  3354.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  3355.     GUICtrlCreateProgress(100, 109, 100, 13)
  3356.     GUICtrlSetData(-1, $brk)
  3357.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  3358.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  3359.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  3360.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  3361.     GUICtrlCreateLabel("0-100:", 2, 155)
  3362.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  3363.     GUICtrlCreateLabel("Мощность:", 2, 177)
  3364.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  3365.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  3366.     ;
  3367.     GUICtrlCreateCheckbox(" ", 157, 192)
  3368.     GUICtrlSetState(-1, $GUI_CHECKED)
  3369.     GUICtrlCreateCheckbox(" ", 172, 192)
  3370.     GUICtrlSetState(-1, $GUI_CHECKED)
  3371.     GUICtrlCreateCheckbox(" ", 187, 192)
  3372.     GUICtrlSetState(-1, $GUI_CHECKED)
  3373.     ;
  3374.     GUISetState(@SW_SHOW, $MBSLK55AMG)
  3375.     While 1
  3376.         $MBSLK55AMGmsg = GUIGetMsg()
  3377.         Select
  3378.             Case $MBSLK55AMGmsg = -3
  3379.                 GUIDelete($MBSLK55AMG)
  3380.                 ;Exit
  3381.                 ExitLoop
  3382.         EndSelect
  3383.     WEnd
  3384. EndFunc   ;==>_MBSLK55AMG
  3385.  
  3386.  
  3387. ;A6
  3388. ; Audi S3
  3389. Func _AS3()
  3390.     Local $cost, $AS3, $AS3msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  3391.  
  3392.     $cost = ("$ 42 140")
  3393.     $acc = ("66")
  3394.     $spd = ("45")
  3395.     $brk = ("52")
  3396.     $maxspd = ("250 км/ч")
  3397.     $100 = ("5.50 сек")
  3398.     $hp = ("265 лс")
  3399.     $perc = ("3%")
  3400.  
  3401.     $AS3 = GUICreate("A6:", 205, 215, -1, -1, -1, 0x00000080)
  3402.     GUISetBkColor(0xffFFFF)
  3403.     GUICtrlCreateButton("Audi S3", 5, 2, 195, 20)
  3404.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  3405.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  3406.  
  3407.     GUICtrlCreateProgress(39, 46, 100, 13)
  3408.     GUICtrlSetData(-1, 5)
  3409.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  3410.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  3411.  
  3412.     GUICtrlCreateProgress(100, 65, 100, 13)
  3413.     GUICtrlSetData(-1, $acc)
  3414.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  3415.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  3416.     GUICtrlCreateProgress(100, 87, 100, 13)
  3417.     GUICtrlSetData(-1, $spd)
  3418.     GUICtrlCreateLabel("Скорость:", 2, 87)
  3419.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  3420.     GUICtrlCreateProgress(100, 109, 100, 13)
  3421.     GUICtrlSetData(-1, $brk)
  3422.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  3423.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  3424.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  3425.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  3426.     GUICtrlCreateLabel("0-100:", 2, 155)
  3427.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  3428.     GUICtrlCreateLabel("Мощность:", 2, 177)
  3429.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  3430.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  3431.     ;
  3432.     GUICtrlCreateCheckbox(" ", 157, 192)
  3433.     GUICtrlSetState(-1, $GUI_CHECKED)
  3434.     GUICtrlCreateCheckbox(" ", 172, 192)
  3435.     GUICtrlCreateCheckbox(" ", 187, 192)
  3436.     GUICtrlSetState(-1, $GUI_CHECKED)
  3437.     ;
  3438.     GUISetState(@SW_SHOW, $AS3)
  3439.     While 1
  3440.         $AS3msg = GUIGetMsg()
  3441.         Select
  3442.             Case $AS3msg = -3
  3443.                 GUIDelete($AS3)
  3444.                 ;Exit
  3445.                 ExitLoop
  3446.         EndSelect
  3447.     WEnd
  3448. EndFunc   ;==>_AS3
  3449.  
  3450. ; Audi TTS Coupe
  3451. Func _ATTSC()
  3452.     Local $cost, $ATTSC, $ATTSCmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  3453.  
  3454.     $cost = ("$ 45 080")
  3455.     $acc = ("70")
  3456.     $spd = ("45")
  3457.     $brk = ("63")
  3458.     $maxspd = ("250 км/ч")
  3459.     $100 = ("5.10 сек")
  3460.     $hp = ("274 лс")
  3461.     $perc = ("3%")
  3462.  
  3463.     $ATTSC = GUICreate("A6:", 205, 215, -1, -1, -1, 0x00000080)
  3464.     GUISetBkColor(0xffFFFF)
  3465.     GUICtrlCreateButton("Audi TTS Coupe", 5, 2, 195, 20)
  3466.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  3467.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  3468.  
  3469.     GUICtrlCreateProgress(39, 46, 100, 13)
  3470.     GUICtrlSetData(-1, 5)
  3471.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  3472.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  3473.  
  3474.     GUICtrlCreateProgress(100, 65, 100, 13)
  3475.     GUICtrlSetData(-1, $acc)
  3476.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  3477.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  3478.     GUICtrlCreateProgress(100, 87, 100, 13)
  3479.     GUICtrlSetData(-1, $spd)
  3480.     GUICtrlCreateLabel("Скорость:", 2, 87)
  3481.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  3482.     GUICtrlCreateProgress(100, 109, 100, 13)
  3483.     GUICtrlSetData(-1, $brk)
  3484.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  3485.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  3486.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  3487.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  3488.     GUICtrlCreateLabel("0-100:", 2, 155)
  3489.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  3490.     GUICtrlCreateLabel("Мощность:", 2, 177)
  3491.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  3492.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  3493.     ;
  3494.     GUICtrlCreateCheckbox(" ", 157, 192)
  3495.     GUICtrlSetState(-1, $GUI_CHECKED)
  3496.     GUICtrlCreateCheckbox(" ", 172, 192)
  3497.     GUICtrlCreateCheckbox(" ", 187, 192)
  3498.     GUICtrlSetState(-1, $GUI_CHECKED)
  3499.     ;
  3500.     GUISetState(@SW_SHOW, $ATTSC)
  3501.     While 1
  3502.         $ATTSCmsg = GUIGetMsg()
  3503.         Select
  3504.             Case $ATTSCmsg = -3
  3505.                 GUIDelete($ATTSC)
  3506.                 ;Exit
  3507.                 ExitLoop
  3508.         EndSelect
  3509.     WEnd
  3510. EndFunc   ;==>_ATTSC
  3511.  
  3512. ; Chevrolet Camaro 1LT
  3513. Func _CC1LT()
  3514.     Local $cost, $CC1LT, $CC1LTmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  3515.  
  3516.     $cost = ("$ 23 403")
  3517.     $acc = ("62")
  3518.     $spd = ("45")
  3519.     $brk = ("68")
  3520.     $maxspd = ("250 км/ч")
  3521.     $100 = ("5.90 сек")
  3522.     $hp = ("304 лс")
  3523.     $perc = ("3%")
  3524.  
  3525.     $CC1LT = GUICreate("A6:", 205, 215, -1, -1, -1, 0x00000080)
  3526.     GUISetBkColor(0xffFFFF)
  3527.     GUICtrlCreateButton("Chevrolet Camaro 1LT", 5, 2, 195, 20)
  3528.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  3529.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  3530.  
  3531.     GUICtrlCreateProgress(39, 46, 100, 13)
  3532.     GUICtrlSetData(-1, 5)
  3533.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  3534.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  3535.  
  3536.     GUICtrlCreateProgress(100, 65, 100, 13)
  3537.     GUICtrlSetData(-1, $acc)
  3538.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  3539.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  3540.     GUICtrlCreateProgress(100, 87, 100, 13)
  3541.     GUICtrlSetData(-1, $spd)
  3542.     GUICtrlCreateLabel("Скорость:", 2, 87)
  3543.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  3544.     GUICtrlCreateProgress(100, 109, 100, 13)
  3545.     GUICtrlSetData(-1, $brk)
  3546.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  3547.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  3548.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  3549.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  3550.     GUICtrlCreateLabel("0-100:", 2, 155)
  3551.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  3552.     GUICtrlCreateLabel("Мощность:", 2, 177)
  3553.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  3554.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  3555.     ;
  3556.     GUICtrlCreateCheckbox(" ", 157, 192)
  3557.     GUICtrlSetState(-1, $GUI_CHECKED)
  3558.     GUICtrlCreateCheckbox(" ", 172, 192)
  3559.     GUICtrlSetState(-1, $GUI_CHECKED)
  3560.     GUICtrlCreateCheckbox(" ", 187, 192)
  3561.     GUICtrlSetState(-1, $GUI_CHECKED)
  3562.     ;
  3563.     GUISetState(@SW_SHOW, $CC1LT)
  3564.     While 1
  3565.         $CC1LTmsg = GUIGetMsg()
  3566.         Select
  3567.             Case $CC1LTmsg = -3
  3568.                 GUIDelete($CC1LT)
  3569.                 ;Exit
  3570.                 ExitLoop
  3571.         EndSelect
  3572.     WEnd
  3573. EndFunc   ;==>_CC1LT
  3574.  
  3575. ; Nissan 370Z
  3576. Func _N370Z()
  3577.     Local $cost, $N370Z, $N370Zmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  3578.  
  3579.     $cost = ("$ 30 870")
  3580.     $acc = ("65")
  3581.     $spd = ("45")
  3582.     $brk = ("50")
  3583.     $maxspd = ("- км/ч")
  3584.     $100 = ("- сек")
  3585.     $hp = ("332 лс")
  3586.     $perc = ("3%")
  3587.  
  3588.     $N370Z = GUICreate("A6:", 205, 215, -1, -1, -1, 0x00000080)
  3589.     GUISetBkColor(0xffFFFF)
  3590.     GUICtrlCreateButton("Nissan 370Z", 5, 2, 195, 20)
  3591.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  3592.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  3593.  
  3594.     GUICtrlCreateProgress(39, 46, 100, 13)
  3595.     GUICtrlSetData(-1, 5)
  3596.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  3597.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  3598.  
  3599.     GUICtrlCreateProgress(100, 65, 100, 13)
  3600.     GUICtrlSetData(-1, $acc)
  3601.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  3602.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  3603.     GUICtrlCreateProgress(100, 87, 100, 13)
  3604.     GUICtrlSetData(-1, $spd)
  3605.     GUICtrlCreateLabel("Скорость:", 2, 87)
  3606.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  3607.     GUICtrlCreateProgress(100, 109, 100, 13)
  3608.     GUICtrlSetData(-1, $brk)
  3609.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  3610.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  3611.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  3612.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  3613.     GUICtrlCreateLabel("0-100:", 2, 155)
  3614.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  3615.     GUICtrlCreateLabel("Мощность:", 2, 177)
  3616.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  3617.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  3618.     ;
  3619.     GUICtrlCreateCheckbox(" ", 157, 192)
  3620.     GUICtrlSetState(-1, $GUI_CHECKED)
  3621.     GUICtrlCreateCheckbox(" ", 172, 192)
  3622.     GUICtrlSetState(-1, $GUI_CHECKED)
  3623.     GUICtrlCreateCheckbox(" ", 187, 192)
  3624.     GUICtrlSetState(-1, $GUI_CHECKED)
  3625.     ;
  3626.     GUISetState(@SW_SHOW, $N370Z)
  3627.     While 1
  3628.         $N370Zmsg = GUIGetMsg()
  3629.         Select
  3630.             Case $N370Zmsg = -3
  3631.                 GUIDelete($N370Z)
  3632.                 ;Exit
  3633.                 ExitLoop
  3634.         EndSelect
  3635.     WEnd
  3636. EndFunc   ;==>_N370Z
  3637.  
  3638. ; Subaru Impreza WRX STI
  3639. Func _SIWRXSTI()
  3640.     Local $cost, $SIWRXSTI, $SIWRXSTImsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  3641.  
  3642.     $cost = ("$ 34 300")
  3643.     $acc = ("67")
  3644.     $spd = ("47")
  3645.     $brk = ("75")
  3646.     $maxspd = ("255 км/ч")
  3647.     $100 = ("5.40 сек")
  3648.     $hp = ("293 лс")
  3649.     $perc = ("3%")
  3650.  
  3651.     $SIWRXSTI = GUICreate("A6:", 205, 215, -1, -1, -1, 0x00000080)
  3652.     GUISetBkColor(0xffFFFF)
  3653.     GUICtrlCreateButton("Subaru Impreza WRX STI", 5, 2, 195, 20)
  3654.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  3655.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  3656.  
  3657.     GUICtrlCreateProgress(39, 46, 100, 13)
  3658.     GUICtrlSetData(-1, 5)
  3659.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  3660.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  3661.  
  3662.     GUICtrlCreateProgress(100, 65, 100, 13)
  3663.     GUICtrlSetData(-1, $acc)
  3664.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  3665.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  3666.     GUICtrlCreateProgress(100, 87, 100, 13)
  3667.     GUICtrlSetData(-1, $spd)
  3668.     GUICtrlCreateLabel("Скорость:", 2, 87)
  3669.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  3670.     GUICtrlCreateProgress(100, 109, 100, 13)
  3671.     GUICtrlSetData(-1, $brk)
  3672.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  3673.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  3674.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  3675.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  3676.     GUICtrlCreateLabel("0-100:", 2, 155)
  3677.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  3678.     GUICtrlCreateLabel("Мощность:", 2, 177)
  3679.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  3680.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  3681.     ;
  3682.     GUICtrlCreateCheckbox(" ", 157, 192)
  3683.     GUICtrlSetState(-1, $GUI_CHECKED)
  3684.     GUICtrlCreateCheckbox(" ", 172, 192)
  3685.     GUICtrlSetState(-1, $GUI_CHECKED)
  3686.     GUICtrlCreateCheckbox(" ", 187, 192)
  3687.     GUICtrlSetState(-1, $GUI_CHECKED)
  3688.     ;
  3689.     GUISetState(@SW_SHOW, $SIWRXSTI)
  3690.     While 1
  3691.         $SIWRXSTImsg = GUIGetMsg()
  3692.         Select
  3693.             Case $SIWRXSTImsg = -3
  3694.                 GUIDelete($SIWRXSTI)
  3695.                 ;Exit
  3696.                 ExitLoop
  3697.         EndSelect
  3698.     WEnd
  3699. EndFunc   ;==>_SIWRXSTI
  3700.  
  3701.  
  3702. ;A7
  3703. ; Alfa Romeo Brera Italia Independent
  3704. Func _ARBII()
  3705.     Local $cost, $ARBII, $ARBIImsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  3706.  
  3707.     $cost = ("$ 44 100")
  3708.     $acc = ("53")
  3709.     $spd = ("45")
  3710.     $brk = ("56")
  3711.     $maxspd = ("250 км/ч")
  3712.     $100 = ("6.80 сек")
  3713.     $hp = ("260 лс")
  3714.     $perc = ("3%")
  3715.  
  3716.     $ARBII = GUICreate("A7:", 205, 215, -1, -1, -1, 0x00000080)
  3717.     GUISetBkColor(0xffFFFF)
  3718.     GUICtrlCreateButton("Alfa Romeo Brera Italia Independent", 5, 2, 195, 20)
  3719.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  3720.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  3721.  
  3722.     GUICtrlCreateProgress(39, 46, 100, 13)
  3723.     GUICtrlSetData(-1, 5)
  3724.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  3725.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  3726.  
  3727.     GUICtrlCreateProgress(100, 65, 100, 13)
  3728.     GUICtrlSetData(-1, $acc)
  3729.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  3730.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  3731.     GUICtrlCreateProgress(100, 87, 100, 13)
  3732.     GUICtrlSetData(-1, $spd)
  3733.     GUICtrlCreateLabel("Скорость:", 2, 87)
  3734.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  3735.     GUICtrlCreateProgress(100, 109, 100, 13)
  3736.     GUICtrlSetData(-1, $brk)
  3737.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  3738.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  3739.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  3740.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  3741.     GUICtrlCreateLabel("0-100:", 2, 155)
  3742.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  3743.     GUICtrlCreateLabel("Мощность:", 2, 177)
  3744.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  3745.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  3746.     ;
  3747.     GUICtrlCreateCheckbox(" ", 157, 192)
  3748.     GUICtrlSetState(-1, $GUI_CHECKED)
  3749.     GUICtrlCreateCheckbox(" ", 172, 192)
  3750.     GUICtrlSetState(-1, $GUI_CHECKED)
  3751.     GUICtrlCreateCheckbox(" ", 187, 192)
  3752.     GUICtrlSetState(-1, $GUI_CHECKED)
  3753.     ;
  3754.     GUISetState(@SW_SHOW, $ARBII)
  3755.     While 1
  3756.         $ARBIImsg = GUIGetMsg()
  3757.         Select
  3758.             Case $ARBIImsg = -3
  3759.                 GUIDelete($ARBII)
  3760.                 ;Exit
  3761.                 ExitLoop
  3762.         EndSelect
  3763.     WEnd
  3764. EndFunc   ;==>_ARBII
  3765.  
  3766. ; Alfa Romeo MiTo Quadrifoglio Verde
  3767. Func _ARMQV()
  3768.     Local $cost, $ARMQV, $ARMQVmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  3769.  
  3770.     $cost = ("$ 27 440")
  3771.     $acc = ("46")
  3772.     $spd = ("37")
  3773.     $brk = ("56")
  3774.     $maxspd = ("219 км/ч")
  3775.     $100 = ("7.50 сек")
  3776.     $hp = ("170 лс")
  3777.     $perc = ("3%")
  3778.  
  3779.     $ARMQV = GUICreate("A7:", 205, 215, -1, -1, -1, 0x00000080)
  3780.     GUISetBkColor(0xffFFFF)
  3781.     GUICtrlCreateButton("Alfa Romeo MiTo Quadrifoglio Verde", 5, 2, 195, 20)
  3782.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  3783.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  3784.  
  3785.     GUICtrlCreateProgress(39, 46, 100, 13)
  3786.     GUICtrlSetData(-1, 5)
  3787.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  3788.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  3789.  
  3790.     GUICtrlCreateProgress(100, 65, 100, 13)
  3791.     GUICtrlSetData(-1, $acc)
  3792.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  3793.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  3794.     GUICtrlCreateProgress(100, 87, 100, 13)
  3795.     GUICtrlSetData(-1, $spd)
  3796.     GUICtrlCreateLabel("Скорость:", 2, 87)
  3797.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  3798.     GUICtrlCreateProgress(100, 109, 100, 13)
  3799.     GUICtrlSetData(-1, $brk)
  3800.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  3801.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  3802.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  3803.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  3804.     GUICtrlCreateLabel("0-100:", 2, 155)
  3805.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  3806.     GUICtrlCreateLabel("Мощность:", 2, 177)
  3807.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  3808.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  3809.     ;
  3810.     GUICtrlCreateCheckbox(" ", 157, 192)
  3811.     GUICtrlSetState(-1, $GUI_CHECKED)
  3812.     GUICtrlCreateCheckbox(" ", 172, 192)
  3813.     GUICtrlSetState(-1, $GUI_CHECKED)
  3814.     GUICtrlCreateCheckbox(" ", 187, 192)
  3815.     GUICtrlSetState(-1, $GUI_CHECKED)
  3816.     ;
  3817.     GUISetState(@SW_SHOW, $ARMQV)
  3818.     While 1
  3819.         $ARMQVmsg = GUIGetMsg()
  3820.         Select
  3821.             Case $ARMQVmsg = -3
  3822.                 GUIDelete($ARMQV)
  3823.                 ;Exit
  3824.                 ExitLoop
  3825.         EndSelect
  3826.     WEnd
  3827. EndFunc   ;==>_ARMQV
  3828.  
  3829. ; Volkswagen Golf GTI
  3830. Func _VGGTI()
  3831.     Local $cost, $VGGTI, $VGGTImsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  3832.  
  3833.     $cost = ("$ 24 500")
  3834.     $acc = ("52")
  3835.     $spd = ("42")
  3836.     $brk = ("37")
  3837.     $maxspd = ("240 км/ч")
  3838.     $100 = ("6.90 сек")
  3839.     $hp = ("207 лс")
  3840.     $perc = ("3%")
  3841.  
  3842.     $VGGTI = GUICreate("A7:", 205, 215, -1, -1, -1, 0x00000080)
  3843.     GUISetBkColor(0xffFFFF)
  3844.     GUICtrlCreateButton("Volkswagen Golf GTI", 5, 2, 195, 20)
  3845.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  3846.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  3847.  
  3848.     GUICtrlCreateProgress(39, 46, 100, 13)
  3849.     GUICtrlSetData(-1, 5)
  3850.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  3851.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  3852.  
  3853.     GUICtrlCreateProgress(100, 65, 100, 13)
  3854.     GUICtrlSetData(-1, $acc)
  3855.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  3856.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  3857.     GUICtrlCreateProgress(100, 87, 100, 13)
  3858.     GUICtrlSetData(-1, $spd)
  3859.     GUICtrlCreateLabel("Скорость:", 2, 87)
  3860.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  3861.     GUICtrlCreateProgress(100, 109, 100, 13)
  3862.     GUICtrlSetData(-1, $brk)
  3863.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  3864.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  3865.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  3866.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  3867.     GUICtrlCreateLabel("0-100:", 2, 155)
  3868.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  3869.     GUICtrlCreateLabel("Мощность:", 2, 177)
  3870.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  3871.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  3872.     ;
  3873.     GUICtrlCreateCheckbox(" ", 157, 192)
  3874.     GUICtrlSetState(-1, $GUI_CHECKED)
  3875.     GUICtrlCreateCheckbox(" ", 172, 192)
  3876.     GUICtrlSetState(-1, $GUI_CHECKED)
  3877.     GUICtrlCreateCheckbox(" ", 187, 192)
  3878.     GUICtrlSetState(-1, $GUI_CHECKED)
  3879.     ;
  3880.     GUISetState(@SW_SHOW, $VGGTI)
  3881.     While 1
  3882.         $VGGTImsg = GUIGetMsg()
  3883.         Select
  3884.             Case $VGGTImsg = -3
  3885.                 GUIDelete($VGGTI)
  3886.                 ;Exit
  3887.                 ExitLoop
  3888.         EndSelect
  3889.     WEnd
  3890. EndFunc   ;==>_VGGTI
  3891.  
  3892.  
  3893. ;B2
  3894. ; Buggy V8
  3895. Func _BV8()
  3896.     Local $cost, $BV8, $BV8msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  3897.  
  3898.     $cost = ("$ -")
  3899.     $acc = ("76")
  3900.     $spd = ("40")
  3901.     $brk = ("43")
  3902.     $maxspd = ("230 км/ч")
  3903.     $100 = ("4.50 сек")
  3904.     $hp = ("375 лс")
  3905.     $perc = ("0%")
  3906.  
  3907.     $BV8 = GUICreate("B2:", 205, 215, -1, -1, -1, 0x00000080)
  3908.     GUISetBkColor(0xffFFFF)
  3909.     GUICtrlCreateButton("Buggy V8", 5, 2, 195, 20)
  3910.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  3911.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  3912.  
  3913.     GUICtrlCreateProgress(39, 46, 100, 13)
  3914.     GUICtrlSetData(-1, 1)
  3915.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  3916.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  3917.  
  3918.     GUICtrlCreateProgress(100, 65, 100, 13)
  3919.     GUICtrlSetData(-1, $acc)
  3920.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  3921.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  3922.     GUICtrlCreateProgress(100, 87, 100, 13)
  3923.     GUICtrlSetData(-1, $spd)
  3924.     GUICtrlCreateLabel("Скорость:", 2, 87)
  3925.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  3926.     GUICtrlCreateProgress(100, 109, 100, 13)
  3927.     GUICtrlSetData(-1, $brk)
  3928.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  3929.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  3930.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  3931.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  3932.     GUICtrlCreateLabel("0-100:", 2, 155)
  3933.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  3934.     GUICtrlCreateLabel("Мощность:", 2, 177)
  3935.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  3936.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  3937.     ;
  3938.     GUICtrlCreateCheckbox(" ", 157, 192)
  3939.     GUICtrlSetState(-1, $GUI_CHECKED)
  3940.     GUICtrlCreateCheckbox(" ", 172, 192)
  3941.     GUICtrlSetState(-1, $GUI_CHECKED)
  3942.     GUICtrlCreateCheckbox(" ", 187, 192)
  3943.     GUICtrlSetState(-1, $GUI_CHECKED)
  3944.     ;
  3945.     GUISetState(@SW_SHOW, $BV8)
  3946.     While 1
  3947.         $BV8msg = GUIGetMsg()
  3948.         Select
  3949.             Case $BV8msg = -3
  3950.                 GUIDelete($BV8)
  3951.                 ;Exit
  3952.                 ExitLoop
  3953.         EndSelect
  3954.     WEnd
  3955. EndFunc   ;==>_BV8
  3956.  
  3957. ;B3
  3958. ; Audi Q7 V12 TDI Quattro
  3959. Func _AQ7V12TDIQ()
  3960.     Local $cost, $AQ7V12TDIQ, $AQ7V12TDIQmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  3961.  
  3962.     $cost = ("$ 147 000")
  3963.     $acc = ("66")
  3964.     $spd = ("45")
  3965.     $brk = ("62")
  3966.     $maxspd = ("250 км/ч")
  3967.     $100 = ("5.50 сек")
  3968.     $hp = ("500 лс")
  3969.     $perc = ("3%")
  3970.  
  3971.     $AQ7V12TDIQ = GUICreate("B3:", 205, 215, -1, -1, -1, 0x00000080)
  3972.     GUISetBkColor(0xffFFFF)
  3973.     GUICtrlCreateButton("Audi Q7 V12 TDI Quattro", 5, 2, 195, 20)
  3974.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  3975.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  3976.  
  3977.     GUICtrlCreateProgress(39, 46, 100, 13)
  3978.     GUICtrlSetData(-1, 5)
  3979.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  3980.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  3981.  
  3982.     GUICtrlCreateProgress(100, 65, 100, 13)
  3983.     GUICtrlSetData(-1, $acc)
  3984.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  3985.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  3986.     GUICtrlCreateProgress(100, 87, 100, 13)
  3987.     GUICtrlSetData(-1, $spd)
  3988.     GUICtrlCreateLabel("Скорость:", 2, 87)
  3989.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  3990.     GUICtrlCreateProgress(100, 109, 100, 13)
  3991.     GUICtrlSetData(-1, $brk)
  3992.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  3993.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  3994.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  3995.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  3996.     GUICtrlCreateLabel("0-100:", 2, 155)
  3997.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  3998.     GUICtrlCreateLabel("Мощность:", 2, 177)
  3999.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  4000.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  4001.     ;
  4002.     GUICtrlCreateCheckbox(" ", 157, 192)
  4003.     GUICtrlSetState(-1, $GUI_CHECKED)
  4004.     GUICtrlCreateCheckbox(" ", 172, 192)
  4005.     GUICtrlSetState(-1, $GUI_CHECKED)
  4006.     GUICtrlCreateCheckbox(" ", 187, 192)
  4007.     GUICtrlSetState(-1, $GUI_CHECKED)
  4008.     ;
  4009.     GUISetState(@SW_SHOW, $AQ7V12TDIQ)
  4010.     While 1
  4011.         $AQ7V12TDIQmsg = GUIGetMsg()
  4012.         Select
  4013.             Case $AQ7V12TDIQmsg = -3
  4014.                 GUIDelete($AQ7V12TDIQ)
  4015.                 ;Exit
  4016.                 ExitLoop
  4017.         EndSelect
  4018.     WEnd
  4019. EndFunc   ;==>_AQ7V12TDIQ
  4020.  
  4021. ; Mercedes-Benz ML 63 AMG
  4022. Func _MBML63AMG()
  4023.     Local $cost, $MBML63AMG, $MBML63AMGmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  4024.  
  4025.     $cost = ("$ 81 154")
  4026.     $acc = ("71")
  4027.     $spd = ("46")
  4028.     $brk = ("59")
  4029.     $maxspd = ("255 км/ч")
  4030.     $100 = ("5.00 сек")
  4031.     $hp = ("515 лс")
  4032.     $perc = ("3%")
  4033.  
  4034.     $MBML63AMG = GUICreate("B3:", 205, 215, -1, -1, -1, 0x00000080)
  4035.     GUISetBkColor(0xffFFFF)
  4036.     GUICtrlCreateButton("Mercedes-Benz ML 63 AMG", 5, 2, 195, 20)
  4037.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  4038.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  4039.  
  4040.     GUICtrlCreateProgress(39, 46, 100, 13)
  4041.     GUICtrlSetData(-1, 5)
  4042.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  4043.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  4044.  
  4045.     GUICtrlCreateProgress(100, 65, 100, 13)
  4046.     GUICtrlSetData(-1, $acc)
  4047.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  4048.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  4049.     GUICtrlCreateProgress(100, 87, 100, 13)
  4050.     GUICtrlSetData(-1, $spd)
  4051.     GUICtrlCreateLabel("Скорость:", 2, 87)
  4052.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  4053.     GUICtrlCreateProgress(100, 109, 100, 13)
  4054.     GUICtrlSetData(-1, $brk)
  4055.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  4056.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  4057.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  4058.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  4059.     GUICtrlCreateLabel("0-100:", 2, 155)
  4060.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  4061.     GUICtrlCreateLabel("Мощность:", 2, 177)
  4062.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  4063.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  4064.     ;
  4065.     GUICtrlCreateCheckbox(" ", 157, 192)
  4066.     GUICtrlSetState(-1, $GUI_CHECKED)
  4067.     GUICtrlCreateCheckbox(" ", 172, 192)
  4068.     GUICtrlSetState(-1, $GUI_CHECKED)
  4069.     GUICtrlCreateCheckbox(" ", 187, 192)
  4070.     GUICtrlSetState(-1, $GUI_CHECKED)
  4071.     ;
  4072.     GUISetState(@SW_SHOW, $MBML63AMG)
  4073.     While 1
  4074.         $MBML63AMGmsg = GUIGetMsg()
  4075.         Select
  4076.             Case $MBML63AMGmsg = -3
  4077.                 GUIDelete($MBML63AMG)
  4078.                 ;Exit
  4079.                 ExitLoop
  4080.         EndSelect
  4081.     WEnd
  4082. EndFunc   ;==>_MBML63AMG
  4083.  
  4084. ; Spyker D8 Peking-to-Paris
  4085. Func _SD8PTP()
  4086.     Local $cost, $SD8PTP, $SD8PTPmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  4087.  
  4088.     $cost = ("$ 288 120")
  4089.     $acc = ("71")
  4090.     $spd = ("52")
  4091.     $brk = ("56")
  4092.     $maxspd = ("280 км/ч")
  4093.     $100 = ("5.00 сек")
  4094.     $hp = ("556 лс")
  4095.     $perc = ("100%")
  4096.  
  4097.     $SD8PTP = GUICreate("B3:", 205, 215, -1, -1, -1, 0x00000080)
  4098.     GUISetBkColor(0xffFFFF)
  4099.     GUICtrlCreateButton("Spyker D8 Peking-to-Paris", 5, 2, 195, 20)
  4100.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  4101.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  4102.  
  4103.     GUICtrlCreateProgress(39, 46, 100, 13)
  4104.     GUICtrlSetData(-1, 100)
  4105.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  4106.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  4107.  
  4108.     GUICtrlCreateProgress(100, 65, 100, 13)
  4109.     GUICtrlSetData(-1, $acc)
  4110.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  4111.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  4112.     GUICtrlCreateProgress(100, 87, 100, 13)
  4113.     GUICtrlSetData(-1, $spd)
  4114.     GUICtrlCreateLabel("Скорость:", 2, 87)
  4115.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  4116.     GUICtrlCreateProgress(100, 109, 100, 13)
  4117.     GUICtrlSetData(-1, $brk)
  4118.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  4119.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  4120.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  4121.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  4122.     GUICtrlCreateLabel("0-100:", 2, 155)
  4123.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  4124.     GUICtrlCreateLabel("Мощность:", 2, 177)
  4125.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  4126.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  4127.     ;
  4128.     GUICtrlCreateCheckbox(" ", 157, 192)
  4129.     GUICtrlSetState(-1, $GUI_CHECKED)
  4130.     GUICtrlCreateCheckbox(" ", 172, 192)
  4131.     GUICtrlCreateCheckbox(" ", 187, 192)
  4132.     GUICtrlSetState(-1, $GUI_CHECKED)
  4133.     ;
  4134.     GUISetState(@SW_SHOW, $SD8PTP)
  4135.     While 1
  4136.         $SD8PTPmsg = GUIGetMsg()
  4137.         Select
  4138.             Case $SD8PTPmsg = -3
  4139.                 GUIDelete($SD8PTP)
  4140.                 ;Exit
  4141.                 ExitLoop
  4142.         EndSelect
  4143.     WEnd
  4144. EndFunc   ;==>_SD8PTP
  4145.  
  4146.  
  4147. ;B4
  4148. ; Hummer H3
  4149. Func _HH3()
  4150.     Local $cost, $HH3, $HH3msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  4151.  
  4152.     $cost = ("$ 37 240")
  4153.     $acc = ("23")
  4154.     $spd = ("35")
  4155.     $brk = ("40")
  4156.     $maxspd = ("210 км/ч")
  4157.     $100 = ("9.70 сек")
  4158.     $hp = ("242 лс")
  4159.     $perc = ("3%")
  4160.  
  4161.     $HH3 = GUICreate("B4:", 205, 215, -1, -1, -1, 0x00000080)
  4162.     GUISetBkColor(0xffFFFF)
  4163.     GUICtrlCreateButton("Hummer H3", 5, 2, 195, 20)
  4164.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  4165.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  4166.  
  4167.     GUICtrlCreateProgress(39, 46, 100, 13)
  4168.     GUICtrlSetData(-1, 5)
  4169.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  4170.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  4171.  
  4172.     GUICtrlCreateProgress(100, 65, 100, 13)
  4173.     GUICtrlSetData(-1, $acc)
  4174.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  4175.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  4176.     GUICtrlCreateProgress(100, 87, 100, 13)
  4177.     GUICtrlSetData(-1, $spd)
  4178.     GUICtrlCreateLabel("Скорость:", 2, 87)
  4179.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  4180.     GUICtrlCreateProgress(100, 109, 100, 13)
  4181.     GUICtrlSetData(-1, $brk)
  4182.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  4183.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  4184.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  4185.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  4186.     GUICtrlCreateLabel("0-100:", 2, 155)
  4187.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  4188.     GUICtrlCreateLabel("Мощность:", 2, 177)
  4189.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  4190.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  4191.     ;
  4192.     GUICtrlCreateCheckbox(" ", 157, 192)
  4193.     GUICtrlSetState(-1, $GUI_CHECKED)
  4194.     GUICtrlCreateCheckbox(" ", 172, 192)
  4195.     GUICtrlSetState(-1, $GUI_CHECKED)
  4196.     GUICtrlCreateCheckbox(" ", 187, 192)
  4197.     GUICtrlSetState(-1, $GUI_CHECKED)
  4198.     ;
  4199.     GUISetState(@SW_SHOW, $HH3)
  4200.     While 1
  4201.         $HH3msg = GUIGetMsg()
  4202.         Select
  4203.             Case $HH3msg = -3
  4204.                 GUIDelete($HH3)
  4205.                 ;Exit
  4206.                 ExitLoop
  4207.         EndSelect
  4208.     WEnd
  4209. EndFunc   ;==>_HH3
  4210.  
  4211. ; Land Rover Range Rover Sport HSE
  4212. Func _LRRRSHSE()
  4213.     Local $cost, $LRRRSHSE, $LRRRSHSEmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  4214.  
  4215.     $cost = ("$ 63 700")
  4216.     $acc = ("93")
  4217.     $spd = ("45")
  4218.     $brk = ("87")
  4219.     $maxspd = ("354 км/ч")
  4220.     $100 = ("2.90 сек")
  4221.     $hp = ("300 лс")
  4222.     $perc = ("3%")
  4223.  
  4224.     $LRRRSHSE = GUICreate("B4:", 205, 215, -1, -1, -1, 0x00000080)
  4225.     GUISetBkColor(0xffFFFF)
  4226.     GUICtrlCreateButton("Land Rover Range Rover Sport HSE", 5, 2, 195, 20)
  4227.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  4228.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  4229.  
  4230.     GUICtrlCreateProgress(39, 46, 100, 13)
  4231.     GUICtrlSetData(-1, 5)
  4232.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  4233.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  4234.  
  4235.     GUICtrlCreateProgress(100, 65, 100, 13)
  4236.     GUICtrlSetData(-1, $acc)
  4237.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  4238.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  4239.     GUICtrlCreateProgress(100, 87, 100, 13)
  4240.     GUICtrlSetData(-1, $spd)
  4241.     GUICtrlCreateLabel("Скорость:", 2, 87)
  4242.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  4243.     GUICtrlCreateProgress(100, 109, 100, 13)
  4244.     GUICtrlSetData(-1, $brk)
  4245.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  4246.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  4247.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  4248.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  4249.     GUICtrlCreateLabel("0-100:", 2, 155)
  4250.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  4251.     GUICtrlCreateLabel("Мощность:", 2, 177)
  4252.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  4253.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  4254.     ;
  4255.     GUICtrlCreateCheckbox(" ", 157, 192)
  4256.     GUICtrlSetState(-1, $GUI_CHECKED)
  4257.     GUICtrlCreateCheckbox(" ", 172, 192)
  4258.     GUICtrlCreateCheckbox(" ", 187, 192)
  4259.     GUICtrlSetState(-1, $GUI_CHECKED)
  4260.     ;
  4261.     GUISetState(@SW_SHOW, $LRRRSHSE)
  4262.     While 1
  4263.         $LRRRSHSEmsg = GUIGetMsg()
  4264.         Select
  4265.             Case $LRRRSHSEmsg = -3
  4266.                 GUIDelete($LRRRSHSE)
  4267.                 ;Exit
  4268.                 ExitLoop
  4269.         EndSelect
  4270.     WEnd
  4271. EndFunc   ;==>_LRRRSHSE
  4272.  
  4273. ; Volkswagen Touareg V10 TDI
  4274. Func _VTV10TDI()
  4275.     Local $cost, $VTV10TDI, $VTV10TDImsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  4276.  
  4277.     $cost = ("$ 83 300")
  4278.     $acc = ("47")
  4279.     $spd = ("40")
  4280.     $brk = ("50")
  4281.     $maxspd = ("231 км/ч")
  4282.     $100 = ("7.40 сек")
  4283.     $hp = ("313 лс")
  4284.     $perc = ("3%")
  4285.  
  4286.     $VTV10TDI = GUICreate("B4:", 205, 215, -1, -1, -1, 0x00000080)
  4287.     GUISetBkColor(0xffFFFF)
  4288.     GUICtrlCreateButton("Volkswagen Touareg V10 TDI", 5, 2, 195, 20)
  4289.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  4290.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  4291.  
  4292.     GUICtrlCreateProgress(39, 46, 100, 13)
  4293.     GUICtrlSetData(-1, 5)
  4294.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  4295.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  4296.  
  4297.     GUICtrlCreateProgress(100, 65, 100, 13)
  4298.     GUICtrlSetData(-1, $acc)
  4299.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  4300.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  4301.     GUICtrlCreateProgress(100, 87, 100, 13)
  4302.     GUICtrlSetData(-1, $spd)
  4303.     GUICtrlCreateLabel("Скорость:", 2, 87)
  4304.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  4305.     GUICtrlCreateProgress(100, 109, 100, 13)
  4306.     GUICtrlSetData(-1, $brk)
  4307.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  4308.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  4309.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  4310.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  4311.     GUICtrlCreateLabel("0-100:", 2, 155)
  4312.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  4313.     GUICtrlCreateLabel("Мощность:", 2, 177)
  4314.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  4315.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  4316.     ;
  4317.     GUICtrlCreateCheckbox(" ", 157, 192)
  4318.     GUICtrlSetState(-1, $GUI_CHECKED)
  4319.     GUICtrlCreateCheckbox(" ", 172, 192)
  4320.     GUICtrlSetState(-1, $GUI_CHECKED)
  4321.     GUICtrlCreateCheckbox(" ", 187, 192)
  4322.     GUICtrlSetState(-1, $GUI_CHECKED)
  4323.     ;
  4324.     GUISetState(@SW_SHOW, $VTV10TDI)
  4325.     While 1
  4326.         $VTV10TDImsg = GUIGetMsg()
  4327.         Select
  4328.             Case $VTV10TDImsg = -3
  4329.                 GUIDelete($VTV10TDI)
  4330.                 ;Exit
  4331.                 ExitLoop
  4332.         EndSelect
  4333.     WEnd
  4334. EndFunc   ;==>_VTV10TDI
  4335.  
  4336.  
  4337. ;C2
  4338. ; AC Cobra 427
  4339. Func _ACC427()
  4340.     Local $cost, $ACC427, $ACC427msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  4341.  
  4342.     $cost = ("$ -")
  4343.     $acc = ("76")
  4344.     $spd = ("49")
  4345.     $brk = ("43")
  4346.     $maxspd = ("266 км/ч")
  4347.     $100 = ("4.50 сек")
  4348.     $hp = ("410 лс")
  4349.     $perc = ("0%")
  4350.  
  4351.     $ACC427 = GUICreate("C2:", 205, 215, -1, -1, -1, 0x00000080)
  4352.     GUISetBkColor(0xffFFFF)
  4353.     GUICtrlCreateButton("AC Cobra 427", 5, 2, 195, 20)
  4354.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  4355.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  4356.  
  4357.     GUICtrlCreateProgress(39, 46, 100, 13)
  4358.     GUICtrlSetData(-1, 1)
  4359.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  4360.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  4361.  
  4362.     GUICtrlCreateProgress(100, 65, 100, 13)
  4363.     GUICtrlSetData(-1, $acc)
  4364.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  4365.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  4366.     GUICtrlCreateProgress(100, 87, 100, 13)
  4367.     GUICtrlSetData(-1, $spd)
  4368.     GUICtrlCreateLabel("Скорость:", 2, 87)
  4369.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  4370.     GUICtrlCreateProgress(100, 109, 100, 13)
  4371.     GUICtrlSetData(-1, $brk)
  4372.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  4373.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  4374.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  4375.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  4376.     GUICtrlCreateLabel("0-100:", 2, 155)
  4377.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  4378.     GUICtrlCreateLabel("Мощность:", 2, 177)
  4379.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  4380.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  4381.     ;
  4382.     GUICtrlCreateCheckbox(" ", 157, 192)
  4383.     GUICtrlSetState(-1, $GUI_CHECKED)
  4384.     GUICtrlCreateCheckbox(" ", 172, 192)
  4385.     GUICtrlCreateCheckbox(" ", 187, 192)
  4386.     GUICtrlSetState(-1, $GUI_CHECKED)
  4387.     ;
  4388.     GUISetState(@SW_SHOW, $ACC427)
  4389.     While 1
  4390.         $ACC427msg = GUIGetMsg()
  4391.         Select
  4392.             Case $ACC427msg = -3
  4393.                 GUIDelete($ACC427)
  4394.                 ;Exit
  4395.                 ExitLoop
  4396.         EndSelect
  4397.     WEnd
  4398. EndFunc   ;==>_ACC427
  4399.  
  4400. ; Shelby Daytona
  4401. Func _SD()
  4402.     Local $cost, $SD, $SDmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  4403.  
  4404.     $cost = ("$ -")
  4405.     $acc = ("93")
  4406.     $spd = ("45")
  4407.     $brk = ("87")
  4408.     $maxspd = ("354 км/ч")
  4409.     $100 = ("2.90 сек")
  4410.     $hp = ("300 лс")
  4411.     $perc = ("0%")
  4412.  
  4413.     $SD = GUICreate("C2:", 205, 215, -1, -1, -1, 0x00000080)
  4414.     GUISetBkColor(0xffFFFF)
  4415.     GUICtrlCreateButton("Shelby Daytona", 5, 2, 195, 20)
  4416.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  4417.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  4418.  
  4419.     GUICtrlCreateProgress(39, 46, 100, 13)
  4420.     GUICtrlSetData(-1, 1)
  4421.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  4422.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  4423.  
  4424.     GUICtrlCreateProgress(100, 65, 100, 13)
  4425.     GUICtrlSetData(-1, $acc)
  4426.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  4427.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  4428.     GUICtrlCreateProgress(100, 87, 100, 13)
  4429.     GUICtrlSetData(-1, $spd)
  4430.     GUICtrlCreateLabel("Скорость:", 2, 87)
  4431.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  4432.     GUICtrlCreateProgress(100, 109, 100, 13)
  4433.     GUICtrlSetData(-1, $brk)
  4434.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  4435.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  4436.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  4437.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  4438.     GUICtrlCreateLabel("0-100:", 2, 155)
  4439.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  4440.     GUICtrlCreateLabel("Мощность:", 2, 177)
  4441.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  4442.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  4443.     ;
  4444.     GUICtrlCreateCheckbox(" ", 157, 192)
  4445.     GUICtrlSetState(-1, $GUI_CHECKED)
  4446.     GUICtrlCreateCheckbox(" ", 172, 192)
  4447.     GUICtrlCreateCheckbox(" ", 187, 192)
  4448.     GUICtrlSetState(-1, $GUI_CHECKED)
  4449.     ;
  4450.     GUISetState(@SW_SHOW, $SD)
  4451.     While 1
  4452.         $SDmsg = GUIGetMsg()
  4453.         Select
  4454.             Case $SDmsg = -3
  4455.                 GUIDelete($SD)
  4456.                 ;Exit
  4457.                 ExitLoop
  4458.         EndSelect
  4459.     WEnd
  4460. EndFunc   ;==>_SD
  4461.  
  4462.  
  4463. ;C3
  4464. ; Ferrari 308 GTS Quattrovalvole
  4465. Func _F308GTDQ()
  4466.     Local $cost, $F308GTDQ, $F308GTDQmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  4467.  
  4468.     $cost = ("$ 39 200")
  4469.     $acc = ("54")
  4470.     $spd = ("46")
  4471.     $brk = ("50")
  4472.     $maxspd = ("255 км/ч")
  4473.     $100 = ("6.70 сек")
  4474.     $hp = ("240 лс")
  4475.     $perc = ("3%")
  4476.  
  4477.     $F308GTDQ = GUICreate("C3:", 205, 215, -1, -1, -1, 0x00000080)
  4478.     GUISetBkColor(0xffFFFF)
  4479.     GUICtrlCreateButton("Ferrari 308 GTS Quattrovalvole", 5, 2, 195, 20)
  4480.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  4481.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  4482.  
  4483.     GUICtrlCreateProgress(39, 46, 100, 13)
  4484.     GUICtrlSetData(-1, 5)
  4485.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  4486.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  4487.  
  4488.     GUICtrlCreateProgress(100, 65, 100, 13)
  4489.     GUICtrlSetData(-1, $acc)
  4490.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  4491.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  4492.     GUICtrlCreateProgress(100, 87, 100, 13)
  4493.     GUICtrlSetData(-1, $spd)
  4494.     GUICtrlCreateLabel("Скорость:", 2, 87)
  4495.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  4496.     GUICtrlCreateProgress(100, 109, 100, 13)
  4497.     GUICtrlSetData(-1, $brk)
  4498.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  4499.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  4500.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  4501.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  4502.     GUICtrlCreateLabel("0-100:", 2, 155)
  4503.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  4504.     GUICtrlCreateLabel("Мощность:", 2, 177)
  4505.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  4506.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  4507.     ;
  4508.     GUICtrlCreateCheckbox(" ", 157, 192)
  4509.     GUICtrlCreateCheckbox(" ", 172, 192)
  4510.     GUICtrlSetState(-1, $GUI_CHECKED)
  4511.     GUICtrlCreateCheckbox(" ", 187, 192)
  4512.     ;
  4513.     GUISetState(@SW_SHOW, $F308GTDQ)
  4514.     While 1
  4515.         $F308GTDQmsg = GUIGetMsg()
  4516.         Select
  4517.             Case $F308GTDQmsg = -3
  4518.                 GUIDelete($F308GTDQ)
  4519.                 ;Exit
  4520.                 ExitLoop
  4521.         EndSelect
  4522.     WEnd
  4523. EndFunc   ;==>_F308GTDQ
  4524.  
  4525. ; Ferrari Dino 246 GTS
  4526. Func _FD246GTS()
  4527.     Local $cost, $FD246GTS, $FD246GTSmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  4528.  
  4529.     $cost = ("$ 49 000")
  4530.     $acc = ("46")
  4531.     $spd = ("43")
  4532.     $brk = ("62")
  4533.     $maxspd = ("245 км/ч")
  4534.     $100 = ("7.50 сек")
  4535.     $hp = ("195 лс")
  4536.     $perc = ("3%")
  4537.  
  4538.     $FD246GTS = GUICreate("C3:", 205, 215, -1, -1, -1, 0x00000080)
  4539.     GUISetBkColor(0xffFFFF)
  4540.     GUICtrlCreateButton("Ferrari Dino 246 GTS", 5, 2, 195, 20)
  4541.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  4542.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  4543.  
  4544.     GUICtrlCreateProgress(39, 46, 100, 13)
  4545.     GUICtrlSetData(-1, 5)
  4546.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  4547.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  4548.  
  4549.     GUICtrlCreateProgress(100, 65, 100, 13)
  4550.     GUICtrlSetData(-1, $acc)
  4551.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  4552.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  4553.     GUICtrlCreateProgress(100, 87, 100, 13)
  4554.     GUICtrlSetData(-1, $spd)
  4555.     GUICtrlCreateLabel("Скорость:", 2, 87)
  4556.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  4557.     GUICtrlCreateProgress(100, 109, 100, 13)
  4558.     GUICtrlSetData(-1, $brk)
  4559.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  4560.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  4561.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  4562.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  4563.     GUICtrlCreateLabel("0-100:", 2, 155)
  4564.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  4565.     GUICtrlCreateLabel("Мощность:", 2, 177)
  4566.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  4567.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  4568.     ;
  4569.     GUICtrlCreateCheckbox(" ", 157, 192)
  4570.     GUICtrlCreateCheckbox(" ", 172, 192)
  4571.     GUICtrlSetState(-1, $GUI_CHECKED)
  4572.     GUICtrlCreateCheckbox(" ", 187, 192)
  4573.     ;
  4574.     GUISetState(@SW_SHOW, $FD246GTS)
  4575.     While 1
  4576.         $FD246GTSmsg = GUIGetMsg()
  4577.         Select
  4578.             Case $FD246GTSmsg = -3
  4579.                 GUIDelete($FD246GTS)
  4580.                 ;Exit
  4581.                 ExitLoop
  4582.         EndSelect
  4583.     WEnd
  4584. EndFunc   ;==>_FD246GTS
  4585.  
  4586. ; Chevrolet Corvette C1 1957
  4587. Func _CCC1()
  4588.     Local $cost, $CCC1, $CCC1msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  4589.  
  4590.     $cost = ("$ 83 300")
  4591.     $acc = ("93")
  4592.     $spd = ("45")
  4593.     $brk = ("87")
  4594.     $maxspd = ("354 км/ч")
  4595.     $100 = ("2.90 сек")
  4596.     $hp = ("300 лс")
  4597.     $perc = ("3%")
  4598.  
  4599.     $CCC1 = GUICreate("C3:", 205, 215, -1, -1, -1, 0x00000080)
  4600.     GUISetBkColor(0xffFFFF)
  4601.     GUICtrlCreateButton("Chevrolet Corvette C1 1957", 5, 2, 195, 20)
  4602.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  4603.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  4604.  
  4605.     GUICtrlCreateProgress(39, 46, 100, 13)
  4606.     GUICtrlSetData(-1, 5)
  4607.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  4608.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  4609.  
  4610.     GUICtrlCreateProgress(100, 65, 100, 13)
  4611.     GUICtrlSetData(-1, $acc)
  4612.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  4613.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  4614.     GUICtrlCreateProgress(100, 87, 100, 13)
  4615.     GUICtrlSetData(-1, $spd)
  4616.     GUICtrlCreateLabel("Скорость:", 2, 87)
  4617.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  4618.     GUICtrlCreateProgress(100, 109, 100, 13)
  4619.     GUICtrlSetData(-1, $brk)
  4620.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  4621.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  4622.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  4623.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  4624.     GUICtrlCreateLabel("0-100:", 2, 155)
  4625.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  4626.     GUICtrlCreateLabel("Мощность:", 2, 177)
  4627.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  4628.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  4629.     ;
  4630.     GUICtrlCreateCheckbox(" ", 157, 192)
  4631.     GUICtrlSetState(-1, $GUI_CHECKED)
  4632.     GUICtrlCreateCheckbox(" ", 172, 192)
  4633.     GUICtrlCreateCheckbox(" ", 187, 192)
  4634.     GUICtrlSetState(-1, $GUI_CHECKED)
  4635.     ;
  4636.     GUISetState(@SW_SHOW, $CCC1)
  4637.     While 1
  4638.         $CCC1msg = GUIGetMsg()
  4639.         Select
  4640.             Case $CCC1msg = -3
  4641.                 GUIDelete($CCC1)
  4642.                 ;Exit
  4643.                 ExitLoop
  4644.         EndSelect
  4645.     WEnd
  4646. EndFunc   ;==>_CCC1
  4647.  
  4648. ; Jaguar D-Type
  4649. Func _JDT()
  4650.     Local $cost, $JDT, $JDTmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  4651.  
  4652.     $cost = ("$ -")
  4653.     $acc = ("93")
  4654.     $spd = ("45")
  4655.     $brk = ("87")
  4656.     $maxspd = ("354 км/ч")
  4657.     $100 = ("2.90 сек")
  4658.     $hp = ("300 лс")
  4659.     $perc = ("0%")
  4660.  
  4661.     $JDT = GUICreate("C3:", 205, 215, -1, -1, -1, 0x00000080)
  4662.     GUISetBkColor(0xffFFFF)
  4663.     GUICtrlCreateButton("Jaguar D-Type", 5, 2, 195, 20)
  4664.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  4665.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  4666.  
  4667.     GUICtrlCreateProgress(39, 46, 100, 13)
  4668.     GUICtrlSetData(-1, 1)
  4669.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  4670.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  4671.  
  4672.     GUICtrlCreateProgress(100, 65, 100, 13)
  4673.     GUICtrlSetData(-1, $acc)
  4674.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  4675.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  4676.     GUICtrlCreateProgress(100, 87, 100, 13)
  4677.     GUICtrlSetData(-1, $spd)
  4678.     GUICtrlCreateLabel("Скорость:", 2, 87)
  4679.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  4680.     GUICtrlCreateProgress(100, 109, 100, 13)
  4681.     GUICtrlSetData(-1, $brk)
  4682.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  4683.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  4684.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  4685.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  4686.     GUICtrlCreateLabel("0-100:", 2, 155)
  4687.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  4688.     GUICtrlCreateLabel("Мощность:", 2, 177)
  4689.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  4690.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  4691.     ;
  4692.     GUICtrlCreateCheckbox(" ", 157, 192)
  4693.     GUICtrlSetState(-1, $GUI_CHECKED)
  4694.     GUICtrlCreateCheckbox(" ", 172, 192)
  4695.     GUICtrlCreateCheckbox(" ", 187, 192)
  4696.     GUICtrlSetState(-1, $GUI_CHECKED)
  4697.     ;
  4698.     GUISetState(@SW_SHOW, $JDT)
  4699.     While 1
  4700.         $JDTmsg = GUIGetMsg()
  4701.         Select
  4702.             Case $JDTmsg = -3
  4703.                 GUIDelete($JDT)
  4704.                 ;Exit
  4705.                 ExitLoop
  4706.         EndSelect
  4707.     WEnd
  4708. EndFunc   ;==>_JDT
  4709.  
  4710. ; Jaguar E-Type
  4711. Func _JET()
  4712.     Local $cost, $JET, $JETmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  4713.  
  4714.     $cost = ("$ 49 000")
  4715.     $acc = ("50")
  4716.     $spd = ("43")
  4717.     $brk = ("48")
  4718.     $maxspd = ("242 км/ч")
  4719.     $100 = ("7.10 сек")
  4720.     $hp = ("265 лс")
  4721.     $perc = ("3%")
  4722.  
  4723.     $JET = GUICreate("C3:", 205, 215, -1, -1, -1, 0x00000080)
  4724.     GUISetBkColor(0xffFFFF)
  4725.     GUICtrlCreateButton("Jaguar E-Type", 5, 2, 195, 20)
  4726.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  4727.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  4728.  
  4729.     GUICtrlCreateProgress(39, 46, 100, 13)
  4730.     GUICtrlSetData(-1, 5)
  4731.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  4732.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  4733.  
  4734.     GUICtrlCreateProgress(100, 65, 100, 13)
  4735.     GUICtrlSetData(-1, $acc)
  4736.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  4737.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  4738.     GUICtrlCreateProgress(100, 87, 100, 13)
  4739.     GUICtrlSetData(-1, $spd)
  4740.     GUICtrlCreateLabel("Скорость:", 2, 87)
  4741.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  4742.     GUICtrlCreateProgress(100, 109, 100, 13)
  4743.     GUICtrlSetData(-1, $brk)
  4744.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  4745.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  4746.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  4747.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  4748.     GUICtrlCreateLabel("0-100:", 2, 155)
  4749.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  4750.     GUICtrlCreateLabel("Мощность:", 2, 177)
  4751.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  4752.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  4753.     ;
  4754.     GUICtrlCreateCheckbox(" ", 157, 192)
  4755.     GUICtrlSetState(-1, $GUI_CHECKED)
  4756.     GUICtrlCreateCheckbox(" ", 172, 192)
  4757.     GUICtrlSetState(-1, $GUI_CHECKED)
  4758.     GUICtrlCreateCheckbox(" ", 187, 192)
  4759.     GUICtrlSetState(-1, $GUI_CHECKED)
  4760.     ;
  4761.     GUISetState(@SW_SHOW, $JET)
  4762.     While 1
  4763.         $JETmsg = GUIGetMsg()
  4764.         Select
  4765.             Case $JETmsg = -3
  4766.                 GUIDelete($JET)
  4767.                 ;Exit
  4768.                 ExitLoop
  4769.         EndSelect
  4770.     WEnd
  4771. EndFunc   ;==>_JET
  4772.  
  4773. ; Mercedes-Benz 300 SL GullWing
  4774. Func _MB300SLG()
  4775.     Local $cost, $MB300SLG, $MB300SLGmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  4776.  
  4777.     $cost = ("$ 490 000")
  4778.     $acc = ("38")
  4779.     $spd = ("45")
  4780.     $brk = ("25")
  4781.     $maxspd = ("250 км/ч")
  4782.     $100 = ("8.20 сек")
  4783.     $hp = ("215 лс")
  4784.     $perc = ("3%")
  4785.  
  4786.     $MB300SLG = GUICreate("C3:", 205, 215, -1, -1, -1, 0x00000080)
  4787.     GUISetBkColor(0xffFFFF)
  4788.     GUICtrlCreateButton("Ascari KZ1 R Limited Edition", 5, 2, 195, 20)
  4789.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  4790.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  4791.  
  4792.     GUICtrlCreateProgress(39, 46, 100, 13)
  4793.     GUICtrlSetData(-1, 5)
  4794.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  4795.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  4796.  
  4797.     GUICtrlCreateProgress(100, 65, 100, 13)
  4798.     GUICtrlSetData(-1, $acc)
  4799.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  4800.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  4801.     GUICtrlCreateProgress(100, 87, 100, 13)
  4802.     GUICtrlSetData(-1, $spd)
  4803.     GUICtrlCreateLabel("Скорость:", 2, 87)
  4804.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  4805.     GUICtrlCreateProgress(100, 109, 100, 13)
  4806.     GUICtrlSetData(-1, $brk)
  4807.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  4808.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  4809.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  4810.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  4811.     GUICtrlCreateLabel("0-100:", 2, 155)
  4812.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  4813.     GUICtrlCreateLabel("Мощность:", 2, 177)
  4814.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  4815.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  4816.     ;
  4817.     GUICtrlCreateCheckbox(" ", 157, 192)
  4818.     GUICtrlSetState(-1, $GUI_CHECKED)
  4819.     GUICtrlCreateCheckbox(" ", 172, 192)
  4820.     GUICtrlSetState(-1, $GUI_CHECKED)
  4821.     GUICtrlCreateCheckbox(" ", 187, 192)
  4822.     GUICtrlSetState(-1, $GUI_CHECKED)
  4823.     ;
  4824.     GUISetState(@SW_SHOW, $MB300SLG)
  4825.     While 1
  4826.         $MB300SLGmsg = GUIGetMsg()
  4827.         Select
  4828.             Case $MB300SLGmsg = -3
  4829.                 GUIDelete($MB300SLG)
  4830.                 ;Exit
  4831.                 ExitLoop
  4832.         EndSelect
  4833.     WEnd
  4834. EndFunc   ;==>_MB300SLG
  4835.  
  4836.  
  4837. ;C4
  4838. ; 1967 Citroen 2 CV
  4839. Func _C2CV()
  4840.     Local $cost, $C2CV, $C2CVmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  4841.  
  4842.     $cost = ("$ -")
  4843.     $acc = ("4")
  4844.     $spd = ("6")
  4845.     $brk = ("12")
  4846.     $maxspd = ("95 км/ч")
  4847.     $100 = ("11.60 сек")
  4848.     $hp = ("18 лс")
  4849.     $perc = ("0%")
  4850.  
  4851.     $C2CV = GUICreate("C4:", 205, 215, -1, -1, -1, 0x00000080)
  4852.     GUISetBkColor(0xffFFFF)
  4853.     GUICtrlCreateButton("1967 Citroen 2 CV", 5, 2, 195, 20)
  4854.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  4855.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  4856.  
  4857.     GUICtrlCreateProgress(39, 46, 100, 13)
  4858.     GUICtrlSetData(-1, 1)
  4859.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  4860.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  4861.  
  4862.     GUICtrlCreateProgress(100, 65, 100, 13)
  4863.     GUICtrlSetData(-1, $acc)
  4864.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  4865.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  4866.     GUICtrlCreateProgress(100, 87, 100, 13)
  4867.     GUICtrlSetData(-1, $spd)
  4868.     GUICtrlCreateLabel("Скорость:", 2, 87)
  4869.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  4870.     GUICtrlCreateProgress(100, 109, 100, 13)
  4871.     GUICtrlSetData(-1, $brk)
  4872.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  4873.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  4874.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  4875.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  4876.     GUICtrlCreateLabel("0-100:", 2, 155)
  4877.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  4878.     GUICtrlCreateLabel("Мощность:", 2, 177)
  4879.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  4880.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  4881.     ;
  4882.     GUICtrlCreateCheckbox(" ", 157, 192)
  4883.     GUICtrlSetState(-1, $GUI_CHECKED)
  4884.     GUICtrlCreateCheckbox(" ", 172, 192)
  4885.     GUICtrlSetState(-1, $GUI_CHECKED)
  4886.     GUICtrlCreateCheckbox(" ", 187, 192)
  4887.     GUICtrlSetState(-1, $GUI_CHECKED)
  4888.     ;
  4889.     GUISetState(@SW_SHOW, $C2CV)
  4890.     While 1
  4891.         $C2CVmsg = GUIGetMsg()
  4892.         Select
  4893.             Case $C2CVmsg = -3
  4894.                 GUIDelete($C2CV)
  4895.                 ;Exit
  4896.                 ExitLoop
  4897.         EndSelect
  4898.     WEnd
  4899. EndFunc   ;==>_C2CV
  4900.  
  4901. ; Ford Mustang Fastback 302 CID
  4902. Func _FMF302CID()
  4903.     Local $cost, $FMF302CID, $FMF302CIDmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  4904.  
  4905.     $cost = ("$ 63 700")
  4906.     $acc = ("93")
  4907.     $spd = ("45")
  4908.     $brk = ("87")
  4909.     $maxspd = ("354 км/ч")
  4910.     $100 = ("2.90 сек")
  4911.     $hp = ("300 лс")
  4912.     $perc = ("3%")
  4913.  
  4914.     $FMF302CID = GUICreate("C4:", 205, 215, -1, -1, -1, 0x00000080)
  4915.     GUISetBkColor(0xffFFFF)
  4916.     GUICtrlCreateButton("Ford Mustang Fastback 302 CID", 5, 2, 195, 20)
  4917.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  4918.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  4919.  
  4920.     GUICtrlCreateProgress(39, 46, 100, 13)
  4921.     GUICtrlSetData(-1, 5)
  4922.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  4923.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  4924.  
  4925.     GUICtrlCreateProgress(100, 65, 100, 13)
  4926.     GUICtrlSetData(-1, $acc)
  4927.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  4928.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  4929.     GUICtrlCreateProgress(100, 87, 100, 13)
  4930.     GUICtrlSetData(-1, $spd)
  4931.     GUICtrlCreateLabel("Скорость:", 2, 87)
  4932.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  4933.     GUICtrlCreateProgress(100, 109, 100, 13)
  4934.     GUICtrlSetData(-1, $brk)
  4935.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  4936.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  4937.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  4938.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  4939.     GUICtrlCreateLabel("0-100:", 2, 155)
  4940.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  4941.     GUICtrlCreateLabel("Мощность:", 2, 177)
  4942.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  4943.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  4944.     ;
  4945.     GUICtrlCreateCheckbox(" ", 157, 192)
  4946.     GUICtrlSetState(-1, $GUI_CHECKED)
  4947.     GUICtrlCreateCheckbox(" ", 172, 192)
  4948.     GUICtrlCreateCheckbox(" ", 187, 192)
  4949.     GUICtrlSetState(-1, $GUI_CHECKED)
  4950.     ;
  4951.     GUISetState(@SW_SHOW, $FMF302CID)
  4952.     While 1
  4953.         $FMF302CIDmsg = GUIGetMsg()
  4954.         Select
  4955.             Case $FMF302CIDmsg = -3
  4956.                 GUIDelete($FMF302CID)
  4957.                 ;Exit
  4958.                 ExitLoop
  4959.         EndSelect
  4960.     WEnd
  4961. EndFunc   ;==>_FMF302CID
  4962.  
  4963. ; Lancia Delta Integrale Evoluzione
  4964. Func _LDIE()
  4965.     Local $cost, $LDIE, $LDIEmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  4966.  
  4967.     $cost = ("$ 19 600")
  4968.     $acc = ("64")
  4969.     $spd = ("37")
  4970.     $brk = ("78")
  4971.     $maxspd = ("218 км/ч")
  4972.     $100 = ("5.70 сек")
  4973.     $hp = ("215 лс")
  4974.     $perc = ("3%")
  4975.  
  4976.     $LDIE = GUICreate("C4:", 205, 215, -1, -1, -1, 0x00000080)
  4977.     GUISetBkColor(0xffFFFF)
  4978.     GUICtrlCreateButton("Lancia Delta Integrale Evoluzione", 5, 2, 195, 20)
  4979.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  4980.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  4981.  
  4982.     GUICtrlCreateProgress(39, 46, 100, 13)
  4983.     GUICtrlSetData(-1, 5)
  4984.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  4985.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  4986.  
  4987.     GUICtrlCreateProgress(100, 65, 100, 13)
  4988.     GUICtrlSetData(-1, $acc)
  4989.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  4990.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  4991.     GUICtrlCreateProgress(100, 87, 100, 13)
  4992.     GUICtrlSetData(-1, $spd)
  4993.     GUICtrlCreateLabel("Скорость:", 2, 87)
  4994.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  4995.     GUICtrlCreateProgress(100, 109, 100, 13)
  4996.     GUICtrlSetData(-1, $brk)
  4997.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  4998.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  4999.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  5000.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  5001.     GUICtrlCreateLabel("0-100:", 2, 155)
  5002.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  5003.     GUICtrlCreateLabel("Мощность:", 2, 177)
  5004.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  5005.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  5006.     ;
  5007.     GUICtrlCreateCheckbox(" ", 157, 192)
  5008.     GUICtrlSetState(-1, $GUI_CHECKED)
  5009.     GUICtrlCreateCheckbox(" ", 172, 192)
  5010.     GUICtrlCreateCheckbox(" ", 187, 192)
  5011.     GUICtrlSetState(-1, $GUI_CHECKED)
  5012.     ;
  5013.     GUISetState(@SW_SHOW, $LDIE)
  5014.     While 1
  5015.         $LDIEmsg = GUIGetMsg()
  5016.         Select
  5017.             Case $LDIEmsg = -3
  5018.                 GUIDelete($LDIE)
  5019.                 ;Exit
  5020.                 ExitLoop
  5021.         EndSelect
  5022.     WEnd
  5023. EndFunc   ;==>_LDIE
  5024.  
  5025. ; Lotus Esprit S3
  5026. Func _LES3()
  5027.     Local $cost, $LES3, $LES3msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  5028.  
  5029.     $cost = ("$ 14 700")
  5030.     $acc = ("51")
  5031.     $spd = ("36")
  5032.     $brk = ("43")
  5033.     $maxspd = ("217 км/ч")
  5034.     $100 = ("7.00 сек")
  5035.     $hp = ("160 лс")
  5036.     $perc = ("3%")
  5037.  
  5038.     $LES3 = GUICreate("C4:", 205, 215, -1, -1, -1, 0x00000080)
  5039.     GUISetBkColor(0xffFFFF)
  5040.     GUICtrlCreateButton("Lotus Esprit S3", 5, 2, 195, 20)
  5041.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  5042.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  5043.  
  5044.     GUICtrlCreateProgress(39, 46, 100, 13)
  5045.     GUICtrlSetData(-1, 5)
  5046.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  5047.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  5048.  
  5049.     GUICtrlCreateProgress(100, 65, 100, 13)
  5050.     GUICtrlSetData(-1, $acc)
  5051.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  5052.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  5053.     GUICtrlCreateProgress(100, 87, 100, 13)
  5054.     GUICtrlSetData(-1, $spd)
  5055.     GUICtrlCreateLabel("Скорость:", 2, 87)
  5056.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  5057.     GUICtrlCreateProgress(100, 109, 100, 13)
  5058.     GUICtrlSetData(-1, $brk)
  5059.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  5060.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  5061.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  5062.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  5063.     GUICtrlCreateLabel("0-100:", 2, 155)
  5064.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  5065.     GUICtrlCreateLabel("Мощность:", 2, 177)
  5066.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  5067.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  5068.     ;
  5069.     GUICtrlCreateCheckbox(" ", 157, 192)
  5070.     GUICtrlSetState(-1, $GUI_CHECKED)
  5071.     GUICtrlCreateCheckbox(" ", 172, 192)
  5072.     GUICtrlSetState(-1, $GUI_CHECKED)
  5073.     GUICtrlCreateCheckbox(" ", 187, 192)
  5074.     GUICtrlSetState(-1, $GUI_CHECKED)
  5075.     ;
  5076.     GUISetState(@SW_SHOW, $LES3)
  5077.     While 1
  5078.         $LES3msg = GUIGetMsg()
  5079.         Select
  5080.             Case $LES3msg = -3
  5081.                 GUIDelete($LES3)
  5082.                 ;Exit
  5083.                 ExitLoop
  5084.         EndSelect
  5085.     WEnd
  5086. EndFunc   ;==>_LES3
  5087.  
  5088. ; Volkswagen Beetle
  5089. Func _VB()
  5090.     Local $cost, $VB, $VBmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  5091.  
  5092.     $cost = ("$ 63 700")
  5093.     $acc = ("93")
  5094.     $spd = ("45")
  5095.     $brk = ("87")
  5096.     $maxspd = ("354 км/ч")
  5097.     $100 = ("2.90 сек")
  5098.     $hp = ("300 лс")
  5099.     $perc = ("3%")
  5100.  
  5101.     $VB = GUICreate("C4:", 205, 215, -1, -1, -1, 0x00000080)
  5102.     GUISetBkColor(0xffFFFF)
  5103.     GUICtrlCreateButton("Volkswagen Beetle", 5, 2, 195, 20)
  5104.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  5105.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  5106.  
  5107.     GUICtrlCreateProgress(39, 46, 100, 13)
  5108.     GUICtrlSetData(-1, 5)
  5109.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  5110.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  5111.  
  5112.     GUICtrlCreateProgress(100, 65, 100, 13)
  5113.     GUICtrlSetData(-1, $acc)
  5114.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  5115.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  5116.     GUICtrlCreateProgress(100, 87, 100, 13)
  5117.     GUICtrlSetData(-1, $spd)
  5118.     GUICtrlCreateLabel("Скорость:", 2, 87)
  5119.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  5120.     GUICtrlCreateProgress(100, 109, 100, 13)
  5121.     GUICtrlSetData(-1, $brk)
  5122.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  5123.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  5124.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  5125.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  5126.     GUICtrlCreateLabel("0-100:", 2, 155)
  5127.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  5128.     GUICtrlCreateLabel("Мощность:", 2, 177)
  5129.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  5130.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  5131.     ;
  5132.     GUICtrlCreateCheckbox(" ", 157, 192)
  5133.     GUICtrlSetState(-1, $GUI_CHECKED)
  5134.     GUICtrlCreateCheckbox(" ", 172, 192)
  5135.     GUICtrlCreateCheckbox(" ", 187, 192)
  5136.     GUICtrlSetState(-1, $GUI_CHECKED)
  5137.     ;
  5138.     GUISetState(@SW_SHOW, $VB)
  5139.     While 1
  5140.         $VBmsg = GUIGetMsg()
  5141.         Select
  5142.             Case $VBmsg = -3
  5143.                 GUIDelete($VB)
  5144.                 ;Exit
  5145.                 ExitLoop
  5146.         EndSelect
  5147.     WEnd
  5148. EndFunc   ;==>_VB
  5149.  
  5150.  
  5151. ;Other
  5152. ; Ferrari FXX Evoluzione
  5153. Func _FFXXE()
  5154.     Local $cost, $FFXXE, $FFXXEmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  5155.  
  5156.     $cost = ("$ -")
  5157.     $acc = ("97")
  5158.     $spd = ("68")
  5159.     $brk = ("81")
  5160.     $maxspd = ("345 км/ч")
  5161.     $100 = ("2.50 сек")
  5162.     $hp = ("860 лс")
  5163.     $perc = ("0%")
  5164.  
  5165.     $FFXXE = GUICreate("A1:", 205, 215, -1, -1, -1, 0x00000080)
  5166.     GUISetBkColor(0xffFFFF)
  5167.     GUICtrlCreateButton("Ferrari FXX Evoluzione", 5, 2, 195, 20)
  5168.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  5169.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  5170.  
  5171.     GUICtrlCreateProgress(39, 46, 100, 13)
  5172.     GUICtrlSetData(-1, 1)
  5173.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  5174.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  5175.  
  5176.     GUICtrlCreateProgress(100, 65, 100, 13)
  5177.     GUICtrlSetData(-1, $acc)
  5178.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  5179.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  5180.     GUICtrlCreateProgress(100, 87, 100, 13)
  5181.     GUICtrlSetData(-1, $spd)
  5182.     GUICtrlCreateLabel("Скорость:", 2, 87)
  5183.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  5184.     GUICtrlCreateProgress(100, 109, 100, 13)
  5185.     GUICtrlSetData(-1, $brk)
  5186.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  5187.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  5188.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  5189.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  5190.     GUICtrlCreateLabel("0-100:", 2, 155)
  5191.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  5192.     GUICtrlCreateLabel("Мощность:", 2, 177)
  5193.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  5194.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  5195.     ;
  5196.     GUICtrlCreateCheckbox(" ", 157, 192)
  5197.     GUICtrlCreateCheckbox(" ", 172, 192)
  5198.     GUICtrlCreateCheckbox(" ", 187, 192)
  5199.     ;
  5200.     GUISetState(@SW_SHOW, $FFXXE)
  5201.     While 1
  5202.         $FFXXEmsg = GUIGetMsg()
  5203.         Select
  5204.             Case $FFXXEmsg = -3
  5205.                 GUIDelete($FFXXE)
  5206.                 ;Exit
  5207.                 ExitLoop
  5208.         EndSelect
  5209.     WEnd
  5210. EndFunc   ;==>_FFXXE
  5211.  
  5212. ; GUMPERT apollo sport
  5213. Func _GAS()
  5214.     Local $cost, $GAS, $GASmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  5215.  
  5216.     $cost = ("$ -")
  5217.     $acc = ("92")
  5218.     $spd = ("72")
  5219.     $brk = ("87")
  5220.     $maxspd = ("360 км/ч")
  5221.     $100 = ("3.00 сек")
  5222.     $hp = ("690 лс")
  5223.     $perc = ("0%")
  5224.  
  5225.     $GAS = GUICreate("A1:", 205, 215, -1, -1, -1, 0x00000080)
  5226.     GUISetBkColor(0xffFFFF)
  5227.     GUICtrlCreateButton("GUMPERT apollo sport", 5, 2, 195, 20)
  5228.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  5229.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  5230.  
  5231.     GUICtrlCreateProgress(39, 46, 100, 13)
  5232.     GUICtrlSetData(-1, 1)
  5233.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  5234.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  5235.  
  5236.     GUICtrlCreateProgress(100, 65, 100, 13)
  5237.     GUICtrlSetData(-1, $acc)
  5238.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  5239.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  5240.     GUICtrlCreateProgress(100, 87, 100, 13)
  5241.     GUICtrlSetData(-1, $spd)
  5242.     GUICtrlCreateLabel("Скорость:", 2, 87)
  5243.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  5244.     GUICtrlCreateProgress(100, 109, 100, 13)
  5245.     GUICtrlSetData(-1, $brk)
  5246.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  5247.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  5248.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  5249.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  5250.     GUICtrlCreateLabel("0-100:", 2, 155)
  5251.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  5252.     GUICtrlCreateLabel("Мощность:", 2, 177)
  5253.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  5254.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  5255.     ;
  5256.     GUICtrlCreateCheckbox(" ", 157, 192)
  5257.     GUICtrlCreateCheckbox(" ", 172, 192)
  5258.     GUICtrlCreateCheckbox(" ", 187, 192)
  5259.     ;
  5260.     GUISetState(@SW_SHOW, $GAS)
  5261.     While 1
  5262.         $GASmsg = GUIGetMsg()
  5263.         Select
  5264.             Case $GASmsg = -3
  5265.                 GUIDelete($GAS)
  5266.                 ;Exit
  5267.                 ExitLoop
  5268.         EndSelect
  5269.     WEnd
  5270. EndFunc   ;==>_GAS
  5271.  
  5272. ; Lotus 2-Eleven
  5273. Func _L2E()
  5274.     Local $cost, $L2E, $L2Emsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  5275.  
  5276.     $cost = ("$ -")
  5277.     $acc = ("78")
  5278.     $spd = ("38")
  5279.     $brk = ("81")
  5280.     $maxspd = ("225 км/ч")
  5281.     $100 = ("4.30 сек")
  5282.     $hp = ("252 лс")
  5283.     $perc = ("0%")
  5284.  
  5285.     $L2E = GUICreate("A3:", 205, 215, -1, -1, -1, 0x00000080)
  5286.     GUISetBkColor(0xffFFFF)
  5287.     GUICtrlCreateButton("Lotus 2-Eleven", 5, 2, 195, 20)
  5288.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  5289.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  5290.  
  5291.     GUICtrlCreateProgress(39, 46, 100, 13)
  5292.     GUICtrlSetData(-1, 1)
  5293.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  5294.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  5295.  
  5296.     GUICtrlCreateProgress(100, 65, 100, 13)
  5297.     GUICtrlSetData(-1, $acc)
  5298.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  5299.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  5300.     GUICtrlCreateProgress(100, 87, 100, 13)
  5301.     GUICtrlSetData(-1, $spd)
  5302.     GUICtrlCreateLabel("Скорость:", 2, 87)
  5303.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  5304.     GUICtrlCreateProgress(100, 109, 100, 13)
  5305.     GUICtrlSetData(-1, $brk)
  5306.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  5307.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  5308.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  5309.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  5310.     GUICtrlCreateLabel("0-100:", 2, 155)
  5311.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  5312.     GUICtrlCreateLabel("Мощность:", 2, 177)
  5313.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  5314.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  5315.     ;
  5316.     GUICtrlCreateCheckbox(" ", 157, 192)
  5317.     GUICtrlCreateCheckbox(" ", 172, 192)
  5318.     GUICtrlCreateCheckbox(" ", 187, 192)
  5319.     ;
  5320.     GUISetState(@SW_SHOW, $L2E)
  5321.     While 1
  5322.         $L2Emsg = GUIGetMsg()
  5323.         Select
  5324.             Case $L2Emsg = -3
  5325.                 GUIDelete($L2E)
  5326.                 ;Exit
  5327.                 ExitLoop
  5328.         EndSelect
  5329.     WEnd
  5330. EndFunc   ;==>_L2E
  5331.  
  5332. ; WIESMANN ROADSTER MF3
  5333. Func _WRMF3()
  5334.     Local $cost, $WRMF3, $WRMF3msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  5335.  
  5336.     $cost = ("$ -")
  5337.     $acc = ("72")
  5338.     $spd = ("46")
  5339.     $brk = ("62")
  5340.     $maxspd = ("255 км/ч")
  5341.     $100 = ("4.90 сек")
  5342.     $hp = ("325 лс")
  5343.     $perc = ("0%")
  5344.  
  5345.     $WRMF3 = GUICreate("A4:", 205, 215, -1, -1, -1, 0x00000080)
  5346.     GUISetBkColor(0xffFFFF)
  5347.     GUICtrlCreateButton("WIESMANN ROADSTER MF3", 5, 2, 195, 20)
  5348.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  5349.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  5350.  
  5351.     GUICtrlCreateProgress(39, 46, 100, 13)
  5352.     GUICtrlSetData(-1, 1)
  5353.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  5354.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  5355.  
  5356.     GUICtrlCreateProgress(100, 65, 100, 13)
  5357.     GUICtrlSetData(-1, $acc)
  5358.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  5359.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  5360.     GUICtrlCreateProgress(100, 87, 100, 13)
  5361.     GUICtrlSetData(-1, $spd)
  5362.     GUICtrlCreateLabel("Скорость:", 2, 87)
  5363.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  5364.     GUICtrlCreateProgress(100, 109, 100, 13)
  5365.     GUICtrlSetData(-1, $brk)
  5366.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  5367.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  5368.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  5369.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  5370.     GUICtrlCreateLabel("0-100:", 2, 155)
  5371.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  5372.     GUICtrlCreateLabel("Мощность:", 2, 177)
  5373.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  5374.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  5375.     ;
  5376.     GUICtrlCreateCheckbox(" ", 157, 192)
  5377.     GUICtrlCreateCheckbox(" ", 172, 192)
  5378.     GUICtrlCreateCheckbox(" ", 187, 192)
  5379.     ;
  5380.     GUISetState(@SW_SHOW, $WRMF3)
  5381.     While 1
  5382.         $WRMF3msg = GUIGetMsg()
  5383.         Select
  5384.             Case $WRMF3msg = -3
  5385.                 GUIDelete($WRMF3)
  5386.                 ;Exit
  5387.                 ExitLoop
  5388.         EndSelect
  5389.     WEnd
  5390. EndFunc   ;==>_WRMF3
  5391.  
  5392. ; Aston Martin DBS Carbon Black Edition
  5393. Func _AMDBSCBE()
  5394.     Local $cost, $AMDBSCBE, $AMDBSCBEmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  5395.  
  5396.     $cost = ("$ -")
  5397.     $acc = ("78")
  5398.     $spd = ("59")
  5399.     $brk = ("81")
  5400.     $maxspd = ("307 км/ч")
  5401.     $100 = ("4.30 сек")
  5402.     $hp = ("510 лс")
  5403.     $perc = ("3%")
  5404.  
  5405.     $AMDBSCBE = GUICreate("A3:", 205, 215, -1, -1, -1, 0x00000080)
  5406.     GUISetBkColor(0xffFFFF)
  5407.     GUICtrlCreateButton("Aston Martin DBS Carbon Black Edition", 5, 2, 195, 20)
  5408.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  5409.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  5410.  
  5411.     GUICtrlCreateProgress(39, 46, 100, 13)
  5412.     GUICtrlSetData(-1, 5)
  5413.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  5414.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  5415.  
  5416.     GUICtrlCreateProgress(100, 65, 100, 13)
  5417.     GUICtrlSetData(-1, $acc)
  5418.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  5419.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  5420.     GUICtrlCreateProgress(100, 87, 100, 13)
  5421.     GUICtrlSetData(-1, $spd)
  5422.     GUICtrlCreateLabel("Скорость:", 2, 87)
  5423.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  5424.     GUICtrlCreateProgress(100, 109, 100, 13)
  5425.     GUICtrlSetData(-1, $brk)
  5426.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  5427.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  5428.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  5429.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  5430.     GUICtrlCreateLabel("0-100:", 2, 155)
  5431.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  5432.     GUICtrlCreateLabel("Мощность:", 2, 177)
  5433.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  5434.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  5435.     ;
  5436.     GUICtrlCreateCheckbox(" ", 157, 192)
  5437.     GUICtrlCreateCheckbox(" ", 172, 192)
  5438.     GUICtrlCreateCheckbox(" ", 187, 192)
  5439.     GUICtrlSetState(-1, $GUI_CHECKED)
  5440.     ;
  5441.     GUISetState(@SW_SHOW, $AMDBSCBE)
  5442.     While 1
  5443.         $AMDBSCBEmsg = GUIGetMsg()
  5444.         Select
  5445.             Case $AMDBSCBEmsg = -3
  5446.                 GUIDelete($AMDBSCBE)
  5447.                 ;Exit
  5448.                 ExitLoop
  5449.         EndSelect
  5450.     WEnd
  5451. EndFunc   ;==>_AMDBSCBE
  5452.  
  5453. ; Aston Martin V12 Vantage Carbon Black Edition
  5454. Func _AMV12VCBE()
  5455.     Local $cost, $AMV12VCBE, $AMV12VCBEmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  5456.  
  5457.     $cost = ("$ -")
  5458.     $acc = ("80")
  5459.     $spd = ("58")
  5460.     $brk = ("81")
  5461.     $maxspd = ("305 км/ч")
  5462.     $100 = ("4.20 сек")
  5463.     $hp = ("510 лс")
  5464.     $perc = ("0%")
  5465.  
  5466.     $AMV12VCBE = GUICreate("A2:", 205, 215, -1, -1, -1, 0x00000080)
  5467.     GUISetBkColor(0xffFFFF)
  5468.     GUICtrlCreateButton("Aston Martin V12 V Carbon Black Ed.", 5, 2, 195, 20)
  5469.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  5470.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  5471.  
  5472.     GUICtrlCreateProgress(39, 46, 100, 13)
  5473.     GUICtrlSetData(-1, 1)
  5474.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  5475.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  5476.  
  5477.     GUICtrlCreateProgress(100, 65, 100, 13)
  5478.     GUICtrlSetData(-1, $acc)
  5479.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  5480.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  5481.     GUICtrlCreateProgress(100, 87, 100, 13)
  5482.     GUICtrlSetData(-1, $spd)
  5483.     GUICtrlCreateLabel("Скорость:", 2, 87)
  5484.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  5485.     GUICtrlCreateProgress(100, 109, 100, 13)
  5486.     GUICtrlSetData(-1, $brk)
  5487.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  5488.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  5489.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  5490.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  5491.     GUICtrlCreateLabel("0-100:", 2, 155)
  5492.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  5493.     GUICtrlCreateLabel("Мощность:", 2, 177)
  5494.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  5495.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  5496.     ;
  5497.     GUICtrlCreateCheckbox(" ", 157, 192)
  5498.     GUICtrlCreateCheckbox(" ", 172, 192)
  5499.     GUICtrlCreateCheckbox(" ", 187, 192)
  5500.     GUICtrlSetState(-1, $GUI_CHECKED)
  5501.     ;
  5502.     GUISetState(@SW_SHOW, $AMV12VCBE)
  5503.     While 1
  5504.         $AMV12VCBEmsg = GUIGetMsg()
  5505.         Select
  5506.             Case $AMV12VCBEmsg = -3
  5507.                 GUIDelete($AMV12VCBE)
  5508.                 ;Exit
  5509.                 ExitLoop
  5510.         EndSelect
  5511.     WEnd
  5512. EndFunc   ;==>_AMV12VCBE
  5513.  
  5514. ; Audi RS 5 Coupe
  5515. Func _ARS5C()
  5516.     Local $cost, $ARS5C, $ARS5Cmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  5517.  
  5518.     $cost = ("$ -")
  5519.     $acc = ("75")
  5520.     $spd = ("45")
  5521.     $brk = ("56")
  5522.     $maxspd = ("250 км/ч")
  5523.     $100 = ("4.60 сек")
  5524.     $hp = ("450 лс")
  5525.     $perc = ("0%")
  5526.  
  5527.     $ARS5C = GUICreate("A5:", 205, 215, -1, -1, -1, 0x00000080)
  5528.     GUISetBkColor(0xffFFFF)
  5529.     GUICtrlCreateButton("Audi RS 5 Coupe", 5, 2, 195, 20)
  5530.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  5531.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  5532.  
  5533.     GUICtrlCreateProgress(39, 46, 100, 13)
  5534.     GUICtrlSetData(-1, 1)
  5535.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  5536.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  5537.  
  5538.     GUICtrlCreateProgress(100, 65, 100, 13)
  5539.     GUICtrlSetData(-1, $acc)
  5540.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  5541.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  5542.     GUICtrlCreateProgress(100, 87, 100, 13)
  5543.     GUICtrlSetData(-1, $spd)
  5544.     GUICtrlCreateLabel("Скорость:", 2, 87)
  5545.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  5546.     GUICtrlCreateProgress(100, 109, 100, 13)
  5547.     GUICtrlSetData(-1, $brk)
  5548.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  5549.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  5550.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  5551.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  5552.     GUICtrlCreateLabel("0-100:", 2, 155)
  5553.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  5554.     GUICtrlCreateLabel("Мощность:", 2, 177)
  5555.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  5556.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  5557.     ;
  5558.     GUICtrlCreateCheckbox(" ", 157, 192)
  5559.     GUICtrlCreateCheckbox(" ", 172, 192)
  5560.     GUICtrlCreateCheckbox(" ", 187, 192)
  5561.     GUICtrlSetState(-1, $GUI_CHECKED)
  5562.     ;
  5563.     GUISetState(@SW_SHOW, $ARS5C)
  5564.     While 1
  5565.         $ARS5Cmsg = GUIGetMsg()
  5566.         Select
  5567.             Case $ARS5Cmsg = -3
  5568.                 GUIDelete($ARS5C)
  5569.                 ;Exit
  5570.                 ExitLoop
  5571.         EndSelect
  5572.     WEnd
  5573. EndFunc   ;==>_ARS5C
  5574.  
  5575. ; Bugatti Veyron 16.4 Super Sport
  5576. Func _BV16SS()
  5577.     Local $cost, $BV16SS, $BV16SSmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  5578.  
  5579.     $cost = ("$ -")
  5580.     $acc = ("97")
  5581.     $spd = ("91")
  5582.     $brk = ("87")
  5583.     $maxspd = ("434 км/ч")
  5584.     $100 = ("2.50 сек")
  5585.     $hp = ("1200 лс")
  5586.     $perc = ("0%")
  5587.  
  5588.     $BV16SS = GUICreate("A1:", 205, 215, -1, -1, -1, 0x00000080)
  5589.     GUISetBkColor(0xffFFFF)
  5590.     GUICtrlCreateButton("Bugatti Veyron 16.4 Super Sport", 5, 2, 195, 20)
  5591.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  5592.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  5593.  
  5594.     GUICtrlCreateProgress(39, 46, 100, 13)
  5595.     GUICtrlSetData(-1, 1)
  5596.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  5597.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  5598.  
  5599.     GUICtrlCreateProgress(100, 65, 100, 13)
  5600.     GUICtrlSetData(-1, $acc)
  5601.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  5602.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  5603.     GUICtrlCreateProgress(100, 87, 100, 13)
  5604.     GUICtrlSetData(-1, $spd)
  5605.     GUICtrlCreateLabel("Скорость:", 2, 87)
  5606.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  5607.     GUICtrlCreateProgress(100, 109, 100, 13)
  5608.     GUICtrlSetData(-1, $brk)
  5609.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  5610.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  5611.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  5612.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  5613.     GUICtrlCreateLabel("0-100:", 2, 155)
  5614.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  5615.     GUICtrlCreateLabel("Мощность:", 2, 177)
  5616.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  5617.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  5618.     ;
  5619.     GUICtrlCreateCheckbox(" ", 157, 192)
  5620.     GUICtrlCreateCheckbox(" ", 172, 192)
  5621.     GUICtrlCreateCheckbox(" ", 187, 192)
  5622.     GUICtrlSetState(-1, $GUI_CHECKED)
  5623.     ;
  5624.     GUISetState(@SW_SHOW, $BV16SS)
  5625.     While 1
  5626.         $BV16SSmsg = GUIGetMsg()
  5627.         Select
  5628.             Case $BV16SSmsg = -3
  5629.                 GUIDelete($BV16SS)
  5630.                 ;Exit
  5631.                 ExitLoop
  5632.         EndSelect
  5633.     WEnd
  5634. EndFunc   ;==>_BV16SS
  5635.  
  5636. ; Catheram Superlight R500
  5637. Func _CSR500()
  5638.     Local $cost, $CSR500, $CSR500msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  5639.  
  5640.     $cost = ("$ -")
  5641.     $acc = ("93")
  5642.     $spd = ("42")
  5643.     $brk = ("72")
  5644.     $maxspd = ("241 км/ч")
  5645.     $100 = ("2.90 сек")
  5646.     $hp = ("263 лс")
  5647.     $perc = ("0%")
  5648.  
  5649.     $CSR500 = GUICreate("A4:", 205, 215, -1, -1, -1, 0x00000080)
  5650.     GUISetBkColor(0xffFFFF)
  5651.     GUICtrlCreateButton("Catheram Superlight R500", 5, 2, 195, 20)
  5652.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  5653.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  5654.  
  5655.     GUICtrlCreateProgress(39, 46, 100, 13)
  5656.     GUICtrlSetData(-1, 1)
  5657.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  5658.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  5659.  
  5660.     GUICtrlCreateProgress(100, 65, 100, 13)
  5661.     GUICtrlSetData(-1, $acc)
  5662.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  5663.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  5664.     GUICtrlCreateProgress(100, 87, 100, 13)
  5665.     GUICtrlSetData(-1, $spd)
  5666.     GUICtrlCreateLabel("Скорость:", 2, 87)
  5667.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  5668.     GUICtrlCreateProgress(100, 109, 100, 13)
  5669.     GUICtrlSetData(-1, $brk)
  5670.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  5671.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  5672.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  5673.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  5674.     GUICtrlCreateLabel("0-100:", 2, 155)
  5675.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  5676.     GUICtrlCreateLabel("Мощность:", 2, 177)
  5677.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  5678.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  5679.     ;
  5680.     GUICtrlCreateCheckbox(" ", 157, 192)
  5681.     GUICtrlCreateCheckbox(" ", 172, 192)
  5682.     GUICtrlCreateCheckbox(" ", 187, 192)
  5683.     GUICtrlSetState(-1, $GUI_CHECKED)
  5684.     ;
  5685.     GUISetState(@SW_SHOW, $CSR500)
  5686.     While 1
  5687.         $CSR500msg = GUIGetMsg()
  5688.         Select
  5689.             Case $CSR500msg = -3
  5690.                 GUIDelete($CSR500)
  5691.                 ;Exit
  5692.                 ExitLoop
  5693.         EndSelect
  5694.     WEnd
  5695. EndFunc   ;==>_CSR500
  5696.  
  5697. ; Ferrari 612 Sessanta
  5698. Func _F612SE()
  5699.     Local $cost, $F612SE, $F612SEmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  5700.  
  5701.     $cost = ("$ -")
  5702.     $acc = ("80")
  5703.     $spd = ("62")
  5704.     $brk = ("68")
  5705.     $maxspd = ("320 км/ч")
  5706.     $100 = ("4.20 сек")
  5707.     $hp = ("540 лс")
  5708.     $perc = ("0%")
  5709.  
  5710.     $F612SE = GUICreate("A3:", 205, 215, -1, -1, -1, 0x00000080)
  5711.     GUISetBkColor(0xffFFFF)
  5712.     GUICtrlCreateButton("Ferrari 612 Sessanta", 5, 2, 195, 20)
  5713.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  5714.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  5715.  
  5716.     GUICtrlCreateProgress(39, 46, 100, 13)
  5717.     GUICtrlSetData(-1, 1)
  5718.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  5719.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  5720.  
  5721.     GUICtrlCreateProgress(100, 65, 100, 13)
  5722.     GUICtrlSetData(-1, $acc)
  5723.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  5724.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  5725.     GUICtrlCreateProgress(100, 87, 100, 13)
  5726.     GUICtrlSetData(-1, $spd)
  5727.     GUICtrlCreateLabel("Скорость:", 2, 87)
  5728.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  5729.     GUICtrlCreateProgress(100, 109, 100, 13)
  5730.     GUICtrlSetData(-1, $brk)
  5731.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  5732.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  5733.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  5734.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  5735.     GUICtrlCreateLabel("0-100:", 2, 155)
  5736.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  5737.     GUICtrlCreateLabel("Мощность:", 2, 177)
  5738.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  5739.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  5740.     ;
  5741.     GUICtrlCreateCheckbox(" ", 157, 192)
  5742.     GUICtrlCreateCheckbox(" ", 172, 192)
  5743.     GUICtrlCreateCheckbox(" ", 187, 192)
  5744.     ;
  5745.     GUISetState(@SW_SHOW, $F612SE)
  5746.     While 1
  5747.         $F612SEmsg = GUIGetMsg()
  5748.         Select
  5749.             Case $F612SEmsg = -3
  5750.                 GUIDelete($F612SE)
  5751.                 ;Exit
  5752.                 ExitLoop
  5753.         EndSelect
  5754.     WEnd
  5755. EndFunc   ;==>_F612SE
  5756.  
  5757. ; Chevrolet Camaro Synergy Special Edition
  5758. Func _CCSSE()
  5759.     Local $cost, $CCSSE, $CCSSEmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  5760.  
  5761.     $cost = ("$ -")
  5762.     $acc = ("62")
  5763.     $spd = ("45")
  5764.     $brk = ("68")
  5765.     $maxspd = ("250 км/ч")
  5766.     $100 = ("5.90 сек")
  5767.     $hp = ("304 лс")
  5768.     $perc = ("0%")
  5769.  
  5770.     $CCSSE = GUICreate("A6:", 205, 215, -1, -1, -1, 0x00000080)
  5771.     GUISetBkColor(0xffFFFF)
  5772.     GUICtrlCreateButton("Chevrolet Camaro Synergy Spec Ed.", 5, 2, 195, 20)
  5773.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  5774.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  5775.  
  5776.     GUICtrlCreateProgress(39, 46, 100, 13)
  5777.     GUICtrlSetData(-1, 1)
  5778.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  5779.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  5780.  
  5781.     GUICtrlCreateProgress(100, 65, 100, 13)
  5782.     GUICtrlSetData(-1, $acc)
  5783.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  5784.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  5785.     GUICtrlCreateProgress(100, 87, 100, 13)
  5786.     GUICtrlSetData(-1, $spd)
  5787.     GUICtrlCreateLabel("Скорость:", 2, 87)
  5788.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  5789.     GUICtrlCreateProgress(100, 109, 100, 13)
  5790.     GUICtrlSetData(-1, $brk)
  5791.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  5792.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  5793.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  5794.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  5795.     GUICtrlCreateLabel("0-100:", 2, 155)
  5796.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  5797.     GUICtrlCreateLabel("Мощность:", 2, 177)
  5798.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  5799.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  5800.     ;
  5801.     GUICtrlCreateCheckbox(" ", 157, 192)
  5802.     GUICtrlCreateCheckbox(" ", 172, 192)
  5803.     GUICtrlCreateCheckbox(" ", 187, 192)
  5804.     GUICtrlSetState(-1, $GUI_CHECKED)
  5805.     ;
  5806.     GUISetState(@SW_SHOW, $CCSSE)
  5807.     While 1
  5808.         $CCSSEmsg = GUIGetMsg()
  5809.         Select
  5810.             Case $CCSSEmsg = -3
  5811.                 GUIDelete($CCSSE)
  5812.                 ;Exit
  5813.                 ExitLoop
  5814.         EndSelect
  5815.     WEnd
  5816. EndFunc   ;==>_CCSSE
  5817.  
  5818. ; Jaguar XKR Speed Pack and Black Pack
  5819. Func _JXKRSP()
  5820.     Local $cost, $JXKRSP, $JXKRSPmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  5821.  
  5822.     $cost = ("$ -")
  5823.     $acc = ("73")
  5824.     $spd = ("52")
  5825.     $brk = ("75")
  5826.     $maxspd = ("280 км/ч")
  5827.     $100 = ("4.80 сек")
  5828.     $hp = ("503 лс")
  5829.     $perc = ("0%")
  5830.  
  5831.     $JXKRSP = GUICreate("A4:", 205, 215, -1, -1, -1, 0x00000080)
  5832.     GUISetBkColor(0xffFFFF)
  5833.     GUICtrlCreateButton("Jaguar XKR Speed Pack and Black Pack", 5, 2, 195, 20)
  5834.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  5835.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  5836.  
  5837.     GUICtrlCreateProgress(39, 46, 100, 13)
  5838.     GUICtrlSetData(-1, 1)
  5839.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  5840.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  5841.  
  5842.     GUICtrlCreateProgress(100, 65, 100, 13)
  5843.     GUICtrlSetData(-1, $acc)
  5844.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  5845.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  5846.     GUICtrlCreateProgress(100, 87, 100, 13)
  5847.     GUICtrlSetData(-1, $spd)
  5848.     GUICtrlCreateLabel("Скорость:", 2, 87)
  5849.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  5850.     GUICtrlCreateProgress(100, 109, 100, 13)
  5851.     GUICtrlSetData(-1, $brk)
  5852.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  5853.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  5854.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  5855.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  5856.     GUICtrlCreateLabel("0-100:", 2, 155)
  5857.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  5858.     GUICtrlCreateLabel("Мощность:", 2, 177)
  5859.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  5860.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  5861.     ;
  5862.     GUICtrlCreateCheckbox(" ", 157, 192)
  5863.     GUICtrlCreateCheckbox(" ", 172, 192)
  5864.     GUICtrlCreateCheckbox(" ", 187, 192)
  5865.     GUICtrlSetState(-1, $GUI_CHECKED)
  5866.     ;
  5867.     GUISetState(@SW_SHOW, $JXKRSP)
  5868.     While 1
  5869.         $JXKRSPmsg = GUIGetMsg()
  5870.         Select
  5871.             Case $JXKRSPmsg = -3
  5872.                 GUIDelete($JXKRSP)
  5873.                 ;Exit
  5874.                 ExitLoop
  5875.         EndSelect
  5876.     WEnd
  5877. EndFunc   ;==>_JXKRSP
  5878.  
  5879. ; Pagani Zonda Tricolore
  5880. Func _PZT()
  5881.     Local $cost, $PZT, $PZTmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  5882.  
  5883.     $cost = ("$ -")
  5884.     $acc = ("88")
  5885.     $spd = ("70")
  5886.     $brk = ("87")
  5887.     $maxspd = ("350 км/ч")
  5888.     $100 = ("3.40 сек")
  5889.     $hp = ("658 лс")
  5890.     $perc = ("0%")
  5891.  
  5892.     $PZT = GUICreate("A1:", 205, 215, -1, -1, -1, 0x00000080)
  5893.     GUISetBkColor(0xffFFFF)
  5894.     GUICtrlCreateButton("Pagani Zonda Tricolore", 5, 2, 195, 20)
  5895.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  5896.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  5897.  
  5898.     GUICtrlCreateProgress(39, 46, 100, 13)
  5899.     GUICtrlSetData(-1, 1)
  5900.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  5901.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  5902.  
  5903.     GUICtrlCreateProgress(100, 65, 100, 13)
  5904.     GUICtrlSetData(-1, $acc)
  5905.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  5906.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  5907.     GUICtrlCreateProgress(100, 87, 100, 13)
  5908.     GUICtrlSetData(-1, $spd)
  5909.     GUICtrlCreateLabel("Скорость:", 2, 87)
  5910.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  5911.     GUICtrlCreateProgress(100, 109, 100, 13)
  5912.     GUICtrlSetData(-1, $brk)
  5913.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  5914.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  5915.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  5916.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  5917.     GUICtrlCreateLabel("0-100:", 2, 155)
  5918.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  5919.     GUICtrlCreateLabel("Мощность:", 2, 177)
  5920.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  5921.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  5922.     ;
  5923.     GUICtrlCreateCheckbox(" ", 157, 192)
  5924.     GUICtrlSetState(-1, $GUI_CHECKED)
  5925.     GUICtrlCreateCheckbox(" ", 172, 192)
  5926.     GUICtrlCreateCheckbox(" ", 187, 192)
  5927.     GUICtrlSetState(-1, $GUI_CHECKED)
  5928.     ;
  5929.     GUISetState(@SW_SHOW, $PZT)
  5930.     While 1
  5931.         $PZTmsg = GUIGetMsg()
  5932.         Select
  5933.             Case $PZTmsg = -3
  5934.                 GUIDelete($PZT)
  5935.                 ;Exit
  5936.                 ExitLoop
  5937.         EndSelect
  5938.     WEnd
  5939. EndFunc   ;==>_PZT
  5940.  
  5941. ; Audi Q7 V12 TDI quattro – TDU2 Inuit Edition
  5942. Func _AQ7V12TDIQIE()
  5943.     Local $cost, $AQ7V12TDIQIE, $AQ7V12TDIQIEmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  5944.  
  5945.     $cost = ("$ -")
  5946.     $acc = ("66")
  5947.     $spd = ("45")
  5948.     $brk = ("62")
  5949.     $maxspd = ("250 км/ч")
  5950.     $100 = ("5.50 сек")
  5951.     $hp = ("500 лс")
  5952.     $perc = ("0%")
  5953.  
  5954.     $AQ7V12TDIQIE = GUICreate("B3:", 205, 215, -1, -1, -1, 0x00000080)
  5955.     GUISetBkColor(0xffFFFF)
  5956.     GUICtrlCreateButton("Audi Q7 V12 TDI quattro Inuit Edition", 5, 2, 195, 20)
  5957.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  5958.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  5959.  
  5960.     GUICtrlCreateProgress(39, 46, 100, 13)
  5961.     GUICtrlSetData(-1, 1)
  5962.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  5963.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  5964.  
  5965.     GUICtrlCreateProgress(100, 65, 100, 13)
  5966.     GUICtrlSetData(-1, $acc)
  5967.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  5968.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  5969.     GUICtrlCreateProgress(100, 87, 100, 13)
  5970.     GUICtrlSetData(-1, $spd)
  5971.     GUICtrlCreateLabel("Скорость:", 2, 87)
  5972.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  5973.     GUICtrlCreateProgress(100, 109, 100, 13)
  5974.     GUICtrlSetData(-1, $brk)
  5975.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  5976.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  5977.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  5978.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  5979.     GUICtrlCreateLabel("0-100:", 2, 155)
  5980.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  5981.     GUICtrlCreateLabel("Мощность:", 2, 177)
  5982.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  5983.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  5984.     ;
  5985.     GUICtrlCreateCheckbox(" ", 157, 192)
  5986.     GUICtrlCreateCheckbox(" ", 172, 192)
  5987.     GUICtrlCreateCheckbox(" ", 187, 192)
  5988.     GUICtrlSetState(-1, $GUI_CHECKED)
  5989.     ;
  5990.     GUISetState(@SW_SHOW, $AQ7V12TDIQIE)
  5991.     While 1
  5992.         $AQ7V12TDIQIEmsg = GUIGetMsg()
  5993.         Select
  5994.             Case $AQ7V12TDIQIEmsg = -3
  5995.                 GUIDelete($AQ7V12TDIQIE)
  5996.                 ;Exit
  5997.                 ExitLoop
  5998.         EndSelect
  5999.     WEnd
  6000. EndFunc   ;==>_AQ7V12TDIQIE
  6001.  
  6002. ; Bugatti Veyron 16.4 Grand Sport Sang Bleu
  6003. Func _BV16GSSB()
  6004.     Local $cost, $BV16GSSB, $BV16GSSBmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  6005.  
  6006.     $cost = ("$ -")
  6007.     $acc = ("97")
  6008.     $spd = ("84")
  6009.     $brk = ("87")
  6010.     $maxspd = ("407 км/ч")
  6011.     $100 = ("2.50 сек")
  6012.     $hp = ("1001 лс")
  6013.     $perc = ("0%")
  6014.  
  6015.     $BV16GSSB = GUICreate("A1:", 205, 215, -1, -1, -1, 0x00000080)
  6016.     GUISetBkColor(0xffFFFF)
  6017.     GUICtrlCreateButton("Bugatti Veyron 16.4 GS Sang Bleu", 5, 2, 195, 20)
  6018.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  6019.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  6020.  
  6021.     GUICtrlCreateProgress(39, 46, 100, 13)
  6022.     GUICtrlSetData(-1, 1)
  6023.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  6024.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  6025.  
  6026.     GUICtrlCreateProgress(100, 65, 100, 13)
  6027.     GUICtrlSetData(-1, $acc)
  6028.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  6029.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  6030.     GUICtrlCreateProgress(100, 87, 100, 13)
  6031.     GUICtrlSetData(-1, $spd)
  6032.     GUICtrlCreateLabel("Скорость:", 2, 87)
  6033.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  6034.     GUICtrlCreateProgress(100, 109, 100, 13)
  6035.     GUICtrlSetData(-1, $brk)
  6036.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  6037.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  6038.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  6039.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  6040.     GUICtrlCreateLabel("0-100:", 2, 155)
  6041.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  6042.     GUICtrlCreateLabel("Мощность:", 2, 177)
  6043.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  6044.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  6045.     ;
  6046.     GUICtrlCreateCheckbox(" ", 157, 192)
  6047.     GUICtrlCreateCheckbox(" ", 172, 192)
  6048.     GUICtrlCreateCheckbox(" ", 187, 192)
  6049.     GUICtrlSetState(-1, $GUI_CHECKED)
  6050.     ;
  6051.     GUISetState(@SW_SHOW, $BV16GSSB)
  6052.     While 1
  6053.         $BV16GSSBmsg = GUIGetMsg()
  6054.         Select
  6055.             Case $BV16GSSBmsg = -3
  6056.                 GUIDelete($BV16GSSB)
  6057.                 ;Exit
  6058.                 ExitLoop
  6059.         EndSelect
  6060.     WEnd
  6061. EndFunc   ;==>_BV16GSSB
  6062.  
  6063. ; Bugatti Veyron 16.4 Centenaire
  6064. Func _BV16C()
  6065.     Local $cost, $BV16C, $BV16Cmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  6066.  
  6067.     $cost = ("$ -")
  6068.     $acc = ("97")
  6069.     $spd = ("84")
  6070.     $brk = ("87")
  6071.     $maxspd = ("407 км/ч")
  6072.     $100 = ("2.50 сек")
  6073.     $hp = ("1001 лс")
  6074.     $perc = ("0%")
  6075.  
  6076.     $BV16C = GUICreate("A1:", 205, 215, -1, -1, -1, 0x00000080)
  6077.     GUISetBkColor(0xffFFFF)
  6078.     GUICtrlCreateButton("Bugatti Veyron 16.4 Centenaire", 5, 2, 195, 20)
  6079.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  6080.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  6081.  
  6082.     GUICtrlCreateProgress(39, 46, 100, 13)
  6083.     GUICtrlSetData(-1, 1)
  6084.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  6085.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  6086.  
  6087.     GUICtrlCreateProgress(100, 65, 100, 13)
  6088.     GUICtrlSetData(-1, $acc)
  6089.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  6090.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  6091.     GUICtrlCreateProgress(100, 87, 100, 13)
  6092.     GUICtrlSetData(-1, $spd)
  6093.     GUICtrlCreateLabel("Скорость:", 2, 87)
  6094.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  6095.     GUICtrlCreateProgress(100, 109, 100, 13)
  6096.     GUICtrlSetData(-1, $brk)
  6097.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  6098.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  6099.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  6100.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  6101.     GUICtrlCreateLabel("0-100:", 2, 155)
  6102.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  6103.     GUICtrlCreateLabel("Мощность:", 2, 177)
  6104.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  6105.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  6106.     ;
  6107.     GUICtrlCreateCheckbox(" ", 157, 192)
  6108.     GUICtrlCreateCheckbox(" ", 172, 192)
  6109.     GUICtrlCreateCheckbox(" ", 187, 192)
  6110.     GUICtrlSetState(-1, $GUI_CHECKED)
  6111.     ;
  6112.     GUISetState(@SW_SHOW, $BV16C)
  6113.     While 1
  6114.         $BV16Cmsg = GUIGetMsg()
  6115.         Select
  6116.             Case $BV16Cmsg = -3
  6117.                 GUIDelete($BV16C)
  6118.                 ;Exit
  6119.                 ExitLoop
  6120.         EndSelect
  6121.     WEnd
  6122. EndFunc   ;==>_BV16C
  6123.  
  6124. ; Ferrari 599 GTB Fiorano China Edition
  6125. Func _F599GTBFCE()
  6126.     Local $cost, $F599GTBFCE, $F599GTBFCEmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  6127.  
  6128.     $cost = ("$ -")
  6129.     $acc = ("85")
  6130.     $spd = ("65")
  6131.     $brk = ("76")
  6132.     $maxspd = ("330 км/ч")
  6133.     $100 = ("3.70 сек")
  6134.     $hp = ("620 лс")
  6135.     $perc = ("0%")
  6136.  
  6137.     $F599GTBFCE = GUICreate("A2:", 205, 215, -1, -1, -1, 0x00000080)
  6138.     GUISetBkColor(0xffFFFF)
  6139.     GUICtrlCreateButton("Ferrari 599 GTB Fiorano China Edition", 5, 2, 195, 20)
  6140.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  6141.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  6142.  
  6143.     GUICtrlCreateProgress(39, 46, 100, 13)
  6144.     GUICtrlSetData(-1, 1)
  6145.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  6146.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  6147.  
  6148.     GUICtrlCreateProgress(100, 65, 100, 13)
  6149.     GUICtrlSetData(-1, $acc)
  6150.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  6151.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  6152.     GUICtrlCreateProgress(100, 87, 100, 13)
  6153.     GUICtrlSetData(-1, $spd)
  6154.     GUICtrlCreateLabel("Скорость:", 2, 87)
  6155.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  6156.     GUICtrlCreateProgress(100, 109, 100, 13)
  6157.     GUICtrlSetData(-1, $brk)
  6158.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  6159.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  6160.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  6161.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  6162.     GUICtrlCreateLabel("0-100:", 2, 155)
  6163.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  6164.     GUICtrlCreateLabel("Мощность:", 2, 177)
  6165.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  6166.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  6167.     ;
  6168.     GUICtrlCreateCheckbox(" ", 157, 192)
  6169.     GUICtrlCreateCheckbox(" ", 172, 192)
  6170.     GUICtrlCreateCheckbox(" ", 187, 192)
  6171.     ;
  6172.     GUISetState(@SW_SHOW, $F599GTBFCE)
  6173.     While 1
  6174.         $F599GTBFCEmsg = GUIGetMsg()
  6175.         Select
  6176.             Case $F599GTBFCEmsg = -3
  6177.                 GUIDelete($F599GTBFCE)
  6178.                 ;Exit
  6179.                 ExitLoop
  6180.         EndSelect
  6181.     WEnd
  6182. EndFunc   ;==>_F599GTBFCE
  6183.  
  6184. ; Nissan 370Z Optional Parts
  6185. Func _N370ZOP()
  6186.     Local $cost, $N370ZOP, $N370ZOPmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  6187.  
  6188.     $cost = ("$ -")
  6189.     $acc = ("65")
  6190.     $spd = ("45")
  6191.     $brk = ("50")
  6192.     $maxspd = ("- км/ч")
  6193.     $100 = ("- сек")
  6194.     $hp = ("332 лс")
  6195.     $perc = ("0%")
  6196.  
  6197.     $N370ZOP = GUICreate("A6:", 205, 215, -1, -1, -1, 0x00000080)
  6198.     GUISetBkColor(0xffFFFF)
  6199.     GUICtrlCreateButton("Nissan 370Z Optional Parts", 5, 2, 195, 20)
  6200.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  6201.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  6202.  
  6203.     GUICtrlCreateProgress(39, 46, 100, 13)
  6204.     GUICtrlSetData(-1, 1)
  6205.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  6206.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  6207.  
  6208.     GUICtrlCreateProgress(100, 65, 100, 13)
  6209.     GUICtrlSetData(-1, $acc)
  6210.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  6211.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  6212.     GUICtrlCreateProgress(100, 87, 100, 13)
  6213.     GUICtrlSetData(-1, $spd)
  6214.     GUICtrlCreateLabel("Скорость:", 2, 87)
  6215.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  6216.     GUICtrlCreateProgress(100, 109, 100, 13)
  6217.     GUICtrlSetData(-1, $brk)
  6218.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  6219.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  6220.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  6221.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  6222.     GUICtrlCreateLabel("0-100:", 2, 155)
  6223.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  6224.     GUICtrlCreateLabel("Мощность:", 2, 177)
  6225.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  6226.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  6227.     ;
  6228.     GUICtrlCreateCheckbox(" ", 157, 192)
  6229.     GUICtrlCreateCheckbox(" ", 172, 192)
  6230.     GUICtrlCreateCheckbox(" ", 187, 192)
  6231.     GUICtrlSetState(-1, $GUI_CHECKED)
  6232.     ;
  6233.     GUISetState(@SW_SHOW, $N370ZOP)
  6234.     While 1
  6235.         $N370ZOPmsg = GUIGetMsg()
  6236.         Select
  6237.             Case $N370ZOPmsg = -3
  6238.                 GUIDelete($N370ZOP)
  6239.                 ;Exit
  6240.                 ExitLoop
  6241.         EndSelect
  6242.     WEnd
  6243. EndFunc   ;==>_N370ZOP
  6244.  
  6245.  
  6246. ; Casino
  6247. ; Audi R8 Spyder  5.2 FSI quattro
  6248. Func _AR8SQ()
  6249.     Local $cost, $AR8SQ, $AR8SQmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  6250.  
  6251.     $cost = ("$ 2 000 000")
  6252.     $acc = ("80")
  6253.     $spd = ("60")
  6254.     $brk = ("100")
  6255.     $maxspd = ("313 км/ч")
  6256.     $100 = ("4.20 сек")
  6257.     $hp = ("510 лс")
  6258.     $perc = ("0%")
  6259.  
  6260.     $AR8SQ = GUICreate("A2:", 205, 215, -1, -1, -1, 0x00000080)
  6261.     GUISetBkColor(0xffFFFF)
  6262.     GUICtrlCreateButton("Audi R8 Spyder  5.2 FSI quattro", 5, 2, 195, 20)
  6263.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  6264.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  6265.  
  6266.     GUICtrlCreateProgress(39, 46, 100, 13)
  6267.     GUICtrlSetData(-1, 1)
  6268.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  6269.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  6270.  
  6271.     GUICtrlCreateProgress(100, 65, 100, 13)
  6272.     GUICtrlSetData(-1, $acc)
  6273.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  6274.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  6275.     GUICtrlCreateProgress(100, 87, 100, 13)
  6276.     GUICtrlSetData(-1, $spd)
  6277.     GUICtrlCreateLabel("Скорость:", 2, 87)
  6278.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  6279.     GUICtrlCreateProgress(100, 109, 100, 13)
  6280.     GUICtrlSetData(-1, $brk)
  6281.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  6282.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  6283.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  6284.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  6285.     GUICtrlCreateLabel("0-100:", 2, 155)
  6286.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  6287.     GUICtrlCreateLabel("Мощность:", 2, 177)
  6288.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  6289.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  6290.     ;
  6291.     GUICtrlCreateCheckbox(" ", 157, 192)
  6292.     GUICtrlSetState(-1, $GUI_CHECKED)
  6293.     GUICtrlCreateCheckbox(" ", 172, 192)
  6294.     GUICtrlSetState(-1, $GUI_CHECKED)
  6295.     GUICtrlCreateCheckbox(" ", 187, 192)
  6296.     GUICtrlSetState(-1, $GUI_CHECKED)
  6297.     ;
  6298.     GUISetState(@SW_SHOW, $AR8SQ)
  6299.     While 1
  6300.         $AR8SQmsg = GUIGetMsg()
  6301.         Select
  6302.             Case $AR8SQmsg = -3
  6303.                 GUIDelete($AR8SQ)
  6304.                 ;Exit
  6305.                 ExitLoop
  6306.         EndSelect
  6307.     WEnd
  6308. EndFunc   ;==>_AR8SQ
  6309.  
  6310. ; Spyker C8 Aileron Spyder
  6311. Func _SC8AS()
  6312.     Local $cost, $SC8AS, $SC8ASmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  6313.  
  6314.     $cost = ("$ 1 000 000")
  6315.     $acc = ("76")
  6316.     $spd = ("57")
  6317.     $brk = ("78")
  6318.     $maxspd = ("300 км/ч")
  6319.     $100 = ("4.50 сек")
  6320.     $hp = ("400 лс")
  6321.     $perc = ("0%")
  6322.  
  6323.     $SC8AS = GUICreate("A3:", 205, 215, -1, -1, -1, 0x00000080)
  6324.     GUISetBkColor(0xffFFFF)
  6325.     GUICtrlCreateButton("Spyker C8 Aileron Spyder", 5, 2, 195, 20)
  6326.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  6327.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  6328.  
  6329.     GUICtrlCreateProgress(39, 46, 100, 13)
  6330.     GUICtrlSetData(-1, 1)
  6331.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  6332.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  6333.  
  6334.     GUICtrlCreateProgress(100, 65, 100, 13)
  6335.     GUICtrlSetData(-1, $acc)
  6336.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  6337.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  6338.     GUICtrlCreateProgress(100, 87, 100, 13)
  6339.     GUICtrlSetData(-1, $spd)
  6340.     GUICtrlCreateLabel("Скорость:", 2, 87)
  6341.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  6342.     GUICtrlCreateProgress(100, 109, 100, 13)
  6343.     GUICtrlSetData(-1, $brk)
  6344.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  6345.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  6346.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  6347.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  6348.     GUICtrlCreateLabel("0-100:", 2, 155)
  6349.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  6350.     GUICtrlCreateLabel("Мощность:", 2, 177)
  6351.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  6352.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  6353.     ;
  6354.     GUICtrlCreateCheckbox(" ", 157, 192)
  6355.     GUICtrlSetState(-1, $GUI_CHECKED)
  6356.     GUICtrlCreateCheckbox(" ", 172, 192)
  6357.     GUICtrlSetState(-1, $GUI_CHECKED)
  6358.     GUICtrlCreateCheckbox(" ", 187, 192)
  6359.     GUICtrlSetState(-1, $GUI_CHECKED)
  6360.     ;
  6361.     GUISetState(@SW_SHOW, $SC8AS)
  6362.     While 1
  6363.         $SC8ASmsg = GUIGetMsg()
  6364.         Select
  6365.             Case $SC8ASmsg = -3
  6366.                 GUIDelete($SC8AS)
  6367.                 ;Exit
  6368.                 ExitLoop
  6369.         EndSelect
  6370.     WEnd
  6371. EndFunc   ;==>_SC8AS
  6372.  
  6373. ; Other
  6374. ; Spyker C8 Aileron Coupe
  6375. Func _SC8AC()
  6376.     Local $cost, $SC8AC, $SC8ACmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  6377.  
  6378.     $cost = ("$ 196 000")
  6379.     $acc = ("76")
  6380.     $spd = ("60")
  6381.     $brk = ("78")
  6382.     $maxspd = ("- км/ч")
  6383.     $100 = ("- сек")
  6384.     $hp = ("400 лс")
  6385.     $perc = ("0%")
  6386.  
  6387.     $SC8AC = GUICreate("A3:", 205, 215, -1, -1, -1, 0x00000080)
  6388.     GUISetBkColor(0xffFFFF)
  6389.     GUICtrlCreateButton("Spyker C8 Aileron Coupe", 5, 2, 195, 20)
  6390.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  6391.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  6392.  
  6393.     GUICtrlCreateProgress(39, 46, 100, 13)
  6394.     GUICtrlSetData(-1, 1)
  6395.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  6396.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  6397.  
  6398.     GUICtrlCreateProgress(100, 65, 100, 13)
  6399.     GUICtrlSetData(-1, $acc)
  6400.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  6401.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  6402.     GUICtrlCreateProgress(100, 87, 100, 13)
  6403.     GUICtrlSetData(-1, $spd)
  6404.     GUICtrlCreateLabel("Скорость:", 2, 87)
  6405.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  6406.     GUICtrlCreateProgress(100, 109, 100, 13)
  6407.     GUICtrlSetData(-1, $brk)
  6408.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  6409.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  6410.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  6411.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  6412.     GUICtrlCreateLabel("0-100:", 2, 155)
  6413.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  6414.     GUICtrlCreateLabel("Мощность:", 2, 177)
  6415.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  6416.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  6417.     ;
  6418.     GUICtrlCreateCheckbox(" ", 157, 192)
  6419.     GUICtrlSetState(-1, $GUI_CHECKED)
  6420.     GUICtrlCreateCheckbox(" ", 172, 192)
  6421.     GUICtrlSetState(-1, $GUI_CHECKED)
  6422.     GUICtrlCreateCheckbox(" ", 187, 192)
  6423.     GUICtrlSetState(-1, $GUI_CHECKED)
  6424.     ;
  6425.     GUISetState(@SW_SHOW, $SC8AC)
  6426.     While 1
  6427.         $SC8ACmsg = GUIGetMsg()
  6428.         Select
  6429.             Case $SC8ACmsg = -3
  6430.                 GUIDelete($SC8AC)
  6431.                 ;Exit
  6432.                 ExitLoop
  6433.         EndSelect
  6434.     WEnd
  6435. EndFunc   ;==>_SC8AC
  6436.  
  6437. ; Hot Rod
  6438. Func _HR()
  6439.     Local $cost, $HR, $HRmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  6440.  
  6441.     $cost = ("$ -")
  6442.     $acc = ("68")
  6443.     $spd = ("40")
  6444.     $brk = ("86")
  6445.     $maxspd = ("231 км/ч")
  6446.     $100 = ("5.36 сек")
  6447.     $hp = ("227 лс")
  6448.     $perc = ("0%")
  6449.  
  6450.     $HR = GUICreate("C4:", 205, 215, -1, -1, -1, 0x00000080)
  6451.     GUISetBkColor(0xffFFFF)
  6452.     GUICtrlCreateButton("Hot Rod", 5, 2, 195, 20)
  6453.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  6454.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  6455.  
  6456.     GUICtrlCreateProgress(39, 46, 100, 13)
  6457.     GUICtrlSetData(-1, 1)
  6458.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  6459.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  6460.  
  6461.     GUICtrlCreateProgress(100, 65, 100, 13)
  6462.     GUICtrlSetData(-1, $acc)
  6463.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  6464.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  6465.     GUICtrlCreateProgress(100, 87, 100, 13)
  6466.     GUICtrlSetData(-1, $spd)
  6467.     GUICtrlCreateLabel("Скорость:", 2, 87)
  6468.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  6469.     GUICtrlCreateProgress(100, 109, 100, 13)
  6470.     GUICtrlSetData(-1, $brk)
  6471.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  6472.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  6473.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  6474.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  6475.     GUICtrlCreateLabel("0-100:", 2, 155)
  6476.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  6477.     GUICtrlCreateLabel("Мощность:", 2, 177)
  6478.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  6479.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  6480.     ;
  6481.     GUICtrlCreateCheckbox(" ", 157, 192)
  6482.     GUICtrlSetState(-1, $GUI_CHECKED)
  6483.     GUICtrlCreateCheckbox(" ", 172, 192)
  6484.     GUICtrlSetState(-1, $GUI_CHECKED)
  6485.     GUICtrlCreateCheckbox(" ", 187, 192)
  6486.     GUICtrlSetState(-1, $GUI_CHECKED)
  6487.     ;
  6488.     GUISetState(@SW_SHOW, $HR)
  6489.     While 1
  6490.         $HRmsg = GUIGetMsg()
  6491.         Select
  6492.             Case $HRmsg = -3
  6493.                 GUIDelete($HR)
  6494.                 ;Exit
  6495.                 ExitLoop
  6496.         EndSelect
  6497.     WEnd
  6498. EndFunc   ;==>_HR
  6499.  
  6500. ; Audi R8 quattro R Tronic
  6501. Func _AR8QRT()
  6502.     Local $cost, $AR8QRT, $AR8QRTmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  6503.  
  6504.     $cost = ("$ -")
  6505.     $acc = ("75")
  6506.     $spd = ("57")
  6507.     $brk = ("75")
  6508.     $maxspd = ("301 км/ч")
  6509.     $100 = ("4.60 сек")
  6510.     $hp = ("420 лс")
  6511.     $perc = ("0%")
  6512.  
  6513.     $AR8QRT = GUICreate("A3:", 205, 215, -1, -1, -1, 0x00000080)
  6514.     GUISetBkColor(0xffFFFF)
  6515.     GUICtrlCreateButton("Audi R8 quattro R Tronic", 5, 2, 195, 20)
  6516.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  6517.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  6518.  
  6519.     GUICtrlCreateProgress(39, 46, 100, 13)
  6520.     GUICtrlSetData(-1, 1)
  6521.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  6522.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  6523.  
  6524.     GUICtrlCreateProgress(100, 65, 100, 13)
  6525.     GUICtrlSetData(-1, $acc)
  6526.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  6527.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  6528.     GUICtrlCreateProgress(100, 87, 100, 13)
  6529.     GUICtrlSetData(-1, $spd)
  6530.     GUICtrlCreateLabel("Скорость:", 2, 87)
  6531.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  6532.     GUICtrlCreateProgress(100, 109, 100, 13)
  6533.     GUICtrlSetData(-1, $brk)
  6534.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  6535.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  6536.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  6537.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  6538.     GUICtrlCreateLabel("0-100:", 2, 155)
  6539.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  6540.     GUICtrlCreateLabel("Мощность:", 2, 177)
  6541.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  6542.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  6543.     ;
  6544.     GUICtrlCreateCheckbox(" ", 157, 192)
  6545.     GUICtrlSetState(-1, $GUI_CHECKED)
  6546.     GUICtrlCreateCheckbox(" ", 172, 192)
  6547.     GUICtrlSetState(-1, $GUI_CHECKED)
  6548.     GUICtrlCreateCheckbox(" ", 187, 192)
  6549.     GUICtrlSetState(-1, $GUI_CHECKED)
  6550.     ;
  6551.     GUISetState(@SW_SHOW, $AR8QRT)
  6552.     While 1
  6553.         $AR8QRTmsg = GUIGetMsg()
  6554.         Select
  6555.             Case $AR8QRTmsg = -3
  6556.                 GUIDelete($AR8QRT)
  6557.                 ;Exit
  6558.                 ExitLoop
  6559.         EndSelect
  6560.     WEnd
  6561. EndFunc   ;==>_AR8QRT
  6562.  
  6563. ; Ford Mustang Shelby GT500
  6564. Func _FMSGT500()
  6565.     Local $cost, $FMSGT500, $FMSGT500msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  6566.  
  6567.     $cost = ("$ -")
  6568.     $acc = ("77")
  6569.     $spd = ("47")
  6570.     $brk = ("50")
  6571.     $maxspd = ("260 км/ч")
  6572.     $100 = ("4.40 сек")
  6573.     $hp = ("550 лс")
  6574.     $perc = ("0%")
  6575.  
  6576.     $FMSGT500 = GUICreate("A4:", 205, 215, -1, -1, -1, 0x00000080)
  6577.     GUISetBkColor(0xffFFFF)
  6578.     GUICtrlCreateButton("Ford Mustang Shelby GT500", 5, 2, 195, 20)
  6579.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  6580.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  6581.  
  6582.     GUICtrlCreateProgress(39, 46, 100, 13)
  6583.     GUICtrlSetData(-1, 1)
  6584.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  6585.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  6586.  
  6587.     GUICtrlCreateProgress(100, 65, 100, 13)
  6588.     GUICtrlSetData(-1, $acc)
  6589.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  6590.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  6591.     GUICtrlCreateProgress(100, 87, 100, 13)
  6592.     GUICtrlSetData(-1, $spd)
  6593.     GUICtrlCreateLabel("Скорость:", 2, 87)
  6594.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  6595.     GUICtrlCreateProgress(100, 109, 100, 13)
  6596.     GUICtrlSetData(-1, $brk)
  6597.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  6598.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  6599.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  6600.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  6601.     GUICtrlCreateLabel("0-100:", 2, 155)
  6602.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  6603.     GUICtrlCreateLabel("Мощность:", 2, 177)
  6604.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  6605.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  6606.     ;
  6607.     GUICtrlCreateCheckbox(" ", 157, 192)
  6608.     GUICtrlCreateCheckbox(" ", 172, 192)
  6609.     GUICtrlCreateCheckbox(" ", 187, 192)
  6610.     GUICtrlSetState(-1, $GUI_CHECKED)
  6611.     ;
  6612.     GUISetState(@SW_SHOW, $FMSGT500)
  6613.     While 1
  6614.         $FMSGT500msg = GUIGetMsg()
  6615.         Select
  6616.             Case $FMSGT500msg = -3
  6617.                 GUIDelete($FMSGT500)
  6618.                 ;Exit
  6619.                 ExitLoop
  6620.         EndSelect
  6621.     WEnd
  6622. EndFunc   ;==>_FMSGT500
  6623.  
  6624. ; The Exploration Pack
  6625. ; Lancia Stratos Groupe 4
  6626. Func _LSG4()
  6627.     Local $cost, $LSG4, $LSG4msg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  6628.  
  6629.     $cost = ("$ -")
  6630.     $acc = ("77")
  6631.     $spd = ("34")
  6632.     $brk = ("100")
  6633.     $maxspd = ("206 км/ч")
  6634.     $100 = ("4.42 сек")
  6635.     $hp = ("302 лс")
  6636.     $perc = ("0%")
  6637.  
  6638.     $LSG4 = GUICreate("C3:", 205, 215, -1, -1, -1, 0x00000080)
  6639.     GUISetBkColor(0xffFFFF)
  6640.     GUICtrlCreateButton("Lancia Stratos Groupe 4", 5, 2, 195, 20)
  6641.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  6642.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  6643.  
  6644.     GUICtrlCreateProgress(39, 46, 100, 13)
  6645.     GUICtrlSetData(-1, 1)
  6646.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  6647.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  6648.  
  6649.     GUICtrlCreateProgress(100, 65, 100, 13)
  6650.     GUICtrlSetData(-1, $acc)
  6651.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  6652.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  6653.     GUICtrlCreateProgress(100, 87, 100, 13)
  6654.     GUICtrlSetData(-1, $spd)
  6655.     GUICtrlCreateLabel("Скорость:", 2, 87)
  6656.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  6657.     GUICtrlCreateProgress(100, 109, 100, 13)
  6658.     GUICtrlSetData(-1, $brk)
  6659.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  6660.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  6661.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  6662.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  6663.     GUICtrlCreateLabel("0-100:", 2, 155)
  6664.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  6665.     GUICtrlCreateLabel("Мощность:", 2, 177)
  6666.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  6667.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  6668.     ;
  6669.     GUICtrlCreateCheckbox(" ", 157, 192)
  6670.     GUICtrlSetState(-1, $GUI_CHECKED)
  6671.     GUICtrlCreateCheckbox(" ", 172, 192)
  6672.     GUICtrlSetState(-1, $GUI_CHECKED)
  6673.     GUICtrlCreateCheckbox(" ", 187, 192)
  6674.     GUICtrlSetState(-1, $GUI_CHECKED)
  6675.     ;
  6676.     GUISetState(@SW_SHOW, $LSG4)
  6677.     While 1
  6678.         $LSG4msg = GUIGetMsg()
  6679.         Select
  6680.             Case $LSG4msg = -3
  6681.                 GUIDelete($LSG4)
  6682.                 ;Exit
  6683.                 ExitLoop
  6684.         EndSelect
  6685.     WEnd
  6686. EndFunc   ;==>_LSG4
  6687.  
  6688. ; Dodge Charger RT
  6689. Func _DCRT()
  6690.     Local $cost, $DCRT, $DCRTmsg, $acc, $spd, $brk, $maxspd, $100, $hp, $perc
  6691.  
  6692.     $cost = ("$ -")
  6693.     $acc = ("66")
  6694.     $spd = ("45")
  6695.     $brk = ("28")
  6696.     $maxspd = ("251 км/ч")
  6697.     $100 = ("5.52 сек")
  6698.     $hp = ("459 лс")
  6699.     $perc = ("0%")
  6700.  
  6701.     $DCRT = GUICreate("C3:", 205, 215, -1, -1, -1, 0x00000080)
  6702.     GUISetBkColor(0xffFFFF)
  6703.     GUICtrlCreateButton("Dodge Charger RT", 5, 2, 195, 20)
  6704.     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  6705.     GUICtrlCreateButton($cost, 69, 24, 65, 20)
  6706.  
  6707.     GUICtrlCreateProgress(39, 46, 100, 13)
  6708.     GUICtrlSetData(-1, 1)
  6709.     GUICtrlCreateButton($perc, 5, 42, 34, 20)
  6710.     GUICtrlSetTip(-1, "Процент от стоимости самой дорогой машины класса")
  6711.  
  6712.     GUICtrlCreateProgress(100, 65, 100, 13)
  6713.     GUICtrlSetData(-1, $acc)
  6714.     GUICtrlCreateLabel("Ускорение:", 2, 65)
  6715.     GUICtrlCreateButton($acc, 76, 62, 24, 20)
  6716.     GUICtrlCreateProgress(100, 87, 100, 13)
  6717.     GUICtrlSetData(-1, $spd)
  6718.     GUICtrlCreateLabel("Скорость:", 2, 87)
  6719.     GUICtrlCreateButton($spd, 76, 84, 24, 20)
  6720.     GUICtrlCreateProgress(100, 109, 100, 13)
  6721.     GUICtrlSetData(-1, $brk)
  6722.     GUICtrlCreateLabel("Тормоза:", 2, 109)
  6723.     GUICtrlCreateButton($brk, 76, 106, 24, 20)
  6724.     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  6725.     GUICtrlCreateButton($maxspd, 95, 130, 52, 20)
  6726.     GUICtrlCreateLabel("0-100:", 2, 155)
  6727.     GUICtrlCreateButton($100, 95, 152, 52, 20)
  6728.     GUICtrlCreateLabel("Мощность:", 2, 177)
  6729.     GUICtrlCreateButton($hp, 95, 174, 52, 20)
  6730.     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  6731.     ;
  6732.     GUICtrlCreateCheckbox(" ", 157, 192)
  6733.     GUICtrlSetState(-1, $GUI_CHECKED)
  6734.     GUICtrlCreateCheckbox(" ", 172, 192)
  6735.     GUICtrlSetState(-1, $GUI_CHECKED)
  6736.     GUICtrlCreateCheckbox(" ", 187, 192)
  6737.     GUICtrlSetState(-1, $GUI_CHECKED)
  6738.     ;
  6739.     GUISetState(@SW_SHOW, $DCRT)
  6740.     While 1
  6741.         $DCRTmsg = GUIGetMsg()
  6742.         Select
  6743.             Case $DCRTmsg = -3
  6744.                 GUIDelete($DCRT)
  6745.                 ;Exit
  6746.                 ExitLoop
  6747.         EndSelect
  6748.     WEnd
  6749. EndFunc   ;==>_DCRT
  6750. ;
  6751. ; Chevrolet Corvette ZR1
  6752. ; Dodge Viper SRT10 ACR
  6753. ; Mercedes-Benz SL 65 AMG Black Series
  6754. ; Ferrari 599XX
  6755. ; Nissan 370Z Nismo
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!