Post Reply Home » Forums » Lineage 2 » Lineage 2 Submissions

Submission.. : Lineage 2 Submissions

Posted: April 16th, 2004
Total Posts:10213 Joined:2004
http://host.deluxnetwork.com/tman/www/f ... acro-work/
Posted: April 16th, 2004
Total Posts:10213 Joined:2004
All i have to say is why would TAULT want to accept you with out seeing the source code, theres no reason to, for all they know it could be total trash.
Posted: April 16th, 2004
Total Posts:10213 Joined:2004
you blind? i jsut posted it, plus im about to add new stuff to it such as mana checking and party follow...
Posted: April 17th, 2004
Total Posts:10213 Joined:2004
uhhh.... so i release my code and people stop responding???
Posted: April 17th, 2004
User avatar
administrator
Total Posts:29918 Joined:2002
One of the mods is going to check this out for you :) please be patient we have alot of l2 submissions so it takes time to sift through all of them.
Posted: April 17th, 2004
Total Posts:10213 Joined:2004
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....

Code: Select all

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
Posted: April 18th, 2004
Total Posts:10213 Joined:2004
Can some members vote on if this is worthy as content?

Repost once some functions are added, as with the rest of the submitted macros, this one dosent do anything more than all the other basic macros, which we get submitted daily, and if everyone submitted the same thing eveyrone would have free membership....
Posted: April 18th, 2004
Total Posts:10213 Joined:2004
hmm... i didnt knwo you could make functions with autoit....
Ready to join the community? Click here and see all of the benefits!
blue large dotWho is online
Users browsing this forum: Google [Bot] and 11 guests
Post Reply