//----Картография----
//... Биндим 
//... F11 - LastSkill 
//... F9 - LastObject 
//... Перед запуском скрипта затариться 
//... хавкой и поесть до сыта. 
set #level 1 - установка типа 
//... создаваемой карты от 1 до 4 
//... 1 - Detail Map 
//... 2 - Regional Map 
//... 3 - Sea Chart 
//... 4 - Full World 
set #havka lastobjectid 
set lastskill 12 
//...---------------- 
set #s 1 
:map 
send F11 2300 
if #level = 1 
double_left 63, 63 // -- Detail Map 
end_if 
if #level = 2 
double_left 109, 64 // -- Regional Map 
end_if 
if #level = 3 
double_left 152, 64 // -- Sea Chart 
end_if 
if #level = 4 
double_left 194, 64 // -- Full World 
end_if 
//...---- 
// if #level = 4 
// set #level 3 
// else 
// set #level #level + 1 
// end_if 
//...---- 
if #s = 10 
set lastobjectid #havka 
send F9 1000 
set #s 1 
end_if 
wait 2000 
set #s #s + 1 
if lastmsg have no blank parchment 
flash uo 
end_script 
end_if 
gosub map 
end_script