[LoveScars]

Proyu burdan ındırın>>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

 

[LoveScars]

yazmayı unuttumalıntıdır

bıde aramadan arattım bole bısey bulamadım varsa sılınebılır


bıde yorum pls extraokk

 

[BeBeT0]

alın arkadaşlar yapılmıs halini sunuyum kendim yaptım
TR Version
http://rapidshare.com/files/66738667/Ye ... Script.exe

 

[BeBeT0]

bu arada süper paylaşım teşekkürler

 

[LoveScars]

ben bıraz kendılerı ugrassın ıye yapmadan ole koydum yaf sen nıye boole yapdın sımdı


neyse tsk ıcın saol Wink

ama hazırını bende koyabılırdım

 

[BeBeT0]

ugrassınlar o zaman

 

[HosenberG]

güsel bot arkadasların isine yarıyacaktır bebet0 nunki daha güsel ugrastırmıyo

 

[Crossie]

Bunu bende yayınlamıştım önceden ama bir allahın kulu konuya cevap yazmamıştı
Ayrıca bu kodlar eski ve partiye sadece çinli karakterleri alıyor
PayLaşım için teşekkürler extraokk

 

[LoveScars]

Bunu bende yayınlamıştım önceden ama bir allahın kulu konuya cevap yazmamıştı
Ayrıca bu kodlar eski ve partiye sadece çinli karakterleri alıyor
PayLaşım için teşekkürler extraokk

kardesım zate ole yazdık chinli karekterlerı alıyoo dıye

avrupa charları alıcak kodları bende bulamadım bulsam koyyucam arıyoorum

 

[paffendorf]

bişi soracam mesela party deki bi adam oturuo dieri kasıo o zmn oturan atılırmı party den??

 

[LoveScars]

bişi soracam mesela party deki bi adam oturuo dieri kasıo o zmn oturan atılırmı party den??

gerek yok partıde kalsın ısterse yerınden kıpırdamasın atılmasına gerek yok Wink

 

[LorD_LeGoLaS]

ben bıraz kendılerı ugrassın ıye yapmadan ole koydum yaf sen nıye boole yapdın sımdı


neyse tsk ıcın saol Wink

ama hazırını bende koyabılırdım

amaç kullanıcılara en kısa yolu göstermek...onları uğraştırmak deil.. extraokk extrabeer

 

[_Dark_Man_]

Bu program çalışması için oyun işlemcide kalması gerekiyo malesef.
yani o sayan sayı sürekli sayması gerekiyo Sanırsam Idea

 

[_EvilAngel_]

ben bıraz kendılerı ugrassın ıye yapmadan ole koydum yaf sen nıye boole yapdın sımdı


neyse tsk ıcın saol Wink

ama hazırını bende koyabılırdım

amaç kullanıcılara en kısa yolu göstermek...onları uğraştırmak deil.. extraokk extrabeer

+1907