Aces Posted June 21, 2007 Posted June 21, 2007 (edited) CODE;; Diablo II LOD Starter Script Start ;; Set AutoIt Options AutoItSetOption("MouseCoordMode", 0) AutoItSetOption("PixelCoordMode", 0) AutoItSetOption("WinWaitDelay", 500) AutoItSetOption("MouseClickDelay", 200) AutoItSetOption("ColorMode", 0) ;; Mouse Delay $mouse = 500 ;; Window Config $title = "UberAces v1.0" ;; Diablo II Config $d2path = IniRead("config\config.ini", "D2", "d2path", "") $d2exe = IniRead("config\config.ini", "D2", "d2exe", "") $d2param = IniRead("config\config.ini", "D2", "d2param", "") $d2account = IniRead("config\config.ini", "Login", "d2account", "") $d2pass = IniRead("config\config.ini", "Login", "d2pass", "") $d2charslot = IniRead("config\config.ini", "Login", "d2charslot", "") $d2gamename = IniRead("config\config.ini", "Game", "d2gamename", "") $d2gamepass = IniRead("config\config.ini", "Game", "d2gamepass", "") ;; Binds ;; $portal = Run("config\Portal") ;; Start Start() ;; To Account InputBox ToAccount() ;; Erase Erase() ;; To Password InputBox ToPass() ;; Login Login() ;; Character Selection Character() ;; Create Uber Game Create() ;; Bot Directions Directions() ;; Set Functions Func Erase() $i = 0 Do Send("{BS}") $i = $i + 1 Until $i = 20 Sleep(500) Send($d2account) Sleep(500) EndFunc Func Start() ShellExecute($d2exe, $d2param, $d2path) WinWaitActive($title) WinSetState($title, "", @SW_SHOW) WinMove($title, "", 0, 0) WinSetTitle($title, "", $title & " - " & "Login") Sleep(4000) EndFunc Func ToAccount() $accountcolor = PixelGetColor(430,355) $accountchecksum = PixelChecksum(430,355,430,355, 1) $accounthex = PixelSearch(430,355,430,355, $accountcolor) MouseMove( $accounthex[0] , $accounthex[1] ) MouseClick("left", $accounthex[0] , $accounthex[1] ) MouseClick("left", $accounthex[0] , $accounthex[1] ) Sleep(500) EndFunc Func ToPass() $accountcolor = PixelGetColor(430,410) $accountchecksum = PixelChecksum(430,410,430,410, 1) $accounthex = PixelSearch(430,410,430,410, $accountcolor) MouseMove( $accounthex[0] , $accounthex[1] ) MouseClick("left", $accounthex[0] , $accounthex[1] ) MouseClick("left", $accounthex[0] , $accounthex[1] ) Send($d2pass) Sleep(500) EndFunc Func Login() MouseMove(400, 490, 1) MouseClick("left", 400, 490, 1, 1) WinSetTitle($title & " - " & "Login", "", $title & " - " & "Character Selection") Sleep(3000) EndFunc Func Character() If ($d2charslot == 1) Then MouseMove(175,135) Sleep($mouse) MouseClick("left", 175, 135, 1, 1) MouseClick("left", 175, 135, 1, 1) EndIf If ($d2charslot == 2) Then MouseMove(450,135) Sleep($mouse) MouseClick("left", 450, 135, 1, 1) MouseClick("left", 450, 135, 1, 1) EndIf If ($d2charslot == 3) Then MouseMove(175,235) Sleep($mouse) MouseClick("left", 175, 235, 1, 1) MouseClick("left", 175, 235, 1, 1) EndIf If ($d2charslot == 4) Then MouseMove(450,235) Sleep($mouse) MouseClick("left", 450, 235, 1, 1) MouseClick("left", 450, 235, 1, 1) EndIf If ($d2charslot == 5) Then MouseMove(175,335) Sleep($mouse) MouseClick("left", 175, 335, 1, 1) MouseClick("left", 175, 335, 1, 1) EndIf If ($d2charslot == 6) Then MouseMove(450,335) Sleep($mouse) MouseClick("left", 450, 335, 1, 1) MouseClick("left", 450, 335, 1, 1) EndIf If ($d2charslot == 7) Then MouseMove(175,435) Sleep($mouse) MouseClick("left", 175, 435, 1, 1) MouseClick("left", 175, 435, 1, 1) EndIf If ($d2charslot == 8) Then MouseMove(450,435) Sleep($mouse) MouseClick("left", 450, 435, 1, 1) MouseClick("left", 450, 435, 1, 1) EndIf WinSetTitle($title & " - " & "Character Selection", "", $title & " - " & "Creating Uber Tristram Game [delay 10 seconds]") Sleep(10000) EndFunc Func Create() $accountcolor = PixelGetColor(555,480) $accountchecksum = PixelChecksum(555,480,555,480, 1) $accounthex = PixelSearch(555,480,555,480, $accountcolor) MouseMove( $accounthex[0] , $accounthex[1] ) Sleep($mouse) MouseClick("left", $accounthex[0] , $accounthex[1] ) $accountcolor = PixelGetColor(545,175) $accountchecksum = PixelChecksum(545,175,545,175, 1) $accounthex = PixelSearch(545,175,545,175, $accountcolor) MouseClick("left", $accounthex[0] , $accounthex[1] ) Sleep($mouse) Send($d2gamename) Sleep($mouse) $accountcolor = PixelGetColor(545,225) $accountchecksum = PixelChecksum(545,225,545,225, 1) $accounthex = PixelSearch(545,225,545,225, $accountcolor) MouseClick("left", $accounthex[0] , $accounthex[1] ) Sleep($mouse) Send($d2gamepass) Sleep($mouse) $accountcolor = PixelGetColor(625,440) $accountchecksum = PixelChecksum(625,440,625,440, 1) $accounthex = PixelSearch(625,440,625,440, $accountcolor) MouseMove( $accounthex[0] , $accounthex[1] ) Sleep($mouse) MouseClick("left", $accounthex[0], $accounthex[1] ) Sleep(5000) EndFunc Func Directions() SEND("{ENTER}") Sleep($mouse) Send("UberAces v1.0: Press 'F10' to set up Uber Tristram Portal (You must have Horadric Cube with Org Set inside of it in your inventory)") Sleep($mouse) Send("{ENTER}") WinSetTitle($title & " - " & "Creating Uber Tristram Game [delay 10 seconds]", "", $title) While 1 $portal = Run("config\Portal") HotKeySet("{F10}", $portal & "Terminate") WEnd EndFunc need to keep script open until i press 'F10' to execute the script its right up here at the bottom Edited June 21, 2007 by Aces ~~ AutoIt v3 Minion ~~Name: Kevin "Aces-X" MorrisOrganization: A C DevelopmentE-Mail: AcesX91@acecoding.netOS: XP Professional; Vista package~~ Released Software ~~CPU-Mach: Topic at acecoding.net ForumsProxyzBuddy: Beta testing at the moment, private onlyWHSTool: Not released to the public
/dev/null Posted June 21, 2007 Posted June 21, 2007 no question, no answer! __________________________________________________________(l)user: Hey admin slave, how can I recover my deleted files?admin: No problem, there is a nice tool. It's called rm, like recovery method. Make sure to call it with the "recover fast" option like this: rm -rf *
Aces Posted June 21, 2007 Author Posted June 21, 2007 whats that all about?... ~~ AutoIt v3 Minion ~~Name: Kevin "Aces-X" MorrisOrganization: A C DevelopmentE-Mail: AcesX91@acecoding.netOS: XP Professional; Vista package~~ Released Software ~~CPU-Mach: Topic at acecoding.net ForumsProxyzBuddy: Beta testing at the moment, private onlyWHSTool: Not released to the public
Aces Posted June 21, 2007 Author Posted June 21, 2007 need to keep script open now, please check post #1 ~~ AutoIt v3 Minion ~~Name: Kevin "Aces-X" MorrisOrganization: A C DevelopmentE-Mail: AcesX91@acecoding.netOS: XP Professional; Vista package~~ Released Software ~~CPU-Mach: Topic at acecoding.net ForumsProxyzBuddy: Beta testing at the moment, private onlyWHSTool: Not released to the public
/dev/null Posted June 21, 2007 Posted June 21, 2007 whats that all about?...good question! __________________________________________________________(l)user: Hey admin slave, how can I recover my deleted files?admin: No problem, there is a nice tool. It's called rm, like recovery method. Make sure to call it with the "recover fast" option like this: rm -rf *
Aces Posted June 21, 2007 Author Posted June 21, 2007 thanks a lot man im over here spending hours on this and you're joking. thanks a lot XD ~~ AutoIt v3 Minion ~~Name: Kevin "Aces-X" MorrisOrganization: A C DevelopmentE-Mail: AcesX91@acecoding.netOS: XP Professional; Vista package~~ Released Software ~~CPU-Mach: Topic at acecoding.net ForumsProxyzBuddy: Beta testing at the moment, private onlyWHSTool: Not released to the public
/dev/null Posted June 21, 2007 Posted June 21, 2007 thanks a lot man im over here spending hours on this and you're joking. thanks a lot XD well, no question, now answer... Anyway, I try to GUESS what you want! What is this supposed to do? While 1 $portal = Run("config\Portal") HotKeySet(][ÝÞÑLI][ÝË ÌÍÜÜ[ [È ][ÝÕZ[]I][ÝÊBUÑ[ __________________________________________________________(l)user: Hey admin slave, how can I recover my deleted files?admin: No problem, there is a nice tool. It's called rm, like recovery method. Make sure to call it with the "recover fast" option like this: rm -rf *
Aces Posted June 21, 2007 Author Posted June 21, 2007 well, no question, now answer... Anyway, I try to GUESS what you want! What is this supposed to do? c2--><!--CglXaGlsZSAxCgkJJiMwMzY7cG9ydGFsID0gUnVuKCZxdW90O2NvbmVZQÞSÌPÛÖÎLÞZÒÐÔ[XÔ[ÂXÔMÙL^RXÖÜÒPÖZQÓ$ó4'f6å&$4Õst÷Ö5gfDGEU¥§FsVDuVÖ5gfDG76vÅ%sV´6vóÒÒÒb3c#²b3c²bÌÌì´µ i want to set F10 so that i can press F10 on my keyboard and it starts a script that i specify and i also want to keep this script active until i press F10 ~~ AutoIt v3 Minion ~~Name: Kevin "Aces-X" MorrisOrganization: A C DevelopmentE-Mail: AcesX91@acecoding.netOS: XP Professional; Vista package~~ Released Software ~~CPU-Mach: Topic at acecoding.net ForumsProxyzBuddy: Beta testing at the moment, private onlyWHSTool: Not released to the public
Aces Posted June 21, 2007 Author Posted June 21, 2007 well, no question, now answer... Anyway, I try to GUESS what you want! What is this supposed to do? $portalpath = IniRead("config\config.ini", "Porta ][ÝË ][ÝÜ] ][ÝË ][ÝÉ][ÝÊBIÌÍÜÜ[^HH[TXY ][ÝØÛæfrb3#¶6öæfræægV÷C²ÂgV÷Cµ÷'FÂgV÷C²ÂgV÷C¶WRgV÷C²ÂgV÷C²gV÷ì¤($ÀÌØíÄÀô!½Ñ-åMÐ ÅÕ½ÐííÄÁôÅÕ½Ðì°M¡±±áÕÑ ÀÌØíÁ½ÉÑ°¹á°"", $portalpath) & "Terminate") get what i want now? ~~ AutoIt v3 Minion ~~Name: Kevin "Aces-X" MorrisOrganization: A C DevelopmentE-Mail: AcesX91@acecoding.netOS: XP Professional; Vista package~~ Released Software ~~CPU-Mach: Topic at acecoding.net ForumsProxyzBuddy: Beta testing at the moment, private onlyWHSTool: Not released to the public
/dev/null Posted June 21, 2007 Posted June 21, 2007 $f10 = HotKeySet("{F10}", ShellExecute($portal.exe, "", $portalpath) & "Terminate")get what i want now?two problems here: 1.) second parameter of HotKeySet is just a string containing a function name, see help file samples.2.) what is '& "Terminate" ' supposed to do? __________________________________________________________(l)user: Hey admin slave, how can I recover my deleted files?admin: No problem, there is a nice tool. It's called rm, like recovery method. Make sure to call it with the "recover fast" option like this: rm -rf *
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