Module Module1 Sub Main() Start: Console.WindowWidth = 80 Console.BufferWidth = Console.WindowWidth 'Scene Console.SetCursorPosition(0, 241) Console.WriteLine(" * * * ") Console.WriteLine(" * ") Console.WriteLine(" * * ") Console.WriteLine(" * _________## * ") Console.WriteLine(" @\\\\\\\\\## * | ") Console.WriteLine(" * @@@\\\\\\\\##\ \|/|/ ") Console.WriteLine(" @@ @@\\\\\\\\\\\ \|\\|//|/ ") Console.WriteLine(" * @@@@@@@\\\\\\\\\\\ \|\|/|/ ") Console.WriteLine(" @@@@@@@@@----------| \\|// ") Console.WriteLine(" __ @@ @@@ @@__________| \|/ ") Console.WriteLine(" ____|_@|_ @@@@@@@@@__________| \|/ ") Console.WriteLine("=|__ _____ |= @@@@ .@@@__________| | ") Console.WriteLine("____0_____0__\|/__@@@@__@@@__________|_\|/__|___\|/__\|/") Console.SetCursorPosition(70, 241) Console.WriteLine("*") Console.SetCursorPosition(68, 242) Console.WriteLine("*") Console.SetCursorPosition(43, 249) Console.WriteLine("*") Console.SetCursorPosition(55, 248) Console.WriteLine("*") Console.SetCursorPosition(67, 240) Console.WriteLine("*") Console.SetCursorPosition(60, 242) 'LaunchPad Console.SetCursorPosition(73, 242) Console.WriteLine("_") Console.SetCursorPosition(72, 243) Console.WriteLine("| |") Console.SetCursorPosition(72, 244) Console.WriteLine("| |") Console.SetCursorPosition(68, 245) Console.WriteLine("====|-|") Console.SetCursorPosition(72, 246) Console.WriteLine("|N|") Console.SetCursorPosition(72, 247) Console.WriteLine("|I|") Console.SetCursorPosition(72, 248) Console.WriteLine("|M|") Console.SetCursorPosition(70, 249) Console.WriteLine("==|I|") Console.SetCursorPosition(72, 250) Console.WriteLine("|T|") Console.SetCursorPosition(72, 251) Console.WriteLine("| |") Console.SetCursorPosition(72, 252) Console.WriteLine("| |") Console.SetCursorPosition(56, 253) Console.WriteLine("________________|_|_") 'Atomspheres 'Stratosphere Console.ForegroundColor = ConsoleColor.Blue Console.SetCursorPosition(0, 199) Console.WriteLine(" ````````````````` ") Console.WriteLine(" `````` `````` ") Console.WriteLine(" ```` ```` ") Console.WriteLine(" ``` ``` ") Console.WriteLine(" ``` ``` ") Console.WriteLine(" `` `` ") Console.WriteLine(" `` `` ") Console.WriteLine(" `` `` ") Console.WriteLine(" `` `` ") Console.WriteLine(" . . ") Console.WriteLine(" . . ") Console.WriteLine(" . . ") Console.WriteLine(" . . ") Console.WriteLine(" `` `` ") Console.WriteLine(" . . ") Console.WriteLine(" . `` ") Console.WriteLine(" . . ") Console.WriteLine(" . . ") 'Mesosphere Console.ForegroundColor = ConsoleColor.DarkCyan Console.SetCursorPosition(0, 151) Console.WriteLine(" ````````````````` ") Console.WriteLine(" `````` `````` ") Console.WriteLine(" ```` ```` ") Console.WriteLine(" ``` ``` ") Console.WriteLine(" ``` ``` ") Console.WriteLine(" `` `` ") Console.WriteLine(" `` `` ") Console.WriteLine(" `` `` ") Console.WriteLine(" `` `` ") Console.WriteLine(" . . ") Console.WriteLine(" . . ") Console.WriteLine(" . . ") Console.WriteLine(" . . ") Console.WriteLine(" `` `` ") Console.WriteLine(" . . ") Console.WriteLine(" . `` ") Console.WriteLine(" . . ") Console.WriteLine(" . . ") 'Thermosphere Console.ForegroundColor = ConsoleColor.DarkGreen Console.SetCursorPosition(0, 111) Console.WriteLine(" ````````````````` ") Console.WriteLine(" `````` `````` ") Console.WriteLine(" ```` ```` ") Console.WriteLine(" ``` ``` ") Console.WriteLine(" ``` ``` ") Console.WriteLine(" `` `` ") Console.WriteLine(" `` `` ") Console.WriteLine(" `` `` ") Console.WriteLine(" `` `` ") Console.WriteLine(" . . ") Console.WriteLine(" . . ") Console.WriteLine(" . . ") Console.WriteLine(" . . ") Console.WriteLine(" `` `` ") Console.WriteLine(" . . ") Console.WriteLine(" . `` ") Console.WriteLine(" . . ") Console.WriteLine(" . . ") 'Exosphere Console.ForegroundColor = ConsoleColor.DarkMagenta Console.SetCursorPosition(0, 71) Console.WriteLine(" ````````````````` ") Console.WriteLine(" `````` `````` ") Console.WriteLine(" ```` ```` ") Console.WriteLine(" ``` ``` ") Console.WriteLine(" ``` ``` ") Console.WriteLine(" `` `` ") Console.WriteLine(" `` `` ") Console.WriteLine(" `` `` ") Console.WriteLine(" `` `` ") Console.WriteLine(" . . ") Console.WriteLine(" . . ") Console.WriteLine(" . . ") Console.WriteLine(" . . ") Console.WriteLine(" `` `` ") Console.WriteLine(" . . ") Console.WriteLine(" . `` ") Console.WriteLine(" . . ") Console.WriteLine(" . . ") 'Rocket Console.ForegroundColor = ConsoleColor.White Console.SetCursorPosition(65, 243) Console.WriteLine("|") Console.SetCursorPosition(64, 244) Console.WriteLine("/") Console.SetCursorPosition(66, 244) Console.WriteLine("\") Console.SetCursorPosition(63, 245) Console.WriteLine("|") Console.SetCursorPosition(64, 245) Console.WriteLine("-") Console.SetCursorPosition(65, 245) Console.WriteLine("N") Console.SetCursorPosition(66, 245) Console.WriteLine("-") Console.SetCursorPosition(67, 245) Console.WriteLine("|") Console.SetCursorPosition(63, 246) Console.WriteLine("|") Console.SetCursorPosition(64, 246) Console.WriteLine("-") Console.SetCursorPosition(65, 246) Console.WriteLine("P") Console.SetCursorPosition(66, 246) Console.WriteLine("-") Console.SetCursorPosition(67, 246) Console.WriteLine("|") Console.SetCursorPosition(62, 247) Console.WriteLine("/") Console.SetCursorPosition(68, 247) Console.WriteLine("\") Console.SetCursorPosition(61, 248) Console.WriteLine("|") Console.SetCursorPosition(69, 248) Console.WriteLine("|") Console.SetCursorPosition(61, 249) Console.WriteLine("|") Console.SetCursorPosition(69, 249) Console.WriteLine("|") Console.SetCursorPosition(61, 250) Console.WriteLine("|") Console.SetCursorPosition(69, 250) Console.WriteLine("|") Console.SetCursorPosition(61, 251) Console.WriteLine("|") Console.SetCursorPosition(69, 251) Console.WriteLine("|") Console.SetCursorPosition(62, 251) Console.WriteLine("_") Console.SetCursorPosition(63, 251) Console.WriteLine("_") Console.SetCursorPosition(64, 251) Console.WriteLine("_") Console.SetCursorPosition(65, 251) Console.WriteLine("_") Console.SetCursorPosition(66, 251) Console.WriteLine("_") Console.SetCursorPosition(67, 251) Console.WriteLine("_") Console.SetCursorPosition(68, 251) Console.WriteLine("_") Console.SetCursorPosition(62, 252) Console.WriteLine("|@|") Console.SetCursorPosition(66, 252) Console.WriteLine("|@|") Dim y As Integer = 0 Console.ReadKey() If y = 0 Then Console.ForegroundColor = ConsoleColor.Yellow Console.SetCursorPosition(62, 252) Console.WriteLine("|@|") Console.SetCursorPosition(66, 252) Console.WriteLine("|@|") System.Threading.Thread.Sleep(15000) End If Do Until y = 230 Console.ForegroundColor = ConsoleColor.White Console.SetCursorPosition(65, 243 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(64, 244 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(66, 244 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(63, 245 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(64, 245 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(65, 245 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(66, 245 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(67, 245 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(63, 246 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(64, 246 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(65, 246 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(66, 246 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(67, 246 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(62, 247 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(68, 247 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(61, 248 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(69, 248 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(61, 249 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(69, 249 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(61, 250 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(69, 250 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(61, 251 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(69, 251 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(62, 251 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(63, 251 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(64, 251 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(65, 251 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(66, 251 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(67, 251 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(68, 251 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(62, 252 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(66, 252 - y + 1) Console.WriteLine(" ") Console.SetCursorPosition(65, 243 - y) Console.WriteLine("|") Console.SetCursorPosition(64, 244 - y) Console.WriteLine("/") Console.SetCursorPosition(66, 244 - y) Console.WriteLine("\") Console.SetCursorPosition(63, 245 - y) Console.WriteLine("|") Console.SetCursorPosition(64, 245 - y) Console.WriteLine("-") Console.SetCursorPosition(65, 245 - y) Console.WriteLine("N") Console.SetCursorPosition(66, 245 - y) Console.WriteLine("-") Console.SetCursorPosition(67, 245 - y) Console.WriteLine("|") Console.SetCursorPosition(63, 246 - y) Console.WriteLine("|") Console.SetCursorPosition(64, 246 - y) Console.WriteLine("-") Console.SetCursorPosition(65, 246 - y) Console.WriteLine("P") Console.SetCursorPosition(66, 246 - y) Console.WriteLine("-") Console.SetCursorPosition(67, 246 - y) Console.WriteLine("|") Console.SetCursorPosition(62, 247 - y) Console.WriteLine("/") Console.SetCursorPosition(68, 247 - y) Console.WriteLine("\") Console.SetCursorPosition(61, 248 - y) Console.WriteLine("|") Console.SetCursorPosition(69, 248 - y) Console.WriteLine("|") Console.SetCursorPosition(61, 249 - y) Console.WriteLine("|") Console.SetCursorPosition(69, 249 - y) Console.WriteLine("|") Console.SetCursorPosition(61, 250 - y) Console.WriteLine("|") Console.SetCursorPosition(69, 250 - y) Console.WriteLine("|") Console.SetCursorPosition(61, 251 - y) Console.WriteLine("|") Console.SetCursorPosition(69, 251 - y) Console.WriteLine("|") Console.SetCursorPosition(62, 251 - y) Console.WriteLine("_") Console.SetCursorPosition(63, 251 - y) Console.WriteLine("_") Console.SetCursorPosition(64, 251 - y) Console.WriteLine("_") Console.SetCursorPosition(65, 251 - y) Console.WriteLine("_") Console.SetCursorPosition(66, 251 - y) Console.WriteLine("_") Console.SetCursorPosition(67, 251 - y) Console.WriteLine("_") Console.SetCursorPosition(68, 251 - y) Console.WriteLine("_") Console.ForegroundColor = ConsoleColor.Red Console.SetCursorPosition(62, 252 - y) Console.WriteLine("|@|") Console.SetCursorPosition(66, 252 - y) Console.WriteLine("|@|") System.Threading.Thread.Sleep(90) y += 1 If y = 250 Then GoTo Start End If If y = 50 Then Console.ForegroundColor = ConsoleColor.Green Console.WriteLine("You have successfully entered the Stratosphere!") System.Threading.Thread.Sleep(750) End If If y = 50 Then Console.ForegroundColor = ConsoleColor.Gray System.Threading.Thread.Sleep(1000) Console.Write(" ") Console.ForegroundColor = ConsoleColor.Gray End If If y = 90 Then Console.ForegroundColor = ConsoleColor.Green Console.WriteLine("You have successfully entered the Mesosphere!") Console.ForegroundColor = ConsoleColor.Gray System.Threading.Thread.Sleep(750) End If If y = 90 Then Console.ForegroundColor = ConsoleColor.Gray System.Threading.Thread.Sleep(1000) Console.Write(" ") Console.ForegroundColor = ConsoleColor.Gray End If If y = 130 Then Console.ForegroundColor = ConsoleColor.Gray Console.ForegroundColor = ConsoleColor.Green Console.WriteLine("You have successfully entered the Thermosphere!") System.Threading.Thread.Sleep(750) End If If y = 130 Then Console.ForegroundColor = ConsoleColor.Gray System.Threading.Thread.Sleep(1000) Console.Write(" ") Console.ForegroundColor = ConsoleColor.Gray End If If y = 170 Then Console.ForegroundColor = ConsoleColor.Green Console.Write("You have successfully entered the Exosphere!") System.Threading.Thread.Sleep(750) End If If y = 170 Then Console.ForegroundColor = ConsoleColor.Gray System.Threading.Thread.Sleep(1000) Console.Write(" ") Console.ForegroundColor = ConsoleColor.Gray End If If y = 180 Then Console.ForegroundColor = ConsoleColor.Green Console.Write("You have successfully entered space!!!") System.Threading.Thread.Sleep(750) End If If y = 180 Then System.Threading.Thread.Sleep(1000) Console.ForegroundColor = ConsoleColor.Gray Console.Write(" ") Console.ForegroundColor = ConsoleColor.Gray End If Console.SetCursorPosition(0, 253) Loop End Sub End Module