Party Reform

[x_king_x]

Hello E*pvpers
Many People Were Making threads asking for Party Reforming program
But To be honest
This Program Wasn't made by me i just copied from other fourm
Link:
Scan:
This Scan Is Copied from the other thread
I scanned it again by my anti-virus and it's clean
Enjoy

[lolrko]

#Clean - Approved

[safilisx]

very nice tool

[x_king_x]

Thanks although i didn't code it xDD

[cristinel007]

GOnna try it and report ^^

[x_king_x]

Originally Posted by cristinel007

GOnna try it and report ^^

Enjoyy xDD

[Ne11y]

its autoit?

[moczymorda]

#include-once

Global $Paused
HotKeySet("{F5}", "TogglePause")
HotKeySet("{F6}", "Terminate")
HotKeySet("{F7}","hide")
HotKeySet("{F8}", "show")

#include <GuiConstants.au3>

Opt("GUIOnEventMode", 1)

Dim $ref
Dim $PT
Dim $PTC=20
Dim $reftime=5
Dim $res=1
Dim $p=0
Dim $pname="Join Here"

GuiCreate("Auto Party", 190,220,-1,-1,-1,$WS_EX_STATICEDGE)
$mma2=GUICtrlCreateInput($PTC,160, 2, 25, 20,$ES_OEMCONVERT)
GuiCtrlCreateLabel("Check Party every (1 = 1sec)",5,5,150, 15)
$reform= GUICtrlCreateCheckbox("Delete and Reform party..",5,25,150,20)
GUICtrlCreateLabel("every ? (1 = 1 minute) .",25,45)
$rtime=GUICtrlCreateInput($reftime,160, 38, 25, 20)
GuiCtrlCreateLabel("Your connection speed :",5,65,117, 15)
$speed1 = GUICtrlCreateRadio("Fast",5,80,40)
$speed2 = GUICtrlCreateRadio("xDSL",65,80,55)
$speed3 = GUICtrlCreateRadio("Dial Up",127,80,55)
$optN= GUICtrlCreateCheckbox("Enter Party Name :",5,100)
$mma=GUICtrlCreateInput($pname,3, 125, 185, 20,$ES_CENTER)
GuiCtrlCreateLabel("F5 Toggle Pause"&@CR&"F6 Terminate"&@CR&"F7 Hide SRO"&@CR&"F8 Show SRO",5,150,100, 50)
$Start = GUICtrlCreateButton("Start", 125, 170, 60, 25)
GuiCtrlCreateLabel("Developed by EGYMMA              v1.4",5,205,190, 15)
GUICtrlSetOnEvent($Start, "StartButton")
GUICtrlSetState ($speed1, $GUI_CHECKED)
GUISetOnEvent($GUI_EVENT_CLOSE, 'CLOSEButton')
GUISetState()

Func StartButton()
$pname = GUICtrlRead($mma)
$PTC = GUICtrlRead($mma2)
$reftime =GUICtrlRead($rtime)*60
GUICtrlSetData($Start,"Stop")
GUICtrlSetData($Start,"Start")
EndFunc

While 1
Sleep(900)
	if winactive("SRO_Client") then
		AcptPty()
	If GUICtrlRead($reform) =1 Then
		reform()
	endif
AcptPty()
	if $res=1 Then
		PatyChk()
	EndIf
	Else
		ToolTip('',405,697)
	EndIf
WEnd



Func PatyChk()
$PT= $PT+1
If (PixelGetColor(10,240) <> 0) and (PixelGetColor(11,300) <> 0) then
	ToolTip("~~~~ Script is running please press pause before you can talk  ("&$PT&") ~~~~",25,697)
Else
	$PT=0
	$ref=0
	ToolTip('~!~ Party is Full ~!~',405,697)
EndIf
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")
if BitAND(GUICtrlRead($speed1), $GUI_CHECKED) = $GUI_CHECKED Then
		sleep(500)
	ElseIf BitAND(GUICtrlRead($speed2), $GUI_CHECKED) = $GUI_CHECKED Then
		sleep(1000)
	ElseIf BitAND(GUICtrlRead($speed3), $GUI_CHECKED) = $GUI_CHECKED Then
		sleep(1500)
	EndIf
while (PixelGetColor(250,302) = 0) and $p<50
Sleep(50)
$p=$p+1
wend
$p=0
if (PixelGetColor(250,302) = 16777215) then
	if BitAND(GUICtrlRead($speed1), $GUI_CHECKED) = $GUI_CHECKED Then
		sleep(500)
	ElseIf BitAND(GUICtrlRead($speed2), $GUI_CHECKED) = $GUI_CHECKED Then
		sleep(1000)
	ElseIf BitAND(GUICtrlRead($speed3), $GUI_CHECKED) = $GUI_CHECKED Then
		sleep(1500)
	EndIf

MouseClick("left",610,590,1,0)

if GUICtrlRead($optN) = 1 Then
	if BitAND(GUICtrlRead($speed1), $GUI_CHECKED) = $GUI_CHECKED Then
		sleep(500)
	ElseIf BitAND(GUICtrlRead($speed2), $GUI_CHECKED) = $GUI_CHECKED Then
		sleep(1000)
	ElseIf BitAND(GUICtrlRead($speed3), $GUI_CHECKED) = $GUI_CHECKED Then
		sleep(1500)
	EndIf
MouseClick("left",583,496,1,0)
Send("{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}")
Send($pname)

if BitAND(GUICtrlRead($speed1), $GUI_CHECKED) = $GUI_CHECKED Then
		sleep(200)
	ElseIf BitAND(GUICtrlRead($speed2), $GUI_CHECKED) = $GUI_CHECKED Then
		sleep(500)
	ElseIf BitAND(GUICtrlRead($speed3), $GUI_CHECKED) = $GUI_CHECKED Then
		sleep(700)
	EndIf
EndIf
Sleep(500)
MouseClick("left",460,540,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
Sleep(2500)
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)
Endif
EndIf
EndIf

Sleep(200)
Endif
EndIf


EndIf
Endfunc

Func reform()

	$ref= $ref+1

	if $ref >= $reftime And (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
	$ref=0
	Send("e")
	sleep(1500)
	If (PixelGetColor(823,586) <> 5395026) And (PixelGetColor(615,586) =5921370) Then
	MouseClick("",810,590,1,0)
	Sleep(100)
	MouseClick("",470,435,1,0)
	Sleep(1500)
	MouseClick("left",610,590,1,0)
	if GUICtrlRead($optN) = 1 Then
	if BitAND(GUICtrlRead($speed1), $GUI_CHECKED) = $GUI_CHECKED Then
		sleep(500)
	ElseIf BitAND(GUICtrlRead($speed2), $GUI_CHECKED) = $GUI_CHECKED Then
		sleep(1000)
	ElseIf BitAND(GUICtrlRead($speed3), $GUI_CHECKED) = $GUI_CHECKED Then
		sleep(1500)
	EndIf
MouseClick("left",583,496,1,0)
Send("{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}")
Send($pname)
	EndIf
Sleep(100)
	MouseClick("left",460,540,1,0)
	Sleep(100)
	Send("e")
Else
	Send("e")
EndIf
EndIf
EndFunc

Func hide()
	WinSetState("SRO_Client", "", @SW_MINIMIZE)
	WinSetState("SRO_Client", "", @SW_HIDE)
EndFunc

Func show()
	WinActivate("SRO_Client")
	WinSetState("SRO_Client", "", @SW_SHOW)
EndFunc


Func CLOSEButton()

exit
EndFunc
Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
		if winactive("SRO_Client") then
        sleep(100)
        ToolTip('~!~Script is Paused~!~',405,697)
	Else
		ToolTip('',405,697)
		EndIf
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
	 Exit 0
EndFunc

So its works on some resolution right? So which one?

[x_king_x]

Dunno guys lol

[ChillerXXL]

it doesn`t work at my sro

[oniDino]

not working

[safilisx]

it not working for me .

[Ne11y]

for me too dont work ;S

[.1337]

Not working... I don't think any one worked with.

[x_king_x]

hmm im not using it so don't know
i will look for the new version