Autoit script AutoParty

[catalinro]

Can someone make a script to auto form party and auto accept users in party ? and auto click on disconnect box when getting d/c

i got this from 258forum someone posted there ... but dont work .. get error when i wana start it ..

Func PartyHandle()
If PixelGetColor(65, 23) = 14037297 Then
$leader_pt = 1
If $count < 1 Then
$count = 5
EndIf
Else
$leader_pt = 0
EndIf


If Pixelgetcolor(124,204) <> 8093051 OR (Pixelgetcolor(124,247)<> 0 AND PixelGetColor(65, 23) =14037297) Then
If $PartyMatch = "Yes" AND $PartyCheck = "Yes" AND $Disconnected = 0 AND ($pt = 1 OR $leader_pt = 1) AND Pixelgetcolor(767,746) > 16776960 Then


Send("{INSERT}")
Pet()
Select
Case $leader_pt = 0
If PixelGetColor(791, 281) < 16776960 AND PixelGetColor(747, 646) < 16776960 Then
MouseClick("Left", 830, 730, 1, 0)
EndIf
Sleep(1000)
MouseClick("Left", 570, 540, 1, 0)
Sleep(1000)
If PixelGetColor(425, 425) = 0 Then
If PixelGetColor(425, 425) = 0 AND PixelGetColor(430, 430) = 0 AND PixelGetColor(424, 454) = 0 AND PixelGetColor(393, 454) > 16776960 AND PixelGetColor(468, 241) > 16776960 Then
MouseClick("Left", 475, 500, 1, 0)
EndIf
EndIf
Pet()
MouseClick("Left", 870, 655, 1, 0)
Sleep(5000)
Send("{INSERT}")
If PixelGetColor(425, 425) = 0 Then
If PixelGetColor(425, 425) = 0 AND PixelGetColor(430, 430) = 0 AND PixelGetColor(424, 454) = 0 AND PixelGetColor(393, 454) > 16776960 AND PixelGetColor(468, 241) > 16776960 Then
MouseClick("Left", 475, 500, 1, 0)
EndIf
EndIf
MouseClick("Left", 940, 350, 1, 0)
Sleep(1000)
MouseClick("Left", 940, 390, 1, 0)
Sleep(1000)
MouseClick("Left", 940, 420, 1, 0)
Sleep(1000)
MouseClick("Left", 940, 460, 1, 0)
Sleep(1000)
Send("{INSERT}")
MouseClick("Left", 390, 590, 1, 0)
Sleep(3000)
MouseClick("Left", 465, 530, 1, 0)
Sleep($PaDelay)
If PixelGetColor(425, 425) = 0 Then
If PixelGetColor(425, 425) = 0 AND PixelGetColor(430, 430) = 0 AND PixelGetColor(424, 454) = 0 AND PixelGetColor(393, 454) > 16776960 AND PixelGetColor(468, 241) > 16776960 Then
MouseClick("Left", 475, 500, 1, 0)
EndIf
EndIf
MouseClick("Left", 523, 586, 1, 0)
Send("{INSERT}")
Sleep(7000)
Send("{INSERT}")
MouseClick("Left", 390, 590, 1, 0)
Sleep(2000)
MouseClick("Left", 465, 530, 1, 0)
Sleep($PaDelay)
Send("{INSERT}")
If PixelGetColor(425, 425) = 0 Then
If PixelGetColor(425, 425) = 0 AND PixelGetColor(430, 430) = 0 AND PixelGetColor(424, 454) = 0 AND PixelGetColor(393, 454) > 16776960 AND PixelGetColor(468, 241) > 16776960 Then
MouseClick("Left", 475, 500, 1, 0)
EndIf
EndIf
MouseClick("Left", 390, 590, 1, 0)
Sleep(2000)
MouseClick("Left", 465, 530, 1, 0)
Sleep($PaDelay)
If PixelGetColor(425, 425) = 0 Then
If PixelGetColor(425, 425) = 0 AND PixelGetColor(430, 430) = 0 AND PixelGetColor(424, 454) = 0 AND PixelGetColor(393, 454) > 16776960 AND PixelGetColor(468, 241) > 16776960 Then
MouseClick("Left", 475, 500, 1, 0)
EndIf
EndIf
MouseClick("Left", 390, 590, 1, 0)
Sleep(2000)
Send("{INSERT}")
MouseClick("Left", 465, 530, 1, 0)
Sleep($PaDelay)
If PixelGetColor(425, 425) = 0 Then
If PixelGetColor(425, 425) = 0 AND PixelGetColor(430, 430) = 0 AND PixelGetColor(424, 454) = 0 AND PixelGetColor(393, 454) > 16776960 AND PixelGetColor(468, 241) > 16776960 Then
MouseClick("Left", 475, 500, 1, 0)
EndIf
EndIf
MouseClick("Left", 887, 161, 1, 0)
sleep(1000)
MouseClick("Left", 566, 420, 1, 0)

Case $leader_pt = 1 AND $count = 5
If PixelGetColor(791, 281) < 16776960 AND PixelGetColor(757, 646) < 16776960 Then
MouseClick("Left", 830, 730, 1, 0)
EndIf
Sleep(1000)
MouseClick("Left", 570, 540, 1, 0)
Sleep(1000)
If PixelGetColor(425, 425) = 0 Then
If PixelGetColor(425, 425) = 0 AND PixelGetColor(430, 430) = 0 AND PixelGetColor(424, 454) = 0 AND PixelGetColor(393, 454) > 16776960 AND PixelGetColor(468, 241) > 16776960 Then
MouseClick("Left", 475, 500, 1, 0)
EndIf
EndIf
MouseClick("Left", 870, 655, 1, 0)
Sleep(5000)
Send("{INSERT}")
If PixelGetColor(425, 425) = 0 Then
If PixelGetColor(425, 425) = 0 AND PixelGetColor(430, 430) = 0 AND PixelGetColor(424, 454) = 0 AND PixelGetColor(393, 454) > 16776960 AND PixelGetColor(468, 241) > 16776960 Then
MouseClick("Left", 475, 500, 1, 0)
EndIf
EndIf
MouseClick("Left", 620, 590, 1, 0)
Sleep(2000)
MouseClick("Left", 470, 540, 1, 0)
Sleep(2000)
MouseClick("Left", 887, 161, 1, 0)
sleep(1000)
MouseClick("Left", 566, 420, 1, 0)
EndSelect
EndIf
EndIf
EndFunc ; => PartyHandle()

//this is in main loop
If $count > 0 Then
$count = $count - 1
EndIf

or if someone can remove the auto-login stuff and let only auto-party+auto-disconnect from an old script
here was mine auto-login script

$login=inputbox("Auto Login","Game ID:")
$password=inputbox("Auto Login","Game Password:")
$character=inputbox("Auto Login","Character Select (1,2,3):")
$Run=inputbox("Auto Login","Game Folder:","x:\xxx\Silkroad\sro_client.exe 1234 /18 0 0")
HotKeySet("{PAUSE}", "pause")
Global $Paused
while 1=1
sleep(1000)
if WinExists("SRO_Client") then
sleep(500)
If WinActive("SRO_Client") and PixelGetColor(399,329) = 1579032 then
MouseMove(504,421,0)
sleep(500)
MouseClick("left",504,421,1)
sleep(200)
MouseClick("left",504,421,1)
sleep(1000)
endif
If WinActive("SRO_Client") and PixelGetColor(77,47) = 3947324 then
if WinActive("SRO_Client") and PixelGetColor(53,310) <> 0 then
Send("e")
MouseClick("left",610,590,1,0)
Sleep(100)
MouseClick("left",466,538,1,0)
Send("e")
endif
endif
$i = 0
While $i < 20
sleep(1000)
if WinActive("SRO_Client") and PixelGetColor(475,506) = 16775114 then
MouseMove(470,505,0)
MouseClick("left",470,505,1)
sleep(1000)
endif
$i = $i + 1
WEnd
else
Run($Run)
while (PixelGetColor(22,757) <> 16744576) and (WinExists("ERROR") <> 1) and (WinExists("NetError","") <> 1)
sleep(500)
wend
if WinExists("ERROR") or WinExists("NetError","") then
WinActivate("ERROR")
sleep(200)
ControlClick("ERROR","","Button1","left")
WinActivate("NetError","")
sleep(200)
ControlClick("NetError","","Button1","left")
sleep(2000)
else
WinActivate("SRO_Client")
loginStart()
EndIf
endif
wend
func loginStart()
WinActivate("SRO_Client")
ControlSend("SRO_Client", "", "", "{Enter}")
ControlSend("SRO_Client", "", "", "{TAB}")
sleep(1000)
Send($login)
sleep(1000)
ControlSend("SRO_Client", "", "", "{TAB}")
sleep(1000)
send($password)
sleep(1000)
ControlSend("SRO_Client", "", "", "{Enter}")
sleep(6000)
while PixelGetColor(254,87) <> 14402189 and PixelGetColor(491,424) <> 16710616
ControlSend("SRO_Client", "", "", "{Enter}")
sleep(6000)
wend
if (PixelGetColor(528,425) = 16710616) then
MouseMove(513,423,0)
MouseClick("left",513,423,1)
sleep(2000)
else
if (PixelGetColor(254,87) = 14402189) then
sleep(3000)
If $character=1 then
MouseMove(325,348,0)
MouseClick("left",325,348,2)
MouseClick("left",325,348,2)
EndIf
If $character=2 then
MouseMove(521,362,0)
MouseClick("left",521,362,2)
MouseClick("left",521,362,2)
EndIf
If $character=3 then
MouseMove(704,374,0)
MouseClick("left",704,374,2)
MouseClick("left",704,374,2)
EndIf
sleep(800)
If (PixelGetColor(800,221) = 0) then
SoundPlay("C:\Windows\media\tada.wav")
sleep(1000)
MouseMove(791,710,0)
MouseClick("left",791,710,2)
Sleep(10000)
sleep(2000)
ControlSend("SRO_Client", "", "", "{INSERT}")
sleep(1000)
ControlSend("SRO_Client", "", "", "{INSERT}")
sleep(1000)
ControlSend("SRO_Client", "", "", "{P}")
sleep(500)
MouseMove(785,650,0)
MouseClick("left",785,650,1)
sleep(500)
MouseMove(658,457,0)
MouseClick("left",658,457,1)
sleep(500)
MouseMove(729,519,0)
MouseClick("left",729,519,1)
sleep(500)
ControlSend("SRO_Client", "", "", "{P}")
else
if (PixelGetColor(528,425) = 16710616) then
MouseMove(513,423,0)
MouseClick("left",513,423,1)
sleep(2000)
else
MouseMove(996,712,0)
MouseClick("left",996,712,1)
sleep(3500)
loginStart()
Endif
Endif
Endif
endif
EndFunc
Func Pause()
$Paused = NOT $Paused
While $Paused
Sleep (400)
WEnd
EndFunc ; => Pause()

[egymma]

this is a good one ,, try it

MsgBox ( 0, "Party Script", "Start Script")
#include <GuiConstants.au3>
Opt("GUIOnEventMode", 1)
Dim $PT
Dim $PTC=200 ; time between paty checking (10 = 1 sec)
Dim $res
Dim $p=0
GuiCreate("BixParty", 150,100)
GUISetOnEvent($GUI_EVENT_CLOSE, 'CLOSEButton')
GuiCtrlCreateLabel("resolution"<A href="mailto:&@CR&"1">&@CR&"1 = 1024x768"<A href="mailto:&@CR&"2">&@CR&"2 = 1280x1024",5,5,80, 50)
$resW=GUICtrlCreateInput($res,90, 10, 50, 20,$ES_NUMBER)
GUICtrlSetLimit($resW,1)
$Start = GUICtrlCreateButton("Start", 40, 60, 60, 25,$BS_FLAT)
GUICtrlSetOnEvent($Start, "StartButton")
GUISetState()
While 1
Sleep(100)
if winactive("SRO_Client") then
$PT= $PT+1
ToolTip($PT,300,300)
if $res=1 Then
PatyChk()
EndIf
If $res=2 Then
PatyChk2()
EndIf
AcptPty()
endif
WEnd
Func StartButton()
$res = GUICtrlRead($resW)
GUICtrlSetData($Start,"Stop")
GUICtrlSetData($Start,"Start")
EndFunc
Func PatyChk()
if $PT >= $PTC then
$PT = 0
if (PixelGetColor(10,240) <> 0) and (PixelGetColor(11,300) <> 0) then
if (PixelGetColor(473,160)= 16777215) and (PixelGetColor(208,280) = 16777215 ) then
send("e")
Sleep(200)
EndIf
$p=0
send("e")
Sleep(500)
while (PixelGetColor(250,302) = 0) and $p<50
Sleep(50)
$p=$p+1
wend
$p=0
if (PixelGetColor(250,302) = 16777215) then
MouseClick("left",610,590,1,0)
Sleep(500)
MouseClick("left",460,540,1,0)
Endif
send("e")
Endif
Endif
Endfunc
Func PatyChk2()
if $PT >= $PTC then
$PT = 0
if (PixelGetColor(12,244) <> 0) and (PixelGetColor(10,300) <> 0) then
if (PixelGetColor(601,290)= 16777215) and (PixelGetColor(336,402) = 16777215 ) then
send("e")
Sleep(200)
EndIf
$p=0
send("e")
Sleep(500)
while (PixelGetColor(378,430) = 0) and $p<50
Sleep(50)
$p=$p+1
wend
$p=0
if (PixelGetColor(378,430) = 16777215) then
MouseClick("left",745,720,1,0)
Sleep(500)
MouseClick("left",594,668,1,0)
Endif
send("e")
Endif
Endif
Endfunc
Func AcptPty()
if PixelGetColor(10,300)<>0 Then
if $res = 1 Then
if (PixelGetColor(468,243) = 16777215) and (PixelGetColor(614,385) = 16777215) and (PixelGetColor(611,385) = 0) and (PixelGetColor(364,355) = 16777215) then
MouseClick("left",470,500,1,0)
Sleep(200)
Endif
EndIf
If $res = 2 Then
if (PixelGetColor(599,375) = 16777215) and (PixelGetColor(675,510) = 16777215) and (PixelGetColor(720,490) = 0) and (PixelGetColor(492,485) = 16777215) then
MouseClick("left",600,630,1,0)
Sleep(200)
Endif
EndIf
EndIf
Endfunc
Func CLOSEButton()
exit
EndFunc

[sangur]

script code vb ?

[mister]

... not even vb... can you read? it's in autoIT ... baby language.... -_-