www.ClassicTW.com
https://mail.black-squirrel.com/

Script List / Select by Number
https://mail.black-squirrel.com/viewtopic.php?f=15&t=20738
Page 1 of 1

Author:  Promethius [ Sun Jun 29, 2008 12:10 pm ]
Post subject:  Script List / Select by Number

A simple script to list .ts and .cts scripts and then select by number. Modify to meet your needs.

setVar $version "Script List .1"

getFileList $scriptsTS ".\scripts\*" & ".*ts"



setVar $i 1
setVar $scriptCnt 1
setVar $window ""
Window ZTM 475 375 " " & $version & " by Promethius " ONTOP
while ($i <= $scriptsTS)

setVar $window $window & "[" & $i & "] " & $scriptsTS[$i] & "*"
if ($scriptCnt = 20) or ($i= $scriptsTS)
setWindowContents ZTM $window & "*Press ~ to Continue or = to select*"
setTextOutTrigger continue :continue "~"
setTextOutTrigger select :select "="
pause
:select
echo ANSI_13 "*Enter number of script to run"
getConsoleInput $scriptNumber
load $scriptsTS[$scriptNumber]
halt
:continue
killtrigger select
setVar $window ""
setVar $scriptCnt 0
end
add $scriptCnt 1
add $i 1

end

Page 1 of 1 All times are UTC - 5 hours
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/