انا قربت اتخنق والله ساعدوووووووني

[memo20001]

يا جماعة انا عندي الاسبوت وشغال بسم الله ما شاء الله
بس في حاجة واحدة ناقصاه
مابيعملش اوتو بارتي
عايز بس برنامج يكون كويس وموثوق فيه يرفع بارتي لوحه ويقبل الناس ولكم جزيل الشكر

[™_ EthereaL_™]

للاسف مفيش برنامج بيعمل كده

[memo20001]

يعني ايه

[™_ EthereaL_™]

استخدم اي بوت

[Phoenix1337]

Auto IT code for auto party

MsgBox ( 0, "Auto Party Script", "Auto Reform Time: 30 seconds...")
#include <GuiConstants.au3>
Opt("GUIOnEventMode", 1)
Dim $PT
Dim $PTC=300 ; time between paty checking (10 = 1 sec)
Dim $res
Dim $p=0
dim $ES_NUMBER ;1
dim $BS_FLAT ;2
GuiCreate("Auto Party Script", 150,100)
GUISetOnEvent($GUI_EVENT_CLOSE, 'CLOSEButton')
GuiCtrlCreateLabel("Resolution"&@CR&"1 = 1024x768"&@CR&"2 = 1280x1024",5,5,80, 50) ;3
$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,1,100)
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

[™_ EthereaL_™]

المشاركة الأصلية كتبت بواسطة phoenix1337 عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]

auto it code for auto party

msgbox ( 0, "auto party script", "auto reform time: 30 seconds...")
#include <guiconstants.au3>
opt("guioneventmode", 1)
dim $pt
dim $ptc=300 ; time between paty checking (10 = 1 sec)
dim $res
dim $p=0
dim $es_number ;1
dim $bs_flat ;2
guicreate("auto party script", 150,100)
guisetonevent($gui_event_close, 'closebutton')
guictrlcreatelabel("resolution"&@cr&"1 = 1024x768"&@cr&"2 = 1280x1024",5,5,80, 50) ;3
$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,1,100)
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

تمام بس الكود ده بتاع ايه؟

[Phoenix1337]

المشاركة الأصلية كتبت بواسطة ™_ EthereaL_™ عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]

تمام بس الكود ده بتاع ايه؟

Auto party invitation.

[™_ EthereaL_™]

ماهو البوت فيه اوتو بارتي انفتيشن

[Phoenix1337]

المشاركة الأصلية كتبت بواسطة ™_ ethereal_™ عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]

ماهو البوت فيه اوتو بارتي انفتيشن

مابيعملش اوتو بارتي

بتكلم على مشكلته

[™_ EthereaL_™]

هو قصده party matching مش اوتو بارتي