Function Update_World()
chunk_x=(camera_x+R1/2)/512
chunk_y=(camera_y+R2/2)/512
For i=chunk_x-1 To chunk_x+1
For i1=chunk_y-1 To chunk_y+1
fl=OpenFile("map\"+i+","+i1+".txt")
For i2=0 To 15
For i3=0 To 15
;;;If 512*i-camera_x+i2*32<camera_x+R1 And 512*i1-camera_y+i3*32<camera_y+R2 And 512*i-camera_x+i2*32>camera_x And 512*i1-camera_y+i3*32>camera_y
DrawImage tile(ReadInt(fl)),512*i-camera_x+i2*32,512*i1-camera_y+i3*32
EndIf
Next
Next
CloseFile(fl)
Next
Next
Часть после ;;; почему-то не работает. Пожалуйста, помогите найти ошибку, но и вопрос с увеличением скорости тоже всё ещё актуален.