blob: d669242c4c13710d9874fc2d40037f870d7a70f6 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
Imports System.IO
Public Class Form1
Public Shared ActualBuildLab As String
Public Shared BuildLab() As String
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
BuildLab = File.ReadAllLines("D:\ShiftOSBuildLab.txt")
If BuildLab(0) = "No" Then
Dim BuildNum As Integer = BuildLab(1)
BuildNum = BuildLab(1) + 1
ActualBuildLab = "ShiftOS_TheRevival." & BuildLab(3) & "." & BuildNum & "." & Date.Today.Year & Date.Today.Month & Date.Today.Day
BuildLab(1) = BuildNum
File.WriteAllLines("D:\ShiftOSBuildLab.txt", BuildLab)
End If
lbl_BuildString.Text = ActualBuildLab
Catch ex As Exception
MsgBox("Why? Because of " & ex.Message)
End Try
End Sub
Private Sub btn_Exit_Click(sender As Object, e As EventArgs) Handles btn_Exit.Click
Close()
End Sub
Private Sub btn_FreeRoam_Click(sender As Object, e As EventArgs) Handles btn_FreeRoam.Click
Try
Strings.GameState(0) = "Free"
TerminalPrompt.Show()
Close()
Catch ex As Exception
Dim NewBugSlap As New BugSlap
NewBugSlap.Show()
NewBugSlap.TextBox1.Text = ex.Message
Close()
End Try
End Sub
End Class
|
