Sign in to follow this  
Followers 0
onestcoder

I need to compile 18 exe's into one!

25 posts in this topic

#1 ·  Posted (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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; 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

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

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 by onestcoder

Need a website: http://www.iconixmarketing.com

Share this post


Link to post
Share on other sites



#2 ·  Posted (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 by ChrisL

Share this post


Link to post
Share on other sites

@ChrisL

You may want to use codebox to enclose your script when you have one of that size.

;) ChrisL only posted 6 lines of text :lmao:


[center]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.[/center]

Share this post


Link to post
Share on other sites
How about putting your different scripts into one script and separate them as functions rather than having them as completely different scripts?

Share this post


Link to post
Share on other sites

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 :lmao:


Need a website: http://www.iconixmarketing.com

Share this post


Link to post
Share on other sites

this id the 100.exe

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; 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

Share this post


Link to post
Share on other sites

And this is the 101.exe

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; 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

Share this post


Link to post
Share on other sites

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:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; 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. :lmao:


"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

Share this post


Link to post
Share on other sites

@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.

Share this post


Link to post
Share on other sites

#15 ·  Posted (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. :lmao:

Edited 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

Share this post


Link to post
Share on other sites

Valik will take your head. That's all I have to say to that.

Share this post


Link to post
Share on other sites

And this is the 101.exe

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; 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. :lmao:

Share this post


Link to post
Share on other sites

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.

:lmao:;)o:)


Need a website: http://www.iconixmarketing.com

Share this post


Link to post
Share on other sites

#19 ·  Posted (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 by onestcoder

Need a website: http://www.iconixmarketing.com

Share this post


Link to post
Share on other sites

#20 ·  Posted (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???

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; 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_CLOSE
Your 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

:lmao:

Edited by MHz

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0