# One Second Photon Script
# By Kermit and Traitor of The Cabal. - 3/24/02
# Version 3.1, compatible with TWGS v.55 and TWX v1.09b
# Turn off ANSI and Animations and Messages for best
# results.  Works about 85% of the time with 1 sec photons.
# This script assumes that there are mines and
# at least 1 active q-cannon (shielded planet) in the sector.
# If there are no mines, then you can remove the 'n' in line 
# 40.  (send "  l")
# If there are no active q-cannons, then you can remove the
# two leading spaces in line 40. (send "nl")
# If the sector number is less than 1000, then you need to
# add an '*' before the spaces in line 40. (send "*  nl")
# Feel free to distribute and modify, but leave in the
# credits.
# If this script kills you, too bad.  We make no claims
# that it will work for you.  USE AT YOUR OWN RISK!!

getInput $targetNo "Input the sector you wish to invade" 0
getInput $planetNo "Input the planet #" 0

:timer
send "ct"
getWord CURRENTLINE $initTime 1

:checkTime
send "t"
getWord CURRENTLINE $currentTime 1
waitfor "Computer"
if ($initTime <> $currentTime)
	goto :ptorp
else
	goto :checkTime

:ptorp
	send "py"
	send $targetNo
	send "*q"
	send $targetNo
	send "  nl"
	send $planetNo
	send "*"