AD&Den`s Lair - Content

	Искать в
Сегодня

Макросы для СС2

Название Деревья

Автор Morgan Olden

Команда TREES

Описание Ставит один из 19 древесных символов из CD2 "Miscellaneous" каталога наугад, вращает его на случайное количество градусов, и затем позволяет вам поставить его.

Инструкции Макрос запрашивает два значения определяющих диапазон символов, которые Вы желаете разместить. Например, вы можете ставить только символы от "Tree3" до "Tree7". В этом случае надо выбрать:

Smallest tree size: (1-19) 3
Largest tree size: (smallest-19) 7

Макрос продолжает выбирать символы, пока вы не щелкнете правой кнопкой мыши во время запроса:

(left=continue, right=quit)

Примечание: Перед использованием макроса, придется загрузить "Miscellaneous" каталог , и "выбрать" все символы, которые Вы будете использовать. (То есть для вышеупомянутого примера, кликните на каждый из символов от "Tree3" до "Tree7", сбросьте правым кликом "finish", и тогда напечатайте "tree" в командной строке чтобы начать макрос.)
Изменение для использования других символов
Этот макрос может легко быть изменен для использования с другими символами. Просто отредактируйте макрос, начиная со строки 34:

:symbol1
symbol;Tree1;1;1;angle;^DLoc:;
go loop
:symbol2
symbol;Tree2;1;1;angle;^DLoc:;
go loop
:symbol3
symbol;Tree3;1;1;angle;^DLoc:;
go loop
:symbol4
...
...
...

Для этой секции, и каждой из подобных секций, которые следуют, измените текст, обозначенный выше красным цветом (Tree1, Tree2, и т.д.) на название другого символа. Название секции указывает диапазон числа, которому символ будет соответствовать (то есть если вы запускаете макрос с минимумом/максимумом 1 и 5, будут использованы символы из секций от 1 до 5).

Код
macro TREES
ecoff
gv small 1
gv large 19
gv small ^DSmallest tree size: (1-19)
gv large ^DLargest tree size: (smallest-19)
ifn large-small done
:loop
gp cont ^D(left=continue, right=quit)
iferr done
random symbolnum
random angle
gv symbolnum (symbolnum*(large-small+1))+(small-1)
gv angle angle*360
ifp symbolnum-18 symbol19
ifp symbolnum-17 symbol18
ifp symbolnum-16 symbol17
ifp symbolnum-15 symbol16
ifp symbolnum-14 symbol15
ifp symbolnum-13 symbol14
ifp symbolnum-12 symbol13
ifp symbolnum-11 symbol12
ifp symbolnum-10 symbol11
ifp symbolnum-9 symbol10
ifp symbolnum-8 symbol9
ifp symbolnum-7 symbol8
ifp symbolnum-6 symbol7
ifp symbolnum-5 symbol6
ifp symbolnum-4 symbol5
ifp symbolnum-3 symbol4
ifp symbolnum-2 symbol3
ifp symbolnum-1 symbol2
:symbol1
symbol;Tree1;1;1;angle;^DLoc:;
go loop
:symbol2
symbol;Tree2;1;1;angle;^DLoc:;
go loop
:symbol3
symbol;Tree3;1;1;angle;^DLoc:;
go loop
:symbol4
symbol;Tree4;1;1;angle;^DLoc:;
go loop
:symbol5
symbol;Tree5;1;1;angle;^DLoc:;
go loop
:symbol6
symbol;Tree6;1;1;angle;^DLoc:;
go loop
:symbol7
symbol;Tree7;1;1;angle;^DLoc:;
go loop
:symbol8
symbol;Tree8;1;1;angle;^DLoc:;
go loop
:symbol9
symbol;Tree9;1;1;angle;^DLoc:;
go loop
:symbol10
symbol;Tree10;1;1;angle;^DLoc:;
go loop
:symbol11
symbol;Tree11;1;1;angle;^DLoc:;
go loop
:symbol12
symbol;Tree12;1;1;angle;^DLoc:;
go loop
:symbol13
symbol;Tree13;1;1;angle;^DLoc:;
go loop
:symbol14
symbol;Tree14;1;1;angle;^DLoc:;
go loop
:symbol15
symbol;Tree15;1;1;angle;^DLoc:;
go loop
:symbol16
symbol;Tree16;1;1;angle;^DLoc:;
go loop
:symbol17
symbol;Tree17;1;1;angle;^DLoc:;
go loop
:symbol18
symbol;Tree18;1;1;angle;^DLoc:;
go loop
:symbol19
symbol;Tree19;1;1;angle;^DLoc:;
go loop
:done
econ
endm

Morgan Olden

Опубликовано на: 2005-09-02 (2623 Прочтено)

[ Вернуться назад ]