Куча — Говнокод.ру

Куча / Говнокод #15887

+139

1
2

Представляю Вашему вниманию новейший минусатор: http://rghost.ru/54852059
Исправлены многие ошибки предыдущих версий. Не побрезгуйте, родимые!..

Новейший минусатор для творения непотребностей с рейтингом.

brutushafens, 02 Мая 2014

Комментарии (45)

Куча / Говнокод #15879

+117

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98

DataSection
  Data.f 0.0025,0.0026,0.00235
EndDataSection

Global SCREENWIDTH,SCREENHEIGHT

Define .f:bitplanes.b=32

SCREENWIDTH=GetSystemMetrics_(#SM_CXSCREEN)
SCREENHEIGHT=GetSystemMetrics_(#SM_CYSCREEN)

If InitSprite()=0 Or InitSprite3D()=0 Or InitKeyboard()=0
  MessageRequester("Error","Can't access DirectX",0)
  End
EndIf

desktop.l = CreateImage(0,DesktopWidth(0),DesktopHeight(0))
hdc.l = StartDrawing(ImageOutput(0))
SelectObject_(hdc,desktop)
BitBlt_(hdc,0,0,DesktopWidth(0),DesktopHeight(0),GetDC_(GetDesktopWindow_()),0,0,#SRCCOPY)
StopDrawing()
DeleteDC_(hdc)

While OpenScreen(SCREENWIDTH,SCREENHEIGHT,bitplanes.b,"FullScreen")=0
  If bitplanes.b>16
    bitplanes.b-8
  ElseIf SCREENHEIGHT>600
    SCREENWIDTH=800
    SCREENHEIGHT=600
  ElseIf SCREENHEIGHT>480
    SCREENWIDTH=640
    SCREENHEIGHT=480
  ElseIf SCREENHEIGHT>400
    SCREENWIDTH=640
    SCREENHEIGHT=400
  ElseIf SCREENHEIGHT>240
    SCREENWIDTH=320
    SCREENHEIGHT=240
  ElseIf SCREENHEIGHT>200
    SCREENWIDTH=320
    SCREENHEIGHT=200
  Else
    MessageRequester("Listen:","Can't open Screen!",0)
    End
  EndIf
Wend
w=DesktopWidth(0)
h=DesktopHeight(0)
z=1000/Sqr(3)
perspw=w
PerspectiveAngle.d=#PI/16
CreateSprite(0,w,h,#PB_Sprite_Texture)
StartDrawing(SpriteOutput(0))
DrawImage(ImageID(0),0,0)
StopDrawing()
DisplaySprite(0,0,0)
FlipBuffers()
DisplaySprite(0,0,0)
CreateSprite3D(0,0)
x3=w-1
x4=0
y3=h
y4=h
z3=z
z4=z
For t.b=1 To 3
  omega=-omega
  Read alfa
  Repeat
    ExamineKeyboard()
    ClearScreen(0)
    Incrz=h*Sin(Angle)
    x1=Incrz*Tan(PerspectiveAngle)
    x2=x3-x1
    y1=h-h*Cos(Angle)
    y2=y1
    z1=z+Incrz/4.75
    z2=z1:Start3D()
    TransformSprite3D(0,x1,y1,z1,x2,y2,z2,x3,y3,z3,x4,y4,z4)
    DisplaySprite3D(0,0,0,255)
    Stop3D()
    omega+alfa
    If omega<0
      Angle-Pow(omega,2)
    Else
      Angle+Pow(omega,2)
    EndIf
    If Angle<0 Or Angle>4/5*#PI
      Break
    EndIf
    FlipBuffers()
    Delay(10)
  Until KeyboardPushed(#PB_Key_Escape)
Next
DisplaySprite(0,0,0)
FlipBuffers()
Delay(10)
DisplaySprite(0,0,0)

Очень интересный эффект - экран "отшатывается" от юзера :)
Для компиляции понадобится PureBasic не ниже 4.50

brutushafens, 01 Мая 2014

Комментарии (7)

Куча / Говнокод #15866

+144

1
2
3

Кто против выхода языка программирования Lapis - ставьте минус, кто за - плюс.
P.s. если наберётся 10 плюсов, дам интерпретатор.
P.p.s. если наберётся 10 минусов, никогда никому тут не дам интерпретатор :)

Ждём-с, пока пост наберёт +-10.

Mobac, 30 Апреля 2014

Комментарии (21)

Куча / Говнокод #15863

+118

01
02
03
04
05
06
07
08
09
10
11

put 'Сейчас я загадаю число от 1 до 100, и это будет..'
a = rnd(100)
put a.to_s + ' - загаданное число! В конце мы получим 4!'
b = a*2
put b.to_s + ' - это ' + a.to_s + ', умноженное на 2!'
c = b+8
put c.to_s + ' - это ' + b.to_s + ', к которому мы прибавили 8!'
e = c/2 
put e.to_s + ' - это ' + c.to_s + ', которое мы разделили на 2!'
d = e-a
put d.to_s + ' - это результат. То есть мы отняли от ' + e.to_s + ' - ' + a.to_s + '. Видите, это же ' + d.to_s + '!'

С названием языка всё-таки решился, называл его "Lapis". (На Ruby синтаксис немного похож, но очень много будет отличий)!
Кто-нибудь хочет принять участие в разработке интерпретатора? Пишу на javascript-е, будет транслируемый язык.
Кто за, ставьте плюс посту и пишите в комментарии.

Mobac, 29 Апреля 2014

Комментарии (79)

Куча / Говнокод #15855

+143

1
2

Небольшие программки :)
Советую посмотреть и написать отзыв о любой из них.

Скачать >> http://coun.at.ua/stuff/1-1-0-122

Mobac, 28 Апреля 2014

Комментарии (65)

Куча / Говнокод #15846

+129

1

http://archive.today/9LWN

From: Linus Torvalds
I think goto's are fine, and they are often more readable than large
amounts of indentation.

laMer007, 25 Апреля 2014

Комментарии (111)

Куча / Говнокод #15842

+124

01
02
03
04
05
06
07
08
09
10
11
12

import elements
import functions
import system
error = 'Ошибок нет'
add = input ('Введите элемент, который вы хотите добавить в таблицу')
table = element.table
addToTable : add
if addTo.table : Successful {
 put 'Ошибок нет' }
else 
put error
system.exit

На случай, если друг подумает, что ничего не работает..
Писалось на языке без названия, не придумал ещё :)

Mobac, 24 Апреля 2014

Комментарии (11)

Куча / Говнокод #15840

+143

1

CFGDBFACADOEBFAAAACOABAOBBGAAODBFADCCCFDOGDACCOGAAAAAACOBDBGAAOCBGDEBDFDADGCBEDAABCOBEECBDAOECFCCFCCEOBDOAABDFOAOBDBOBGOBDBBEECBBAOOBADBADAEGAOCBEFAABCFDBGOAFGBGEBBDBBGBBGBEACOOACAAABCBDADGACAAABDOOAAFCBBDBODCBDFDCBEDAAACEAGACFDCADDFOBCCBOBDGEDEFBAAAABDAACDBDGODGBCBBDCOAEGAOBAEFBOEDGCCGEDBOCFDBEBBEFAOCACGBFEAAEBGFDOBCAADACAAECGEAABDBFACGBGECEGCDADBFACGABOCGGDFEABOCOGCFGCOAAAAAOEAAABGECCODAD

"Змейка" в машинных кодах на системе счисления wct. WctEditor - http://yadi.sk/d/i9Me1IQ7MbHCD.

Mobac, 24 Апреля 2014

Комментарии (1)

Куча / Говнокод #15838

+126

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100

program FeyverkFirework;

{$R+}

uses
  Crt, Graph;

var
  GraphDriver, GraphMode, ErrorCode : Integer;
  Ch : Char;
  I, J, K, XStart, YStart : Integer;
  XX,YY,CC : Array[1..1000] of Integer;
  FX,FY,DX,DY : Array[1..70] of Real;
  R, T, X, Y : Real;

procedure Explode (C : Integer);

begin
  T := -Pi;
  I := 0;
  Repeat
    I := I + 1;
    DX[I] := Sin(T)*5;
    DY[I] := Cos(T)*5;
    FX[I] := X;
    FY[I] := Y;
    T := T + 0.15;
  Until T > Pi;

  K := 0;
  Repeat
    For J := 1 to I do
      begin
        If C = 0 then
          PutPixel (Round(FX[J]),Round(FY[J]),0)
        else
          PutPixel (Round(FX[J]),Round(FY[J]),Random(GetMaxColor+1));
        FX[J] := FX[J] + DX[J];
        FY[J] := FY[J] - DY[J];
        DY[J] := DY[J] - 0.2;
      end;
    K := K + 1;
    Delay(10); { This was not in the original. }
  Until Keypressed or (K > 50);
end;

procedure ShootFireWork;

begin
  { Delay (1000); }
  Randomize;
  T := Random / 2 - 0.25 + Pi/2;
  X := XStart;
  Y := YStart;
  R := 20;
  I := 0;
  Repeat
    Inc (I);
    XX[I] := Round(X);
    YY[I] := Round(Y);
    CC[I] := GetPixel (XX[I],YY[I]);
    If I > 1 then
      If (XX[I] = XX[I-1]) and (YY[I] = YY[I-1]) then CC[I] := CC[I-1];
    PutPixel (XX[I],YY[I],Random(GetMaxColor+1));
    If I > 5 then
      PutPixel (XX[I-5],YY[I-5],CC[I-5]);
    X := X + Cos(T)*R;
    Y := Y - Sin(T)*R;
    If T > Pi/2 then
      T := T + 0.02
    else
      T := T - 0.02;
    R := R * 0.93;
    Delay (20);
  Until KeyPressed or (T < 0) or (T > Pi);

  For J := I-5 to I do

     PutPixel (XX[J],YY[J],CC[J]);
{    ch := readkey; }
  Explode (1);
  Explode (0);
end;

begin
  GraphDriver := Detect;
  InitGraph (GraphDriver, GraphMode, '..');
  ErrorCode := GraphResult;
  If ErrorCode <> grOk then
    begin
      Writeln ('Graphics Error: ',GraphErrorMsg(ErrorCode));
      Halt;
    end;
  SetColor (GetMaxColor);
  XStart := GetMaxX div 2;
  YStart := GetMaxY - 20;

  Repeat
    ShootFireWork;
  Until Keypressed;

Ch := ReadKey;
ClearDevice;
CloseGraph;
end.

Работает же! Красиво получается :)
Выполнить код можно здесь: http://pma.clan.su/index.html.
Алгоритм выполнения кода. Жмём E. Вводим код. Нажимаем в левом нижнем углу CoPas editor. Нажимаем R. Радуемся! :)

Mobac, 24 Апреля 2014

Комментарии (9)

Куча / Говнокод #15824

+125

1

'q<->5.,q<->r<0>3.,q<T>r<0>3.,q<:>r<0>3.,q<:>r<0>3.,r<0>2.' 8!:2<.2014 3 2 3 30 46.034

Еще одни даты на J.

Abbath, 22 Апреля 2014

Комментарии (2)

Говнокод: по колено в коде.

Куча / Говнокод #15887

Куча / Говнокод #15879

Куча / Говнокод #15866

Куча / Говнокод #15863

Куча / Говнокод #15855

Куча / Говнокод #15846

Куча / Говнокод #15842

Куча / Говнокод #15840

Куча / Говнокод #15838

Куча / Говнокод #15824