D2x

FinalVersion · April 14, 2009

Project Closed! Edited May 3, 2009 by Godly

jvanegmond · April 14, 2009

This crashes when I use CharSlot=5

FinalVersion · April 14, 2009

This crashes when I use CharSlot=5

Re Uploaded. Problem fixed. Edited April 14, 2009 by Godly

FinalVersion · April 14, 2009

Update Infomation

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

--Release--
Program Released

Current Version: 1.1

~~Current Version: Release~~

Edited April 14, 2009 by Godly

aharbison · April 14, 2009

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

FinalVersion · April 15, 2009

Update Information

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

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

--Release--
Program Released

Current Version: 1.5

~~Current Version: 1.1~~

~~Current Version: Release~~

FinalVersion · April 24, 2009

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

fataly · April 24, 2009

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

FinalVersion · April 25, 2009

@fataly

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

pratch · April 25, 2009

@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 · April 25, 2009

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 April 25, 2009 by Godly

Jos · April 25, 2009

I don't care if he has backdoors or whatever in his programs, thats not my business.

^_^ it should be.

FinalVersion · April 25, 2009

it should be.

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

Jos · April 25, 2009

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 April 25, 2009 by Jos

FinalVersion · April 25, 2009

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.

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

pratch · April 25, 2009

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 · April 25, 2009

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

pratch · April 25, 2009

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

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.

FinalVersion · April 25, 2009

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.

jaenster · April 25, 2009

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

D2x

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members