API tools faq
paste
Shadowcat

TDU2 Helper

Shadowcat
Apr 2nd, 2011
348
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 19.04 KB | None | 0 0
raw download clone embed print report
  1. #region ;**** Directives created by AutoIt3Wrapper_GUI ****
  2. #AutoIt3Wrapper_icon=logo-paul.ico
  3. #AutoIt3Wrapper_Compression=3
  4. #AutoIt3Wrapper_Res_Comment=Created by Gendel Vladimyr  aka Shadowcat [NG]
  5. #AutoIt3Wrapper_Res_Description=Test Drive Unlimited 2 Helper
  6. #AutoIt3Wrapper_Res_Fileversion=1.0.0.8
  7. #AutoIt3Wrapper_Res_Icon_Add=lo go.ico
  8. #endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
  9.  
  10. ;#include <ButtonConstants.au3>
  11. #include <GUIConstantsEx.au3>
  12. #include <EditConstants.au3>
  13.  
  14. #include <Text.au3>
  15. ;Только для теста!
  16. ;В файле Text_Lite.au3 текст, используемый в прогамме усечен.
  17. ;Тестеы могут закомментировать предыдущую строку
  18. ;и откомментировать эту:
  19. ;#include <Text_Lite.au3>
  20.  
  21.  
  22. ; Основное окно
  23. $mainwindow = GUICreate("TDU2 Helper", 280, 265)
  24. GUICtrlSetColor(-1, 0xffffff)
  25. GUISetBkColor(0xffFFFF)
  26. $Icon = GUICtrlCreateIcon("", 0, 10, 10, 255, 82)
  27. GUICtrlSetImage($Icon, @ScriptFullPath, 201)
  28. $1button = GUICtrlCreateButton("Просмотр по маркам", 10, 110, 260, 25)
  29. GUICtrlSetTip(-1, "Просмотр автомобилей по маркам")
  30. $2button = GUICtrlCreateButton("Просмотр по категориям", 10, 140, 260, 25)
  31. GUICtrlSetTip(-1, "Просмотр автомобилей по категориям")
  32. $3button = GUICtrlCreateButton("Тесты машин", 10, 170, 260, 25)
  33. $helpbutton = GUICtrlCreateButton("Помощь по игре", 10, 200, 260, 25)
  34. $4button = GUICtrlCreateButton("О программе", 10, 230, 260, 25)
  35. GUICtrlSetTip(-1, "О программе")
  36. GUISwitch($mainwindow)
  37. GUISetState(@SW_SHOW)
  38. ; Основной цикл
  39. While 1
  40.     $msg = GUIGetMsg()
  41.     Select
  42.         Case $msg = $1button
  43.             ;Окно Просмотра по маркам
  44.             $secondwindow = GUICreate("Просмотр автомобилей по маркам", 270, 370)
  45.             GUISetBkColor(0xffFFFF)
  46.             $5button = GUICtrlCreateButton("Alfa Romeo", 10, 10, 120, 30)
  47.             $6button = GUICtrlCreateButton("Ariel Atom", 10, 50, 120, 30)
  48.             $7button = GUICtrlCreateButton("Ascari", 10, 90, 120, 30)
  49.             $8button = GUICtrlCreateButton("Audi", 10, 130, 120, 30)
  50.             $9button = GUICtrlCreateButton("Bugatti", 10, 170, 120, 30)
  51.             $10button = GUICtrlCreateButton("Catterham", 10, 210, 120, 30)
  52.             $11button = GUICtrlCreateButton("Chevrolet", 10, 250, 120, 30)
  53.             $12button = GUICtrlCreateButton("Dodge", 10, 290, 120, 30)
  54.             $13button = GUICtrlCreateButton("Ford", 10, 330, 120, 30)
  55.             $15button = GUICtrlCreateButton("HUMMER", 140, 10, 120, 30)
  56.             $16button = GUICtrlCreateButton("Koenigsegg", 140, 50, 120, 30)
  57.             $17button = GUICtrlCreateButton("Land-Rover", 140, 90, 120, 30)
  58.             $18button = GUICtrlCreateButton("Mercedes-Benz", 140, 130, 120, 30)
  59.             $19button = GUICtrlCreateButton("McLaren", 140, 170, 120, 30)
  60.             $20button = GUICtrlCreateButton("Pagani", 140, 210, 120, 30)
  61.             $21button = GUICtrlCreateButton("RUF", 140, 250, 120, 30)
  62.             $22button = GUICtrlCreateButton("Spyker", 140, 290, 120, 30)
  63.             GUISwitch($secondwindow)
  64.             GUISetState(@SW_SHOW)
  65.             While 1
  66.                 $mesg = GUIGetMsg()
  67.                 Select
  68.                     Case $mesg = $5button
  69.                         MsgBox(0, "Программа", "Данная функция находится в разработке")
  70.                     Case $mesg = $GUI_EVENT_CLOSE
  71.                         GUIDelete()
  72.                         ;Exit
  73.                         ExitLoop
  74.                 EndSelect
  75.             WEnd
  76.  
  77.         Case $msg = $2button
  78.             ; Окно Просмотра по категориям
  79.             $thirdwindow = GUICreate("Просмотр автомобилей по категориям", 250, 289)
  80.             GUISetBkColor(0xffFFFF)
  81.             $23button = GUICtrlCreateButton("A1", 8, 8, 113, 33)
  82.             $24button = GUICtrlCreateButton("A2", 8, 48, 113, 33)
  83.             $25button = GUICtrlCreateButton("A3", 8, 88, 113, 33)
  84.             $26button = GUICtrlCreateButton("A4", 8, 128, 113, 33)
  85.             $27button = GUICtrlCreateButton("A5", 8, 168, 113, 33)
  86.             $28button = GUICtrlCreateButton("A6", 8, 208, 113, 33)
  87.             $29button = GUICtrlCreateButton("A7", 8, 248, 113, 33)
  88.             $30button = GUICtrlCreateButton("B2", 128, 8, 113, 33)
  89.             $31button = GUICtrlCreateButton("B3", 128, 48, 113, 33)
  90.             $32button = GUICtrlCreateButton("B4", 128, 88, 113, 33)
  91.             $33button = GUICtrlCreateButton("C2", 128, 128, 113, 33)
  92.             $34button = GUICtrlCreateButton("C3", 128, 168, 113, 33)
  93.             $35button = GUICtrlCreateButton("C4", 128, 208, 113, 33)
  94.             GUISwitch($thirdwindow)
  95.             GUISetState(@SW_SHOW)
  96.             While 1
  97.                 $1mesag = GUIGetMsg()
  98.                 Select
  99.                     Case $1mesag = $23button
  100.                         ; Окно Категоии А1
  101.                         $A1window = GUICreate("Автомобили Категории A1", 522, 265, 232, 132)
  102.                         $A1 = GUICtrlCreateButton("Mercedes-Benz SLR McLaren Stirling Moss", 264, 72, 249, 25)
  103.                         $A2 = GUICtrlCreateButton("Ariel Atom 300 Supercharged", 8, 8, 249, 25)
  104.                         $A3 = GUICtrlCreateButton("Ariel Atom 500 V8", 8, 40, 249, 25)
  105.                         $A4 = GUICtrlCreateButton("Ascari A10", 8, 72, 249, 25)
  106.                         $A5 = GUICtrlCreateButton("Aston Martin One-77", 8, 104, 249, 25)
  107.                         $A6 = GUICtrlCreateButton("Bugatti Veyron 16.4", 8, 136, 249, 25)
  108.                         $A7 = GUICtrlCreateButton("Bugatti Veyron 16.4 Grand Sport", 8, 168, 249, 25)
  109.                         $A8 = GUICtrlCreateButton("Ferrari 599 GTO", 8, 200, 249, 25)
  110.                         $A9 = GUICtrlCreateButton("Ferrari Enzo", 8, 232, 249, 25)
  111.                         $A10 = GUICtrlCreateButton("Koenigsegg CCXR Edition", 264, 8, 249, 25)
  112.                         $A11 = GUICtrlCreateButton("McLaren MP4-12C", 264, 40, 249, 25)
  113.                         $A12 = GUICtrlCreateButton("Pagani Zonda Cinque", 264, 104, 249, 25)
  114.                         $A13 = GUICtrlCreateButton("Pagani Zonda F", 264, 136, 249, 25)
  115.                         $A14 = GUICtrlCreateButton("Pagani Zonda F Roadster", 264, 168, 249, 25)
  116.                         $A15 = GUICtrlCreateButton("RUF RT 12", 264, 200, 249, 25)
  117.                         GUISwitch($A1window)
  118.                         GUISetState(@SW_SHOW)
  119.                         While 1
  120.                             $mesag = GUIGetMsg()
  121.                             Select
  122.                                 Case $mesag = $A2
  123.                                     ; Ariel Atom 300 Supercharged
  124.                                     $AA3 = GUICreate("A1:", 205, 215)
  125.                                     GUISetBkColor(0xffFFFF)
  126.                                     GUICtrlCreateButton("Ariel Atom 300S", 5, 2, 195, 20)
  127.                                     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  128.                                     GUICtrlCreateButton("$ 63 700", 69, 24, 55, 20)
  129.                                     GUICtrlCreateProgress(5, 47, 195, 13)
  130.                                     GUICtrlSetData(-1, 30)
  131.                                     GUICtrlCreateProgress(100, 65, 100, 13)
  132.                                     GUICtrlSetData(-1, 93)
  133.                                     GUICtrlCreateLabel("Ускорение:", 2, 65)
  134.                                     GUICtrlCreateButton("93", 76, 62, 24, 20)
  135.                                     GUICtrlCreateProgress(100, 87, 100, 13)
  136.                                     GUICtrlSetData(-1, 45)
  137.                                     GUICtrlCreateLabel("Скорость:", 2, 87)
  138.                                     GUICtrlCreateButton("45", 76, 84, 24, 20)
  139.                                     GUICtrlCreateProgress(100, 109, 100, 13)
  140.                                     GUICtrlSetData(-1, 87)
  141.                                     GUICtrlCreateLabel("Тормоза:", 2, 109)
  142.                                     GUICtrlCreateButton("87", 76, 106, 24, 20)
  143.                                     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  144.                                     GUICtrlCreateButton("354 км/ч", 95, 130, 52, 20)
  145.                                     GUICtrlCreateLabel("0-100:", 2, 155)
  146.                                     GUICtrlCreateButton("2.90 сек", 95, 152, 52, 20)
  147.                                     GUICtrlCreateLabel("Мощность:", 2, 177)
  148.                                     GUICtrlCreateButton("300 лс", 95, 174, 52, 20)
  149.                                     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  150.                                     ;
  151.                                     GUICtrlCreateCheckbox(" ", 157, 192)
  152.                                     GUICtrlSetState(-1, $GUI_CHECKED)
  153.                                     ;
  154.                                     GUICtrlCreateCheckbox(" ", 172, 192)
  155.                                     ;
  156.                                     GUICtrlCreateCheckbox(" ", 187, 192)
  157.                                     GUICtrlSetState(-1, $GUI_CHECKED)
  158.                                     ;
  159.                                     GUISetState(@SW_SHOW)
  160.                                     GUISwitch($A1)
  161.                                     While 1
  162.                                         $1mesage = GUIGetMsg()
  163.                                         Select
  164.                                             Case $1mesage = $GUI_EVENT_CLOSE
  165.                                                 GUIDelete()
  166.                                                 ;Exit
  167.                                                 ExitLoop
  168.                                         EndSelect
  169.                                     WEnd
  170.  
  171.                                 Case $mesag = $A3
  172.                                     ; Ariel Atom 500 V8
  173.                                     $AA5 = GUICreate("A1:", 205, 215)
  174.                                     GUISetBkColor(0xffFFFF)
  175.                                     GUICtrlCreateButton("", 5, 2, 195, 20)
  176.                                     GUICtrlCreateLabel("Стоимость:", 5, 27, 100, 20)
  177.                                     GUICtrlCreateButton("$ ", 69, 24, 55, 20)
  178.                                     GUICtrlCreateProgress(5, 47, 195, 13)
  179.                                     GUICtrlSetData(-1, 30)
  180.                                     GUICtrlCreateProgress(100, 65, 100, 13)
  181.                                     GUICtrlSetData(-1, 93)
  182.                                     GUICtrlCreateLabel("Ускорение:", 2, 65)
  183.                                     GUICtrlCreateButton("", 76, 62, 24, 20)
  184.                                     GUICtrlCreateProgress(100, 87, 100, 13)
  185.                                     GUICtrlSetData(-1, 45)
  186.                                     GUICtrlCreateLabel("Скорость:", 2, 87)
  187.                                     GUICtrlCreateButton("", 76, 84, 24, 20)
  188.                                     GUICtrlCreateProgress(100, 109, 100, 13)
  189.                                     GUICtrlSetData(-1, 87)
  190.                                     GUICtrlCreateLabel("Тормоза:", 2, 109)
  191.                                     GUICtrlCreateButton("", 76, 106, 24, 20)
  192.                                     GUICtrlCreateLabel("Макс. скорость:", 2, 133)
  193.                                     GUICtrlCreateButton(" км/ч", 95, 130, 52, 20)
  194.                                     GUICtrlCreateLabel("0-100:", 2, 155)
  195.                                     GUICtrlCreateButton(". сек", 95, 152, 52, 20)
  196.                                     GUICtrlCreateLabel("Мощность:", 2, 177)
  197.                                     GUICtrlCreateButton(" лс", 95, 174, 52, 20)
  198.                                     GUICtrlCreateLabel("Покраска/Наклейка/Тюнинг:", 2, 197)
  199.                                     GUICtrlCreateCheckbox(" ", 157, 192)
  200.                                     GUICtrlSetState(-1, $GUI_CHECKED)
  201.                                     GUICtrlCreateCheckbox(" ", 172, 192)
  202.                                     GUICtrlSetState(-1, $GUI_CHECKED)
  203.                                     GUICtrlCreateCheckbox(" ", 187, 192)
  204.                                     GUICtrlSetState(-1, $GUI_CHECKED)
  205.                                     GUISetState(@SW_SHOW)
  206.                                     GUISwitch($A1)
  207.                                     While 1
  208.                                         $1mesage = GUIGetMsg()
  209.                                         Select
  210.                                             Case $1mesage = $GUI_EVENT_CLOSE
  211.                                                 GUIDelete()
  212.                                                 ;Exit
  213.                                                 ExitLoop
  214.                                         EndSelect
  215.                                     WEnd
  216.                                 Case $mesag = $A3
  217.  
  218.                                 Case $mesag = $A4
  219.  
  220.                                 Case $mesag = $A5
  221.  
  222.                                 Case $mesag = $A6
  223.  
  224.                                 Case $mesag = $A7
  225.  
  226.                                 Case $mesag = $A8
  227.  
  228.                                 Case $mesag = $A9
  229.  
  230.                                 Case $mesag = $A10
  231.  
  232.                                 Case $mesag = $A11
  233.  
  234.                                 Case $mesag = $A12
  235.  
  236.                                 Case $mesag = $A13
  237.  
  238.                                 Case $mesag = $A14
  239.  
  240.                                 Case $mesag = $A15
  241.  
  242.                                 Case $mesag = $GUI_EVENT_CLOSE
  243.                                     GUIDelete()
  244.                                     ;Exit
  245.                                     ExitLoop
  246.                             EndSelect
  247.                         WEnd
  248.  
  249.                     Case $1mesag = $35button
  250.                         MsgBox(0, "Программа", "Данная функция находится в разработке")
  251.                     Case $1mesag = $GUI_EVENT_CLOSE
  252.                         GUIDelete()
  253.                         ;Exit
  254.                         ExitLoop
  255.                 EndSelect
  256.             WEnd
  257.  
  258.         Case $msg = $3button
  259.             ; Тесты машин категорий: A1 A2 A3 A4 A5 A6 A7 B2 B3 B4 C2 C3 C4
  260.             $Form1 = GUICreate("Тесты машин", 250, 289)
  261.             GUISetBkColor(0xffFFFF)
  262.             $A21 = GUICtrlCreateButton("A1", 8, 8, 113, 33)
  263.             $A22 = GUICtrlCreateButton("A2", 8, 48, 113, 33)
  264.             $A23 = GUICtrlCreateButton("A3", 8, 88, 113, 33)
  265.             $A24 = GUICtrlCreateButton("A4", 8, 128, 113, 33)
  266.             $A25 = GUICtrlCreateButton("A5", 8, 168, 113, 33)
  267.             $A26 = GUICtrlCreateButton("A6", 8, 208, 113, 33)
  268.             $A27 = GUICtrlCreateButton("A7", 8, 248, 113, 33)
  269.             $B22 = GUICtrlCreateButton("B2", 128, 8, 113, 33)
  270.             $B23 = GUICtrlCreateButton("B3", 128, 48, 113, 33)
  271.             $B24 = GUICtrlCreateButton("B4", 128, 88, 113, 33)
  272.             $C22 = GUICtrlCreateButton("C2", 128, 128, 113, 33)
  273.             $C23 = GUICtrlCreateButton("C3", 128, 168, 113, 33)
  274.             $C24 = GUICtrlCreateButton("C4", 128, 208, 113, 33)
  275.             GUISetState(@SW_SHOW)
  276.             While 1
  277.                 $msg = GUIGetMsg()
  278.                 Select
  279.  
  280.                     Case $msg = $A21
  281.                         GUICreate("Тест машин категории A1", 792, 402)
  282.                         GUICtrlCreateEdit($TestA1, 1, 1, 407, 400)
  283.                         GUICtrlCreateEdit($TestA1p2, 410, 1, 380, 380)
  284.                         $next2 = GUICtrlCreateButton("Далее: Часть вторая", 410, 382, 379, 20)
  285.                         GUISetState(@SW_SHOW)
  286.                         While 1
  287.                             $8mesage = GUIGetMsg()
  288.                             Select
  289.                                 Case $8mesage = $next2
  290.                                     GUICreate("Тест А1: Часть вторая", 792, 402)
  291.                                     GUICtrlCreateEdit($TestA1p3, 1, 1, 420, 400)
  292.                                     GUICtrlCreateEdit($TestA1p4, 422, 1, 370, 400)
  293.                                     GUISetState(@SW_SHOW)
  294.                                     While 1
  295.                                         $8mesage = GUIGetMsg()
  296.                                         Select
  297.                                             Case $8mesage = $GUI_EVENT_CLOSE
  298.                                                 GUIDelete()
  299.                                                 ;Exit
  300.                                                 ExitLoop
  301.                                         EndSelect
  302.                                     WEnd
  303.  
  304.                                 Case $8mesage = $GUI_EVENT_CLOSE
  305.                                     GUIDelete()
  306.                                     ;Exit
  307.                                     ExitLoop
  308.                             EndSelect
  309.                         WEnd
  310.  
  311.                     Case $msg = $A22
  312.                         GUICreate("Тест машин категории A2", 790, 402)
  313.                         GUICtrlCreateEdit($TestA2, 1, 1, 407, 400)
  314.                         GUICtrlCreateEdit($TestA2p2, 410, 1, 379, 380)
  315.                         $next = GUICtrlCreateButton("Далее: Часть вторая", 410, 382, 379, 20)
  316.                         GUISetState(@SW_SHOW)
  317.                         While 1
  318.                             $5mesage = GUIGetMsg()
  319.                             Select
  320.                                 Case $5mesage = $next
  321.                                     GUICreate("Тест А2: Часть вторая", 792, 402)
  322.                                     GUICtrlCreateEdit($TestA2p3, 1, 1, 407, 400)
  323.                                     GUICtrlCreateEdit($TestA2p4, 410, 1, 380, 400)
  324.                                     GUISetState(@SW_SHOW)
  325.                                     While 1
  326.                                         $7mesage = GUIGetMsg()
  327.                                         Select
  328.                                             Case $7mesage = $GUI_EVENT_CLOSE
  329.                                                 GUIDelete()
  330.                                                 ;Exit
  331.                                                 ExitLoop
  332.                                         EndSelect
  333.                                     WEnd
  334.                                 Case $5mesage = $GUI_EVENT_CLOSE
  335.                                     GUIDelete()
  336.                                     ;Exit
  337.                                     ExitLoop
  338.                             EndSelect
  339.                         WEnd
  340.  
  341.                     Case $msg = $A23
  342.                         GUICreate("Тест машин категории A3", 772, 402)
  343.                         GUICtrlCreateEdit($TestA3, 1, 1, 362, 400)
  344.                         GUICtrlCreateEdit($TestA3p2, 364, 1, 407, 400)
  345.  
  346.                         GUISetState(@SW_SHOW)
  347.                         While 1
  348.                             $mesage = GUIGetMsg()
  349.                             Select
  350.                                 Case $mesage = $GUI_EVENT_CLOSE
  351.                                     GUIDelete()
  352.                                     ;Exit
  353.                                     ExitLoop
  354.                             EndSelect
  355.                         WEnd
  356.  
  357.                     Case $msg = $A24
  358.                         GUICreate("Тест машин категории A4", 747, 402)
  359.                         GUICtrlCreateEdit($TestA4, 1, 1, 367, 400)
  360.                         GUICtrlCreateEdit($TestA4p2, 370, 1, 375, 400)
  361.                         GUISetState(@SW_SHOW)
  362.                         While 1
  363.                             $mesage = GUIGetMsg()
  364.                             Select
  365.                                 Case $mesage = $GUI_EVENT_CLOSE
  366.                                     GUIDelete()
  367.                                     ;Exit
  368.                                     ExitLoop
  369.                             EndSelect
  370.                         WEnd
  371.  
  372.                     Case $msg = $A25
  373.                         GUICreate("Тест машин категории A5", 797, 402)
  374.                         GUICtrlCreateEdit($TestA5, 1, 1, 417, 400)
  375.                         GUICtrlCreateEdit($TestA5p2, 420, 1, 375, 400)
  376.                         GUISetState(@SW_SHOW)
  377.                         While 1
  378.                             $mesage = GUIGetMsg()
  379.                             Select
  380.                                 Case $mesage = $GUI_EVENT_CLOSE
  381.                                     GUIDelete()
  382.                                     ;Exit
  383.                                     ExitLoop
  384.                             EndSelect
  385.                         WEnd
  386.  
  387.                     Case $msg = $A26
  388.                         GUICreate("Тест машин категории A6", 427, 357)
  389.                         GUICtrlCreateEdit($TestA6, 1, 1, 425, 355)
  390.                         GUISetState(@SW_SHOW)
  391.                         While 1
  392.                             $mesage = GUIGetMsg()
  393.                             Select
  394.                                 Case $mesage = $GUI_EVENT_CLOSE
  395.                                     GUIDelete()
  396.                                     ;Exit
  397.                                     ExitLoop
  398.                             EndSelect
  399.                         WEnd
  400.  
  401.                     Case $msg = $A27
  402.                         GUICreate("Тест машин категории A7", 417, 357)
  403.                         GUICtrlCreateEdit($TestA7, 1, 1, 415, 355)
  404.                         GUISetState(@SW_SHOW)
  405.                         While 1
  406.                             $mesage = GUIGetMsg()
  407.                             Select
  408.                                 Case $mesage = $GUI_EVENT_CLOSE
  409.                                     GUIDelete()
  410.                                     ;Exit
  411.                                     ExitLoop
  412.                             EndSelect
  413.                         WEnd
  414.  
  415.  
  416.  
  417.                     Case $msg = $B22
  418.                         GUICreate("Тест машин категории B2", 387, 167)
  419.                         GUICtrlCreateEdit($TestB2, 1, 1, 385, 165)
  420.                         GUISetState(@SW_SHOW)
  421.                         While 1
  422.                             $mesage = GUIGetMsg()
  423.                             Select
  424.                                 Case $mesage = $GUI_EVENT_CLOSE
  425.                                     GUIDelete()
  426.                                     ;Exit
  427.                                     ExitLoop
  428.                             EndSelect
  429.                         WEnd
  430.  
  431.                     Case $msg = $B23
  432.                         GUICreate("Тест машин категории B3", 422, 372)
  433.                         GUICtrlCreateEdit($TestB3, 1, 1, 420, 370)
  434.                         GUISetState(@SW_SHOW)
  435.                         While 1
  436.                             $mesag = GUIGetMsg()
  437.                             Select
  438.                                 Case $mesag = $GUI_EVENT_CLOSE
  439.                                     GUIDelete()
  440.                                     ;Exit
  441.                                     ExitLoop
  442.                             EndSelect
  443.                         WEnd
  444.  
  445.  
  446.                     Case $msg = $B24
  447.                         GUICreate("Тест машин категории B4", 424, 377)
  448.                         GUICtrlCreateEdit($TestB4, 1, 1, 422, 375)
  449.                         GUISetState(@SW_SHOW)
  450.                         While 1
  451.                             $4mesage = GUIGetMsg()
  452.                             Select
  453.                                 Case $4mesage = $GUI_EVENT_CLOSE
  454.                                     GUIDelete()
  455.                                     ;Exit
  456.                                     ExitLoop
  457.                             EndSelect
  458.                         WEnd
  459.  
  460.  
  461.                     Case $msg = $C22
  462.                         GUICreate("Тест машин категории C2", 392, 397)
  463.                         GUICtrlCreateEdit($TestC2, 1, 1, 390, 395)
  464.                         GUISetState(@SW_SHOW)
  465.                         While 1
  466.                             $3mesage = GUIGetMsg()
  467.                             Select
  468.                                 Case $3mesage = $GUI_EVENT_CLOSE
  469.                                     GUIDelete()
  470.                                     ;Exit
  471.                                     ExitLoop
  472.                             EndSelect
  473.                         WEnd
  474.  
  475.                     Case $msg = $C23
  476.                         ; Категория С3
  477.                         GUICreate("Тест машин категории C3", 750, 417)
  478.                         GUICtrlCreateEdit($TestC3, 1, 1, 385, 415)
  479.                         GUICtrlCreateEdit($TestC3p2, 388, 1, 360, 415)
  480.                         GUISetState(@SW_SHOW)
  481.                         While 1
  482.                             $mesage = GUIGetMsg()
  483.                             Select
  484.                                 Case $mesage = $GUI_EVENT_CLOSE
  485.                                     GUIDelete()
  486.                                     ;Exit
  487.                                     ExitLoop
  488.                             EndSelect
  489.                         WEnd
  490.  
  491.                     Case $9msg = $C24
  492.                         ; Категория С4
  493.                         GUICreate("Тест машин категории C4", 500, 400)
  494.                         GUICtrlCreateEdit($TestC4, 1, 1, 490, 390)
  495.                         GUISetState(@SW_SHOW)
  496.                         While 1
  497.                             $2mesage = GUIGetMsg()
  498.                             Select
  499.                                 Case $2mesage = $GUI_EVENT_CLOSE
  500.                                     GUIDelete()
  501.                                     ;Exit
  502.                                     ExitLoop
  503.                             EndSelect
  504.                         WEnd
  505.  
  506.                     Case $msg = $GUI_EVENT_CLOSE
  507.                         GUIDelete()
  508.                         ;Exit
  509.                         ExitLoop
  510.                 EndSelect
  511.             WEnd
  512.  
  513.         Case $msg = $helpbutton
  514.             $helpwindow = GUICreate("Помощь по игре", 186, 90)
  515.             GUISetBkColor(0xffFFFF)
  516.             $faq1 = GUICtrlCreateButton("Общие вопросы", 8, 8, 169, 33)
  517.             $faq2 = GUICtrlCreateButton("Настройка управления", 8, 48, 169, 33)
  518.             GUISwitch($helpwindow)
  519.             GUISetState(@SW_SHOW)
  520.             While 1
  521.                 $mesg = GUIGetMsg()
  522.                 Select
  523.                     Case $mesg = $faq1
  524.                         $faq11 = GUICreate("Настройки управления", 410, 470)
  525.                         GUISetBkColor(0xffFFFF)
  526.                         GUICtrlCreateEdit($Text2, 1, 1, 410, 470)
  527.                         GUISwitch($faq11)
  528.                         GUISetState(@SW_SHOW)
  529.                         While 1
  530.                             $9mesg = GUIGetMsg()
  531.                             Select
  532.                                 Case $9mesg = $GUI_EVENT_CLOSE
  533.                                     GUIDelete()
  534.                                     ;Exit
  535.                                     ExitLoop
  536.                             EndSelect
  537.                         WEnd
  538.  
  539.                     Case $mesg = $faq2
  540.                         $faq21 = GUICreate("Настройки управления", 790, 470)
  541.                         GUISetBkColor(0xffFFFF)
  542.                         GUICtrlCreateEdit("Hello", 1, 1, 790, 470)
  543.                         GUISwitch($faq21)
  544.                         GUISetState(@SW_SHOW)
  545.                         While 1
  546.                             $8mesg = GUIGetMsg()
  547.                             Select
  548.                                 Case $8mesg = $GUI_EVENT_CLOSE
  549.                                     GUIDelete()
  550.                                     ;Exit
  551.                                     ExitLoop
  552.                             EndSelect
  553.                         WEnd
  554.                     Case $mesg = $GUI_EVENT_CLOSE
  555.                         GUIDelete()
  556.                         ;Exit
  557.                         ExitLoop
  558.                 EndSelect
  559.             WEnd
  560.  
  561.  
  562.         Case $msg = $4button
  563.             MsgBox(0, "О программе", $Text1)
  564.  
  565.         Case $msg = $GUI_EVENT_CLOSE
  566.             ExitLoop
  567.     EndSelect
  568. WEnd
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!