In FileIO.bas:
In Sub Load_User
After:
Code:
With DB_RS
Add:
Code:
UserList(UserIndex).id = Val(!id)
--
In TCP.bas:
In Sub User_ConnectNew:
After:
Code:
TempObjs(i).Amount = Int(Rnd * 10) + 1
Next i
Add:
Code:
DB_Conn.Execute "SELECT * FROM users ORDER BY id DESC LIMIT 1"
UserList(UserIndex).id = Val(DB_RS!id) + 1
In Declares.bas:
In Declarations:
After:
Code:
Type User 'Holds data for a user
Add:
Code:
id As Integer
That should work, though it hasn't been tested. Let me know if it doesn't. You'll have to replace all currently-existing users' IDs, though.