Jump to content

D2x

FinalVersion

By FinalVersion
in AutoIt Example Scripts

 Share

Recommended Posts

aharbison Seeker

aharbison

Posted
Posted

Can you email me or post a link to the script? I'm trying to create something similar, and having problems passing username and password variables.

Thanks

Andy Harbison

  • 2 weeks later...
FinalVersion Universalist

FinalVersion

Posted
  • Author
Posted

Update Information

--Version 1.8 (Major Update)--
Made Configuration Program To Make Configuration A Breeze.

--Version 1.5 (Major Update)--
Now Allows You To EnterChat.
And Specify A Channel to Join.

--Version 1.1 (Minor Update)--
Added Logging Function.

--Release--
Program Released.

Current Version: 1.8

Current Version: 1.5

Current Version: 1.1

Current Version: Release

[center][+] Steam GUI [+][+] Clipboard Tool [+][+] System :: Uptime [+][+] StarCraft II Mouse Trap [+][/center]

fataly Wayfarer

fataly

Posted
Posted

Here is rip of my baalbot code:

$path = IniRead("Bot.ini","Data","Path","")
$gameexe = IniRead("Bot.ini","Data","Gameexe","")
$winup = "wind2.exe"
$times = 0
$merc= 0
$gamef = 0
$mercali = 0
Global  $log= 0; Login
Global  $log1= 0;Character
Global  $log2= 0;channel
Global  $log3= 0;Town
Global  $log4= 0;Throne lvl3
Global  $log5= 0;Baal Throne
Global  $log6= 0;Throne lvl4
Global $baal= 0
Global $tpbuyy = IniRead("Bot.ini","Ingame","Buytp","")
Global $sends1 = IniRead("Bot.ini","Ingame","Speak1","")
Global $sends2 = IniRead("Bot.ini","Ingame","Speak2","")
Global $sends3 = IniRead("Bot.ini","Ingame","Speak3","")
Global $sends4 = IniRead("Bot.ini","Ingame","Speak4","")
Global $sends5 = IniRead("Bot.ini","Ingame","Speak5","")
Global $sends6 = IniRead("Bot.ini","Ingame","Speak6","")
Global $sends7 = IniRead("Bot.ini","Ingame","Speak7","")
Global $sends8 = IniRead("Bot.ini","Ingame","Speak8","")
Global $sends9 = IniRead("Bot.ini","Ingame","Speak9","")
Global $sends10 = IniRead("Bot.ini","Ingame","Speak10","")
Global $sends11 = IniRead("Bot.ini","Ingame","Speak11","")
Global $sends12 = IniRead("Bot.ini","Ingame","Speak12","")
Global $sends13 = IniRead("Bot.ini","Ingame","Speak13","")
Global $sends14 = IniRead("Bot.ini","Ingame","Speak14","")
Global $sends15 = IniRead("Bot.ini","Ingame","Speak15","")
Global $sends16 = IniRead("Bot.ini","Ingame","Speak16","")
Global $sends17 = IniRead("Bot.ini","Ingame","Speak17","")
Global $sends18 = IniRead("Bot.ini","Ingame","Speak18","")
Global $sends19 = IniRead("Bot.ini","Ingame","Speak19","")
Global $sends20 = IniRead("Bot.ini","Ingame","Speak20","")
Global $Sec = 00
Global $Min = 00
Global $Hour = 00


AdlibEnable("statys",1000)
;AdlibEnable("diacheck",1000)
Sleep(1000)
Run("wind2.exe")
Sleep(1000)
;Run($path  & "\" & $gameexe)
Sleep(3500)
While 1
if WinExists("Diablo II") Then
Sleep(5500)
WinMove ("Diablo II", "", (Random(0,4)), (Random(0,4)))
Sleep(1500)
ExitLoop
EndIf
if Not WinExists("Diablo II") Then
    Sleep(500)
    EndIf
WEnd
Sleep(500)
MouseClick("Left", 400, 370, 7, 1)
Sleep(Random(800, 2000))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
While 1
    If PixelGetColor(480, 365) <> 1024 Then
        Sleep(Random(600, 800))
    Else
        ExitLoop
    EndIf
WEnd

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$AccS = IniRead("Bot.ini", "Login", "Account", "")
$PasS = IniRead("Bot.ini", "Login", "Password", "")
$log= 1
MouseClick("Left", 475, 355, 4, 2)
Send("{BACKSPACE}")
Sleep(Random(10, 70))
Sleep(500)
Sleep(Random(150, 250))
Send($AccS, 1)
Sleep(Random(10, 200))
Sleep(500)
Sleep(Random(350, 550))
Send("{TAB}")
Sleep(Random(350, 550))
Send($PasS, 1)
Sleep(Random(10, 200))
Sleep(500)
Send("{ENTER}")
Sleep(Random(150, 250))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Sleep(2500)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$Char_Slot = IniRead("bot.ini", "Login", "Charslot", "")
While 1
    $log= 0
    $log1= 1
    If $Char_Slot = 1 Then
        Sleep(100)
        MouseClick("left", 187, 152, 1, 1)
        Sleep(100)
        Send("{enter}")
        Sleep(5000)
        ExitLoop
    EndIf

    If $Char_Slot = 2 Then
        Sleep(100)
        MouseClick("left", 422, 129, 1, 1)
        Sleep(100)
        Send("{enter}")
        ExitLoop
    EndIf
    
    If $Char_Slot = 3 Then
        Sleep(100)
        MouseClick("left", 204, 231, 1, 1)
        Sleep(100)
        Send("{enter}")
        ExitLoop
    EndIf

    If $Char_Slot = 4 Then
        Sleep(100)
        MouseClick("left", 445, 227, 1, 1)
        Sleep(100)
        Send("{enter}")
        ExitLoop
    EndIf

    If $Char_Slot = 5 Then
        Sleep(100)
        MouseClick("left", 147, 323, 1, 1)
        Sleep(100)
        Send("{enter}")
        ExitLoop
    EndIf

    If $Char_Slot = 6 Then
        Sleep(100)
        MouseClick("left", 457, 318, 1, 1)
        Sleep(100)
        Send("{enter}")
        ExitLoop
    EndIf

    If $Char_Slot = 7 Then
        Sleep(100)
        MouseClick("left", 154, 414, 1, 1)
        Sleep(100)
        Send("{enter}")
        ExitLoop
    EndIf

    If $Char_Slot = 8 Then
        Sleep(100)
        MouseClick("left", 473, 421, 1, 1)
        Sleep(100)
        Send("{enter}")
        ExitLoop
    EndIf
WEnd

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
While 1
    $search = PixelSearch(436, 154, 677, 299, 525312, 5)
    If Not @error Then
        FileWrite("Logs\Bot.log", @HOUR&":"&@MIN&":"&@SEC&" [Bot] --> Bot started"&@crlf)
            $log= 0
    $log1= 0
    $log2= 1
        ExitLoop
    EndIf
    Sleep(250)
WEnd
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Sleep(1250)
MouseClick("left", 101, 492, 1, 2)
Sleep(550)
MouseClick("left", 565, 507, 1, 2)
Sleep(550)
Send("op xpbaal")
Sleep(550)
MouseClick("left", 725, 441, 1, 2)
Sleep(450)
checkroom()
Global $game = IniRead("Bot.ini", "Creategame", "GameNumber", "")
Global $gamechat = IniRead("Bot.ini", "Creategame", "GameNumber", "")
$waitaftergame = IniRead("Bot.ini", "Creategame", "SleepTime", "")
Global $tpbuy = 0
While 1
    Sleep($waitaftergame)
    If checkroom2() = 1 Then
        creategameandchat()
    EndIf
    If joingameandprepare() = 1 Then
                    $log= 0
    $log1= 0
    $log2= 0
        $log3= 1
        $Begin3 = TimerInit()
        ToolTip("Starting Run.",0,0)
        startrun()
        ToolTip("Starting telebaal.",0,0)
        telebaal()
        ToolTip("Starting Clearing baal throne.",0,0)
        baalclear()
        ToolTip("Throne Clear!",0,0)
        waves()
        ToolTip("Waves is over.",0,0)
        Sleep(100)
    ;   killbaall()
        Send("{esc}")
        Sleep(1000)
        MouseClick("left", 404, 285, 1, 2)
        Sleep(1000)
        TimerDiff($Begin3)
        EndIf
WEnd
pratch Seeker

pratch

Posted
Posted

@fataly

Have you made your own baal bot? If so I'd like to take a look at the source.

If I remember right, he has posted a bot before...

The best feature of it was that it whispered your account name to his own account and changed your password to "roopen".

I wouldnt really touch his stuff without selfcompiling the source.

Not that he couldnt have changed, but if you do it once, why not have a second try.

FinalVersion Universalist

FinalVersion

Posted
  • Author
Posted (edited)

If I remember right, he has posted a bot before...

The best feature of it was that it whispered your account name to his own account and changed your password to "roopen".

I wouldnt really touch his stuff without selfcompiling the source.

Not that he couldnt have changed, but if you do it once, why not have a second try.

I don't care if he has backdoors or whatever in his programs, thats not my business. But I can see where your coming from ^_^ As you can see at the top, I put if your desperate for the source PM me. Edited by Godly

[center][+] Steam GUI [+][+] Clipboard Tool [+][+] System :: Uptime [+][+] StarCraft II Mouse Trap [+][/center]

  • Developers
Jos Universalist

Jos

Posted
  • Developers
Posted (edited)

I'm not using his programs so I fail to see how it does. But if i was then it would be.

I care when I know of about anybody trying to screw me and others and think these people should be made know to stop their bs. Edited by Jos

SciTE4AutoIt3 Full installer Download page   - Beta files       Read before posting     How to post scriptsource   Forum etiquette  Forum Rules 
 
Live for the present,
Dream of the future,
Learn from the past.  :)

pratch Seeker

pratch

Posted
Posted

If they are posted on these forums then yes, its everyone's business.

It's ages old, so you might be able to put it in the category "Everyone screws up once".

http://www.autoitscript.com/forum/index.ph...c=58521&hl=

Anyhow, I'd like to see his source, if this is the clientless bot he is talking about.

There's no way one can finish baal off in 45seconds, which is the limit for clientless connection to bnet before getting the boot.

FinalVersion Universalist

FinalVersion

Posted
  • Author
Posted

It's ages old, so you might be able to put it in the category "Everyone screws up once".

http://www.autoitscript.com/forum/index.ph...c=58521&hl=

Anyhow, I'd like to see his source, if this is the clientless bot he is talking about.

There's no way one can finish baal off in 45seconds, which is the limit for clientless connection to bnet before getting the boot.

Oh he has client less as well damn ( *sarcasm* )

[center][+] Steam GUI [+][+] Clipboard Tool [+][+] System :: Uptime [+][+] StarCraft II Mouse Trap [+][/center]

FinalVersion Universalist

FinalVersion

Posted
  • Author
Posted

Here's a source for a d2 autoit bot:

http://bhfiles.com/files/Diablo%20II/1.12a/D2Ai.au3

Not made by me. Here's the author: http://www.edgeofnowhere.cc/viewtopic.php?...e9fb4668fc06914

I have no idea about that exe in the thread, so better keep to the source, unless youre a trusting person.

Yeah I'm looking for a baal / chaos bot >.< thanks anyway.

[center][+] Steam GUI [+][+] Clipboard Tool [+][+] System :: Uptime [+][+] StarCraft II Mouse Trap [+][/center]

jaenster Universalist

jaenster

Posted
Posted

The baalbot is only working with redvex, and that dll you use there is private, so you dont got anything with that source only.

And source or it didn't happen

-jaenster

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
×
×
  • Create New...