TCG Card Claim script. Auto - freebie!! : Star Wars Galaxies Discussions

#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