forum.boolean.name - Показать сообщение отдельно

05.10.2007, 17:44

Dim EnemySeq%(5,2)
EnemySF = OpenFile("enemies\dwarf\dwarf_anim.txt")
For i=0 To 4
EnemySeq(i,0) = Int(ReadLine$(EnemySF))
EnemySeq(i,1) = Int(ReadLine$(EnemySF))
Next 
CloseFile(EnemySF)

05.10.2007, 17:44	#13
jimon Сообщений: n/a	Re: Проблема при чтении AnimSeq с файла Dim EnemySeq%(5,2) EnemySF = OpenFile("enemies\dwarf\dwarf_anim.txt") For i=0 To 4 EnemySeq(i,0) = Int(ReadLine$(EnemySF)) EnemySeq(i,1) = Int(ReadLine$(EnemySF)) Next CloseFile(EnemySF)