diff options
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/TerminalApps.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/TerminalApps.vb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ShiftOS-TheRevival/MainForms/TerminalApps.vb b/ShiftOS-TheRevival/MainForms/TerminalApps.vb index 158fb8f..f137fc1 100644 --- a/ShiftOS-TheRevival/MainForms/TerminalApps.vb +++ b/ShiftOS-TheRevival/MainForms/TerminalApps.vb @@ -267,19 +267,19 @@ Module TerminalApps Select Case Terminal.TextBox1.TextLength Case 1 To 9 Dim GetCP As New Random - Dim GotCP As Integer = GetCP.Next(1, 6) + Dim GotCP As Integer = GetCP.Next(1, 3) ChangeCP(True, GotCP) Case 10 To 99 Dim GetCP As New Random - Dim GotCP As Integer = GetCP.Next(1, 51) + Dim GotCP As Integer = GetCP.Next(4, 26) ChangeCP(True, GotCP) Case 100 To 999 Dim GetCP As New Random - Dim GotCP As Integer = GetCP.Next(1, 501) + Dim GotCP As Integer = GetCP.Next(27, 251) ChangeCP(True, GotCP) Case 1000 To 9999 Dim GetCP As New Random - Dim GotCP As Integer = GetCP.Next(1, 5001) + Dim GotCP As Integer = GetCP.Next(252, 2501) ChangeCP(True, GotCP) End Select End Sub |