Kayıt
6 Nisan 2007
Mesajlar
182
Beğeniler
0
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

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 
EndFunc
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
 

Jigsaw

Aileden
Kayıt
13 Mayıs 2007
Mesajlar
8.654
Beğeniler
0
Şehir
Istanbul
Zırt pırt party request geliyor o kadar da güzel değil. Bi kere MilkyWay var 2 saatlik bot açmış power lvl yapıyor shakramda. EXP Auto share ~ Item Auto share diye geldi Allah allaah! %71 kastı sonra ulan sen napıyon burda dedi kickledi. Item düşmedi ama iyi element geldi. :mrgreen:
 
Kayıt
6 Nisan 2007
Mesajlar
182
Beğeniler
0
Jigsaw demiş ki:
Zırt pırt party request geliyor o kadar da güzel değil. Bi kere MilkyWay var 2 saatlik bot açmış power lvl yapıyor shakramda. EXP Auto share ~ Item Auto share diye geldi Allah allaah! %71 kastı sonra ulan sen napıyon burda dedi kickledi. Item düşmedi ama iyi element geldi. :mrgreen:
karıştırıyorsun herhalde bunu başka programla,"p" harfine basıp set kısmından party ayarlarını yaparsın ve gerisini buna bırakırsın bu sadece party form yapar her 100'e sayışında partiyi kontrol eder yani senin dediğin gibi item share-exp share kısmına karışmaz extraokk
 

Jigsaw

Aileden
Kayıt
13 Mayıs 2007
Mesajlar
8.654
Beğeniler
0
Şehir
Istanbul
_MASTER_ demiş ki:
Jigsaw demiş ki:
Zırt pırt party request geliyor o kadar da güzel değil. Bi kere MilkyWay var 2 saatlik bot açmış power lvl yapıyor shakramda. EXP Auto share ~ Item Auto share diye geldi Allah allaah! %71 kastı sonra ulan sen napıyon burda dedi kickledi. Item düşmedi ama iyi element geldi. :mrgreen:
karıştırıyorsun herhalde bunu başka programla,"p" harfine basıp set kısmından party ayarlarını yaparsın ve gerisini buna bırakırsın bu sadece party form yapar her 100'e sayışında partiyi kontrol eder yani senin dediğin gibi item share-exp share kısmına karışmaz extraokk
Biliyorum işte o powerlvl yapıyordu beni davet etti. Kendi yapmış önceden auto sharei. Program yapmıyor.
 
Kayıt
6 Nisan 2007
Mesajlar
182
Beğeniler
0
alex10 demiş ki:
tam olarak bu program ne işe yarıyor
Sen afk olduğun zaman "e" harfine basıp form yapıyor ve partiden birisi çıkar yada dc yerse partiyi kontrol edip formluyor extraokk
 
Kayıt
6 Nisan 2007
Mesajlar
182
Beğeniler
0
Bu kodlar sadece çinli charları alıyor partiye...Çinli ve Avrupalı charları alabilmesi için bu işten anlayan arkadaşlar yazarsa çok sevinirim Razz
 
Yukarı Alt