├── README.md
├── BattleScript 1.0
    ├── Sounds
    │   ├── Shoot.wav
    │   ├── Splash.wav
    │   ├── Explosion.wav
    │   └── Explosion2.wav
    ├── LineCount.bat
    ├── Commands.txt
    └── BattleScript.bat
├── Launch Old Games
    ├── #Win7Start#
    │   └── QRes.exe
    └── #Win7Start#.bat
├── Startup
    ├── InvisibleHelper.bat
    ├── startup.txt
    ├── Battle.Net Launcher Info.txt
    ├── Minimize.vbs
    └── Startup.bat
├── Random Numbers (Animated).bat
├── Timeout User.bat
├── Win10 Tool.bat
├── SymLink Creator.bat
├── Network Interfaces.bat
└── Network Shares.bat


/README.md:
--------------------------------------------------------------------------------
1 | # Batch-Scripts
2 | A collection of batch scripts I've written over the years.
3 | 


--------------------------------------------------------------------------------
/BattleScript 1.0/Sounds/Shoot.wav:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/corpnewt/Batch-Scripts/HEAD/BattleScript 1.0/Sounds/Shoot.wav


--------------------------------------------------------------------------------
/BattleScript 1.0/Sounds/Splash.wav:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/corpnewt/Batch-Scripts/HEAD/BattleScript 1.0/Sounds/Splash.wav


--------------------------------------------------------------------------------
/BattleScript 1.0/Sounds/Explosion.wav:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/corpnewt/Batch-Scripts/HEAD/BattleScript 1.0/Sounds/Explosion.wav


--------------------------------------------------------------------------------
/Launch Old Games/#Win7Start#/QRes.exe:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/corpnewt/Batch-Scripts/HEAD/Launch Old Games/#Win7Start#/QRes.exe


--------------------------------------------------------------------------------
/BattleScript 1.0/Sounds/Explosion2.wav:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/corpnewt/Batch-Scripts/HEAD/BattleScript 1.0/Sounds/Explosion2.wav


--------------------------------------------------------------------------------
/BattleScript 1.0/LineCount.bat:
--------------------------------------------------------------------------------
 1 | @echo off
 2 | setlocal enabledelayedexpansion
 3 | 
 4 | :mainMenu
 5 | set /a count=0
 6 | cls
 7 | for /F "delims=" %%A in (BattleScript.bat) do (
 8 | 	set /a count+=1
 9 | )
10 | echo !count! Non-Empty Lines.
11 | pause
12 | 


--------------------------------------------------------------------------------
/Startup/InvisibleHelper.bat:
--------------------------------------------------------------------------------
 1 | @set @junk=1 /*
 2 | @echo off
 3 | 
 4 | REM This script just launches a batch file invisibly
 5 | 
 6 | */
 7 | 
 8 | var x = WScript.Arguments;
 9 | var name = x(0);
10 | var objShell = new ActiveXObject("WScript.shell");
11 | objShell.run("\"" + name + "\"",0);


--------------------------------------------------------------------------------
/BattleScript 1.0/Commands.txt:
--------------------------------------------------------------------------------
 1 | When playing this game, at most prompts you should be able to type these commands and get the desired results:
 2 | 
 3 | sounds on/off			turns on/off sounds
 4 | animations on/off		turns on/off animations
 5 | devmode on/off			turns on/off dev mode which generates a text file of cpu player output
 6 | cheats on/off			turns on/off cheats
 7 | nowait on/off			Disables/Enables wait time during CPU turn
 8 | mainmenu			takes you back to the main menu
 9 | showmethemoney			when cheats are on, shows your opponents board
10 | 
11 | In the ship placing/shooting menu:
12 | 
13 | random				randomly places ships/shoots for you


--------------------------------------------------------------------------------
/Startup/startup.txt:
--------------------------------------------------------------------------------
 1 |   ###            ###
 2 |  #  Instructions  #
 3 | ###             ###
 4 | 
 5 | # Options are:
 6 | # path = path to program to launch
 7 | # exec = the executable to check for if only one instance is allowed
 8 | # name = the name to display in the script
 9 | # args = any arguments (accepts double-quotes)
10 | # mult = y/n allow multiple instances?
11 | # mini = y/n use start with /min ?
12 | # dela = how many extra seconds to wait before launching?
13 | # webs = a web address - this is superceded by the path variable though
14 | #
15 | # Each entry is separated by a semicolon (;)
16 | 
17 |   ###            ###
18 |  # Apps to launch #
19 | ###             ###
20 | 
21 | path=C:\Program Files (x86)\Ubisoft\Ubisoft Game Launcher\Uplay.exe;mini=y
22 | 
23 | path=C:\Windows\System32\cscript.exe;name=Uplay Minimizer;args=//nologo "C:\Utilities\Startup\Minimize.vbs" /exe:Uplay.exe /path:"C:\Program Files (x86)\Ubisoft\Ubisoft Game Launcher\Uplay.exe" /launch:false /wait:1500 /menuKey:c;exec=Uplay.exe;mini=n;mult=y;dela=5
24 | 
25 | path=C:\Program Files (x86)\Origin\Origin.exe;args=/StartClientMinimized;mini=y
26 | 
27 | path=D:\Program Files (x86)\Battle.net\Battle.net Launcher.exe;mini=y;args=--autostarted;exec=Battle.net.exe
28 | 
29 |   ###               ###
30 |  # Scripts to launch #
31 | ###                ###
32 | 
33 | 
34 |   ###               ###
35 |  # Finishing Touches #
36 | ###               ###
37 | 


--------------------------------------------------------------------------------
/Startup/Battle.Net Launcher Info.txt:
--------------------------------------------------------------------------------
 1 |   ###                                 ###
 2 |  # Battle.Net Launcher Start Minimized #
 3 | ###                                 ###
 4 | 
 5 | There are 2 very important things we need to do to get the Battle.net Launcher
 6 | to start minimized.  This is primarily for use with the Startup.bat script.
 7 | 
 8 | 1. Locate C:\C:\Users\Chip\AppData\Roaming\Battle.net\f3bcd997.config
 9 | 	Yours might be named different - but there should only be 2 .config files,
10 | 	the settings one (f3bcd997 in my case) and Battle.net.config
11 | 
12 | 2. Open it and look for this line:    "MinimizedOnStartup": "false"
13 | 
14 | 3. If you find that line, change "false" to "true"
15 | 	If you DIDN'T find that line, we need to add it.  The structure of the
16 | 	.config file is pretty easy.  It's almost XML.  You can add it here:
17 | 	
18 | 	"Client":
19 |         {
20 |             "MinimizedOnStartup": "true",
21 | 			"PlayScreen":
22 |             {
23 | 				...
24 | 			},
25 | 			"Windows":
26 |             {
27 |                 ...
28 |             }
29 | 		}
30 | 		
31 | 	Just ensure that you have a comma (",") after each entry except the
32 | 	last one - or the offending var will be deleted.
33 | 	
34 | 4. When you launch "Battle.net Launcher.exe", do it like so:
35 | 
36 | 	"Battle.net Launcher.exe" --autostarted
37 | 
38 | 	This convinces the launcher that it was started at login, which in turn
39 | 	causes it to look for the "MinimizedOnStartup" variable.


--------------------------------------------------------------------------------
/Random Numbers (Animated).bat:
--------------------------------------------------------------------------------
  1 | @set @junk=1 /*
  2 | @echo off
  3 | setlocal enableDelayedExpansion
  4 | 
  5 | set thisScript=%0
  6 | 
  7 | set /a min=1
  8 | set /a max=10
  9 | 
 10 | :mainMenu
 11 | cls
 12 | set menu=
 13 | echo ### Random Number Generator ###
 14 | echo.
 15 | echo Current range is !min!-!max!
 16 | echo.
 17 | echo 1. Pick new min
 18 | echo 2. Pick new max
 19 | echo.
 20 | echo Q. Quit
 21 | echo.
 22 | echo Press ^[enter^] to generate with current settings
 23 | echo.
 24 | set /p menu="What would you like to do?  "
 25 | 
 26 | if !menu!==1 goto pickMin
 27 | if !menu!==2 goto pickMax
 28 | if !menu!==q goto quit
 29 | if !menu!==Q goto quit
 30 | if "!menu!"=="" goto generate
 31 | goto mainMenu
 32 | 
 33 | :pickMin
 34 | cls
 35 | set /a newMin=!min!
 36 | echo ### Pick New Min ###
 37 | echo.
 38 | echo.
 39 | set /p newMin="Please enter the new min value:  "
 40 | if "!newMin!"=="" goto mainMenu
 41 | set /a min=!newMin!
 42 | if !min! GTR !max! set /a max=!min!
 43 | goto mainMenu
 44 | 
 45 | :pickMax
 46 | cls
 47 | set /a newMax=!max!
 48 | echo ### Pick New Max ###
 49 | echo.
 50 | echo.
 51 | set /p newMax="Please enter the new max value:  "
 52 | if "!newMax!"=="" goto mainMenu
 53 | set /a max=!newMax!
 54 | if !max! LSS !min! set /a min=!max!
 55 | goto mainMenu
 56 | 
 57 | :generate
 58 | call :animate
 59 | 
 60 | cls
 61 | 
 62 | set menu=
 63 | echo ### Random number from !min!-!max! ###
 64 | echo.
 65 | echo.
 66 | set /a rand=!RANDOM! * (!max!-(!min!-1)) / 32768 + !min!
 67 | echo Your number is: !rand!
 68 | echo.
 69 | echo.
 70 | echo M. Main Menu
 71 | echo.
 72 | echo Press ^[enter^] to generate another number
 73 | echo.
 74 | set /p menu="What would you like to do?  "
 75 | 
 76 | if !menu!==m goto mainMenu
 77 | if !menu!==M goto mainMenu
 78 | 
 79 | goto generate
 80 | 
 81 | :animate
 82 | set frame="|"
 83 | call :displayAnimation "!min! |                     !max!"
 84 | call :displayAnimation "!min!  /                    !max!"
 85 | call :displayAnimation "!min!   -                   !max!"
 86 | call :displayAnimation "!min!    \                  !max!"
 87 | call :displayAnimation "!min!     |                 !max!"
 88 | call :displayAnimation "!min!      /                !max!"
 89 | call :displayAnimation "!min!       -               !max!"
 90 | call :displayAnimation "!min!        \              !max!"
 91 | call :displayAnimation "!min!         |             !max!"
 92 | call :displayAnimation "!min!          /            !max!"
 93 | call :displayAnimation "!min!           -           !max!"
 94 | call :displayAnimation "!min!            \          !max!"
 95 | call :displayAnimation "!min!             |         !max!"
 96 | call :displayAnimation "!min!              /        !max!"
 97 | call :displayAnimation "!min!               -       !max!"
 98 | call :displayAnimation "!min!                \      !max!"
 99 | call :displayAnimation "!min!                 |     !max!"
100 | call :displayAnimation "!min!                  /    !max!"
101 | call :displayAnimation "!min!                   -   !max!"
102 | call :displayAnimation "!min!                    \  !max!"
103 | call :displayAnimation "!min!                     | !max!"
104 | goto :EOF
105 | 
106 | 
107 | :displayAnimation anim
108 | set "animation=%~1"
109 | cls
110 | if NOT "!animation!"=="" (
111 | 	echo ##########################
112 | 	echo ###     Generating     ###
113 | 	echo ##########################
114 | 	echo.
115 | 	echo !animation!
116 | 	cscript //nologo //E:jscript !thisScript! %* "25"
117 | 	REM pause
118 | )
119 | goto :EOF
120 | 	
121 | :quit
122 | exit /b
123 | 
124 | :: Java */
125 | var x = WScript.Arguments;
126 | var sleepTime = x(1);
127 | //WScript.echo(sleepTime)
128 | WScript.Sleep( sleepTime );


--------------------------------------------------------------------------------
/Startup/Minimize.vbs:
--------------------------------------------------------------------------------
  1 | 'Let's get our command line arguments
  2 | 'Available options are /exe, /path, /wait, /launch, /menuKey
  3 | 
  4 | 'EXAMPLE:
  5 | 
  6 | 'cscript.exe Minimize.vbs /exe:Uplay.exe 
  7 | '/path:"C:\Program Files (x86)\Ubisoft\Ubisoft Game Launcher\Uplay.exe"
  8 | '/wait:1000 /launch:true /menuKey:c
  9 | 
 10 | 'This would all be run on one line - and would launch Uplay.exe, wait
 11 | 'for /wait milliseconds (1000) - then minimize it.  The launch option
 12 | 'means we will launch from the path - it HAS to be "true" if we want it
 13 | 'to work - everything else will be false
 14 | 
 15 | set objArgs = WScript.Arguments.Named
 16 | 
 17 | exe = ""
 18 | path = ""
 19 | wait = 1000
 20 | launch = "false"
 21 | menuKey = "n"
 22 | 
 23 | If NOT(objArgs.Exists("exe")) Then
 24 | 	WScript.Quit 1
 25 | Else
 26 | 	exe = objArgs.Item("exe")
 27 | End If
 28 | 
 29 | if objArgs.Exists("launch") Then
 30 | 	if StrComp(objArgs.Item("launch"), "true", vbTextCompare) = 0 Then
 31 | 		launch = "true"
 32 | 		WScript.Echo(exe & " launch? - " & launch)
 33 | 	else
 34 | 		launch = "false"
 35 | 		WScript.Echo(exe & " launch? - " & launch)
 36 | 	end if
 37 | end if
 38 | 
 39 | If objArgs.Exists("path") Then
 40 | 	path = objArgs.Item("path")
 41 | Else
 42 | 	launch = "false"
 43 | End If
 44 | 
 45 | If objArgs.Exists("menuKey") Then
 46 | 	menuKey = objArgs.Item("menuKey")
 47 | End If
 48 | 
 49 | if objArgs.Exists("wait") Then
 50 | 	wait = objArgs.Item("wait")
 51 | end if
 52 | 
 53 | set oShell = CreateObject("WScript.Shell")
 54 | 
 55 | 'Now we see if we should launch
 56 | if StrComp(launch, "true", vbTextCompare) = 0 then
 57 | 	set appLaunch = oShell.Exec(path)
 58 | end if
 59 | 
 60 | dim pidAr
 61 | pidAr = getPIDForName(exe)
 62 | 
 63 | on error resume next
 64 | 	WScript.Echo("There are " & UBound(pidAr)+1 & " instances of " & exe & ".")
 65 | if err.number<>0 then
 66 | 	WScript.Echo("An error!!")
 67 |     'do x,y,z instead
 68 |     WScript.Quit 2
 69 | end if
 70 | on error goto 0
 71 | 
 72 | 
 73 | 'WScript.Echo(UBound(pidAr))
 74 | 
 75 | 'WScript.Echo("There are " & UBound(pidAr) & " instances of " & exe & ".")
 76 | 
 77 | for i = 0 to UBound(pidAr)
 78 | 
 79 | 	oShell.AppActivate pidAr(i)
 80 | 	WScript.Sleep wait
 81 | 	'WScript.Echo("% (" & menuKey & ")")
 82 | 	'oShell.SendKeys "% (" & menuKey & ")" ' minimize (Alt+SpaceBar,n)
 83 | 	'Open menu
 84 | 	oShell.SendKeys "% "
 85 | 	'Type our menuKey
 86 | 	WScript.Sleep wait
 87 | 	oShell.SendKeys menuKey ' minimize (Alt+SpaceBar,n)
 88 | 
 89 | next
 90 | 
 91 | 
 92 | Function getPIDForName(processName)
 93 | 	'Get process ids for the named application
 94 | 	'returns an array
 95 | 	Dim computer 
 96 | 	computer = "."
 97 | 	Dim process  
 98 | 	process = exe
 99 | 	Dim pidArray()
100 | 	Dim arrayIndex
101 | 	arrayIndex = 0
102 | 	
103 | 	Set service = GetObject("winmgmts:\\" & computer & "\root\cimv2")
104 | 	Set results = service.ExecQuery(" Select * from Win32_Process where Name ='" & process & "'")
105 | 	for each obj in results
106 |       'Wscript.echo obj.Name
107 |       Wscript.echo obj.ProcessID
108 | 	  ReDim Preserve pidArray(arrayIndex)
109 | 	  pidArray(arrayIndex) = obj.ProcessID
110 | 	  arrayIndex = arrayIndex + 1
111 | 	next
112 | 	getPIDForName = pidArray
113 | End Function	
114 | 
115 | 'Firefox = """c:\path to\firefox.exe"""
116 | 'Set oShell = CreateObject("WScript.Shell")
117 | 'Set oFFox  = oShell.Exec(Firefox)
118 | 
119 | 'WScript.Sleep 1000
120 | 'oShell.AppActivate oFFox.ProcessID
121 | 
122 | 'WScript.Sleep 1000
123 | 'oShell.SendKeys "% (n)" ' minimize (Alt+SpaceBar,n)
124 | 
125 | 'WScript.Sleep 10 * 1000 ' wait 10 seconds
126 | 'next AppActivate call need Full and Exact title
127 | 'oShell.AppActivate "Mozilla Firefox Start Page - Mozilla Firefox"
128 | 
129 | 'WScript.Sleep 1000
130 | 'oShell.SendKeys "% (r)"  ' restore (Alt+SpaceBar,r)
131 | 'oShell.SendKeys "%{F4}"  ' close (Alt+F4)


--------------------------------------------------------------------------------
/Timeout User.bat:
--------------------------------------------------------------------------------
  1 | @echo off
  2 | setlocal enabledelayedexpansion
  3 | 
  4 | set name=Chip
  5 | 
  6 | :mainMenu
  7 | 
  8 | cls
  9 | 
 10 | REM This script uses a function to check for user input or set
 11 | REM a default based on timeout.
 12 | 
 13 | echo "%TIME%"
 14 | echo "%DATE%"
 15 | 
 16 | Echo ### Pause Break Check ###
 17 | echo.
 18 | echo Press enter to input a name, or
 19 | echo wait for the timer to run down to
 20 | echo have the name default to %name%.
 21 | 
 22 | set /a hidden=0
 23 | 
 24 | call :userTimeout 10 !hidden! didBreak
 25 | 
 26 | if !didBreak! GTR 0 (
 27 | 	REM User interrupted.
 28 | 	goto inputName
 29 | ) else (
 30 | 	REM Timeout succeeded.
 31 | 	goto sayHello
 32 | )
 33 | 
 34 | :inputName
 35 | set name=
 36 | cls
 37 | echo ### Pause Break Check ###
 38 | echo.
 39 | echo You chose to enter your own name.
 40 | echo.
 41 | set /p "name=Please type a new name:  "
 42 | if "%name%"=="" goto inputName
 43 | goto sayHello
 44 | 
 45 | :sayHello
 46 | cls
 47 | echo ### Pause Break Check ###
 48 | echo.
 49 | echo Hello, %name%.  It's nice to meet you.
 50 | echo.
 51 | echo Press [enter] to return to the main menu...
 52 | pause > nul
 53 | goto mainMenu
 54 | 
 55 | REM ############################################################
 56 | REM ### For use in other scripts copy the text starting here ###
 57 | REM ############################################################
 58 | 
 59 | :userTimeout
 60 | REM Let's wait, and see if we waited the full
 61 | REM amount, or if the user interrupted.
 62 | set waitTime=%~1
 63 | call :getTime %TIME% firstTime
 64 | call :getJulianDate "%DATE%" firstDate
 65 | if %~2 GTR 0 (
 66 | 	timeout !waitTime! > nul
 67 | ) else (
 68 | 	timeout !waitTime!
 69 | )
 70 | call :getTime %TIME% secondTime
 71 | call :getJulianDate "%DATE%" secondDate
 72 | REM Find out if the days are different and add
 73 | REM seconds accordingly.
 74 | set /a diff=(!secondTime!-!firstTime!)+(!secondDate!-!firstDate!)*86400
 75 | if !diff! LSS !waitTime! (
 76 | 	set %~3=1
 77 | ) else (
 78 | 	set %~3=0
 79 | )
 80 | goto :EOF
 81 | 
 82 | :getTime <TIME> <TIME-AS-SECONDS-RETURNED>
 83 | set "var=%~1"
 84 | REM pad with leading 0 for hour to drop the space
 85 | set var=!var: =0!
 86 | REM Initialize variables.
 87 | set hour=
 88 | set min=
 89 | set sec=
 90 | REM Break apart our time into components.
 91 | REM Also drops the .XX on the seconds.
 92 | For /f "tokens=1-3 delims=/:." %%a in ("%~1") do (
 93 | 	set hour=%%a
 94 | 	set min=%%b
 95 | 	set sec=%%c
 96 | )
 97 | REM Get safe numbers so batch doesn't think they
 98 | REM are octals or whatever with the leading zeros
 99 | REM then get the number of seconds for each part
100 | REM and add them together.
101 | REM
102 | REM 86400 seconds in a day.
103 | call :getSafeNumber !hour! hour
104 | set /a hour=%hour%*3600
105 | call :getSafeNumber !min! min
106 | set /a min=%min%*60
107 | call :getSafeNumber !sec! sec
108 | set /a sec=%sec%
109 | set /a total=!hour!+!min!+!sec!
110 | set %~2=!total!
111 | goto :EOF
112 | 
113 | :getSafeNumber <INPUT> <SAFE-NUMBER>
114 | REM If number has a leading zero, drop it.
115 | set "getSafeNum=%~1"
116 | if "%getSafeNum:~0,1%" == "0" set getSafeNum=%getSafeNum:~1,1%
117 | set %~2=%getSafeNum%
118 | goto :EOF
119 | 
120 | :getJulianDate <GDATE> <JDate>
121 | REM Conversion code pulled from: http://www.robvanderwoude.com/datetimentmath.php
122 | REM Convert the standard %DATE% into the Julian date.
123 | REM First we break our date into it's components.
124 | set "theDate=%~1"
125 | set month=
126 | set day=
127 | set year=
128 | if "!theDate:~2,1!"=="/" (
129 | 	REM Our date is formatted like: 01/01/2000
130 | 	REM Let's pad a word in there to pretend we have
131 | 	REM a Mon, Tue, Wed, Thu, Fri, Sat, or Sun
132 | 	set "theDate=Mon !theDate!"
133 | )
134 | For /f "tokens=2-4 delims=/ " %%a in ("!theDate!") do (
135 | 	set month=%%a
136 | 	set day=%%b
137 | 	set year=%%c
138 | )
139 | call :getSafeNumber !month! month
140 | call :getSafeNumber !day! day
141 | call :getSafeNumber !year! year
142 | set /a month1=(!month!-14)/12
143 | set /a year1=!year!+4800
144 | set /a JDate=1461*(!year1!+!month1!)/4+367*(!month!-2-12*!month1!)/12-(3*((!year1!+!month1!+100)/100))/4+!day!-32075
145 | set /a %~2=!JDate!
146 | goto :EOF
147 | 
148 | REM ############################################################
149 | REM ###                       To Here                        ###
150 | REM ############################################################
151 | 
152 | REM This next part is optional for converting from Julian to Gregorian.
153 | REM Copy it as well if you need readable output from Julian dates.
154 | :getGregorianDate <JDate> <GDATE>
155 | REM Conversion code pulled from: http://www.robvanderwoude.com/datetimentmath.php
156 | REM Converts back from Julian date to Gregorian.
157 | SET /A P      = %1 + 68569
158 | SET /A Q      = 4 * %P% / 146097
159 | SET /A R      = %P% - ( 146097 * %Q% +3 ) / 4
160 | SET /A S      = 4000 * ( %R% + 1 ) / 1461001
161 | SET /A T      = %R% - 1461 * %S% / 4 + 31
162 | SET /A U      = 80 * %T% / 2447
163 | SET /A V      = %U% / 11
164 | SET /A GYear  = 100 * ( %Q% - 49 ) + %S% + %V%
165 | SET /A GMonth = %U% + 2 - 12 * %V%
166 | SET /A GDay   = %T% - 2447 * %U% / 80
167 | FOR %%A IN (P Q R S T U V) DO SET %%A=
168 | IF 1%GMonth% LSS 20 SET GMonth=0%GMonth%
169 | IF 1%GDay%   LSS 20 SET GDay=0%GDay%
170 | SET "%~2=%GMonth%/%GDay%/%GYear%"
171 | goto :EOF


--------------------------------------------------------------------------------
/Launch Old Games/#Win7Start#.bat:
--------------------------------------------------------------------------------
  1 | @echo off
  2 | 
  3 | REM This variable should contain the name of the executable you are trying
  4 | REM to start.  So if this is Outlaws, it will be OLWIN.EXE
  5 | 
  6 | set startEXE="Warcraft II BNE.exe"
  7 | set autoExit=true
  8 | 
  9 | REM Let's populate our variable for our default resolution
 10 | set gameRes[1]=1024
 11 | set gameRes[2]=768
 12 | set gameRes[3]=32
 13 | set gameRes[4]=60
 14 | 
 15 | setlocal enableDelayedExpansion
 16 | 
 17 | REM We'll start by getting our original resolution and then delimiting
 18 | REM it until we have the components separated.
 19 | 
 20 | set currentRes=
 21 | REM Let's set a default error message (it gives more flexibility for later)
 22 | set unsupportedMessage="WARNING - Your monitor doesn't appear to support 1024x768x32@60Hz"
 23 | 
 24 | REM Now we grab our current resolution and store it into the array "currentRes"
 25 | For /f "skip=2 tokens=1,2,3,4,5* delims=<tab><space>x,@ " %%a In ('#Win7Start#\QRes.exe /s /v') Do (
 26 |   set currentRes[1]=%%a
 27 |   set currentRes[2]=%%b
 28 |   set currentRes[3]=%%c
 29 |   set currentRes[4]=%%e
 30 | )
 31 | 
 32 | :mainMenu
 33 | set menu=y
 34 | cls
 35 | call :color 0c "WARNING - This script will quit Explorer prior to starting:"
 36 | echo.
 37 | call :color 0c "!startEXE:"=!"
 38 | echo.
 39 | echo Please finish any file copying or other Explorer related tasks prior to
 40 | echo running this script.
 41 | echo.
 42 | echo.
 43 | call :color 08 "Current Resolution: "
 44 | call :color 07 "!currentRes[1]! "
 45 | call :color 08 "x "
 46 | call :color 07 "!currentRes[2]! "
 47 | call :color 08 "x "
 48 | call :color 07 "!currentRes[3]! "
 49 | call :color 08 "@ "
 50 | call :color 07 "!currentRes[4]! "
 51 | call :color 08 "Hz"
 52 | echo.
 53 | call :color 08 "Default Resolution: "
 54 | call :color 07 "!gameRes[1]! "
 55 | call :Color 08 "x "
 56 | call :color 07 "!gameRes[2]! "
 57 | call :color 08 "x "
 58 | call :color 07 "!gameRes[3]! "
 59 | call :color 08 "@ "
 60 | call :color 07 "!gameRes[4]! "
 61 | call :color 08 "Hz"
 62 | echo.
 63 | echo.
 64 | echo.
 65 | call :color 08 "Press C to pick a custom resolution."
 66 | echo.
 67 | echo.
 68 | set /p menu=Would you like to proceed? (y/n/c - default is y):  !=!
 69 | 
 70 | if /i !menu!==n goto exit
 71 | if /i !menu!==y goto checkRes
 72 | if /i !menu!==c (
 73 | 	set unsupportedMessage="Please select your custom resolution..."
 74 | 	goto unsupported
 75 | )
 76 | 
 77 | REM If we get to this point, something is wrong so swing back up to the main menu
 78 | goto mainMenu
 79 | 
 80 | 
 81 | :checkRes
 82 | REM Let's first check to see if we have a monitor that can support the standard
 83 | REM 1024x768x32@60 resolution and throw an error if we can't.
 84 | 
 85 | set /a foundRes=0
 86 | 
 87 | for /f "delims=" %%i in ('#Win7Start#\QRes.exe /L') do (
 88 | 	REM echo %%i
 89 | 	if "%%i"=="1024x768, 32 bits @ 60 Hz." (
 90 | 		set /a foundRes=1
 91 | 	)
 92 | )
 93 | 
 94 | if !foundRes!==0 (
 95 | 	goto unsupported
 96 | )
 97 | 
 98 | goto startGame
 99 | 
100 | 
101 | :unsupported
102 | set "newRes=!gameRes[1]! !gameRes[2]! !gameRes[3]! !gameRes[4]!"
103 | cls
104 | call :color 0c !unsupportedMessage!
105 | echo.
106 | echo This will be the resolution you will run the game at.
107 | call :color 08 "Default is: "
108 | call :color 07 "!gameRes[1]! "
109 | call :Color 08 "x "
110 | call :color 07 "!gameRes[2]! "
111 | call :color 08 "x "
112 | call :color 07 "!gameRes[3]! "
113 | call :color 08 "@ "
114 | call :color 07 "!gameRes[4]! "
115 | call :color 08 "Hz"
116 | echo.
117 | echo.
118 | echo.
119 | call :color 08 "Please type the desired resolution in the format:"
120 | echo.
121 | call :color 07 "Width "
122 | call :color 07 "Height "
123 | call :color 07 "Bits "
124 | call :color 07 "Hertz"
125 | echo.
126 | echo.
127 | call :color 08 "For example:  "
128 | echo.
129 | call :color 07 "1024 "
130 | call :color 07 "768 "
131 | call :color 07 "32 "
132 | call :color 07 "60"
133 | echo.
134 | echo.
135 | echo.
136 | call :color 08 "Most common older games can also use "
137 | call :color 07 "640 "
138 | call :color 08 "x "
139 | call :color 07 "480"
140 | call :color 08 " or "
141 | call :color 07 "800 "
142 | call :color 08 "x "
143 | call :color 07 "600 "
144 | call :color 08 " at "
145 | call :color 07 "60 "
146 | call :color 08 "Hz"
147 | echo.
148 | echo.
149 | echo.
150 | set /p newRes=Or press M to return to the main menu:  !=!
151 | 
152 | if /i !newRes!==m goto mainMenu
153 | 
154 | set /a countRes=0
155 | for /f "tokens=1,2,3,4,5* delims=<space>,@x " %%i in ('echo !newRes!') do (
156 | 	if "%%i"=="" (
157 | 		set unsupportedMessage="WARNING - That resolution is not formatted correctly."
158 | 		goto unsupported
159 | 	) else (
160 | 		set gameRes[1]=%%i
161 | 	)
162 | 	if "%%j"=="" (
163 | 		set unsupportedMessage="WARNING - That resolution is not formatted correctly."
164 | 		goto unsupported
165 | 	) else (
166 | 		set gameRes[2]=%%j
167 | 	)
168 | 	if "%%k"=="" (
169 | 		set gameRes[3]=32
170 | 	) else (
171 | 		set gameRes[3]=%%k
172 | 	)
173 | 	if "%%l"=="" (
174 | 		set gameRes[4]=60
175 | 	) else (
176 | 		set gameRes[4]=%%l
177 | 	)
178 | 
179 | )
180 | 
181 | goto startGame
182 | 
183 | 
184 | :startGame
185 | 
186 | cls
187 | REM echo Your resolution will be changed to: !gameRes[1]!x!gameRes[2]!x!gameRes[3]!@!gameRes[4]!Hz
188 | REM echo.
189 | REM echo.
190 | REM echo.
191 | 
192 | REM Let's change our resolution, kill explorer, and then start our app
193 | 
194 | .\#Win7Start#\Qres.exe /X !gameRes[1]! /Y !gameRes[2]! /C !gameRes[3]! /R !gameRes[4]!
195 | taskkill /f /im explorer.exe
196 | timeout 4
197 | if /i "!autoExit!"=="true" (
198 | 	REM Start the exe and wait for it to quit
199 | 	start /WAIT "" "!startEXE:"=!"
200 | ) else (
201 | 	start "" "!startEXE:"=!"
202 | 	cls
203 | 	REM Now we wait for the use to press enter and we'll restore everything
204 | 	call :color 0c "NOTE! "
205 | 	call :color 08 "- When you are done playing the game, press return to reset"
206 | 	echo.
207 | 	call :color 08 "your screen resolution and restart explorer."
208 | 	echo.
209 | 	echo.
210 | 	echo.
211 | 	echo.
212 | 	pause
213 | )
214 | 
215 | 
216 | REM Let's reset our resolution and restart Explorer
217 | .\#Win7Start#\Qres.exe /X !currentRes[1]! /Y !currentRes[2]! /C !currentRes[3]! /R !currentRes[4]!
218 | start "" explorer.exe
219 | 
220 | REM We're all done here, let's clean up and exit
221 | goto exit
222 | 
223 | 
224 | :exit
225 | call :cleanupColor
226 | exit /b
227 | 
228 | :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
229 | 
230 | :color Color  Str  [/n]
231 | setlocal
232 | set "str=%~2"
233 | call :colorVar %1 str %3
234 | exit /b
235 | 
236 | :colorVar  Color  StrVar  [/n]
237 | if not defined DEL call :initColor
238 | if not defined %~2 exit /b
239 | setlocal enableDelayedExpansion
240 | set "str=a%DEL%!%~2:\=a%DEL%\..\%DEL%%DEL%%DEL%!"
241 | set "str=!str:/=a%DEL%/..\%DEL%%DEL%%DEL%!"
242 | set "str=!str:"=\"!"
243 | pushd "%temp%"
244 | findstr /p /A:%1 "." "!str!\..\x" nul
245 | if /i "%~3"=="/n" echo(
246 | exit /b
247 | 
248 | :initColor
249 | for /F "tokens=1,2 delims=#" %%a in ('"prompt #$H#$E# & echo on & for %%b in (1) do rem"') do set "DEL=%%a"
250 | <nul >"%temp%\x" set /p "=%DEL%%DEL%%DEL%%DEL%%DEL%%DEL%.%DEL%"
251 | exit /b
252 | 
253 | :cleanupColor
254 | del "%temp%\x"
255 | exit /b


--------------------------------------------------------------------------------
/Win10 Tool.bat:
--------------------------------------------------------------------------------
  1 | :::::::::::::::::::::::::::::::::::::::::
  2 | :: Automatically check & get admin rights
  3 | :::::::::::::::::::::::::::::::::::::::::
  4 | @echo off
  5 | CLS
  6 | 
  7 | :checkPrivileges
  8 | NET FILE 1>NUL 2>NUL
  9 | if '%errorlevel%' == '0' ( goto gotPrivileges ) else ( goto getPrivileges )
 10 | 
 11 | :getPrivileges
 12 | if '%1'=='ELEV' (shift & goto gotPrivileges)
 13 | 
 14 | setlocal DisableDelayedExpansion
 15 | set "batchPath=%~0"
 16 | setlocal EnableDelayedExpansion
 17 | ECHO Set UAC = CreateObject^("Shell.Application"^) > "%temp%\OEgetPrivileges.vbs"
 18 | ECHO UAC.ShellExecute "!batchPath!", "ELEV", "", "runas", 1 >> "%temp%\OEgetPrivileges.vbs"
 19 | "%temp%\OEgetPrivileges.vbs"
 20 | exit /B
 21 | 
 22 | :gotPrivileges
 23 | ::::::::::::::::::::::::::::
 24 | ::START
 25 | ::::::::::::::::::::::::::::
 26 | 
 27 | @echo off
 28 | 
 29 | setlocal enableDelayedExpansion
 30 | 
 31 | REM I'm annoyed with having to redo a bunch of .reg shit every time I re-install
 32 | REM this should consolidate most of that into one process
 33 | 
 34 | REM Initialize variables:
 35 | 
 36 | set "useUniversal="
 37 | set "useDarkTheme="
 38 | set "removeLoginBackground="
 39 | set /a windowsTen=0
 40 | 
 41 | REM We need to get the OS version too, and only allow certain things on their
 42 | REM respective versions so we don't clutter shit up.
 43 | REM
 44 | call :getWindowsMajorVersion vers
 45 | call :getWindowsVersion winVers
 46 | 
 47 | if "!vers!"=="" (
 48 | 	cls
 49 | 	echo ###     ###
 50 | 	echo # WARNING #
 51 | 	echo ###     ###
 52 | 	echo.
 53 | 	echo Invalid Windows version -
 54 | 	echo press any key to quit.
 55 | 	echo.
 56 | 	pause > nul
 57 | 	exit /b
 58 | )
 59 | 
 60 | if !vers! GEQ 10 set /a windowsTen=1
 61 | 
 62 | :main
 63 | set "menu="
 64 | cls
 65 | echo    ###                      ###
 66 | echo   # Win10 Tool - by CorpNewt #
 67 | echo  ###                      ###
 68 | echo [Windows !winVers!]
 69 | echo.
 70 | 
 71 | REM Here's where we check our reg status - and update
 72 | REM our menus accordingly.
 73 | 
 74 | REM First - let's gather our reg values
 75 | call :readReg "useUniversal" "HKLM\SYSTEM\CurrentControlSet\Control\TimeZoneInformation" "RealTimeIsUniversal"
 76 | call :readReg "useDarkTheme" "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize" "AppsUseLightTheme"
 77 | call :readReg "removeLoginBackground" "HKLM\SOFTWARE\Policies\Microsoft\Windows\System" "DisableLogonBackgroundImage"
 78 | call :readReg "forceXDDM" "HKLM\SOFTWARE\Policies\Microsoft\Windows NT\Terminal Services" "fEnableWddmDriver"
 79 | 
 80 | if /i "!useUniversal:~-1,1!"=="1" (
 81 | 	REM We are using Universal Time
 82 | 	echo 1. [DISABLE] Universal Time
 83 | ) else (
 84 | 	echo 1. [ENABLE]  Universal Time
 85 | )
 86 | 
 87 | REM Now we see if we're on Windows 10 or not
 88 | if !vers! LSS 10 (
 89 | 	echo #. [N/A]     Dark Theme           [Windows 10 ONLY]
 90 | 	echo #. [N/A]     Login BG Solid Color [Windows 10 ONLY]
 91 | 	echo #. [N/A]     Force XDDM for RDP   [Windows 10 ONLY]
 92 | ) else (
 93 | 	REM Let's check for Dark Theme
 94 | 	if /i "!useDarkTheme:~-1,1!"=="0" (
 95 | 		REM We are using Dark Theme
 96 | 		echo 2. [DISABLE] Dark Theme
 97 | 	) else (
 98 | 		echo 2. [ENABLE]  Dark Theme
 99 | 	)
100 | 	
101 | 	REM Let's check for Login Background
102 | 	if /i "!removeLoginBackground:~-1,1!"=="1" (
103 | 		REM We are using Login Background
104 | 		echo 3. [DISABLE] Login BG Solid Color
105 | 	) else (
106 | 		echo 3. [ENABLE]  Login BG Solid Color
107 | 	)
108 | 
109 | 	REM Let's see if we're forcing XDDM already
110 | 	if /i "!forceXDDM:~-1,1!"=="0" (
111 | 		REM We are using Force XDDM for RDP
112 | 		echo 4. [DISABLE] Force XDDM for RDP
113 | 	) else (
114 | 		echo 4. [ENABLE]  Force XDDM for RDP
115 | 	)
116 | )
117 | echo.
118 | echo Q. Quit
119 | echo.
120 | set /p "menu=Please select an option to [DISABLE]/[ENABLE]:  "
121 | 
122 | if "!menu!"=="" goto main
123 | if /i "!menu!"=="q" exit /b
124 | 
125 | REM Options independent of Windows version
126 | if "!menu!"=="1" goto switchUniversalTime
127 | 
128 | REM Options DEPENDENT on Windows version 10+
129 | if !vers! GEQ 10 (
130 | 	if "!menu!"=="2" goto switchDarkTheme
131 | 	if "!menu!"=="3" goto switchLoginBackground
132 | 	if "!menu!"=="4" goto switchXDDM
133 | )
134 | goto main
135 | 
136 | :switchUniversalTime
137 | cls
138 | echo    ###                      ###
139 | echo   # Win10 Tool - by CorpNewt #
140 | echo  ###                      ###
141 | echo [Windows !winVers!]
142 | echo.
143 | if /i "!useUniversal:~-1,1!"=="1" (
144 | 	echo [DISABLING] Universal Time
145 | 	set "useUniversal=0"
146 | ) else (
147 | 	echo [ENABLING]  Universal Time
148 | 	set "useUniversal=1"
149 | )
150 | call :writeReg "HKLM\SYSTEM\CurrentControlSet\Control\TimeZoneInformation" "RealTimeIsUniversal" "REG_DWORD" "!useUniversal!"
151 | goto main
152 | 
153 | :switchDarkTheme
154 | cls
155 | echo    ###                      ###
156 | echo   # Win10 Tool - by CorpNewt #
157 | echo  ###                      ###
158 | echo [Windows !winVers!]
159 | echo.
160 | if /i "!useDarkTheme:~-1,1!"=="0" (
161 | 	echo [DISABLING]  Dark Theme
162 | 	set "useDarkTheme=1"
163 | ) else (
164 | 	echo [ENABLING]  Dark Theme
165 | 	set "useDarkTheme=0"
166 | )
167 | call :writeReg "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize" "AppsUseLightTheme" "REG_DWORD" "!useDarkTheme!"
168 | goto main
169 | 
170 | :switchLoginBackground
171 | cls
172 | echo    ###                      ###
173 | echo   # Win10 Tool - by CorpNewt #
174 | echo  ###                      ###
175 | echo [Windows !winVers!]
176 | echo.
177 | if /i "!removeLoginBackground:~-1,1!"=="1" (
178 | 	echo [DISABLING] Login BG Solid Color
179 | 	set "removeLoginBackground=0"
180 | ) else (
181 | 	echo [ENABLING]  Login BG Solid Color
182 | 	set "removeLoginBackground=1"
183 | )
184 | call :writeReg "HKLM\SOFTWARE\Policies\Microsoft\Windows\System" "DisableLogonBackgroundImage" "REG_DWORD" "!removeLoginBackground!"
185 | goto main
186 | 
187 | :switchXDDM
188 | cls
189 | echo    ###                      ###
190 | echo   # Win10 Tool - by CorpNewt #
191 | echo  ###                      ###
192 | echo [Windows !winVers!]
193 | echo.
194 | if /i "!forceXDDM:~-1,1!"=="0" (
195 | 	echo [DISABLING] Force XDDM for RDP
196 | 	call :deleteReg "HKLM\SOFTWARE\Policies\Microsoft\Windows NT\Terminal Services" "fEnableWddmDriver"
197 | ) else (
198 | 	echo [ENABLING]  Force XDDM for RDP
199 | 	call :writeReg "HKLM\SOFTWARE\Policies\Microsoft\Windows NT\Terminal Services" "fEnableWddmDriver" "REG_DWORD" "0"
200 | )
201 | goto main
202 | 
203 | :readReg <return> <location> <variableName>
204 | REM Clear the return variable first
205 | set "%~1="
206 | if "%~3" == "" (
207 | 	REM No variable name provided - query the location only
208 | 	set "query="%~2^""
209 | ) else (
210 | 	set "query="%~2^" /v ^"%~3^""
211 | )
212 | for /f "tokens=3*" %%i in ('reg.exe query !query! 2^> nul') do (
213 | 	if NOT "%%i"=="" (
214 | 		set "%~1=%%i"
215 | 	)
216 | )
217 | goto :EOF
218 | 
219 | :writeReg <location> <variableName> <variableType> <value>
220 | echo.
221 | echo %~1
222 | echo ----^> %~2 = %~4
223 | echo.
224 | REG ADD "%~1" /V %~2 /T %~3 /D %~4 /F
225 | echo.
226 | echo Done.
227 | echo.
228 | timeout 5 > nul
229 | goto :EOF
230 | 
231 | :deleteReg <location> <variableName>
232 | echo.
233 | if "%~2" == "" (
234 | 	REM No variable name provided - query the location only
235 | 	echo Deleting %~1...
236 | 	reg delete "%~1" /f
237 | ) else (
238 | 	echo From %~1, Deleting %~2...
239 | 	reg delete "%~1" /v "%~2" /f
240 | )
241 | echo.
242 | echo Done.
243 | echo.
244 | timeout 5 > nul
245 | goto :EOF
246 | 
247 | REM ###############################################
248 | REM ###             Helper Methods              ###
249 | REM ###############################################
250 | 
251 | :getWindowsVersion <result>
252 | for /f "tokens=2 delims=[]" %%x in ('ver') do set WINVER=%%x
253 | set %~1=%WINVER:Version =%
254 | goto :EOF
255 | 
256 | :getWindowsMajorVersion <result>
257 | for /f "tokens=2 delims=[]" %%x in ('ver') do set WINVER=%%x
258 | set WINVER=%WINVER:Version =%
259 | for /f "tokens=1,2,3* delims=." %%a in ("!WINVER!") do set %~1=%%a
260 | goto :EOF
261 | 
262 | :getWindowsMinorVersion <result>
263 | for /f "tokens=2 delims=[]" %%x in ('ver') do set WINVER=%%x
264 | set WINVER=%WINVER:Version =%
265 | for /f "tokens=1,2,3* delims=." %%a in ("!WINVER!") do set %~1=%%b
266 | goto :EOF
267 | 
268 | :getWindowsBuildVersion <result>
269 | for /f "tokens=2 delims=[]" %%x in ('ver') do set WINVER=%%x
270 | set WINVER=%WINVER:Version =%
271 | for /f "tokens=1,2,3* delims=." %%a in ("!WINVER!") do set %~1=%%c
272 | goto :EOF
273 | 


--------------------------------------------------------------------------------
/SymLink Creator.bat:
--------------------------------------------------------------------------------
  1 | :::::::::::::::::::::::::::::::::::::::::
  2 | :: Automatically check & get admin rights
  3 | :::::::::::::::::::::::::::::::::::::::::
  4 | @echo off
  5 | CLS
  6 | ECHO.
  7 | ECHO =============================
  8 | ECHO Running Admin shell
  9 | ECHO =============================
 10 | 
 11 | :checkPrivileges
 12 | NET FILE 1>NUL 2>NUL
 13 | if '%errorlevel%' == '0' ( goto gotPrivileges ) else ( goto getPrivileges )
 14 | 
 15 | :getPrivileges
 16 | if '%1'=='ELEV' (shift & goto gotPrivileges)
 17 | ECHO.
 18 | ECHO **************************************
 19 | ECHO Invoking UAC for Privilege Escalation
 20 | ECHO **************************************
 21 | 
 22 | setlocal DisableDelayedExpansion
 23 | set "batchPath=%~0"
 24 | setlocal EnableDelayedExpansion
 25 | ECHO Set UAC = CreateObject^("Shell.Application"^) > "%temp%\OEgetPrivileges.vbs"
 26 | ECHO UAC.ShellExecute "!batchPath!", "ELEV", "", "runas", 1 >> "%temp%\OEgetPrivileges.vbs"
 27 | "%temp%\OEgetPrivileges.vbs"
 28 | exit /B
 29 | 
 30 | :gotPrivileges
 31 | ::::::::::::::::::::::::::::
 32 | ::START
 33 | ::::::::::::::::::::::::::::
 34 | 
 35 | @echo off
 36 | setlocal enableExtensions
 37 | setlocal enableDelayedExpansion
 38 | 
 39 | set "defDest="
 40 | 
 41 | :main
 42 | set menu=1
 43 | cls
 44 | echo ### SymLink Creator ###
 45 | echo.
 46 | echo [Default is: 1]
 47 | if "!defDest!"=="" (
 48 | 	echo [Default Destination Folder: PROMPT]
 49 | ) else (
 50 | 	call :getLastPathComponent "!defDest!" defName
 51 | 	echo [Default Destination Folder: !defName!]
 52 | )
 53 | echo.
 54 | echo 1. Create New Hard Symbolic Link
 55 | echo 2. Create New Soft Symbolic Link ^(Files Only^)
 56 | echo 3. Default Destination Folder
 57 | echo.
 58 | echo Q. Quit
 59 | echo.
 60 | set /p "menu=Please select an option:  "
 61 | 
 62 | if "!menu!"=="" goto main
 63 | if /i "!menu!"=="q" exit /b
 64 | if /i "!menu!"=="1" goto createHardSource
 65 | if /i "!menu!"=="2" goto createSoftSource
 66 | if /i "!menu!"=="3" goto defaultDestination
 67 | goto main
 68 | 
 69 | :defaultDestination
 70 | cls
 71 | echo ### Default Destination Folder ###
 72 | echo.
 73 | if "!defDest!"=="" (
 74 | 	echo [Default Destination Folder: PROMPT]
 75 | ) else (
 76 | 	call :getLastPathComponent "!defDest!" defName
 77 | 	echo [Default Destination Folder: !defName!]
 78 | 	echo [Path: "!defDest!"]
 79 | )
 80 | echo.
 81 | echo Please copy ^& paste/type new default destination folder
 82 | echo or leave blank to PROMPT each time:
 83 | echo.
 84 | set /p "newDef= "
 85 | set newDef=!newDef:"=!
 86 | 
 87 | if "!newDef!"=="" (
 88 | 	set "defDest="
 89 | 	goto main
 90 | )
 91 | call :checkDropped "!newDef!" ret
 92 | if "!ret!"=="0" (
 93 | 	cls
 94 | 	echo ### WARNING ###
 95 | 	echo.
 96 | 	echo "!newDef!"
 97 | 	echo Does not exist...
 98 | 	echo.
 99 | 	timeout 5 > nul
100 | 	goto defaultDestination
101 | ) else if "!ret!"=="1" (
102 | 	cls
103 | 	echo ### WARNING ###
104 | 	echo.
105 | 	echo "!newDef!"
106 | 	echo Is a file, not a folder...
107 | 	timetout 5 > nul
108 | 	goto defaultDestination
109 | )
110 | set "defDest=!newDef!"
111 | goto main
112 | 
113 | :createHardSource
114 | cls
115 | set source=
116 | set type=
117 | echo ### Create Hard SymLink ###
118 | echo.
119 | echo Please copy ^& paste/type your source file/folder:
120 | echo.
121 | set /p "source="
122 | REM Remove quotes from source...
123 | set source=!source:"=!
124 | 
125 | if "!source!"=="" goto createHardSource
126 | set "ret="
127 | call :checkDropped "!source!" ret
128 | if "!ret!"=="0" (
129 | 	cls
130 | 	echo ### WARNING ###
131 | 	echo.
132 | 	echo "!source!"
133 | 	echo Does not exist...
134 | 	echo.
135 | 	timeout 5 > nul
136 | 	goto createHardSource
137 | ) else if "!ret!"=="1" (
138 | 	set "type=/H"
139 | ) else if "!ret!"=="2" (
140 | 	set "type=/J"
141 | ) else (
142 | 	REM Unexpected result... Error and return
143 | 	cls
144 | 	echo ### WARNING ###
145 | 	echo.
146 | 	echo Unexpected error when processing:
147 | 	echo "!source!"
148 | 	echo.
149 | 	timeout 5 > nul
150 | 	goto createHardSource
151 | )
152 | REM If we made it this far, source is good.
153 | goto createHardDest
154 | :createHardDest
155 | cls
156 | set "dest=!defDest!"
157 | if "!dest!"=="" (
158 | 	echo ### Create Hard SymLink ###
159 | 	echo.
160 | 	echo Please copy ^& paste/type your destination file/folder:
161 | 	echo.
162 | 	set /p "dest="
163 | 	REM Removing quotes from dest...
164 | 	set dest=!dest:"=!
165 | 	if "!dest!"=="" goto createHardDest
166 | )
167 | 
168 | set "ret="
169 | call :checkDropped "!dest!" ret
170 | 
171 | echo Checked Dropped.
172 | 
173 | if "!ret!"=="2" (
174 | 	REM We've got a directory, let's append the source
175 | 	REM name to the end of it if it doesn't exist already
176 | 	call :getLastPathComponent "!source!" lastPath
177 | 	if "!dest:-1,1!"=="\" (
178 | 		set "newDest=!dest!!lastPath!
179 | 	) else (
180 | 		set "newDest=!dest!\!lastPath!"
181 | 	)
182 | 	IF NOT EXIST "!newDest!" (
183 | 		REM It doesn't exist, let's make it...
184 | 		set "dest=!newDest!"
185 | 	) else (
186 | 		REM Already exists...
187 | 		cls
188 | 		echo ### WARNING ###
189 | 		echo.
190 | 		echo "!newDest!"
191 | 		echo Already exists.  Please select a new destination...
192 | 		echo.
193 | 		timeout 5 > nul
194 | 		goto createHardDest
195 | 	)
196 | ) else if "!ret!"=="1" (
197 | 	cls
198 | 	echo ### WARNING ###
199 | 	echo.
200 | 	echo "!dest!"
201 | 	echo Already exists...
202 | 	echo.
203 | 	timeout 5 > nul
204 | 	goto createHardDest
205 | )
206 | REM If we made it here, we're good to go... creating link...
207 | cls
208 | echo ### Create Hard SymLink ###
209 | echo.
210 | echo Creating Link...
211 | echo Source:      "!source!"
212 | echo Destination: "!dest!"
213 | echo.
214 | echo MKLINK !type! "!dest!" "!source!"
215 | MKLINK !type! "!dest!" "!source!"
216 | echo.
217 | echo Done.
218 | echo.
219 | timeout 5 > nul
220 | goto main
221 | 
222 | :createSoftSource
223 | cls
224 | set source=
225 | set type=
226 | echo ### Create Soft SymLink ###
227 | echo.
228 | echo Please copy ^& paste/type your source file/folder:
229 | echo.
230 | set /p "source= "
231 | REM Remove quotes from source...
232 | set source=!source:"=!
233 | 
234 | if "!source!"=="" goto createSoftSource
235 | set "ret="
236 | echo About to check...
237 | call :checkDropped "!source!" ret
238 | echo Checked.
239 | if "!ret!"=="0" (
240 | 	cls
241 | 	echo ### WARNING ###
242 | 	echo.
243 | 	echo "!source!"
244 | 	echo Does not exist...
245 | 	echo.
246 | 	timeout 5 > nul
247 | 	goto createSoftSource
248 | ) else if "!ret!"=="2" (
249 | 	cls
250 | 	echo ### WARNING ###
251 | 	echo.
252 | 	echo Soft SymLink only works with FILES, not DIRECTORIES.
253 | 	echo Please select Hard SymLink from the main menu to
254 | 	echo continue...
255 | 	echo.
256 | 	timeout 5 > nul
257 | 	goto main
258 | )
259 | REM If we made it this far, source is good.
260 | goto createHardDest
261 | :createSoftDest
262 | cls
263 | set "dest=!defDest!"
264 | if "!dest!"=="" (
265 | echo ### Create Soft SymLink ###
266 | echo.
267 | echo Please copy ^& paste/type your destination file/folder:
268 | echo.
269 | set /p "dest="
270 | REM Removing quotes from dest...
271 | set dest=!dest:"=!
272 | if "!dest!"=="" goto createSoftDest
273 | )
274 | 
275 | set "ret="
276 | call :checkDropped "!dest!" ret
277 | if "!ret!"=="2" (
278 | 	REM We've got a directory, let's append the source
279 | 	REM name to the end of it if it doesn't exist already
280 | 	call :getLastPathComponent "!source!" lastPath
281 | 	if "!dest:-1,1!"=="\" (
282 | 		set "newDest=!dest!!lastPath!
283 | 	) else (
284 | 		set "newDest=!dest!\!lastPath!"
285 | 	)
286 | 	IF NOT EXIST "!newDest!" (
287 | 		REM It doesn't exist, let's make it...
288 | 		set "dest=!newDest!"
289 | 	) else (
290 | 		REM Already exists...
291 | 		cls
292 | 		echo ### WARNING ###
293 | 		echo.
294 | 		echo "!newDest!"
295 | 		echo Already exists.  Please select a new destination...
296 | 		echo.
297 | 		timeout 5 > nul
298 | 		goto createSoftDest
299 | 	)
300 | ) else if "!ret!"=="1" (
301 | 	cls
302 | 	echo ### WARNING ###
303 | 	echo.
304 | 	echo "!dest!"
305 | 	echo Already exists...
306 | 	echo.
307 | 	timeout 5 > nul
308 | 	goto createSoftDest
309 | )
310 | REM If we made it here, we're good to go... creating link...
311 | cls
312 | echo ### Create Soft SymLink ###
313 | echo.
314 | echo Creating Link...
315 | echo Source:      "!source!"
316 | echo Destination: "!dest!"
317 | echo.
318 | echo MKLINK /D "!dest!" "!source!"
319 | MKLINK /D "!dest!" "!source!"
320 | echo.
321 | echo Done.
322 | echo.
323 | timeout 5 > nul
324 | goto main
325 | 
326 | :getLastPathComponent <file/folder> <return>
327 | set "%~2=%~n1"
328 | goto :EOF
329 | 
330 | :checkDropped <file/folder> <return>
331 | IF NOT EXIST "%~1" (
332 | 	set %~2=0
333 | 	goto :EOF
334 | )
335 | set "ATTR=%~a1"
336 | set "DIRATTR=!ATTR:~0,1!"
337 | if /i "!DIRATTR!"=="d" (
338 | 	set "%~2=2"
339 | ) else (
340 | 	set "%~2=1"
341 | )
342 | goto :EOF


--------------------------------------------------------------------------------
/Startup/Startup.bat:
--------------------------------------------------------------------------------
  1 | @echo off
  2 | setlocal enableDelayedExpansion
  3 | 
  4 | set "thisScript=%0"
  5 | set "thisDir=%~dp0"
  6 | set "settingsFile=startup.txt"
  7 | REM The number of seconds to give the user time to cancel
  8 | set /a userTimeWait=10
  9 | REM The number of seconds to wait between starting each app
 10 | set /a timeWait=3
 11 | 
 12 | REM Placeholder variables will be:
 13 | REM
 14 | REM name[#]
 15 | REM path[#]
 16 | REM batc[#] this is used for launching only - NO LONGER USED
 17 | REM exec[#]
 18 | REM args[#]
 19 | REM webs[#] this is for a web address
 20 | REM mult[#] yes/no - do we allow multiple instances?
 21 | REM mini[#] yes/no - do we start with the /min argument?
 22 | REM dela[#] number of seconds to delay before running
 23 | REM
 24 | REM The settingsFile will be organized like so:
 25 | REM
 26 | REM name=READABLE_NAME;path=PROCESS_PATH;exec=EXE_NAME;args=-WHATEVER -ARGUMENTS
 27 | 
 28 | :mainMenu
 29 | cls
 30 | REM Give the user a chance to cancel
 31 | echo   ###                            ###
 32 | echo  # Startup Launcher - By CorpNewt #
 33 | echo ###                            ###
 34 | echo.
 35 | echo Press [enter] to cancel...
 36 | 
 37 | call :userTimeout !userTimeWait! 0 didBreak
 38 | 
 39 | if !didBreak! GTR 0 goto exit
 40 | goto checkSettings
 41 | 
 42 | :checkSettings
 43 | REM Let's check for our startup.txt file, and search for values
 44 | if NOT EXIST "%thisDir%%settingsFile%" (
 45 | 	REM No settings file, throw an error and exit.
 46 | 	cls
 47 | 	echo   ###     ###
 48 | 	echo  # WARNING #
 49 | 	echo ###     ###
 50 | 	echo.
 51 | 	echo "%settingsFile%" does not exist.
 52 | 	echo.
 53 | 	echo Exiting...
 54 | 	echo.
 55 | 	timeout 5 > nul
 56 | 	goto exit
 57 | )
 58 | 
 59 | REM File exists, let's iterate
 60 | REM We need to keep it organized though - and include some basic
 61 | REM error checking.  Formatting of the text file should be:
 62 | REM
 63 | REM name=READABLE_NAME;path=PROCESS_PATH;exec=EXE_NAME;args=-WHATEVER -ARGUMENTS
 64 | REM
 65 | REM name=READABLE_NAME;webs=http://www.website.com;exec=EXE_NAME
 66 | REM 
 67 | REM In the event that any of the values are missing, then we need to
 68 | REM react to this by subbing in information.  If all we have is a path,
 69 | REM then we can gather the process name and name from that.
 70 | REM
 71 | REM Path is the ONLY necessary item though - UNLESS you are opening a web
 72 | REM url.  Path will supercede Webs though.
 73 | 
 74 | set /a itemCount=0
 75 | pushd "%thisDir%"
 76 | for /f "tokens=1,2,3,4,5,6,7,8* delims=;" %%a in (%settingsFile%) do (
 77 | 	REM Break the string by ";"
 78 | 	set "alpha=%%a"
 79 | 	set "beta=%%b"
 80 | 	set "charlie=%%c"
 81 | 	set "delta=%%d"
 82 | 	set "ech=%%e"
 83 | 	set "foxtrot=%%f"
 84 | 	set "golf=%%g"
 85 | 	set "hotel=%%h"
 86 | 	
 87 | 	REM Check first value
 88 | 	if NOT "!alpha!"=="" (
 89 | 		call :setValueForPrefix alpha "!itemCount!"
 90 | 	)
 91 | 	REM Check second value
 92 | 	if NOT "!beta!"=="" (
 93 | 		call :setValueForPrefix beta "!itemCount!"
 94 | 	)
 95 | 	REM Check third value
 96 | 	if NOT "!charlie!"=="" (
 97 | 		call :setValueForPrefix charlie "!itemCount!"
 98 | 	)
 99 | 	REM Check fourth value
100 | 	if NOT "!delta!"=="" (
101 | 		call :setValueForPrefix delta "!itemCount!"
102 | 	)
103 | 	REM Check fifth value
104 | 	if NOT "!ech!"=="" (
105 | 		call :setValueForPrefix ech "!itemCount!"
106 | 	)
107 | 	REM Check sixth value
108 | 	if NOT "!foxtrot!"=="" (
109 | 		call :setValueForPrefix foxtrot "!itemCount!"
110 | 	)
111 | 	REM Check seventh value
112 | 	if NOT "!golf!"=="" (
113 | 		call :setValueForPrefix golf "!itemCount!"
114 | 	)
115 | 	REM Check eighth value
116 | 	if NOT "!hotel!"=="" (
117 | 		call :setValueForPrefix hotel "!itemCount!"
118 | 	)
119 | 	REM Increment counter
120 | 	set /a itemCount=!itemCount!+1
121 | )
122 | popd
123 | 
124 | goto startApps
125 | 
126 | :startApps
127 | cls
128 | echo   ###                   ###
129 | echo  # Starting Applications #
130 | echo ###                   ###
131 | echo.
132 | 
133 | for /l %%a in (0, 1, %itemCount%) do (
134 | 	set "currPath="
135 | 	set "currName="
136 | 	set "currExec="
137 | 	set "currArgs="
138 | 	set "currWebs="
139 | 	set "currMult="
140 | 	set "currMini="
141 | 	set "currDela="
142 | 	
143 | 	if NOT "!dela[%%a]!"=="" (
144 | 		REM - we have a delay
145 | 		set /a currDela=!dela[%%a]!
146 | 		echo Pre-Delay for !currDela! seconds...
147 | 		timeout !currDela! > nul
148 | 		echo.
149 | 	)
150 | 	
151 | 	if NOT "!path[%%a]!"=="" (
152 | 		REM We have a path, let's get the rest of the vars
153 | 		set "currPath=!path[%%a]!"
154 | 		if "!name[%%a]!"=="" (
155 | 			REM Set name to last path component sans extension
156 | 			call :getName "!currPath!" "currName"
157 | 		) else (
158 | 			REM Set name to name value
159 | 			set "currName=!name[%%a]!"
160 | 		)
161 | 		if "!exec[%%a]!"=="" (
162 | 			REM Set exec to last path component with extension
163 | 			call :getNameWithExtension "!currPath!" "currExec"
164 | 		) else (
165 | 			REM Set name to name value
166 | 			set "currExec=!exec[%%a]!"
167 | 		)
168 | 		if NOT "!args[%%a]!"=="" (
169 | 			REM Set args
170 | 			set "currArgs=!args[%%a]!"
171 | 		)
172 | 		if /i NOT "!mult[%%a]:~0,1!"=="y" (
173 | 			set "currMult=n"
174 | 		) else (
175 | 			set "currMult=y"
176 | 		)
177 | 		if /i NOT "!mini[%%a]:~0,1!"=="y" (
178 | 			set "currMini="
179 | 		) else (
180 | 			set "currMini=/min "
181 | 		)
182 | 
183 | 		if /i "!currMult!"=="n" (
184 | 			REM Now we check if exec is running - then start from path.
185 | 			REM Output will use name.
186 | 			echo Checking for !currName!...
187 | 			call :checkRunning "!currExec!" running
188 | 		
189 | 			if "!running!"=="0" (
190 | 				echo      !currName! is already running, bypassing...
191 | 			) else (
192 | 				echo      !currName! not running.
193 | 				echo      Starting !currName!...
194 | 				start !currMini!"" "!currPath!" !currArgs!
195 | 			)
196 | 		) else (
197 | 			REM Just start it up...
198 | 			echo Multiple instances allowed...
199 | 			echo      Starting !currName!...
200 | 			start !currMini!"" "!currPath!" !currArgs!
201 | 		)
202 | 		REM Wait for the designated wait time, then continue.
203 | 		timeout !timeWait! > nul
204 | 		echo.
205 | 	) else if NOT "!webs[%%a]!"=="" (
206 | 		set "currWebs=!webs[%%a]!"
207 | 		if NOT "!exec[%%a]!"=="" (
208 | 			REM Set exe value
209 | 			REM Only necessary if we want to limit whether we load webs
210 | 			REM when an exe hasn't been launched
211 | 			REM
212 | 			REM i.e. - load this website if chrome.exe is NOT running
213 | 			REM
214 | 			set "currExec=!exec[%%a]!"
215 | 		)
216 | 		if "!name[%%a]!"=="" (
217 | 			if "!currExec!"=="" (
218 | 				set "currName=!webs[%%a]!"
219 | 			) else (
220 | 				call :getName "!currExec!" "currName"
221 | 			)
222 | 		) else (
223 | 			set "currName=!name[%%a]!"
224 | 		)
225 | 		if /i NOT "!mult[%%a]:~0,1!"=="y" (
226 | 			set "currMult=n"
227 | 		) else (
228 | 			set "currMult=y"
229 | 		)
230 | 		if /i NOT "!mini[%%a]:~0,1!"=="y" (
231 | 			set "currMini="
232 | 		) else (
233 | 			set "currMini=/min "
234 | 		)
235 | 		
236 | 		if /i "!currMult!"=="y" (
237 | 			echo Opening web page ^(multiple instances allowed^)...
238 | 			echo      Starting !currName!...
239 | 			start !currMini!"" !currWebs!
240 | 		) else (
241 | 			echo Checking for !currName!...
242 | 			call :checkRunning "!currExec!" running
243 | 			if "!running!"=="0" (
244 | 				echo      !currName! is already running, bypassing...
245 | 			) else (
246 | 				echo      !currName! not running.
247 | 				echo      Starting !currName!...
248 | 				start !currMini!"" !currWebs!
249 | 			)
250 | 		)
251 | 		REM Wait for the designated wait time, then continue.
252 | 		timeout !timeWait! > nul
253 | 		echo.
254 | 	)
255 | )
256 | echo Done.
257 | echo.
258 | echo Exiting in !timeWait! seconds...
259 | timeout !timeWait! > nul
260 | goto exit
261 | 
262 | :getName <path> <return>
263 | set "%~2=%~n1"
264 | goto :EOF
265 | 
266 | :getNameWithExtension <path> <return>
267 | set "%~2=%~nx1"
268 | goto :EOF
269 | 
270 | :setValueForPrefix <prefix> <index>
271 | set "theValue=!%1!"
272 | 
273 | set "thePre=!theValue:~0,4!"
274 | set "theSuf=!theValue:~5!"
275 | 
276 | if /i "!thePre!"=="name" (
277 | 	set "name[%~2]=!theSuf!"
278 | ) else if /i "!thePre!"=="path" (
279 | 	set "path[%~2]=!theSuf!"
280 | ) else if /i "!thePre!"=="exec" (
281 | 	set "exec[%~2]=!theSuf!"
282 | ) else if /i "!thePre!"=="args" (
283 | 	set "args[%~2]=!theSuf!"
284 | ) else if /i "!thePre!"=="webs" (
285 | 	set "webs[%~2]=!theSuf!"
286 | ) else if /i "!thePre!"=="mult" (
287 | 	set "mult[%~2]=!theSuf!"
288 | ) else if /i "!thePre!"=="mini" (
289 | 	set "mini[%~2]=!theSuf!"
290 | ) else if /i "!thePre!"=="dela" (
291 | 	set "dela[%~2]=!theSuf!"
292 | )
293 | goto :EOF
294 | 
295 | :checkRunning <exec> <result>
296 | REM Check if exe is running - and return a result
297 | REM
298 | REM 0 = Running
299 | REM 1 = Not Running
300 | REM
301 | 
302 | set "theExec=%~1"
303 | call :strlen result !theExec!
304 | 		
305 | REM tasklist has a 25 character limit - let's only check the first
306 | REM 25 characters if our theExec variable is longer.
307 | if !result! GTR 25 (
308 | 	tasklist /FI "IMAGENAME eq !theExec!" 2>NUL | find /I /N "!theExec:~0,25!">NUL
309 | ) else (
310 | 	tasklist /FI "IMAGENAME eq !theExec!" 2>NUL | find /I /N "!theExec!">NUL
311 | )
312 | if "!ERRORLEVEL!"=="0" (
313 | 	set /a %~2=0
314 | ) else (
315 | 	set /a %~2=1
316 | )
317 | goto :EOF
318 | 
319 | :exit
320 | exit /b
321 | goto :EOF
322 | 
323 | :strlen <resultVar> <stringVar>
324 | (   
325 |     setlocal EnableDelayedExpansion
326 |     set "s=%~2#"
327 |     set "len=0"
328 |     for %%P in (4096 2048 1024 512 256 128 64 32 16 8 4 2 1) do (
329 |         if "!s:~%%P,1!" NEQ "" ( 
330 |             set /a "len+=%%P"
331 |             set "s=!s:~%%P!"
332 |         )
333 |     )
334 | )
335 | ( 
336 |     endlocal
337 |     set "%~1=%len%"
338 |     exit /b
339 | )
340 | 
341 | REM ############################################################
342 | REM ### For use in other scripts copy the text starting here ###
343 | REM ############################################################
344 | 
345 | :userTimeout
346 | REM Let's wait, and see if we waited the full
347 | REM amount, or if the user interrupted.
348 | set waitTime=%~1
349 | call :getTime %TIME% firstTime
350 | call :getJulianDate "%DATE%" firstDate
351 | if %~2 GTR 0 (
352 | 	timeout !waitTime! > nul
353 | ) else (
354 | 	timeout !waitTime!
355 | )
356 | call :getTime %TIME% secondTime
357 | call :getJulianDate "%DATE%" secondDate
358 | REM Find out if the days are different and add
359 | REM seconds accordingly.
360 | set /a diff=(!secondTime!-!firstTime!)+(!secondDate!-!firstDate!)*86400
361 | if !diff! LSS !waitTime! (
362 | 	set %~3=1
363 | ) else (
364 | 	set %~3=0
365 | )
366 | goto :EOF
367 | 
368 | :getTime <TIME> <TIME-AS-SECONDS-RETURNED>
369 | set "var=%~1"
370 | REM pad with leading 0 for hour to drop the space
371 | set var=!var: =0!
372 | REM Initialize variables.
373 | set hour=
374 | set min=
375 | set sec=
376 | REM Break apart our time into components.
377 | REM Also drops the .XX on the seconds.
378 | For /f "tokens=1-3 delims=/:." %%a in ("%~1") do (
379 | 	set hour=%%a
380 | 	set min=%%b
381 | 	set sec=%%c
382 | )
383 | REM Get safe numbers so batch doesn't think they
384 | REM are octals or whatever with the leading zeros
385 | REM then get the number of seconds for each part
386 | REM and add them together.
387 | REM
388 | REM 86400 seconds in a day.
389 | call :getSafeNumber !hour! hour
390 | set /a hour=%hour%*3600
391 | call :getSafeNumber !min! min
392 | set /a min=%min%*60
393 | call :getSafeNumber !sec! sec
394 | set /a sec=%sec%
395 | set /a total=!hour!+!min!+!sec!
396 | set %~2=!total!
397 | goto :EOF
398 | 
399 | :getSafeNumber <INPUT> <SAFE-NUMBER>
400 | REM If number has a leading zero, drop it.
401 | set "getSafeNum=%~1"
402 | if "%getSafeNum:~0,1%" == "0" set getSafeNum=%getSafeNum:~1,1%
403 | set %~2=%getSafeNum%
404 | goto :EOF
405 | 
406 | :getJulianDate <GDATE> <JDate>
407 | REM Conversion code pulled from: http://www.robvanderwoude.com/datetimentmath.php
408 | REM Convert the standard %DATE% into the Julian date.
409 | REM First we break our date into it's components.
410 | set "theDate=%~1"
411 | set month=
412 | set day=
413 | set year=
414 | if "!theDate:~2,1!"=="/" (
415 | 	REM Our date is formatted like: 01/01/2000
416 | 	REM Let's pad a word in there to pretend we have
417 | 	REM a Mon, Tue, Wed, Thu, Fri, Sat, or Sun
418 | 	set "theDate=Mon !theDate!"
419 | )
420 | For /f "tokens=2-4 delims=/ " %%a in ("!theDate!") do (
421 | 	set month=%%a
422 | 	set day=%%b
423 | 	set year=%%c
424 | )
425 | call :getSafeNumber !month! month
426 | call :getSafeNumber !day! day
427 | call :getSafeNumber !year! year
428 | set /a month1=(!month!-14)/12
429 | set /a year1=!year!+4800
430 | set /a JDate=1461*(!year1!+!month1!)/4+367*(!month!-2-12*!month1!)/12-(3*((!year1!+!month1!+100)/100))/4+!day!-32075
431 | set /a %~2=!JDate!
432 | goto :EOF
433 | 
434 | REM ############################################################
435 | REM ###                       To Here                        ###
436 | REM ############################################################
437 | 
438 | REM This next part is optional for converting from Julian to Gregorian.
439 | REM Copy it as well if you need readable output from Julian dates.
440 | :getGregorianDate <JDate> <GDATE>
441 | REM Conversion code pulled from: http://www.robvanderwoude.com/datetimentmath.php
442 | REM Converts back from Julian date to Gregorian.
443 | SET /A P      = %1 + 68569
444 | SET /A Q      = 4 * %P% / 146097
445 | SET /A R      = %P% - ( 146097 * %Q% +3 ) / 4
446 | SET /A S      = 4000 * ( %R% + 1 ) / 1461001
447 | SET /A T      = %R% - 1461 * %S% / 4 + 31
448 | SET /A U      = 80 * %T% / 2447
449 | SET /A V      = %U% / 11
450 | SET /A GYear  = 100 * ( %Q% - 49 ) + %S% + %V%
451 | SET /A GMonth = %U% + 2 - 12 * %V%
452 | SET /A GDay   = %T% - 2447 * %U% / 80
453 | FOR %%A IN (P Q R S T U V) DO SET %%A=
454 | IF 1%GMonth% LSS 20 SET GMonth=0%GMonth%
455 | IF 1%GDay%   LSS 20 SET GDay=0%GDay%
456 | SET "%~2=%GMonth%/%GDay%/%GYear%"
457 | goto :EOF


--------------------------------------------------------------------------------
/Network Interfaces.bat:
--------------------------------------------------------------------------------
  1 | :::::::::::::::::::::::::::::::::::::::::
  2 | :: Automatically check & get admin rights
  3 | :::::::::::::::::::::::::::::::::::::::::
  4 | @echo off
  5 | CLS
  6 | ECHO.
  7 | ECHO =============================
  8 | ECHO Running Admin shell
  9 | ECHO =============================
 10 | 
 11 | :checkPrivileges
 12 | NET FILE 1>NUL 2>NUL
 13 | if '%errorlevel%' == '0' ( goto gotPrivileges ) else ( goto getPrivileges )
 14 | 
 15 | :getPrivileges
 16 | if '%1'=='ELEV' (shift & goto gotPrivileges)
 17 | ECHO.
 18 | ECHO **************************************
 19 | ECHO Invoking UAC for Privilege Escalation
 20 | ECHO **************************************
 21 | 
 22 | setlocal DisableDelayedExpansion
 23 | set "batchPath=%~0"
 24 | setlocal EnableDelayedExpansion
 25 | ECHO Set UAC = CreateObject^("Shell.Application"^) > "%temp%\OEgetPrivileges.vbs"
 26 | ECHO UAC.ShellExecute "!batchPath!", "ELEV", "", "runas", 1 >> "%temp%\OEgetPrivileges.vbs"
 27 | "%temp%\OEgetPrivileges.vbs"
 28 | exit /B
 29 | 
 30 | :gotPrivileges
 31 | ::::::::::::::::::::::::::::
 32 | ::START
 33 | ::::::::::::::::::::::::::::
 34 | 
 35 | 
 36 | @echo off
 37 | setlocal enabledelayedexpansion
 38 | set myIP=
 39 | 
 40 | :mainMenu
 41 | cls
 42 | call :color 08 "Current interfaces:"
 43 | echo.
 44 | echo.
 45 | 
 46 | REM netsh interface show interface
 47 | set interfaceName=
 48 | set interfaceEnabled=
 49 | set interfaceConnected=
 50 | set /a interfaceCount=-1
 51 | 
 52 | if "%myIP%"=="" (
 53 | 	REM We're going to get our external IP next
 54 | 	REM We only want to get it once because it takes a second or 2 for the dns lookup
 55 | 	for /f "delims=: skip=4 tokens=1,2*" %%i in ('nslookup myip.opendns.com resolver1.opendns.com 2^>^&1') do (
 56 | 		set myIP=%%j
 57 | 	)
 58 | 	set "myIP=!myIP: =!"
 59 | )
 60 | 
 61 | REM Holy shit, this is some crazy stuff...
 62 | REM This section performs the command 'Netsh Interface Show Interface'
 63 | REM which lists all current interfaces as well as their admin state,
 64 | REM state, type, and etc, then it breaks that down to organize 2 variables.
 65 | REM interfaceName is an array of the interface names, designated by %%c
 66 | REM interfaceConnect is an array of Enabled or Disabled strings.
 67 | REM To get these values, we use a For loop.
 68 | REM The "skip=2 tokens=1,2,3*" part means that we are going to skip the first
 69 | REM 2 lines of the Netsh output, then put the first item separated by our
 70 | REM delimiters (which are space and tab by default) into the first variable
 71 | REM (which starts at %%a and then goes to %%b and etc) and then put the second
 72 | REM item into variable 2 (%%b) the third variable into %%c (which we won't use)
 73 | REM and everything else into variable 4 (%%d).
 74 | REM The output of Netsh leaves the interface name for the very last variable
 75 | REM and the Enabled/Disabled state for the first so we will use variables
 76 | REM %%a, %%b, and %%d respectively.  Everything else gets stuck in %%c which we
 77 | REM won't even need to touch.  It just acts as a place holder so we can
 78 | REM easily capture the interface name no matter how many spaces it has.
 79 | 
 80 | For /f "skip=2 tokens=1,2,3*" %%a In ('NetSh Interface Show Interface') Do (
 81 |   set /a interfaceCount+=1
 82 |   if !interfaceCount! GTR 0 (
 83 |     set interfaceEnabled[!interfaceCount!]=%%a
 84 |     set interfaceConnect[!interfaceCount!]=%%b
 85 |     set interfaceName[!interfaceCount!]=%%d
 86 | REM echo !interfaceCount!. %%d: 
 87 | REM %%a - %%b
 88 |     set enabledColor=0c
 89 |     set connectedColor=0c
 90 |     if "%%a"=="Enabled" set enabledColor=0a
 91 |     if "%%b"=="Connected" set connectedColor=0a
 92 |     call :color 08 "!interfaceCount!. "
 93 |     call :color 07 "%%d"
 94 |     call :color 08 ": "
 95 |     call :color !enabledColor! %%a
 96 |     call :color 08 " - "
 97 |     call :color !connectedColor! %%b
 98 |     echo.
 99 | 
100 |     REM Let's get the IP address of connected interfaces and display them
101 |     REM below in the color blue... I hope haha
102 | 
103 |     if "%%b"=="Connected" (
104 | 	set theName=%%d
105 |         REM This should ONLY happen if we're connected!
106 | 
107 | 	REM This next part gets our IP Address all by its lonesome
108 | 	For /f "tokens=3,*" %%f In ('NetSh Interface IP Show Address ^"!theName!^" ^| FindSTR ^"IP Address:^"') Do (
109 | 
110 | 	    REM So we set our first colors to gray, and then the IP colors
111 | 	    REM to light aqua to make them pop a bit and stand out.
112 | 
113 | 	    call :color 08 "     IP Address: "
114 | 	    call :color 0b "%%f"
115 | 
116 | 	)
117 | 
118 |     ) else (
119 | 
120 | 	REM We are not a connected device, so we won't have an IP
121 | 	REM Let's show the user this bit of awesome so they know.
122 | 
123 | 	call :color 08 "     IP Address: "
124 | 	call :color 0c "Not Connected"
125 | 
126 |     )
127 |     echo.
128 |     echo.
129 |   )
130 | )
131 | call :color 07 "External IP: "
132 | call :color 0b "%myIP%"
133 | echo.
134 | echo.
135 | call :color 08 "D. Disable All"
136 | echo.
137 | call :color 08 "E. Enable All"
138 | echo.
139 | call :color 08 "T. Toggle All"
140 | echo.
141 | call :color 08 "S. Switch Off and Pause"
142 | echo.
143 | call :color 08 "R. Refresh"
144 | echo.
145 | call :color 08 "Q. Quit"
146 | echo.
147 | 
148 | echo.
149 | echo.
150 | 
151 | set /p menu=Which interface would you like to adjust (1-!interfaceCount!): %=%
152 | 
153 | if "!menu!"=="" goto mainMenu
154 | if /i "!menu!" == "q" goto quit
155 | if /i "!menu!" == "r" (
156 | 	REM We're refreshing here, that means we're going to
157 | 	REM re-get our external IP too, so let's reset it
158 | 	set myIP=
159 | 	goto mainMenu
160 | )
161 | if /i "!menu!" == "d" goto allOff
162 | if /i "!menu!" == "e" goto allOn
163 | if /i "!menu!" == "t" goto toggleAll
164 | if /i "!menu!" == "s" goto switchPause
165 | 
166 | if !menu! GTR !interfaceCount! (
167 |   goto mainMenu
168 | )
169 | 
170 | if "!interfaceEnabled[%menu%]!" == "Enabled" goto disabled
171 | if "!interfaceEnabled[%menu%]!" == "Disabled" goto enabled
172 | 
173 | goto mainMenu
174 | 
175 | 
176 | 
177 | :allOff
178 | cls
179 | 
180 | set "whatSwitch="
181 | 
182 | for /l %%x in (1, 1, !interfaceCount!) do (
183 | 	cls
184 | 	call :color 0c "Disabling "
185 | 	call :color 08 "all interfaces..."
186 | 	echo.
187 | 	echo.
188 | 
189 | 	set whatSwitch[%%x]=Disabled
190 | 
191 | 	for /l %%a in (1, 1, %%x) do (
192 | 		call :color 08 "%%a. "
193 | 		call :color 07 "!interfaceName[%%a]!"
194 | 		call :color 08 ": "
195 | 		if "!whatSwitch[%%a]!"=="Enabled" (
196 | 			call :color 0a "Done."
197 | 		) else (
198 | 			call :color 0c "Done."
199 | 		)
200 | 		echo.
201 | 	)
202 | 	echo.
203 | 	echo.
204 | 	if "!interfaceEnabled[%%x]!" == "Enabled" (
205 | 		call :color 08 "Disabling "
206 | 		call :color 07 "!interfaceName[%%x]!"
207 | 		call :color 08 "..."
208 | 		echo.
209 | 		echo.
210 | 		echo.
211 | 		call :color 08 "Netsh Interface Set Interface '"
212 | 		call :color 07 "!interfaceName[%%x]!"
213 | 		call :color 08 "' "
214 | 		call :color 0c "DISABLED"
215 | 		echo.
216 | 		netsh interface set interface "!interfaceName[%%x]!" DISABLED
217 | 		echo.
218 | 	) else (
219 | 		call :color 08 "Interface "
220 | 		call :color 07 "!interfaceName[%%x]! "
221 | 		call :color 08 "already disabled."
222 | 		echo.
223 | 		echo.
224 | 	)
225 | )
226 | 
227 | call :color 0a "Done."
228 | echo.
229 | echo.
230 | timeout 5
231 | 
232 | goto mainMenu
233 | 
234 | 
235 | :allOn
236 | cls
237 | 
238 | set "whatSwitch="
239 | 
240 | for /l %%x in (1, 1, !interfaceCount!) do (
241 | 	cls
242 | 	call :color 0a "Enabling "
243 | 	call :color 08 "all interfaces..."
244 | 	echo.
245 | 	echo.
246 | 
247 | 	set whatSwitch[%%x]=Enabled
248 | 
249 | 	for /l %%a in (1, 1, %%x) do (
250 | 		call :color 08 "%%a. "
251 | 		call :color 07 "!interfaceName[%%a]!"
252 | 		call :color 08 ": "
253 | 		if "!whatSwitch[%%a]!"=="Enabled" (
254 | 			call :color 0a "Done."
255 | 		) else (
256 | 			call :color 0c "Done."
257 | 		)
258 | 		echo.
259 | 	)
260 | 	echo.
261 | 	echo.
262 | 	if "!interfaceEnabled[%%x]!" == "Disabled" (
263 | 		call :color 08 "Enabling "
264 | 		call :color 07 "!interfaceName[%%x]!"
265 | 		call :color 08 "..."
266 | 		echo.
267 | 		echo.
268 | 		echo.
269 | 		call :color 08 "Netsh Interface Set Interface '"
270 | 		call :color 07 "!interfaceName[%%x]!"
271 | 		call :color 08 "' "
272 | 		call :color 0a "ENABLED"
273 | 		echo.
274 | 		netsh interface set interface "!interfaceName[%%x]!" ENABLED
275 | 		echo.
276 | 	) else (
277 | 		call :color 08 "Interface "
278 | 		call :color 07 "!interfaceName[%%x]! "
279 | 		call :color 08 "already enabled."
280 | 		echo.
281 | 		echo.
282 | 	)
283 | )
284 | 
285 | call :color 0a "Done."
286 | echo.
287 | echo.
288 | timeout 5
289 | 
290 | goto mainMenu
291 | 
292 | 
293 | :toggleAll
294 | cls
295 | 
296 | set "whatSwitch="
297 | 
298 | for /l %%x in (1, 1, !interfaceCount!) do (
299 | 	cls
300 | 	call :color 0b "Toggling "
301 | 	call :color 08 "all interfaces..."
302 | 	echo.
303 | 	echo.
304 | 
305 | 	if "!interfaceEnabled[%%x]!"=="Disabled" (
306 | 		set whatSwitch[%%x]=Enabled
307 | 	) else (
308 | 		set whatSwitch[%%x]=Disabled
309 | 	)
310 | 
311 | 	for /l %%a in (1, 1, %%x) do (
312 | 		call :color 08 "%%a. "
313 | 		call :color 07 "!interfaceName[%%a]!"
314 | 		call :color 08 ": "
315 | 		if "!whatSwitch[%%a]!"=="Enabled" (
316 | 			call :color 0a "Done."
317 | 		) else (
318 | 			call :color 0c "Done."
319 | 		)
320 | 		echo.
321 | 	)
322 | 
323 | 	echo.
324 | 	echo.
325 | 
326 | 	if "!interfaceEnabled[%%x]!" == "Disabled" (
327 | 		call :color 08 "Enabling "
328 | 		call :color 07 "!interfaceName[%%x]!"
329 | 		call :color 08 "..."
330 | 		echo.
331 | 		echo.
332 | 		echo.
333 | 		call :color 08 "Netsh Interface Set Interface '"
334 | 		call :color 07 "!interfaceName[%%x]!"
335 | 		call :color 08 "' "
336 | 		call :color 0a "ENABLED"
337 | 		echo.
338 | 		netsh interface set interface "!interfaceName[%%x]!" ENABLED
339 | 		echo.
340 | 	) else (
341 | 		call :color 08 "Disabling "
342 | 		call :color 07 "!interfaceName[%%x]!"
343 | 		call :color 08 "..."
344 | 		echo.
345 | 		echo.
346 | 		echo.
347 | 		call :color 08 "Netsh Interface Set Interface '"
348 | 		call :color 07 "!interfaceName[%%x]!"
349 | 		call :color 08 "' "
350 | 		call :color 0c "DISABLED"
351 | 		echo.
352 | 		netsh interface set interface "!interfaceName[%%x]!" DISABLED
353 | 		echo.
354 | 	)
355 | )
356 | 
357 | call :color 0a "Done."
358 | echo.
359 | echo.
360 | timeout 5
361 | 
362 | 
363 | goto mainMenu
364 | 
365 | 
366 | :switchPause
367 | cls
368 | set delayTime=
369 | call :color 08 "Please enter the delay time before switching back on in seconds:"
370 | echo.
371 | call :color 08 "Or just press ["
372 | call :color 07 "Enter"
373 | call :color 08 "] to wait for user input before continuing..."
374 | echo.
375 | echo.
376 | echo.
377 | 
378 | set /p delayTime=!=!
379 | 
380 | cls
381 | 
382 | set "whatSwitch="
383 | set "toggled="
384 | set /a theIndex=0
385 | 
386 | for /l %%x in (1, 1, !interfaceCount!) do (
387 | 	cls
388 | 	call :color 0c "Disabling "
389 | 	call :color 08 "all interfaces, and Pausing..."
390 | 	echo.
391 | 	echo.
392 | 
393 | 
394 | 	if "!interfaceEnabled[%%x]!" == "Enabled" (
395 | 		set /a theIndex+=1
396 | 		set toggled[!theIndex!]=!interfaceName[%%x]!
397 | 		for /l %%a in (1, 1, !theIndex!) do (
398 | 			call :color 08 "%%a. "
399 | 			call :color 07 "!toggled[%%a]!"
400 | 			call :color 08 ": "
401 | 			call :color 0c "Done."
402 | 			echo.
403 | 		)
404 | 		echo.
405 | 		echo.
406 | 		call :color 08 "Disabling "
407 | 		call :color 07 "!interfaceName[%%x]!"
408 | 		call :color 08 "..."
409 | 		echo.
410 | 		echo.
411 | 		echo.
412 | 		call :color 08 "Netsh Interface Set Interface '"
413 | 		call :color 07 "!interfaceName[%%x]!"
414 | 		call :color 08 "' "
415 | 		call :color 0c "DISABLED"
416 | 		echo.
417 | 		netsh interface set interface "!interfaceName[%%x]!" DISABLED
418 | 		echo.
419 | 	)
420 | )
421 | 
422 | call :color 0a "Done."
423 | echo.
424 | echo.
425 | set paused=false
426 | if "!delayTime!"=="" (
427 | 	pause
428 | 	set paused=true
429 | )
430 | if !paused!==false (
431 | 	timeout !delayTime!
432 | )
433 | cls
434 | 
435 | 
436 | for /l %%x in (1, 1, !theIndex!) do (
437 | 	cls
438 | 	call :color 0a "Enabling "
439 | 	call :color 08 "toggled interfaces..."
440 | 	echo.
441 | 	echo.
442 | 
443 | 	for /l %%a in (1, 1, %%x) do (
444 | 		call :color 08 "%%a. "
445 | 		call :color 07 "!toggled[%%a]!"
446 | 		call :color 08 ": "
447 | 		call :color 0a "Done."
448 | 		echo.
449 | 	)
450 | 	echo.
451 | 	echo.
452 | 	call :color 08 "Enabling "
453 | 	call :color 07 "!toggled[%%x]!"
454 | 	call :color 08 "..."
455 | 	echo.
456 | 	echo.
457 | 	echo.
458 | 	call :color 08 "Netsh Interface Set Interface '"
459 | 	call :color 07 "!toggled[%%x]!"
460 | 	call :color 08 "' "
461 | 	call :color 0a "ENABLED"
462 | 	echo.
463 | 	netsh interface set interface "!toggled[%%x]!" ENABLED
464 | 	echo.
465 | 
466 | )
467 | timeout 5
468 | 
469 | 
470 | goto mainMenu
471 | 
472 | :Disabled
473 | cls
474 | call :color 08 "Disabling "
475 | call :color 07 "!interfaceName[%menu%]!"
476 | call :color 08 "..."
477 | echo.
478 | echo.
479 | echo.
480 | call :color 08 "Netsh Interface Set Interface '"
481 | call :color 07 "!interfaceName[%menu%]!"
482 | call :color 08 "' "
483 | call :color 0c "DISABLED"
484 | echo.
485 | netsh interface set interface "!interfaceName[%menu%]!" DISABLED
486 | echo.
487 | timeout 5
488 | cls
489 | goto mainMenu
490 | 
491 | :Enabled
492 | cls
493 | call :color 08 "Enabling "
494 | call :color 07 "!interfaceName[%menu%]!"
495 | call :color 08 "..."
496 | echo.
497 | echo.
498 | echo.
499 | call :color 08 "Netsh Interface Set Interface '"
500 | call :color 07 "!interfaceName[%menu%]!"
501 | call :color 08 "' "
502 | call :color 0a "ENABLED"
503 | netsh interface set interface "!interfaceName[%menu%]!" ENABLED
504 | echo.
505 | timeout 5
506 | cls
507 | goto mainMenu
508 | 
509 | :quit
510 | call :cleanupColor
511 | exit /b
512 | 
513 | :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
514 | 
515 | :color Color  Str  [/n]
516 | setlocal
517 | set "str=%~2"
518 | call :colorVar %1 str %3
519 | exit /b
520 | 
521 | :colorVar  Color  StrVar  [/n]
522 | if not defined DEL call :initColor
523 | if not defined %~2 exit /b
524 | setlocal enableDelayedExpansion
525 | set "str=a%DEL%!%~2:\=a%DEL%\..\%DEL%%DEL%%DEL%!"
526 | set "str=!str:/=a%DEL%/..\%DEL%%DEL%%DEL%!"
527 | set "str=!str:"=\"!"
528 | pushd "%temp%"
529 | findstr /p /A:%1 "." "!str!\..\x" nul
530 | if /i "%~3"=="/n" echo(
531 | exit /b
532 | 
533 | :initColor
534 | for /F "tokens=1,2 delims=#" %%a in ('"prompt #$H#$E# & echo on & for %%b in (1) do rem"') do set "DEL=%%a"
535 | <nul >"%temp%\x" set /p "=%DEL%%DEL%%DEL%%DEL%%DEL%%DEL%.%DEL%"
536 | exit /b
537 | 
538 | :cleanupColor
539 | del "%temp%\x"
540 | exit /b


--------------------------------------------------------------------------------
/Network Shares.bat:
--------------------------------------------------------------------------------
  1 | :::::::::::::::::::::::::::::::::::::::::
  2 | :: Automatically check & get admin rights
  3 | :::::::::::::::::::::::::::::::::::::::::
  4 | @echo off
  5 | CLS
  6 | ECHO.
  7 | ECHO =============================
  8 | ECHO Running Admin shell
  9 | ECHO =============================
 10 | 
 11 | :checkPrivileges
 12 | NET FILE 1>NUL 2>NUL
 13 | if '%errorlevel%' == '0' ( goto gotPrivileges ) else ( goto getPrivileges )
 14 | 
 15 | :getPrivileges
 16 | if '%1'=='ELEV' (shift & goto gotPrivileges)
 17 | ECHO.
 18 | ECHO **************************************
 19 | ECHO Invoking UAC for Privilege Escalation
 20 | ECHO **************************************
 21 | 
 22 | setlocal DisableDelayedExpansion
 23 | set "batchPath=%~0"
 24 | setlocal EnableDelayedExpansion
 25 | ECHO Set UAC = CreateObject^("Shell.Application"^) > "%temp%\OEgetPrivileges.vbs"
 26 | ECHO UAC.ShellExecute "!batchPath!", "ELEV", "", "runas", 1 >> "%temp%\OEgetPrivileges.vbs"
 27 | "%temp%\OEgetPrivileges.vbs"
 28 | exit /B
 29 | 
 30 | :gotPrivileges
 31 | ::::::::::::::::::::::::::::
 32 | ::START
 33 | ::::::::::::::::::::::::::::
 34 | 
 35 | 
 36 | @echo off
 37 | setlocal enableDelayedExpansion
 38 | 
 39 | REM Let's set this up:
 40 | REM We're going to use the built in NET SHARE commands to share
 41 | REM whatever folder is entered into this batch.
 42 | 
 43 | REM I also want this script to be able to list all the available
 44 | REM shared folders for a specific server and then disconnect them
 45 | REM accordingly.
 46 | 
 47 | REM Let's start by getting the currently shared folders and working
 48 | REM forward from there.
 49 | 
 50 | REM We'll do this by running the NET SHARE command by itself and
 51 | REM parsing the output
 52 | 
 53 | REM Let's get a tab character saved for later use
 54 | set "TAB=	"
 55 | 
 56 | set thisDir=%~dp0
 57 | 
 58 | REM Let's set up our colors too
 59 | set basicColor=08
 60 | set highlightColor=07
 61 | set infoColor=0a
 62 | 
 63 | :mainMenu
 64 | cls
 65 | set /a shareCount=0
 66 | set menu=
 67 | 
 68 | REM This little chunk of awesome will actually do a Reg Query to search
 69 | REM for shared folders... WAAAAY easier than trying to parse the nasty
 70 | REM code generated form NET SHARE
 71 | 
 72 | SET vRegQuery=reg query HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Shares /t REG_MULTI_SZ /se #
 73 | FOR /F "skip=2 tokens=*" %%S IN ('%vRegQuery%') DO (
 74 | 	FOR /F "tokens=3,5,6 delims=#" %%H IN ('ECHO "%%S"') DO (
 75 | 		set /a shareCount+=1
 76 | 		
 77 | 		set ll=%%H
 78 | 		set ll=!ll:~5!
 79 | 		
 80 | 		set sharePath[!shareCount!]=!ll!
 81 | 		
 82 | 		REM echo !ll! - the full path, can do something with it
 83 | 		
 84 | 		set ii=%%I
 85 | 		set ii=!ii:~10!
 86 | 		
 87 | 		set jj=%%J
 88 | 		set jj=!jj:~10!
 89 | 		
 90 | 		if NOT "!jj!"=="" (
 91 | 			set shareName[!shareCount!]=!jj!
 92 | 		) else (
 93 | 			set shareName[!shareCount!]=!ii!
 94 | 		)
 95 | 		REM echo !jj! - the share name, can do something with it
 96 | 	)
 97 | )
 98 | call :color 08 "Currently Shared Folders:"
 99 | echo.
100 | echo.
101 | 
102 | for /l %%a in (1, 1, %shareCount%) do (
103 | 	call :color !basicColor! "%%a. "
104 | 	call :color !highlightColor! "!shareName[%%a]! "
105 | 	call :color !basicColor! "- !sharePath[%%a]!"
106 | 	echo.
107 | 
108 | )
109 | echo.
110 | call :color !basicColor! "P. Permissions"
111 | echo.
112 | call :color !basicColor! "N. New Share"
113 | echo.
114 | call :color !basicColor! "R. Reload List"
115 | echo.
116 | call :color !basicColor! "Q. Quit"
117 | echo.
118 | echo.
119 | call :color !basicColor! "Please select a share for more options:  "
120 | set /p menu=!=!
121 | 
122 | if !menu!==q goto quit
123 | if !menu!==Q goto quit
124 | 
125 | if !menu!==p goto permissions
126 | if !menu!==P goto permissions
127 | 
128 | if !menu!==r goto mainMenu
129 | if !menu!==R goto mainMenu
130 | 
131 | if !menu!==n goto newShare
132 | if !menu!==N goto newShare
133 | 
134 | if !menu! LSS 1 goto mainMenu
135 | if !menu! GTR !shareCount! goto mainMenu
136 | 
137 | goto shareOptions
138 | 
139 | :shareOptions
140 | cls
141 | call :color !highlightColor! "!shareName[%menu%]! "
142 | call :color !basicColor! "- !sharePath[%menu%]!"
143 | echo.
144 | echo.
145 | call :color !basicColor! "Available Options^:"
146 | echo.
147 | echo.
148 | call :color !basicColor! "1. "
149 | call :color !highlightColor! "Show Info"
150 | echo.
151 | call :color !basicColor! "2. "
152 | call :color !highlightColor! "Remove Share"
153 | echo.
154 | echo.
155 | call :color !basicColor! "M. Main Menu"
156 | echo.
157 | echo.
158 | echo.
159 | call :color !basicColor! "Please select an option:  "
160 | 
161 | set /p aMenu=!=!
162 | 
163 | if !aMenu!==1 goto showInfo
164 | if !aMenu!==2 goto removeShare
165 | goto mainMenu
166 | 
167 | :showInfo
168 | cls
169 | echo NET SHARE "!shareName[%menu%]!"
170 | echo.
171 | NET SHARE "!shareName[%menu%]!"
172 | echo.
173 | pause
174 | goto mainMenu
175 | 
176 | :removeShare
177 | set shareRemove=!shareName[%menu%]!
178 | if "!shareRemove!"=="" (
179 | 	set shareRemove=!sharePath[%menu%]!
180 | 	if "!shareRemove!"=="" goto mainMenu
181 | )
182 | set shareRemove=!shareRemove:"=!
183 | cls
184 | call :color !basicColor! "Removing "
185 | call :color !highlightColor! "!shareRemove!"
186 | call :color !basicColor! "..."
187 | echo.
188 | echo.
189 | echo NET SHARE "!shareRemove!" /delete
190 | echo.
191 | NET SHARE ^"!shareRemove!^" /delete
192 | echo.
193 | timeout 5
194 | 
195 | if EXIST "!thisDir!Permissions\!shareRemove!.txt" (
196 | 	echo.
197 | 	cls
198 | 	call :color !basicColor! "Resetting permissions..."
199 | 	echo.
200 | 	echo.
201 | 	
202 | 	echo ICACLS "!sharePath[%menu%]!" /RESET /T /C /Q
203 | 	ICACLS "!sharePath[%menu%]!" /RESET /T /C /Q
204 | 	echo.
205 | 	
206 | 	call :folder_path_with_drive restoreFolder !sharePath[%menu%]!
207 | 	
208 | 	IF "!restoreFolder:~-1!"=="\" SET restoreFolder=!restoreFolder:~,-1!
209 | 	
210 | 	echo ICACLS "!restoreFolder!" /RESTORE "!thisDir!Permissions\!shareRemove!.txt" /T /C /Q
211 | 	REM start /wait 
212 | 	ICACLS "!restoreFolder!" /RESTORE "!thisDir!Permissions\!shareRemove!.txt" /T /C /Q
213 | 	echo.
214 | 	
215 | 	if NOT "!ERRORLEVEL!"=="0" (
216 | 		echo !ERRORLEVEL!
217 | 		echo.
218 | 		call :color !basicColor! "There were errors restoring permissions, leaving backup intact..."
219 | 		echo.
220 | 		echo.
221 | 	) else (
222 | 		call :color !basicColor! "Removing permissions backup..."
223 | 		echo.
224 | 		echo.
225 | 		del "!thisDir!Permissions\!shareRemove!.txt"
226 | 		call :color !basicColor! "Done."
227 | 		echo.
228 | 		echo.
229 | 	)
230 | 	timeout 5
231 | )
232 | goto mainMenu
233 | 
234 | cls
235 | set everyNo=
236 | call :color !basicColor! "Would you like to remove the "
237 | call :color !highlightColor! "Everyone "
238 | call :color !basicColor! "permissions from "
239 | call :color !highlightColor! "!sharePath[%menu%]!"
240 | call :color !basicColor! "? ^(y/n^)"
241 | echo.
242 | call :color !basicColor! "Default is: "
243 | call :color !highlightColor! "Y"
244 | echo.
245 | echo.
246 | echo.
247 | set /p everyNo=!=!
248 | 	
249 | if "!everyNo!"=="" set everyNo=y
250 | 
251 | if !everyNo!==y goto removeEveryone
252 | if !everyNo!==Y goto removeEveryone
253 | 
254 | goto mainMenu 
255 | 
256 | :removeEveryone
257 | cls
258 | call :color !basicColor! "Removing "
259 | call :color !highlightColor! "Everyone "
260 | call :color !basicColor! "permissions..."
261 | echo.
262 | echo.
263 | echo ICACLS "!sharePath[%menu%]!" /REMOVE "Everyone" /T /C /Q
264 | echo.
265 | ICACLS "!sharePath[%menu%]!" /REMOVE "Everyone" /T /C /Q
266 | echo.
267 | timeout 5
268 | goto mainMenu
269 | 
270 | :newShare
271 | cls
272 | set tempName=
273 | set thePath=
274 | set tempUser=
275 | set tempPermNum=
276 | 
277 | REM call :color !highlightColor! "Note: "
278 | REM call :color !basicColor! "If you would like to share an entire drive, make"
279 | REM echo.
280 | REM call :color !basicColor! "sure that you only put the drive letter and a colon."
281 | REM echo.
282 | REM echo.
283 | REM call :color !highlightColor! "For Example: "
284 | REM call :color !basicColor! "To share your "
285 | REM call :color !highlightColor! "C "
286 | REM call :color !basicColor! "drive, you would type "
287 | REM call :color !highlightColor! "C:"
288 | REM echo.
289 | REM call :color !basicColor! "not "
290 | REM call :color !highlightColor! "C:\"
291 | REM echo.
292 | REM echo.
293 | call :color !basicColor! "Please drop a folder to share, or type in the full path:"
294 | echo.
295 | echo.
296 | set /p thePath=!=!
297 | cls
298 | set thePath=!thePath:"=!
299 | 
300 | REM Remove a trailing slash if one is present.
301 | REM Useful if the dropped folder is a drive
302 | REM If you try to share C:\ it will fail, but
303 | REM C: will succeed.
304 | if !thePath:~-1!==\ SET thePath=!thePath:~0,-1!
305 | 
306 | if NOT EXIST "!thePath!" (
307 | 	cls
308 | 	echo WARNING: The path "!thePath!" does not exist...
309 | 	echo.
310 | 	call :color !basicColor! "Returning to main menu..."
311 | 	echo.
312 | 	echo.
313 | 	timeout 5
314 | 	goto mainMenu
315 | )
316 | 
317 | call :name_without_extension theName "!thePath!"
318 | 
319 | cls
320 | call :color !basicColor! "Please type a name for your shared folder:"
321 | echo.
322 | call :color !basicColor! "Default is: "
323 | call :color !highlightColor! "!theName!"
324 | echo.
325 | echo.
326 | echo.
327 | set /p tempName=!=!
328 | 
329 | if not "!tempName!"=="" (
330 | 	set theName=!tempName!
331 | )
332 | 
333 | set shareUsers=
334 | set permUsers=
335 | goto newShareUsers
336 | 
337 | :newShareUsers
338 | set /a newShareUserCount+=1
339 | set "theUser=Everyone"
340 | set tempUser=
341 | 
342 | cls
343 | call :color !basicColor! "Please type the user name to grant permissions to:"
344 | echo.
345 | call :color !basicColor! "Default is: "
346 | call :color !highlightColor! "Everyone"
347 | echo.
348 | echo.
349 | echo.
350 | set /p tempUser=!=!
351 | 
352 | if not "!tempUser!"=="" (
353 | 	set theUser=!tempUser!
354 | )
355 | 
356 | set "thePerm="
357 | set "caclPerm="
358 | 
359 | cls
360 | call :color !basicColor! "Select the permission level for "
361 | call :color !highlightColor! "!theUser!"
362 | echo.
363 | call :color !basicColor! "Default is: "
364 | call :color !highlightColor! "READ"
365 | echo.
366 | echo.
367 | call :color !basicColor! "1. "
368 | call :color !highlightColor! "READ"
369 | echo.
370 | call :color !basicColor! "2. "
371 | call :color !highlightColor! "CHANGE"
372 | echo.
373 | call :color !basicColor! "3. "
374 | call :color !highlightColor! "FULL"
375 | echo.
376 | echo.
377 | echo.
378 | set /p tempPermNum=!=!
379 | 
380 | if !tempPermNum!==1 (
381 | 	set thePerm=READ
382 | 	set caclPerm=R
383 | )
384 | if !tempPermNum!==2 (
385 | 	set thePerm=CHANGE
386 | 	set caclPerm=M
387 | )
388 | if !tempPermNum!==3 (
389 | 	set thePerm=FULL
390 | 	set caclPerm=F
391 | )
392 | 
393 | if "!thePerm!"=="" (
394 | 	set thePerm=READ
395 | 	set caclPerm=R
396 | )
397 | 
398 | set shareUsers=!shareUsers!/GRANT:^"!theUser!^",!thePerm! 
399 | set permUsers=!permUsers!/GRANT:r ^"!theUser!^":!caclPerm! 
400 | 
401 | set anotherUser=
402 | cls
403 | call :color !basicColor! "Would you like to add another user? ^(y^/n^)"
404 | echo.
405 | call :color !basicColor! "Default is: "
406 | call :color !highlightColor! "N"
407 | echo.
408 | echo.
409 | echo.
410 | set /p anotherUser=!=!
411 | 
412 | if !anotherUser!==y goto newShareUsers
413 | if !anotherUser!==Y goto newShareUsers
414 | goto startShare
415 | 
416 | :startShare
417 | cls
418 | call :color !basicColor! "Sharing "
419 | call :color !highlightColor! "!thePath! "
420 | call :color !basicColor! "as "
421 | call :color !highlightColor! "!theName!"
422 | call :color !basicColor! "..."
423 | echo.
424 | echo.
425 | 
426 | echo NET SHARE ^"!theName!^"=^"!thePath!^" !shareUsers!
427 | 
428 | echo.
429 | NET SHARE "!theName!"="!thePath!" !shareUsers!
430 | echo.
431 | timeout 5
432 | 
433 | set doPerm=
434 | 
435 | cls
436 | 
437 | call :color !basicColor! "Would you like to set permissions for "
438 | call :color !highlightColor! "!theName!"
439 | call :color !basicColor! "? ^(y/n^)"
440 | echo.
441 | call :color !basicColor! "Default is: "
442 | call :color !highlightColor! "Y"
443 | echo.
444 | echo.
445 | echo.
446 | 
447 | set /p doPerm=!=!
448 | 
449 | if "!doPerm!"=="" set doPerm=y
450 | 
451 | if !doPerm!==y goto setThePerm
452 | if !doPerm!==Y goto setThePerm
453 | 
454 | goto mainMenu
455 | 
456 | :setThePerm
457 | cls
458 | if NOT EXIST "!thisDir!Permissions" mkdir "!thisDir!\Permissions"
459 | 
460 | call :color !basicColor! "Backing up current permissions..."
461 | echo.
462 | echo.
463 | echo ICACLS "!thePath!" /SAVE "!thisDir!Permissions\!theName!.txt" /T /C /Q
464 | ICACLS "!thePath!" /SAVE "!thisDir!Permissions\!theName!.txt" /T /C /Q
465 | echo.
466 | echo.
467 | call :color !basicColor! "Setting new permissions..."
468 | echo.
469 | echo.
470 | echo ICACLS "!thePath!" /INHERITANCE:r !permUsers! /T /C /Q
471 | ICACLS "!thePath!" !permUsers! /INHERITANCE:r /T /C /Q
472 | echo.
473 | 
474 | timeout 5
475 | 
476 | goto mainMenu
477 | 
478 | :permissions
479 | cls
480 | if EXIST "!thisDir!\Permissions" (
481 | 	call :color !basicColor! "Available Permissions:"
482 | 	echo.
483 | 	echo.
484 | 	set /a permissionCount=0
485 | 	pushd "!thisDir!\Permissions"
486 | 	For /R %%G IN (*) do (
487 | 		set /a permissionCount+=1
488 | 		call :color !basicColor! "!permissionCount!. "
489 | 		call :name_without_extension theFile "%%G"
490 | 		call :color !highlightColor! "!theFile!"
491 | 		echo.
492 | 		REM echo !permissionCount!. %%G
493 | 	)
494 | 	echo.
495 | 	popd
496 | ) else (
497 | 	call :color !basicColor! "No permissions found..."
498 | 	echo.
499 | 	echo.
500 | )
501 | 
502 | pause
503 | 
504 | :quit
505 | call :cleanupColor
506 | exit /b
507 | 
508 | :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
509 | 
510 | :StartsWith text string -- Tests if a text starts with a given string
511 | ::                      -- [IN] text   - text to be searched
512 | ::                      -- [IN] string - string to be tested for
513 | :$created 20080320 :$changed 20080320 :$categories StringOperation,Condition
514 | :$source http://www.dostips.com
515 | SETLOCAL
516 | set "txt=%~1"
517 | set "str=%~2"
518 | if defined str call set "s=%str%%%txt:*%str%=%%"
519 | if /i "%txt%" NEQ "%s%" set=2>NUL
520 | EXIT /b
521 | 
522 | :name_without_extension <resultVar> <pathVar>
523 | (
524 |     set "%~1=%~n2"
525 |     exit /b
526 | )
527 | 
528 | :folder_path_with_drive <resultVar> <pathVar>
529 | (
530 |     set "%~1=%~dp2"
531 |     exit /b
532 | )
533 | 
534 | 
535 | :color Color  Str  [/n]
536 | setlocal
537 | set "str=%~2"
538 | call :colorVar %1 str %3
539 | exit /b
540 | 
541 | :colorVar  Color  StrVar  [/n]
542 | if not defined DEL call :initColor
543 | if not defined %~2 exit /b
544 | setlocal enableDelayedExpansion
545 | set "str=a%DEL%!%~2:\=a%DEL%\..\%DEL%%DEL%%DEL%!"
546 | set "str=!str:/=a%DEL%/..\%DEL%%DEL%%DEL%!"
547 | set "str=!str:"=\"!"
548 | pushd "%temp%"
549 | findstr /p /A:%1 "." "!str!\..\x" nul
550 | if /i "%~3"=="/n" echo(
551 | exit /b
552 | 
553 | :initColor
554 | for /F "tokens=1,2 delims=#" %%a in ('"prompt #$H#$E# & echo on & for %%b in (1) do rem"') do set "DEL=%%a"
555 | <nul >"%temp%\x" set /p "=%DEL%%DEL%%DEL%%DEL%%DEL%%DEL%.%DEL%"
556 | exit /b
557 | 
558 | :cleanupColor
559 | del "%temp%\x"
560 | exit /b


--------------------------------------------------------------------------------
/BattleScript 1.0/BattleScript.bat:
--------------------------------------------------------------------------------
   1 | @set @junk=1 /*
   2 | @echo off
   3 | setlocal enableDelayedExpansion
   4 | 
   5 | IF "%selfWrapped%"=="" (
   6 |   REM this is necessary so that we can use "exit" to terminate the batch file,
   7 |   REM and all subroutines, but not the original cmd.exe
   8 |   SET selfWrapped=true
   9 |   %ComSpec% /s /c ""%~0" %*"
  10 |   GOTO :EOF
  11 | )
  12 | 
  13 | set thisScript=%0
  14 | set /a defaultTime=50
  15 | set thisDir=%~dp0
  16 | set /a playAnimations=1
  17 | set /a cheatsEnabled=0
  18 | set /a playSounds=1
  19 | set /a devMode=0
  20 | set /a noWait=0
  21 | 
  22 | set "shootSound=Shoot.wav"
  23 | set "missSound=Splash.wav"
  24 | set "hitSound=Explosion.wav"
  25 | set "sunkSound=Explosion2.wav"
  26 | 
  27 | 	
  28 | set frame1=
  29 | set frame2=
  30 | set frame3=
  31 | set frame4=
  32 | set frame5=
  33 | set frame6=
  34 | set frame7=
  35 | set frame8=
  36 | 
  37 | set "dirList[1]=u"
  38 | set "dirList[2]=d"
  39 | set "dirList[3]=l"
  40 | set "dirList[4]=r"
  41 | 
  42 | set /a lastRow=-1
  43 | set /a lastCol=-1
  44 | set /a lastCheckRow=-1
  45 | set /a lastCheckCol=-1
  46 | 
  47 | set /a hitDir=0
  48 | set /a lastPM=0
  49 | set /a directionChanges=0
  50 | 
  51 | set /a p1Random=0
  52 | set /a p2Random=0
  53 | 
  54 | set /a guesses=0
  55 | set /a maxGues1=30
  56 | set /a maxGues2=60
  57 | set /a maxGues3=120
  58 | set /a maxGues4=240
  59 | 
  60 | set /a range1=3
  61 | set /a range2=5
  62 | set /a range3=7
  63 | set /a range4=9
  64 | 
  65 | REM The board is laid out in a grid of 10x10
  66 | REM The top half is where you're targeting,
  67 | REM and the bottom half is where your ships are
  68 | REM
  69 | REM The Legend for the layout will be as follows:
  70 | REM
  71 | REM CCCCC = Carrier
  72 | REM BBBB  = Battleship
  73 | REM ccc   = Cruiser
  74 | REM SSS   = Submarine
  75 | REM DD    = Destroyer
  76 | REM .     = Unexplored
  77 | REM X     = Hit
  78 | 
  79 | REM Carrier
  80 | set "car1= ______=_____=__| |______"
  81 | set "car2= \  \___________| |____ /"
  82 | set "car3=  \_____________________|"
  83 | 
  84 | REM Battleship
  85 | set "bat1="
  86 | set "bat2= ____=____/-|_/\____"
  87 | set "bat3= \_________________/"
  88 | 
  89 | REM Cruiser
  90 | set "cru1="
  91 | set "cru2= __=_/|---_||___"
  92 | set "cru3= \_____________/"
  93 | 
  94 | REM Submarine
  95 | set "sub1=      _|"
  96 | set "sub2=   __/--\__"
  97 | set "sub3= /=========\==/|"
  98 | 
  99 | REM Destroyer
 100 | set "des1=      __"
 101 | set "des2= __=_/  |_||"
 102 | set "des3= \__________|"
 103 | 
 104 | 
 105 | set p1Layout=
 106 | set p2Layout=
 107 | set p1Shots=
 108 | set p2Shots=
 109 | set p1Pass=
 110 | set p2Pass=
 111 | set /a numPlayers=1
 112 | set "letterList=1234567890"
 113 | set "numberList=abcdefghij"
 114 | 
 115 | set /a p1Ca=0
 116 | set /a p1Ba=0
 117 | set /a p1Cr=0
 118 | set /a p1Su=0
 119 | set /a p1De=0
 120 | 
 121 | set /a p2Ca=0
 122 | set /a p2Ba=0
 123 | set /a p2Cr=0
 124 | set /a p2Su=0
 125 | set /a p2De=0
 126 | 
 127 | :mainMenu
 128 | if "!toQuit!"=="1" goto quit
 129 | set "startTime="
 130 | set /a numShots=0
 131 | set "currentCPU="
 132 | set /a p1Ca=0
 133 | set /a p1Ba=0
 134 | set /a p1Cr=0
 135 | set /a p1Su=0
 136 | set /a p1De=0
 137 | 
 138 | set /a p2Ca=0
 139 | set /a p2Ba=0
 140 | set /a p2Cr=0
 141 | set /a p2Su=0
 142 | set /a p2De=0
 143 | 
 144 | set /a lastRow=-1
 145 | set /a lastCol=-1
 146 | set /a lastCheckRow=-1
 147 | set /a lastCheckCol=-1
 148 | 
 149 | set /a hitDir=0
 150 | set /a lastPM=0
 151 | set /a directionChanges=0
 152 | 
 153 | set /a guesses=0
 154 | 
 155 | set /a lastRowa=-1
 156 | set /a lastCola=-1
 157 | set /a lastCheckRowa=-1
 158 | set /a lastCheckCola=-1
 159 | 
 160 | set /a hitDira=0
 161 | set /a lastPMa=0
 162 | set /a directionChangesa=0
 163 | 
 164 | set /a guessesa=0
 165 | 
 166 | set /a p2Random=0
 167 | set /a p1Random=0
 168 | 
 169 | cls
 170 | set menu=
 171 | echo ### BATTLESCRIPT ###
 172 | echo.
 173 | if NOT "!lastTurn!"=="" (
 174 | 	echo ### !lastTurn! ###
 175 | ) else (
 176 | 	echo.
 177 | )
 178 | echo.
 179 | echo 1. New Game - 1 Player
 180 | echo 2. New Game - 2 Players
 181 | echo 3. Rules
 182 | echo.
 183 | echo 0. CPU Game
 184 | echo Q. Quit
 185 | echo.
 186 | set /p menu="Please make a selection:  "
 187 | 
 188 | if /i "!menu!"=="devMode on" call :setDev 1
 189 | if /i "!menu!"=="devMode off" call :setDev 0
 190 | if /i "!menu!"=="animations on" call :setAnimations 1
 191 | if /i "!menu!"=="animations off" call :setAnimations 0
 192 | if /i "!menu!"=="sounds on" call :setSound 1
 193 | if /i "!menu!"=="sounds off" call :setSound 0
 194 | if /i "!menu!"=="cheats on" call :setCheats 1
 195 | if /i "!menu!"=="cheats off" call :setCheats 0
 196 | if /i "!menu!"=="noWait on" call :setNoWait 1
 197 | if /i "!menu!"=="noWait off" call :setNoWait 0
 198 | 
 199 | if "!menu!"=="0" goto noPlayers
 200 | if "!menu!"=="1" goto player
 201 | if "!menu!"=="2" goto players
 202 | if "!menu!"=="3" goto rules
 203 | if /i "!menu!"=="Q" goto quit
 204 | goto mainMenu
 205 | 
 206 | :getTime
 207 | set "var=%~1"
 208 | call :getSafeNumber %var:~0,2% hour
 209 | set /a hour=%hour%*3600
 210 | call :getSafeNumber %var:~3,2% min
 211 | set /a min=%min%*60
 212 | call :getSafeNumber %var:~6,2% sec
 213 | set /a sec=%sec%
 214 | set /a total=!hour!+!min!+!sec!
 215 | set %~2=!total!
 216 | goto :EOF
 217 | 
 218 | :getSafeNumber
 219 | set "getSafeNum=%~1"
 220 | if "%getSafeNum:~0,1%" == "0" set getSafeNum=%getSafeNum:~1,1%
 221 | set %~2=%getSafeNum%
 222 | goto :EOF
 223 | 
 224 | :setNoWait
 225 | set /a noWait=%~1
 226 | set "lastTurn=NoWait: %~1"
 227 | goto :EOF
 228 | 
 229 | :setDev
 230 | set /a devMode=%~1
 231 | set "lastTurn=DevMode: %~1"
 232 | goto :EOF
 233 | 
 234 | :setAnimations
 235 | set /a playAnimations=%~1
 236 | set "lastTurn=Animations: %~1"
 237 | goto :EOF
 238 | 
 239 | :setCheats
 240 | set /a cheatsEnabled=%~1
 241 | set "lastTurn=Cheats: %~1"
 242 | goto :EOF
 243 | 
 244 | :setSound
 245 | set /a playSounds=%~1
 246 | set "lastTurn=Sounds: %~1"
 247 | goto :EOF
 248 | 
 249 | :rules
 250 | cls
 251 | echo ### Rules ###
 252 | echo.
 253 | echo Basically, if you haven't played Battleship,
 254 | echo then you have no idea what you're doing with
 255 | echo your life and should go and read some literature
 256 | echo on the subject.
 257 | echo.
 258 | echo Otherwise if you went here just to test for rules:
 259 | echo.
 260 | echo.
 261 | pause
 262 | cls
 263 | echo ### Rules ###
 264 | echo.
 265 | echo This is a batch version of Battleship that
 266 | echo incorporates the use of 1 or 2 players.
 267 | echo.
 268 | echo The goal is to hunt out and destroy the other
 269 | echo player's 5 ships.
 270 | echo.
 271 | echo You do this by calling out coordinates on your
 272 | echo turn and hoping that you strike a hit.
 273 | echo.
 274 | echo The first player to sink the other's ships wins.
 275 | echo.
 276 | pause
 277 | cls
 278 | echo ### Rules ###
 279 | echo.
 280 | echo Good luck.
 281 | echo.
 282 | echo.
 283 | pause
 284 | goto mainMenu
 285 | 
 286 | :quit
 287 | set /a toQuit=1
 288 | exit /b
 289 | goto :EOF
 290 | 
 291 | :noPlayers
 292 | call :initializeLayout p1Layout
 293 | call :initializeLayout p1Shots
 294 | call :initializeLayout p2Layout
 295 | call :initializeLayout p2Shots
 296 | set /a numPlayers=2
 297 | call :getTime %TIME: =0% startTime
 298 | set "currentCPU=CPU1"
 299 | cls
 300 | echo ### CPU1 Placing Ships ###
 301 | echo.
 302 | echo Please wait...
 303 | 
 304 | call :cpuPickShip "Carrier" "4" "C" "Player1"
 305 | call :cpuPickShip "Battleship" "3" "B" "Player1"
 306 | call :cpuPickShip "Cruiser" "2" "c" "Player1"
 307 | call :cpuPickShip "Submarine" "2" "S" "Player1"
 308 | call :cpuPickShip "Destroyer" "1" "D" "Player1"
 309 | 
 310 | echo.
 311 | echo Done.
 312 | timeout 1 > nul 
 313 | 
 314 | cls
 315 | echo ### CPU2 Placing Ships ###
 316 | echo.
 317 | echo Please wait...
 318 | 
 319 | call :cpuPickShip "Carrier" "4" "C" "Player2"
 320 | call :cpuPickShip "Battleship" "3" "B" "Player2"
 321 | call :cpuPickShip "Cruiser" "2" "c" "Player2"
 322 | call :cpuPickShip "Submarine" "2" "S" "Player2"
 323 | call :cpuPickShip "Destroyer" "1" "D" "Player2"
 324 | 
 325 | echo.
 326 | echo Done.
 327 | timeout 1 > nul 
 328 | goto nextCPU
 329 | 
 330 | :player
 331 | call :initializeLayout p1Layout
 332 | call :initializeLayout p1Shots
 333 | call :initializeLayout p2Layout
 334 | call :initializeLayout p2Shots
 335 | set /a numPlayers=1
 336 | call :getTime %TIME: =0% startTime
 337 | REM goto p1Turn
 338 | if "!p1Random!"=="1" (
 339 | 	call :cpuPickShip "Carrier" "4" "C" "Player1"
 340 | 	call :cpuPickShip "Battleship" "3" "B" "Player1"
 341 | 	call :cpuPickShip "Cruiser" "2" "c" "Player1"
 342 | 	call :cpuPickShip "Submarine" "2" "S" "Player1"
 343 | 	call :cpuPickShip "Destroyer" "1" "D" "Player1"
 344 | ) else (
 345 | 	set theErr=
 346 | 	call :p1PickShip "Carrier" "4" "C"
 347 | 	set theErr=
 348 | 	call :p1PickShip "Battleship" "3" "B"
 349 | 	set theErr=
 350 | 	call :p1PickShip "Cruiser" "2" "c"
 351 | 	set theErr=
 352 | 	call :p1PickShip "Submarine" "2" "S"
 353 | 	set theErr=
 354 | 	call :p1PickShip "Destroyer" "1" "D"
 355 | )
 356 | if "!toQuit!"=="1" goto quit
 357 | cls
 358 | echo ### %numPlayers% Player Game ###
 359 | echo Player 1 Layout.
 360 | echo.
 361 | set /a shipLen=!len!+1
 362 | call :displayShip !ship! !shipLen!
 363 | echo.
 364 | call :drawLayout "Player1"
 365 | echo.
 366 | echo CPU Placing in 5 seconds...
 367 | timeout 5 > nul
 368 | 
 369 | cls
 370 | echo ### CPU Placing Ships ###
 371 | echo.
 372 | echo Please wait...
 373 | 
 374 | call :cpuPickShip "Carrier" "4" "C"
 375 | call :cpuPickShip "Battleship" "3" "B"
 376 | call :cpuPickShip "Cruiser" "2" "c"
 377 | call :cpuPickShip "Submarine" "2" "S"
 378 | call :cpuPickShip "Destroyer" "1" "D"
 379 | 
 380 | echo.
 381 | echo Done.
 382 | timeout 1 > nul
 383 | 
 384 | goto p1Turn
 385 | 
 386 | :players
 387 | call :initializeLayout p1Layout
 388 | call :initializeLayout p1Shots
 389 | call :initializeLayout p2Layout
 390 | call :initializeLayout p2Shots
 391 | set /a numPlayers=2
 392 | call :getTime %TIME: =0% startTime
 393 | if "!p1Random!"=="1" (
 394 | 	call :cpuPickShip "Carrier" "4" "C" "Player1"
 395 | 	call :cpuPickShip "Battleship" "3" "B" "Player1"
 396 | 	call :cpuPickShip "Cruiser" "2" "c" "Player1"
 397 | 	call :cpuPickShip "Submarine" "2" "S" "Player1"
 398 | 	call :cpuPickShip "Destroyer" "1" "D" "Player1"
 399 | ) else (
 400 | 	set theErr=
 401 | 	call :p1PickShip "Carrier" "4" "C"
 402 | 	set theErr=
 403 | 	call :p1PickShip "Battleship" "3" "B"
 404 | 	set theErr=
 405 | 	call :p1PickShip "Cruiser" "2" "c"
 406 | 	set theErr=
 407 | 	call :p1PickShip "Submarine" "2" "S"
 408 | 	set theErr=
 409 | 	call :p1PickShip "Destroyer" "1" "D"
 410 | )
 411 | if "!toQuit!"=="1" goto quit
 412 | cls
 413 | echo Press [enter] to start Player 2 selection...
 414 | pause > nul
 415 | :player2
 416 | if "!p2Random!"=="1" (
 417 | 	call :cpuPickShip "Carrier" "4" "C" "Player2"
 418 | 	call :cpuPickShip "Battleship" "3" "B" "Player2"
 419 | 	call :cpuPickShip "Cruiser" "2" "c" "Player2"
 420 | 	call :cpuPickShip "Submarine" "2" "S" "Player2"
 421 | 	call :cpuPickShip "Destroyer" "1" "D" "Player2"
 422 | ) else (
 423 | 	set theErr=
 424 | 	call :p2PickShip "Carrier" "4" "C"
 425 | 	set theErr=
 426 | 	call :p2PickShip "Battleship" "3" "B"
 427 | 	set theErr=
 428 | 	call :p2PickShip "Cruiser" "2" "c"
 429 | 	set theErr=
 430 | 	call :p2PickShip "Submarine" "2" "S"
 431 | 	set theErr=
 432 | 	call :p2PickShip "Destroyer" "1" "D"
 433 | )
 434 | goto p1PassSelect
 435 | 
 436 | :p1PassSelect
 437 | if "!toQuit!"=="1" goto quit
 438 | cls
 439 | echo ### Player 1 Password Select ###
 440 | echo.
 441 | set /p p1Pass="Please type the password for Player 1:  "
 442 | if "!numPlayers!"=="2" goto p2PassSelect
 443 | goto p1EnterPass
 444 | 
 445 | :p2PassSelect
 446 | if "!toQuit!"=="1" goto quit
 447 | cls
 448 | echo ### Player 2 Password Select ###
 449 | echo.
 450 | set /p p2Pass="Please type the password for Player 2:  "
 451 | goto p1EnterPass
 452 | 
 453 | :p1EnterPass
 454 | if "!toQuit!"=="1" goto quit
 455 | cls
 456 | set passTest=
 457 | echo ### Player 1 Password ###
 458 | echo.
 459 | echo Player 1, please enter your password to play
 460 | echo your turn.  If you enter the wrong password,
 461 | echo you will see this window again.
 462 | echo.
 463 | set /p passTest="Enter your password:  "
 464 | if NOT "!passTest!"=="!p1Pass!" goto p1EnterPass
 465 | set theErr=
 466 | goto p1Turn
 467 | 
 468 | :p2EnterPass
 469 | if "!toQuit!"=="1" goto quit
 470 | cls
 471 | set passTest=
 472 | echo ### Player 2 Password ###
 473 | echo.
 474 | echo Player 2, please enter your password to play
 475 | echo your turn.  If you enter the wrong password,
 476 | echo you will see this window again.
 477 | echo.
 478 | set /p passTest="Enter your password:  "
 479 | if NOT "!passTest!"=="!p2Pass!" goto p2EnterPass
 480 | set theErr=
 481 | goto p2Turn
 482 | 
 483 | :p1Turn
 484 | cls
 485 | set carr=
 486 | set carRow=
 487 | set carCol=
 488 | set carInd=
 489 | echo ### Player 1 Turn ###
 490 | echo.
 491 | if NOT "!lastTurn!"=="" (
 492 | 	echo ### !lastTurn! ###
 493 | ) else (
 494 | 	echo.
 495 | )
 496 | echo.
 497 | call :drawCombat "Player1"
 498 | echo.
 499 | if "!theErr!"=="" (
 500 | 	echo.
 501 | ) else (
 502 | 	echo !theErr!
 503 | )
 504 | 
 505 | set /p carr="Attack What Position (A1 type formatting):  "
 506 | 
 507 | if /i "!carr!"=="devMode on" call :setDev 1
 508 | if /i "!carr!"=="devMode off" call :setDev 0
 509 | if /i "!carr!"=="animations on" call :setAnimations 1
 510 | if /i "!carr!"=="animations off" call :setAnimations 0
 511 | if /i "!carr!"=="sounds on" call :setSound 1
 512 | if /i "!carr!"=="sounds off" call :setSound 0
 513 | if /i "!carr!"=="cheats on" call :setCheats 1
 514 | if /i "!carr!"=="cheats off" call :setCheats 0
 515 | if /i "!carr!"=="nowait on" call :setNoWait 1
 516 | if /i "!carr!"=="nowait off" call :setNoWait 0
 517 | 
 518 | if /i "!carr!"=="showmethemoney" (
 519 | 	if "!cheatsEnabled!"=="1" call :showGrid "Player2"
 520 | )
 521 | if /i "!carr!"=="mainMenu" goto mainMenu
 522 | if /i "!carr!"=="random" (
 523 | :p1RandomShot
 524 | 	set /a carCol=0
 525 | 	set /a carInd=0
 526 | 	call :getRandom carCol carInd 10 1
 527 | 	REM Let's get some random numbers and then
 528 | 	REM run that shiz.
 529 | 	if !carInd! GTR 9 (
 530 | 		goto p1RandomShot
 531 | 	)
 532 | 	if !carInd! LSS 0 (
 533 | 		goto p1RandomShot
 534 | 	)
 535 | 	if !carCol! GTR 10 (
 536 | 		goto p1RandomShot
 537 | 	)
 538 | 	if !carCol! LSS 1 (
 539 | 		goto p1RandomShot
 540 | 	)
 541 | 	call :checkShot "Player2" !carCol! !carInd! outCome
 542 | 
 543 | 	if !outCome! EQU -1 (
 544 | 		goto p1RandomShot
 545 | 	)
 546 | 	if !outCome! EQU -2 (
 547 | 		goto p1RandomShot
 548 | 	)
 549 | 	set /a numShots+=1
 550 | 	if !outCome! EQU 0 (
 551 | 		call :missAnimation
 552 | 		set "lastTurn=Player 1 missed"
 553 | 	)	
 554 | 	if !outCome! EQU 1 (
 555 | 		call :hitAnimation
 556 | 		if "!numPlayers!"=="1" (
 557 | 			set "lastTurn=Player 1 hit one of CPU's ships"
 558 | 		) else (
 559 | 			set "lastTurn=Player 1 hit one of Player 2's ships"
 560 | 		)
 561 | 	)	
 562 | 	if !outCome! GTR 1 (
 563 | 		call :sunkAnimation
 564 | 		if "!numPlayers!"=="1" (
 565 | 			set "lastTurn=Player 1 sunk one of CPU's ships"
 566 | 		) else (
 567 | 			set "lastTurn=Player 1 sunk one of Player 2's ships"
 568 | 		)
 569 | 		set /a theSum=!p2Ca!+!p2Ba!+!p2Cr!+!p2Su!+!p2De!
 570 | 		if !theSum! GEQ 17 goto p1Victory
 571 | 	)
 572 | 	set "theErr="
 573 | 
 574 | 	cls
 575 | 	echo ### Player 1 Turn ###
 576 | 	echo.
 577 | 	if NOT "!lastTurn!"=="" (
 578 | 		echo ### !lastTurn! ###
 579 | 	) else (
 580 | 		echo.
 581 | 	)
 582 | 	echo.
 583 | 	call :drawCombat "Player1"
 584 | 	echo.
 585 | 
 586 | 	if "!numPlayers!"=="2" (
 587 | 		echo Player 2^'s turn in 5 seconds...
 588 | 		timeout 5 > nul
 589 | 		goto p2EnterPass
 590 | 	) else (
 591 | 		echo CPU^'s turn in 5 seconds...
 592 | 		timeout 5 > nul
 593 | 		goto cpu1Turn
 594 | 	)	
 595 | )
 596 | 
 597 | if "%carr%"=="" (
 598 | 	set "theErr=### Invalid Target ###"
 599 | 	goto p1Turn
 600 | )
 601 | set carRow=%carr:~0,1%
 602 | set carCol=%carr:~1,2%
 603 | 
 604 | if "!carCol!"=="" (
 605 | 	set "theErr=### Invalid Target ###"
 606 | 	goto p1Turn
 607 | )
 608 | 
 609 | call :getNumFromLet %carRow% carInd
 610 | 
 611 | if %carCol% GTR 10 (
 612 | 	set "theErr=### Invalid Target ###"
 613 | 	goto p1Turn
 614 | )
 615 | if %carCol% LSS 1 (
 616 | 	set "theErr=### Invalid Target ###"
 617 | 	goto p1Turn
 618 | )
 619 | if %carInd%==-1 (
 620 | 	set "theErr=### Invalid Target ###"
 621 | 	goto p1Turn
 622 | )
 623 | 
 624 | call :checkShot "Player2" !carCol! !carInd! outCome
 625 | 
 626 | REM echo DoneChecking: !outCome!
 627 | 
 628 | if !outCome! EQU -1 (
 629 | 	set "theErr=### Already Fired There ###"
 630 | 	goto p1Turn
 631 | )
 632 | if !outCome! EQU -2 (
 633 | 	set "theErr=### Already Fired There ###"
 634 | 	goto p1Turn
 635 | )
 636 | set /a numShots+=1
 637 | if !outCome! EQU 0 (
 638 | 	call :missAnimation
 639 | 	set "lastTurn=Player 1 missed"
 640 | )	
 641 | if !outCome! EQU 1 (
 642 | 	call :hitAnimation
 643 | 	if "!numPlayers!"=="1" (
 644 | 		set "lastTurn=Player 1 hit one of CPU's ships"
 645 | 	) else (
 646 | 		set "lastTurn=Player 1 hit one of Player 2's ships"
 647 | 	)
 648 | 	
 649 | )	
 650 | if !outCome! GTR 1 (
 651 | 	call :sunkAnimation
 652 | 	if "!numPlayers!"=="1" (
 653 | 		set "lastTurn=Player 1 sunk one of CPU's ships"
 654 | 	) else (
 655 | 		set "lastTurn=Player 1 sunk one of Player 2's ships"
 656 | 	)
 657 | 	set /a theSum=!p2Ca!+!p2Ba!+!p2Cr!+!p2Su!+!p2De!
 658 | 	if !theSum! GEQ 17 goto p1Victory
 659 | )
 660 | set "theErr="
 661 | 
 662 | cls
 663 | echo ### Player 1 Turn ###
 664 | echo.
 665 | if NOT "!lastTurn!"=="" (
 666 | 	echo ### !lastTurn! ###
 667 | ) else (
 668 | 	echo.
 669 | )
 670 | echo.
 671 | call :drawCombat "Player1"
 672 | echo.
 673 | 
 674 | if "!numPlayers!"=="2" (
 675 | 	echo Player 2^'s turn in 5 seconds...
 676 | 	timeout 5 > nul
 677 | 	goto p2EnterPass
 678 | ) else (
 679 | 	echo CPU^'s turn in 5 seconds...
 680 | 	timeout 5 > nul
 681 | 	goto cpu1Turn
 682 | )
 683 | 
 684 | 
 685 | :p2Turn
 686 | cls
 687 | set carr=
 688 | set carRow=
 689 | set carCol=
 690 | set carInd=
 691 | echo ### Player 2 Turn ###
 692 | echo.
 693 | if NOT "!lastTurn!"=="" (
 694 | 	echo ### !lastTurn! ###
 695 | ) else (
 696 | 	echo.
 697 | )
 698 | echo.
 699 | call :drawCombat "Player2"
 700 | echo.
 701 | if "!theErr!"=="" (
 702 | 	echo.
 703 | ) else (
 704 | 	echo !theErr!
 705 | )
 706 | 
 707 | set /p carr="Attack What Position (A1 type formatting):  "
 708 | 
 709 | if /i "!carr!"=="devMode on" call :setDev 1
 710 | if /i "!carr!"=="devMode off" call :setDev 0
 711 | if /i "!carr!"=="animations on" call :setAnimations 1
 712 | if /i "!carr!"=="animations off" call :setAnimations 0
 713 | if /i "!carr!"=="sounds on" call :setSound 1
 714 | if /i "!carr!"=="sounds off" call :setSound 0
 715 | if /i "!carr!"=="cheats on" call :setCheats 1
 716 | if /i "!carr!"=="cheats off" call :setCheats 0
 717 | 
 718 | if /i "!carr!"=="mainMenu" goto mainMenu
 719 | if /i "!carr!"=="showmethemoney" (
 720 | 	if "!cheatsEnabled!"=="1" call :showGrid "Player1"
 721 | )
 722 | 
 723 | if /i "!carr!"=="random" (
 724 | :p2RandomShot
 725 | 	set /a carCol=0
 726 | 	set /a carInd=0
 727 | 	call :getRandom carCol carInd 10 1
 728 | 	REM Let's get some random numbers and then
 729 | 	REM run that shiz.
 730 | 	if !carInd! GTR 9 (
 731 | 		goto p2RandomShot
 732 | 	)
 733 | 	if !carInd! LSS 0 (
 734 | 		goto p2RandomShot
 735 | 	)
 736 | 	if !carCol! GTR 10 (
 737 | 		goto p2RandomShot
 738 | 	)
 739 | 	if !carCol! LSS 1 (
 740 | 		goto p2RandomShot
 741 | 	)
 742 | 	call :checkShot "Player1" !carCol! !carInd! outCome
 743 | 
 744 | 	if !outCome! EQU -1 (
 745 | 		goto p2RandomShot
 746 | 	)
 747 | 	if !outCome! EQU -2 (
 748 | 		goto p2RandomShot
 749 | 	)
 750 | 	set /a numShots+=1
 751 | 	if !outCome! EQU 0 (
 752 | 		call :missAnimation
 753 | 		set "lastTurn=Player 2 missed"
 754 | 	)	
 755 | 	if !outCome! EQU 1 (
 756 | 		call :hitAnimation
 757 | 		set "lastTurn=Player 2 hit one of Player 1's ships"
 758 | 	)	
 759 | 	if !outCome! GTR 1 (
 760 | 		call :sunkAnimation
 761 | 		set "lastTurn=Player 2 sunk one of Player 1's ships"
 762 | 		set /a theSum=!p1Ca!+!p1Ba!+!p1Cr!+!p1Su!+!p1De!
 763 | 		if !theSum! GEQ 17 goto p2Victory
 764 | 	)
 765 | 	set "theErr="
 766 | 
 767 | 	cls
 768 | 	echo ### Player 2 Turn ###
 769 | 	echo.
 770 | 	if NOT "!lastTurn!"=="" (
 771 | 		echo ### !lastTurn! ###
 772 | 	) else (
 773 | 		echo.
 774 | 	)
 775 | 	echo.
 776 | 	call :drawCombat "Player2"
 777 | 	echo.
 778 | 
 779 | 	echo Player 1^'s turn in 5 seconds...
 780 | 	timeout 5 > nul
 781 | 	goto p1EnterPass	
 782 | )
 783 | 
 784 | if "%carr%"=="" (
 785 | 	set "theErr=### Invalid Target ###"
 786 | 	goto p2Turn
 787 | )
 788 | set carRow=%carr:~0,1%
 789 | set carCol=%carr:~1,2%
 790 | 
 791 | if "!carCol!"=="" (
 792 | 	set "theErr=### Invalid Target ###"
 793 | 	goto p2Turn
 794 | )
 795 | 
 796 | call :getNumFromLet %carRow% carInd
 797 | 
 798 | if %carCol% GTR 10 (
 799 | 	set "theErr=### Invalid Target ###"
 800 | 	goto p2Turn
 801 | )
 802 | if %carCol% LSS 1 (
 803 | 	set "theErr=### Invalid Target ###"
 804 | 	goto p2Turn
 805 | )
 806 | if %carInd%==-1 (
 807 | 	set "theErr=### Invalid Target ###"
 808 | 	goto p2Turn
 809 | )
 810 | 
 811 | call :checkShot "Player1" !carCol! !carInd! outCome
 812 | 
 813 | REM echo DoneChecking: !outCome!
 814 | 
 815 | if !outCome! EQU -1 (
 816 | 	set "theErr=### Already Fired There ###"
 817 | 	goto p2Turn
 818 | )
 819 | if !outCome! EQU -2 (
 820 | 	set "theErr=### Already Fired There ###"
 821 | 	goto p2Turn
 822 | )
 823 | set /a numShots+=1
 824 | if !outCome! EQU 0 (
 825 | 	call :missAnimation
 826 | 	set "lastTurn=Player 2 missed"
 827 | )	
 828 | if !outCome! EQU 1 (
 829 | 	call :hitAnimation
 830 | 	set "lastTurn=Player 2 hit one of Player 1's ships"
 831 | )
 832 | if !outCome! GTR 1 (
 833 | 	call :sunkAnimation
 834 | 	set "lastTurn=Player 2 sunk one of Player 1's ships"
 835 | 	set /a theSum=!p1Ca!+!p1Ba!+!p1Cr!+!p1Su!+!p1De!
 836 | 	if !theSum! GEQ 17 goto p2Victory
 837 | )
 838 | 
 839 | set "theErr="
 840 | 
 841 | cls
 842 | echo ### Player 2 Turn ###
 843 | echo.
 844 | call :drawCombat "Player2"
 845 | echo.
 846 | if NOT "!lastTurn!"=="" (
 847 | 	echo ### !lastTurn! ###
 848 | ) else (
 849 | 	echo.
 850 | )
 851 | echo.
 852 | echo Player 1^'s turn in 5 seconds...
 853 | timeout 5 > nul
 854 | 
 855 | goto p1EnterPass
 856 | 
 857 | :cpu1Turn
 858 | cls
 859 | echo.
 860 | echo Calculating...
 861 | set /a guesses=!guesses!+1
 862 | REM Let's see if our last shot hit...
 863 | if !lastRow! GTR -1 (
 864 | 	REM we had a hit last time!
 865 | 	
 866 | 	REM Let's write this out a bit... AI time kids!!
 867 | 	REM So we have hit a spot, and we want to continue hitting
 868 | 	REM targets, so our goal is to try and move left/right or up/down
 869 | 	REM and see if we hit anything.  If no success, try the other side
 870 | 	REM and again, if no success, then we switch directions
 871 | 	
 872 | 	set /a plusMin=0
 873 | 	set /a rCol=0
 874 | 	set /a rRow=0
 875 | 	set /a uD=0
 876 | 	
 877 | 	if !needChangeDir! GTR 0 (
 878 | 		set /a directionChanges+=1
 879 | 		set /a lastCheckCol=!ranCol!
 880 | 		set /a lastCheckRow=!ranRow!
 881 | 		set /a lastPM=!lastPM! * -1
 882 | 		set /a needChangeDir=0
 883 | 		if "!devMode!"=="1" echo Direction Change>>devOutput.txt
 884 | 	)
 885 | 	
 886 | 	if !directionChanges! EQU 2 (
 887 | 		REM We have changed direction back, and forth, but
 888 | 		REM we haven't switched between horizontal and vertical
 889 | 		REM more than once
 890 | 		REM echo Direction Changes = 2, let's switch our hitDir
 891 | 		set /a directionChanges+=1
 892 | 		set /a lastCheckRow=!lastRow!
 893 | 		set /a lastCheckCol=!lastCol!
 894 | 		if "!hitDir!"=="2" (
 895 | 			set /a hitDir=1
 896 | 		) else if "!hitDir!"=="1" (
 897 | 			set /a hitDir=2
 898 | 		)
 899 | 		set /a lastPM=0
 900 | 	) else if "!directionChanges!"=="5" (
 901 | 		REM We've tried to go left right, up and down with no
 902 | 		REM success, let's randomize!
 903 | 		if "!devMode!"=="1" echo Switch to random>>devOutput.txt
 904 | 		call :setLast -1 -1
 905 | 		set /a guesses=0
 906 | 		set /a hitDir=0
 907 | 		set /a lastPM=0
 908 | 		set /a directionChanges=0
 909 | 		goto cpu1Turn
 910 | 	)
 911 | 	
 912 | 	REM Let's set up our plusMin variable to decide whether
 913 | 	REM we add or subtract 1 from our current setup.
 914 | 	if "!plusMin!"=="0" (
 915 | 		call :getRandom Du plusMin 3 2
 916 | 		if "!lastPM!"=="0" (
 917 | 			set /a lastPM=!plusMin!
 918 | 		)
 919 | 	)
 920 | 	if "!hitDir!"=="0" (
 921 | 		REM We haven't decided what direction
 922 | 		REM we need to go to hit some more.
 923 | 		call :getRandom hitDir Du 2 0
 924 | 	)
 925 | 	if "!hitDir!"=="2" (
 926 | 		REM Horizontal Hit
 927 | 		if "!lastPM!"=="0" (
 928 | 			REM we haven't documented our last
 929 | 			REM plusMin variable.  I think we should
 930 | 			REM always move in 1s
 931 | 			set /a lastPM=!plusMin!
 932 | 			set /a rCol=!plusMin!
 933 | 		) else (
 934 | 			REM Our plusMin variable is defined,
 935 | 			REM let's add it to our rRow (which should be
 936 | 			REM 0 at the moment)
 937 | 			set /a rCol=!lastPM!
 938 | 		)
 939 | 	) else (
 940 | 		REM Vertical Hit
 941 | 		if "!lastPM!"=="0" (
 942 | 			REM Same deal as before, but with colums.
 943 | 			set /a lastPM=!plusMin!
 944 | 			set /a rRow=!plusMin!
 945 | 		) else (
 946 | 			set /a rRow=!lastPM!
 947 | 		)
 948 | 	)
 949 | 	
 950 | 	REM This is the problem section here...
 951 | 	REM This shit doesn't want to play nice haha
 952 | 	if NOT "!lastCheckCol!"=="-1" (
 953 | 		set /a ranCol=!lastCheckCol!+!rCol!
 954 | 		if "!lastCheckRow!"=="0" (
 955 | 			set /a ranRow=10+!rRow!
 956 | 		) else (
 957 | 			set /a ranRow=!lastCheckRow!+!rRow!
 958 | 		)
 959 | 	) else (
 960 | 		set /a ranCol=!lastCol!+!rCol!
 961 | 		if "!lastRow!"=="0" (
 962 | 			set /a ranRow=10+!rRow!
 963 | 		) else (
 964 | 			set /a ranRow=!lastRow!+!rRow!
 965 | 		)
 966 | 	)
 967 | 	
 968 | 	REM set /a rRow-=!plusMin!
 969 | 	REM set /a rCol-=!plusMin!
 970 | 	if "!devMode!"=="1" (
 971 | 		echo Guesses: !guesses! 
 972 | 		echo Change in Row-Col: !rRow! !rCol! 
 973 | 		echo PlusMin: !plusMin! 
 974 | 		echo uD: "!uD!" 
 975 | 		echo LastPM: "!lastPM!" 
 976 | 		echo Direction Changes: !directionChanges!
 977 | 		echo HitDir: "!hitDir!"
 978 | 		echo LastCheckRow: !lastCheckRow! LastCheckCol: !lastCheckCol!
 979 | 		echo LastRow: !lastRow! LastCol: !lastCol!
 980 | 		echo.
 981 | 		echo RanRow: !ranRow! RanCol: !ranCol!
 982 | 		echo Direction Changes: !directionChanges!>>devOutput.txt
 983 | 		echo HitDir: !hitDir!>>devOutput.txt
 984 | 		echo LastPM: !lastPM!>>devOutput.txt
 985 | 		pause
 986 | 	)
 987 | 	if !ranRow!==0 set /a ranRow=-1
 988 | 	if !ranRow!==10 set /a ranRow=0
 989 | 	
 990 | 	REM echo !lastRow!-!ranRow! !lastCol!-!ranCol!
 991 | 	
 992 | ) else (
 993 | 	REM Let's generate 2 random numbers, then set shit up
 994 | 	set /a directionChanges=0
 995 | 	set /a needChangeDir=0
 996 | 	set /a lastPM=0
 997 | 	set /a plusMin=0
 998 | 	call :getRandom ranCol ranRow 10 1
 999 | 	REM set /a ranRow=9
1000 | 	REM set /a ranCol=2
1001 | )
1002 | 	if !ranRow! GTR 9 (
1003 | 		REM Change direction
1004 | 		set /a needChangeDir+=1
1005 | 		if "!devMode!"=="1" echo !ranRow! !ranCol! Out of bounds - RowMax>> devOutput.txt
1006 | 		goto cpu1Turn
1007 | 	)
1008 | 	if !ranRow! LSS 0 (
1009 | 		set /a needChangeDir+=1
1010 | 		if "!devMode!"=="1" echo !ranRow! !ranCol! Out of bounds - RowMin>> devOutput.txt
1011 | 		goto cpu1Turn
1012 | 	)
1013 | 	if !ranCol! GTR 10 (
1014 | 		set /a needChangeDir+=1
1015 | 		if "!devMode!"=="1" echo !ranRow! !ranCol! Out of bounds - ColMax>> devOutput.txt
1016 | 		goto cpu1Turn
1017 | 	)
1018 | 	if !ranCol! LSS 1 (
1019 | 		set /a needChangeDir+=1
1020 | 		if "!devMode!"=="1" echo !ranRow! !ranCol! Out of bounds - ColMin>> devOutput.txt
1021 | 		goto cpu1Turn
1022 | 	)
1023 | 
1024 | call :checkShot "Player1" !ranCol! !ranRow! outCome
1025 | 	
1026 | if !outCome! EQU -1 (
1027 | 	REM We shot at an area we already missed
1028 | 	if "!devMode!"=="1" echo !ranRow! !ranCol! Shot - Already Missed>> devOutput.txt
1029 | 	set /a ranRow=-1
1030 | 	set /a ranCol=-1
1031 | 	set /a needChangeDir+=1
1032 | 	goto cpu1Turn
1033 | )
1034 | if !outCome! EQU -2 (
1035 | 	REM We shot at an area we already hit
1036 | 	if "!devMode!"=="1" echo !ranRow! !ranCol! Shot - Already Hit>> devOutput.txt
1037 | 	set /a lastCheckCol=!ranCol!
1038 | 	set /a lastCheckRow=!ranRow!
1039 | 	goto cpu1Turn
1040 | )
1041 | set /a numShots+=1
1042 | if "!noWait!"=="0" cscript //nologo //E:jscript !thisScript! "500"
1043 | 
1044 | if !outCome! EQU 0 (
1045 | 	call :missAnimation
1046 | 	set /a guesses=0
1047 | 	if "!devMode!"=="1" echo !ranRow! !ranCol! Shot - Miss>> devOutput.txt
1048 | 	REM Flip Direction if necessary
1049 | 	set /a ranRow=!lastCheckRow!
1050 | 	set /a ranCol=!lastCheckCol!
1051 | 	set /a needChangeDir+=1
1052 | 	if "!numPlayers!"=="2" (
1053 | 		set "lastTurn=CPU1 missed"
1054 | 	) else (	
1055 | 		set "lastTurn=CPU missed"
1056 | 	)
1057 | )
1058 | if !outCome! EQU 1 (
1059 | 	call :hitAnimation
1060 | 	if "!devMode!"=="1" echo !ranRow! !ranCol! Shot - Hit>> devOutput.txt
1061 | 	set /a guesses=0
1062 | 	set /a lastCheckCol=!ranCol!
1063 | 	set /a lastCheckRow=!ranRow!
1064 | 	if NOT "!lastRow!"=="-1" (
1065 | 		if NOT !lastRow! EQU !ranRow! (
1066 | 			REM Horiz Hit
1067 | 			set /a hitDir=1
1068 | 			REM set /a lastPM=!ranRow!-!lastRow!
1069 | 		) else (
1070 | 			REM Vert Hit
1071 | 			set /a hitDir=2
1072 | 			REM set /a lastPM=!ranCol!-!lastCol!
1073 | 		)
1074 | 	)
1075 | 	set /a lastCol=!ranCol!
1076 | 	set /a lastRow=!ranRow!
1077 | 	if "!numPlayers!"=="2" (
1078 | 		set "lastTurn=CPU1 hit one of CPU2's ships"
1079 | 	) else (
1080 | 		set "lastTurn=CPU hit one of Player 1's ships"
1081 | 	)
1082 | 	REM call :setLast !ranRow! !ranCol!
1083 | )
1084 | if !outCome! GTR 1 (
1085 | 	call :sunkAnimation
1086 | 	if "!devMode!"=="1" echo !ranRow! !ranCol! Shot - Sunk>> devOutput.txt
1087 | 	call :setLast -1 -1
1088 | 	set /a guesses=0
1089 | 	set /a hitDir=0
1090 | 	set /a lastPM=0
1091 | 	set /a directionChanges=0
1092 | 	set /a needChangeDir=0
1093 | 	if "!numPlayers!"=="2" (
1094 | 		set "lastTurn=CPU1 sunk one of CPU2's ships"
1095 | 	) else (
1096 | 		set "lastTurn=CPU sunk one of Player 1's ships"
1097 | 	)
1098 | 	set /a theSum=!p1Ca!+!p1Ba!+!p1Cr!+!p1Su!+!p1De!
1099 | 	if "!numPlayers!"=="2" (
1100 | 		if !theSum! GEQ 17 goto cpu1Victory
1101 | 	) else (
1102 | 		if !theSum! GEQ 17 goto cpuVictory
1103 | 	)
1104 | )
1105 | if "!numPlayers!"=="2" (
1106 | 	set currentCPU=CPU2
1107 | 	goto nextCPU
1108 | ) else (
1109 | 	goto p1Turn
1110 | )
1111 | 
1112 | :cpu2Turn
1113 | cls
1114 | echo.
1115 | echo Calculating...
1116 | set /a guessesa=!guessesa!+1
1117 | REM Let's see if our last shot hit...
1118 | if !lastRowa! GTR -1 (
1119 | 	REM we had a hit last time!
1120 | 	
1121 | 	REM Let's write this out a bit... AI time kids!!
1122 | 	REM So we have hit a spot, and we want to continue hitting
1123 | 	REM targets, so our goal is to try and move left/right or up/down
1124 | 	REM and see if we hit anything.  If no success, try the other side
1125 | 	REM and again, if no success, then we switch directions
1126 | 	
1127 | 	set /a plusMina=0
1128 | 	set /a rCola=0
1129 | 	set /a rRowa=0
1130 | 	set /a uDa=0
1131 | 	
1132 | 	if !needChangeDira! GTR 0 (
1133 | 		set /a directionChangesa+=1
1134 | 		set /a lastCheckCola=!ranCola!
1135 | 		set /a lastCheckRowa=!ranRowa!
1136 | 		set /a lastPMa=!lastPMa! * -1
1137 | 		set /a needChangeDira=0
1138 | 	)
1139 | 	
1140 | 	if !directionChangesa! EQU 2 (
1141 | 		REM We have changed direction back, and forth, but
1142 | 		REM we haven't switched between horizontal and vertical
1143 | 		REM more than once
1144 | 		REM echo Direction Changes = 2, let's switch our hitDir
1145 | 		set /a directionChangesa+=1
1146 | 		set /a lastCheckRowa=!lastRowa!
1147 | 		set /a lastCheckCola=!lastCola!
1148 | 		if "!hitDira!"=="2" (
1149 | 			set /a hitDira=1
1150 | 		) else if "!hitDira!"=="1" (
1151 | 			set /a hitDira=2
1152 | 		)
1153 | 		set /a lastPMa=0
1154 | 	) else if "!directionChangesa!"=="5" (
1155 | 		REM We've tried to go left right, up and down with no
1156 | 		REM success, let's randomize!
1157 | 		REM call :setLast -1 -1
1158 | 		set /a lastCola=-1
1159 | 		set /a lastRowa=-1
1160 | 		set /a guessesa=0
1161 | 		set /a hitDira=0
1162 | 		set /a lastPMa=0
1163 | 		set /a directionChangesa=0
1164 | 		goto cpu2Turn
1165 | 	)
1166 | 	
1167 | 	REM Let's set up our plusMin variable to decide whether
1168 | 	REM we add or subtract 1 from our current setup.
1169 | 	if "!plusMina!"=="0" (
1170 | 		call :getRandom Dua plusMina 3 2
1171 | 		if "!lastPMa!"=="0" (
1172 | 			set /a lastPMa=!plusMina!
1173 | 		)
1174 | 	)
1175 | 	if "!hitDira!"=="0" (
1176 | 		REM We haven't decided what direction
1177 | 		REM we need to go to hit some more.
1178 | 		call :getRandom hitDira Dua 2 0
1179 | 	)
1180 | 	if "!hitDira!"=="2" (
1181 | 		REM Horizontal Hit
1182 | 		if "!lastPMa!"=="0" (
1183 | 			REM we haven't documented our last
1184 | 			REM plusMin variable.  I think we should
1185 | 			REM always move in 1s
1186 | 			set /a lastPMa=!plusMina!
1187 | 			set /a rCola=!plusMina!
1188 | 		) else (
1189 | 			REM Our plusMin variable is defined,
1190 | 			REM let's add it to our rRow (which should be
1191 | 			REM 0 at the moment)
1192 | 			set /a rCola=!lastPMa!
1193 | 		)
1194 | 	) else (
1195 | 		REM Vertical Hit
1196 | 		if "!lastPMa!"=="0" (
1197 | 			REM Same deal as before, but with colums.
1198 | 			set /a lastPMa=!plusMina!
1199 | 			set /a rRowa=!plusMina!
1200 | 		) else (
1201 | 			set /a rRowa=!lastPMa!
1202 | 		)
1203 | 	)
1204 | 	
1205 | 	REM This is the problem section here...
1206 | 	REM This shit doesn't want to play nice haha
1207 | 	if NOT "!lastCheckCola!"=="-1" (
1208 | 		set /a ranCola=!lastCheckCola!+!rCola!
1209 | 		if "!lastCheckRowa!"=="0" (
1210 | 			set /a ranRowa=10+!rRowa!
1211 | 		) else (
1212 | 			set /a ranRowa=!lastCheckRowa!+!rRowa!
1213 | 		)
1214 | 	) else (
1215 | 		set /a ranCola=!lastCola!+!rCola!
1216 | 		if "!lastRowa!"=="0" (
1217 | 			set /a ranRowa=10+!rRowa!
1218 | 		) else (
1219 | 			set /a ranRowa=!lastRowa!+!rRowa!
1220 | 		)
1221 | 	)
1222 | 	
1223 | 	REM set /a rRow-=!plusMin!
1224 | 	REM set /a rCol-=!plusMin!
1225 | 	if "!devMode!"=="1" (
1226 | 		echo CPU2
1227 | 		echo Guesses: !guessesa! 
1228 | 		echo Change in Row-Col: !rRowa! !rCola! 
1229 | 		echo PlusMin: !plusMina! 
1230 | 		echo uD: "!uDa!" 
1231 | 		echo LastPM: "!lastPMa!" 
1232 | 		echo Direction Changes: !directionChangesa!
1233 | 		echo HitDir: "!hitDira!"
1234 | 		echo LastCheckRow: !lastCheckRowa! LastCheckCol: !lastCheckCola!
1235 | 		echo LastRow: !lastRowa! LastCol: !lastCola!
1236 | 		echo.
1237 | 		echo RanRow: !ranRowa! RanCol: !ranCola!
1238 | 		pause
1239 | 	)
1240 | 	if !ranRowa!==0 set /a ranRowa=-1
1241 | 	if !ranRowa!==10 set /a ranRowa=0
1242 | 	
1243 | 	REM echo !lastRow!-!ranRow! !lastCol!-!ranCol!
1244 | 	
1245 | ) else (
1246 | 	REM Let's generate 2 random numbers, then set shit up
1247 | 	set /a directionChangesa=0
1248 | 	set /a needChangeDira=0
1249 | 	set /a lastPMa=0
1250 | 	set /a plusMina=0
1251 | 	call :getRandom ranCola ranRowa 10 1
1252 | 	REM set /a ranRow=9
1253 | 	REM set /a ranCol=2
1254 | )
1255 | 	if !ranRowa! GTR 9 (
1256 | 		REM Change direction
1257 | 		set /a needChangeDira+=1
1258 | 		goto cpu2Turn
1259 | 	)
1260 | 	if !ranRowa! LSS 0 (
1261 | 		set /a needChangeDira+=1
1262 | 		goto cpu2Turn
1263 | 	)
1264 | 	if !ranCola! GTR 10 (
1265 | 		set /a needChangeDira+=1
1266 | 		goto cpu2Turn
1267 | 	)
1268 | 	if !ranCola! LSS 1 (
1269 | 		set /a needChangeDira+=1
1270 | 		goto cpu2Turn
1271 | 	)
1272 | 
1273 | call :checkShot "Player2" !ranCola! !ranRowa! outCome
1274 | 	if "!devMode!"=="1" (
1275 | 		echo Outcome: !outCome!
1276 | 		pause
1277 | 	)
1278 | if !outCome! EQU -1 (
1279 | 	REM We shot at an area we already missed
1280 | 	set /a ranRowa=-1
1281 | 	set /a ranCola=-1
1282 | 	set /a needChangeDira+=1
1283 | 	goto cpu2Turn
1284 | )
1285 | if !outCome! EQU -2 (
1286 | 	REM We shot at an area we already hit
1287 | 	set /a lastCheckCola=!ranCola!
1288 | 	set /a lastCheckRowa=!ranRowa!
1289 | 	goto cpu2Turn
1290 | )
1291 | set /a numShots+=1
1292 | if "!noWait!"=="0" cscript //nologo //E:jscript !thisScript! "500"
1293 | 
1294 | if !outCome! EQU 0 (
1295 | 	call :missAnimation
1296 | 	set /a guessesa=0
1297 | 	REM Flip Direction if necessary
1298 | 	set /a ranRowa=!lastCheckRowa!
1299 | 	set /a ranCola=!lastCheckCola!
1300 | 	set /a needChangeDira+=1
1301 | 	set "lastTurn=CPU2 missed"
1302 | )
1303 | if !outCome! EQU 1 (
1304 | 	call :hitAnimation
1305 | 	set /a guessesa=0
1306 | 	set /a lastCheckCola=!ranCola!
1307 | 	set /a lastCheckRowa=!ranRowa!
1308 | 	if NOT "!lastRowa!"=="-1" (
1309 | 		if NOT !lastRowa! EQU !ranRowa! (
1310 | 			REM Horiz Hit
1311 | 			set /a hitDira=1
1312 | 			REM set /a lastPM=!ranRow!-!lastRow!
1313 | 		) else (
1314 | 			REM Vert Hit
1315 | 			set /a hitDira=2
1316 | 			REM set /a lastPM=!ranCol!-!lastCol!
1317 | 		)
1318 | 	)
1319 | 	set /a lastCola=!ranCola!
1320 | 	set /a lastRowa=!ranRowa!
1321 | 	set "lastTurn=CPU2 hit one of CPU1's ships"
1322 | 
1323 | 	REM call :setLast !ranRow! !ranCol!
1324 | )
1325 | if !outCome! GTR 1 (
1326 | 	call :sunkAnimation
1327 | 	REM call :setLast -1 -1
1328 | 	set /a lastCola=-1
1329 | 	set /a lastRowa=-1
1330 | 	set /a guessesa=0
1331 | 	set /a hitDira=0
1332 | 	set /a lastPMa=0
1333 | 	set /a directionChangesa=0
1334 | 	set /a needChangeDira=0
1335 | 	set "lastTurn=CPU2 sunk one of CPU1's ships"
1336 | 	set /a theSum=!p2Ca!+!p2Ba!+!p2Cr!+!p2Su!+!p2De!
1337 | 	if !theSum! GEQ 17 goto cpu2Victory
1338 | )
1339 | set currentCPU=CPU1
1340 | goto nextCPU
1341 | 	
1342 | :nextCPU
1343 | if "!currentCPU!"=="CPU1" (
1344 | 	REM CPU was set to CPU1 from CPU2, so 
1345 | 	REM let's show CPU1's board.
1346 | 	cls
1347 | 	echo ### CPU2's Last Shot ###
1348 | 	echo.
1349 | 	if NOT "!lastTurn!"=="" (
1350 | 		echo ### !lastTurn! ###
1351 | 	) else (
1352 | 		echo.
1353 | 	)
1354 | 	echo.
1355 | 	call :drawCombat "Player1"
1356 | 	echo.
1357 | 	if "!noWait!"=="0" timeout 5
1358 | 	
1359 | 	cls
1360 | 	echo ### CPU1 Turn ###
1361 | 	echo.
1362 | 	if NOT "!lastTurn!"=="" (
1363 | 		echo ### !lastTurn! ###
1364 | 	) else (
1365 | 		echo.
1366 | 	)
1367 | 	echo.
1368 | 	call :drawCombat "Player2"
1369 | 	echo.
1370 | 	if "!noWait!"=="0" timeout 2
1371 | 	goto cpu1Turn
1372 | ) else (
1373 | 	cls
1374 | 	echo ### CPU1's Last Shot ###
1375 | 	echo.
1376 | 	if NOT "!lastTurn!"=="" (
1377 | 		echo ### !lastTurn! ###
1378 | 	) else (
1379 | 		echo.
1380 | 	)
1381 | 	echo.
1382 | 	call :drawCombat "Player2"
1383 | 	echo.
1384 | 	if "!noWait!"=="0" timeout 5
1385 | 	
1386 | 	cls
1387 | 	echo ### CPU2 Turn ###
1388 | 	echo.
1389 | 	if NOT "!lastTurn!"=="" (
1390 | 		echo ### !lastTurn! ###
1391 | 	) else (
1392 | 		echo.
1393 | 	)
1394 | 	echo.
1395 | 	call :drawCombat "Player1"
1396 | 	echo.
1397 | 	if "!noWait!"=="0" timeout 2
1398 | 	goto cpu2Turn
1399 | )
1400 | goto mainMenu
1401 | 	
1402 | :showGrid "Player2"
1403 | cls
1404 | echo ### Filthy Cheater ###
1405 | echo.
1406 | echo.
1407 | echo.
1408 | call :drawCombat "%~1" "-1"
1409 | echo.
1410 | pause
1411 | if /i "%~1"=="Player2" (
1412 | 	goto p1Turn
1413 | ) else if /i "%~1"=="Player1" (
1414 | 	goto p2Turn
1415 | )
1416 | goto :EOF
1417 | 
1418 | :setLast
1419 | set /a lastRow=%~1
1420 | set /a lastCol=%~2
1421 | goto :EOF
1422 | 
1423 | :getRandom
1424 | set /a %~1=!RANDOM! * %~3 /32768 + 1
1425 | set /a tV=!RANDOM! * %~3 /32768 + 1
1426 | set /a %~2=!tV!-%~4
1427 | goto :EOF
1428 | 
1429 | :getEndTime
1430 | set /a sTime=%~1
1431 | call :getTime %TIME: =0% eTime
1432 | set /a dTime=!eTime!-!sTime!
1433 | set /a hours = !dTime!/3600
1434 | set /a minutes = (!dTime! - !hours!*3600) / 60
1435 | set /a seconds = !dTime! - (!hours!*3600 + !minutes!*60)
1436 | REM echo !hours! !minutes! !seconds! !dTime!
1437 | set "outString="
1438 | if NOT "!hours!" == "0" set "outString=!hours!h "
1439 | if NOT "!minutes!" == "0" set "outString=!outString!!minutes!m "
1440 | if NOT "!seconds!" == "0" set "outString=!outString!!seconds!s "
1441 | set %~2=!outString!
1442 | goto :EOF
1443 | 
1444 | :cpuVictory
1445 | cls
1446 | call :getEndTime !startTime! endTime
1447 | echo ### DEFEAT ###
1448 | echo.
1449 | echo Looks like the computer won in !endTime!after !numShots! shots^!
1450 | echo.
1451 | call :drawOverview
1452 | echo.
1453 | echo Press [enter] to return to main menu...
1454 | set "lastTurn=CPU Defeated Player 1"
1455 | pause > nul
1456 | goto mainMenu
1457 | 
1458 | :cpu1Victory
1459 | cls
1460 | call :getEndTime !startTime! endTime
1461 | echo ### CPU1 Victory ###
1462 | echo.
1463 | echo CPU1 beat CPU2 in !endTime!after !numShots! shots in a fair fight^!
1464 | echo.
1465 | call :drawOverview
1466 | echo.
1467 | echo Press [etner] to return to main menu...
1468 | set "lastTurn=CPU1 Defeated CPU2"
1469 | pause > nul
1470 | goto mainMenu
1471 | 
1472 | :cpu2Victory
1473 | cls
1474 | call :getEndTime !startTime! endTime
1475 | echo ### CPU2 Victory ###
1476 | echo.
1477 | echo CPU2 beat CPU1 in !endTime!after !numShots! shots in a fair fight^!
1478 | echo.
1479 | call :drawOverview
1480 | echo.
1481 | echo Press [etner] to return to main menu...
1482 | set "lastTurn=CPU2 Defeated CPU1"
1483 | pause > nul
1484 | goto mainMenu
1485 | 
1486 | :p1Victory
1487 | cls
1488 | call :getEndTime !startTime! endTime
1489 | echo ### VICTORY ###
1490 | echo.
1491 | echo Player 1 was victorious in !endTime!after !numShots! shots^!
1492 | echo.
1493 | call :drawOverview
1494 | echo.
1495 | echo Press [enter] to return to main menu...
1496 | if "!numPlayers!"=="1" (
1497 | 	set "lastTurn=Player 1 Defeated CPU"
1498 | ) else (
1499 | 	set "lastTurn=Player 1 Defeated Player 2"
1500 | )
1501 | pause > nul
1502 | goto mainMenu
1503 | 
1504 | :p2Victory
1505 | cls
1506 | call :getEndTime !startTime! endTime
1507 | echo ### VICTORY ###
1508 | echo.
1509 | echo Player 2 was victorious in !endTime!after !numShots! shots^!
1510 | echo.
1511 | call :drawOverview
1512 | echo.
1513 | echo Press [enter] to return to main menu...
1514 | set "lastTurn=Player 2 Defeated Player 1"
1515 | pause > nul
1516 | goto mainMenu
1517 | 
1518 | :checkShot
1519 | REM echo Checking Shot
1520 | REM echo %~1 %~2 %~3
1521 | REM pause
1522 | if "%~1"=="Player1" (
1523 | 	set row=!p1Layout[%~3]!
1524 | 	set row2=!p2Shots[%~3]!
1525 | 	REM echo !row!
1526 | 
1527 | 	set /a numcheck=%~2*2-2
1528 | 	call :charFromRow !numCheck! "!row!" tChar
1529 | 	REM echo !tChar!
1530 | 	if !numcheck! GTR 0 set /a numcheck-=1
1531 | 
1532 | 	if "!tChar!"=="+" (
1533 | 		set /a %~4=0
1534 | 		call :buildRow "!row!" !numcheck! "*" res
1535 | 		call :setP1Row %~3 "!res!"
1536 | 		call :buildRow "!row2!" !numcheck! "*" res
1537 | 		call :setP2Shots %~3 "!res!"
1538 | 	) else if "!tChar!"=="C" (
1539 | 		set /a p1Ca+=1
1540 | 		if !p1Ca! GEQ 5 (
1541 | 			set /a %~4=2
1542 | 		) else (
1543 | 			set /a %~4=1
1544 | 		)
1545 | 		call :buildRow "!row!" !numcheck! "X" res
1546 | 		call :setP1Row %~3 "!res!"
1547 | 		call :buildRow "!row2!" !numcheck! "X" res
1548 | 		call :setP2Shots %~3 "!res!"
1549 | 	) else if "!tChar!"=="B" (
1550 | 		set /a p1Ba+=1
1551 | 		if !p1Ba! GEQ 4 (
1552 | 			set /a %~4=3
1553 | 		) else (
1554 | 			set /a %~4=1
1555 | 		)
1556 | 		call :buildRow "!row!" !numcheck! "X" res
1557 | 		call :setP1Row %~3 "!res!"
1558 | 		call :buildRow "!row2!" !numcheck! "X" res
1559 | 		call :setP2Shots %~3 "!res!"
1560 | 	) else if "!tChar!"=="c" (
1561 | 		set /a p1Cr+=1
1562 | 		if !p1Cr! GEQ 3 (
1563 | 			set /a %~4=4
1564 | 		) else (
1565 | 			set /a %~4=1
1566 | 		)
1567 | 		call :buildRow "!row!" !numcheck! "X" res
1568 | 		call :setP1Row %~3 "!res!"
1569 | 		call :buildRow "!row2!" !numcheck! "X" res
1570 | 		call :setP2Shots %~3 "!res!"
1571 | 	) else if "!tChar!"=="S" (
1572 | 		set /a p1Su+=1
1573 | 		if !p1Su! GEQ 3 (
1574 | 			set /a %~4=5
1575 | 		) else (
1576 | 			set /a %~4=1
1577 | 		)
1578 | 		call :buildRow "!row!" !numcheck! "X" res
1579 | 		call :setP1Row %~3 "!res!"
1580 | 		call :buildRow "!row2!" !numcheck! "X" res
1581 | 		call :setP2Shots %~3 "!res!"
1582 | 	) else if "!tChar!"=="D" (
1583 | 		set /a p1De+=1
1584 | 		if !p1De! GEQ 2 (
1585 | 			set /a %~4=6
1586 | 		) else (
1587 | 			set /a %~4=1
1588 | 		)
1589 | 		call :buildRow "!row!" !numcheck! "X" res
1590 | 		call :setP1Row %~3 "!res!"
1591 | 		call :buildRow "!row2!" !numcheck! "X" res
1592 | 		call :setP2Shots %~3 "!res!"
1593 | 	) else if "!tChar!"=="*" (
1594 | 		set /a %~4=-1
1595 | 	) else (
1596 | 		set /a %~4=-2
1597 | 	)
1598 | 	
1599 | 
1600 | ) else if "%~1"=="Player2" (
1601 | 	set row=!p2Layout[%~3]!
1602 | 	set row2=!p1Shots[%~3]!
1603 | 	REM echo !row!
1604 | 
1605 | 	set /a numcheck=%~2*2-2
1606 | 	call :charFromRow !numCheck! "!row!" tChar
1607 | 	REM echo !tChar!
1608 | 	if !numcheck! GTR 0 set /a numcheck-=1
1609 | 
1610 | 	if "!tChar!"=="+" (
1611 | 		set /a %~4=0
1612 | 		call :buildRow "!row!" !numcheck! "*" res
1613 | 		call :setP2Row %~3 "!res!"
1614 | 		call :buildRow "!row2!" !numcheck! "*" res
1615 | 		call :setP1Shots %~3 "!res!"
1616 | 	) else if "!tChar!"=="C" (
1617 | 		set /a p2Ca+=1
1618 | 		if !p2Ca! GEQ 5 (
1619 | 			set /a %~4=2
1620 | 		) else (
1621 | 			set /a %~4=1
1622 | 		)
1623 | 		call :buildRow "!row!" !numcheck! "X" res
1624 | 		call :setP2Row %~3 "!res!"
1625 | 		call :buildRow "!row2!" !numcheck! "X" res
1626 | 		call :setP1Shots %~3 "!res!"
1627 | 	) else if "!tChar!"=="B" (
1628 | 		set /a p2Ba+=1
1629 | 		if !p2Ba! GEQ 4 (
1630 | 			set /a %~4=3
1631 | 		) else (
1632 | 			set /a %~4=1
1633 | 		)
1634 | 		call :buildRow "!row!" !numcheck! "X" res
1635 | 		call :setP2Row %~3 "!res!"
1636 | 		call :buildRow "!row2!" !numcheck! "X" res
1637 | 		call :setP1Shots %~3 "!res!"
1638 | 	) else if "!tChar!"=="c" (
1639 | 		set /a p2Cr+=1
1640 | 		if !p2Cr! GEQ 3 (
1641 | 			set /a %~4=4
1642 | 		) else (
1643 | 			set /a %~4=1
1644 | 		)
1645 | 		call :buildRow "!row!" !numcheck! "X" res
1646 | 		call :setP2Row %~3 "!res!"
1647 | 		call :buildRow "!row2!" !numcheck! "X" res
1648 | 		call :setP1Shots %~3 "!res!"
1649 | 	) else if "!tChar!"=="S" (
1650 | 		set /a p2Su+=1
1651 | 		if !p2Su! GEQ 3 (
1652 | 			set /a %~4=5
1653 | 		) else (
1654 | 			set /a %~4=1
1655 | 		)
1656 | 		call :buildRow "!row!" !numcheck! "X" res
1657 | 		call :setP2Row %~3 "!res!"
1658 | 		call :buildRow "!row2!" !numcheck! "X" res
1659 | 		call :setP1Shots %~3 "!res!"
1660 | 	) else if "!tChar!"=="D" (
1661 | 		set /a p2De+=1
1662 | 		if !p2De! GEQ 2 (
1663 | 			set /a %~4=6
1664 | 		) else (
1665 | 			set /a %~4=1
1666 | 		)
1667 | 		call :buildRow "!row!" !numcheck! "X" res
1668 | 		call :setP2Row %~3 "!res!"
1669 | 		call :buildRow "!row2!" !numcheck! "X" res
1670 | 		call :setP1Shots %~3 "!res!"
1671 | 	) else if "!tChar!"=="*" (
1672 | 		set /a %~4=-1
1673 | 	) else (
1674 | 		set /a %~4=-2
1675 | 	)
1676 | 
1677 | )
1678 | goto :EOF
1679 | 
1680 | :charFromRow
1681 | set rRow=%~2
1682 | set rInd=%~1
1683 | set %~3=!rRow:~%~1,1!
1684 | goto :EOF
1685 | 
1686 | REM Ther are still some (A lot of) generating errors with this function
1687 | :cpuPickShip
1688 | if "!toQuit!"=="1" goto quit
1689 | set ship=%~1
1690 | set /a len=%~2
1691 | set ident=%~3
1692 | 
1693 | set "playName=%~4"
1694 | 
1695 | call :getRandom carCol carInd 10 0
1696 | call :getRandom ranDir nope 4 0
1697 | REM set /a carCol=!RANDOM! * 10 / 32768
1698 | REM set /a carInd=!RANDOM! * 10 / 32768
1699 | REM set /a ranDir=!RANDOM! * 4 / 32768
1700 | 
1701 | set /a carInd=!carInd!-1
1702 | 
1703 | call :getCPUDir !ranDir! carDir
1704 | set /a shipLen=!len!+1
1705 | 
1706 | REM echo !ship! !len! !ident! !carCol! !carInd! !carDir! !shipLen!
1707 | 
1708 | if %carInd%==0 (
1709 | 	set carCheck=10
1710 | ) else (
1711 | 	set carCheck=%carInd%
1712 | )
1713 | 
1714 | REM pause
1715 | 
1716 | if /i "!carDir!"=="r" (
1717 | 	set /a card=!carCol!+!len!
1718 | 	if 10 LSS !card! goto cpuPickShip
1719 | ) else if /i "!carDir!"=="l" (
1720 | 	set /a card=!carCol!-!len!
1721 | 	if 1 GTR !card! goto cpuPickShip
1722 | ) else if /i "!carDir!"=="d" (
1723 | 	set /a card=!carCheck!+!len!
1724 | 	if 10 LSS !card! goto cpuPickShip
1725 | ) else if /i "!carDir!"=="u" (
1726 | 	set /a card=!carCheck!-!len!
1727 | 	if 1 GTR !card! goto cpuPickShip
1728 | ) else (
1729 | 		goto cpuPickShip
1730 | )
1731 | 
1732 | set err=0
1733 | if "!playName!"=="Player1" (
1734 | 	call :p1PlaceShip !ident! !carInd! !carCol! !carDir! !len! err
1735 | ) else if "!playName!"=="Player2" (
1736 | 	call :p2PlaceShip !ident! !carInd! !carCol! !carDir! !len! err
1737 | ) else (
1738 | 	call :p2PlaceShip !ident! !carInd! !carCol! !carDir! !len! err
1739 | )
1740 | if "%err%"=="1" goto cpuPickShip
1741 | goto :EOF
1742 | 
1743 | 
1744 | :p1PickShip
1745 | if "!toQuit!"=="1" goto quit
1746 | set ship=%~1
1747 | set /a len=%~2
1748 | set ident=%~3
1749 | 
1750 | cls
1751 | set carr=
1752 | set carDir=
1753 | echo ### %numPlayers% Player Game ###
1754 | echo Player 1, Please select a row^/column for your
1755 | echo.
1756 | set /a shipLen=!len!+1
1757 | call :displayShip !ship! !shipLen!
1758 | echo.
1759 | call :drawLayout "Player1"
1760 | echo.
1761 | if "!theErr!"=="" (
1762 | 	echo.
1763 | ) else (
1764 | 	echo !theErr!
1765 | )
1766 | set /p carr="Position (A1, B7, C9 type formatting):  "
1767 | 
1768 | if /i "!carr!"=="random" (
1769 | 	set /a p1Random=1
1770 | 	if "!numPlayers!"=="1" (
1771 | 		goto player
1772 | 	) else (
1773 | 		goto players
1774 | 	)
1775 | )
1776 | 
1777 | if "%carr%"=="" (
1778 | 	set "theErr=### Invalid Position ###"
1779 | 	goto p1PickShip
1780 | )
1781 | set carRow=%carr:~0,1%
1782 | set carCol=%carr:~1,2%
1783 | 
1784 | if "!carCol!"=="" (
1785 | 	set "theErr=### Invalid Position ###"
1786 | 	goto p1PickShip
1787 | )
1788 | 
1789 | call :getNumFromLet %carRow% carInd
1790 | 
1791 | if %carCol% GTR 10 (
1792 | 	set "theErr=### Invalid Position ###"
1793 | 	goto p1PickShip
1794 | )
1795 | if %carCol% LSS 1 (
1796 | 	set "theErr=### Invalid Position ###"
1797 | 	goto p1PickShip
1798 | )
1799 | if %carInd%==-1 (
1800 | 	set "theErr=### Invalid Position ###"
1801 | 	goto p1PickShip
1802 | )
1803 | 
1804 | if %carInd%==0 (
1805 | 	set carCheck=10
1806 | ) else (
1807 | 	set carCheck=%carInd%
1808 | )
1809 | set theErr=
1810 | 
1811 | cls
1812 | echo ### %numPlayers% Player Game ###
1813 | echo Player 1, Please select the direction for your
1814 | echo.
1815 | call :displayShip %ship% !shipLen!
1816 | echo.
1817 | call :drawLayout "Player1"
1818 | echo.
1819 | if "!theErr!"=="" (
1820 | 	echo.
1821 | ) else (
1822 | 	echo !theErr!
1823 | )
1824 | set /p carDir="Direction (U-Up, D-Down, L-Left, R-Right):  "
1825 | 
1826 | if /i %carDir%==r (
1827 | 	set /a card=%carCol%+%len%
1828 | 	if 10 LSS !card! (
1829 | 		set "theErr=### Not Enough Space ###"
1830 | 		goto p1PickShip
1831 | 	)
1832 | ) else if /i %carDir%==l (
1833 | 	set /a card=%carCol%-%len%
1834 | 	if 1 GTR !card! (
1835 | 		set "theErr=### Not Enough Space ###"
1836 | 		goto p1PickShip
1837 | 	)
1838 | ) else if /i %carDir%==u (
1839 | 	set /a card=%carCheck%+%len%
1840 | 	if 10 LSS !card! (
1841 | 		set "theErr=### Not Enough Space ###"
1842 | 		goto p1PickShip
1843 | 	)
1844 | ) else if /i %carDir%==d (
1845 | 	set /a card=%carCheck%-%len%
1846 | 	if 1 GTR !card! (
1847 | 		set "theErr=### Not Enough Space ###"
1848 | 		goto p1PickShip
1849 | 	)
1850 | ) else (
1851 | 	set "theErr=### Invalid Direction ###"
1852 | 	goto p1PickShip
1853 | )
1854 | 
1855 | REM echo All vars: %ident% %carInd% %carCol% %carDir% %len%
1856 | REM pause
1857 | 
1858 | set err=0
1859 | call :p1PlaceShip !ident! !carInd! !carCol! !carDir! !len! err
1860 | if "%err%"=="1" (
1861 | 	set "theErr=### Intersects Ship ###"
1862 | 	goto p1PickShip
1863 | )
1864 | 	
1865 | goto :EOF
1866 | 
1867 | :p2PickShip
1868 | if "!toQuit!"=="1" goto quit
1869 | set ship=%~1
1870 | set /a len=%~2
1871 | set ident=%~3
1872 | 
1873 | cls
1874 | set carr=
1875 | set carDir=
1876 | echo ### %numPlayers% Player Game ###
1877 | echo Player 2, Please select a row^/column for your
1878 | echo.
1879 | set /a shipLen=!len!+1
1880 | call :displayShip !ship! !shipLen!
1881 | echo.
1882 | call :drawLayout "Player2"
1883 | echo.
1884 | if "!theErr!"=="" (
1885 | 	echo.
1886 | ) else (
1887 | 	echo !theErr!
1888 | )
1889 | set /p carr="Position (A1, B7, C9 type formatting):  "
1890 | 
1891 | if /i "!carr!"=="random" (
1892 | 	set /a p2Random=1
1893 | 	goto player2
1894 | )
1895 | 
1896 | if "%carr%"=="" (
1897 | 	set "theErr=### Invalid Position ###"
1898 | 	goto p2PickShip
1899 | )
1900 | set carRow=%carr:~0,1%
1901 | set carCol=%carr:~1,2%
1902 | 
1903 | if "!carCol!"=="" (
1904 | 	set "theErr=### Invalid Position ###"
1905 | 	goto p2PickShip
1906 | )
1907 | 
1908 | call :getNumFromLet %carRow% carInd
1909 | 
1910 | if %carCol% GTR 10 (
1911 | 	set "theErr=### Invalid Position ###"
1912 | 	goto p2PickShip
1913 | )
1914 | if %carCol% LSS 1 (
1915 | 	set "theErr=### Invalid Position ###"
1916 | 	goto p2PickShip
1917 | )
1918 | if %carInd%==-1 (
1919 | 	set "theErr=### Invalid Position ###"
1920 | 	goto p2PickShip
1921 | )
1922 | 
1923 | if %carInd%==0 (
1924 | 	set carCheck=10
1925 | ) else (
1926 | 	set carCheck=%carInd%
1927 | )
1928 | set theErr=
1929 | 
1930 | cls
1931 | echo ### %numPlayers% Player Game ###
1932 | echo Player 2, Please select the direction for your
1933 | echo.
1934 | call :displayShip %ship% !shipLen!
1935 | echo.
1936 | call :drawLayout "Player2"
1937 | echo.
1938 | if "!theErr!"=="" (
1939 | 	echo.
1940 | ) else (
1941 | 	echo !theErr!
1942 | )
1943 | set /p carDir="Direction (U-Up, D-Down, L-Left, R-Right):  "
1944 | 
1945 | if /i %carDir%==r (
1946 | 	set /a card=%carCol%+%len%
1947 | 	if 10 LSS !card! (
1948 | 		set "theErr=### Not Enough Space ###"
1949 | 		goto p2PickShip
1950 | 	)
1951 | ) else if /i %carDir%==l (
1952 | 	set /a card=%carCol%-%len%
1953 | 	if 1 GTR !card! (
1954 | 		set "theErr=### Not Enough Space ###"
1955 | 		goto p2PickShip
1956 | 	)
1957 | ) else if /i %carDir%==u (
1958 | 	set /a card=%carCheck%+%len%
1959 | 	if 10 LSS !card! (
1960 | 		set "theErr=### Not Enough Space ###"
1961 | 		goto p2PickShip
1962 | 	)
1963 | ) else if /i %carDir%==d (
1964 | 	set /a card=%carCheck%-%len%
1965 | 	if 1 GTR !card! (
1966 | 		set "theErr=### Not Enough Space ###"
1967 | 		goto p2PickShip
1968 | 	)
1969 | ) else (
1970 | 	set "theErr=### Invalid Direction ###"
1971 | 	goto p2PickShip
1972 | )
1973 | 
1974 | REM echo All vars: %ident% %carInd% %carCol% %carDir% %len%
1975 | REM pause
1976 | 
1977 | set err=0
1978 | call :p2PlaceShip !ident! !carInd! !carCol! !carDir! !len! err
1979 | if "%err%"=="1" (
1980 | 	set "theErr=### Intersects Ship ###"
1981 | 	goto p2PickShip
1982 | )
1983 | 	
1984 | goto :EOF
1985 | 
1986 | :initializeLayout
1987 | set "%~1[1]=+ + + + + + + + + + "
1988 | set "%~1[2]=+ + + + + + + + + + "
1989 | set "%~1[3]=+ + + + + + + + + + "
1990 | set "%~1[4]=+ + + + + + + + + + "
1991 | set "%~1[5]=+ + + + + + + + + + "
1992 | set "%~1[6]=+ + + + + + + + + + "
1993 | set "%~1[7]=+ + + + + + + + + + "
1994 | set "%~1[8]=+ + + + + + + + + + "
1995 | set "%~1[9]=+ + + + + + + + + + "
1996 | set "%~1[0]=+ + + + + + + + + + "
1997 | goto :EOF
1998 | 
1999 | :drawLayout
2000 | set var=%~1
2001 | if "%var%"=="Player1" (
2002 | 	echo     1 2 3 4 5 6 7 8 9 10
2003 | 	echo    ---------------------
2004 | 	echo(A ^| %p1Layout[1]%^|
2005 | 	echo(B ^| %p1Layout[2]%^|
2006 | 	echo(C ^| %p1Layout[3]%^|
2007 | 	echo(D ^| %p1Layout[4]%^|
2008 | 	echo(E ^| %p1Layout[5]%^|
2009 | 	echo(F ^| %p1Layout[6]%^|
2010 | 	echo(G ^| %p1Layout[7]%^|
2011 | 	echo(H ^| !p1Layout[8]!^|
2012 | 	echo(I ^| !p1Layout[9]!^|
2013 | 	echo(J ^| !p1Layout[0]!^|
2014 | 	echo    ---------------------
2015 | )
2016 | if "%var%"=="Player2" (
2017 | 	echo     1 2 3 4 5 6 7 8 9 10
2018 | 	echo    ---------------------
2019 | 	echo(A ^| %p2Layout[1]%^|
2020 | 	echo(B ^| %p2Layout[2]%^|
2021 | 	echo(C ^| %p2Layout[3]%^|
2022 | 	echo(D ^| %p2Layout[4]%^|
2023 | 	echo(E ^| %p2Layout[5]%^|
2024 | 	echo(F ^| %p2Layout[6]%^|
2025 | 	echo(G ^| %p2Layout[7]%^|
2026 | 	echo(H ^| !p2Layout[8]!^|
2027 | 	echo(I ^| !p2Layout[9]!^|
2028 | 	echo(J ^| !p2Layout[0]!^|
2029 | 	echo    ---------------------
2030 | )
2031 | goto :EOF
2032 | 
2033 | :drawCombat
2034 | set var=%~1
2035 | if "%var%"=="Player1" (
2036 | 	if "%~2"=="-1" (
2037 | 		echo          Your Enemy                    Your Ships           Shots Fired: !numShots!
2038 | 	) else (
2039 | 		echo          Your Ships                    Your Enemy           Shots Fired: !numShots!
2040 | 	)
2041 | 	echo     1 2 3 4 5 6 7 8 9 10          1 2 3 4 5 6 7 8 9 10
2042 |    	echo    ---------------------         ---------------------
2043 | 	echo(A ^| !p1Layout[1]!^|     A ^| !p1Shots[1]!^|     Legend:
2044 | 	echo(B ^| !p1Layout[2]!^|     B ^| !p1Shots[2]!^|    
2045 | 	echo(C ^| !p1Layout[3]!^|     C ^| !p1Shots[3]!^|     C - Carrier
2046 | 	echo(D ^| !p1Layout[4]!^|     D ^| !p1Shots[4]!^|     B - Battleship
2047 | 	echo(E ^| !p1Layout[5]!^|     E ^| !p1Shots[5]!^|     c - Cruisier
2048 | 	echo(F ^| !p1Layout[6]!^|     F ^| !p1Shots[6]!^|     S - Submarine
2049 | 	echo(G ^| !p1Layout[7]!^|     G ^| !p1Shots[7]!^|     D - Destroyer
2050 | 	echo(H ^| !p1Layout[8]!^|     H ^| !p1Shots[8]!^|     + - Unknown
2051 | 	echo(I ^| !p1Layout[9]!^|     I ^| !p1Shots[9]!^|     * - Missed Shot
2052 | 	echo(J ^| !p1Layout[0]!^|     J ^| !p1Shots[0]!^|     X - Hit Ship
2053 | 	echo    ---------------------         ---------------------
2054 | )
2055 | if "%var%"=="Player2" (
2056 | 	if "%~2"=="-1" (
2057 | 		echo          Your Enemy                    Your Ships           Shots Fired: !numShots!
2058 | 	) else (
2059 | 		echo          Your Ships                    Your Enemy           Shots Fired: !numShots!
2060 | 	)
2061 | 	echo     1 2 3 4 5 6 7 8 9 10          1 2 3 4 5 6 7 8 9 10
2062 |    	echo    ---------------------         ---------------------
2063 | 	echo(A ^| !p2Layout[1]!^|     A ^| !p2Shots[1]!^|     Legend:
2064 | 	echo(B ^| !p2Layout[2]!^|     B ^| !p2Shots[2]!^|    
2065 | 	echo(C ^| !p2Layout[3]!^|     C ^| !p2Shots[3]!^|     C - Carrier
2066 | 	echo(D ^| !p2Layout[4]!^|     D ^| !p2Shots[4]!^|     B - Battleship
2067 | 	echo(E ^| !p2Layout[5]!^|     E ^| !p2Shots[5]!^|     c - Cruisier
2068 | 	echo(F ^| !p2Layout[6]!^|     F ^| !p2Shots[6]!^|     S - Submarine
2069 | 	echo(G ^| !p2Layout[7]!^|     G ^| !p2Shots[7]!^|     D - Destroyer
2070 | 	echo(H ^| !p2Layout[8]!^|     H ^| !p2Shots[8]!^|     + - Unknown
2071 | 	echo(I ^| !p2Layout[9]!^|     I ^| !p2Shots[9]!^|     * - Missed Shot
2072 | 	echo(J ^| !p2Layout[0]!^|     J ^| !p2Shots[0]!^|     X - Hit Ship
2073 | 	echo    ---------------------         ---------------------
2074 | )
2075 | goto :EOF
2076 | 
2077 | :drawOverview
2078 | if !numPlayers! GTR 0 (
2079 | 	if "!numPlayers!"=="1" (
2080 | 		echo           Player 1                        CPU              Shots Fired: !numShots!
2081 | 	echo     1 2 3 4 5 6 7 8 9 10          1 2 3 4 5 6 7 8 9 10
2082 | 	echo    ---------------------         ---------------------
2083 | 	echo(A ^| !p1Layout[1]!^|     A ^| !p2Layout[1]!^|     Legend:
2084 | 	echo(B ^| !p1Layout[2]!^|     B ^| !p2Layout[2]!^|    
2085 | 	echo(C ^| !p1Layout[3]!^|     C ^| !p2Layout[3]!^|     C - Carrier
2086 | 	echo(D ^| !p1Layout[4]!^|     D ^| !p2Layout[4]!^|     B - Battleship
2087 | 	echo(E ^| !p1Layout[5]!^|     E ^| !p2Layout[5]!^|     c - Cruisier
2088 | 	echo(F ^| !p1Layout[6]!^|     F ^| !p2Layout[6]!^|     S - Submarine
2089 | 	echo(G ^| !p1Layout[7]!^|     G ^| !p2Layout[7]!^|     D - Destroyer
2090 | 	echo(H ^| !p1Layout[8]!^|     H ^| !p2Layout[8]!^|     + - Unknown
2091 | 	echo(I ^| !p1Layout[9]!^|     I ^| !p2Layout[9]!^|     * - Missed Shot
2092 | 	echo(J ^| !p1Layout[0]!^|     J ^| !p2Layout[0]!^|     X - Hit Ship
2093 | 	echo    ---------------------         ---------------------
2094 | 	) else (
2095 | 		if "!currentCPU!"=="" (
2096 | 		echo           Player 1                      Player 2           Shots Fired: !numShots!
2097 | 	echo     1 2 3 4 5 6 7 8 9 10          1 2 3 4 5 6 7 8 9 10
2098 | 	echo    ---------------------         ---------------------
2099 | 	echo(A ^| !p1Layout[1]!^|     A ^| !p2Layout[1]!^|     Legend:
2100 | 	echo(B ^| !p1Layout[2]!^|     B ^| !p2Layout[2]!^|    
2101 | 	echo(C ^| !p1Layout[3]!^|     C ^| !p2Layout[3]!^|     C - Carrier
2102 | 	echo(D ^| !p1Layout[4]!^|     D ^| !p2Layout[4]!^|     B - Battleship
2103 | 	echo(E ^| !p1Layout[5]!^|     E ^| !p2Layout[5]!^|     c - Cruisier
2104 | 	echo(F ^| !p1Layout[6]!^|     F ^| !p2Layout[6]!^|     S - Submarine
2105 | 	echo(G ^| !p1Layout[7]!^|     G ^| !p2Layout[7]!^|     D - Destroyer
2106 | 	echo(H ^| !p1Layout[8]!^|     H ^| !p2Layout[8]!^|     + - Unknown
2107 | 	echo(I ^| !p1Layout[9]!^|     I ^| !p2Layout[9]!^|     * - Missed Shot
2108 | 	echo(J ^| !p1Layout[0]!^|     J ^| !p2Layout[0]!^|     X - Hit Ship
2109 | 	echo    ---------------------         ---------------------
2110 | 		) else (
2111 | 		echo            CPU1                          CPU2             Shots Fired: !numShots!
2112 | 	echo     1 2 3 4 5 6 7 8 9 10          1 2 3 4 5 6 7 8 9 10
2113 | 	echo    ---------------------         ---------------------
2114 | 	echo(A ^| !p2Layout[1]!^|     A ^| !p1Layout[1]!^|     Legend:
2115 | 	echo(B ^| !p2Layout[2]!^|     B ^| !p1Layout[2]!^|    
2116 | 	echo(C ^| !p2Layout[3]!^|     C ^| !p1Layout[3]!^|     C - Carrier
2117 | 	echo(D ^| !p2Layout[4]!^|     D ^| !p1Layout[4]!^|     B - Battleship
2118 | 	echo(E ^| !p2Layout[5]!^|     E ^| !p1Layout[5]!^|     c - Cruisier
2119 | 	echo(F ^| !p2Layout[6]!^|     F ^| !p1Layout[6]!^|     S - Submarine
2120 | 	echo(G ^| !p2Layout[7]!^|     G ^| !p1Layout[7]!^|     D - Destroyer
2121 | 	echo(H ^| !p2Layout[8]!^|     H ^| !p1Layout[8]!^|     + - Unknown
2122 | 	echo(I ^| !p2Layout[9]!^|     I ^| !p1Layout[9]!^|     * - Missed Shot
2123 | 	echo(J ^| !p2Layout[0]!^|     J ^| !p1Layout[0]!^|     X - Hit Ship
2124 | 	echo    ---------------------         ---------------------
2125 | 		)
2126 | 	)
2127 | 
2128 | )
2129 | goto :EOF
2130 | 
2131 | :displayShip
2132 | set var=%~1
2133 | if "!var!"=="Carrier" (
2134 | 	echo(!var!: (%~2 Spaces^)
2135 | 	echo(!car1!
2136 | 	echo(!car2!
2137 | 	echo(!car3!
2138 | )
2139 | if "!var!"=="Battleship" (
2140 | 	echo(!var!: (%~2 Spaces^)
2141 | 	echo(!bat1!
2142 | 	echo(!bat2!
2143 | 	echo(!bat3!
2144 | )
2145 | if "!var!"=="Cruiser" (
2146 | 	echo(!var!: (%~2 Spaces^)
2147 | 	echo(!cru1!
2148 | 	echo(!cru2!
2149 | 	echo(!cru3!
2150 | )
2151 | if "!var!"=="Submarine" (
2152 | 	echo(!var!: (%~2 Spaces^)
2153 | 	echo(!sub1!
2154 | 	echo(!sub2!
2155 | 	echo(!sub3!
2156 | )
2157 | if "!var!"=="Destroyer" (
2158 | 	echo(!var!: (%~2 Spaces^)
2159 | 	echo(!des1!
2160 | 	echo(!des2!
2161 | 	echo(!des3!
2162 | )
2163 | goto :EOF
2164 | 
2165 | :getNumFromLet
2166 | set var=%~1
2167 | set %~2=-1
2168 | if /i %var%==a (
2169 | 	set %~2=1
2170 | ) else if /i %var%==b (
2171 | 	set %~2=2
2172 | ) else if /i %var%==c (
2173 | 	set %~2=3
2174 | ) else if /i %var%==d (
2175 | 	set %~2=4
2176 | ) else if /i %var%==e (
2177 | 	set %~2=5
2178 | ) else if /i %var%==f (
2179 | 	set %~2=6
2180 | ) else if /i %var%==g (
2181 | 	set %~2=7
2182 | ) else if /i %var%==h (
2183 | 	set %~2=8
2184 | ) else if /i %var%==i (
2185 | 	set %~2=9
2186 | ) else if /i %var%==j (
2187 | 	set %~2=0
2188 | ) else (
2189 | 	set %~2=-1
2190 | )
2191 | goto :EOF
2192 | 
2193 | :p1PlaceShip
2194 | REM %ident% %carInd% %carCol% %carDir% %len% err 
2195 | set var1=%~1
2196 | set var2=%~2
2197 | if "!var2!"=="0" (
2198 | 	set var2t=10
2199 | ) else (
2200 | 	set var2t=!var2!
2201 | )
2202 | set var3=%~3
2203 | set var4=%~4
2204 | set var5=%~5
2205 | 
2206 | 
2207 | if /i "!var4!"=="u" (
2208 | 	REM Let's build our ship up
2209 | 	for /l %%i in (0, 1, !len!) do (
2210 | 		set /a indvar=!var2t!-%%i
2211 | 		if "!indvar!"=="10" set /a indvar=0
2212 | 		call :getP1Row !indvar! row
2213 | 		call :checkChar !var3! "!row!" cl
2214 | 		if NOT "!cl!"=="1" (
2215 | 			set %~6=1
2216 | 			goto :EOF
2217 | 		)
2218 | 	)
2219 | 
2220 | 	REM We made it this far, that means we're golden, let's write our
2221 | 	REM variables in.
2222 | 
2223 | 	for /l %%i in (0, 1, !len!) do (
2224 | 		set /a indvar=!var2t!-%%i
2225 | 		if "!indvar!"=="10" set /a indvar=0
2226 | 		call :getP1Row !indvar! row2
2227 | 		set /a numcheck=!var3!*2-3
2228 | 		if !numcheck! LSS 0 set /a numcheck=0
2229 | 		call :buildRow "!row2!" !numcheck! !var1! res
2230 | 		call :setP1Row !indvar! "!res!"
2231 | 	)
2232 | ) else if /i "!var4!"=="d" (
2233 | 	REM Let's build our ship down
2234 | 	for /l %%i in (0, 1, !len!) do (
2235 | 		set /a indvar=!var2t!+%%i
2236 | 		if "!indvar!"=="10" set /a indvar=0
2237 | 		call :getP1Row !indvar! row
2238 | 		call :checkChar !var3! "!row!" cl
2239 | 		if NOT "!cl!"=="1" (
2240 | 			set %~6=1
2241 | 			goto :EOF
2242 | 		)
2243 | 	)
2244 | 
2245 | 	REM We made it this far, that means we're golden, let's write our
2246 | 	REM variables in.
2247 | 
2248 | 	for /l %%i in (0, 1, !len!) do (
2249 | 		set /a indvar=!var2t!+%%i
2250 | 		if "!indvar!"=="10" set /a indvar=0
2251 | 		call :getP1Row !indvar! row2
2252 | 		set /a numcheck=!var3!*2-3
2253 | 		if !numcheck! LSS 0 set /a numcheck=0
2254 | 		call :buildRow "!row2!" !numcheck! !var1! res
2255 | 		call :setP1Row !indvar! "!res!"
2256 | 	)
2257 | 
2258 | ) else if /i "!var4!"=="l" (
2259 | 	REM Let's build our ship left
2260 | 	set /a startPoint=!var3!-!len!
2261 | 	call :getP1Row !var2! row
2262 | 	for /l %%i in (!startPoint!, 1, !var3!) do (
2263 | 		call :checkChar %%i "!row!" cl
2264 | 		if NOT "!cl!"=="1" (
2265 | 			set %~6=1
2266 | 			goto :EOF
2267 | 		)
2268 | 	)
2269 | 
2270 | 	REM All clear!	
2271 | 	set newRow=!row!
2272 | 	for /l %%i in (!startPoint!, 1, !var3!) do (
2273 | 		call :autoRow %%i "!newRow!" "!var1!" aRow
2274 | 		REM set /a inde=%%i*2-3
2275 | 		REM set aRow=
2276 | 		REM call :buildRow "!newRow!" !inde! !var1! aRow
2277 | 		set newRow=!aRow!
2278 | 	)
2279 | 	call :setP1Row !var2! "!newRow!"
2280 | 	
2281 | 
2282 | ) else if /i "!var4!"=="r" (
2283 | 	REM Let's build our ship left
2284 | 	set /a endPoint=!var3!+!len!
2285 | 	call :getP1Row !var2! row
2286 | 	for /l %%i in (!var3!, 1, !endPoint!) do (
2287 | 		call :checkChar %%i "!row!" cl
2288 | 		if NOT "!cl!"=="1" (
2289 | 			set %~6=1
2290 | 			goto :EOF
2291 | 		)
2292 | 	)
2293 | 
2294 | 	REM All clear!	
2295 | 	set newRow=!row!
2296 | 	for /l %%i in (!var3!, 1, !endPoint!) do (
2297 | 		call :autoRow %%i "!newRow!" "!var1!" aRow
2298 | 		REM set /a inde=%%i*2-3
2299 | 		REM set aRow=
2300 | 		REM call :buildRow "!newRow!" !inde! !var1! aRow
2301 | 		set newRow=!aRow!
2302 | 	)
2303 | 	call :setP1Row !var2! "!newRow!"
2304 | 
2305 | ) else (
2306 | 	echo Not up
2307 | 	pause
2308 | )
2309 | goto :EOF
2310 | 
2311 | :p2PlaceShip
2312 | REM %ident% %carInd% %carCol% %carDir% %len% err 
2313 | set var1=%~1
2314 | set var2=%~2
2315 | if "!var2!"=="0" (
2316 | 	set var2t=10
2317 | ) else (
2318 | 	set var2t=!var2!
2319 | )
2320 | set var3=%~3
2321 | set var4=%~4
2322 | set var5=%~5
2323 | 
2324 | 
2325 | if /i "!var4!"=="u" (
2326 | 	REM Let's build our ship up
2327 | 	for /l %%i in (0, 1, !len!) do (
2328 | 		set /a indvar=!var2t!-%%i
2329 | 		if "!indvar!"=="10" set /a indvar=0
2330 | 		call :getP2Row !indvar! row
2331 | 		call :checkChar !var3! "!row!" cl
2332 | 		if NOT "!cl!"=="1" (
2333 | 			set %~6=1
2334 | 			goto :EOF
2335 | 		)
2336 | 	)
2337 | 
2338 | 	REM We made it this far, that means we're golden, let's write our
2339 | 	REM variables in.
2340 | 
2341 | 	for /l %%i in (0, 1, !len!) do (
2342 | 		set /a indvar=!var2t!-%%i
2343 | 		if "!indvar!"=="10" set /a indvar=0
2344 | 		call :getP2Row !indvar! row2
2345 | 		set /a numcheck=!var3!*2-3
2346 | 		if !numcheck! LSS 0 set /a numcheck=0
2347 | 		call :buildRow "!row2!" !numcheck! !var1! res
2348 | 		call :setP2Row !indvar! "!res!"
2349 | 	)
2350 | ) else if /i "!var4!"=="d" (
2351 | 	REM Let's build our ship down
2352 | 	for /l %%i in (0, 1, !len!) do (
2353 | 		set /a indvar=!var2t!+%%i
2354 | 		if "!indvar!"=="10" set /a indvar=0
2355 | 		call :getP2Row !indvar! row
2356 | 		call :checkChar !var3! "!row!" cl
2357 | 		if NOT "!cl!"=="1" (
2358 | 			set %~6=1
2359 | 			goto :EOF
2360 | 		)
2361 | 	)
2362 | 
2363 | 	REM We made it this far, that means we're golden, let's write our
2364 | 	REM variables in.
2365 | 
2366 | 	for /l %%i in (0, 1, !len!) do (
2367 | 		set /a indvar=!var2t!+%%i
2368 | 		if "!indvar!"=="10" set /a indvar=0
2369 | 		call :getP2Row !indvar! row2
2370 | 		set /a numcheck=!var3!*2-3
2371 | 		if !numcheck! LSS 0 set /a numcheck=0
2372 | 		call :buildRow "!row2!" !numcheck! !var1! res
2373 | 		call :setP2Row !indvar! "!res!"
2374 | 	)
2375 | 
2376 | ) else if /i "!var4!"=="l" (
2377 | 	REM Let's build our ship left
2378 | 	set /a startPoint=!var3!-!len!
2379 | 	call :getP2Row !var2! row
2380 | 	for /l %%i in (!startPoint!, 1, !var3!) do (
2381 | 		call :checkChar %%i "!row!" cl
2382 | 		if NOT "!cl!"=="1" (
2383 | 			set %~6=1
2384 | 			goto :EOF
2385 | 		)
2386 | 	)
2387 | 
2388 | 	REM All clear!	
2389 | 	set newRow=!row!
2390 | 	for /l %%i in (!startPoint!, 1, !var3!) do (
2391 | 		call :autoRow %%i "!newRow!" "!var1!" aRow
2392 | 		REM set /a inde=%%i*2-3
2393 | 		REM set aRow=
2394 | 		REM call :buildRow "!newRow!" !inde! !var1! aRow
2395 | 		set newRow=!aRow!
2396 | 	)
2397 | 	call :setP2Row !var2! "!newRow!"
2398 | 	
2399 | 
2400 | ) else if /i "!var4!"=="r" (
2401 | 	REM Let's build our ship left
2402 | 	set /a endPoint=!var3!+!len!
2403 | 	call :getP2Row !var2! row
2404 | 	for /l %%i in (!var3!, 1, !endPoint!) do (
2405 | 		call :checkChar %%i "!row!" cl
2406 | 		if NOT "!cl!"=="1" (
2407 | 			set %~6=1
2408 | 			goto :EOF
2409 | 		)
2410 | 	)
2411 | 
2412 | 	REM All clear!	
2413 | 	set newRow=!row!
2414 | 	for /l %%i in (!var3!, 1, !endPoint!) do (
2415 | 		call :autoRow %%i "!newRow!" "!var1!" aRow
2416 | 		REM set /a inde=%%i*2-3
2417 | 		REM if "!inde!"=="-1" set /a inde=0
2418 | 		REM call :buildRow "!newRow!" !inde! !var1! aRow
2419 | 		set newRow=!aRow!
2420 | 	)
2421 | 	call :setP2Row !var2! "!newRow!"
2422 | 
2423 | )
2424 | goto :EOF
2425 | 
2426 | :autoRow %%i "!newRow!" "!var1!" aRow
2427 | set /a inde=%~1*2-3
2428 | if "!inde!"=="-1" set /a inde=0
2429 | set bRow=
2430 | call :buildRow "%~2" "!inde!" "%~3" bRow
2431 | set %~4=!bRow!
2432 | goto :EOF
2433 | 
2434 | :checkChar
2435 | set /a numcheck=%~1*2-2
2436 | set rcheck=%~2
2437 | set ccheck=!rcheck:~%numcheck%,1!
2438 | if "!ccheck!"=="+" (
2439 | 	set %~3=1
2440 | ) else (
2441 | 	set %~3=0
2442 | )
2443 | goto :EOF
2444 | 
2445 | :getCPUDir
2446 | REM set /a ranVar=!RANDOM! * 4 / 32768 + 1
2447 | set /a ranVar=%~1
2448 | REM echo Random !ranVar!
2449 | if "!ranVar!"=="1" set "%~2=u"
2450 | if "!ranVar!"=="2" set "%~2=d"
2451 | if "!ranVar!"=="3" set "%~2=l"
2452 | if "!ranVar!"=="4" set "%~2=r"
2453 | REM echo getP1Row: !theReturn!
2454 | REM set %~2=!theReturn!
2455 | goto :EOF
2456 | 
2457 | :getP1Row
2458 | set elvar=%~1
2459 | set theReturn=!p1Layout[%elvar%]!
2460 | REM echo getP1Row: !theReturn!
2461 | set %~2=!theReturn!
2462 | goto :EOF
2463 | 
2464 | :setP1Row
2465 | set p1Layout[%~1]=%~2
2466 | goto :EOF
2467 | 
2468 | :getP2Row
2469 | set elvar=%~1
2470 | set theReturn=!p2Layout[%elvar%]!
2471 | REM echo getP2Row: !theReturn!
2472 | set %~2=!theReturn!
2473 | goto :EOF
2474 | 
2475 | :setP2Row
2476 | set p2Layout[%~1]=%~2
2477 | goto :EOF
2478 | 
2479 | :setP1Shots
2480 | set p1Shots[%~1]=%~2
2481 | goto :EOF
2482 | 
2483 | :setP2Shots
2484 | set p2Shots[%~1]=%~2
2485 | goto :EOF
2486 | 
2487 | 
2488 | REM Heres' the part with the problems
2489 | REM When a 0 is passed as parameter 2,
2490 | REM it gets all jacked up and doubles
2491 | REM the row.
2492 | 
2493 | :buildRow
2494 | set theRow=%~1
2495 | set theInd=%~2
2496 | set theCha=%~3
2497 | 
2498 | REM echo !theInd!
2499 | 
2500 | if "!theInd!"=="0" (
2501 | 	set "newRow=!theCha! "
2502 | 	set /a theInd2=!theInd!+2
2503 | ) else (
2504 | 	set "newRow=!theRow:~0,%theInd%!"
2505 | 	set "newRow=!newRow! !theCha! "
2506 | 	set /a theInd2=!theInd!+3
2507 | )
2508 | set /a duncheck=20-!theInd2!
2509 | 
2510 | REM echo !dunCheck!
2511 | set newRow=!newRow!!theRow:~%theInd2%,%duncheck%!
2512 | set %~4=!newRow!
2513 | goto :EOF
2514 | 
2515 | :displayAnimation
2516 | set /a waitTime=%~1
2517 | cls
2518 | echo(!frame1!
2519 | echo(!frame2!
2520 | echo(!frame3!
2521 | echo(!frame4!
2522 | echo(!frame5!
2523 | echo(!frame6!
2524 | echo(!frame7!
2525 | echo(!frame8!
2526 | 
2527 | if "!waitTime!"=="" set waitTime=25
2528 | cscript //nologo //E:jscript !thisScript! "!waitTime!"
2529 | goto :EOF
2530 | 
2531 | :hitAnimation
2532 | if "!playAnimations!"=="0" (
2533 | 	cls
2534 | 	echo ### Hit ###
2535 | 	echo.
2536 | 	echo.
2537 | 	if "!noWait!"=="0" timeout 5
2538 | 	goto :EOF
2539 | )
2540 | REM Hit Animation
2541 | set "frame1=  "
2542 | set "frame2=  "
2543 | set "frame3=  "
2544 | set "frame4=  "
2545 | set "frame5="
2546 | set "frame6=  ____/\_|-\____=__^==>"
2547 | set "frame7=  \                 /"
2548 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2549 | call :displayAnimation 1000
2550 | 
2551 | if "!playSounds!"=="1" start "" /MIN powershell -c (New-Object Media.SoundPlayer '!thisDir!Sounds\!shootSound!').PlaySync();
2552 | 
2553 | set "frame1=  "
2554 | set "frame2=  "
2555 | set "frame3=  "
2556 | set "frame4=  "
2557 | set "frame5=                      /"
2558 | set "frame6=  ____/\_|-\____=__^=>*"
2559 | set "frame7=  \                 / \"
2560 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2561 | call :displayAnimation !defaultTime!
2562 | 
2563 | set "frame1=  "
2564 | set "frame2=  "
2565 | set "frame3=  "
2566 | set "frame4=  "
2567 | set "frame5=                      ."
2568 | set "frame6=  ____/\_|-\____=__^=>  *"
2569 | set "frame7=  \                 / ."
2570 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2571 | call :displayAnimation !defaultTime!
2572 | 
2573 | set "frame1=  "
2574 | set "frame2=  "
2575 | set "frame3=  "
2576 | set "frame4=                       ."
2577 | set "frame5=                      "
2578 | set "frame6=  ____/\_|-\____=__^=>    *"
2579 | set "frame7=  \                 / "
2580 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2581 | call :displayAnimation !defaultTime!
2582 | 
2583 | set "frame1=  "
2584 | set "frame2=  "
2585 | set "frame3=  "
2586 | set "frame4=                       "
2587 | set "frame5=                      "
2588 | set "frame6=  ____/\_|-\____=__^=>      *"
2589 | set "frame7=  \                 / "
2590 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2591 | call :displayAnimation !defaultTime!
2592 | 
2593 | set "frame1=  "
2594 | set "frame2=  "
2595 | set "frame3=  "
2596 | set "frame4=                       "
2597 | set "frame5=                      "
2598 | set "frame6=  ____/\_|-\____=__^=>        *"
2599 | set "frame7=  \                 / "
2600 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2601 | call :displayAnimation !defaultTime!
2602 | 
2603 | set "frame1=  "
2604 | set "frame2=  "
2605 | set "frame3=  "
2606 | set "frame4=                       "
2607 | set "frame5=                      "
2608 | set "frame6=  ____/\_|-\____=__^==>         "
2609 | set "frame7=  \                 / "
2610 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2611 | call :displayAnimation !defaultTime!
2612 | 
2613 | set "frame1=  "
2614 | set "frame2=  "
2615 | set "frame3=  "
2616 | set "frame4=                       "
2617 | set "frame5=                      "
2618 | set "frame6=        ____=____/-|_/\____    "
2619 | set "frame7=        \                 /"
2620 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2621 | call :displayAnimation 1000
2622 | 
2623 | set "frame1=  "
2624 | set "frame2=  "
2625 | set "frame3=  "
2626 | set "frame4=                       "
2627 | set "frame5=*                      "
2628 | set "frame6=        ____=____/-|_/\____    "
2629 | set "frame7=        \                 /"
2630 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2631 | call :displayAnimation !defaultTime!
2632 | 
2633 | set "frame1=  "
2634 | set "frame2=  "
2635 | set "frame3=  "
2636 | set "frame4=                       "
2637 | set "frame5=  *                      "
2638 | set "frame6=        ____=____/-|_/\____    "
2639 | set "frame7=        \                 /"
2640 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2641 | call :displayAnimation !defaultTime!
2642 | 
2643 | set "frame1=  "
2644 | set "frame2=  "
2645 | set "frame3=  "
2646 | set "frame4=                       "
2647 | set "frame5=    *                  "
2648 | set "frame6=        ____=____/-|_/\____    "
2649 | set "frame7=        \                 /"
2650 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2651 | call :displayAnimation !defaultTime!
2652 | 
2653 | set "frame1=  "
2654 | set "frame2=  "
2655 | set "frame3=  "
2656 | set "frame4=                       "
2657 | set "frame5=                      "
2658 | set "frame6=       *____=____/-|_/\____    "
2659 | set "frame7=        \                 /"
2660 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2661 | call :displayAnimation !defaultTime!
2662 | 
2663 | if "!playSounds!"=="1" start "" /MIN powershell -c (New-Object Media.SoundPlayer '!thisDir!Sounds\!hitSound!').PlaySync();
2664 | 
2665 | set "frame1=  "
2666 | set "frame2=  "
2667 | set "frame3=  "
2668 | set "frame4=                       "
2669 | set "frame5=        .              "
2670 | set "frame6=        _/._=____/-|_/\____    "
2671 | set "frame7=       .\                 /"
2672 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2673 | call :displayAnimation !defaultTime!
2674 | 
2675 | set "frame1=  "
2676 | set "frame2=  "
2677 | set "frame3=  "
2678 | set "frame4=       .               "
2679 | set "frame5=      \    .          "
2680 | set "frame6=     .  _  _=____/-|_/\____    "
2681 | set "frame7=        \                 /"
2682 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2683 | call :displayAnimation !defaultTime!
2684 | 
2685 | set "frame1=  "
2686 | set "frame2=  "
2687 | set "frame3=     ."
2688 | set "frame4=            .           "
2689 | set "frame5=   -                  "
2690 | set "frame6=    .   _  _=____/-|_/\____    "
2691 | set "frame7=        \                 /"
2692 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2693 | call :displayAnimation !defaultTime!
2694 | 
2695 | set "frame1=  "
2696 | set "frame2=  "
2697 | set "frame3=      "
2698 | set "frame4=   .         .          "
2699 | set "frame5=                      "
2700 | set "frame6= /      _  _=____/-|_/\____    "
2701 | set "frame7=  .     \                 /"
2702 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2703 | call :displayAnimation !defaultTime!
2704 | 
2705 | set "frame1=  "
2706 | set "frame2=  "
2707 | set "frame3=      "
2708 | set "frame4=                       "
2709 | set "frame5=.               .     "
2710 | set "frame6=        _  _=____/-|_/\____    "
2711 | set "frame7=        \                 /"
2712 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2713 | call :displayAnimation !defaultTime!
2714 | 
2715 | set "frame1=  "
2716 | set "frame2=  "
2717 | set "frame3=      "
2718 | set "frame4=                       "
2719 | set "frame5=                      "
2720 | set "frame6=        _  _=____/-|_/\____    "
2721 | set "frame7=        \                 /"
2722 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2723 | call :displayAnimation 1000
2724 | 
2725 | set "frame1=  "
2726 | set "frame2=         D            "
2727 | set "frame3=      "
2728 | set "frame4=                       "
2729 | set "frame5=                      "
2730 | set "frame6=        _  _=____/-|_/\____    "
2731 | set "frame7=        \                 /"
2732 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2733 | call :displayAnimation !defaultTime!
2734 | 
2735 | set "frame1=  "
2736 | set "frame2=         DI            "
2737 | set "frame3=      "
2738 | set "frame4=                       "
2739 | set "frame5=                      "
2740 | set "frame6=        _  _=____/-|_/\____    "
2741 | set "frame7=        \                 /"
2742 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2743 | call :displayAnimation !defaultTime!
2744 | 
2745 | set "frame1=  "
2746 | set "frame2=         DIR            "
2747 | set "frame3=      "
2748 | set "frame4=                       "
2749 | set "frame5=                      "
2750 | set "frame6=        _  _=____/-|_/\____    "
2751 | set "frame7=        \                 /"
2752 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2753 | call :displayAnimation !defaultTime!
2754 | 
2755 | set "frame1=  "
2756 | set "frame2=         DIRE            "
2757 | set "frame3=      "
2758 | set "frame4=                       "
2759 | set "frame5=                      "
2760 | set "frame6=        _  _=____/-|_/\____    "
2761 | set "frame7=        \                 /"
2762 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2763 | call :displayAnimation !defaultTime!
2764 | 
2765 | set "frame1=  "
2766 | set "frame2=         DIREC            "
2767 | set "frame3=      "
2768 | set "frame4=                       "
2769 | set "frame5=                      "
2770 | set "frame6=        _  _=____/-|_/\____    "
2771 | set "frame7=        \                 /"
2772 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2773 | call :displayAnimation !defaultTime!
2774 | 
2775 | set "frame1=  "
2776 | set "frame2=         DIRECT            "
2777 | set "frame3=      "
2778 | set "frame4=                       "
2779 | set "frame5=                      "
2780 | set "frame6=        _  _=____/-|_/\____    "
2781 | set "frame7=        \                 /"
2782 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2783 | call :displayAnimation !defaultTime!
2784 | 
2785 | set "frame1=  "
2786 | set "frame2=         DIRECT H            "
2787 | set "frame3=      "
2788 | set "frame4=                       "
2789 | set "frame5=                      "
2790 | set "frame6=        _  _=____/-|_/\____    "
2791 | set "frame7=        \                 /"
2792 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2793 | call :displayAnimation !defaultTime!
2794 | 
2795 | set "frame1=  "
2796 | set "frame2=         DIRECT HI            "
2797 | set "frame3=      "
2798 | set "frame4=                       "
2799 | set "frame5=                      "
2800 | set "frame6=        _  _=____/-|_/\____    "
2801 | set "frame7=        \                 /"
2802 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2803 | call :displayAnimation !defaultTime!
2804 | 
2805 | set "frame1=  "
2806 | set "frame2=         DIRECT HIT            "
2807 | set "frame3=      "
2808 | set "frame4=                       "
2809 | set "frame5=                      "
2810 | set "frame6=        _  _=____/-|_/\____    "
2811 | set "frame7=        \                 /"
2812 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2813 | call :displayAnimation 2000
2814 | goto :EOF
2815 | 
2816 | :missAnimation
2817 | if "!playAnimations!"=="0" (
2818 | 	cls
2819 | 	echo ### Miss ###
2820 | 	echo.
2821 | 	echo.
2822 | 	if "!noWait!"=="0" timeout 5
2823 | 	goto :EOF
2824 | )
2825 | REM Miss Animation
2826 | set "frame1=  "
2827 | set "frame2=  "
2828 | set "frame3=  "
2829 | set "frame4=  "
2830 | set "frame5="
2831 | set "frame6=  ____/\_|-\____=__^==>"
2832 | set "frame7=  \                 /"
2833 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2834 | call :displayAnimation 1000
2835 | 
2836 | if "!playSounds!"=="1" start "" /MIN powershell -c (New-Object Media.SoundPlayer '!thisDir!Sounds\!shootSound!').PlaySync();
2837 | 
2838 | set "frame1=  "
2839 | set "frame2=  "
2840 | set "frame3=  "
2841 | set "frame4=  "
2842 | set "frame5=                      /"
2843 | set "frame6=  ____/\_|-\____=__^=>*"
2844 | set "frame7=  \                 / \"
2845 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2846 | call :displayAnimation !defaultTime!
2847 | 
2848 | set "frame1=  "
2849 | set "frame2=  "
2850 | set "frame3=  "
2851 | set "frame4=  "
2852 | set "frame5=                      ."
2853 | set "frame6=  ____/\_|-\____=__^=>  *"
2854 | set "frame7=  \                 / ."
2855 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2856 | call :displayAnimation !defaultTime!
2857 | 
2858 | set "frame1=  "
2859 | set "frame2=  "
2860 | set "frame3=  "
2861 | set "frame4=                       ."
2862 | set "frame5=                      "
2863 | set "frame6=  ____/\_|-\____=__^=>    *"
2864 | set "frame7=  \                 / "
2865 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2866 | call :displayAnimation !defaultTime!
2867 | 
2868 | set "frame1=  "
2869 | set "frame2=  "
2870 | set "frame3=  "
2871 | set "frame4=                       "
2872 | set "frame5=                      "
2873 | set "frame6=  ____/\_|-\____=__^=>      *"
2874 | set "frame7=  \                 / "
2875 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2876 | call :displayAnimation !defaultTime!
2877 | 
2878 | set "frame1=  "
2879 | set "frame2=  "
2880 | set "frame3=  "
2881 | set "frame4=                       "
2882 | set "frame5=                      "
2883 | set "frame6=  ____/\_|-\____=__^=>        *"
2884 | set "frame7=  \                 / "
2885 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2886 | call :displayAnimation !defaultTime!
2887 | 
2888 | set "frame1=  "
2889 | set "frame2=  "
2890 | set "frame3=  "
2891 | set "frame4=                       "
2892 | set "frame5=                      "
2893 | set "frame6=  ____/\_|-\____=__^==>         "
2894 | set "frame7=  \                 / "
2895 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2896 | call :displayAnimation !defaultTime!
2897 | 
2898 | set "frame1=  "
2899 | set "frame2=  "
2900 | set "frame3=  "
2901 | set "frame4=                       "
2902 | set "frame5=                      "
2903 | set "frame6=        ____=____/-|_/\____    "
2904 | set "frame7=        \                 /"
2905 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2906 | call :displayAnimation 1000
2907 | 
2908 | set "frame1=  "
2909 | set "frame2=  "
2910 | set "frame3=  "
2911 | set "frame4=                       "
2912 | set "frame5=                      "
2913 | set "frame6=*       ____=____/-|_/\____    "
2914 | set "frame7=        \                 /"
2915 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2916 | call :displayAnimation !defaultTime!
2917 | 
2918 | set "frame1=  "
2919 | set "frame2=  "
2920 | set "frame3=  "
2921 | set "frame4=                       "
2922 | set "frame5=                      "
2923 | set "frame6=        ____=____/-|_/\____    "
2924 | set "frame7=  *     \                 /"
2925 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2926 | call :displayAnimation !defaultTime!
2927 | 
2928 | if "!playSounds!"=="1" start "" /MIN powershell -c (New-Object Media.SoundPlayer '!thisDir!Sounds\!missSound!').PlaySync();
2929 | 
2930 | set "frame1=  "
2931 | set "frame2=  "
2932 | set "frame3=  "
2933 | set "frame4=                       "
2934 | set "frame5=                      "
2935 | set "frame6=        ____=____/-|_/\____    "
2936 | set "frame7=        \                 /"
2937 | set "frame8=~~~~~\*|~~~~~~~~~~~~~~~~~~~~~~~"
2938 | call :displayAnimation !defaultTime!
2939 | 
2940 | set "frame1=  "
2941 | set "frame2=  "
2942 | set "frame3=  "
2943 | set "frame4=                       "
2944 | set "frame5=                      "
2945 | set "frame6=     .  ____=____/-|_/\____    "
2946 | set "frame7=    . . \                 /"
2947 | set "frame8=~~~~~\ /~~~~~~~~~~~~~~~~~~~~~~~"
2948 | call :displayAnimation !defaultTime!
2949 | 
2950 | set "frame1=  "
2951 | set "frame2=  "
2952 | set "frame3=  "
2953 | set "frame4=                       "
2954 | set "frame5=    .                 "
2955 | set "frame6=  .   . ____=____/-|_/\____    "
2956 | set "frame7=        \                 /"
2957 | set "frame8=~~~~~\-/~~~~~~~~~~~~~~~~~~~~~~~"
2958 | call :displayAnimation !defaultTime!
2959 | 
2960 | set "frame1=  "
2961 | set "frame2=  "
2962 | set "frame3=  "
2963 | set "frame4=  .                    "
2964 | set "frame5=.      .              "
2965 | set "frame6=        ____=____/-|_/\____    "
2966 | set "frame7=        \                 /"
2967 | set "frame8=~~~~~/\~~~~~~~~~~~~~~~~~~~~~~~~"
2968 | call :displayAnimation !defaultTime!
2969 | 
2970 | set "frame1=  "
2971 | set "frame2=  "
2972 | set "frame3=  "
2973 | set "frame4=.                      "
2974 | set "frame5=                      "
2975 | set "frame6=        ____=____/-|_/\____    "
2976 | set "frame7=        \                 /"
2977 | set "frame8=~~~~~-\~~~~~~~~~~~~~~~~~~~~~~~~"
2978 | call :displayAnimation !defaultTime!
2979 | 
2980 | set "frame1=  "
2981 | set "frame2=  "
2982 | set "frame3=  "
2983 | set "frame4=                      "
2984 | set "frame5=                      "
2985 | set "frame6=        ____=____/-|_/\____    "
2986 | set "frame7=        \                 /"
2987 | set "frame8=~~~~~~-~~~~~~~~~~~~~~~~~~~~~~~~"
2988 | call :displayAnimation !defaultTime!
2989 | 
2990 | set "frame1=  "
2991 | set "frame2=  "
2992 | set "frame3=  "
2993 | set "frame4=                      "
2994 | set "frame5=                      "
2995 | set "frame6=        ____=____/-|_/\____    "
2996 | set "frame7=        \                 /"
2997 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2998 | call :displayAnimation 1000
2999 | 
3000 | set "frame1=  "
3001 | set "frame2=            M            "
3002 | set "frame3=  "
3003 | set "frame4=                      "
3004 | set "frame5=                      "
3005 | set "frame6=        ____=____/-|_/\____    "
3006 | set "frame7=        \                 /"
3007 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3008 | call :displayAnimation !defaultTime!
3009 | 
3010 | set "frame1=  "
3011 | set "frame2=            MI            "
3012 | set "frame3=  "
3013 | set "frame4=                      "
3014 | set "frame5=                      "
3015 | set "frame6=        ____=____/-|_/\____    "
3016 | set "frame7=        \                 /"
3017 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3018 | call :displayAnimation !defaultTime!
3019 | 
3020 | set "frame1=  "
3021 | set "frame2=            MIS            "
3022 | set "frame3=  "
3023 | set "frame4=                      "
3024 | set "frame5=                      "
3025 | set "frame6=        ____=____/-|_/\____    "
3026 | set "frame7=        \                 /"
3027 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3028 | call :displayAnimation !defaultTime!
3029 | 
3030 | set "frame1=  "
3031 | set "frame2=            MISS            "
3032 | set "frame3=  "
3033 | set "frame4=                      "
3034 | set "frame5=                      "
3035 | set "frame6=        ____=____/-|_/\____    "
3036 | set "frame7=        \                 /"
3037 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3038 | call :displayAnimation 2000
3039 | goto :EOF
3040 | 
3041 | :sunkAnimation
3042 | if "!playAnimations!"=="0" (
3043 | 	cls
3044 | 	echo ### Sunk ###
3045 | 	echo.
3046 | 	echo.
3047 | 	if "!noWait!"=="0" timeout 5
3048 | 	goto :EOF
3049 | )
3050 | REM Sunk Animation
3051 | set "frame1=  "
3052 | set "frame2=  "
3053 | set "frame3=  "
3054 | set "frame4=  "
3055 | set "frame5="
3056 | set "frame6=  ____/\_|-\____=__^==>"
3057 | set "frame7=  \                 /"
3058 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3059 | call :displayAnimation 1000
3060 | 
3061 | if "!playSounds!"=="1" start "" /MIN powershell -c (New-Object Media.SoundPlayer '!thisDir!Sounds\!shootSound!').PlaySync();
3062 | 
3063 | set "frame1=  "
3064 | set "frame2=  "
3065 | set "frame3=  "
3066 | set "frame4=  "
3067 | set "frame5=                      /"
3068 | set "frame6=  ____/\_|-\____=__^=>*"
3069 | set "frame7=  \                 / \"
3070 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3071 | call :displayAnimation !defaultTime!
3072 | 
3073 | set "frame1=  "
3074 | set "frame2=  "
3075 | set "frame3=  "
3076 | set "frame4=  "
3077 | set "frame5=                      ."
3078 | set "frame6=  ____/\_|-\____=__^=>  *"
3079 | set "frame7=  \                 / ."
3080 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3081 | call :displayAnimation !defaultTime!
3082 | 
3083 | set "frame1=  "
3084 | set "frame2=  "
3085 | set "frame3=  "
3086 | set "frame4=                       ."
3087 | set "frame5=                      "
3088 | set "frame6=  ____/\_|-\____=__^=>    *"
3089 | set "frame7=  \                 / "
3090 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3091 | call :displayAnimation !defaultTime!
3092 | 
3093 | set "frame1=  "
3094 | set "frame2=  "
3095 | set "frame3=  "
3096 | set "frame4=                       "
3097 | set "frame5=                      "
3098 | set "frame6=  ____/\_|-\____=__^=>      *"
3099 | set "frame7=  \                 / "
3100 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3101 | call :displayAnimation !defaultTime!
3102 | 
3103 | set "frame1=  "
3104 | set "frame2=  "
3105 | set "frame3=  "
3106 | set "frame4=                       "
3107 | set "frame5=                      "
3108 | set "frame6=  ____/\_|-\____=__^=>        *"
3109 | set "frame7=  \                 / "
3110 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3111 | call :displayAnimation !defaultTime!
3112 | 
3113 | set "frame1=  "
3114 | set "frame2=  "
3115 | set "frame3=  "
3116 | set "frame4=                       "
3117 | set "frame5=                      "
3118 | set "frame6=  ____/\_|-\____=__^==>         "
3119 | set "frame7=  \                 / "
3120 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3121 | call :displayAnimation !defaultTime!
3122 | 
3123 | set "frame1=  "
3124 | set "frame2=  "
3125 | set "frame3=  "
3126 | set "frame4=                       "
3127 | set "frame5=                      "
3128 | set "frame6=        ____=____/-|_/\____    "
3129 | set "frame7=        \                 /"
3130 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3131 | call :displayAnimation 1000
3132 | 
3133 | set "frame1=  "
3134 | set "frame2=  "
3135 | set "frame3=  "
3136 | set "frame4=                       "
3137 | set "frame5=*                      "
3138 | set "frame6=        ____=____/-|_/\____    "
3139 | set "frame7=        \                 /"
3140 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3141 | call :displayAnimation !defaultTime!
3142 | 
3143 | set "frame1=  "
3144 | set "frame2=  "
3145 | set "frame3=  "
3146 | set "frame4=                       "
3147 | set "frame5=  *                      "
3148 | set "frame6=        ____=____/-|_/\____    "
3149 | set "frame7=        \                 /"
3150 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3151 | call :displayAnimation !defaultTime!
3152 | 
3153 | set "frame1=  "
3154 | set "frame2=  "
3155 | set "frame3=  "
3156 | set "frame4=                       "
3157 | set "frame5=    *                  "
3158 | set "frame6=        ____=____/-|_/\____    "
3159 | set "frame7=        \                 /"
3160 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3161 | call :displayAnimation !defaultTime!
3162 | 
3163 | set "frame1=  "
3164 | set "frame2=  "
3165 | set "frame3=  "
3166 | set "frame4=                       "
3167 | set "frame5=                      "
3168 | set "frame6=       *____=____/-|_/\____    "
3169 | set "frame7=        \                 /"
3170 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3171 | call :displayAnimation !defaultTime!
3172 | 
3173 | if "!playSounds!"=="1" start "" /MIN powershell -c (New-Object Media.SoundPlayer '!thisDir!Sounds\!sunkSound!').PlaySync();
3174 | 
3175 | set "frame1=  "
3176 | set "frame2=  "
3177 | set "frame3=  "
3178 | set "frame4=                       "
3179 | set "frame5=        .              "
3180 | set "frame6=        _/._=____/-|_/\____    "
3181 | set "frame7=       .\                 /"
3182 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3183 | call :displayAnimation !defaultTime!
3184 | 
3185 | set "frame1=  "
3186 | set "frame2=  "
3187 | set "frame3=  "
3188 | set "frame4=       .               "
3189 | set "frame5=      \    .          "
3190 | set "frame6=     .  _  _=____/-|_/\____    "
3191 | set "frame7=        \                 /"
3192 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3193 | call :displayAnimation !defaultTime!
3194 | 
3195 | set "frame1=  "
3196 | set "frame2=  "
3197 | set "frame3=     ."
3198 | set "frame4=            .           "
3199 | set "frame5=   -                  "
3200 | set "frame6=    .   _  _=____/-|_/\____    "
3201 | set "frame7=        \                 /"
3202 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3203 | call :displayAnimation !defaultTime!
3204 | 
3205 | set "frame1=  "
3206 | set "frame2=  "
3207 | set "frame3=      "
3208 | set "frame4=   .         .          "
3209 | set "frame5=                      "
3210 | set "frame6= /      _  _=____/-|_/\____    "
3211 | set "frame7=  .     \                 /"
3212 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3213 | call :displayAnimation !defaultTime!
3214 | 
3215 | set "frame1=  "
3216 | set "frame2=  "
3217 | set "frame3=      "
3218 | set "frame4=                       "
3219 | set "frame5=.               .     "
3220 | set "frame6=        _  _=____/-|_/\____    "
3221 | set "frame7=        \                 /"
3222 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3223 | call :displayAnimation !defaultTime!
3224 | 
3225 | set "frame1=  "
3226 | set "frame2=  "
3227 | set "frame3=      "
3228 | set "frame4=                       "
3229 | set "frame5=                    "
3230 | set "frame6=        _  _=____/-|_/\____    "
3231 | set "frame7=        \                 /"
3232 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3233 | call :displayAnimation !defaultTime!
3234 | 
3235 | set "frame1=  "
3236 | set "frame2=  "
3237 | set "frame3=      "
3238 | set "frame4=                       "
3239 | set "frame5=                    "
3240 | set "frame6=        _  _=_/._/-|_/\____    "
3241 | set "frame7=        \                 /"
3242 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3243 | call :displayAnimation !defaultTime!
3244 | 
3245 | set "frame1=  "
3246 | set "frame2=  "
3247 | set "frame3=      "
3248 | set "frame4=               .        "
3249 | set "frame5=             |   .    "
3250 | set "frame6=        _  _=_  _/-|_/\____    "
3251 | set "frame7=        \                 /"
3252 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3253 | call :displayAnimation !defaultTime!
3254 | 
3255 | set "frame1=  "
3256 | set "frame2=  "
3257 | set "frame3=            .                  "
3258 | set "frame4=                   .           "
3259 | set "frame5=          -                    "
3260 | set "frame6=        _  _=_  _/-|_/\/.__    "
3261 | set "frame7=        \                 /    "
3262 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3263 | call :displayAnimation !defaultTime!
3264 | 
3265 | set "frame1=  "
3266 | set "frame2=  "
3267 | set "frame3=                               "
3268 | set "frame4=        .               .      "
3269 | set "frame5=                     .|   .    "
3270 | set "frame6=      / _  _=_  _/-|_/\  __    "
3271 | set "frame7=        \                 /    "
3272 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3273 | call :displayAnimation !defaultTime!
3274 | 
3275 | set "frame1=  "
3276 | set "frame2=  "
3277 | set "frame3=                          .    "
3278 | set "frame4=                     \       . "
3279 | set "frame5=      .                        "
3280 | set "frame6=        _  _=_  _/-|_/\  __    "
3281 | set "frame7=    |   \                 /    "
3282 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3283 | call :displayAnimation !defaultTime!
3284 | 
3285 | set "frame1=  "
3286 | set "frame2=  "
3287 | set "frame3=                    -         ."
3288 | set "frame4=                               "
3289 | set "frame5=                               "
3290 | set "frame6=     .  _  _=_  _/-|_/\  __    "
3291 | set "frame7=        \                 /    "
3292 | set "frame8=~~~\~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3293 | call :displayAnimation !defaultTime!
3294 | 
3295 | set "frame1=  "
3296 | set "frame2=  "
3297 | set "frame3=                               "
3298 | set "frame4=                   /           "
3299 | set "frame5=                               "
3300 | set "frame6=        _  _=_  _/-|_/\  __    "
3301 | set "frame7=    .   \                 /    "
3302 | set "frame8=~~~-~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3303 | call :displayAnimation !defaultTime!
3304 | 
3305 | set "frame1=  "
3306 | set "frame2=  "
3307 | set "frame3=                               "
3308 | set "frame4=                               "
3309 | set "frame5=                  |            "
3310 | set "frame6=        _  _=_  _/-|_/\  __    "
3311 | set "frame7=        \                 /    "
3312 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3313 | call :displayAnimation !defaultTime!
3314 | 
3315 | set "frame1=  "
3316 | set "frame2=  "
3317 | set "frame3=                               "
3318 | set "frame4=                               "
3319 | set "frame5=                              "
3320 | set "frame6=        _  _=_  \.-|_/\  __    "
3321 | set "frame7=        \                 /    "
3322 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3323 | call :displayAnimation !defaultTime!
3324 | 
3325 | set "frame1=  "
3326 | set "frame2=  "
3327 | set "frame3=                               "
3328 | set "frame4=                               "
3329 | set "frame5=              - .              "
3330 | set "frame6=        _  _=_    .|_/\  __    "
3331 | set "frame7=        \                 /    "
3332 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3333 | call :displayAnimation !defaultTime!
3334 | 
3335 | set "frame1=  "
3336 | set "frame2=  "
3337 | set "frame3=                               "
3338 | set "frame4=                  .            "
3339 | set "frame5=            /      .           "
3340 | set "frame6=        _  _=_     |_/\  __    "
3341 | set "frame7=        \                 /    "
3342 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3343 | call :displayAnimation !defaultTime!
3344 | 
3345 | set "frame1=  "
3346 | set "frame2=  "
3347 | set "frame3=                               "
3348 | set "frame4=                   .           "
3349 | set "frame5=                      .        "
3350 | set "frame6=        _ -_=_     |_/\  __    "
3351 | set "frame7=        \                 /    "
3352 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3353 | call :displayAnimation !defaultTime!
3354 | 
3355 | set "frame1=  "
3356 | set "frame2=  "
3357 | set "frame3=                               "
3358 | set "frame4=                    .          "
3359 | set "frame5=                               "
3360 | set "frame6=        \/ _=_     |_/\ .__    "
3361 | set "frame7=        \                 /    "
3362 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3363 | call :displayAnimation !defaultTime!
3364 | 
3365 | set "frame1=  "
3366 | set "frame2=  "
3367 | set "frame3=                               "
3368 | set "frame4=                               "
3369 | set "frame5=                       .       "
3370 | set "frame6=       /.  _=_     |_/\  __    "
3371 | set "frame7=        \                 /    "
3372 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3373 | call :displayAnimation !defaultTime!
3374 | 
3375 | set "frame1=  "
3376 | set "frame2=  "
3377 | set "frame3=                               "
3378 | set "frame4=                               "
3379 | set "frame5=                               "
3380 | set "frame6=      -    _=_     |_/\  __.   "
3381 | set "frame7=        \                 /    "
3382 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3383 | call :displayAnimation !defaultTime!
3384 | 
3385 | set "frame1=  "
3386 | set "frame2=  "
3387 | set "frame3=                               "
3388 | set "frame4=                               "
3389 | set "frame5=                               "
3390 | set "frame6=           _=_     |_/\  __    "
3391 | set "frame7=    /   \                 /    "
3392 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3393 | call :displayAnimation !defaultTime!
3394 | 
3395 | set "frame1=  "
3396 | set "frame2=  "
3397 | set "frame3=                               "
3398 | set "frame4=                               "
3399 | set "frame5=                               "
3400 | set "frame6=           _=_     |_/\  __    "
3401 | set "frame7=        \                 /    "
3402 | set "frame8=~~~\~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3403 | call :displayAnimation !defaultTime!
3404 | 
3405 | set "frame1=  "
3406 | set "frame2=  "
3407 | set "frame3=                               "
3408 | set "frame4=                               "
3409 | set "frame5=                               "
3410 | set "frame6=           _=_     |_/\  __    "
3411 | set "frame7=        \                 /    "
3412 | set "frame8=~~~-~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3413 | call :displayAnimation !defaultTime!
3414 | 
3415 | set "frame1=  "
3416 | set "frame2=  "
3417 | set "frame3=                               "
3418 | set "frame4=                               "
3419 | set "frame5=                               "
3420 | set "frame6=           _=_     |_/\  __    "
3421 | set "frame7=        \                 /    "
3422 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3423 | call :displayAnimation 1000
3424 | 
3425 | set "frame1=  "
3426 | set "frame2=            S            "
3427 | set "frame3=                               "
3428 | set "frame4=                               "
3429 | set "frame5=                               "
3430 | set "frame6=           _=_     |_/\  __    "
3431 | set "frame7=        \                 /    "
3432 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3433 | call :displayAnimation !defaultTime!
3434 | 
3435 | set "frame1=  "
3436 | set "frame2=            SU            "
3437 | set "frame3=                               "
3438 | set "frame4=                               "
3439 | set "frame5=                               "
3440 | set "frame6=           _=_     |_/\  __    "
3441 | set "frame7=        \                 /    "
3442 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3443 | call :displayAnimation !defaultTime!
3444 | 
3445 | set "frame1=  "
3446 | set "frame2=            SUN            "
3447 | set "frame3=                               "
3448 | set "frame4=                               "
3449 | set "frame5=                               "
3450 | set "frame6=           _=_     |_/\  __    "
3451 | set "frame7=        \                 /    "
3452 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3453 | call :displayAnimation !defaultTime!
3454 | 
3455 | set "frame1=  "
3456 | set "frame2=            SUNK            "
3457 | set "frame3=                               "
3458 | set "frame4=                               "
3459 | set "frame5=                               "
3460 | set "frame6=           _=_     |_/\  __    "
3461 | set "frame7=        \                 /    "
3462 | set "frame8=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
3463 | call :displayAnimation 2000
3464 | goto :EOF
3465 | 
3466 | REM Java */
3467 | var x = WScript.Arguments;
3468 | var sleepTime = x(0);
3469 | WScript.Sleep( sleepTime );


--------------------------------------------------------------------------------