cuervogold
Total Posts: 1088
Joined: September 25th, 2007, 3:39 pm
|
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.
Usage:
Just be logged into the TCG looking at the window with your packs you want to claim.
Might have to move your window or change the pop up location.
*** FREEBIE ***
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
_________________
Cuervo, the drink. |
|
Who is online