From cf6ef54199351c5b23842a467eb389eafce1de8d Mon Sep 17 00:00:00 2001 From: Riley McArdle Date: Wed, 6 Jan 2010 15:33:16 -0600 Subject: [PATCH] Removed snakes game Easter egg. Fixed spelling of "Announcement". --- mRemoteV1/ChangeLog.txt | 2 + mRemoteV1/Easter/Easter.Snake.vb | 601 ------------------------ mRemoteV1/Forms/frmMain.Designer.vb | 16 +- mRemoteV1/Forms/frmMain.vb | 2 +- mRemoteV1/Forms/frmPassword.Designer.vb | 29 -- mRemoteV1/Forms/frmPassword.vb | 29 -- mRemoteV1/UI/UI.Window.Type.vb | 1 - mRemoteV1/mRemoteV1.vbproj | 1 - 8 files changed, 11 insertions(+), 670 deletions(-) delete mode 100644 mRemoteV1/Easter/Easter.Snake.vb diff --git a/mRemoteV1/ChangeLog.txt b/mRemoteV1/ChangeLog.txt index 8e819d2dd..afe84f5dc 100644 --- a/mRemoteV1/ChangeLog.txt +++ b/mRemoteV1/ChangeLog.txt @@ -1,5 +1,7 @@ 1.60: Changed name to mRemoteNG + Fixed menu bar not staying docked to left side + Removed snakes game Easter egg 1.50: Added the following formats to the "Save Connections As" function: diff --git a/mRemoteV1/Easter/Easter.Snake.vb b/mRemoteV1/Easter/Easter.Snake.vb deleted file mode 100644 index c5ef300fa..000000000 --- a/mRemoteV1/Easter/Easter.Snake.vb +++ /dev/null @@ -1,601 +0,0 @@ -Imports System.Threading.Thread -Imports System.IO - -Namespace Easter - Public Class Snake - Public Class Game - Private Shared _Mode As GameMode - Public Shared Property Mode() As GameMode - Get - Return _Mode - End Get - Set(ByVal value As GameMode) - Dim prevMode As GameMode = _Mode - _Mode = value - GameModeChanged(value, prevMode) - End Set - End Property - - Public Shared Player As Snake - Public Shared Apple As Food - Public Shared HighScores() As String - Public Shared Difficulty As Integer = 3 - Public Shared GridLength As Long - Public Shared GridHeight As Long - Public Shared TileWidth As Long - Public Shared TileHeight As Long - Public Shared WithEvents imgField As PictureBox - - Public Shared Sub CreatePicBox(ByVal Parent As Control) - 'setup the picture box - Game.imgField = New PictureBox - Game.imgField.Parent = Parent - Game.imgField.Size = New Size(100, 100) - Game.imgField.Location = New Point((Parent.Width / 2) - (imgField.Width / 2), (Parent.Height / 2) - (imgField.Height / 2)) - Game.imgField.BackColor = Color.Black - End Sub - - Public Shared Sub SetupGame() - 'setup the gamefield - GridLength = 20 - GridHeight = 20 - - 'setup the tiles - TileWidth = 5 - TileHeight = 5 - - 'create the player (snake) - Player = New Snake - Player.CreateSnake(3, 7, 10, Direction.Up) - - 'place some food to begin with - Apple = Food.PlaceFood() - End Sub - - Private Shared Sub GameModeChanged(ByVal NewMode As GameMode, ByVal PreviousMode As GameMode) - Select Case NewMode - Case GameMode.Welcome - SetupGame() - RefreshGraphics() - Case GameMode.Playing - If PreviousMode = GameMode.Pause Or PreviousMode = GameMode.Welcome Then - MainLoop() - End If - Case GameMode.Pause - RefreshGraphics() - Case GameMode.GameOver - RefreshGraphics() - Case GameMode.Highscore - Highscore.CreateScoreFile() - HighScores = Highscore.GetScores() - Dim fsc() As String = Highscore.PutPlayerInHighScore(HighScores) - HighScores = fsc - RefreshGraphics() - End Select - End Sub - - Public Shared Sub MainLoop() - Do While Mode = GameMode.Playing - CheckEat() - RefreshGraphics() - CheckLoose() - - Select Case Game.Difficulty - Case 1 - Sleep(200) - Case 2 - Sleep(140) - Case 3 - Sleep(80) - Case 4 - Sleep(70) - Case 5 - Sleep(60) - Case 6 - Sleep(50) - End Select - - Application.DoEvents() - - If Mode = GameMode.Playing Then - Player.ChangeDirection() - Player.Move() - End If - Loop - End Sub - - Public Shared Sub CheckEat() - If Player.Tiles(0).PosX = Apple.PosX And Player.Tiles(0).PosY = Apple.PosY Then - Player.AddTile() - Apple = Food.PlaceFood() - - Player.Score += Difficulty + 10 - End If - End Sub - - Public Shared Sub CheckLoose() - 'check edges - If Player.Tiles(0).PosX > GridLength - 1 _ - Or Player.Tiles(0).PosX < 0 _ - Or Player.Tiles(0).PosY > GridHeight - 1 _ - Or Player.Tiles(0).PosY < 0 Then - Mode = GameMode.GameOver - End If - - 'check eat itself - For Each ti As Tile In Player.Tiles - If ti.PosX = Player.Tiles(0).PosX And ti.PosY = Player.Tiles(0).PosY And ti IsNot Player.Tiles(0) Then - Mode = GameMode.GameOver - End If - Next - End Sub - - Public Shared Sub CheckKeyPress(ByVal Key As KeyEventArgs) - Select Case Key.KeyCode - Case Keys.Enter - If Mode = GameMode.Welcome Then - Mode = GameMode.Playing - ElseIf Mode = GameMode.Playing Then - Mode = GameMode.Pause - ElseIf Mode = GameMode.Pause Then - Mode = GameMode.Playing - ElseIf Mode = GameMode.GameOver Then - Mode = GameMode.Highscore - ElseIf Mode = GameMode.Highscore Then - Mode = GameMode.Welcome - End If - - - - Case Keys.Escape - Game.Quit() - - - - Case Keys.Up - If Mode = GameMode.Welcome Then - HigherDifficulty() - RefreshGraphics() - ElseIf Mode = GameMode.Playing Then - Player.ChangeDirectionRequest(Direction.Up) - End If - Case Keys.Right - If Mode = GameMode.Welcome Then - HigherDifficulty() - RefreshGraphics() - ElseIf Mode = GameMode.Playing Then - Player.ChangeDirectionRequest(Direction.Right) - End If - Case Keys.Down - If Mode = GameMode.Welcome Then - LowerDifficulty() - RefreshGraphics() - ElseIf Mode = GameMode.Playing Then - Player.ChangeDirectionRequest(Direction.Down) - End If - Case Keys.Left - If Mode = GameMode.Welcome Then - LowerDifficulty() - RefreshGraphics() - ElseIf Mode = GameMode.Playing Then - Player.ChangeDirectionRequest(Direction.Left) - End If - End Select - End Sub - - Public Shared Sub HigherDifficulty() - If Difficulty < 6 Then - Difficulty += 1 - End If - End Sub - - Public Shared Sub LowerDifficulty() - If Difficulty > 1 Then - Difficulty -= 1 - End If - End Sub - - Public Shared Sub RefreshGraphics() - imgField.Refresh() - End Sub - - Public Shared Sub SetBackgroundImage(ByVal Image As Image) - imgField.Image = Image - End Sub - - Public Shared Sub Quit() - Mode = GameMode.Pause - imgField.FindForm.Close() - End Sub - - - Public Class Highscore - Public Shared Function PutPlayerInHighScore(ByVal scores() As String) As Array - Dim nSc(10) As String - Dim newScore As Boolean = False - - For i As Integer = 0 To scores.Length - 1 - Dim numSc As Integer = scores(i).Substring(scores(i).IndexOf("=") + 1) - If Player.Score > numSc Then - newScore = True - Player.Name = InputBox("Your name:", , Player.Name) - - For j As Integer = 0 To 4 - If j < i Then - nSc(j) = scores(j) - ElseIf j = i Then - nSc(j) = Player.Name & "=" & Player.Score - nSc(j + 1) = scores(j) - ElseIf j > i Then - nSc(j + 1) = scores(j) - End If - Next - Exit For - End If - Next - - If newScore Then - Array.Resize(nSc, 5) - - SaveScores(nSc) - - Return nSc - Else - Return scores - End If - End Function - - Public Shared Sub SaveScores(ByVal scores() As String) - Dim tW As TextWriter = New StreamWriter(My.Application.Info.DirectoryPath & "\Scores.fx") - Dim strSc As String = "" - - For Each sc As String In scores - strSc &= sc & ";" - Next - - tW.WriteLine(strSc) - - tW.Close() - End Sub - - Public Shared Function GetScores() As Array - Dim sc() As String - - Dim tR As TextReader = New StreamReader(My.Application.Info.DirectoryPath & "\Scores.fx") - Dim strsc As String = tR.ReadLine - tR.Close() - - sc = strsc.Split(";") - - Array.Resize(sc, 5) - - Return sc - End Function - - Public Shared Sub CreateScoreFile() - If File.Exists(My.Application.Info.DirectoryPath & "\Scores.fx") = False Then - Dim tW As TextWriter = New StreamWriter(My.Application.Info.DirectoryPath & "\Scores.fx") - tW.WriteLine("FX=0;FX=0;FX=0;FX=0;FX=0") - tW.Close() - End If - End Sub - End Class - - Public Class Paint - Private Shared g As Graphics - Private Shared w As Long - Private Shared h As Long - Public Shared m As Decimal = 1.0 - - Private Shared SmallFont As New Font("Verdana", 7 * m) - Private Shared BigFont As New Font("Verdana", 8 * m, FontStyle.Bold) - Private Shared CenterAlign As New StringFormat() - - Public Shared Sub Draw(ByVal graphics As Graphics, ByVal width As Long, ByVal height As Long) - CenterAlign.LineAlignment = StringAlignment.Center - CenterAlign.Alignment = StringAlignment.Center - - g = graphics - w = width - h = height - - Select Case Game.Mode - Case GameMode.Welcome - DrawWelcome() - Case GameMode.Playing - DrawPlaying() - Case GameMode.Pause - DrawPlaying() - DrawPause() - Case GameMode.GameOver - DrawPlaying() - DrawGameOver() - Case GameMode.Highscore - DrawHighscore() - End Select - - g.DrawRectangle(Pens.White, New Rectangle(0, 0, w - 1, h - 1)) - End Sub - - Private Shared Sub DrawWelcome() - g.DrawString("SnakeFX Lite", BigFont, Brushes.White, w / 2, (h / 2) - 10, CenterAlign) - - Dim stars As String = "" - For i As Integer = 0 To Difficulty - 1 - stars &= Chr(149) - Next - - g.DrawString("Difficulty: " & stars, SmallFont, Brushes.LightGray, w / 2, (h / 2) + 10, CenterAlign) - End Sub - - Private Shared Sub DrawPlaying() - g.DrawString("Score: " & Game.Player.Score, SmallFont, Brushes.DarkGray, 5 * m, 5 * m) - - g.FillRectangle(Brushes.DarkGoldenrod, New Rectangle(Game.Apple.PosX * TileWidth * m, _ - Game.Apple.PosY * TileHeight * m, _ - TileWidth * m, _ - TileHeight * m)) - - For Each ti As Tile In Game.Player.Tiles - g.FillRectangle(Brushes.GreenYellow, New Rectangle(ti.PosX * TileWidth * m, _ - ti.PosY * TileHeight * m, _ - TileWidth * m, _ - TileHeight * m)) - Next - End Sub - - Private Shared Sub DrawPause() - g.DrawString("Pause", BigFont, Brushes.White, w / 2, h / 2, CenterAlign) - End Sub - - Private Shared Sub DrawGameOver() - g.DrawString("Game Over", BigFont, Brushes.White, w / 2, h / 2, CenterAlign) - - g.DrawString("Score: " & Game.Player.Score, SmallFont, Brushes.DarkGray, 5 * m, 5 * m) - End Sub - - Private Shared Sub DrawHighscore() - g.DrawString("High Score", BigFont, Brushes.White, w / 2, 25, CenterAlign) - - For i As Integer = 0 To Game.HighScores.Length - 1 - g.DrawString(Game.HighScores(i).Replace("=", ": "), SmallFont, Brushes.LightGray, w / 2, (10 * i + 40) * m, CenterAlign) - Next - End Sub - End Class - - - Public Enum GameMode - Welcome = 1 - Playing = 2 - Pause = 3 - GameOver = 4 - Highscore = 5 - End Enum - - Private Shared Sub imgField_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles imgField.Paint - Game.Paint.Draw(e.Graphics, imgField.Width, imgField.Height) - End Sub - End Class - - Public Class Snake - Public Tiles(-1) As Tile - Public Score As Long = 0 - Public Name As String = "" - - Public Sub CreateSnake(ByVal Length As Long, ByVal PosX As Integer, ByVal PosY As Integer, ByVal Direction As Direction) - Dim headTile As New Tile(PosX, PosY, Direction) - - Array.Resize(Tiles, Tiles.Length + 1) - Tiles(Tiles.Length - 1) = headTile - - For i As Integer = 0 To Length - 2 - AddTile() - Next - End Sub - - Public Sub DestroySnake() - Tiles = Nothing - End Sub - - Public Sub AddTile() - Dim nTi As New Tile - - nTi.Direction = Tiles(Tiles.Length - 1).Direction - - Select Case Tiles(Tiles.Length - 1).Direction - Case Direction.Up - nTi.PosX = Tiles(Tiles.Length - 1).PosX - nTi.PosY = Tiles(Tiles.Length - 1).PosY + 1 - Case Direction.Right - nTi.PosX = Tiles(Tiles.Length - 1).PosX - 1 - nTi.PosY = Tiles(Tiles.Length - 1).PosY - Case Direction.Down - nTi.PosX = Tiles(Tiles.Length - 1).PosX - nTi.PosY = Tiles(Tiles.Length - 1).PosY - 1 - Case Direction.Left - nTi.PosX = Tiles(Tiles.Length - 1).PosX + 1 - nTi.PosY = Tiles(Tiles.Length - 1).PosY - End Select - - Array.Resize(Tiles, Tiles.Length + 1) - - Tiles(Tiles.Length - 1) = nTi - End Sub - - Private DirectionRequest As Direction - Public Sub ChangeDirectionRequest(ByVal Direction As Direction) - DirectionRequest = Direction - End Sub - - Public Sub ChangeDirection() - Dim direction As Direction = DirectionRequest - - Dim ok As Boolean = True - - Select Case Tiles(0).Direction - Case Easter.Snake.Direction.Up - If direction = Easter.Snake.Direction.Down Then - ok = False - End If - Case Easter.Snake.Direction.Right - If direction = Easter.Snake.Direction.Left Then - ok = False - End If - Case Easter.Snake.Direction.Down - If direction = Easter.Snake.Direction.Up Then - ok = False - End If - Case Easter.Snake.Direction.Left - If direction = Easter.Snake.Direction.Right Then - ok = False - End If - End Select - - If ok Then - If direction <> 0 Then - Me.Tiles(0).Direction = direction - End If - End If - - DirectionRequest = 0 - End Sub - - Public Sub Move() - For i As Integer = Tiles.Length - 1 To 1 Step -1 - Tiles(i).PosX = Tiles(i - 1).PosX - Tiles(i).PosY = Tiles(i - 1).PosY - Tiles(i).Direction = Tiles(i - 1).Direction - Next - - Select Case Tiles(0).Direction - Case Direction.Up - Tiles(0).PosY -= 1 - Case Direction.Right - Tiles(0).PosX += 1 - Case Direction.Down - Tiles(0).PosY += 1 - Case Direction.Left - Tiles(0).PosX -= 1 - End Select - End Sub - End Class - - Public Enum Direction - Up = 1 - Right = 2 - Down = 3 - Left = 4 - End Enum - - Public Class Tile - Public Sub New(Optional ByVal posx As Integer = 0, Optional ByVal posy As Integer = 0, Optional ByVal direction As Direction = Easter.Snake.Direction.Up) - _PosX = posx - _PosY = posy - _Direction = direction - End Sub - - Private _PosX As Integer - Public Property PosX() As Integer - Get - Return _PosX - End Get - Set(ByVal value As Integer) - _PosX = value - End Set - End Property - - Private _PosY As Integer - Public Property PosY() As Integer - Get - Return _PosY - End Get - Set(ByVal value As Integer) - _PosY = value - End Set - End Property - - Private _Direction As Direction - Public Property Direction() As Direction - Get - Return _Direction - End Get - Set(ByVal value As Direction) - _Direction = value - End Set - End Property - End Class - - Public Class Food - Public Sub New(ByVal posx As Integer, ByVal posy As Integer) - _PosX = posx - _PosY = posy - End Sub - - Private _PosX As Integer - Public Property PosX() As Integer - Get - Return _PosX - End Get - Set(ByVal value As Integer) - _PosX = value - End Set - End Property - - Private _PosY As Integer - Public Property PosY() As Integer - Get - Return _PosY - End Get - Set(ByVal value As Integer) - _PosY = value - End Set - End Property - - - Public Shared Function PlaceFood() As Food - Dim ok As Boolean = False - - Dim PosX As Integer - Dim PosY As Integer - - Do Until ok - PosX = Tools.RandomNumber(Game.GridLength, 0) - PosY = Tools.RandomNumber(Game.GridHeight, 0, Now.Millisecond + Now.Second) - - Dim problem As Boolean = False - - For Each ti As Tile In Game.Player.Tiles - If ti.PosX = PosX And ti.PosY = PosY Then - problem = True - End If - Next - - If problem = False Then - ok = True - End If - Loop - - Return New Food(PosX, PosY) - End Function - End Class - - Public Class Tools - Public Shared Function RandomNumber(ByVal MaxNumber As Integer, Optional ByVal MinNumber As Integer = 0, Optional ByVal Seed As Long = 0) As Integer - Dim r As New Random - - If Seed <> 0 Then - r = New Random(Seed) - End If - - If MinNumber > MaxNumber Then - Dim t As Integer = MinNumber - MinNumber = MaxNumber - MaxNumber = t - End If - - Return r.Next(MinNumber, MaxNumber) - End Function - End Class - End Class -End Namespace - diff --git a/mRemoteV1/Forms/frmMain.Designer.vb b/mRemoteV1/Forms/frmMain.Designer.vb index 9f596ab0b..ab180b322 100644 --- a/mRemoteV1/Forms/frmMain.Designer.vb +++ b/mRemoteV1/Forms/frmMain.Designer.vb @@ -69,7 +69,7 @@ Partial Class frmMain Me.mMenInfoWebsite = New System.Windows.Forms.ToolStripMenuItem Me.mMenInfovRD08 = New System.Windows.Forms.ToolStripMenuItem Me.mMenInfoSep2 = New System.Windows.Forms.ToolStripSeparator - Me.mMenInfoAnnouncments = New System.Windows.Forms.ToolStripMenuItem + Me.mMenInfoAnnouncements = New System.Windows.Forms.ToolStripMenuItem Me.mMenInfoAbout = New System.Windows.Forms.ToolStripMenuItem Me.mMenSep3 = New System.Windows.Forms.ToolStripSeparator Me.lblQuickConnect = New System.Windows.Forms.ToolStripLabel @@ -373,7 +373,7 @@ Partial Class frmMain ' 'mMenInfo ' - Me.mMenInfo.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mMenInfoHelp, Me.mMenInfoSep1, Me.mMenInfoDonate, Me.mMenInfoWebsite, Me.mMenInfovRD08, Me.mMenInfoSep2, Me.mMenInfoAnnouncments, Me.mMenInfoAbout}) + Me.mMenInfo.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mMenInfoHelp, Me.mMenInfoSep1, Me.mMenInfoDonate, Me.mMenInfoWebsite, Me.mMenInfovRD08, Me.mMenInfoSep2, Me.mMenInfoAnnouncements, Me.mMenInfoAbout}) Me.mMenInfo.Name = "mMenInfo" Me.mMenInfo.Size = New System.Drawing.Size(41, 20) Me.mMenInfo.Text = "&Help" @@ -418,12 +418,12 @@ Partial Class frmMain Me.mMenInfoSep2.Name = "mMenInfoSep2" Me.mMenInfoSep2.Size = New System.Drawing.Size(199, 6) ' - 'mMenInfoAnnouncments + 'mMenInfoAnnouncements ' - Me.mMenInfoAnnouncments.Image = Global.mRemote.My.Resources.Resources.News - Me.mMenInfoAnnouncments.Name = "mMenInfoAnnouncments" - Me.mMenInfoAnnouncments.Size = New System.Drawing.Size(202, 22) - Me.mMenInfoAnnouncments.Text = "Announcments" + Me.mMenInfoAnnouncements.Image = Global.mRemote.My.Resources.Resources.News + Me.mMenInfoAnnouncements.Name = "mMenInfoAnnouncements" + Me.mMenInfoAnnouncements.Size = New System.Drawing.Size(202, 22) + Me.mMenInfoAnnouncements.Text = "Announcements" ' 'mMenInfoAbout ' @@ -625,7 +625,7 @@ Partial Class frmMain Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator Friend WithEvents mMenToolsUVNCSC As System.Windows.Forms.ToolStripMenuItem Friend WithEvents mMenToolsComponentsCheck As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents mMenInfoAnnouncments As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents mMenInfoAnnouncements As System.Windows.Forms.ToolStripMenuItem Friend WithEvents mMenInfovRD08 As System.Windows.Forms.ToolStripMenuItem Friend WithEvents mMenInfoSep2 As System.Windows.Forms.ToolStripSeparator diff --git a/mRemoteV1/Forms/frmMain.vb b/mRemoteV1/Forms/frmMain.vb index ec042666e..c8d10addf 100644 --- a/mRemoteV1/Forms/frmMain.vb +++ b/mRemoteV1/Forms/frmMain.vb @@ -487,7 +487,7 @@ Public Class frmMain App.Runtime.GoToDonate() End Sub - Private Sub mMenInfoAnnouncments_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mMenInfoAnnouncments.Click + Private Sub mMenInfoAnnouncements_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mMenInfoAnnouncements.Click App.Runtime.Windows.Show(UI.Window.Type.Announcement) End Sub diff --git a/mRemoteV1/Forms/frmPassword.Designer.vb b/mRemoteV1/Forms/frmPassword.Designer.vb index 1b96c292d..b342ec1e2 100644 --- a/mRemoteV1/Forms/frmPassword.Designer.vb +++ b/mRemoteV1/Forms/frmPassword.Designer.vb @@ -31,8 +31,6 @@ Partial Class frmPassword Me.lblStatus = New System.Windows.Forms.Label Me.pbLock = New System.Windows.Forms.PictureBox Me.pnlImage = New System.Windows.Forms.Panel - Me.txtSnake = New System.Windows.Forms.TextBox - Me.lblTips = New System.Windows.Forms.Label CType(Me.pbLock, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlImage.SuspendLayout() Me.SuspendLayout() @@ -131,29 +129,6 @@ Partial Class frmPassword Me.pnlImage.Size = New System.Drawing.Size(100, 100) Me.pnlImage.TabIndex = 8 ' - 'txtSnake - ' - Me.txtSnake.BackColor = System.Drawing.SystemColors.Control - Me.txtSnake.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtSnake.Location = New System.Drawing.Point(9, 143) - Me.txtSnake.Name = "txtSnake" - Me.txtSnake.ReadOnly = True - Me.txtSnake.Size = New System.Drawing.Size(100, 13) - Me.txtSnake.TabIndex = 9 - Me.txtSnake.TabStop = False - ' - 'lblTips - ' - Me.lblTips.ForeColor = System.Drawing.Color.White - Me.lblTips.Location = New System.Drawing.Point(129, 6) - Me.lblTips.Name = "lblTips" - Me.lblTips.Size = New System.Drawing.Size(150, 118) - Me.lblTips.TabIndex = 10 - Me.lblTips.Text = "Enter: Start/Pause" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Up/Down: Change difficulty" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Arrow Keys: Steer the snake" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Esc:" & _ - " Quit (at any time)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Have Fun! =)" - Me.lblTips.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.lblTips.Visible = False - ' 'frmPassword ' Me.AcceptButton = Me.btnOK @@ -165,13 +140,11 @@ Partial Class frmPassword Me.Controls.Add(Me.txtVerify) Me.Controls.Add(Me.txtPassword) Me.Controls.Add(Me.lblStatus) - Me.Controls.Add(Me.txtSnake) Me.Controls.Add(Me.lblVerify) Me.Controls.Add(Me.lblPassword) Me.Controls.Add(Me.pnlImage) Me.Controls.Add(Me.btnCancel) Me.Controls.Add(Me.btnOK) - Me.Controls.Add(Me.lblTips) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog Me.MaximizeBox = False Me.MinimizeBox = False @@ -196,6 +169,4 @@ Partial Class frmPassword Friend WithEvents lblStatus As System.Windows.Forms.Label Friend WithEvents pbLock As System.Windows.Forms.PictureBox Friend WithEvents pnlImage As System.Windows.Forms.Panel - Friend WithEvents txtSnake As System.Windows.Forms.TextBox - Friend WithEvents lblTips As System.Windows.Forms.Label End Class diff --git a/mRemoteV1/Forms/frmPassword.vb b/mRemoteV1/Forms/frmPassword.vb index 2972e5148..0f08cfa1c 100644 --- a/mRemoteV1/Forms/frmPassword.vb +++ b/mRemoteV1/Forms/frmPassword.vb @@ -107,33 +107,4 @@ Me.txtVerify.SelectionLength = Me.txtVerify.TextLength End If End Sub - - - Private Sub txtPassword_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPassword.TextChanged - If txtPassword.Text = "ijustwannaplay" Then - pbLock.Visible = False - btnOK.Visible = False - btnCancel.Visible = False - txtPassword.Visible = False - txtVerify.Visible = False - lblPassword.Visible = False - lblStatus.Visible = False - lblVerify.Visible = False - AcceptButton = Nothing - CancelButton = Nothing - BackColor = Color.DimGray - Me.Text = "SnakeFX Lite" - pnlImage.Top = (Me.ClientSize.Height / 2) - (Me.pnlImage.Height / 2) - lblTips.Visible = True - - Easter.Snake.Game.CreatePicBox(pnlImage) - Easter.Snake.Game.Mode = Easter.Snake.Game.GameMode.Welcome - Easter.Snake.Game.SetupGame() - txtSnake.Focus() - End If - End Sub - - Private Sub txtSnake_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtSnake.KeyDown - Easter.Snake.Game.CheckKeyPress(e) - End Sub End Class \ No newline at end of file diff --git a/mRemoteV1/UI/UI.Window.Type.vb b/mRemoteV1/UI/UI.Window.Type.vb index c34440a20..de7c8c8f5 100644 --- a/mRemoteV1/UI/UI.Window.Type.vb +++ b/mRemoteV1/UI/UI.Window.Type.vb @@ -16,7 +16,6 @@ Namespace UI Help = 12 ExternalApps = 13 PortScan = 14 - Snake = 15 UltraVNCSC = 16 ComponentsCheck = 17 Announcement = 18 diff --git a/mRemoteV1/mRemoteV1.vbproj b/mRemoteV1/mRemoteV1.vbproj index f7b920c26..eed1a487a 100644 --- a/mRemoteV1/mRemoteV1.vbproj +++ b/mRemoteV1/mRemoteV1.vbproj @@ -197,7 +197,6 @@ - frmChoosePanel.vb