shiftos_next/shiftorium_api.vb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

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