1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

Oto. Party Form Programı !


  1. Crossie

    Crossie Öğreniyorum rank8

    Kayıt:
    6 Nisan 2007
    Mesajlar:
    182
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    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
     
  2. Jigsaw

    Jigsaw Aileden rank8

    Kayıt:
    13 Mayıs 2007
    Mesajlar:
    8.951
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Şehir:
    Close enough to cut your throat...
    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:
     
  3. Crossie

    Crossie Öğreniyorum rank8

    Kayıt:
    6 Nisan 2007
    Mesajlar:
    182
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    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
     
  4. Jigsaw

    Jigsaw Aileden rank8

    Kayıt:
    13 Mayıs 2007
    Mesajlar:
    8.951
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Şehir:
    Close enough to cut your throat...
    Biliyorum işte o powerlvl yapıyordu beni davet etti. Kendi yapmış önceden auto sharei. Program yapmıyor.
     
  5. קєรรเ๓เรt яαρ

    קєรรเ๓เรt яαρ Öğretiyorum rank8

    Kayıt:
    19 Mayıs 2007
    Mesajlar:
    788
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    tam olarak bu program ne işe yarıyor
     
  6. Crossie

    Crossie Öğreniyorum rank8

    Kayıt:
    6 Nisan 2007
    Mesajlar:
    182
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Sen afk olduğun zaman "e" harfine basıp form yapıyor ve partiden birisi çıkar yada dc yerse partiyi kontrol edip formluyor extraokk
     
  7. bobby_

    bobby_ Öğreniyorum rank8

    Kayıt:
    12 Haziran 2007
    Mesajlar:
    168
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Meslek:
    Persia AlchoLLicA_ Lv4X Nuker
    Şehir:
    Suzumiya Haruhi no yuuutsu
    formluyorda gelen adamı kabul de ediyodur heralde :lol:
     
  8. Crossie

    Crossie Öğreniyorum rank8

    Kayıt:
    6 Nisan 2007
    Mesajlar:
    182
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Evet Aynen öyLe Wink
     
  9. Crossie

    Crossie Öğreniyorum rank8

    Kayıt:
    6 Nisan 2007
    Mesajlar:
    182
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    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
     
  10. Marinero

    Marinero Buralıyım rank8

    Kayıt:
    10 Aralık 2007
    Mesajlar:
    3.024
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Meslek:
    Öğrenci
    Şehir:
    Çanakkale
    saol extraokk
     
  11. yasen32

    yasen32 Keşfediyorum rank8

    Kayıt:
    19 Aralık 2007
    Mesajlar:
    36
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0