عرض مشاركة واحدة
قديم 27-04-2013, 08:48 AM   #5

Phoenix1337
عضو سوبر



الصورة الرمزية Phoenix1337


• الانـتـسـاب » May 2011
• رقـم العـضـويـة » 87547
• المشـــاركـات » 2,116
• الـدولـة » C̷a̷i̷r̷o̷ E̷g̷y̷p̷t̷
• الـهـوايـة » D̷e̷s̷i̷g̷n̷i̷n̷g̷ C̷o̷d̷i̷n̷
• اسـم الـسـيـرفـر » No Server
• الـجـنـس » Male
• نقـاط التقييم » 46
Phoenix1337 صـاعـد

Phoenix1337 غير متواجد حالياً


إرسال رسالة عبر ICQ إلى Phoenix1337 إرسال رسالة عبر AIM إلى Phoenix1337 إرسال رسالة عبر Yahoo إلى 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 :
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ] | عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ] | عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ] | عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ] | عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]