Full Source

1 files changed, 89 insertions, 0 deletions

diff --git a/ShiftOS/QuickChatStory.vb b/ShiftOS/QuickChatStory.vb
new file mode 100644
index 0000000..6a0f910
--- /dev/null
+++ b/ShiftOS/QuickChatStory.vb
@@ -0,0 +1,89 @@
+Public Class QuickChatStory
+
+    Dim UndecidedName As String = "Hacker101"
+    Public i = 0
+    Public qcmain() As String = {UndecidedName & " joined", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 "Polypodiopsida"}
+
+    Private Sub QuickChatStory_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        MsgBox("Hacker")
+    End Sub
+End Class
\ No newline at end of file