diff options
| author | EverythingWindows <[email protected]> | 2022-11-17 11:22:51 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-17 11:22:51 +0700 |
| commit | be79ac82e2a542d21f15222119be99051f32dfa8 (patch) | |
| tree | 0a2191a3273856e40c9180363be4753c98344b38 /ShiftOS-TheRevival/Functions/InGame/SystemManager/CodepointSystem.vb | |
| parent | f9c724e547a659671174d264ba74603ac8227b6e (diff) | |
| download | shiftos-therevival-old-be79ac82e2a542d21f15222119be99051f32dfa8.tar.gz shiftos-therevival-old-be79ac82e2a542d21f15222119be99051f32dfa8.tar.bz2 shiftos-therevival-old-be79ac82e2a542d21f15222119be99051f32dfa8.zip | |
More structured in functions
Diffstat (limited to 'ShiftOS-TheRevival/Functions/InGame/SystemManager/CodepointSystem.vb')
| -rw-r--r-- | ShiftOS-TheRevival/Functions/InGame/SystemManager/CodepointSystem.vb | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/ShiftOS-TheRevival/Functions/InGame/SystemManager/CodepointSystem.vb b/ShiftOS-TheRevival/Functions/InGame/SystemManager/CodepointSystem.vb new file mode 100644 index 0000000..6a76a28 --- /dev/null +++ b/ShiftOS-TheRevival/Functions/InGame/SystemManager/CodepointSystem.vb @@ -0,0 +1,11 @@ +Module CodepointSystem + Public Sub ChangeCP(Addition As Boolean, NeededCP As Integer) + Dim TempCP As Integer = Convert.ToInt32(Strings.ComputerInfo(2)) + If Addition = True Then + TempCP = TempCP + NeededCP + Else + TempCP = TempCP - NeededCP + End If + Strings.ComputerInfo(2) = Convert.ToString(TempCP) + End Sub +End Module |