Auto Party Script عشا البارتي تفضل في الفورم على طول

[patoot2007]

الموضوع باختصار هوا سكربت بتستخدمة عشان تخلى ال بارتى علطول معمولها فورم (form)

اول حاجة حتخش على الموقع دة http://www.autoitscript.com/autoit3/downloads.php

وتنزل برنامج اسمة Auto it

بعد كدة تاخد السكربت (حتلاقية موجود تحت) وتنقلة في note pad وتعملة save في اي حتة
وبعد متسطب البرنامج اللي فوق تفتحة من ال start حتلاقي برنامج موجود فية اسمة run script وتفتح منة الملف اللى انت عملتلو save حتطلعلك window حتدوس ok وبعد كدة في المربع حتكتب 1 وتدوس start بعد متكون فتحت اللعبة طبعا
كل دقيقة تقريبا حيعمل form لل partyويعمل accept للناس لوحدة

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

ارجو التثبيت للاهمية

شكرا

السكربت :


MsgBox ( 0, "Party Script", "Start Script")

#include <GuiConstants.au3>
Opt("GUIOnEventMode", 1)

Dim $PT
Dim $PTC=600 ; 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



الصور :
http://img407.imageshack.us/img407/5999/61028866vz2.jpg
http://img412.imageshack.us/img412/4457/17940107yg9.jpg
http://img262.imageshack.us/img262/165/80713347ap2.jpg
http://img504.imageshack.us/img504/5017/53624423oe4.jpg
http://img412.imageshack.us/img412/4214/28516371xd7.jpg
http://img262.imageshack.us/img262/8661/63175919ou4.jpg

__________________

منقول