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