Anonymous

opt("PixelCoordMode", 2)
opt("MouseCoordMode", 2)
opt("ColorMode", 1)
WinActivate("Diablo II")

$TeleportKey = IniRead(@ScriptDir & "\Bot_Keys.ini", "All_Classes", "Teleport_Key", "")
$LC_TELE_Checksum = IniRead(@ScriptDir & "\Bot_Keys.ini", "Din", "LC_TELE_Checksum", "")

If PixelChecksum(655,568, 667,580,3) <> $LC_TELE_Checksum Then
	Send($TeleportKey)
	For $Retry_Selectin_Tele = 1 to 40
		Sleep(25)
		If PixelChecksum(655,568, 667,580,3) = $LC_TELE_Checksum Then
			ExitLoop
		EndIf
		Sleep(10*$Retry_Selectin_Tele)
		Send($TeleportKey)
		If $Retry_Selectin_Tele > 38 Then
			;Send("{PRINTSCREEN}")
			EXIT(0)
		EndIf
	Next
EndIf
EXIT(1)