Создание редактора карт. Часть 5 - заключение.

Сразу добавим в исходный код программы функцию сохранения карты:

Function savemap()
FlushKeys
local file = OpenFile("map.txt")
local x%,y%
for y = 0 to g_screen_width step 40
for x = 0 to g_screen_heigth step 40
WriteInt file,map[y/40,x/40]
next
next
CloseFile file
DrawText "Сохранено!",10,50
WaitKey()
End Function



Команда FlushKeys очищает информацию о нажатых клавишах. Она не особо востребована, однако я добавил её с целью избежать различные конфликты в программе.

Строка local file = OpenFile("map.txt") открывает файл с именем "map.txt" для дальнейшего чтения и записи. В этой функции мы используем только запись.

Далее, с помощью циклов и строки WriteInt file,map[y/40,x/40] мы сохраняем тайлы карты в файл "map.txt", после чего командой CloseFile file закрываем его, так как больше нам этот файл не понадобится.

С помощью команды WaitKey() ожидаем нажатие клавиши от пользователя.

Поздравляю! Ваш почти что полноценный редактор карт готов! Если возникли какие-либо проблемы, скачайте исходный код программы по нижеприведенной ссылке.

Попробуйте улучшить редактор карт, к примеру, функцией загрузки сохраненной карты в качестве практики. Главное - придумать алгоритм, а остальное - просто.

Скачать исходный код

***

Редактор карт в 80 строк. Вступление

Создание редактора карт. Часть 1 - объявление констант и глобальных переменных

Создание редактора карт. Часть 2 - основной цикл и инициализация карты

Создание редактора карт. Часть 3 - создаём функцию для управления редактором

Создание редактора карт. Часть 4 - функция рисования сетки и тайлов
Создание редактора карт. Часть 5 - заключение