#Region;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Stuff\Icons\www.newd2event.net.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Allow_Decompile=n
#AutoIt3Wrapper_Res_Comment=ladderslasher bot by shonnie for use ONLY with the GUI provided :P
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion;**** Directives created by AutoIt3Wrapper_GUI ****
#region Header
Opt("OnExitFunc", "_End")
Opt("MouseCoordMode", 0)
HotKeySet("{PAUSE}", '_Quit')
#include <GUIConstants.au3>
#include <Array.au3>
#include <Date.au3>
#include <IE.au3>
$Ran = 0
Global $Secs, $Mins, $Hour, $Time
Dim $MonsterDead = 0, $Chickens = 0, $Monsters = 0, $Chicken = 0, $Kills = 0, $Amount = 0, $Wait = 1, $Status = "", $Ran = 1, $Checked = 0
$Tip = IniRead("Settings.ini", "Adavanced", "Tip", "1")
$ToolTipX = IniRead("Settings.ini", "Adavanced", "TipX", "264")
$ToolTipY = IniRead("Settings.ini", "Adavanced", "TipX", "556")
$timer = TimerInit()
$rand1 = best friend(100, 300)
$rand2 = best friend(300, 500)
$Level = IniRead("Settings.ini", "Character", "Level", "1")
$Magic = IniRead("Settings.ini", "Character", "Magic", "0")
$Weapon = IniRead("Settings.ini", "Character", "Weapon", "")
$Pickit = IniRead("Settings.ini", "Settings", "Pickit", "0")
$ChickenLife = IniRead("Settings.ini", "Settings", "Chicken", "10")
$ClearLogs = IniRead("Settings.ini", "Settings", "ClearLogs", "0")
$Logging = IniRead("Settings.ini", "Settings", "LogActions", "0")
$Tipping = IniRead("Settings.ini", "Settings", "ToolTip", "0")
$oIE = _IEAttach("Ladderslasher", "embedded")
If Not WinExists("Ladderslasher") Then
MsgBox(0, "Err...", "I don't see the Ladderslasher GUI...")
_LogEvent(1, "Couldn't find the Ladderslasher GUI")
Exit
EndIf
$CharCheck = StringSplit(_IEBodyReadText($oIE), @CR)
$CharCheck2 = _ArraySearch($CharCheck, "Pvp", 0, 0, 0, True)
If $CharCheck2 = -1 Then
MsgBox(0, "Err", "Log in to your character, should be at the main menu")
Exit
EndIf
;;Name only ( $Name2[1] ) entire first line ( $Name[2] )
;$Name = StringSplit(_IEBodyReadText($oIE), @CR)
;$Name2 = StringSplit($Name[2], "(")
;;Class ( $Class3[1] )
;$Class = StringSplit(_IEBodyReadText($oIE), @CR)
;$Class2 = StringSplit($Class[2], "(")
;$Class3 = StringSplit($Class2[2], ")")
;;Level with label ( $Levels3[1] ) without label ( $Levels5 )
;$Levels = StringSplit(_IEBodyReadText($oIE), @CR)
;$Levels2 = StringSplit($Levels[2], "(")
;$Levels3 = StringSplit($Levels2[3], ")")
;$Levels4 = StringSplit($Levels[2], ":")
;$Levels5 = StringTrimRight($Levels4[2], 1)
;;Life values current ( $Life3[1] ) and maximum ( $Life3[2] ) and $LifePercent2 for percent
;$Life = StringSplit(_IEBodyReadText($oIE), @CR)
;$Life2 = StringSplit($Life[3], ":")
;$Life3 = StringSplit($Life2[2], "/")
;$Life4 = Number($Life3[1])
;$Life5 = Number($Life3[2])
;$LifePercent = ($Life4 / $Life5)
;$LifePercent2 = (Round($LifePercent, 2) * 100)
;;Mana values current ( $Mana3[1] ) and maximum ( $Mana3[2] )
;$Mana = StringSplit(_IEBodyReadText($oIE), @CR)
;$Mana2 = StringSplit($Mana[4], ":")
;$Mana3 = StringSplit($Mana2[2], "/")
;;Experience ( $Xp3[1] ) out of ( $Xp3[2] )
;$Xp = StringSplit(_IEBodyReadText($oIE), @CR)
;$Xp2 = StringSplit($Xp[5], ":")
;$Xp3 = StringSplit($Xp2[2], "/")
;;Inventory spaces used ( $Inv[18] )
;$Inv = StringSplit(_IEBodyReadText($oIE), @CR)
#endregion
;
If $ClearLogs = 1 Then
FileDelete("Log.txt")
EndIf
_LogEvent(0, "Started Bot")
_MainMenu()
Do
_Tip("Healing")
_CheckLife()
Until $Wait = 0
If $Wait = 0 Then
_IELinkClickByText($oIE, "Enter Combat Arena")
Sleep(100)
_IELinkClickByText($oIE, "Fight This Opponent")
If @error Then
_LogEvent(1, "GUI seems dead, exiting")
MsgBox(0, "", "Died")
Exit
EndIf
EndIf
_LogEvent(0, "Start main loop")
;Main loop
While 1
Do
_KillMonster()
$MHP7 = $MHP6
If $MHP7 <= $MHP6 Then
;_LogEvent(0, "Monster life: " & $MHP6 & "%")
EndIf
Until $MonsterDead = 1
_LogEvent(0, "Killed a monster, now healing")
$MonsterDead = 0
$Kills = $Kills + 1
If $Pickit = 1 Then
Sleep(100)
_IELinkClickByText($oIE, "Take Item")
EndIf
Do
_Tip("Healing")
_CheckLife()
Until $Wait = 0
_NextMonster()
_LogEvent(0, "Finding another monster to fight")
WEnd
Func _MainMenu()
_IELinkClickByText($oIE, "Run Away")
_IELinkClickByText($oIE, "Back to Main Menu")
EndFunc
Func _CheckLife()
$Life = StringSplit(_IEBodyReadText($oIE), @CR)
$Life2 = StringSplit($Life[3], ":")
$Life3 = StringSplit($Life2[2], "/")
$Life4 = Number($Life3[1])
$Life5 = Number($Life3[2])
$LifePercent = ($Life4 / $Life5)
$LifePercent2 = (Round($LifePercent, 2) * 100)
If $Life4 = $Life5 Then
$Wait = 0
ElseIf $LifePercent2 < $ChickenLife Then
;_LogEvent(0, "Chickening")
$Wait = 1
$Chicken = 1
Return
Else
$Wait = 1
EndIf
EndFunc
Func _KillMonster()
;MsgBox(0, "", "Kill")
_Tip("Fighting")
_CheckLife()
If $Chicken = 1 Then
_Chicken()
$Chicken = 0
Else
;Sleep(best friend(2, 5))
_IELinkClickByText($oIE, "Attack w/ " & $Weapon, 0, 0)
If @error Then
_IELinkClickByText($oIE, "Attack w/ " & $Weapon, 0, 0)
If @error Then
;_LogEvent(0, "Tried to attack w/ " & $Weapon & " but failed... WTF?!")
;MsgBox(0, "Errrr...", "Tried to attack w/ " & $Weapon & " but failed... WTF?!")
;Exit
EndIf
EndIf
$sHTML = _IEBodyReadHTML($oIE)
$MHP = StringSplit($sHTML, @CR)
$MHP6 = Number(_ArraySearch($MHP, "monHP", 0, 0, 0, True))
If @error Then
MsgBox(0, "", "Fucked")
Exit
EndIf
$MHP7 = Number($MHP6)
$MHP2 = $MHP[41]
;MsgBox(0, "", $MHP2 & " :*:*:*: " & $MHP7)
$MHP3 = StringTrimLeft($MHP2, 42)
$MHP4 = StringTrimRight($MHP3, 21)
$MHP5 = Number($MHP4)
Global $MHP6 = $MHP5
_ArrayDisplay($MHP)
Exit
If $MHP5 = 0 Then
Do
_IELinkClickByText($oIE, "Attack w/ " & $Weapon, 0, 0)
Until @error
$MonsterDead = 1
EndIf
EndIf
EndFunc
Func _NextMonster()
$Levels = StringSplit(_IEBodyReadText($oIE), @CR)
$Levels2 = StringSplit($Levels[2], "(")
$Levels3 = StringSplit($Levels2[3], ")")
$Levels4 = StringSplit($Levels[2], ":")
$Levels5 = StringTrimRight($Levels4[2], 1)
$Levels6 = Number($Levels5)
;MsgBox(0, "", "Fight Another Level " & $Levels6 & " Monster")
_IELinkClickByText($oIE, "Fight Another Level " & $Levels6 & " Monster")
;_ArrayDisplay($Levels)
;Exit
If @error Then
_MainMenu()
_IELinkClickByText($oIE, "Enter Combat Arena")
_IELinkClickByText($oIE, "Fight This Opponent")
If @error Then
_LogEvent(1, "GUI seems dead, exiting")
Exit
EndIf
EndIf
EndFunc
Func _Chicken()
;MsgBox(0, "", "Chicken !")
_MainMenu()
$Wait = 1
$Chicken = 0
$Chickens = $Chickens + 1
;Exit
EndFunc
Func _Tip($Status)
If $Tipping = 1 Then
If Not WinActive("Ladderslasher") Then
ToolTip("")
Else
$Pos = WinGetPos("Ladderslasher")
ToolTip("Kills: " & $Kills & " Chickens: " & $Chickens & " ~ Status: " & $Status, ($ToolTipX + $Pos[0]), ($ToolTipY + $Pos[1]))
EndIf
EndIf
EndFunc
Func _LogEvent($Code, $String)
If $Logging = 1 Then
$LogFile = FileOpen("Log.txt", 1)
Select
Case $Code = 0
FileWriteLine($LogFile, @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & " --> " & $String)
Case $Code = 1
FileWriteLine($LogFile, @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & " *** " & $String)
EndSelect
FileClose($LogFile)
EndIf
EndFunc
Func _End()
If $Ran = 1 Then
_LogEvent(0, "Stopped Bot (" & $Kills & " Kills and " & $Chickens & " Chickens)" & @CRLF & @CRLF)
EndIf
EndFunc
Func _Quit()
Exit
EndFunc
