Party Reform

Page 1 of 2 1 2
06/13/2009 06:50 x_king_x#1
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:[Only registered and activated users can see links. Click Here To Register...]
Scan:[Only registered and activated users can see links. Click Here To Register...]
This Scan Is Copied from the other thread
I scanned it again by my anti-virus and it's clean
Enjoy
06/13/2009 12:38 lolrko#2
#Clean - Approved
06/13/2009 13:55 safilisx#3
very nice tool :)
06/13/2009 14:14 x_king_x#4
Thanks although i didn't code it xDD
06/13/2009 15:48 cristinel007#5
GOnna try it and report ^^
06/13/2009 16:01 x_king_x#6
Quote:
Originally Posted by cristinel007 View Post
GOnna try it and report ^^
Enjoyy xDD
06/13/2009 17:06 Ne11y#7
its autoit?
06/13/2009 17:09 moczymorda#8
Code:
#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?
06/13/2009 17:55 x_king_x#9
Dunno guys lol
06/13/2009 19:56 ChillerXXL#10
it doesn`t work at my sro
06/13/2009 20:34 oniDino#11
not working
06/13/2009 21:35 safilisx#12
it not working for me .
06/13/2009 22:31 Ne11y#13
for me too dont work ;S
06/13/2009 23:27 .1337#14
Not working... I don't think any one worked with.
06/13/2009 23:32 x_king_x#15
hmm im not using it so don't know
i will look for the new version
Page 1 of 2 1 2