[Anonymous]

Selamlar.

Artık botu açtığınızda pc ba$inda değilken acaba partide mi? partiden dü$tümü diye sıkıntılarınız olmayacak

Siz pc ba$inda olmasanızda bu program ve kodlar sayesinde siz pc ba$indaymi$siniz gibi exp. parti açıyor ve gelen daveti otomatik kabul ediyor.

Nasıl mı? aynen $u $ekilde.

Kurulum:
En öncesinde Masaüzerinizin ve oyunun çözünürlüğünün 1024x728 olması gerekiyor.Link'ten ilgili programı çekip pc ye kuruyorsunuz. Sonra C:\Program Files\AutoIt3\Examples'ın altındaki notepad1 'e bir kez sağ tıklayıp edit script diyip içindeki tüm yazıları silip aşağıdaki kodları kopyapa yapi$tir yaparak kaydedip çıkıyoruz.

Çalıştırma:
Oyuna bot ile girip her$ey hallettikden sonra Ba$lat>Programlar>Autoitv3>Run script diyip notepad1'i çift tıklıyıp aktif hale getiriyoruz.Kar$ınıza Start Script uyarısı çıkıyor Tamam dedikten sonra 1 menü daha gelicek kar$ınıza ordan da 1 seçenek olan 1024*728 yani yandaki kutuya 1 yazip Başlat diyorsunuz.Oyuna geri döndüğünüzde Sayaç ba$liyor ve OTO PARTY çalışır duruma geliyor.Her 200'e kadar saydiğinda parti yenileniyor ve gelen daveti kabul ediyor.Eğer birisi düşerse partiden yada çıkarsa sayaç tekrardan devreye giriyor ve partiyi yeniliyor.

Link:http://www.dosyaupload.net/download.php?file=900626

MsgBox ( 0, "Party Script", "Start Script") 

#include <GuiConstants> 
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"&@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>= $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

yorumlarınızı eksik etmeyin arkadaslar...

 

[pfffffff]

Teşekkürler bilgi için.