| Вопрос: Перевести на VB, слабо? | Добавлено: 26.12.03 08:19 |
Автор вопроса:  Malyav | Web-сайт: malyav.narod.ru | ICQ: 8440085 |
|
program Елочка; Begin Лес.елочка.create(); While not Лес.елочка.dead do Begin лес.елочка.age := лес.елочка.age 1; if зима or лето then begin лес.елочка.plain := true; лес.елочка.color := cl_green; end; метель.filename:=?D:MusicNSYNC - Bye Bye Bye.mp3?; метель.open; sleep(1000); метель.play; мороз.укутать(лес.елочка); GetMessage(H, лес.елочка.handle, 0, 0); if h.uint = wm_замерзла then dead := true; end; лес.заяц.create; лес.заяц.трусливый := true; лес.заяц.color := cl_gray; x := лес.елочка.left; y := лес.елочка.top; While x Begin лес.заяц.left := x; inc(x); лес.заяц.top := y round( abs(sin(x*pi/180)*10) ); end; Winexec(?wolf3d.exe /evil?,0); лес.елочка.cuttoclipboard; Праздник.pastefromclipboard; Праздник.елочка.skin.loadfromfile(?нарядная.jpg?); For i:=1 to SizeOf(Праздник.елочка.радость) do Прадзник.Дети.Настроение Праздник.елочка.радость; End. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Александр Разработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #1 | Добавлено: 26.12.03 08:29 |
|
Прикольно... Еще есть? |
||
|
Номер ответа: 2 Автор ответа: Malyav ICQ: 8440085 Вопросов: 15 Ответов: 117 |
Web-сайт: Профиль | | #2 | Добавлено: 26.12.03 08:40 |
|
Неа, это мне почтой пришло. Добавляйте свое. |
||
|
Номер ответа: 3 Автор ответа:  Страшный СонВопросов: 46 Ответов: 848 |
Профиль | | #3 | Добавлено: 26.12.03 22:08 |
|
Чем-то напоминает CON-файл Duke Nukem 3D.
|
||
Страница: 1 |