Макросы для СС2
| Название | Плиты пола |
| Автор | Morgan Olden |
| Команда | randomtiles1 |
| Описание | Устанавливает символы плит пола в случайном порядке.
 |
| Инструкции | Выбирает уже имеющиеся символы плит пола в случайном порядке и случайном повороте.
В макросе используются стили заливки, сначала необходимо "Вставить как часть" следующий файл:
Потом стереть получившиеся три квадрата, а после этого ваша карта будет содержать символы-стили заливки "StoneFill1", "StoneFill2", "BlockFill", 12 символов плит пола.
Добавить контуры плитам пола взорвав их, и использовав команды OUTLINE или OUTLINE2.
После установки плит пола можно использовать символ "тени" (TileShading) для создания эффекта дополнительного объема - только не ошибитесь с углом поворота. Используйте "0" в графе угла поворота.
В макрос включен файл скрипта с кодом. Для работы скрипта просто запустите его из СС2.
 |
Код
macro randomtiles1
ecoff
gv mcoScale 1
gv mcoScale ^DScale factor
(1):
:mcoloop
gp mcocont ^D(left=continue, right=quit)
iferr
mcodone
random mcosymbolnum
random mcoR1
gv mcosymbolnum
mcosymbolnum*12
gv mcoangle 0
ifn mcoR1-.25 mcoDONEROTATING
gv mcoangle
90
ifn mcoR1-.5 mcoDONEROTATING
gv mcoangle 180
ifn mcoR1-.75
mcoDONEROTATING
gv mcoangle 270
:mcoDONEROTATING
ifp mcosymbolnum-11
mcosymbol12
ifp mcosymbolnum-10 mcosymbol11
ifp mcosymbolnum-9
mcosymbol10
ifp mcosymbolnum-8 mcosymbol9
ifp mcosymbolnum-7
mcosymbol8
ifp mcosymbolnum-6 mcosymbol7
ifp mcosymbolnum-5
mcosymbol6
ifp mcosymbolnum-4 mcosymbol5
ifp mcosymbolnum-3
mcosymbol4
ifp mcosymbolnum-2 mcosymbol3
ifp mcosymbolnum-1
mcosymbol2
:mcosymbol1
symbol;Tile1;1;1;mcoangle;^DLoc:;
go
mcoloop
:mcosymbol2
symbol;Tile2;1;1;mcoangle;^DLoc:;
go
mcoloop
:mcosymbol3
symbol;Tile3;1;1;mcoangle;^DLoc:;
go
mcoloop
:mcosymbol4
symbol;Tile4;1;1;mcoangle;^DLoc:;
go
mcoloop
:mcosymbol5
symbol;Tile5;1;1;mcoangle;^DLoc:;
go
mcoloop
:mcosymbol6
symbol;Tile6;1;1;mcoangle;^DLoc:;
go
mcoloop
:mcosymbol7
symbol;Tile7;1;1;mcoangle;^DLoc:;
go
mcoloop
:mcosymbol8
symbol;Tile8;1;1;mcoangle;^DLoc:;
go
mcoloop
:mcosymbol9
symbol;Tile9;1;1;mcoangle;^DLoc:;
go
mcoloop
:mcosymbol10
symbol;Tile10;1;1;mcoangle;^DLoc:;
go
mcoloop
:mcosymbol11
symbol;Tile11;1;1;mcoangle;^DLoc:;
go
mcoloop
:mcosymbol12
symbol;Tile12;1;1;mcoangle;^DLoc:;
go
mcoloop
:mcodone
endm
Copyright © AD&Den`s Lair Все права защищены.
