[Tool] Auto Party

[Only registered and activated users can see links. Click Here To Register...]
I'm not the author of this autoit3 code.
I just found AutoIt3 code in google.
I edited this code and created the .exe file.
Real author i don't know, but it's useful tool.

This tool is tested on Ecsro private server 1.091 with 1024x768 resolutions.
Maybe working on isro im not sure...

-----------------------------------------

[Tool] Auto Party

This Script (written in AutoIT3) will help you to form your party and accepting new users to party, when you are afk.

* How to

1. Start silkroad.
2. In silkroad edit party type.
3. Load Auto Party.exe and Press ok.
4. Select your screen-resolution and hit "start".
5. Now bring your silkroad to the front (it wont work if sro isnt in the front).

Auto Reform after 30 seconds.

Screenshots:

[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]

Resolutions:

* 1024x768
* 1280x1024

Features:

* Auto-Form Party
* Auto accept users to join party

Download:

* Mirror1 - [Only registered and activated users can see links. Click Here To Register...]
* Mirror2 - [Only registered and activated users can see links. Click Here To Register...]
* Mirror3 - [Only registered and activated users can see links. Click Here To Register...]

Virus Total:
* [Only registered and activated users can see links. Click Here To Register...]

Code:

[B]Result[/B]: 2/36 (5.56%)
Antivirus  	Version  	Last Update  	Result
AhnLab-V3	2008.11.14.3	2008.11.17	-
AntiVir	7.9.0.31	2008.11.16	-
Authentium	5.1.0.4	2008.11.17	-
Avast	4.8.1281.0	2008.11.16	-
AVG	8.0.0.199	2008.11.16	-
BitDefender	7.2	2008.11.17	-
CAT-QuickHeal	10.00	2008.11.15	-
ClamAV	0.94.1	2008.11.15	-
DrWeb	4.44.0.09170	2008.11.17	-
eSafe	7.0.17.0	2008.11.16	[B]Suspicious File[/B]
eTrust-Vet	31.6.6209	2008.11.14	-
Ewido	4.0	2008.11.16	-
F-Prot	4.4.4.56	2008.11.16	-
F-Secure	8.0.14332.0	2008.11.17	-
Fortinet	3.117.0.0	2008.11.15	-
GData	19	2008.11.17	-
Ikarus	T3.1.1.45.0	2008.11.17	-
K7AntiVirus	7.10.526	2008.11.15	-
Kaspersky	7.0.0.125	2008.11.17	-
McAfee	5436	2008.11.16	-
Microsoft	1.4104	2008.11.17	-
NOD32	3615	2008.11.15	-
Norman	5.80.02	2008.11.14	-
Panda	9.0.0.4	2008.11.16	[B]Suspicious file[/B]
PCTools	4.4.2.0	2008.11.16	-
Prevx1	V2	2008.11.17	-
Rising	21.03.42.00	2008.11.14	-
SecureWeb-Gateway	6.7.6	2008.11.16	-
Sophos	4.35.0	2008.11.16	-
Sunbelt	3.1.1801.2	2008.11.14	-
Symantec	10	2008.11.17	-
TheHacker	6.3.1.1.155	2008.11.15	-
TrendMicro	8.700.0.1004	2008.11.14	-
VBA32	3.12.8.9	2008.11.16	-
ViRobot	2008.11.15.1470	2008.11.15	-
VirusBuster	4.5.11.0	2008.11.16	-

Additional information
File size: 387925 bytes
[B]MD5: 59e93eaf8687bed52d56c0e21c4d1df7[/B]

AutoIt3 Code:
(You can create .exe file like i did if all mirrors are dead).

Code:

MsgBox ( 0, "Auto Party Script", "Auto Reform Time: 30 seconds...")
#include <GuiConstants.au3>
Opt("GUIOnEventMode", 1)
Dim $PT
Dim $PTC=300 ; time between paty checking (10 = 1 sec)
Dim $res
Dim $p=0
dim $ES_NUMBER ;1
dim $BS_FLAT ;2
GuiCreate("Auto Party Script", 150,100)
GUISetOnEvent($GUI_EVENT_CLOSE, 'CLOSEButton')
GuiCtrlCreateLabel("Resolution"&@CR&"1 = 1024x768"&@CR&"2 = 1280x1024",5,5,80, 50) ;3
$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,1,100)
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

GL & HF :cool: