SHARE
TWEET

Untitled

a guest Oct 18th, 2019 76 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Module Module1
  2.  
  3.     Sub GameOver()
  4.         Console.ForegroundColor = ConsoleColor.DarkRed
  5.         Console.WriteLine("
  6.  ▄▀▀▀▀▄    ▄▀▀█▄   ▄▀▀▄ ▄▀▄  ▄▀▀█▄▄▄▄      ▄▀▀▀▀▄   ▄▀▀▄ ▄▀▀▄  ▄▀▀█▄▄▄▄  ▄▀▀▄▀▀▀▄    
  7. █         ▐ ▄▀ ▀▄ █  █ ▀  █ ▐  ▄▀   ▐     █      █ █   █    █ ▐  ▄▀   ▐ █   █   █    
  8. █    ▀▄▄    █▄▄▄█ ▐  █    █   █▄▄▄▄▄      █      █ ▐  █    █    █▄▄▄▄▄  ▐  █▀▀█▀      
  9. █     █ █  ▄▀   █   █    █    █    ▌      ▀▄    ▄▀    █   ▄▀    █    ▌   ▄▀    █      
  10. ▐▀▄▄▄▄▀ ▐ █   ▄▀  ▄▀   ▄▀    ▄▀▄▄▄▄         ▀▀▀▀       ▀▄▀     ▄▀▄▄▄▄   █     █ ▄ ▄ ▄
  11. ▐         ▐   ▐   █    █     █    ▐                            █    ▐   ▐     ▐      
  12.                   ▐    ▐     ▐                                 ▐                      
  13. ")
  14.     End Sub
  15.  
  16.     Sub words(stringToWrite As String, delay As Integer)
  17.         For Each i As Char In stringToWrite
  18.             Console.Write(i)
  19.             Threading.Thread.Sleep(delay)
  20.         Next
  21.     End Sub
  22.  
  23.     Sub ConsoleClear()
  24.         For i = 1 To 100
  25.             Console.WriteLine(" ")
  26.             i = i + 1
  27.         Next
  28.     End Sub
  29.  
  30.     Sub Main()
  31.  
  32.         Console.WriteLine("
  33.  ____    __  __  ______  ____        ____            __                      __             __    
  34. /\  _`\ /\ \/\ \/\  _  \/\  _`\     /\  _`\         /\ \__                  /\ \           /\ \    
  35. \ \ \L\_\ \ \ \ \ \ \L\ \ \ \L\_\   \ \ \L\_\  __  _\ \ ,_\    __    ___    \_\ \     __   \_\ \  
  36.  \ \ \L_L\ \ \ \ \ \  __ \ \ \L_L    \ \  _\L /\ \/'\\ \ \/  /'__`\/' _ `\  /'_` \  /'__`\ /'_` \  
  37.   \ \ \/, \ \ \_\ \ \ \/\ \ \ \/, \   \ \ \L\ \/>  </ \ \ \_/\  __//\ \/\ \/\ \L\ \/\  __//\ \L\ \
  38.    \ \____/\ \_____\ \_\ \_\ \____/    \ \____//\_/\_\ \ \__\ \____\ \_\ \_\ \___,_\ \____\ \___,_\
  39.     \/___/  \/_____/\/_/\/_/\/___/      \/___/ \//\/_/  \/__/\/____/\/_/\/_/\/__,_ /\/____/\/__,_ /
  40.                                                                                                    
  41.                                                                                                    ")
  42.         Threading.Thread.Sleep(2000)
  43.         Dim Intro As String
  44.         Dim Intro2 As String
  45.         Dim Intro3 As String
  46.         Dim UStart As String
  47.         Dim Delay As Integer
  48.         Delay = 50
  49.         Intro = "Welcome to GUAG Extended, the longer, more detailed version of GUAG."
  50.         Intro2 = "This will be even more intense, heartbreaking and thrilling than the last version..."
  51.         Intro3 = "Are you ready? Y/N"
  52.         words(Intro, Delay)
  53.         Console.WriteLine(" ")
  54.         Console.WriteLine(" ")
  55.         words(Intro2, Delay)
  56.         Console.WriteLine(" ")
  57.         Console.WriteLine(" ")
  58.         words(Intro3, Delay)
  59.         Console.WriteLine(" ")
  60.         Console.WriteLine(" ")
  61.         UStart = Console.ReadLine()
  62.         UStart = UStart.ToUpper
  63.  
  64.         If UStart = "Y" Then
  65.             Dim Starting As String
  66.             Starting = "Alright... let's go!"
  67.             words(Starting, Delay)
  68.             Threading.Thread.Sleep(2000)
  69.             ConsoleClear()
  70.         ElseIf UStart = "N" Then
  71.             Dim Bye As String
  72.             Bye = "Oh, i'll just end you then."
  73.             words(Bye, Delay)
  74.  
  75.             Console.WriteLine(" ")
  76.             Threading.Thread.Sleep(2000)
  77.             Console.WriteLine("Your health is now at 0!")
  78.             ConsoleClear()
  79.             GameOver()
  80.         End If
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.         Console.ReadKey()
  90.  
  91.  
  92.     End Sub
  93.  
  94. End Module
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top