Sign in to follow this  
Followers 0
Aces

error messages/hotkeys

10 posts in this topic

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

Share this post


Link to post
Share on other sites



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 *

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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 *

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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 *

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

$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 *

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