onestcoder Posted January 25, 2006 Share Posted January 25, 2006 (edited) Can I compile 18 scripts into one file and have my GUI execute the one I need 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. Edited January 25, 2006 by onestcoder Need a website: http://www.iconixmarketing.com Link to comment Share on other sites More sharing options...
ChrisL Posted January 25, 2006 Share Posted January 25, 2006 (edited) Use Fileinstall ("MyApp1.exe", @tempdir &"\MyApp1.exe",1) Fileinstall ("MyApp2.exe", @tempdir &"\MyApp2.exe",1) then when you run them RunWait (@tempdir & "\MyApp1.exe", @tempdir) RunWait (@tempdir & "\MyApp2.exe", @tempdir) Edited January 25, 2006 by ChrisL [u]Scripts[/u]Minimize gui to systray _ Fail safe source recoveryMsgbox UDF _ _procwatch() Stop your app from being closedLicensed/Trial software system _ Buffering Hotkeys_SQL.au3 ADODB.Connection _ Search 2d Arrays_SplashTextWithGraphicOn() _ Adjust Screen GammaTransparent Controls _ Eventlogs without the crap_GuiCtrlCreateFlash() _ Simple Interscript communication[u]Websites[/u]Curious Campers VW Hightops Lambert Plant Hire Link to comment Share on other sites More sharing options...
Bert Posted January 25, 2006 Share Posted January 25, 2006 @ChrisL You may want to use codebox to enclose your script when you have one of that size. The Vollatran project  My blog: http://www.vollysinterestingshit.com/ Link to comment Share on other sites More sharing options...
Moderators SmOke_N Posted January 25, 2006 Moderators Share Posted January 25, 2006 @ChrisLYou may want to use codebox to enclose your script when you have one of that size. ChrisL only posted 6 lines of text Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer. Link to comment Share on other sites More sharing options...
w0uter Posted January 25, 2006 Share Posted January 25, 2006 (edited) also instead of doing it like you do, you could do it like: If $msg = $button_1 Then Run("var\" & combot & ".exe") Edited January 25, 2006 by w0uter My UDF's:;mem stuff_Mem;ftp stuff_FTP ( OLD );inet stuff_INetGetSource ( OLD )_INetGetImage _INetBrowse ( Collection )_EncodeUrl_NetStat_Google;random stuff_iPixelSearch_DiceRoll Link to comment Share on other sites More sharing options...
ChrisL Posted January 25, 2006 Share Posted January 25, 2006 ChrisL only posted 6 lines of text Not to mention only 4 of them were code! [blatant P*ssTake] Exit [/blatant P*ssTake] [u]Scripts[/u]Minimize gui to systray _ Fail safe source recoveryMsgbox UDF _ _procwatch() Stop your app from being closedLicensed/Trial software system _ Buffering Hotkeys_SQL.au3 ADODB.Connection _ Search 2d Arrays_SplashTextWithGraphicOn() _ Adjust Screen GammaTransparent Controls _ Eventlogs without the crap_GuiCtrlCreateFlash() _ Simple Interscript communication[u]Websites[/u]Curious Campers VW Hightops Lambert Plant Hire Link to comment Share on other sites More sharing options...
Bert Posted January 26, 2006 Share Posted January 26, 2006 opps! , I got lost in all that scrolling. My bad. The Vollatran project  My blog: http://www.vollysinterestingshit.com/ Link to comment Share on other sites More sharing options...
AutoChris Posted January 26, 2006 Share Posted January 26, 2006 How about putting your different scripts into one script and separate them as functions rather than having them as completely different scripts? Link to comment Share on other sites More sharing options...
onestcoder Posted January 26, 2006 Author Share Posted January 26, 2006 How about putting your different scripts into one script and separate them as functions rather than having them as completely different scripts? That is what I want to do. I'm just not clean on how to set that up or what functions to use Need a website: http://www.iconixmarketing.com Link to comment Share on other sites More sharing options...
Bert Posted January 26, 2006 Share Posted January 26, 2006 Could you post just the first script in a codebox, then the second script in a codebox? Once we can see it separated, it should be simple to solve. The Vollatran project  My blog: http://www.vollysinterestingshit.com/ Link to comment Share on other sites More sharing options...
onestcoder Posted January 26, 2006 Author Share Posted January 26, 2006 this id the 100.exe expandcollapse popup;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 100 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $answer = MsgBox(4, "Synthesis Version 100", "This will run Synthesis V2 In 30sec after you click OK. Run?" & @CRLF & "Use this 30secs to get Image Support if you can!!!" & @CRLF & "REMEMBER!!! Sort your items in your Inventory before hitting OK!!!") If $answer = 7 Then MsgBox(0, "Exit", "OK. Bye!") Exit EndIf Sleep(30000) Send('{ESCAPE}') Sleep(1000) Send('{ESCAPE}') Sleep(1000) Send('{ESCAPE}') For $loop = 1 To 11 Sleep(1000) Send('{CTRLDOWN}') Sleep(500) Send('i') Sleep(500) Send('{CTRLUP}') Sleep(1000) Send('{LEFT 1}') Sleep(500) Send('{LEFT 1}') Sleep(500) Send('{LEFT 1}') Sleep(500) Send('{LEFT 1}') Sleep(500) Send('{LEFT 1}') ;Crystal Sleep(3000) Send('{ENTER}') Sleep(500) Send('{ENTER}') Sleep(500) ; first Ingredients Send('{ENTER}') Sleep(500) Send('{DOWN 1}') Sleep(500) Send('{ENTER}') Sleep(500) Send('{ENTER}') Sleep(500) Send('{RIGHT 1}') Sleep(500) Send('{RIGHT 1}') Sleep(500) Send('{RIGHT 1}') Sleep(500) Send('{RIGHT 1}') Sleep(500) Send('{ENTER}') Sleep(32000) Next ; Finished! MsgBox(0, "Exit", "Finished!") Need a website: http://www.iconixmarketing.com Link to comment Share on other sites More sharing options...
onestcoder Posted January 26, 2006 Author Share Posted January 26, 2006 And this is the 101.exe expandcollapse popup;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 101 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $answer = MsgBox(4, "Synthesis Version 101", "This will run Synthesis V2 In 30sec after you click OK. Run?" & @CRLF & "Use this 30secs to get Image Support if you can!!!" & @CRLF & "REMEMBER!!! Sort your items in your Inventory before hitting OK!!!") If $answer = 7 Then MsgBox(0, "Exit", "OK. Bye!") Exit EndIf Sleep(10000) Send('{ESCAPE}') Sleep(1000) Send('{ESCAPE}') Sleep(1000) Send('{ESCAPE}') For $loop = 1 To 11 Sleep(1000) Send('{CTRLDOWN}') Sleep(500) Send('i') Sleep(500) Send('{CTRLUP}') Sleep(500) Send('{LEFT 1}') Sleep(500) Send('{LEFT 1}') Sleep(500) Send('{LEFT 1}') Sleep(500) Send('{LEFT 1}') Sleep(500) Send('{LEFT 1}') Sleep(500) Send('{ENTER}') Sleep(500) Send('{ENTER}') Sleep(500) Send('{ENTER}') Sleep(500) Send('{DOWN 1}') Sleep(500) Send('{ENTER}') Sleep(500) Send('{RIGHT 1}') Sleep(500) Send('{RIGHT 1}') Sleep(500) Send('{RIGHT 1}') Sleep(500) Send('{RIGHT 1}') Sleep(500) Send('{ENTER}') ;Synthesis Sleep(32000) Next ; Finished! MsgBox(0, "Exit", "Finished!") Need a website: http://www.iconixmarketing.com Link to comment Share on other sites More sharing options...
The Kandie Man Posted January 27, 2006 Share Posted January 27, 2006 Ok, i know what you wanted to do. Therefore i did it. I wrote the two exe's into the main script and made them functions. I only did it for the first two, but i think you can easily figure out how to do it for the rest of the exe files. What i did: For the case select statement, i changed it to this: If $msg = $button_1 Then Select Case $combot = 100 Call("synth100") As you can see, i simply replaced the run functions with call functions. To create the functions, i simply named them after what you called them: "Synthesis Version 100" So i made the function name: synth100() To create a function, simply go to the bottom of your script and add: Func synth200() <Place code in here for the 200.exe> <replace any "Exit" commands with "Return 0" so that it will return to your main GUI window and not exit> EndFunc Continue to add these to the end of your script until you have a function for each of the .exe files. Remember to replace any "Exit" commands in the small .exe scripts with "Return 0" because Return 0 will end the function and tell the script to resume back at the main GUI loop. I hope that helps. Here is the modified 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 Call("synth100") 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 Call("synth101") 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 Func synth100() ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 100 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $answer = MsgBox(4, "Synthesis Version 100", "This will run Synthesis V2 In 30sec after you click OK. Run?" & @CRLF & "Use this 30secs to get Image Support if you can!!!" & @CRLF & "REMEMBER!!! Sort your items in your Inventory before hitting OK!!!") If $answer = 7 Then MsgBox(0, "Exit", "OK. Bye!") Return 0 EndIf Sleep(30000) Send('{ESCAPE}') Sleep(1000) Send('{ESCAPE}') Sleep(1000) Send('{ESCAPE}') For $loop = 1 To 11 Sleep(1000) Send('{CTRLDOWN}') Sleep(500) Send('i') Sleep(500) Send('{CTRLUP}') Sleep(1000) Send('{LEFT 1}') Sleep(500) Send('{LEFT 1}') Sleep(500) Send('{LEFT 1}') Sleep(500) Send('{LEFT 1}') Sleep(500) Send('{LEFT 1}') ;Crystal Sleep(3000) Send('{ENTER}') Sleep(500) Send('{ENTER}') Sleep(500) ; first Ingredients Send('{ENTER}') Sleep(500) Send('{DOWN 1}') Sleep(500) Send('{ENTER}') Sleep(500) Send('{ENTER}') Sleep(500) Send('{RIGHT 1}') Sleep(500) Send('{RIGHT 1}') Sleep(500) Send('{RIGHT 1}') Sleep(500) Send('{RIGHT 1}') Sleep(500) Send('{ENTER}') Sleep(32000) Next ; Finished! MsgBox(0, "Exit", "Finished!") EndFunc Func synth101() ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 101 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $answer = MsgBox(4, "Synthesis Version 101", "This will run Synthesis V2 In 30sec after you click OK. Run?" & @CRLF & "Use this 30secs to get Image Support if you can!!!" & @CRLF & "REMEMBER!!! Sort your items in your Inventory before hitting OK!!!") If $answer = 7 Then MsgBox(0, "Exit", "OK. Bye!") Return 0 EndIf Sleep(10000) Send('{ESCAPE}') Sleep(1000) Send('{ESCAPE}') Sleep(1000) Send('{ESCAPE}') For $loop = 1 To 11 Sleep(1000) Send('{CTRLDOWN}') Sleep(500) Send('i') Sleep(500) Send('{CTRLUP}') Sleep(500) Send('{LEFT 1}') Sleep(500) Send('{LEFT 1}') Sleep(500) Send('{LEFT 1}') Sleep(500) Send('{LEFT 1}') Sleep(500) Send('{LEFT 1}') Sleep(500) Send('{ENTER}') Sleep(500) Send('{ENTER}') Sleep(500) Send('{ENTER}') Sleep(500) Send('{DOWN 1}') Sleep(500) Send('{ENTER}') Sleep(500) Send('{RIGHT 1}') Sleep(500) Send('{RIGHT 1}') Sleep(500) Send('{RIGHT 1}') Sleep(500) Send('{RIGHT 1}') Sleep(500) Send('{ENTER}') ;Synthesis Sleep(32000) Next ; Finished! MsgBox(0, "Exit", "Finished!") EndFunc Sorry, the script is long but i wanted to make sure you understood where the functions go in relation to the script. "So man has sown the wind and reaped the world. Perhaps in the next few hours there will no remembrance of the past and no hope for the future that might have been." & _"All the works of man will be consumed in the great fire after which he was created." & _"And if there is a future for man, insensitive as he is, proud and defiant in his pursuit of power, let him resolve to live it lovingly, for he knows well how to do so." & _"Then he may say once more, 'Truly the light is sweet, and what a pleasant thing it is for the eyes to see the sun.'" - The Day the Earth Caught Fire Link to comment Share on other sites More sharing options...
greenmachine Posted January 27, 2006 Share Posted January 27, 2006 @Kandie Man - you seem to do this a lot. Call("synth100") is not required, instead you can simply use synth100() and it will execute the function. Link to comment Share on other sites More sharing options...
The Kandie Man Posted January 27, 2006 Share Posted January 27, 2006 (edited) Yeah i know, but for novice scripters it is preferred to simply use the call function. It is easier to understand when you are learning to use functions. The synth100() is better if you are calling the function with parameters, however, if you are novice it is better to use Call("synth100") then synth100() because they may not understand what that does. When you use the call function, it is obvious that it is calling another section of code within the script. It would be better to use synth100($x,$y) if i was calling the function with parameters. So basically i just use the call function because it is easier to understand. Edited January 27, 2006 by The Kandie Man "So man has sown the wind and reaped the world. Perhaps in the next few hours there will no remembrance of the past and no hope for the future that might have been." & _"All the works of man will be consumed in the great fire after which he was created." & _"And if there is a future for man, insensitive as he is, proud and defiant in his pursuit of power, let him resolve to live it lovingly, for he knows well how to do so." & _"Then he may say once more, 'Truly the light is sweet, and what a pleasant thing it is for the eyes to see the sun.'" - The Day the Earth Caught Fire Link to comment Share on other sites More sharing options...
greenmachine Posted January 27, 2006 Share Posted January 27, 2006 Valik will take your head. That's all I have to say to that. Link to comment Share on other sites More sharing options...
MHz Posted January 27, 2006 Share Posted January 27, 2006 And this is the 101.exe expandcollapse popup;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 101 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $answer = MsgBox(4, "Synthesis Version 101", "This will run Synthesis V2 In 30sec after you click OK. Run?" & @CRLF & "Use this 30secs to get Image Support if you can!!!" & @CRLF & "REMEMBER!!! Sort your items in your Inventory before hitting OK!!!") If $answer = 7 Then MsgBox(0, "Exit", "OK. Bye!") Exit EndIf Sleep(10000) Send('{ESCAPE}') Sleep(1000) Send('{ESCAPE}') Sleep(1000) Send('{ESCAPE}') For $loop = 1 To 11 Sleep(1000) Send('{CTRLDOWN}') Sleep(500) Send('i') Sleep(500) Send('{CTRLUP}') Sleep(500) Send('{LEFT 1}') Sleep(500) Send('{LEFT 1}') Sleep(500) Send('{LEFT 1}') Sleep(500) Send('{LEFT 1}') Sleep(500) Send('{LEFT 1}') Sleep(500) Send('{ENTER}') Sleep(500) Send('{ENTER}') Sleep(500) Send('{ENTER}') Sleep(500) Send('{DOWN 1}') Sleep(500) Send('{ENTER}') Sleep(500) Send('{RIGHT 1}') Sleep(500) Send('{RIGHT 1}') Sleep(500) Send('{RIGHT 1}') Sleep(500) Send('{RIGHT 1}') Sleep(500) Send('{ENTER}') ;Synthesis Sleep(32000) Next ; Finished! MsgBox(0, "Exit", "Finished!")To save using so many Sleeps, you could choose to use Opt('SendKeyDelay', ?) to delay all the sends where specified. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 101 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $answer = MsgBox(4, "Synthesis Version 101", "This will run Synthesis V2 In 30sec after you click OK. Run?" & @CRLF & "Use this 30secs to get Image Support if you can!!!" & @CRLF & "REMEMBER!!! Sort your items in your Inventory before hitting OK!!!") If $answer = 7 Then MsgBox(0, "Exit", "OK. Bye!") Exit EndIf Sleep(10000) Send('{ESCAPE}') Sleep(1000) Send('{ESCAPE}') Sleep(1000) Send('{ESCAPE}') Opt('SendKeyDelay', 500); SendKeyDelay set to 500 ms For $loop = 1 To 11 Sleep(500) Send('{CTRLDOWN}i{CTRLUP}{LEFT 5}{ENTER 3}{DOWN 1}{ENTER}{RIGHT 4}{ENTER}') ;Synthesis Sleep(32000) Next ; Finished! MsgBox(0, "Exit", "Finished!") Opt('SendKeyDelay', 5); SendKeyDelay to default. You may want to check it, but I'm reasonably sure it gives the same results with less Sleep function calls. Link to comment Share on other sites More sharing options...
onestcoder Posted January 27, 2006 Author Share Posted January 27, 2006 Oh Thank you . This is awesome. I will use this and will post my new updated code for you to look at after I make my changes. Need a website: http://www.iconixmarketing.com Link to comment Share on other sites More sharing options...
onestcoder Posted January 28, 2006 Author Share Posted January 28, 2006 (edited) Ok here is my NEW code. I just need 1 more thing.... If you press cancel while in a function it exits the intire gui and when the function ends and you hit OK it exits the Gui. How can I stop that??? Edited February 1, 2006 by onestcoder Need a website: http://www.iconixmarketing.com Link to comment Share on other sites More sharing options...
MHz Posted January 28, 2006 Share Posted January 28, 2006 (edited) Ok here is my NEW code. I just need 1 more thing.... If you press cancel while in a function it exits the intire gui and when the function ends and you hit OK it exits the Gui. How can I stop that??? expandcollapse popup;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; Totals and Activation ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $combot = $cook2 + $wood2 + $gold2 + $leather2 + $bone2 + $smith2 + $alch2 + $cloth2 $msg = GUIGetMsg() If $msg = $button_1 Then Select Case $combot = 100 Call("synth100") Case $combot = 200 Call("synth200") Case $combot = 300 Call("synth300") Case $combot = 400 Call("synth400") Case $combot = 500 Call("synth500") Case $combot = 800 Call("synth800") Case $combot = 101 Call("synth101") Case $combot = 201 Call("synth201") Case $combot = 301 Call("synth301") Case $combot = 501 Call("synth501") Case $combot = 701 Call("synth701") Case $combot = 202 Call("synth202") Case $combot = 2000 Call("synth2000") Case $combot = 3000 Call("synth3000") Case $combot = 4000 Call("synth4000") Case $combot = 8000 Call("synth8000") Case $combot = 3020 Call("synth3020") Case $combot = 4020 Call("synth4020") Case $combot = 4040 Call("synth4040") EndSelect EndIf If $msg = $n2 Then MsgBox(0, "Exit", "OK. Bye!") Exit EndIf Until $msg = $GUI_EVENT_CLOSEYour code is looking better. For your question: Use Return to end a function instead of using Exit which will end the script. Since you are using Call() without a need to, then perhaps some good use should be done. Unless there is some restriction with integers used only within of your Select block, then Call() could shrink down the code plenty. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; Totals and Activation ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $combot = $cook2 + $wood2 + $gold2 + $leather2 + $bone2 + $smith2 + $alch2 + $cloth2 $msg = GUIGetMsg() If $msg = $button_1 Then Call('synth' & $combot) If @error Then ContinueLoop If $msg = $n2 Then MsgBox(0, "Exit", "OK. Bye!") Exit EndIf Until $msg = $GUI_EVENT_CLOSE Edited January 28, 2006 by MHz 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