Code: Register to unlock hidden link
; _____________________________________
;| |
;| Entertainer BuffBOT by swg_xploiter |
;|_____________________________________|
;
;Copy all the text into a .au3 file
Global $Paused
HotKeySet("{ESC}", "Terminate")
HotKeySet("{PAUSE}", "TogglePause")
#Include <Misc>
Sleep (1000)
WinActivate( "Star Wars Galaxies", "")
Sleep (1000)
Send ( "r" )
Sleep (2000)
;**1st Category and Stat**
SplashTextOn ( "Setup", "Leftclick on the 1st category you want to open (Attributes, Combat, etc.)", 400, 100, -1, -1, 1, "Ariel", 15 )
While 1
Sleep ( 100 )
If _IsPressed ( "01" ) Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$cat1x = $pos[0]
$cat1y = $pos[1]
Sleep (1000)
SplashTextOn ( "Setup", "Leftclick on the 1st Stat you want to add.", 400, 100, -1, -1, 1, "Ariel", 15 )
While 1
Sleep ( 100 )
If _IsPressed ( "01" ) Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$stat1x = $pos[0]
$stat1y = $pos[1]
Sleep (1000)
SplashTextOn("Setup", "Enter the number of times you want to hit -Add- for 1nd Stat", 400, 100, -1, +250, 0, "Ariel", 15)
While 1
Sleep ( 100 )
$Stat1Add = Number(InputBox( "Setup Continued", "Enter the data and click the OK button" ))
ExitLoop
Wend
SplashOff()
sleep ( 1000 )
SplashTextOn ( "Setup", "Close the Open category.", 400, 100, -1, -1, 1, "Ariel", 15 )
While 1
Sleep ( 100 )
If _IsPressed ( "01" ) Then
ExitLoop
EndIf
WEnd
SplashOff()
Sleep (1000)
;**2nd Category and Stat**
SplashTextOn ( "Setup", "Leftclick on the 2nd category you want to open (Attributes, Combat, etc.)", 400, 100, -1, -1, 1, "Ariel", 15 )
While 1
Sleep ( 100 )
If _IsPressed ( "01" ) Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$cat2x = $pos[0]
$cat2y = $pos[1]
Sleep (1000)
SplashTextOn ( "Setup", "Leftclick on the 2nd Stat you want to add.", 400, 100, -1, -1, 1, "Ariel", 15 )
While 1
Sleep ( 100 )
If _IsPressed ( "01" ) Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$stat2x = $pos[0]
$stat2y = $pos[1]
Sleep (1000)
SplashTextOn("Setup", "Enter the number of times you want to hit -Add- for 2nd Stat", 400, 100, -1, +250, 0, "Ariel", 15)
While 1
Sleep ( 100 )
$Stat2Add = Number(InputBox( "Setup Continued", "Enter the data and click the OK button" ))
ExitLoop
Wend
SplashOff()
Sleep (1000)
SplashTextOn ( "Setup", "Close the Open category.", 400, 100, -1, -1, 1, "Ariel", 15 )
While 1
Sleep ( 100 )
If _IsPressed ( "01" ) Then
ExitLoop
EndIf
WEnd
SplashOff()
;**3rd Category and Stat**
Sleep (1000)
SplashTextOn ( "Setup", "Leftclick on the 3rd category you want to open (Attributes, Combat, etc.)", 400, 100, -1, -1, 1, "Ariel", 15 )
While 1
Sleep ( 100 )
If _IsPressed ( "01" ) Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$cat3x = $pos[0]
$cat3y = $pos[1]
Sleep (1000)
SplashTextOn ( "Setup", "Leftclick on the 3rd Stat you want to add.", 400, 100, -1, -1, 1, "Ariel", 15 )
While 1
Sleep ( 100 )
If _IsPressed ( "01" ) Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$stat3x = $pos[0]
$stat3y = $pos[1]
Sleep (1000)
SplashTextOn("Setup", "Enter the number of times you want to hit -Add- for 3rd Stat", 400, 100, -1, +250, 0, "Ariel", 15)
While 1
Sleep ( 100 )
$Stat3Add = Number(InputBox( "Setup Continued", "Enter the data and click the OK button" ))
ExitLoop
Wend
SplashOff()
Sleep (1000)
SplashTextOn ( "Setup", "Close the Open category.", 400, 100, -1, -1, 1, "Ariel", 15 )
While 1
Sleep ( 100 )
If _IsPressed ( "01" ) Then
ExitLoop
EndIf
WEnd
SplashOff()
sleep ( 1000 )
;**4th Category and Stat**
Sleep (1000)
SplashTextOn ( "Setup", "Leftclick on the 4th category you want to open (Attributes, Combat, etc.)", 400, 100, -1, -1, 1, "Ariel", 15 )
While 1
Sleep ( 100 )
If _IsPressed ( "01" ) Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$cat4x = $pos[0]
$cat4y = $pos[1]
Sleep (1000)
SplashTextOn ( "Setup", "Leftclick on the 4th Stat you want to add.", 400, 100, -1, -1, 1, "Ariel", 15 )
While 1
Sleep ( 100 )
If _IsPressed ( "01" ) Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$stat4x = $pos[0]
$stat4y = $pos[1]
Sleep (1000)
SplashTextOn("Setup", "Enter the number of times you want to hit -Add- for 4th Stat", 400, 100, -1, +250, 0, "Ariel", 15)
While 1
Sleep ( 100 )
$Stat4Add = Number(InputBox( "Setup Continued", "Enter the data and click the OK button" ))
ExitLoop
Wend
SplashOff()
Sleep (1000)
SplashTextOn ( "Setup", "Close the Open category.", 400, 100, -1, -1, 1, "Ariel", 15 )
While 1
Sleep ( 100 )
If _IsPressed ( "01" ) Then
ExitLoop
EndIf
WEnd
SplashOff()
sleep ( 1000 )
;**5th Category and Stat**
Sleep (1000)
SplashTextOn ( "Setup", "Leftclick on the 5th category you want to open (Attributes, Combat, etc.)", 400, 100, -1, -1, 1, "Ariel", 15 )
While 1
Sleep ( 100 )
If _IsPressed ( "01" ) Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$cat5x = $pos[0]
$cat5y = $pos[1]
Sleep (1000)
SplashTextOn ( "Setup", "Leftclick on the 5th Stat you want to add.", 400, 100, -1, -1, 1, "Ariel", 15 )
While 1
Sleep ( 100 )
If _IsPressed ( "01" ) Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$stat5x = $pos[0]
$stat5y = $pos[1]
Sleep (1000)
SplashTextOn("Setup", "Enter the number of times you want to hit -Add- for 5th Stat", 400, 100, -1, +250, 0, "Ariel", 15)
While 1
Sleep ( 100 )
$Stat5Add = Number(InputBox( "Setup Continued", "Enter the data and click the OK button" ))
ExitLoop
Wend
SplashOff()
Sleep (1000)
SplashTextOn ( "Setup", "Close the Open category.", 400, 100, -1, -1, 1, "Ariel", 15 )
While 1
Sleep ( 100 )
If _IsPressed ( "01" ) Then
ExitLoop
EndIf
WEnd
SplashOff()
sleep ( 1000 )
;**Misc**
;Waiting
SplashTextOn("Setup", "Enter how long you want to wait for the other person to hit accept (1000 = 1 second)", 400, 100, -1, +250, 0, "Ariel", 15)
While 1
Sleep ( 100 )
$wait = Number(InputBox( "Setup Continued", "Enter the data and click the OK button" ))
ExitLoop
Wend
SplashOff()
Sleep (1000)
;Add
SplashTextOn ( "Setup", "Leftclick -Add-", 400, 100, -1, -1, 1, "Ariel", 15 )
While 1
Sleep ( 100 )
If _IsPressed ( "01" ) Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$addx = $pos[0]
$addy = $pos[1]
Sleep (1000)
;Clear
SplashTextOn ( "Setup", "Leftclick on -Clear-", 400, 100, -1, -1, 1, "Ariel", 15 )
While 1
Sleep ( 100 )
If _IsPressed ( "01" ) Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$clearx = $pos[0]
$cleary = $pos[1]
Sleep (1000)
;Accept
SplashTextOn ( "Setup", "Leftclick on -Accept-", 400, 100, -1, -1, 1, "Ariel", 15 )
While 1
Sleep ( 100 )
If _IsPressed ( "01" ) Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$acceptx = $pos[0]
$accepty = $pos[1]
Sleep (1000)
;Cancel
SplashTextOn ( "Setup", "Leftclick on -Cancel-", 400, 100, -1, -1, 1, "Ariel", 15 )
While 1
Sleep ( 100 )
If _IsPressed ( "01" ) Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$cancelx = $pos[0]
$cancely = $pos[1]
Sleep (1000)
SplashTextOn ( "Done", "Thanks for your patience. The script will start in 5 seconds)", 400, 100, -1, -1, 1, "Ariel", 15 )
Sleep (5000)
SplashOff()
$i = 0
Do
While 1
Send ( "r" )
Sleep (1000)
;Clear
Mouseclick ( "Left", $clearx, $cleary )
Sleep (200)
;1
MouseClick ( "Left", $cat1x, $cat1y )
Sleep (200)
MouseClick ( "Left", $stat1x, $stat1y)
Sleep (200)
MouseClick ( "Left", $addx, $addy, $Stat1Add )
Sleep (200)
MouseClick ( "Left", $cat1x, $cat1y )
Sleep (300)
;2
MouseClick ( "Left", $cat2x, $cat2y )
Sleep (200)
MouseClick ( "Left", $stat2x, $stat2y)
Sleep (200)
MouseClick ( "Left", $addx, $addy, $Stat2Add )
Sleep (200)
MouseClick ( "Left", $cat2x, $cat2y )
Sleep (300)
;3
MouseClick ( "Left", $cat3x, $cat3y )
Sleep (200)
MouseClick ( "Left", $stat3x, $stat3y)
Sleep (200)
MouseClick ( "Left", $addx, $addy, $Stat1Add )
Sleep (200)
MouseClick ( "Left", $cat3x, $cat3y )
Sleep (300)
;4
MouseClick ( "Left", $cat4x, $cat4y )
Sleep (200)
MouseClick ( "Left", $stat4x, $stat4y )
Sleep (200)
MouseClick ( "Left", $addx, $addy, $Stat4Add )
Sleep (200)
MouseClick ( "Left", $cat4x, $cat4y )
Sleep (300)
;5
MouseClick ( "Left", $cat5x, $cat5y)
Sleep (200)
MouseClick ( "Left", $stat5x, $stat5y)
Sleep (200)
MouseClick ( "Left", $addx, $addy, $Stat5Add )
Sleep (200)
MouseClick ( "Left", $cat5x, $cat5y )
Sleep (200)
MouseClick ( "Left", $acceptx, $accepty )
Sleep ($wait)
Sleep (1000)
MouseClick ( "Left", $cancelx, $cancely )
Sleep (200)
WEnd
Until $i = 1000000000
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc
Func Terminate()
Exit 0
EndFunc
If i remember right it circles through one and the same Buff on and on. Guess it could be altered easy if you have the Time to circle through 2-3 Buffs.
Ohh and i never really tryed it btw.
Edit: And if anyone wanna have another Way ( beside reading in Memory ) to read the Chat, try it with an Instant Messages Tab, Log Macro (/log on, /pause 3, /log off, /macro log) and write all from the Instant Messages into different Files and read allways last Lines. ( and scan if it is new ofc )