Diablo Ii Lod Idle Bot

[iHonda]

you might wanna change the directory of diablo 2 but make sure that it still opens in a window

expandcollapse popup

; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Author:        Zmaster <zmaster.atf@gmail.com>
;
; Script Function:
;   idle ur diablo 2 character in a game
;
; ----------------------------------------------------------------------------

; Script Start - Add your code below here

SplashImageOn("Diablo II idlebot By:Zmaster. Made with AutoIt", "autoit_builder_wall_800x600.jpg", 800, 600, -1, -1, 1)
SoundPlay("introwave.wav", 1)
SplashOff()

If FileExists("Info_To_Exicute.ini") Then
$acct = IniRead("Info_To_Exicute.ini", "Log In Info", "Account", "could not find")
$pass = IniRead("Info_To_Exicute.ini", "Log In Info", "Password", "could not find")
$game_name = IniRead("Info_To_Exicute.ini", "Game Info", "Game", "could not find")
$game_pass = IniRead("Info_To_Exicute.ini", "Game Info", "Pass", "could not find")
$speech1 = IniRead("Info_To_Exicute.ini", "Speech", "Line1", "could not find")
$speech2 = IniRead("Info_To_Exicute.ini", "Speech", "Line2", "could not find")
$speech3 = IniRead("Info_To_Exicute.ini", "Speech", "Line3", "could not find")
$speech4 = IniRead("Info_To_Exicute.ini", "Speech", "Line4", "could not find")
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
Global $Quit
HotKeySet("{END}", "END")
ToolTip('To stop the script press Pause then End to exit.',0, 0)
Run("C:\Program Files\Diablo II\Diablo II.exe -w -skiptobnet")  
WinWaitActive("Diablo II")
WinMove("Diablo II", "", 0, 0)
Sleep(1000)
WinActivate("Diablo II")
Sleep(100)
Send("{TAB}")
Sleep(600)
Send($acct, 1)
Send("{TAB}")
Sleep(200)
Send($pass, 1)
Sleep(200)
Send("{ENTER}")
Send("{PAUSE}")
MouseClick("left", 600, 489, 1, 0)
Send($game_name, 1)
Send("{TAB}")
Send($game_pass, 1)
Send("{TAB}{ENTER}")
Sleep(400)
While 1
    WinActivate("Diablo II")
    Send("{Enter}")
    Send($speech1, 1)
    Send("{ENTER}")
    sleep(30000)
    WinActivate("Diablo II")
    Send("{Enter}")
    Send($speech2, 1)
    Send("{ENTER}")
    sleep(30000)
    WinActivate("Diablo II")
    Send("{Enter}")
    Send($speech3, 1)
    Send("{ENTER}")
    sleep(30000)
    WinActivate("Diablo II")
    Send("{Enter}")
    Send($speech4, 1)
    Send("{ENTER}")
    sleep(30000)
WEnd
Else
    IniWrite("Info_To_Exicute.ini", "Log In info", "Account", "Acct")
IniWrite("Info_To_Exicute.ini", "Log In info", "Password", "Pass")
IniWrite("Info_To_Exicute.ini", "Game Info", "Game", "asdfj")
IniWrite("Info_To_Exicute.ini", "Game Info", "Pass", "asdfj")
IniWrite("Info_To_Exicute.ini", "Speech", "Line1", "this is spam")
IniWrite("Info_To_Exicute.ini", "Speech", "Line2", "this is spam")
IniWrite("Info_To_Exicute.ini", "Speech", "Line3", "this is spam")
IniWrite("Info_To_Exicute.ini", "Speech", "Line4", "this is spam")
Exit
EndIf
Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is Paused, press the Pause key to resume after picking character, or completing your action.',0, 0)
    WEnd
        ToolTip("")
EndFunc
Func END()
    Exit
EndFunc

Edited April 15, 2006 by Zmaster

[Suburban Turban]

Wow this is great. All i need is to edit it so it doesn't need to log in to your account. and can someone verify that this will not send my acct and pass and drop all my gear please?

Edited April 15, 2006 by Suburban Turban

[Bounda]

lol dude read it, there is no part of the code where it sends the name and pass of the acct to ppl.

[iHonda]

lol dude read it, there is no part of the code where it sends the name and pass of the acct to ppl.

lol Bounda that Urban Turban (or what ever his name is) guy is a total noob he doesnt even under the most basic commands

Edited April 15, 2006 by Zmaster

[Infinitex0]

that is true, but no need to be so harsh

[Insolence]

lol Bounda that Urban Turban (or what ever his name is) guy is a total noob he doesnt even under the most basic commands

I could say the same to you.

In fact, I suppose I just did.

[jaenster]

this is not hard to create you know ...

[iHonda]

yea i kno its easy but then again im really noob the only reason im not having really bad problems like Turban is bcuz im not having trouble reading the help file but even then im having problems

[Thatsgreat2345]

hahah want to see a supreme anti idle script

while 1
send("{Up}")
sleep(10000)
wend

so advanced its mine boggling

Edited April 15, 2006 by thatsgreat2345