1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

Otomatik Party Programı


  1. Anonymous

    Anonymous Guest

    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
    Kod:
    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...
     
  2. pfffffff

    pfffffff Aileden rank8

    Kayıt:
    13 Mart 2007
    Mesajlar:
    5.479
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Meslek:
    Silkroad online meslek lisesi anasınıfı terk.
    Teşekkürler bilgi için.