Created this weapon crafting macro. It's not perfect and you need the right soma screen res which i think is 1024x800 and window placed in lower left corner of the screen, but it will craft daggers for you and sell them at intervals. If your standing by the repair guy and crafting station. Code: begin Window.Wait for window to appear("Myth of Soma : The Rise of Gorshak", "no") begin loop() if Keyboard.Key is held down("{<F1>}") // craft shoes begin begin loop("4") Macro.Pause("2000") Mouse.Click at coordinate("664", "576", "Left") Macro.Pause("1000") Mouse.Click at coordinate("664", "576", "Left") Macro.Pause("1000") Mouse.Click at coordinate("429", "445", "Left") Macro.Pause("1000") Mouse.Click at coordinate("429", "445", "Left") Macro.Pause("1000") Mouse.Click at coordinate("429", "445", "Left") Macro.Pause("1000") Mouse.Click at coordinate("215", "675", "Left") Macro.Pause("450") Keyboard.Type text("dagga") Macro.Pause("450") Keyboard.Press key("{<enter>}") Macro.Pause("450") Mouse.Drag("221", "819", "214", "630", "Left") Macro.Pause("450") Keyboard.Type text("3") Macro.Pause("450") Keyboard.Press key("{<enter>}") Macro.Pause("450") Mouse.Drag("278", "814", "264", "627", "Left") Macro.Pause("250") Keyboard.Type text("1") Macro.Pause("450") Keyboard.Press key("{<enter>}") Macro.Pause("450") begin loop("52") Mouse.Click at coordinate("441", "677", "Left") Macro.Pause("900") end Mouse.Click at coordinate("390", "919", "Left") Macro.Pause("2000") Mouse.Click at coordinate("512", "737", "Left") Macro.Pause("500") Mouse.Click at coordinate("512", "737", "Left") Macro.Pause("500") Mouse.Click at coordinate("405", "462", "Left") Macro.Pause("500") Mouse.Click at coordinate("405", "462", "Left") Macro.Pause("500") begin loop("42") Mouse.Click at coordinate("208", "665", "Left") Macro.Pause("500") Mouse.Click at coordinate("333", "665", "Left") Macro.Pause("500") end Mouse.Click at coordinate("482", "904", "Left") end end end end
Created this weapon crafting macro. It's not perfect and you need the right soma screen res which i think is 1024x800 and window placed in lower left corner of the screen, but it will craft daggers for you and sell them at intervals. If your standing by the repair guy and crafting station. [code] begin Window.Wait for window to appear("Myth of Soma : The Rise of Gorshak", "no") begin loop() if Keyboard.Key is held down("{<F1>}") // craft shoes begin begin loop("4") Macro.Pause("2000") Mouse.Click at coordinate("664", "576", "Left") Macro.Pause("1000") Mouse.Click at coordinate("664", "576", "Left") Macro.Pause("1000") Mouse.Click at coordinate("429", "445", "Left") Macro.Pause("1000") Mouse.Click at coordinate("429", "445", "Left") Macro.Pause("1000") Mouse.Click at coordinate("429", "445", "Left") Macro.Pause("1000") Mouse.Click at coordinate("215", "675", "Left") Macro.Pause("450") Keyboard.Type text("dagga") Macro.Pause("450") Keyboard.Press key("{<enter>}") Macro.Pause("450") Mouse.Drag("221", "819", "214", "630", "Left") Macro.Pause("450") Keyboard.Type text("3") Macro.Pause("450") Keyboard.Press key("{<enter>}") Macro.Pause("450") Mouse.Drag("278", "814", "264", "627", "Left") Macro.Pause("250") Keyboard.Type text("1") Macro.Pause("450") Keyboard.Press key("{<enter>}") Macro.Pause("450") begin loop("52") Mouse.Click at coordinate("441", "677", "Left") Macro.Pause("900") end Mouse.Click at coordinate("390", "919", "Left") Macro.Pause("2000") Mouse.Click at coordinate("512", "737", "Left") Macro.Pause("500") Mouse.Click at coordinate("512", "737", "Left") Macro.Pause("500") Mouse.Click at coordinate("405", "462", "Left") Macro.Pause("500") Mouse.Click at coordinate("405", "462", "Left") Macro.Pause("500") begin loop("42") Mouse.Click at coordinate("208", "665", "Left") Macro.Pause("500") Mouse.Click at coordinate("333", "665", "Left") Macro.Pause("500") end Mouse.Click at coordinate("482", "904", "Left") end end end end [/code]
|