Aces Posted June 21, 2007 Share 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 Link to comment Share on other sites More sharing options...
/dev/null Posted June 21, 2007 Share 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 * Link to comment Share on other sites More sharing options...
Aces Posted June 21, 2007 Author Share 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 Link to comment Share on other sites More sharing options...
Aces Posted June 21, 2007 Author Share 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 Link to comment Share on other sites More sharing options...
/dev/null Posted June 21, 2007 Share 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 * Link to comment Share on other sites More sharing options...
Aces Posted June 21, 2007 Author Share 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 Link to comment Share on other sites More sharing options...
/dev/null Posted June 21, 2007 Share 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 * Link to comment Share on other sites More sharing options...
Aces Posted June 21, 2007 Author Share 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 Link to comment Share on other sites More sharing options...
Aces Posted June 21, 2007 Author Share 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 Link to comment Share on other sites More sharing options...
/dev/null Posted June 21, 2007 Share 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 * Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now