Oto. Party Form Programı !

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