All pastes #500952 Raw Edit

Mine

public text v1 · immutable
·published 2007-05-21 20:19 UTC
rendered paste body
opt("PixelCoordMode", 2)
opt("MouseCoordMode", 2)
opt("ColorMode", 1)
WinActivate("Diablo II")

$AA = IniRead(@ScriptDir & "\Bot_Keys.ini", "Din", "LC_TELE_Checksum", "0")
;IniRead(@ScriptDir & "\Kuk_bot_settings.ini", "Throne", "Meditation_Checksum", "0")
;$BB = IniRead(@ScriptDir & "\Bot_Keys.ini", "Din", "HammerLC_Checksum", "0")
;$CC = IniRead(@ScriptDir & "\Bot_Keys.ini", "Din", "Concentration_Checksum", "0")
If $AA = 0 Then
	Sleep(300)
Else
	EXIT(1)
EndIf

$TeleportKey = IniRead(@ScriptDir & "\Bot_Keys.ini", "All_Classes", "TeleportKey", "r")
;$MeditationKey = IniRead(@ScriptDir & "\Kuk_bot_settings.ini", "Keys", "MeditationKey", "b")
;$ConcentrationKey  = IniRead(@ScriptDir & "\Bot_Keys.ini", "Din", "ConcentrationKey", "t")
;$BlessedHammerKey = IniRead(@ScriptDir & "\Bot_Keys .ini", "Din", "BlessedHammerKey", "z")

;Send($ConcentrationKey)
;Sleep(250)
;$Concentration_Checksum = PixelChecksum(655,568, 667,580,3)

;Sleep(250)

;Send($MeditationKey)
;Sleep(1000)
;$Meditation_Checksum = PixelChecksum(655,568, 667,580,3)

;Sleep(200)

Send($TeleportKey)
Sleep(250)
$LC_TELE_Checksum = PixelChecksum(655,568, 667,580,3)

Sleep(250)

;$HammerLC_Checksum = PixelChecksum(133,568, 145,580,3)

;Sleep(250)




IniWrite(@ScriptDir & "\Bot_Keys.ini", "Din", "LC_TELE_Checksum", $LC_TELE_Checksum)
;IniWrite(@ScriptDir & "\Bot_Keys.ini", "Din", "Meditation_Checksum", "0")
;IniWrite(@ScriptDir & "\Bot_Keys.ini", "Din", "HammerLC_Checksum", $HammerLC_Checksum)
;IniWrite(@ScriptDir & "\Bot_Keys.ini", "Din", "Concentration_Checksum", "0")

MsgBox(0,"ChecksumGetter","Checksums gotten and written successfully!")

EXIT(1)