Function CreateChunk(i,i1)
fl=WriteFile("map\"+i+","+i1+".txt")
For i2=0 To 15
For i3=0 To 15
a=Rnd(20)
If a=1
WriteInt(fl,a)
Else
WriteInt(fl,0)
EndIf
Next
Next
CloseFile(fl)
End Function
Function ReplaceBlock(i,i1,i2,i3,i4)
fl=ReadFile("map\"+i+","+i1+".txt")
For j=0 To 15
For j1=0 To 15
chunk(j,j1)=ReadInt(fl)
If j=i2 And j1=i3 chunk(j,j1)=i4
Next
Next
CloseFile(fl)
fl=WriteFile("map\"+i+","+i1+".txt")
For j=0 To 15
For j1=0 To 15
WriteInt(fl,chunk(j,j1))
Next
Next
CloseFile(fl)
End Function
Нужна помощи в работе с файлами. Функция ReplaceBlock() работает, но согласитесь медленная она уж слишком. Пробовал через SeekFile, но результата вообще не было. Может кто знает способы получше, ведь мне надо лишь одно число заменить на другое, а значит точно должно быть решение по-лучше.