Войти
ФлеймФорумЮмор

Перлы Форума Gamedev.ru (500 стр)

Страницы: 1499 500 501 502513 Следующая »
#7485
22:02, 6 фев 2023

Свежее поступление от Сквозняка!

PROCEDURE ZAGRUZITJ_FAIL;
CONST
KOLP=10;
LIMIT=10000000;
VAR
S5: ARRAY OF SHORTSTRING;
Z5: ARRAY OF ANSISTRING;
Q364:M_3_64;
LABEL
99, 100;
BEGIN
SETLENGTH(S5,KOLP);
SETLENGTH(Z5,KOLP);
Writeln(cp866_to_utf8(' ŖāãĻ Ĩâáī ä ŠĢ '),IMJA_FAILA_SOHRANKI);
S5[1]:='KOMMEHTARIJ_FAILA='+#39;
S5[2]:='NOMER_VERSII='+#39;
S5[3]:='KOMMEHTARIJ_K_VERSII='+#39;

IF CITALNIK(IMJA_FAILA_SOHRANKI,S5,Z5,LIMIT)=FALSE THEN GOTO 99;
IF Z_L_2(Z5[1],1,Q364)>1 THEN KOMMEHTARIJ_FAILA5:=(Z5[Q364[3]]);
IF Z_L_2(Z5[2],2,Q364)>1 THEN NOMER_VERSII64:=F_VAL(Z5[Q364[3]]) ELSE GOTO 100;
IF Z_L_2(Z5[3],3,Q364)>1 THEN KOMMEHTARIJ_K_VERSII5:=(Z5[Q364[3]]);

GOTO 100;
99:
Writeln(cp866_to_utf8(' Ļ  ¯ā¨ įâĨ­¨¨ ä ŠĢ  '),IMJA_FAILA_SOHRANKI);
LAZA3:=1;
100:
END;

// <...>

FUNCTION SRAVNENIE_192(Q2:LONGINT):BOOLEAN;
BEGIN
SRAVNENIE_192:=FALSE;
CASE Q2 OF
192..253: SRAVNENIE_192:=TRUE; 
END;
END;

FUNCTION REZAK_KOMENTA_PO_STROKAM(ZXCS5:ANSISTRING):ANSISTRING;
VAR
Q3: BYTE;
Q2,W2: LONGINT;
LABEL
100;
BEGIN
//–ˆŠ‹ ‚‘’€‚‹Ÿž™ˆ‰ Ž‘‹… Š€†„ŽƒŽ 70 ‘ˆŒ‚Ž‹€ 13 10, …‘‹ˆ 70 ‘ˆŒ‚Ž‹ ‚ „ˆ€€‡Ž…
//192..253
//’Ž ‚‘’€‚‹Ÿ…’‘Ÿ Ž‘‹… 64..69-ƒŽ.
//‚ ŠŽ–… „Ž€‚‹Ÿ…’‘Ÿ 13 10 …™đ €‡
W2:=LENGTH(ZXCS5);
IF W2>20000 THEN BEGIN
                 W2:=20000;
                 SETLENGTH(ZXCS5,W2);
                 END; 
IF W2<=70 THEN BEGIN
               REZAK_KOMENTA_PO_STROKAM:=ZXCS5;
               GOTO 100;
               END;
Q3:=0;
FOR Q2:=1 TO W2 DO BEGIN
    REZAK_KOMENTA_PO_STROKAM:=REZAK_KOMENTA_PO_STROKAM+ZXCS5[Q2];
    INC(Q3); 
    IF Q3>64 THEN IF Q2+1<=W2 THEN
      IF SRAVNENIE_192(ORD(ZXCS5[Q2+1]))=TRUE THEN BEGIN 
                      REZAK_KOMENTA_PO_STROKAM:=REZAK_KOMENTA_PO_STROKAM+#13#10;                
                      Q3:=0;
                                                   END;
IF Q3>69 THEN IF Q2<>W2 THEN BEGIN      
                             REZAK_KOMENTA_PO_STROKAM:=REZAK_KOMENTA_PO_STROKAM+#13#10;
                             Q3:=0;
                             END;
                   END;
100:
REZAK_KOMENTA_PO_STROKAM:=REZAK_KOMENTA_PO_STROKAM+#13#10;
END;

// <...>

IF OSIBKA_FINDFIRST(SYSUTILS.findfirst(PUTJ_K_UTILITAM5+'git_add_vesj_proekt.sh',faAnyFile+fahidden+fareadonly,Info))
  =TRUE THEN BEGIN
             Writeln(cp866_to_utf8('Ž  ¤āĨáã, ãĒ § ­­ŽŦã ĸ âāĨâėĨŦ ĒĢîįĨ, ä ŠĢ git_add_vesj_proekt.sh ­Ĩ ŽĄ­ āãĻĨ­ - Ģ Ļ  ¯āŽĸĨāĒ¨ ĒĢîį !'));
             GOTO 99;
             END;
IMJA_FAILA_SOHRANKI:='pisuljka_versuljka.txt';
ZAGRUZITJ_FAIL;
IF LAZA3<>0 THEN GOTO 99;
FPSYSTEM('./cistilka.sh');

Фейл загружен, спасибо за кооперацию.

#7486
17:28, 7 фев 2023

устранили декана.праздник надо выпить.отказать вроде неудобно.дата.выпить.день знаний.выпить.тетка секретарь деканата подливала и подливала.споили декана.

#7487
18:13, 7 фев 2023

Имбирная Ведьмочка
> Свежее поступление от Сквозняка!
где смеяться?

#7488
18:38, 7 фев 2023

Mirrel
> где смеяться?
На 42-й строчке.

#7489
19:09, 7 фев 2023

Имбирная Ведьмочка
или всё-таки гульдьлефивлр?

#7490
19:12, 7 фев 2023

Имбирная Ведьмочка
> PROCEDURE ZAGRUZITJ_FAIL;

Упали под лавку, всей маршруткой.

#7491
19:16, 7 фев 2023

Вот нормальный понятный лаконичный код. Без структурной обфускации.

#7492
20:00, 7 фев 2023

Имбирная Ведьмочка
> На 42-й строчке.
откуда хоть отсчитывать?...

#7493
20:10, 7 фев 2023

Похоже на Паскаль, а я давно на нем не кодил.

#7494
(Правка: 21:59) 21:47, 7 фев 2023

https://www.linux.org.ru/forum/development/13486593

PS. Я уже решил, что время кадавров и покемонов на этом форуме давно ушло. Но получается, что нет, он еще подкидывает гениев нового времени.

#7495
21:28, 9 мар 2023

https://gamedev.ru/code/forum/?id=230154

+ Показать
#7496
15:38, 11 мар 2023

Mirrel
> под OpenGL 4+ 3-я версия работать будет?
https://gamedev.ru/code/forum/?id=194987&page=54&m=5705628#m802

#7497
12:50, 17 мар 2023

innuendo
> Исключения

#7498
2:42, 29 мар 2023

Sbtrn Devil не знает школьную геометрию. (написал сюда, чтобы не потерялось)

#7499
8:24, 29 мар 2023

Имбирная Ведьмочка
А чо такого? Я тоже просидел штаны на матане в свое время, по необходимости стараюсь наверстывать упущенное и вдуплять.

Ты так написал, будто это ппц какой позор и сразу перерекрывает путь в серьезный геймдев))

Страницы: 1499 500 501 502513 Следующая »
ФлеймФорумЮмор