Sub Process_Globals
Dim VarName As String
Dim VarScore As Int
Dim VarLevel As Int
End Sub
Sub Globals
Dim Label1 As Label
Dim Label2 As Label
Dim Label3 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("highscoreslayout")
load
save
End Sub
Sub save
Log(VarName&VarScore&VarLevel)
Main.SQL1.ExecNonQuery("INSERT INTO scores (name,score,level) VALUES ("& "'"&VarName&"'" &","&VarScore&"'" &","&VarLevel&")")
load
End Sub
Sub load
Dim Cursor As Cursor
Cursor = Main.SQL1.ExecQuery("SELECT name,score,level FROM scores")
Label1.Text = (Cursor.GetInt("level"))
Label2.Text = (Cursor.GetString("name"))
Label3.Text = (Cursor.GetInt("score") )
End Sub