maxben9
Member!
You must have Town Portal set to F8, party screen P and set ib to F1 right skill.
If you don't know how to compile an AutoIT script, then you have problem smile.gif
HotKeySet ( "{F10}","Host" )
HotKeySet ( "{F9}","Party" )
Opt("MouseCoordMode", 2)
Opt("PixelCoordMode", 2)
Dim $var
Dim $p
Func Host ()
send("{F8}")
Sleep(300)
MouseDown("right")
Sleep(100)
MouseUp("right")
send("{F1}")
Sleep(100)
MouseDown("right")
Sleep(2000)
MouseUp("right")
$p = PixelGetColor( 370 , 440 )
if $p = 394758 OR $p = 263172 Then
MouseMove(570,230)
sleep(100)
MouseClick("left")
sleep(100)
MouseClick("left")
Sleep(100)
Else
MouseMove(367,230)
sleep(100)
MouseClick("left")
sleep(100)
MouseClick("left")
Sleep(100)
send("p")
Endif
$var = PixelGetColor( 105 , 150 )
While $var <> 6906717 AND $var <> 4472892
sleep (10)
$var = PixelGetColor( 105 , 150 )
WEnd
MouseMove(105,150,0)
MouseClick("left")
EndFunc
Func Party ()
$p = PixelGetColor( 370 , 440 )
if $p = 394758 OR $p = 263172 Then
Sleep(10)
Else
send("p")
Endif
Sleep(100)
For $i = 143 To 371 step 38
MouseMove(300,$i,0)
MouseClick("left")
Next
EndFunc
While 1
Sleep(100)
WEnd
HERE IS PROGRAM I COMPILED IT FOR SOME PEOPLE WHO DOWNT KNOW HOW
http://www.megaupload.com/?d=7N0V6IL0
If you don't know how to compile an AutoIT script, then you have problem smile.gif
HotKeySet ( "{F10}","Host" )
HotKeySet ( "{F9}","Party" )
Opt("MouseCoordMode", 2)
Opt("PixelCoordMode", 2)
Dim $var
Dim $p
Func Host ()
send("{F8}")
Sleep(300)
MouseDown("right")
Sleep(100)
MouseUp("right")
send("{F1}")
Sleep(100)
MouseDown("right")
Sleep(2000)
MouseUp("right")
$p = PixelGetColor( 370 , 440 )
if $p = 394758 OR $p = 263172 Then
MouseMove(570,230)
sleep(100)
MouseClick("left")
sleep(100)
MouseClick("left")
Sleep(100)
Else
MouseMove(367,230)
sleep(100)
MouseClick("left")
sleep(100)
MouseClick("left")
Sleep(100)
send("p")
Endif
$var = PixelGetColor( 105 , 150 )
While $var <> 6906717 AND $var <> 4472892
sleep (10)
$var = PixelGetColor( 105 , 150 )
WEnd
MouseMove(105,150,0)
MouseClick("left")
EndFunc
Func Party ()
$p = PixelGetColor( 370 , 440 )
if $p = 394758 OR $p = 263172 Then
Sleep(10)
Else
send("p")
Endif
Sleep(100)
For $i = 143 To 371 step 38
MouseMove(300,$i,0)
MouseClick("left")
Next
EndFunc
While 1
Sleep(100)
WEnd
HERE IS PROGRAM I COMPILED IT FOR SOME PEOPLE WHO DOWNT KNOW HOW
http://www.megaupload.com/?d=7N0V6IL0