20 replies to this topic

[PoisonXrX]

Any Windows Resolution Works Now

This Bot Is Just my first bot release it isnt very configurable because im still learning but stable it is Now it is i have updated everything i just reformated the whole bot so it will Pindle All night
Reason why NO D2Kill.exe Is because it is already INSIDE the bot its an auto thing its better less things running less lagg happens

After So Many Flames from bot creaters i decided to make my own bot

"note its not trojaned not in anyway intended to steal ur account"
"check with everything you have to check with its VERY clean"

You Need D2Loader From Onlyer And You Need Zoids Pickit For this To Work Properly

This bot does the following:
Opens Game
Enters Account Info
Selects Character
Makes Game
Heals with malah if needed if not takes another route
Goes to redportal
Precasts Skills
Enteres Portal
Precasts ThunderStorm
Teleports To Pindle
Does Attack

This Bot Avoids Failed GamesNomore I Fucked Up Messages At Start
Malah Is Found Faster Now
The Whole Attacking AI Has Been Fixed
Aswell As For The Chicken
Nomore Need For Installer The Script Now Reloads Anywhere For Failed Games.
Even Newer AI Script Added Now
Ability To Control Cast Rate Of Attacks Now Added To Config
Enters Channel
sets Away
More Reliable Bot Now
Chicken Works 150% now
Portal Is A Good 95% success
Everything Is Working Fine Now Hopefully For Now.
Post Your FeedBack I Wanna Hear From You.
Uses GUI Configuration now Much more stable
More Configs now for differant sorc types Cold - Fire
Pickit Works Better With This Bot Now
Alot OF Actual Bot Upgrades Mostly To The Main Script
Reformated Full Bot So That It Isnt Thought Of As Malicious Code.
Lots More Upgrades To Come In New Update.[/CODE]


Well Heres Old Release's Even Doh I Sead I Wont Update Heres A Ver 1.0
WinRAR Compatible
PoisonXABot Version Beta4
PoisonXABot Version Beta 5
PoisonXABot Version 1.0
WinZIP Compatible
PoisonXABot Version Beta4
PoisonXABot Version Beta 5
PoisonXABot Version 1.0
This Bot Also Has 100% Working Chicken
DONT USE ZOIDS CHICKEN WITH THIS OR IT WILL CRASH BOT

New Updates:
Less Chance Of Loseing Portal
Uses GUI Configuration now Much more stable
More Configs now for differant sorc types Cold - Fire
Pickit Works Better With This Bot Now
Alot OF Actual Bot Upgrades Mostly To The Main Script
Reformated Full Bot So That It Isnt Thought Of As Malicious Code.
Lots More Upgrades To Come In New Update

Plain Text        expandcollapse  popup

; -----------------------------------------------------------------------
; Program Pixels
; -----------------------------------------------------------------------
$Pixel1 = 4753584
$Pixel2 = 92
$Pixel3 = 5767168
$Pixel4 = 12895428
$Pixel5 = 529424
$Pixel6 = 16777215
$Pixel7 = 92
$PixelPin = 14864847
$PixelPor = 11516
; -----------------------------------------------------------------------
; Program Variables
; -----------------------------------------------------------------------
; Credits go to Cerb for reading variables from a .ini file.
$D2Path = IniRead("Config.ini", "Main Info", "D2Path", "Error when reading INI")
$D2File = IniRead("Config.ini", "Main Info", "D2File", "Error when reading INI")
$D2Params = IniRead("Config.ini", "Main Info", "D2Params", "Error when reading INI")

$Username = IniRead("Config.ini", "Account Info", "Username", "Error when reading INI")
$Password = IniRead("Config.ini", "Account Info", "Password", "Error when reading INI")
$CharLocation = IniRead("Config.ini", "Account Info", "CharLocation", "Error when reading INI")
$Difficulty = IniRead("Config.ini", "Account Info", "Difficulty", "Error when reading INI")

$KeyDelay = IniRead("Config.ini", "Delays", "KeyDelay", "Error when reading INI")
$ClickDelay = IniRead("Config.ini", "Delays", "ClickDelay", "Error when reading INI")
$StartDelay = IniRead("Config.ini", "Delays", "StartDelay", "Error when reading INI")
$LoginDelay = IniRead("Config.ini", "Delays", "LoginDelay", "Error when reading INI")
$CharScreenDelay = IniRead("Config.ini", "Delays", "CharScreenDelay", "Error when reading INI")
$ChatScreenDelay = IniRead("Config.ini", "Delays", "ChatScreenDelay", "Error when reading INI")
$EndGameDelay = IniRead("Config.ini", "Delays", "EndGameDelay", "Error when reading INI")
$CastDelay = IniRead("Config.ini", "Cast", "CastDelay", "Error when reading INI")
$teleport = IniRead("Config.ini", "Teleport", "TeleDelay", "Error when reading INI")
$leftattack = IniRead("Config.ini", "AttackSequence", "LeftAttack", "Error when reading INI")
$attack = IniRead("Config.ini", "AttackSequence", "NumberOfAttacks", "Error when reading INI")
$AttackSelect = IniRead("Config.ini", "AttackSequence", "SorcType", "Error when reading INI")
$Channel = IniRead("Config.ini", "ChannelSequence", "Channel", "Error when reading INI")
$AwayMessage = IniRead("Config.ini", "ChannelSequence", "AwayMessage", "Error when reading INI")

;Other Crap
$EndGameAura = 1
$EndGameAbility = 1

$Timer = IniRead("Config.ini", "Timers", "Timer", "Error when reading INI")
$Runs = IniRead("Config.ini", "Timers", "Runs", "Error when reading INI")
$Games = IniRead("Config.ini", "Timers", "Games", "Error when reading INI")

; -----------------------------------------------------------------------
; Main
; -----------------------------------------------------------------------

AutoItSetOption("PixelCoordMode", 0)
AutoItSetOption("MouseCoordmode", 0)

$File = FileOpen("Current.log", 1)
FileWriteLine($file, @LF)
FileWriteLine($file, " Bot Started Fuxxing : " & @HOUR & ":" & @MIN & "." & @SEC & " - " & @MDAY & "/" & @MON & "/" & @YEAR & @LF)
FileWriteLine($file, "-----------------------------------------------------------------------" & @LF)

StartDiablo()



; -----------------------------------------------------------------------
; Start Diablo II
; -----------------------------------------------------------------------
Func StartDiablo()
    
    If StringRight($D2Path, 1) = "\" Then 
  $D2FullPath = $D2Path & $D2File & " -w -ns -skiptobnet -title PoisonXA.PindleBot.Sorc.Edition -res800 " & $D2Params
    Else
  $D2FullPath = $D2Path & "\" & $D2File & " -w -ns -skiptobnet -title PoisonXA.PindleBot.Sorc.Edition -res800 " & $D2Params
    EndIf
    
    Run($D2FullPath, $D2Path)
    
    For $x1 = 0 to 29
  If WinExists("PoisonXA.PindleBot.Sorc.Edition") = 1 Then
    ExitLoop
  EndIf
  Sleep(1000)
    Next
    
    Sleep($StartDelay)
    
    WinMove("PoisonXA.PindleBot.Sorc.Edition", "", 0, 0)
    WinActivate("PoisonXA.PindleBot.Sorc.Edition")
    
    AdlibEnable("CheckD2")
    
    Login()
    
EndFunc



; -----------------------------------------------------------------------
; Login
; -----------------------------------------------------------------------
Func Login()
    
    Sleep($LoginDelay)
    
    Send("{TAB}")
    Sleep($KeyDelay)
    Send($Username)
    Sleep($KeyDelay)
    Send("{TAB}")
    Sleep($KeyDelay)
    Send($Password)
    Sleep($KeyDelay)
    MouseClick("left", 410, 500)
    Sleep($ClickDelay)
    MouseMove(50, 50, 0)
    
    Sleep($CharScreenDelay)
    
    Select 
    Case $CharLocation = 1
  Send("{ENTER}")
    Case $CharLocation = 2
  Send("{RIGHT}{ENTER}")
    Case $CharLocation = 3
  Send("{DOWN}{ENTER}")
    Case $CharLocation = 4
  Send("{DOWN}{RIGHT}{ENTER}")
    Case $CharLocation = 5
  Send("{DOWN}{DOWN}{ENTER}")
    Case $CharLocation = 6
  Send("{DOWN}{DOWN}{RIGHT}{ENTER}")
    Case $CharLocation = 7
  Send("{DOWN}{DOWN}{DOWN}{ENTER}")
    Case $CharLocation = 8
  Send("{DOWN}{DOWN}{DOWN}{RIGHT}{ENTER}")
    EndSelect
    
    Sleep($ChatScreenDelay)
    $Chan = $Channel
    $Away = $AwayMessage
    sleep(500)
    MouseClick("left", 91, 500)
    sleep(500)
    MouseClick("left", 54, 459)
    sleep(500)
    Send("/join ")
    sleep(100)
    Send($Chan)
    sleep(100)
    Send("{Enter}")
    sleep(500)
    Send("/away ")
    sleep(100)
    Send($Away)
    sleep(100)
    Send("{Enter}")
    sleep(100)
    
    MouseClick("left", 640, 485)
    Sleep($ClickDelay)
    
    If $Difficulty = 1 Then
  MouseClick("left", 440, 400)
  Sleep($ClickDelay)
    EndIf
    
    If $Difficulty = 2 Then
  MouseClick("left", 565, 400)
  Sleep($ClickDelay)
    EndIf   
    
    If $Difficulty = 3 Then
  MouseClick("left", 710, 400)  
  Sleep($ClickDelay)
    EndIf
    
    CreateGame()
    
EndFunc



; -----------------------------------------------------------------------
; Create a passworded game
; -----------------------------------------------------------------------
Func CreateGame()
;Credits go to Rijn for random string generation.
    
    MouseClick("left", 640, 485)
    Sleep($ClickDelay)
    
    $GameLength = Random(5, 15)
    $PassLength = Random(5, 15)
    
    For $x2 = 0 To $GameLength
  $Random = Random(97, 122)
  Send(Chr($Random))
    Next
    
    Sleep($KeyDelay)
    Send("{TAB}")
    Sleep($KeyDelay)
    
    For $x3 = 0 To $PassLength
  $Random = Random(97, 122)
  Send(Chr($Random))
    Next
    
    Sleep($KeyDelay)
    Send("{ENTER}")
    Sleep($KeyDelay)
    
    $Games = $Games + 1
    
    CheckCreated()
    
EndFunc



; -----------------------------------------------------------------------
; Check if the game has been created
; -----------------------------------------------------------------------
Func CheckCreated()
    
    While $Timer < 30
  $GetPixel = PixelGetColor(300, 610)
  
  If $GetPixel = $Pixel1 Then
    $Timer = 0
    Heal()
    ExitLoop
  EndIf
  
  If $Timer > 26 Then
    $SuccesRate = (($Runs / $Games) * 100)
    FileWriteLine($file, " I Got the Homo Cant Join Game Shiznat " & @HOUR & ":" & @MIN & "." & @SEC & " - " & @MDAY & "/" & @MON & "/" & @YEAR & @LF)
    WinKill("PoisonXA.PindleBot.Sorc.Edition")
    ProcessClose("Diablo II.exe")
    Run("PoisonXA.exe")
    Exit
  EndIf
  
  Sleep(1000)
  
  $Timer = $Timer + 1
    WEnd
    
EndFunc



; -----------------------------------------------------------------------
; Heal at Malah
; -----------------------------------------------------------------------


Func Heal() 
    $PixelLife = PixelGetColor(78, 559)
    
    If $PixelLife = $Pixel7 Then
  Sleep(250)
  MouseClick("left", 401, 310)
  Sleep(250)
  Send("{ENTER}")
  Send(".set pickit 0")
  Send("{ENTER}")
  Sleep(350)
  MouseClick("left", 12, 300)
  Sleep(1250)
  MouseClick("left", 137, 202)
  Sleep(500)
  MouseClick("left", 371, 345)
  Sleep(50)
  MouseClick("left", 371, 345)
  Sleep(50)
  MouseClick("left", 371, 345)
  Sleep(1000)
    else
    $PixelLife = PixelGetColor(75, 555)
    $PixelMana = PixelGetColor(740, 555)
    
    If $PixelLife <> $Pixel2 or $PixelMana <> $Pixel3 Then

  Sleep(350)
  Send("{ENTER}")
  Send(".set pickit 0")
  Send("{ENTER}")
  Sleep(350)  
  MouseClick("left", 15, 300)
  Sleep(4000)
  MouseClick("left", 200, 220)
  Sleep(1000)
  MouseClick("left", 555, 195)
  Sleep(1000)
  
  $ColorScan = PixelSearch(200, 200, 510, 475, $Pixel4)
  If @Error = 1 Then
    $PixelLife = PixelGetColor(75, 555)
    $PixelMana = PixelGetColor(740, 555)
    If $PixelLife <> $Pixel2 or $PixelMana <> $Pixel3 Then
    FileWriteLine($file, "Coulding Find Da Biatch - " & @HOUR & ":" & @MIN & "." & @SEC & " - " & @MDAY & "/" & @MON & "/" & @YEAR & @LF)
    Else
    FileWriteLine($file, " I Pwned Malah " & @HOUR & ":" & @MIN & "." & @SEC & " - " & @MDAY & "/" & @MON & "/" & @YEAR & @LF)
    EndIf
    Send("{Enter}")
    Send("{Enter}")
  Else
    MouseMove($ColorScan[0], $ColorScan[1], 0)
    Sleep(250)
    MouseClick("left")
    Sleep(1000)
  EndIf
  
  $PixelLife = PixelGetColor(75, 555)
  $PixelMana = PixelGetColor(740, 555)
  If $PixelLife <> $Pixel2 or $PixelMana <> $Pixel3 Then
    Send("{Enter}")
    Send("{Enter}")
    FileWriteLine($file, " Da Biatch Is STUPID " & @HOUR & ":" & @MIN & "." & @SEC & " - " & @MDAY & "/" & @MON & "/" & @YEAR & @LF)

  EndIf
  
  FileWriteLine($file, "Healed at Malah - " & @HOUR & ":" & @MIN & "." & @SEC & " - " & @MDAY & "/" & @MON & "/" & @YEAR & @LF)
  
  MouseClick("left", 403, 75)
  Sleep(500)
  MouseClick("left", 403, 75)
  Sleep(500)
  MouseClick("left", 75, 75)
  Sleep(1000)
  MouseClick("left", 75, 225)
  Sleep(750)
  MouseClick("left", 75, 275)
  Sleep(1000)
  MouseClick("left", 75, 275)
  Sleep(1000)
  MouseClick("left", 465, 500)
  Sleep(750)
  MouseClick("left", 371, 345)
  Sleep(750)
  MouseClick("left", 371, 345)
  Sleep(1000)
    EndIf   
    EndIf

    RedPortal1()

    
EndFunc

Func RedPortal1()
    $PixelLife = PixelGetColor(78, 559)
    
    If $PixelLife = $Pixel7 Then
    MouseClick("left", 129, 553)
    Sleep(2000)
    MouseClick("left", 108, 495)
    Sleep(1000)
    MouseClick("left", 28, 392)
    Sleep(1500)
    MouseClick("left", 526, 383)
    Sleep(750)
    MouseClick("left", 172, 485)
    Sleep(1000)
    MouseClick("left", 668, 390)
    Sleep(1250)
    MouseClick("left", 435, 338)
    Sleep(1500)
  Send("{Enter}")
  Send("Portal Detected")
  Send("{Enter}")
    Sleep(750)
  Casting()
    FileWriteLine($file, " We Reached Portal Safetly " & @HOUR & ":" & @MIN & "." & @SEC & " - " & @MDAY & "/" & @MON & "/" & @YEAR & @LF)
    Else
  Send("{Enter}")
  Send("Didnt Heal I Think")
  Send("{Enter}")
    Sleep(750)
    FileWriteLine($file, " Not Enough Health " & @HOUR & ":" & @MIN & "." & @SEC & " - " & @MDAY & "/" & @MON & "/" & @YEAR & @LF)
  Send("{ESC}")
  Sleep($KeyDelay)
  MouseClick("left", 410, 290)
  Sleep($EndGameDelay)
  CreateGame()
    EndIf
    Sleep(500)


EndFunc

Func Casting()
    sleep(250)
    Send("{F2}")
    MouseClick("right")
    sleep(100)  
    Send("{F9}")
    MouseClick("right")
    sleep(200)
    RedPortal2()
EndFunc

Func RedPortal2()
    Sleep(300)
    MouseClick("left", 435, 338)
    sleep(500)
    MouseClick("left", 435, 338)
    sleep(500)
    MouseClick("left", 435, 338)
    sleep(750)
    $u = PixelSearch(200, 200, 510, 475, $PixelPor)
    While @error = 1
    Sleep(500)
    $u = PixelSearch(200, 200, 510, 475, $PixelPor)
    WEnd
    MouseMove($u[0],$u[1],0)
    Sleep(250)
    MouseClick("left")
    Sleep(200)
    Send("{F3}")
    MouseClick("right")
    Sleep(100) 
    MouseClick("left", 360, 359)
    Sleep(50) 
    Tele()
EndFunc

Func Tele()
    $TeleC = $teleport
    Sleep(100)
    Send("{F4}")
    Sleep(100)
    MouseMove(655, 34, 0)
    Sleep(50)
    MouseClick("right")
    sleep($TeleC)
    MouseMove(715, 110, 0)
    Sleep(50)
    MouseClick("right")
    sleep($TeleC)
    MouseMove(751, 274, 0)
    Sleep(50)
    MouseClick("right")
    sleep($TeleC)
    MouseMove(511, 225, 0)
    Sleep(50)
    MouseClick("right")
    sleep(250)

    If $AttackSelect = "Cold" Then
    sleep(100)
    AttackSeqCold()
    Else
    sleep(100)
    AttackSeqFire()
    EndIf

EndFunc
; -----------------------------------------------------------------------
; AttackSeq2
; -----------------------------------------------------------------------
Func AttackSeqCold()
    $leftattack1 = $leftattack
    $Attacks = $attack
    
    If $leftattack1 = "0" Then
  Send("{SHIFTDOWN}")
  Sleep(50)
  
  For $x4 = 1 to $Attacks
    For $x5 = 0 to 3
    $PixelChicken = PixelGetColor(75, 580)
    If $PixelChicken <> $Pixel2 Then
        Send("{SHIFTUP}")
        sleep(100)
        Send("{F4}")
        MouseClick("right", 515, 186, 1, 0)
        Sleep(350)
        MouseClick("right", 515, 186, 1, 0)
        Sleep(100)
        Send("{ESC}")
        Sleep($KeyDelay)
        MouseClick("left", 410, 290, 1, 0)
        Sleep($EndGameDelay)
        FileWriteLine($file, "I Got Raped " & @HOUR & ":" & @MIN & "." & @SEC & " - " & @MDAY & "/" & @MON & "/" & @YEAR & @LF)
        CreateGame()
    EndIf
    MouseClick("left")
    Sleep(250)
    Next
  Next
  
  Send("{SHIFTUP}")
  Sleep(50)
    Else
  For $x4 = 1 to ($Attacks / 2)
    $ColorScan = PixelSearch(150, 75, 600, 500, $PixelPin)
    If @Error = 1 Then
    Sleep(250)
    Else
    If $LeftAttack <> "0" Then
        MouseMove($ColorScan[0], $ColorScan[1], 0)
        Sleep($ClickDelay)
        MouseDown("left")
    Else
        MouseMove($ColorScan[0], $ColorScan[1], 0)
        Sleep($ClickDelay)
        MouseDown("right")
    EndIf
    EndIf
    For $x5 = 0 to 8
    $PixelChicken = PixelGetColor(75, 580)
    If $PixelChicken <> $Pixel2 Then
        MouseUp("left")
        MouseUp("right")
        Send("{SHIFTUP}")
        sleep(100)
        Send("{F4}")
        MouseClick("right", 515, 186, 1, 0)
        Sleep(350)
        MouseClick("right", 515, 186, 1, 0)
        Sleep(100)
        Send("{ESC}")
        Sleep($KeyDelay)
        MouseClick("left", 410, 290, 1, 0)
        Sleep($EndGameDelay)
        FileWriteLine($file, "I Got Raped " & @HOUR & ":" & @MIN & "." & @SEC & " - " & @MDAY & "/" & @MON & "/" & @YEAR & @LF)
        CreateGame()
    EndIf

    Sleep(250)
    Next
    MouseUp("left")
    MouseUp("right")
  Next
    EndIf
    
    For $x6 = 0 to 6
  $PixelChicken = PixelGetColor(75, 580)
  If $PixelChicken <> $Pixel2 Then
    Send("{SHIFTUP}")
    sleep(100)
    Send("{F4}")
    MouseClick("right", 515, 186, 1, 0)
    Sleep(350)
    MouseClick("right", 515, 186, 1, 0)
    Sleep(100)
    Send("{ESC}")
    Sleep($KeyDelay)
    MouseClick("left", 410, 290, 1, 0)
    Sleep($EndGameDelay)
    FileWriteLine($file, "I Got Raped " & @HOUR & ":" & @MIN & "." & @SEC & " - " & @MDAY & "/" & @MON & "/" & @YEAR & @LF)
    CreateGame()
  EndIf
  Sleep(250)
    Next

    $PixelChicken = PixelGetColor(75, 580)
    If $PixelChicken <> $Pixel2 Then
        sleep(100)
        Send("{F4}")
        MouseClick("right", 515, 186, 1, 0)
        Sleep(350)
        MouseClick("right", 515, 186, 1, 0)
        Sleep(100)
        Send("{ESC}")
        Sleep($KeyDelay)
        MouseClick("left", 410, 290, 1, 0)
        Sleep($EndGameDelay)
        FileWriteLine($file, "I Got Pwnt" & @HOUR & ":" & @MIN & "." & @SEC & " - " & @MDAY & "/" & @MON & "/" & @YEAR & @LF)
        CreateGame()
    else
        Sleep(350)
        Send("{ENTER}")
        Send(".set pickit 1")
        Send("{ENTER}")
        Sleep(350)
        Send("{F4}")
        Sleep(350)
        MouseClick("right", 591, 144)
        sleep(2500)
    endif
    
    Send("{ESC}")
    Sleep($KeyDelay)
    MouseClick("left", 410, 290, 1, 0)
    Sleep($EndGameDelay)
    $Runs = $Runs + 1
    FileWriteLine($file, "Succesful run - " & @HOUR & ":" & @MIN & "." & @SEC & " - " & @MDAY & "/" & @MON & "/" & @YEAR & @LF)
    CreateGame()
    
EndFunc

Func AttackSeqFire()
    $leftattack1 = $leftattack
    $Attacks = $attack

    Send("{F6}")
    sleep(100)
    MouseClick("right", 591, 144, 1, 0)
    sleep($CastDelay)
    Send("{F1}")
    sleep(100)
    MouseClick("right", 541, 203, 1, 0)
    sleep(550)
    MouseClick("right", 515, 186, 1, 0)
    sleep($CastDelay)
    Send("{F6}")
    sleep(100)
    MouseClick("right", 591, 144, 1, 0)
    sleep($CastDelay)
    
    If $leftattack1 = "0" Then
  Send("{SHIFTDOWN}")
  Sleep(50)
  
  For $x4 = 1 to $Attacks
    For $x5 = 0 to 3
    $PixelChicken = PixelGetColor(75, 580)
    If $PixelChicken <> $Pixel2 Then
        Send("{SHIFTUP}")
        sleep(100)
        Send("{F4}")
        MouseClick("right", 515, 186, 1, 0)
        Sleep(350)
        MouseClick("right", 515, 186, 1, 0)
        Sleep(100)
        Send("{ESC}")
        Sleep($KeyDelay)
        MouseClick("left", 410, 290, 1, 0)
        Sleep($EndGameDelay)
        FileWriteLine($file, "I Got Raped " & @HOUR & ":" & @MIN & "." & @SEC & " - " & @MDAY & "/" & @MON & "/" & @YEAR & @LF)
        CreateGame()
    EndIf
    MouseClick("left")
    Sleep(250)
    Next
  Next
  
  Send("{SHIFTUP}")
  Sleep(50)
    Else
  For $x4 = 1 to ($Attacks / 2)
    $ColorScan = PixelSearch(150, 75, 600, 500, $PixelPin)
    If @Error = 1 Then
    Sleep(250)
    Else
    If $LeftAttack <> "0" Then
        MouseMove($ColorScan[0], $ColorScan[1], 0)
        Sleep($ClickDelay)
        MouseDown("left")
    Else
        MouseMove($ColorScan[0], $ColorScan[1], 0)
        Sleep($ClickDelay)
        MouseDown("right")
    EndIf
    EndIf
    For $x5 = 0 to 8
    $PixelChicken = PixelGetColor(75, 580)
    If $PixelChicken <> $Pixel2 Then
        MouseUp("left")
        MouseUp("right")
        Send("{SHIFTUP}")
        sleep(100)
        Send("{F4}")
        MouseClick("right", 515, 186, 1, 0)
        Sleep(350)
        MouseClick("right", 515, 186, 1, 0)
        Sleep(100)
        Send("{ESC}")
        Sleep($KeyDelay)
        MouseClick("left", 410, 290, 1, 0)
        Sleep($EndGameDelay)
        FileWriteLine($file, "I Got Raped " & @HOUR & ":" & @MIN & "." & @SEC & " - " & @MDAY & "/" & @MON & "/" & @YEAR & @LF)
        CreateGame()
    EndIf

    Sleep(250)
    Next
    MouseUp("left")
    MouseUp("right")
  Next
    EndIf
    
    For $x6 = 0 to 6
  $PixelChicken = PixelGetColor(75, 580)
  If $PixelChicken <> $Pixel2 Then
    Send("{SHIFTUP}")
    sleep(100)
    Send("{F4}")
    MouseClick("right", 515, 186, 1, 0)
    Sleep(350)
    MouseClick("right", 515, 186, 1, 0)
    Sleep(100)
    Send("{ESC}")
    Sleep($KeyDelay)
    MouseClick("left", 410, 290, 1, 0)
    Sleep($EndGameDelay)
    FileWriteLine($file, "I Got Raped " & @HOUR & ":" & @MIN & "." & @SEC & " - " & @MDAY & "/" & @MON & "/" & @YEAR & @LF)
    CreateGame()
  EndIf
  Sleep(250)
    Next

    $PixelChicken = PixelGetColor(75, 580)
    If $PixelChicken <> $Pixel2 Then
        sleep(100)
        Send("{F4}")
        MouseClick("right", 515, 186, 1, 0)
        Sleep(350)
        MouseClick("right", 515, 186, 1, 0)
        Sleep(100)
        Send("{ESC}")
        Sleep($KeyDelay)
        MouseClick("left", 410, 290, 1, 0)
        Sleep($EndGameDelay)
        FileWriteLine($file, "I Got Pwnt" & @HOUR & ":" & @MIN & "." & @SEC & " - " & @MDAY & "/" & @MON & "/" & @YEAR & @LF)
        CreateGame()
    else
        Sleep(350)
        Send("{ENTER}")
        Send(".set pickit 1")
        Send("{ENTER}")
        Sleep(350)
        Send("{F4}")
        Sleep(350)
        MouseClick("right", 591, 144)
        sleep(2500)
    endif
    
    Send("{ESC}")
    Sleep($KeyDelay)
    MouseClick("left", 410, 290, 1, 0)
    Sleep($EndGameDelay)
    $Runs = $Runs + 1
    FileWriteLine($file, "Succesful run - " & @HOUR & ":" & @MIN & "." & @SEC & " - " & @MDAY & "/" & @MON & "/" & @YEAR & @LF)
    CreateGame()

EndFunc 

; -----------------------------------------------------------------------
; Check if Diablo II is running and Chickening System
; -----------------------------------------------------------------------
Func CheckD2()
    
    If WinExists("PoisonXA.PindleBot.Sorc.Edition") = 0 Then
  MouseUp("left")
  MouseUp("right")
  $SuccesRate = (($Runs / $Games) * 100)
  FileWriteLine($file, "!!! - Where Was Diablo? - " & @HOUR & ":" & @MIN & "." & @SEC & " - " & @MDAY & "/" & @MON & "/" & @YEAR & @LF)
  FileWriteLine($file, "Succes rate - " & $SuccesRate & "%" & @LF)
  FileWriteLine($file, "-----------------------------------------------------------------------" & @LF)
  ProcessClose("Diablo II.exe")
  Run("PoisonXA.exe")
  Exit
    EndIf
    
    If WinActive("PoisonXA.PindleBot.Sorc.Edition") = 0 Then
  $MsgCheckD2 = MsgBox(4, "PoisonXA.PindleBot.Sorc.Edition", "Diablo Got Minimized SomeHow So If U Want To Start this Shiznat Again hit Yes If Not Hit NO")
  Select
  Case $MsgCheckD2 = 6
    WinActivate("PoisonXA.PindleBot.Sorc.Edition")
  Case $MsgCheckD2 = 7
    $SuccesRate = (($Runs / $Games) * 100)
    FileWriteLine($file, "Session ended - " & @HOUR & ":" & @MIN & "." & @SEC & " - " & @MDAY & "/" & @MON & "/" & @YEAR & @LF)
    FileWriteLine($file, "Succes rate - " & $SuccesRate & "%" & @LF)
    FileWriteLine($file, "-----------------------------------------------------------------------" & @LF)
    Exit
  EndSelect
    EndIf
    
EndFunc

This is the code for my new unrealeased version of my bot find malicious code in it and contact me kk thnx

Edited by PoisonXrX, 27 December 2003 - 05:46 AM.

[Insolence]

Links are down, and why post it in the support section, and why post your program, which I don't think, is even source...?

[-TS-]

fucking groovy, good job

Banned from diabloworld  12.24.3  22:44

[-TS-]

he fucked up the address there is 2 http://

[PoisonXrX]

the links have been fixed

[PoisonXrX]

yo can someone tell me how i can make it pixel click i need the full code cuz i havent been able to make it do it , it either stands there and skips that command or it just gives me an error and shuts off

Edited by PoisonXrX, 25 December 2003 - 04:57 PM.

[oompa86]

User: poisonxrx
Action: Banned
Offence: Posting a trojan
Links:

http://www.blizzhackers.com/phpBB2/viewtopic.php?t=115152
http://www.blizzhackers.com/phpBB2/viewtopic.php?t=115319

This was quoted from Snarg in BLizzhackers.
Im a user at bnfreak.com, and he came there trying to get his bot out, just wanted to let people know

[PoisonXrX]

yea w/e no trojans in my bot if u dont believe find out urself.

[Valik]

yea w/e no trojans in my bot if u dont believe find out urself.

If you want people to believe that, then release the source with it, otherwise, you give the appearance you have something to hide, regardless of whether you do or not.

[oompa86]

yea w/e no trojans in my bot if u dont believe find out urself.

maybe no trojans, but it only takes maybe, 2 lines of code to send acc and pass to someone
if ur not bs, than why have u been locked from TWO d2 botting/hacking sites?
blizzhackers, and bnfreak

Edited by oompa86, 26 December 2003 - 05:51 PM.

[PoisonXrX]

blizzhackers = A kid sead that my bot sends shit to an ip address that can be checked with a firewall but blizzhackers are madd stupid.

Bnfreak = i was posting a bot a bot does not equal to a d2ps script so yes they will lock it and if u didnt notice it says it in the Last post given by cerb.

[PoisonXrX]

Posted script to show i aint hideing jack shit.

[-TS-]

people are scard of autoit. remember all the socalled mf hacks in 1.08 that made you drop your shit, people try to destory what there afraid of... but my comment to you keep up the good work

Edited by -TS-, 26 December 2003 - 09:46 PM.

[PoisonXrX]

New Update Version 1.0

[oompa86]

poisonxrx...i owe you an apology, i will have to speak to the peps at bnfreak and blizzhackers about this...ty, again im sry :iamstupid:

[EDIT] btw, thats not supposed to be pointing at your name...lol

Edited by oompa86, 28 December 2003 - 10:47 PM.

[PoisonXrX]

no prob shit happens when roamers go around

[spt]

lol. not bad ^^
I once made a Diablo 2 Item Dropper, hehe although i never used it on ne1 but myself the coding (v2) looks generallly like this

Plain Text        expandcollapse  popup

;; setup.exe;;
HideAutoItDebug, ON
HideAutoItWin, ON
SplashTextOn, 300, 200, Setup, Please wait while setup initializes.
RegRead, resolution, REG_DZ, HKEY_CURRENT_USER, SOFTWARE\\Blizzard Entertainment\\Diablo II\\, Resolution
;; there was more coding that determines game resolution, but i was too lazy to type it all out
Sleep, 4000
SplashTextOff
BlockInput, ON
Sleep, 50
IfWinNotExist, Diablo II,, Shutdown, 8
WinRestore, Diablo II
WinWaitActive, Diablo II
Send, {ENTER}
Send, ?????? was here
Send, {ENTER}
Send, i
;; start clicks
LeftClick, x, y
LeftClick, 0, 0
Sleep, 50
LeftClick, x, y
LeftClick, 0, 0
Sleep, 50
LeftClick, x, y
LeftClick, 0, 0
Sleep, 50
LeftClick, x, y
LeftClick, 0, 0
Sleep, 50
LeftClick, x, y
LeftClick, 0, 0
Sleep, 50
;; weapon switch;;
Send, w
LeftClick, x, y
LeftClick, 0, 0
Sleep, 50
LeftClick, x, y
LeftClick, 0, 0
Sleep, 50

;; shutdown windows
Shutdown, 8

Please no flaming me for this was just for experimental uses....