shiftos_next/shiftorium_api.vb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Module shiftorium_api
    'API for Shiftorium Applications.

    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
End Module