Jump to content

Need Help with reading a .txt file

onestcoder

By onestcoder,
in AutoIt GUI Help and Support

 Share

Recommended Posts

onestcoder Prodigy

onestcoder

Posted
Posted

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.

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

Link to comment
Share on other sites
onestcoder Prodigy

onestcoder

Posted
  • Author
Posted

Here is an example of one of the exe files. It they are all autoit scripts

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; AutoIt V 3.1.1
; Laura's Synthisis Powerlever Bot
; Version 1.0
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$answer = MsgBox(4, "Synthesis Version 100", "This will run Synthesis 0.01 In 10sec after you click OK. Run?" & @CRLF & "REMEMBER!!! Sort your items in your Inventory before hitting OK!!!")
If $answer = 7 Then
    MsgBox(0, "Exit Program", "OK.  Bye!")
    Exit
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Waits 10 secs then starts with 3 escapes
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Sleep(20000)
Send('{ESCAPE}')
Sleep(2000)
Send('{ESCAPE}')
Sleep(2000)
Send('{ESCAPE}')
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Open Inventory and scroll to the top
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
For $loop = 1 To 11
    Sleep(1000)
    Send('{CTRLDOWN}')
    Sleep(100)
    Send('i')
    Sleep(100)
    Send('{CTRLUP}')
    Sleep(2000)
    Send('{LEFT 1}')
    Sleep(200)
    Send('{LEFT 1}')
    Sleep(200)
    Send('{LEFT 1}')
    Sleep(200)
    Send('{LEFT 1}')
    Sleep(200)
    Send('{LEFT 1}')
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; loads Items
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Crystal
    Sleep(3000)
    Send('{ENTER}')
    Sleep(200)
    Send('{ENTER}')
    Sleep(200)
; first Ingredients
    Send('{ENTER}')
    Sleep(200)
    Send('{DOWN 1}')
    Sleep(200)
    Send('{ENTER}')
    Sleep(200)   ; Flag
    Send('{ENTER}'); Flag
    Sleep(200)
    Send('{RIGHT 1}')
    Sleep(200)
    Send('{RIGHT 1}')
    Sleep(200)
    Send('{RIGHT 1}')
    Sleep(200)
    Send('{RIGHT 1}')
    Sleep(200)
    Send('{ENTER}')
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Wait 31 secs for synth
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    Sleep(31000)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; After loop finishs with one last load
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Next
Sleep(1000)
Send('{CTRLDOWN}')
Sleep(100)
Send('i')
Sleep(100)
Send('{CTRLUP}')
Sleep(2000)
Send('{LEFT 1}')
Sleep(200)
Send('{LEFT 1}')
Sleep(200)
Send('{LEFT 1}')
Sleep(200)
Send('{LEFT 1}')
Sleep(200)
Send('{LEFT 1}')
Sleep(3000)
Send('{ENTER}')
Sleep(200)
Send('{ENTER}')
Sleep(200)
Send('{ENTER}')
Sleep(200)
Send('{DOWN 1}')
Sleep(200)
Send('{ENTER}')
Sleep(200)
Send('{RIGHT 1}')
Sleep(200)
Send('{RIGHT 1}')
Sleep(200)
Send('{RIGHT 1}')
Sleep(200)
Send('{RIGHT 1}')
Sleep(200)
Send('{ENTER}')
Sleep(2000)
; Finished!
MsgBox(0, "AutoIt Example", "Finished!")

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

Link to comment
Share on other sites
peter1234 Adventurer

peter1234

Posted
Posted

Use FileInstall to include all of the exes when you compile. This will allow you to combine them all into a single exe file. I think this is what you want to do.

If this is of no help, I am sorry. I have not read all of your script because of its length. I suggest making a short test scipt that allows people to easily see what it is you want to do.

Link to comment
Share on other sites
martin Universalist

martin

Posted
Posted (edited)

Instead of writing

If $msg = $button_1 Then

Select

Case $combot = 100

Run("var\100.exe")

Case $combot = 200

Run("var\200.exe")

....etc

why not write

If $msg = $button_1 Then Run("var\" & $combot & ".exe")

You've made a lot of work for yourself by writing so much code when you could have all the different strings or options in a text file and read them into arrays. Then you could reduce the number of lines you write by a factor of 10 I would guess. You could then include options in your program to add to it or remove items without needing a program rewrite. Or is this what you're asking how to do?

As far as the rest is concerned maybe you could ask a very specific question with just a little

relevant code, because you've included a lot of code and not enough explanation of your problem.

Edited by martin
Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.
Link to comment
Share on other sites

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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...