Programı burdan indirin -> http://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3.2.4.9-setup.exe
indirdikten sonra masaüstüne sağ tıklıyoruz yapıyoruz ;
yeni>Yeni AutoIt v3 Script yapıyoruz
ve yeni oluşturduğumuz autoit dosyasına sağ tıklayıp Edit script yapıyoruz içinde ne yazıyorsa hepsini siliyoruz ve aşağıdaki kodları yapıştırıp kapatıyoruz
bu kodları yapıştırdıktan sonra kaydettiğimiz dosyayı açacağız (tabi oyundayken)start'a basacağız çıkan boşluğa 1 yazacağız ve oyuna döneceğiz party form yapmaya başlayacaktır
NOT:bu sadece çinli charları partiye almaktadır...avrupalı charlar içinde kodları yazan olursa herkes için iyi olur
NOT(2)dosyada virüs bulunmamaktadır zaten orj. siteden indiriyorsunuz ve kodlarda ap açık ortadır detective
indirdikten sonra masaüstüne sağ tıklıyoruz yapıyoruz ;
yeni>Yeni AutoIt v3 Script yapıyoruz
ve yeni oluşturduğumuz autoit dosyasına sağ tıklayıp Edit script yapıyoruz içinde ne yazıyorsa hepsini siliyoruz ve aşağıdaki kodları yapıştırıp kapatıyoruz
Kod:
MsgBox ( 0, "Party Script", "Start Script")
#include <GuiConstants.au3>
Opt("GUIOnEventMode", 1)
Dim $PT
Dim $PTC=100 ; time between paty checking (10 = 1 sec)
Dim $res
Dim $p=0
GuiCreate("BixParty", 150,100)
GUISetOnEvent($GUI_EVENT_CLOSE, 'CLOSEButton')
GuiCtrlCreateLabel("resolution"&@CR&"1 = 1024x768"&@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
EndFuncNOT:bu sadece çinli charları partiye almaktadır...avrupalı charlar içinde kodları yazan olursa herkes için iyi olur
NOT(2)dosyada virüs bulunmamaktadır zaten orj. siteden indiriyorsunuz ve kodlarda ap açık ortadır detective
