mirror of
https://github.com/TheUltimateHacker/shiftos-next.git
synced 2025-01-22 09:02:00 -05:00
1fcbee8dab
I've added some new Shiftorium upgrades, as well as some save engine fixes. If you add to the engine, and try to load, say a Boolean value from a line containing a blank String value, it'll detect that and tell you it'll rewrite that line. It preserves what it has already loaded. I've also added some new terminal commands, and some Shiftorium bugfixes.
21 lines
482 B
VB.net
21 lines
482 B
VB.net
Module shiftorium_api
|
|
'API for Shiftorium Applications.
|
|
|
|
Public listboxtoaddto As ListBox
|
|
Public codepoints As Integer
|
|
|
|
Public Sub DeductCP(ammount As Integer)
|
|
codepoints -= ammount
|
|
savegame()
|
|
End Sub
|
|
|
|
Public Sub AddCP(ammount As Integer)
|
|
codepoints += ammount
|
|
savegame()
|
|
End Sub
|
|
|
|
Public Sub AddItem(name As String, CP As Integer)
|
|
listboxtoaddto.Items.Add(name & " - " & CP & " CP")
|
|
End Sub
|
|
|
|
End Module
|