Флуд

[Red TF 1 408]

Я карта, я карта!

[Тазик-эвтаназик 30]

Скажите "Рюкзак!" ©

Я рюкзак

Я рюкзааак

Я рюкзак

Я рюкзааак

[Hey-Pi-Ron 585]

А у меня грузит ЦЫС.

[Robotonik 458]

А у меня грузит ЦЫС.

Заработал.

[Hey-Pi-Ron 585]

Тю. Даж сейлор-админов не было.

[Potniy Kiborg 26]

Давно их уже не видел, даже скучаю

[Hey-Pi-Ron 585]

ЦЫС упавший без Селор-Админов не считается упавшим.

[Almaz 12]

М? Хм... Кх-хм... хммм... ХХММММ... ХХХХХХХХХММММММММММММ...

[Exception 272]

В этой игре стрельба по-македонски не только зрелищна, но и крайне эффективна (дисклеймер: без крови)

 

[Almaz 12]

В этой игре стрельба по-македонски не только зрелищна, но и крайне эффективна (дисклеймер: без крови)

 

Весьма схематично.

[Exception 272]

Весьма схематично.

Месье изволит крови и прочих спецэффектов?

[Almaz 12]

Месье изволит крови и прочих спецэффектов?

Нет. Весьма схематично.

[Exception 272]

Нет. Весьма схематично.

Это Creative Assembly, которую давненько так купила СЕГА

 

А вот эти диалоги в ВК мне не нравятся. Слишком уж они подходят друг к другу. Но, тем не менее, интересно

[Third 173]

Хотелось бы иметь такой?

https://yandex.ru/images/search?img_url=http%3A%2F%2Fwww.truffleshuffle.co.uk%2Fstore%2Fimages_high_res%2FSonic_The_Hedgehog_Scene_Tin_Tote_hi_res.jpg&uinfo=sw-1600-sh-900-ww-1583-wh-799-pd-1-wp-16x9_1600x900&_=1429714850996&suggest_reqid=743220038142840782648403037897729&p=3&viewport=wide&text=Sonic%20Gold%20ring&pos=100&rpt=simage

 

Gold Rings:

https://yandex.ru/images/search?img_url=http%3A%2F%2Fm5.paperblog.com%2Fi%2F52%2F523096%2Fharveys-arcade-party-by-crackers-art-you-will-L-P7AeJ3.jpeg&uinfo=sw-1600-sh-900-ww-1583-wh-799-pd-1-wp-16x9_1600x900&_=1429715488347&p=5&viewport=wide&text=Sonic%20Golden%20ring&pos=162&rpt=simage

https://yandex.ru/images/search?img_url=http%3A%2F%2Fm5.paperblog.com%2Fi%2F52%2F523096%2Fharveys-arcade-party-by-crackers-art-you-will-L-RhzCtr.jpeg&uinfo=sw-1600-sh-900-ww-1583-wh-799-pd-1-wp-16x9_1600x900&_=1429715314207&suggest_reqid=743220038142840782648403037897729&p=5&viewport=wide&text=Sonic%20Gold%20ring&pos=162&rpt=simage

[norbert 343]

Отгадайте юзера (:

[Red TF 1 408]

Отгадайте юзера (:

Хмммм, ты?

[Almaz 12]

Он пьет вино.

[norbert 343]

Хмммм, ты?

не исключено (:

Теорию о мультиакке так и не опровергли (:

[Red TF 1 408]

не исключено (:

Теорию о мультиакке так и не опровергли (:

Ну да. И о раздвоении личности тоже.

[Third 173]

Отгадайте юзера (:

Странник Сайджел?

[norbert 343]

Он пьет вино.

ага, и от вина пар идёт.

Если бы он пил вино(из чайной филижанки), то это была бы явно про меня пикча (х

Впрочем, чай я тоже люблю и жалую (:

[User №848 46]

"Змейка" на Pascal Turbo с использованием модуля CRT в текстовом режиме.

Управление не очень, конечно. Работает в редакторе паскаля на DOS BOX. (на Abc.net Pascal, например, не работает)

uses crt;
var a,vx,vy,va,vb:integer;
    x,y,vlen,vspeed,exitgame:byte;
    pkey,vkey:char;
    Mas: Array[0..40,0..40] of integer;

Procedure Crash;
begin
TextBackGround(Black);
clrscr;
WriteLn('U ve crashed! 2 - Restart, 1 - exit game...');
read(exitgame)
end;

Procedure RDK; {What Key Pressed?}
begin
vkey := readkey;
case vkey of
#75: begin vx:=-1; vy:=0; end;   {left}
#72: begin vx:=0; vy:=-1; end;  {up}
#77: begin vx:=1; vy:=0;  end; {right}
#80: begin vx:=0; vy:=1;  end; {down}
#13: Crash;
end;
mem[0000:$041C]:=mem[0000:$041A]; {clear kbd buffer}
end;

Procedure MakeDot;
begin
Mas[0,40]:= 1+random(79);
Mas[1,40]:= 1+random(24);
GotoXy(Mas[0,40],Mas[1,40]);
Write(' ');
Inc(vlen);
TextBackGround(Black);
end;

procedure CheckRange;
begin
If x > 80 then x:= x - 80;
If x < 1 then x:= x + 80;
If y > 25 then y:= y - 25;
If y < 1 then y:= y + 25;
for a:= 0 to vlen-1 do
If (x = Mas[0,a]) and (y = Mas[1,a]) then Crash;
If (x = Mas[0,40]) and (y = Mas[1,40]) then MakeDot;
end;

Procedure MasShift;
begin
For a:= 0 to vlen do begin
Mas[0,a]:=Mas[0,a+1]; Mas[1,a]:=Mas[1,a+1]; end
end;

{started at 22 apr 2015 16:16:16 msk}
begin
randomize;
Repeat
clrscr;
exitgame:= 0;
x:= 20; y:=12;
vx:=1; vy:=0;
Repeat
Write('Enter gamespeed value (1..3)', #10#13,'gamespeed = '); ReadLn(vspeed);{:=100;}
Until vspeed in [1..3];
vspeed:= (4-vspeed)*50;
vlen:=10;
Mas[0,0]:=0;
Mas[1,0]:=0;
clrscr;
TextBackGround(White);
MakeDot;
Repeat
If Keypressed Then RDK;
MasShift;
delay(2*vspeed);
x:= x+vx;
y:= y+vy;
TextBackGround(White);
CheckRange;
Mas[0,vlen]:=x;
Mas[1,vlen]:=y;
GoToXY(x,y);
write(' ');
TextBackGround(Black);
GotoXy(Mas[0,0],Mas[1,0]);
write(' ');
{GotoXy(1,1); {Otladka koordinat}
{Write(vx:3,vy:3, x:3, y:3); {Otladka koordinat}
Until exitgame In [1,2];
Until exitgame = 1
end.
{end 22 apr 2015 21:12:12 msk} 

[Exception 272]

Отгадайте юзера (:

Полагаю, какой-то кардинал. Возможно даже XIX-XX века, если судить по подписи художника

[Rain Dreamer 362]

"Змейка" на Pascal Turbo с использованием модуля CRT в текстовом режиме.

Управление не очень, конечно. Работает в редакторе паскаля на DOS BOX. (на Abc.net Pascal, например, не работает)

uses crt;
var a,vx,vy,va,vb:integer;
    x,y,vlen,vspeed,exitgame:byte;
    pkey,vkey:char;
    Mas: Array[0..40,0..40] of integer;

Procedure Crash;
begin
TextBackGround(Black);
clrscr;
WriteLn('U ve crashed! 2 - Restart, 1 - exit game...');
read(exitgame)
end;

Procedure RDK; {What Key Pressed?}
begin
vkey := readkey;
case vkey of
#75: begin vx:=-1; vy:=0; end;   {left}
#72: begin vx:=0; vy:=-1; end;  {up}
#77: begin vx:=1; vy:=0;  end; {right}
#80: begin vx:=0; vy:=1;  end; {down}
#13: Crash;
end;
mem[0000:$041C]:=mem[0000:$041A]; {clear kbd buffer}
end;

Procedure MakeDot;
begin
Mas[0,40]:= 1+random(79);
Mas[1,40]:= 1+random(24);
GotoXy(Mas[0,40],Mas[1,40]);
Write(' ');
Inc(vlen);
TextBackGround(Black);
end;

procedure CheckRange;
begin
If x > 80 then x:= x - 80;
If x < 1 then x:= x + 80;
If y > 25 then y:= y - 25;
If y < 1 then y:= y + 25;
for a:= 0 to vlen-1 do
If (x = Mas[0,a]) and (y = Mas[1,a]) then Crash;
If (x = Mas[0,40]) and (y = Mas[1,40]) then MakeDot;
end;

Procedure MasShift;
begin
For a:= 0 to vlen do begin
Mas[0,a]:=Mas[0,a+1]; Mas[1,a]:=Mas[1,a+1]; end
end;

{started at 22 apr 2015 16:16:16 msk}
begin
randomize;
Repeat
clrscr;
exitgame:= 0;
x:= 20; y:=12;
vx:=1; vy:=0;
Repeat
Write('Enter gamespeed value (1..3)', #10#13,'gamespeed = '); ReadLn(vspeed);{:=100;}
Until vspeed in [1..3];
vspeed:= (4-vspeed)*50;
vlen:=10;
Mas[0,0]:=0;
Mas[1,0]:=0;
clrscr;
TextBackGround(White);
MakeDot;
Repeat
If Keypressed Then RDK;
MasShift;
delay(2*vspeed);
x:= x+vx;
y:= y+vy;
TextBackGround(White);
CheckRange;
Mas[0,vlen]:=x;
Mas[1,vlen]:=y;
GoToXY(x,y);
write(' ');
TextBackGround(Black);
GotoXy(Mas[0,0],Mas[1,0]);
write(' ');
{GotoXy(1,1); {Otladka koordinat}
{Write(vx:3,vy:3, x:3, y:3); {Otladka koordinat}
Until exitgame In [1,2];
Until exitgame = 1
end.
{end 22 apr 2015 21:12:12 msk} 

 

>Что-то графическое

>на Паскале

*грохнулся в обморок*

 

Полагаю, какой-то кардинал. Возможно даже XIX-XX века, если судить по подписи художника

Кардинал XIX века -  юзер Сканфа, яснопонятно.

[Exception 272]

Кардинал XIX века -  юзер Сканфа, яснопонятно.

Этот рисунок был шуткой, я полагаю. Если да - так и скажите. И, если что, не удивляйтесь