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

[memo20001]

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

[™_ EthereaL_™]

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

:(138):

[memo20001]

يعني ايه :(138)::(138)::(138)::(138)::(138)::(138):

[™_ EthereaL_™]

استخدم اي بوت

:(101):

[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_™]

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


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

:(121):

[Phoenix1337]

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

:(121):

Auto party invitation.

[™_ EthereaL_™]

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

:(144):

[Phoenix1337]

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

:(144):

مابيعملش اوتو بارتي
بتكلم على مشكلته :(133):

[™_ EthereaL_™]

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

:(143):