[Apelsinov]

Как в акаде можно это остановить, кроме как нажать 10 раз?

Код:

[Выделить все]

(repeat 10 (alert ""))

[Pilot]

Reset :P

[{Smirnoff}]

Нажать OK 10 раз. Попробуй! Это круче.

Код:

[Выделить все]

(while T
(alert "Еще разок?")
)

[Apelsinov]

Fantomas, уважаемый, я специально не стал использовать зацикливание, что бы не сделать ненароком гадость человеку. А то ведь попробует кто нибудь, с лиспом не знакомый, и потеряет работы полдня.

[{Smirnoff}]

Да цеж я шуткую А что это? Защита от нелегального копирования? Не сошелся ключик в регистре, "получи фашист гранатой 10 раз по голове!" Пока немогу найти более достойного объяснения.

Вот историю расскажу для меня не смешную. Подсмотрели тут у меня мужики лиспик и попросили сделать им такой же только понаварочанней. Ну мужики хорошие, халтурки подкидывают. Трудился я наверное неделю. Приношу, готово мужики... Давай ставь! А у них лицензионный AutoCAD2004LT на 5 лицензий, сетевой... :? Лиспиками то они не пользовались раньше...

[Apelsinov]

Fantomas, просто так решил выяснить, вдруг можно это безобразие как нибудь прекращать....Однажды у меня что то подобное случайно получилось, было не приятно.
А тут обменялись шутками с одним человечком, я ему и послал такую шутку, только вместо 10 там было 200 (хотел 1000 но не гуманно это)

[{Smirnoff}]

Безнравственный вы Апельсинов!!!!

А у нас Рождество (католическое), уходим на 4 дня выходных. Сидим, ждем "звонка". Вот предлагаю вариант Новогодней шутки. Сохранить в ACADDOC.LSP...

Код:

[Выделить все]

(defun c:zapadlo (/)
(while T
(alert "C Наступающим 2004-м годом! Все дела в следующем году!")
)
(princ)
)

(command "_zapadlo")

:?: :? :evil:

И я оказываеться не лучше...