I hate clicking through all the crap to get TCG cards and this is just simple click script!
Compile using auto it. No support just use it.
Just be logged into the TCG looking at the window with your packs you want to claim.
Code: Select all
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;TCG Card Claim Bot script for SWG v 0.5
;This script is used to claim TCG cards without you needing to reclick.;
#include <Misc.au3>
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{END}", "Terminate")
Global $Paused, $Hold, $lag
$Paused = 0
$Hold = True
$lag = 200
Func TogglePause()
$Paused = Not $Paused
While $Paused
Sleep (100)
ToolTip('Script is "Paused"', 0, 0)
WEnd
ToolTip("")
EndFunc ;==>TogglePause
Func Terminate()
ToolTip("Closing down the script in 3 seconds.", 50, 50, "", 0, 1)
Sleep(3000)
ToolTip("")
Sleep(1000)
Exit 0
EndFunc ;==>Terminate
Sleep(1000)
WinActivate("Star Wars Galaxies", "")
Sleep(100)
SplashTextOn("Key Functions", "The [END] key will exit the script" & @CRLF & "The [PAUSE] key will pause the script", 300, 50, -1, -1, 32, -1, -1, -1)
Sleep(3000)
SplashOff()
SplashTextOn("Set up TCG Card Claim", "Set up TCG Card Claim! Because I hate doing it!", 450, 50, -1, -1, 32, -1, -1, -1)
Sleep(3000)
SplashOff()
;start location setup
Sleep ( 1000 )
SplashTextOn("TCG Card Claim setup.", "Please RIGHT Click once on your choose a pack deck ", 400, 100, -1, -1, 1, "Ariel", 15); click the point to set your choose a pack location
While 1
Sleep ( 100 )
If _IsPressed("02") Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$packx = $pos[0]
$packy = $pos[1]
Sleep("500")
Sleep ( 1000 )
SplashTextOn("TCG Card Claim setup.", "Please LEFT Click the REDEEM.", 400, 100, -1, -1, 1, "Ariel", 15); left click the point to set redeem.
While 1
Sleep ( 100 )
If _IsPressed("01") Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$redeemx = $pos[0]
$redeemy = $pos[1]
Sleep("500")
Sleep ( 1000 )
SplashTextOn("TCG Card Claim setup.", "Please LEFT Click the redeem button once. ", 400, 100, -1, -1, 1, "Ariel", 15); left click to set the redeem button1
While 1
Sleep ( 100 )
If _IsPressed("01") Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$redeem1x = $pos[0]
$redeem1y = $pos[1]
Sleep("500")
Sleep ( 500 )
SplashTextOn("TCG Card Claim setup.", "Please Left Click the choose button once. ", 400, 100, -1, -1, 1, "Ariel", 15); left click to set choose.
While 1
Sleep ( 100 )
If _IsPressed("01") Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$choosex = $pos[0]
$choosey = $pos[1]
Sleep("500")
Sleep ( 500 )
SplashTextOn("TCG Card Claim setup.", "Please Left Click the packs you want to claim. ", 400, 100, -1, -1, 1, "Ariel", 15); left click to set which pack1.
While 1
Sleep ( 100 )
If _IsPressed("01") Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$pack1x = $pos[0]
$pack1y = $pos[1]
Sleep("500")
Sleep ( 500 )
SplashTextOn("TCG Card Claim setup.", "Please Left Click the choose button once. ", 400, 100, -1, -1, 1, "Ariel", 15); left click to set choose1.
While 1
Sleep ( 100 )
If _IsPressed("01") Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$choose1x = $pos[0]
$choose1y = $pos[1]
Sleep("500")
Sleep ( 500 )
SplashTextOn("TCG Card Claim setup.", "Please Left Click the REDEEM button once. ", 400, 100, -1, -1, 1, "Ariel", 15); left click to set redeem2.
While 1
Sleep ( 100 )
If _IsPressed("01") Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$redeem2x = $pos[0]
$redeem2y = $pos[1]
Sleep("500")
Sleep ( 500 )
SplashTextOn("TCG Card Claim setup.", "Please Left Click the Close button once. ", 400, 100, -1, -1, 1, "Ariel", 15); left click to set close button.
While 1
Sleep ( 100 )
If _IsPressed("01") Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$closex = $pos[0]
$closey = $pos[1]
Sleep("500")
Sleep ( 500 )
SplashTextOn("TCG Card Claim setup.", "Please Left right arrow once to go back to the pack window. ", 400, 100, -1, -1, 1, "Ariel", 15); left click to set redeem2.
While 1
Sleep ( 100 )
If _IsPressed("01") Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$rightax = $pos[0]
$rightay = $pos[1]
Sleep("500")
SplashTextOn("Set up TCG Card Claim", "OK Got it all, press end to stop the script on the when the last pack is comepleted.", 300, 50, -1, -1, 32, -1, -1, -1)
Sleep(2000)
SplashOff()
Do
sleep ( 1000 )
MouseClick ( "right", $packx, $packy, 1, 3 )
sleep ( 1000 )
MouseClick ( "left", $redeemx, $redeemy, 1, 3 )
Sleep ( 1000 )
MouseClick ( "left", $redeem1x, $redeem1y, 1, 3 )
Sleep ( 1000 )
MouseClick ( "left", $choosex, $choosey, 1, 3 )
Sleep ( 1000 )
MouseClick ( "left", $pack1x, $pack1y, 1, 3 )
Sleep ( 1000 )
MouseClick ( "left", $choose1x, $choose1y, 1, 3 )
Sleep ( 1000 )
MouseClick ( "left", $redeem2x, $redeem2y, 1, 3 )
Sleep ( 2000 )
MouseClick ( "left", $closex, $closey, 1, 3 )
Sleep ( 2000 )
MouseClick ( "left", $rightax, $rightay, 1, 3 )
SplashTextOn("Set up TCG Card Claim", "PRESS END IF THIS IS THE LAST PACK.", 300, 50, -1, -1, 32, -1, -1, -1)
Sleep(2000)
SplashOff()
Until $Hold = False
Who is online