ИГР: нужен был только этот кусок, мог и не заваливать на всю страницу.
Dim EnemySeq(5,2)
EnemySF = OpenFile("enemies\dwarf\dwarf_anim.txt")
For i=0 To 4
EnemySS = ReadLine$(EnemySF)
EnemySeq(i,0) = EnemySS
EnemySS = ReadLine$(EnemySF)
EnemySeq(i,1) = EnemySS
Next
CloseFile(EnemySF)
|