Sign in to follow this  
Followers 0
FinalVersion

D2x

22 posts in this topic




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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

@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.

Share this post


Link to post
Share on other sites

#11 ·  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

Share this post


Link to post
Share on other sites

#14 ·  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

Visit the SciTE4AutoIt3 Download page for the latest versions        Beta files                                                          Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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

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