Import comnik.inimod

 SuperStrict

 Local start:Int = MilliSecs()

 Local test:TIni = OpenIni("test.ini")

 Type TGegner
   Field x:Float
   Field y:Float
   Field id:Int
 End Type

 Local i:Int
 Local gegner_list:TList = CreateList()
 Local gegner:TGegner

 For i=0 To 100
   gegner = New TGegner
   gegner.x = Rand(0,800)
   gegner.y = Rand(0,600)
   gegner.id = i
  ListAddLast(gegner_list,gegner)
 Next

 For gegner = EachIn gegner_list
   AddField(test,gegner.id)
   AddKey(test,gegner.id,"x",gegner.x)
   AddKey(test,gegner.id,"y",gegner.y)
 Next

 For gegner = EachIn gegner_list
   If Rand(0,5) = 3 Then SetKeyValue(test,gegner.id,"x","geändert!")
   If Rand(0,5) = 2 Then Print(GetValue(test,gegner.id,"x"))
 Next

 SaveIni(test)
 Print((MilliSecs()-start))