23-07-2006, 09:39 PM
Code:
Type FriendRec
Name as String * NAME_LEGNTH
End Type
Public Friend(0 to MAX_FRIENDS) as Friend Rec
Public Const MAX_FRIENDS = 20
Type PlayerRec
*Blah Blah Blah*
For i = 1 to max_friends
Friend(i).Name
Next i
end type
Then do all the saving/loading adding/sending stuff and you're done.