http://rapidshare.com/files/225163692/GFX.au3.html
MD5: 3CC1FEE3CC204EFAF2303E406EA3A473
arkadaslar bu GFX autoreform ptnin açık kodu bunu sbota uyarlayabilirmisiniz.
MD5: 3CC1FEE3CC204EFAF2303E406EA3A473
arkadaslar bu GFX autoreform ptnin açık kodu bunu sbota uyarlayabilirmisiniz.
Kod:
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.9.14 (beta)èT?0U?xU?
Author: GreYFoX
Script Function:
Automatically Creates a Matching Entry for your party and accepts the applicants
#ce ----------------------------------------------------------------------------
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=E:\My Documents\1\Desktop\GFX.ico
#AutoIt3Wrapper_outfile=..\compiled\nodcbeta.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseAnsi=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Include <nomadmemoryfox.au3>
#include <GUIConstants.au3>
#Include <Array.au3>
#include <misc.au3>
#Include <Date.au3>
#Include <File.au3>
$progtitle="GreYFoX Party Matching lvl 100"
Global $4thx=22 ;22,301) <> 0xD6CFAD)
Global $4thy=301
Global $4thc=0xD6CFAD
Global $8thx=155
Global $8thy=233
Global $8thc=0xB5AA84
Global $xthx
Global $xthy
Global $xthc
Global $settype1
Global $kick
Global $kick1
Global $settype
Global $partytype=0
Global $ExpTyp
Global $ItmTyp
Global $pttype
Global $settype
Global $Hunting=$GUI_CHECKED
Global $Quest=$GUI_UNCHECKED
Global $Thief=$GUI_UNCHECKED
Global $Trade=$GUI_UNCHECKED
;~ Opt("TrayIconHide",1)
If ProcessExists("sro_client.exe")<>1 Then
MsgBox(0,$progtitle,"please start silkroad")
EndIf
If ProcessExists("sro_client.exe")<>1 Then
MsgBox(0,$progtitle,"You still didn't start SRo BB")
Exit
EndIf
If _Singleton("GFX\GFXAIO",1) = 0 Then
MsgBox(0,"N00B ^_^ BUSTED","Don't run my stuff twice")
GuiSetState(@SW_SHOW)
WinActivate($progtitle)
Exit
EndIf
Global $ptt
Dim $PTC=30
Dim $PT=$PTC
Global $msg=0
Global $doit=False
Global $Start
Global $hqtt
;~ $trayhelp = TrayCreateItem("&Help")
$statusitem = TrayCreateItem("&Show")
$aboutitem1 = TrayCreateItem("&About")
$exititem = TrayCreateItem("E&xit")
Opt("TrayIconHide",0)
Opt("TrayMenuMode",1)
GUICtrlSetOnEvent($Start, "StartButton")
$AIO=GuiCreate($progtitle, 285, 300)
;~ GUISetBkColor (0x1E1D1B)
$party=GuiCtrlCreateTab(0, 0, 285, 300)
;~ GUICtrlSetBkColor ( $party, 0x1E1D1B )
GuiCtrlCreateTabItem("Party Match")
GuiCtrlCreateGroup("Choose Party Obj.", 5, 25, 275, 52)
$Hunting = GUICtrlCreateCheckbox ("Hunting", 10, 45, 70, 20)
GUICtrlSetState($Hunting,$GUI_CHECKED)
$Quest = GUICtrlCreateCheckbox ("Quest", 85, 45, 70, 20)
$Trade = GUICtrlCreateCheckbox ("Trade", 160, 45, 70, 20)
$Thief = GUICtrlCreateCheckbox ("Thief", 230, 45, 48, 20)
GuiCtrlCreateGroup("Level Restrict", 5, 80, 275, 52)
GUICtrlCreateLabel("Min.",20,105)
$minlv=GUICtrlCreateInput(1,45,102,90)
GUICtrlCreateLabel("Max.",145,105)
$maxlv=GUICtrlCreateInput(90,170,102,90)
$afk = GUICtrlCreateCheckbox ("AFK", 10, 135, 40, 20)
GuiCtrlCreateGroup("Title", 5, 210, 275, 52)
$txtc=GuiCtrlCreateCombo("GreYFoX LTP FTW", 20, 230, 240, -1, $CBS_DROPDOWN)
GUICtrlSetData($txtc,"For open hunting on the Silk Road!|When will the quests wnd on the Silk Road?|No need blood or tears for thieves! Robbery is the only...|Until the day the Silk Road is all covered with money!|LTP|Long Time Party|Please, Join But Stay For a Long Time|Don't Join|Trading5*|All Thieves Come|For open hunting on the Silk Road! LTP","For open hunting on the Silk Road!")
$Start = GUICtrlCreateButton("Start", 200, 265, 45, 25 ,$BS_FLAT)
GUICtrlCreateLabel("Interval",10,270)
$interval = GUICtrlCreateInput($PTC,60,268,50)
GUICtrlCreateLabel("Sec.",115,270)
GUISetState()
While 1
$size = WinGetClientSize("SRO_Client")
$PTC=GUICtrlRead($interval)
while ($size[0]<>@DesktopWidth) and ($size[1]<>@DesktopHeight)
GUISetState(@SW_DISABLE)
MsgBox(0,$progtitle,"This only works in Full screan Mode"&@CRLF&"Please Make SRO in FUll screen Mode ty")
GUISetState(@SW_ENABLE)
WinActivate($progtitle)
WinActivate("[CLASS]")
MouseClick("Right",(1024/2),(768/2),1,0)
Send("!{TAB}")
GUISetState(@SW_ENABLE)
WEnd
If $PTC<$PT And $PT>$PTC Then
$PT=0
EndIf
$msg = GUIGetMsg()
$tray_msg = TrayGetMsg()
If $msg = $afk Then
partytype()
EndIf
If (GUICtrlRead($afk)=$GUI_UNCHECKED) Then
$ptt=4
EndIf
If $msg=$kick Then
setkick()
EndIf
if $msg=$kick1 Then
setkick1()
EndIf
Select
Case $msg = $GUI_EVENT_MINIMIZE
TraySetState()
GuiSetState(@SW_HIDE)
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $tray_msg = $exititem
Exit 0
;~ Case $tray_msg = $trayhelp
;~ Help()
Case $tray_msg = $aboutitem1
MsgBox(0,"GreYFoX All In one V1.0 - About","Made by GreYFoX FTW"&@CRLF&"I'm Now Part of StealtHex.org"&@CRLF&"This was made for StealtHex.org.")
Case $tray_msg = $statusitem
TraySetState(2)
GuiSetState(@SW_SHOW)
GuiSetState(@SW_RESTORE)
WinActivate($progtitle)
EndSelect
If ($msg=$Start) Then
StartButton()
EndIf
If ((GUICtrlRead($ExpTyp)<>"Exp Distribution") And (GUICtrlRead($ExpTyp)<>"Exp Auto Share")) Or ((GUICtrlRead($ItmTyp)<>"Item Auto Share") And (GUICtrlRead($ItmTyp)<>"Item Distribution")) Then
MsgBox(0,$progtitle,"Please Select The Right PT type",5)
sleep(5000)
EndIf
If (GUICtrlRead($maxlv)>100) Or (GUICtrlRead($maxlv)<1) Or (GUICtrlRead($minlv)>80) Or (GUICtrlRead($minlv)<1) Or (GUICtrlRead($maxlv)<GUICtrlRead($minlv) Or (GUICtrlRead($minlv)>GUICtrlRead($maxlv)))Then
MsgBox(0,$progtitle,"Please Choose Appropriate Levels"&@CRLF&"Min Between 1-80"&@CRLF&"Max Between 1-100"&@CRLF&"Min Not Greater Than Max"&@CRLF&"Max Not Lower Than Min",5)
sleep(5000)
EndIf
If $msg = $GUI_EVENT_CLOSE Then
Exit 0
EndIf
If $msg = $Hunting Then
sethunting()
EndIf
If $msg = $Quest Then
setquest()
EndIf
If $msg = $Trade Then
settrade()
EndIf
If $msg = $settype Then
setptalw()
EndIf
If $msg = $settype1 Then
setpt1()
EndIf
If $msg = $Thief Then
setthief()
EndIf
if $doit=true and winactive("SRO_Client") then
$PT= $PT-1
ToolTip($PT&" Seconds.",0,0)
if $PT <= 0 then
ToolTip("Working",0,0)
$PT=$PTC
party1024x768()
EndIf
acceptpt()
sleep(1000)
EndIf
WEnd
Func party1024x768()
If (GUICtrlRead($ExpTyp)<>"Exp Distribution") Then
$xthx=$4thx
$xthy=$4thy
$xthc=$4thc
EndIf
If (GUICtrlRead($ExpTyp)<>"Exp Auto Share") Then
$xthx=$8thx
$xthy=$8thy
$xthc=$8thc
EndIf
if (PixelGetColor($xthx,$xthy) <> $xthc) OR (PixelGetColor(1,139) <> 0xDFD5AB) then ;Fourth member Exist ?
if (PixelGetColor(473,160)= 16777215) and (PixelGetColor(208,280) = 16777215 ) then ;pt matching open then close it
MouseClick("Right",(1024/2),(768/2),1,0)
Send("e")
Sleep(200)
EndIf
if (GUICtrlRead($afk)=$GUI_CHECKED) Then;afk enabeled
if (GUICtrlRead($settype)=$GUI_CHECKED) Or (GUICtrlRead($settype1)=$GUI_CHECKED) Then;set type enabled
MouseClick("Right",(1024/2),(768/2),1,0)
Send("p")
sleep(200)
If PixelGetColor(801,620)<>0xF0D9A5 And PixelGetColor(773,283)<>0xFFFFFF Then;pt window not in place
MouseClick("left",882,713,1,0);click on system
MouseMove(495,348)
;~ if PixelGetColor(494,293)=0xffffff And PixelGetColor(495,348)=0xFEFBD8 Then;option window in place
MouseClick("left",495,348,1,0);option
sleep(100)
MouseClick("left",556,668,1,0);confirm
Send("{ESC}")
While PixelGetColor(494,293)=0xffffff
Send("{ESC}")
sleep(200)
WEnd
Send("p")
sleep(200)
EndIf
While (PixelGetColor(801,620)<>0xF0D9A5) And (PixelGetColor(773,283)<>0xFFFFFF);while pt is win not open
Send("p")
WEnd
If PixelGetColor(791,656)=0x5A5A5A Then
if (GUICtrlRead($kick)=$GUI_CHECKED) Or (GUICtrlRead($kick1)=$GUI_CHECKED) Then ;kick/ban or Not
MouseClick("Left",943,587,1,0)
sleep(100)
MouseClick("Left",943,555,1,0)
sleep(100)
MouseClick("Left",943,521,1,0)
sleep(100)
MouseClick("Left",943,487,1,0)
sleep(100)
MouseClick("Left",943,458,1,0)
sleep(100)
MouseClick("Left",943,424,1,0)
sleep(100)
MouseClick("Left",943,390,1,0)
sleep(100)
MouseClick("Left",943,349,1,0)
sleep(100)
If GUICtrlRead($kick1)=$GUI_CHECKED Then
GUICtrlSetState($kick1,$GUI_UNCHECKED)
EndIf
While (PixelGetColor(801,620)<>0xF0D9A5) And (PixelGetColor(773,283)<>0xFFFFFF);while pt win is not open
Send("p")
sleep(200)
WEnd
EndIf
Else
While (PixelGetColor(801,620)<>0xF0D9A5) And (PixelGetColor(773,283)<>0xFFFFFF);while pt is win not open
Send("p")
sleep(200)
WEnd
If (GUICtrlRead($settype)<>$GUI_CHECKED) AND (GUICtrlRead($settype1)<>$GUI_CHECKED) Then
MsgBox(0,$progtitle,"A Party already exists,pls check ur configuration for ban/leave, or leave manually",5)
EndIf
EndIf
MouseMove(791,655)
If (PixelGetColor(791,655)=0x844229) Then
MouseClick("left",791,655,1,0)
If GUICtrlRead($ExpTyp)="Exp Distribution" Then
MouseClick("left",659,458,1,0)
EndIf
If GUICtrlRead($ExpTyp)="Exp Auto Share" Then
MouseClick("left",659,436,1,0)
EndIf
If GUICtrlRead($ItmTyp)="Item Distribution" Then
MouseClick("left",791,458,1,0)
EndIf
If GUICtrlRead($ItmTyp)="Item Auto Share" Then
MouseClick("left",791,436,1,0)
EndIf
EndIf
MouseClick("left",732,519,1,0)
MouseClick("Right",(1024/2),(768/2),1,0)
Send("p")
sleep(200)
While PixelGetColor(801,620)=0xF0D9A5 And PixelGetColor(773,283)=0xFFFFFF
Send("p")
sleep(200)
WEnd
if (GUICtrlRead($settype1)=$GUI_CHECKED) Then
GUICtrlSetState($settype1,$GUI_UNCHECKED);=======================================
EndIf
EndIf
EndIf
$p=0
MouseClick("Right",(1024/2),(768/2),1,0)
Send("e")
Sleep(500)
while (PixelGetColor(250,302) = 0) and $p<50 ;wait for pt list to come up
Sleep(50);wait for pt list to come up
$p=$p+1;wait for pt list to come up
WEnd;wait for pt list to come up
$p=0
if (PixelGetColor(250,302) = 16777215) then ; if pt don't Exist
MouseClick("left",610,590,1,0)
Sleep(500)
MouseClick("left",500,500,1,0)
Send("{BS 50}")
sleep(200)
$txt=GUICtrlRead($txtc)
Send(""&$txt)
sleep(200)
MouseClick("Left",450,355)
sleep(200)
Send("{BS 10}{DEL 10}")
sleep(200)
send(GUICtrlRead($minlv))
MouseClick("Left",600,355)
sleep(200)
Send("{BS 10}{DEL 10}")
sleep(200)
send(GUICtrlRead($maxlv))
If (GUICtrlRead($Hunting)=$GUI_CHECKED) Then
If (PixelGetColor(414,284)<>0xFFFFFF) Then
MouseClick("Right",(1024/2),(768/2),1,0)
Send("{ESC}")
Msgbox(0,$progtitle,"You Are Curently Wearing a Job Suit,Please take it off or Choose Another PT Type"&@CRLF&"Then press start again")
StartButton()
Else
MouseClick("left",392,282)
EndIf
EndIf
If (GUICtrlRead($Quest)=$GUI_CHECKED) Then
If (PixelGetColor(480,288)<>0xFFFFFF)Then
MouseClick("Right",(1024/2),(768/2),1,0)
Send("{ESC}")
Msgbox(0,$progtitle,"You Are Curently Wearing a Job Suit,Please take it off or Choose Another PT Type"&@CRLF&"Then press start again")
StartButton()
Else
MouseClick("left",459,282)
EndIf
EndIf
If (GUICtrlRead($Trade)=$GUI_CHECKED) Then
If (PixelGetColor(542,280)<>0xFFFFFF)Then
MouseClick("Right",(1024/2),(768/2),1,0)
Send("{ESC}")
Msgbox(0,$progtitle,"You Are Curently NOT Wearing a Trader/Hunter Suit(flag),Please Wear It or Choose Another PT Type"&@CRLF&"Then press start again")
StartButton()
Else
MouseClick("left",525,282)
EndIf
EndIf
If (GUICtrlRead($Thief)=$GUI_CHECKED) Then
If (PixelGetColor(608,280)<>0xFFFFFF)Then
MouseClick("Right",(1024/2),(768/2),1,0)
Send("{ESC}")
Msgbox(0,$progtitle,"You Are Curently NOT Wearing the Thief Suit,Please Wear It or Choose Another PT Type"&@CRLF&"Then press start again")
StartButton()
Else
MouseClick("left",591,282)
EndIf
EndIf
MouseClick("left",460,540,1,0)
EndIf
sleep(100)
MouseClick("Right",(1024/2),(768/2),1,0)
Send("e")
sleep(200)
Endif
EndFunc
Func partytype()
Select
Case (GUICtrlRead($afk)=$GUI_CHECKED)
$settype=GUICtrlCreateCheckbox ("Set Eveytime", 55, 135, 80, 20)
$kick=GUICtrlCreateCheckbox ("Ban/Leave", 205, 135, 73, 10)
$kick1=GUICtrlCreateCheckbox ("Ban Once", 205, 145, 73, 10)
$settype1=GUICtrlCreateCheckbox ("Set once", 140, 135, 65, 20)
$pttype=GuiCtrlCreateGroup("Party Type", 5, 155, 275, 52)
$ExpTyp=GuiCtrlCreateCombo("Exp Distribution", 20, 170, 115,-1, $CBS_DROPDOWNLIST )
GUICtrlSetData($ExpTyp,"Exp Auto Share")
$ItmTyp=GuiCtrlCreateCombo("Item Distribution", 145, 170, 115, -1, $CBS_DROPDOWNLIST)
GUICtrlSetData($ItmTyp,"Item Auto Share")
GuiSetState(@SW_HIDE) ;without those 3 steps they won't show, it's a mistery to me why :s
GuiSetState(@SW_SHOW)
GuiSetState(@SW_RESTORE)
Case (GUICtrlRead($afk)=$GUI_UNCHECKED)
GUICtrlDelete($pttype)
GUICtrlDelete($settype)
GUICtrlDelete($settype1)
GUICtrlDelete($kick)
GUICtrlDelete($kick1)
GUICtrlDelete($ExpTyp)
GUICtrlDelete($ItmTyp)
EndSelect
EndFunc
Func setptalw()
GUICtrlSetState($settype1,$GUI_UNCHECKED)
EndFunc
Func setpt1()
GUICtrlSetState($settype,$GUI_UNCHECKED)
EndFunc
Func setkick()
GUICtrlSetState($kick1,$GUI_UNCHECKED)
EndFunc
Func setkick1()
GUICtrlSetState($kick,$GUI_UNCHECKED)
EndFunc
Func sethunting()
GUICtrlSetData($txtc,"Hunting @ ","For open hunting on the Silk Road!")
GUICtrlSetData($txtc,"For open hunting on the Silk Road!")
GUICtrlSetState($Quest,$GUI_UNCHECKED)
GUICtrlSetState($Trade,$GUI_UNCHECKED)
GUICtrlSetState($Thief,$GUI_UNCHECKED)
EndFunc
Func setquest()
GUICtrlSetData($txtc,"Doing The Quest","When will the quests wnd on the Silk Road?")
GUICtrlSetData($txtc,"When will the quests wnd on the Silk Road?")
GUICtrlSetState($Hunting,$GUI_UNCHECKED)
GUICtrlSetState($Trade,$GUI_UNCHECKED)
GUICtrlSetState($Thief,$GUI_UNCHECKED)
EndFunc
Func settrade()
GUICtrlSetData($txtc,"Need Hunters|Go Away Thieves|1* Only|No Noob Hunters Pls","Until the day the Silk Road is all covered with money!")
GUICtrlSetData($txtc,"Until the day the Silk Road is all covered with money!")
GUICtrlSetState($Hunting,$GUI_UNCHECKED)
GUICtrlSetState($Quest,$GUI_UNCHECKED)
GUICtrlSetState($Thief,$GUI_UNCHECKED)
EndFunc
Func setthief()
GUICtrlSetData($txtc,"We See a Trader *|We are In Thieftown|Samarkand|lvl80 only|No Noob THieves pls","Until the day the Silk Road is all covered with money!")
GUICtrlSetData($txtc,"No need blood or tears for thieves! Robbery is the only...")
GUICtrlSetState($Hunting,$GUI_UNCHECKED)
GUICtrlSetState($Quest,$GUI_UNCHECKED)
GUICtrlSetState($Trade,$GUI_UNCHECKED)
EndFunc
Func StartButton()
If (1024=@DesktopWidth) and (768=@DesktopHeight) Then
if $doit=false then
$doit=True
GUICtrlSetData($Start,"Stop")
ToolTip("Starting",0,0)
WinActivate("[CLASS]")
else
$doit=false
ToolTip("Paused(Press Start To Continue",0,0)
GUICtrlSetData($Start,"Start")
endif
Else
MsgBox(0,$progtitle,"Curently This program only works with 1024x768 and in full screen only")
EndIf
EndFunc
Func acceptpt()
if PixelGetColor(10,300)<>0 Then
;window title pt J <-- and Race
if (PixelGetColor(468,243) = 16777215) and (PixelGetColor(546,387) = 16777215) and (PixelGetColor(364,355) = 16777215) then
MouseClick("left",470,500,1,0)
Sleep(200)
Endif
EndIf
Endfunc
