onestcoder Posted January 24, 2006 Share Posted January 24, 2006 I will start with showing you my script. expandcollapse popup;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; AutoIt V 3.1.1 ; Laura's Synthisis Powerlever Bot ; Version 1.0 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; Gui start ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #include <GUIConstants.au3> GUICreate("Synthsis Bot 0.1", 274, 200) opt("GUICoordMode", 1) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; Combo Lists ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $combo1 = GUICtrlCreateCombo("Cooking", 4, 4, 120, 100) GUICtrlSetData($combo1, "0-3 Carrot Broth|3-10 Orange Juice|10-14 Slice of Bluetail|14-20 Apple Juice|14-20 Selbina Butter|20-26 Meat Jerky|26-29 Insect Paste|26-29 Dhalmel Steak|26-30 Pineapple Juice|30-35 Meatball|35-38 Meat Mithkabob|35-38 Jack - o - Lantern|38-40 Melon Juice|40-42 Pie Dough|42-48 Apple Pie|48-50 Grape Juice|50-54 Carp Sushi|54-60 Yagudo Drink|60-62 Melon Pie|62-68 Colored Egg|68-70 Squid Sushi|68-70 San d'Orian Tea|70-72 Pear au Lait|72-77 Navarin|72-77 Tuna Sushi|77-81 Pamama au Lait|81-84 Sole Sushi|81-85 Pumpkin Pie|85-90 Rolanberry Pie", "Cooking") $combo2 = GUICtrlCreateCombo("Woodworking", 4, 44, 120, 100) GUICtrlSetData($combo2, "0-3 Arrowwood lumber|3-8 Ash lumber|8-12 Holly lumber|12-16 Bolts|16-21 Maple Sugar|21-27 Iron arrows|27-30 Silver Arrows|30-35 Oak Lumber|35-39 Beetle Arrows|39-42 Fang Arrows|42-45 Rosewood Lumber|45-49 Horn Arrows|49-52 Mahogany Lumber|52-59 Scorpion Arrows|59-62 Darksteel bolts|62-68 Bodkin Arrows|68-72 R. Hume Fishing Rod|72-74 Hume Fishing rod|74-77 Clothespole|77-83 Mithran Fishing Rod", "Woodworking") $combo3 = GUICtrlCreateCombo("Goldsmith", 4, 84, 120, 100) GUICtrlSetData($combo3, "0-3 Copper Ingot|3-7 Copper Hairpin|7-11 Brass Sheet|11-15 Brass Ring|15-17 Brass Hairpins|15-18 Silver Ingot|15-19 Brass Chain|19-27 Silver Hairpin|19-27 Silver Arrowheads|27-31 Hiraishin|31-35 Jeweled Silver Rings|35-38 Mythril Ingot|38-41 Mythril Sheet|41-47 Mythril Ring|47-51 Gold Ingots|51-55 Jeweled Mythril Rings|55-60 Gold Ring|60-61 Platinum Ingot|61-67 Hydro Patas|67-70 Platinum Rings|70-75 Jeweled Gold Rings", "Goldsmith") $combo4 = GUICtrlCreateCombo("Leathercraft", 4, 124, 120, 100) GUICtrlSetData($combo4, "0-2 Sheep leather|0-4 Sheep Wool|4-11 Solea|11-14 Lizard Mantle|14-21 Dhalmel Leather|21-27 Dhalmel Mantle|27-29 Sandals|29-31 Parchment|31-35 Ram Leather|35-43 Waistbelt|43-49 Ram Mantles|49-52 Himantes|52-59 Moccasins|59-61 Tiger Leather", "Leathercraft") $combo5 = GUICtrlCreateCombo("Bonecraft", 150, 4, 120, 100) GUICtrlSetData($combo5, "1-4 Bone Hairpins|4-9 Bone Arrowheads|9-17 Bone Ring|17-25 Beetle Ring|22-28 Gelatin|25-29 Horn Hairpin|29-33 Beetle Arrowheads|33-37 Horn Ring|37-43 Horn Arrowheads|43-45 Carapace Mask|45-53 Scorpion Arrowheads|53-60 Scorpion Ring|60-66 Crumhorn|66-70 Demon's Ring|70-77 Coral Visor|77-80 Coral Ring|80-84 Behemoth KnIfe", "Bonecraft") $combo6 = GUICtrlCreateCombo("Smithing", 150, 44, 120, 100) GUICtrlSetData($combo6, "0-4 Bronze Sheet|4-9 Bronze Scales|9-14 Bronze Bolt Heads|14-16 Crossbow Bolt|17-20 Iron Arrowheads|20-22 Iron Sheet|22-25 Baselard|25-30 Tathlum|30-33 War Pick|26-34 Padded Cap|34-36 Steel Sheet|36-40 Steel Scales|40-44 Mythril Bolt Heads|40-44 Juji Shuriken|44-46 Hibari|45-53 Darksteel KnIfe|52-55 Darksteel Sheet|55-62 Darksteel Bolt Heads|58-66 Nodowa|66-73 Darksteel Pick|73-79 Karimata Arrowheads|79-83 Darksteel Nodowa|83-87 Dark Adaman Sheet|87-92 Molybdenum Sheet", "Smithing") $combo7 = GUICtrlCreateCombo("Alchemy", 150, 84, 120, 100) GUICtrlSetData($combo7, "0-3 Antidote|3-8 Silencing Potion|5-10 Deodorizer|10-16 Mercury|14-20 Echo Drops|20-25 R. Glass Fiber Rod|25-28 Blinding Potion|28-30 Eye Drops|28-31 Minnow|28-34 ArtIficial Lens|34-40 Potion|40-43 Vitriol|43-51 Holy Water|45-49 R. Carbon Fiber Rod|51-56 Cermet Chunk|53-61 Glass Fibers|61-65 R. Single-Hook Fishing Rod|65-71 Paralysis Dust|71-78 Paralyze Potion|78-85 R. Composite Fishing Rod", "Alchemy") $combo8 = GUICtrlCreateCombo("Clothcraft", 150, 124, 120, 100) GUICtrlSetData($combo8, "0-1 Grass Thread|1-4 Grass Cloth|4-11 Cotton Thread|11-12 Cotton Cloth|12-19 Linen Thread|19-22 Linen Cloth|22-30 Fly Lure|30-35 Wool Thread|35-37 Wool Cloth|35-42 Bird Fletchings|42-45 Velvet Cloth|45-52 Insect Fletchings|52-53 Silk Cloth|53-62 Green Ribbons|62-69 Silk Headbands|69-78 Rainbow Thread|78-81 Rainbow Cloth", "Clothcraft") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; OK BUTTON ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $button_1 = GUICtrlCreateButton("OK", 4, 160, 75, 25) GUICtrlSetState($button_1, $GUI_FOCUS) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; EXIT BUTTON ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $n2 = GUICtrlCreateButton("EXIT", 150, 160, 75, 25) GUISetState() ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; Values ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Do $cook = GUICtrlRead($combo1) $wood = GUICtrlRead($combo2) $gold = GUICtrlRead($combo3) $leather = GUICtrlRead($combo4) $bone = GUICtrlRead($combo5) $smith = GUICtrlRead($combo6) $alch = GUICtrlRead($combo7) $cloth = GUICtrlRead($combo8) If $cook = "0-3 Carrot Broth" Then $cook2 = 4000 EndIf If $cook = "3-10 Orange Juice" Then $cook2 = 4000 EndIf If $cook = "10-14 Slice of Bluetail" Then $cook2 = 100 EndIf If $cook = "14-20 Apple Juice" Then $cook2 = 4000 EndIf If $cook = "14-20 Selbina Butter" Then $cook2 = 200 EndIf If $cook = "20-26 Meat Jerky" Then $cook2 = 300 EndIf If $cook = "26-29 Insect Paste" Then $cook2 = 300 EndIf If $cook = "26-29 Dhalmel Steak" Then $cook2 = 300 EndIf If $cook = "26-30 Pineapple Juice" Then $cook2 = 2000 EndIf If $cook = "30-35 Meatball" Then $cook2 = 301 EndIf If $cook = "35-38 Meat Mithkabob" Then $cook2 = 400 EndIf If $cook = "35-38 Jack - o - Lantern" Then $cook2 = 200 EndIf If $cook = "38-40 Melon Juice" Then $cook2 = 200 EndIf If $cook = "40-42 Pie Dough" Then $cook2 = 301 EndIf If $cook = "42-48 Apple Pie" Then $cook2 = 500 EndIf If $cook = "48-50 Grape Juice" Then $cook2 = 4000 EndIf If $cook = "50-54 Carp Sushi" Then $cook2 = 300 EndIf If $cook = "54-60 Yagudo Drink" Then $cook2 = 4030 EndIf If $cook = "60-62 Melon Pie" Then $cook2 = 500 EndIf If $cook = "62-68 Colored Egg" Then $cook2 = 400 EndIf If $cook = "68-70 Squid Sushi" Then $cook2 = 501 EndIf If $cook = "68-70 San d'Orian Tea" Then $cook2 = 500 EndIf If $cook = "70-72 Pear au Lait" Then $cook2 = 4020 EndIf If $cook = "72-77 Navarin" Then $cook2 = 800 EndIf If $cook = "72-77 Tuna Sushi" Then $cook2 = 501 EndIf If $cook = "77-81 Pamama au Lait" Then $cook2 = 4020 EndIf If $cook = "81-84 Sole Sushi" Then $cook2 = 500 EndIf If $cook = "81-85 Pumpkin Pie" Then $cook2 = 800 EndIf If $cook = "85-90 Rolanberry Pie" Then $cook2 = 701 EndIf ;Woodworking If $wood = "0-3 Arrowwood lumber" Then $wood2 = 101 EndIf If $wood = "3-8 Ash lumber" Then $wood2 = 101 EndIf If $wood = "8-12 Holly lumber" Then $wood2 = 101 EndIf If $wood = "12-16 Bolts" Then $wood2 = 200 EndIf If $wood = "16-21 Maple Sugar" Then $wood2 = 101 EndIf If $wood = "21-27 Iron arrows" Then $wood2 = 300 EndIf If $wood = "27-30 Silver Arrows" Then $wood2 = 300 EndIf If $wood = "30-35 Oak Lumber" Then $wood2 = 101 EndIf If $wood = "35-39 Beetle Arrows" Then $wood2 = 300 EndIf If $wood = "39-42 Fang Arrows" Then $wood2 = 300 EndIf If $wood = "42-45 Rosewood Lumber" Then $wood2 = 101 EndIf If $wood = "45-49 Horn Arrows" Then $wood2 = 300 EndIf If $wood = "49-52 Mahogany Lumber" Then $wood2 = 101 EndIf If $wood = "52-59 Scorpion Arrows" Then $wood2 = 300 EndIf If $wood = "59-62 Darksteel bolts" Then $wood2 = 200 EndIf If $wood = "62-68 Bodkin Arrows" Then $wood2 = 300 EndIf If $wood = "68-72 R. Hume Fishing Rod" Then $wood2 = 101 EndIf If $wood = "72-74 Hume Fishing rod" Then $wood2 = 200 EndIf If $wood = "74-77 Clothespole" Then $wood2 = 200 EndIf If $wood = "77-83 Mithran Fishing Rod" Then $wood2 = 200 EndIf ;Gold Smithing If $gold = "0-3 Copper Ingot" Then $gold2 = 4000 EndIf If $gold = "3-7 Copper Hairpin" Then $gold2 = 100 EndIf If $gold = "7-11 Brass Sheet" Then $gold2 = 100 EndIf If $gold = "11-15 Brass Ring" Then $gold2 = 2000 EndIf If $gold = "15-17 Brass Hairpins" Then $gold2 = 100 EndIf If $gold = "15-18 Silver Ingot" Then $gold2 = 4000 EndIf If $gold = "15-19 Brass Chain" Then $gold2 = 2000 EndIf If $gold = "19-27 Silver Hairpin" Then $gold2 = 100 EndIf If $gold = "19-27 Silver Arrowheads" Then $gold2 = 200 EndIf If $gold = "27-31 Hiraishin" Then $gold2 = 200 EndIf If $gold = "31-35 Jeweled Silver Rings" Then $gold2 = 201 EndIf If $gold = "35-38 Mythril Ingot" Then $gold2 = 4000 EndIf If $gold = "38-41 Mythril Sheet" Then $gold2 = 100 EndIf If $gold = "41-47 Mythril Ring" Then $gold2 = 2000 EndIf If $gold = "47-51 Gold Ingots" Then $gold2 = 4000 EndIf If $gold = "51-55 Jeweled Mythril Rings" Then $gold2 = 201 EndIf If $gold = "55-60 Gold Ring" Then $gold2 = 2000 EndIf If $gold = "60-61 Platinum Ingot" Then $gold2 = 4000 EndIf If $gold = "61-67 Hydro Patas" Then $gold2 = 301 EndIf If $gold = "67-70 Platinum Rings" Then $gold2 = 2000 EndIf If $gold = "70-75 Jeweled Gold Rings" Then $gold2 = 201 EndIf ;Bonecraft If $bone = "1-4 Bone Hairpins" Then $bone2 = 100 EndIf If $bone = "4-9 Bone Arrowheads" Then $bone2 = 2000 EndIf If $bone = "9-17 Bone Ring" Then $bone2 = 200 EndIf If $bone = "17-25 Beetle Ring" Then $bone2 = 100 EndIf If $bone = "22-28 Gelatin" Then $bone2 = 201 EndIf If $bone = "25-29 Horn Hairpin" Then $bone2 = 101 EndIf If $bone = "29-33 Beetle Arrowheads" Then $bone2 = 200 EndIf If $bone = "33-37 Horn Ring" Then $bone2 = 201 EndIf If $bone = "37-43 Horn Arrowheads" Then $bone2 = 201 EndIf If $bone = "43-45 Carapace Mask" Then $bone2 = 201 EndIf If $bone = "45-53 Scorpion Arrowheads" Then $bone2 = 201 EndIf If $bone = "53-60 Scorpion Ring" Then $bone2 = 101 EndIf If $bone = "60-66 Crumhorn" Then $bone2 = 200 EndIf If $bone = "66-70 Demon's Ring" Then $bone2 = 200 EndIf If $bone = "70-77 Coral Visor" Then $bone2 = 3020 EndIf If $bone = "77-80 Coral Ring" Then $bone2 = 2000 EndIf If $bone = "80-84 Behemoth KnIfe" Then $bone2 = 201 EndIf ;Smithing If $smith = "0-4 Bronze Sheet" Then $smith2 = 100 EndIf If $smith = "4-9 Bronze Scales" Then $smith2 = 100 EndIf If $smith = "9-14 Bronze Bolt Heads" Then $smith2 = 100 EndIf If $smith = "14-16 Crossbow Bolt" Then $smith2 = 200 EndIf If $smith = "17-20 Iron Arrowheads" Then $smith2 = 200 EndIf If $smith = "20-22 Iron Sheet" Then $smith2 = 100 EndIf If $smith = "22-25 Baselard" Then $smith2 = 200 EndIf If $smith = "25-30 Tathlum" Then $smith2 = 100 EndIf If $smith = "30-33 War Pick" Then $smith2 = 101 EndIf If $smith = "26-34 Padded Cap" Then $smith2 = 101 EndIf If $smith = "34-36 Steel Sheet" Then $smith2 = 100 EndIf If $smith = "36-40 Steel Scales" Then $smith2 = 100 EndIf If $smith = "40-44 Mythril Bolt Heads" Then $smith2 = 100 EndIf If $smith = "40-44 Juji Shuriken" Then $smith2 = 200 EndIf If $smith = "44-46 Hibari" Then $smith2 = 200 EndIf If $smith = "45-53 Darksteel KnIfe" Then $smith2 = 200 EndIf If $smith = "52-55 Darksteel Sheet" Then $smith2 = 100 EndIf If $smith = "55-62 Darksteel Bolt Heads" Then $smith2 = 100 EndIf If $smith = "58-66 Nodowa" Then $smith2 = 200 EndIf If $smith = "66-73 Darksteel Pick" Then $smith2 = 200 EndIf If $smith = "73-79 Karimata Arrowheads" Then $smith2 = 200 EndIf If $smith = "79-83 Darksteel Nodowa" Then $smith2 = 200 EndIf If $smith = "83-87 Dark Adaman Sheet" Then $smith2 = 100 EndIf If $smith = "87-92 Molybdenum Sheet" Then $smith2 = 100 EndIf ;Alchemy If $alch = "0-3 Antidote" Then $alch2 = 300 EndIf If $alch = "3-8 Silencing Potion" Then $alch2 = 200 EndIf If $alch = "5-10 Deodorizer" Then $alch2 = 300 EndIf If $alch = "10-16 Mercury" Then $alch2 = 4000 EndIf If $alch = "14-20 Echo Drops" Then $alch2 = 300 EndIf If $alch = "20-25 R. Glass Fiber Rod" Then $alch2 = 101 EndIf If $alch = "25-28 Blinding Potion" Then $alch2 = 200 EndIf If $alch = "28-30 Eye Drops" Then $alch2 = 300 EndIf If $alch = "28-31 Minnow" Then $alch2 = 200 EndIf If $alch = "28-34 ArtIficial Lens" Then $alch2 = 2000 EndIf If $alch = "34-40 Potion" Then $alch2 = 300 EndIf If $alch = "40-43 Vitriol" Then $alch2 = 2000 EndIf If $alch = "43-51 Holy Water " Then $alch2 = 100 EndIf If $alch = "45-49 R. Carbon Fiber Rod" Then $alch2 = 101 EndIf If $alch = "51-56 Cermet Chunk" Then $alch2 = 4000 EndIf If $alch = "53-61 Glass Fiber" Then $alch2 = 8000 EndIf If $alch = "61-65 R. Single-Hook Fishing Rod" Then $alch2 = 101 EndIf If $alch = "65-71 Paralysis Dust" Then $alch2 = 2000 EndIf If $alch = "71-78 Paralyze Potion" Then $alch2 = 200 EndIf If $alch = "78-85 R. Composite Fishing Rod" Then $alch2 = 101 EndIf ;Leathercraft If $leather = "0-2 Sheep leather" Then $leather2 = 301 EndIf If $leather = "0-4 Sheep Wool" Then $leather2 = 202 EndIf If $leather = "4-11 Solea" Then $leather2 = 2000 EndIf If $leather = "11-14 Lizard Mantle" Then $leather2 = 300 EndIf If $leather = "14-21 Dhalmel Leather" Then $leather2 = 301 EndIf If $leather = "21-27 Dhalmel Mantle" Then $leather2 = 201 EndIf If $leather = "27-29 Sandals" Then $leather2 = 200 EndIf If $leather = "29-31 Parchment" Then $leather2 = 200 EndIf If $leather = "31-35 Ram Leather" Then $leather2 = 301 EndIf If $leather = "35-43 Waistbelt" Then $leather2 = 3020 EndIf If $leather = "43-49 Ram Mantles" Then $leather2 = 201 EndIf If $leather = "49-52 Himantes" Then $leather2 = 201 EndIf If $leather = "52-59 Moccasins" Then $leather2 = 300 EndIf If $leather = "59-61 Tiger Leather" Then $leather2 = 301 EndIf ;Clothcraft If $cloth = "0-1 Grass Thread" Then $cloth2 = 101 EndIf If $cloth = "1-4 Grass Cloth" Then $cloth2 = 3000 EndIf If $cloth = "4-11 Cotton Thread" Then $cloth2 = 2000 EndIf If $cloth = "11-12 Cotton Cloth" Then $cloth2 = 3000 EndIf If $cloth = "12-19 Linen Thread" Then $cloth2 = 2000 EndIf If $cloth = "19-22 Linen Cloth" Then $cloth2 = 3000 EndIf If $cloth = "22-30 Fly Lure" Then $cloth2 = 300 EndIf If $cloth = "30-35 Wool Thread" Then $cloth2 = 2000 EndIf If $cloth = "35-37 Wool Cloth" Then $cloth2 = 3000 EndIf If $cloth = "35-42 Bird Fletchings" Then $cloth2 = 2000 EndIf If $cloth = "42-45 Velvet Cloth" Then $cloth2 = 3020 EndIf If $cloth = "45-52 Insect Fletchings" Then $cloth2 = 2000 EndIf If $cloth = "52-53 Silk Cloth" Then $cloth2 = 3000 EndIf If $cloth = "53-62 Green Ribbons" Then $cloth2 = 100 EndIf If $cloth = "62-69 Silk Headbands" Then $cloth2 = 200 EndIf If $cloth = "69-78 Rainbow Thread" Then $cloth2 = 2000 EndIf If $cloth = "78-81 Rainbow Cloth" Then $cloth2 = 3000 EndIf ; need to finish If $alch = "Alchemy" Then $alch2 = 0 EndIf If $cook = "Cooking" Then $cook2 = 0 EndIf If $smith = "Smithing" Then $smith2 = 0 EndIf If $wood = "Woodworking" Then $wood2 = 0 EndIf If $gold = "Goldsmith" Then $gold2 = 0 EndIf If $cloth = "Clothcraft" Then $cloth2 = 0 EndIf If $leather = "Leathercraft" Then $leather2 = 0 EndIf If $bone = "Bonecraft" Then $bone2 = 0 EndIf ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; Totals and Activation ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $combot = $cook2 + $wood2 + $gold2 + $leather2 + $bone2 + $smith2 + $alch2 + $cloth2 $msg = GUIGetMsg() If $msg = $button_1 Then Select Case $combot = 100 Run("var\100.exe") Case $combot = 200 Run("var\200.exe") Case $combot = 300 Run("var\300.exe") Case $combot = 400 Run("var\400.exe") Case $combot = 500 Run("var\500.exe") Case $combot = 800 Run("var\800.exe") Case $combot = 101 Run("var\101.exe") Case $combot = 201 Run("var\201.exe") Case $combot = 301 Run("var\301.exe") Case $combot = 501 Run("var\501.exe") Case $combot = 701 Run("var\701.exe") Case $combot = 202 Run("var\202.exe") Case $combot = 2000 Run("var\2000.exe") Case $combot = 3000 Run("var\3000.exe") Case $combot = 4000 Run("var\4000.exe") Case $combot = 8000 Run("var\8000.exe") Case $combot = 3020 Run("var\3020.exe") Case $combot = 4020 Run("var\4020.exe") EndSelect EndIf If $msg = $n2 Then MsgBox(0, "Exit Program", "OK. Bye!") Exit EndIf Until $msg = $GUI_EVENT_CLOSE OK see this part expandcollapse popupIf $msg = $button_1 Then Select Case $combot = 100 Run("var\100.exe") Case $combot = 200 Run("var\200.exe") Case $combot = 300 Run("var\300.exe") Case $combot = 400 Run("var\400.exe") Case $combot = 500 Run("var\500.exe") Case $combot = 800 Run("var\800.exe") Case $combot = 101 Run("var\101.exe") Case $combot = 201 Run("var\201.exe") Case $combot = 301 Run("var\301.exe") Case $combot = 501 Run("var\501.exe") Case $combot = 701 Run("var\701.exe") Case $combot = 202 Run("var\202.exe") Case $combot = 2000 Run("var\2000.exe") Case $combot = 3000 Run("var\3000.exe") Case $combot = 4000 Run("var\4000.exe") Case $combot = 8000 Run("var\8000.exe") Case $combot = 3020 Run("var\3020.exe") Case $combot = 4020 Run("var\4020.exe") EndSelect I want to compile all for these exe files into ONE script and just have the GUI run the right part of the script when called upon. Can anyone give me a leason on this process. Need a website: http://www.iconixmarketing.com Link to comment Share on other sites More sharing options...
onestcoder Posted January 24, 2006 Author Share Posted January 24, 2006 Here is an example of one of the exe files. It they are all autoit scripts expandcollapse popup;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; AutoIt V 3.1.1 ; Laura's Synthisis Powerlever Bot ; Version 1.0 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $answer = MsgBox(4, "Synthesis Version 100", "This will run Synthesis 0.01 In 10sec after you click OK. Run?" & @CRLF & "REMEMBER!!! Sort your items in your Inventory before hitting OK!!!") If $answer = 7 Then MsgBox(0, "Exit Program", "OK. Bye!") Exit EndIf ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; Waits 10 secs then starts with 3 escapes ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Sleep(20000) Send('{ESCAPE}') Sleep(2000) Send('{ESCAPE}') Sleep(2000) Send('{ESCAPE}') ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; Open Inventory and scroll to the top ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; For $loop = 1 To 11 Sleep(1000) Send('{CTRLDOWN}') Sleep(100) Send('i') Sleep(100) Send('{CTRLUP}') Sleep(2000) Send('{LEFT 1}') Sleep(200) Send('{LEFT 1}') Sleep(200) Send('{LEFT 1}') Sleep(200) Send('{LEFT 1}') Sleep(200) Send('{LEFT 1}') ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; loads Items ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;Crystal Sleep(3000) Send('{ENTER}') Sleep(200) Send('{ENTER}') Sleep(200) ; first Ingredients Send('{ENTER}') Sleep(200) Send('{DOWN 1}') Sleep(200) Send('{ENTER}') Sleep(200) ; Flag Send('{ENTER}'); Flag Sleep(200) Send('{RIGHT 1}') Sleep(200) Send('{RIGHT 1}') Sleep(200) Send('{RIGHT 1}') Sleep(200) Send('{RIGHT 1}') Sleep(200) Send('{ENTER}') ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; Wait 31 secs for synth ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Sleep(31000) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; After loop finishs with one last load ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Next Sleep(1000) Send('{CTRLDOWN}') Sleep(100) Send('i') Sleep(100) Send('{CTRLUP}') Sleep(2000) Send('{LEFT 1}') Sleep(200) Send('{LEFT 1}') Sleep(200) Send('{LEFT 1}') Sleep(200) Send('{LEFT 1}') Sleep(200) Send('{LEFT 1}') Sleep(3000) Send('{ENTER}') Sleep(200) Send('{ENTER}') Sleep(200) Send('{ENTER}') Sleep(200) Send('{DOWN 1}') Sleep(200) Send('{ENTER}') Sleep(200) Send('{RIGHT 1}') Sleep(200) Send('{RIGHT 1}') Sleep(200) Send('{RIGHT 1}') Sleep(200) Send('{RIGHT 1}') Sleep(200) Send('{ENTER}') Sleep(2000) ; Finished! MsgBox(0, "AutoIt Example", "Finished!") Need a website: http://www.iconixmarketing.com Link to comment Share on other sites More sharing options...
peter1234 Posted January 27, 2006 Share Posted January 27, 2006 Use FileInstall to include all of the exes when you compile. This will allow you to combine them all into a single exe file. I think this is what you want to do. If this is of no help, I am sorry. I have not read all of your script because of its length. I suggest making a short test scipt that allows people to easily see what it is you want to do. Link to comment Share on other sites More sharing options...
martin Posted January 27, 2006 Share Posted January 27, 2006 (edited) Instead of writingIf $msg = $button_1 Then Select Case $combot = 100 Run("var\100.exe") Case $combot = 200 Run("var\200.exe") ....etcwhy not write If $msg = $button_1 Then Run("var\" & $combot & ".exe")You've made a lot of work for yourself by writing so much code when you could have all the different strings or options in a text file and read them into arrays. Then you could reduce the number of lines you write by a factor of 10 I would guess. You could then include options in your program to add to it or remove items without needing a program rewrite. Or is this what you're asking how to do?As far as the rest is concerned maybe you could ask a very specific question with just a little relevant code, because you've included a lot of code and not enough explanation of your problem. Edited January 27, 2006 by martin Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now