microsoft-visualbasic-runtime/ApplicationServices/Terminal/xConsole/TestProgram.txt

Imports System.Collections.Generic
Imports System.Threading

Namespace TestingxConsole
	Class Program
		Friend Shared Sub Main(args As String())
			Console.Title = "overpowered.it/xconsole-project"
			xConsole.MultiThreadSupport = True
			xConsole.CoolWriteSettings.CoolWritingDelay = 40

			' Turn OFF stats
			'xConsole.Settings.xStatReq = true; // yes true is off
			xConsole.CheckForUpdatesEnabled = True

			xConsole.Credits()

			xConsole.Wait(666)
			xConsole.CoolWriteLine(vbCr & vbLf & "^mHello^!, this program will guide you to discover some features of ^yxConsole^!!")
			xConsole.CoolWriteLine("^5Please set ^6Lucida Console^5 as the default font :).^!")
			xConsole.Wait(500)


			' Colors tes
			xConsole.CoolWriteLine(vbCr & vbLf & "^gxConsole^! is used to ^rcolor^! and ^5animate^! your ^6console^!!")

			xConsole.CoolWriteLine("You can set the text and background color using ^g^^! and ^g*^! chars.")
			xConsole.CoolWriteLine("You have ^mthree^! ways to set colors:")
			xConsole.CoolWriteLine(vbTab & "1) With letters, \^r^rITS RED^!. \^y^yITS YELLOW^!. \^g^gITS GREEN^!. \^b^bITS BLUE^!.")
			xConsole.CoolWriteLine(vbTab & "2) HEX code, \^F00^F00ITS RED^!. \^0F0^0F0ITS GREEN^!")
			xConsole.CoolWriteLine(vbTab & vbTab & "the ^yHEX^! code ^rMUST^! be UPPER CASE!")
			xConsole.CoolWriteLine(vbTab & "3) or using the ^9Microsoft^! ConsoleColor enum (see reference)")
			xConsole.CoolWriteLine(vbTab & "0) Get random color ^g\^.^!")
			xConsole.CoolWriteLine(vbTab & vbTab & "^!it will never be equal to the ^yfont^!/*1back*! color.")
			xConsole.CoolWriteLine(vbTab & "-1) Same story for the background. (*2\*2*!, *r\*r*!, *FFF\*FFF*!)")

			xConsole.CoolWriteLine(vbTab & "-2) ..then restore with \^! and \*! tags.")



			' ReadLine test

			xConsole.CoolWriteLine(vbCr & vbLf & vbCr & vbLf & "The next example is ^2xConsole^!.^wReadLine^! function." & vbCr & vbLf & "this converts an input string into a ^gList^!<^11string^!>.")
			xConsole.CoolWriteLine("Type some string and agruments (ex: run ""the program"" 777)")

			xConsole.WaitQueue()
			Dim input = xConsole.ReadLine(True)
			Dim c As Integer = 0
            For Each i As String In input
                xConsole.CoolWriteLine(vbTab & "[^y{0}^!]" & vbTab & "^m{1}^!", c, i)
                c += 1
            Next


            xConsole.CoolWriteLine(vbCr & vbLf & "Well, the ReadKeys function allow you to save ^rall^! the ^yuser-input chars^!.")
			xConsole.CoolWriteLine("Just an example:")

			xConsole.CoolWriteLine("Password is: ^mhello^r[backspace]^mbro^!" & vbCr & vbLf)
			Dim k As Integer = 0
			Dim thepassword As String = "hello" & ChrW(8) & "bro"

            For Each s As String In thepassword
                xConsole.CoolWriteLine("[^y{0}^!]:" & vbTab & "^g{1}^!" & vbTab & "(code)^m{2}^!", System.Threading.Interlocked.Increment(k), s.ToString(), AscW(s))
            Next

            xConsole.CoolWriteLine(vbCr & vbLf & "The input will be not displayed!")

			xConsole.WaitQueue()
			While True
				xConsole.CoolWrite("Please type the above password:")
				Dim r As String = xConsole.ReadKeys(True)
				If r = thepassword Then
					xConsole.CoolWriteLine("^gPassword MATCH!^!")
					Exit While
				Else
					xConsole.CoolWriteLine("^rIncorrect password! Use backspace^!")
				End If
			End While

			xConsole.WriteLine()
			xConsole.Wait(600)

			Dim ListOfCmds = New List(Of xConsole.Comparer)() From { _
				New xConsole.Comparer("kick", "Chuck norrize a user"), _
				New xConsole.Comparer("ping", "Ping, pong..."), _
				New xConsole.Comparer("pig", "\*Scroff*"), _
				New xConsole.Comparer("roll", "Roll the dice!"), _
				New xConsole.Comparer("exit", "Close the comparer") _
			}

			xConsole.CoolWriteLine(vbCr & vbLf & "^yThe String comparer^! allows you to shorten the user's input mailorder looking forthe most similar to the typed string.")

			xConsole.CoolWriteLine("List of avaiable commands:" & vbCr & vbLf)

            For Each l As Comparer In ListOfCmds
                xConsole.CoolWriteLine(vbTab & "^b{0}^!" & vbTab & "({1})", l.Word, l.Description)
            Next

            xConsole.CoolWriteLine(vbCr & vbLf & "Example: type ^mk^!, the comparator will find ^mkick^! keyword")
			xConsole.CoolWriteLine("Example: type ^mpi^!, ^y2 results found^!, then it returns an empty string!")
			xConsole.CoolWriteLine("Example: type ^mr^!, the comparer will find ^mroll^! keyword.. etc...")


			Dim cmd As String = String.Empty
			While String.IsNullOrWhiteSpace(cmd)
				xConsole.CoolWrite("^2Try yourself:")
				input = xConsole.ReadLine(True)
				cmd = xConsole.Comparer.Find(input(0).ToLower(), ListOfCmds)

				xConsole.CoolWriteLine("Word found: ^y{0}^!", cmd)

                Select Case cmd
                    Case "kick"
                        xConsole.CoolWriteLine(vbTab & "^.ChuckNorris^.ChuckNorris^.ChuckNorris^.ChuckNorris^!")
                    Case "ping"
                        xConsole.CoolWriteLine(vbTab & "^gPong^!")
                    Case "pig"
                        xConsole.CoolWriteLine(vbTab & "Do you like swine?")
                    Case "roll"
                        xConsole.CoolWriteLine(vbTab & "Roll the diceee!")
                    Case "exit"
                        xConsole.CoolWriteLine(vbTab & "^2Leaving..")
                    Case Else
                        xConsole.CoolWriteLine(vbTab & "^rNo matches found^!!")
                End Select

                cmd = String.Empty
			End While

			xConsole.Wait(600)

			xConsole.CoolWriteLine("xConsole can ^yWriteLine asynchronously^!! No more slow down by console output..")
			xConsole.CoolWriteLine("^gMultiThreadSupport^! is *g^0{0}^!*!", xConsole.MultiThreadSupport.ToString().ToUpper())
			xConsole.WriteLine(vbCr & vbLf & vbCr & vbLf & vbCr & vbLf)
			' Wait until xConsole have no more actions.
			xConsole.WaitQueue()

			For i As Integer = 9 To 0 Step -1
				xConsole.Write(vbCr & "~Time left:{0}.. (a stress test?)", i)
				xConsole.Wait(600)
			Next
			xConsole.WriteLine()

			Dim j As Integer = 0
			While j < 1000
				j += 1
				xConsole.WriteLine("*.^.LoL*.^.LoL*.^.LoL*.^.LoL*.^.LoL*.^.LoL*.^.LoL*.^.LoL*.^.LoL*.^.LoL*.^.LoL*.^.LoL*.^.LoL*.^.LoL*.^.LoL*.^.LoL*.^.LoL*.^.LoL*.^.LoL*.^.LoL*.^.LoL*.^.LoL*.^.LoL*.^.LoL*.^.LoL*.^.LoL^!*!")
			End While

			While j > 0
				j -= 1
				Console.Title = "Count down " & j
				Thread.Sleep(10)
			End While

			xConsole.WaitQueue()
			xConsole.Wait(600)


			xConsole.CoolWriteLine(vbCr & vbLf & "*2What about Spinning?*!")
			xConsole.CoolWriteLine("PRESS any KEY to break.")

			For i As Integer = 0 To 3
				Dim Spin = New xConsole.Spinner(i)
				Spin.SpinText = "{0} ^.Load^.ing^....^!"

				xConsole.CoolWrite(vbCr & "Status:" & vbTab)

                Call New Thread(Sub()
                                    xConsole.ClearInput()
                                    Console.ReadKey(True)
                                    Spin.Break()

                                End Sub).Start()

                While Spin.Turn()
					

				End While
			Next

			xConsole.CoolWriteLine("^gOK" & vbCr & vbLf)

			xConsole.CoolWriteLine("The tour is over... thx:)")


			Console.ReadLine()
		End Sub
	End Class
End Namespace