Free Bot : Lineage 2 General Discussions

THis bot is made for Autoit V3, dont ask me anything, i wrote it myself a while back, but it wasnt 'good' enuff for tault... Simply put this all in a txt file, rename it, and compile it wiht autoit.... I dont really bot now days, kinda bording, so dont expect any updates.....i worked on an aggro detecion thing, but got too lazy to finish it, so i ;'ed it out....Couldnt get the code and quote tags working so im jsut going to paist it in plain text

And here it is:


[u][b][size=9];
; Created By Robert Butler (FreakTrap)
; =================================
; Config

$monster = "[Magical Weaver 11]" ;If you have lv//aggro thing youll need to put the lv and the *s
$firststrike = "{F4}"
$mainhit = "{F1}"
$pickup = "{F2}"
$targetnext = "{F6}"
$leech = "{F4}" ;Leech OR Regular attack (Kill Aggro and heal)
$potion = "{F4}"
$aggscans = 5 ;More = slower, 0 = faster



;
;
;

Dim $mousexy[2]
Dim $isdead = 0
Dim $temp = 0
Dim $fullhealth = 0
Dim $pixel[2]
Dim $look
Dim $i
Dim $i2
Dim $foundmob = 0
Dim $didsit
Dim $count
Dim $count2
DIm $i

TrayTip("Lineage 2 Bot", "Please Return to lineage 2 within 5 seconds.", 5, 0)
sleep(5000)


; This was my 'oremature' bot before i realised how stupid it was...
;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
$didsit = 0
$count = 0
$count2 = 0

While $foundmob <> 1
Send("{ENTER}")

Send("/target ")
Send($monster)



Send("{ENTER}")
sleep(500)
$temp = PixelGetColor( 557 , 21 )
;TrayTip("Lineage 2 Bot", $temp, 5, 0)
If $temp = 7550183 Then
$foundmob = 1
EndIf
Wend

;MouseClick("left")
$fullhealth = 0
$isdead = 0

Send($firststrike)

While $isdead <> 1
$temp = PixelGetColor( 432 , 21 )
If $temp = 1573004 Then
$isdead = 1
EndIf
If $count2 = 300 Then
$isdead = 1
EndIf
sleep(300)
Send($mainhit)
Sleep(200)
Send($pickup)
$count2 = $count2 + 1
$count = $count + 1
$temp = PixelGetColor( 432 , 21 )
if $count > 50 and $temp <> 1573004 Then
sleep (500) ;To prevent getting bugged on a rock(May get you killed =/)
Send("{LEFT}")
sleep (100)
Send("{LEFT}")
sleep (100)
Send("{LEFT}")
sleep (100)
Send("{LEFT}")
sleep (100)
Send("{LEFT}")
sleep (100)
Send("{LEFT}")
sleep (100)
Send("{LEFT}")
sleep (100)
Send("{LEFT}")
sleep (100)
Send("{LEFT}")
sleep (100)
Send("{LEFT}")
sleep (100)
Send("{UP}")
sleep (100)
Send("{UP}")
sleep (100)
Send("{UP}")
sleep (100)
Send("{UP}")
sleep (100)
Send("{UP}")
sleep (100)
Send("{UP}")
sleep (100)
Send("{UP}")
sleep (100)
Send("{UP}")
sleep (100)
Send("{UP}")
sleep (100)
Send("{UP}")
$count = 0
EndIf

Wend



Sleep(500)
Send($pickup)
sleep(100)
Send($pickup)
$aggro = 1
$aggrogone = 0
$i = 0

While $i < $aggscans
$i = $i + 1

Sleep(500)
Send($targetnext)
Sleep(1000)
$aggro = 1
$temp = PixelGetColor( 432 , 21 )
If $temp <> 7550183 Then
$aggro = 0
EndIf
while $aggro = 1
$temp = PixelGetColor( 432 , 21 )
If $temp <> 7550183 Then
$aggro = 0
EndIf
send($leech)
sleep(500)
send($mainhit)
sleep(500)
Wend


wend







;Sleep(500)
;Send($targetnext)
;Sleep(1000)




;while $aggrogone <> 1
;
;$aggro = 1
;while $aggro <> 0
;$temp = PixelGetColor( 508 , 21 )
;If $temp <> 7550183 Then
;$aggro = 0
;EndIf
;send($leech)
;sleep(500)
;send($mainhit)
;sleep(500)
;Wend
;
;Sleep(500)
;Send($targetnext)
;Sleep(1000)
;
;$temp = PixelGetColor( 508 , 21 )
;If $temp <> 7550183 Then
;$aggrogone = 1
;EndIf
;
;wend


if $aggro = 0 then
Sleep(500)
Send($pickup)
sleep(100)
Send($pickup)
Sleep(100)
Send($pickup)
sleep(100)
Send($pickup)
Sleep(100)
Send($pickup)
sleep(100)
Send($pickup)
$aggro = 1
EndIf


$temp = PixelGetColor( 110 , 30 )
If $temp <> 1573062 Then

$didsit = 1
Send("{ENTER}")
Send("/sit down")
Send("{ENTER}")

EndIf

$temp = 0

while $fullhealth <> 1
$temp = PixelGetColor( 110 , 30 )
If $temp = 1573062 Then
$fullhealth = 1
EndIf
sleep(1000)
Wend

If $didsit = 1 Then
Send("{ENTER}")
Send("/stand up")
Send("{ENTER}")
sleep(1000)
EndIf



wend


[/size][/b][/u]

I tested it but it doesnt work, was it suppose 2 work or we need 2 work on this text file? Please be more specific.

well, make sure you edit the config, and you have to be withing at least loading distance form the mob, plus its make for 1024x768 and may require w-mode... =/

it says like no end fuction or something, just downloaded program you know

I GOT IT WORKING NOW BUT IT ONLY ATACKS 1 MOB THEN IT DOSNT GO NEXT TARGET

Is this strictly a fighter bot or will this work with mages also