let me save you the time....
the area with ;'s was something i was testing before, but i found it too slow, si i didnt use it....
(!empty($user->lang['CODE'])) ? $user->lang['CODE'] : ucwords(strtolower(str_replace('_', ' ', 'CODE'))):
Dim $mousexy[2]
Dim $isdead = 0
Dim $temp = 0
Dim $fullhealth = 0
Dim $pixel[2]
Dim $look
Dim $i
Dim $i2
Dim $foundmob = 0
;TrayTip("Lineage 2 Bot", "Please Return to lineage 2 within 5 seconds.", 5, 0)
sleep(5000)
;for $i = 1 to 1200 Step 15
;for $i2 = 1 to 1000 Step 20
;$mousexy[0] = $i
;$mousexy[1] = $i2
;MouseMove ($mousexy[0], $mousexy[1] ,0)
;$pixel[0] = PixelSearch( ($mousexy[0] - 20), ($mousexy[1] - 20), ($mousexy[0] + 20), ($mousexy[1] + 20), 0xC1BEFE, 10)
;If $pixel[0] <> 1 Then
; $look = 1
;EndIf
;If $look = 1 Then
; Exitloop
;EndIf
;Next
;If $look = 1 Then
; Exitloop
;EndIf
;Next
while 1
$foundmob = 0
$isdead = 0
$fullhealth = 0
While $foundmob <> 1
Send("{F5}")
sleep(100)
$temp = PixelGetColor( 565 , 21 )
If $temp = 7550183 Then
$foundmob = 1
EndIf
Wend
;MouseClick("left")
$fullhealth = 0
$isdead = 0
While $isdead <> 1
$temp = PixelGetColor( 565 , 21 )
If $temp = 1573004 Then
$isdead = 1
EndIf
Sleep(300)
Send("{F3}")
sleep(300)
Send("{F4}")
Sleep(200)
Send("{F2}")
Wend
while $fullhealth <> 1
$temp = PixelGetColor( 110 , 30 )
If $temp = 1573062 Then
$fullhealth = 1
EndIf
Send("{F9}")
sleep(1000)
Wend
wend