SuperStrict SeedRnd MilliSecs() Global ParticipantList:TList = CreateList() Type TParticipant Field number% Field ID$ Field match_up% Field is_fight% End Type Global number_of_cons:String = Input("Enter number of particpants: ") Global number_of_consI:Int = Int(number_of_cons:String) For Local i:Int = 1 To number_of_consI Local part01:TParticipant = New TParticipant ListAddLast(ParticipantList,part01) Local id:String = Input("ID of participant #" + i + ": ") part01.is_fight = 0 part01.ID = id part01.number = i part01.match_up = Rand(1, number_of_consI) Next For local all:TParticipant = EachIn ParticipantList Print all.ID Next WaitKey()
*FIXED* - Now works. :)