Список говнокодов пользователя RaZeR

Всего: 43

Lua / Говнокод #6746

−85

01
02
03
04
05
06
07
08
09
10
11

require "android"
local inp = android.getInput("Factorial", "Enter number:")
local cur = 0
local sum = 1

repeat
cur = cur + 1
sum = sum * cur
until cur == (inp.result * 1)

android.makeToast("Factorial of " .. inp.result .. " is " .. sum)

Lua. Маленький скриптик "факториал", накиданный на моём Desire Z в SL4A.
Как-то явно не так надо строковые типы к целочисленным приводить...

RaZeR, 24 Мая 2011

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

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

+131

1
2
3
4
5
6
7
8

<tr> <td width="209" valign="top"><font color="#1674b5">Русский язык</font></td> <td width="244" valign="top"><font color="#1674b5">История России</font></td> <td width="218" valign="top"><font color="#1674b5">Биология</font></td> </tr>
             
              <tr> <td width="209" valign="top"><font color="#1674b5">Литература</font></td> <td width="244" valign="top"><font color="#1674b5">Обществознание</font></td> <td width="218" valign="top"><font color="#1674b5">Химия</font></td> </tr>

             
              <tr> <td width="209" valign="top"><font color="#1674b5">Математика</font></td> <td width="244" valign="top"><font color="#1674b5">Физика</font></td> <td width="218" valign="top"><font color="#1674b5">География</font></td> </tr>
             
              <tr> <td width="209" valign="top"><font color="#1674b5">Информатика и ИКТ</font></td> <td width="244" valign="top"><font color="#1674b5">Иностранный язык</font></td> <td width="218" valign="top">

Вёрстка сайта на Битриксе.

RaZeR, 09 Мая 2011

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

Java / Говнокод #6526

+82

1
2
3
4
5
6
7
8

if (false) {
            canvas.drawPicture(mPicture);
        } else {
            drawPict(canvas, 0, 0, x, y,  1,  1);
            drawPict(canvas, x, 0, x, y, -1,  1);
            drawPict(canvas, 0, y, x, y,  1, -1);
            drawPict(canvas, x, y, x, y, -1, -1);
        }

Взял себе HTC Desire Z, нашёл официальный туториал про Canvas, а там это...

RaZeR, 01 Мая 2011

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

JavaScript / Говнокод #6401

+156

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

try {
    document.domain = "wolframalpha.com";
    context = parent ? parent : document;
    } catch(e){}
    try { 
        if (typeof(context.$) == "undefined") {
            context = window;
        } else {
            $=context.$;
        }
    }
    catch(e){ context = window; }

Если с первого раза не получилось...

RaZeR, 19 Апреля 2011

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

PHP / Говнокод #6354

+173

1
2
3
4
5
6
7
8

echo("
<div id='navigation'>
	<center>
		<ul>
			<li><a href='http://URL' id='homelink' onmouseover=" . '"Enlarge(' ."'#homelink')" . '"'. " onmouseout='" . 'Normalize("#homelink")' . "'>Домой</a></li>
			<li><a href='#' id='aboutlink' onmouseover=" . '"Enlarge(' ."'#aboutlink')" . '"'. " onmouseout='" . 'Normalize("#aboutlink")' . "'>О нас</a></li>
			<li><a href='http://URL' id='bdlink' onmouseover=" . '"Enlarge(' ."'#bdlink')" . '"'. " onmouseout='" . 'Normalize("#bdlink")' . "'>База знаний</a></li>
			<li><a href='#' id='chatlink' onmouseover=" . '"Enlarge(' ."'#chatlink')" . '"'. " onmouseout='" . 'Normalize("#chatlink")' . "'>Общение</a></li>");

Вот так вот справляемся с двумя видами кавычек.

RaZeR, 14 Апреля 2011

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

C# / Говнокод #6297

+127

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22

if (accNum > 0 && accNum < accModels.Count){
            switch (accNum)
            {
                case 1: accModels[0].WorldMatrix = Matrix.CreateScale(0.7f) * Matrix.CreateRotationX(0.3f) * Matrix.CreateRotationY(chrYaw + MathHelper.Pi) * Matrix.CreateTranslation(plPos + Vector3.Up * 9.0f + Vector3.Transform(Vector3.Backward * 2.0f, Matrix.CreateRotationY(chrYaw + MathHelper.Pi))); break;
                case 2: accModels[1].WorldMatrix = Matrix.CreateScale(0.5f) * Matrix.CreateRotationY(chrYaw + MathHelper.PiOver2) * Matrix.CreateTranslation(plPos + Vector3.Up * 11.0f + Vector3.Transform(Vector3.Backward + Vector3.Right * 3.0f, Matrix.CreateRotationY(chrYaw + MathHelper.PiOver2))); break;
                case 3: accModels[2].WorldMatrix = Matrix.CreateScale(0.5f) * Matrix.CreateRotationY(chrYaw + MathHelper.PiOver2) * Matrix.CreateTranslation(plPos + Vector3.Up * 11.0f + Vector3.Transform(Vector3.Backward + Vector3.Right * 3.0f, Matrix.CreateRotationY(chrYaw + MathHelper.PiOver2))); break;

                case 4: accModels[3].WorldMatrix = Matrix.CreateScale(0.5f) * Matrix.CreateRotationY(chrYaw - MathHelper.PiOver2) * Matrix.CreateTranslation(plPos + Vector3.Up * 5.0f + Vector3.Transform(Vector3.Backward * 0.0f + Vector3.Right * 0.7f, Matrix.CreateRotationY(chrYaw + MathHelper.PiOver2))); break;
                case 5: accModels[4].WorldMatrix = Matrix.CreateScale(0.55f) * Matrix.CreateRotationZ(0.3f) * Matrix.CreateRotationY(chrYaw - MathHelper.PiOver2) * Matrix.CreateTranslation(plPos + Vector3.Up * 5.0f + Vector3.Transform(Vector3.Backward * 0.0f + Vector3.Right * 0.7f, Matrix.CreateRotationY(chrYaw + MathHelper.PiOver2))); break;
                case 6: accModels[5].WorldMatrix = Matrix.CreateScale(0.5f) * Matrix.CreateRotationY(chrYaw - MathHelper.PiOver2) * Matrix.CreateTranslation(plPos + Vector3.Up * 18.0f + Vector3.Transform(Vector3.Right * -0.4f, Matrix.CreateRotationY(chrYaw - MathHelper.PiOver2))); break;
                <...>
               case 11: accModels[10].WorldMatrix = Matrix.CreateScale(1.2f) * Matrix.CreateRotationX(-0.3f) * Matrix.CreateRotationY(chrYaw) * Matrix.CreateTranslation(plPos + Vector3.Up * 8.5f + Vector3.Transform(Vector3.Backward * 1.4f, Matrix.CreateRotationY(chrYaw + MathHelper.Pi))); break;
                case 12: accModels[11].WorldMatrix = Matrix.CreateScale(1.0f) * Matrix.CreateRotationX(0.3f) * Matrix.CreateRotationY(chrYaw + MathHelper.Pi) * Matrix.CreateTranslation(plPos + Vector3.Up * 9.0f + Vector3.Transform(Vector3.Backward * 2.0f, Matrix.CreateRotationY(chrYaw + MathHelper.Pi))); break;
                case 13: accModels[12].WorldMatrix = Matrix.CreateScale(1.0f) * Matrix.CreateRotationY(chrYaw - MathHelper.PiOver2) * Matrix.CreateTranslation(plPos + Vector3.Up * -1.0f + Vector3.Transform(Vector3.Backward * 2.0f, Matrix.CreateRotationY(chrYaw + MathHelper.Pi))); break;
                case 14: accModels[13].WorldMatrix = Matrix.CreateScale(1.0f) * Matrix.CreateRotationZ(-0.3f) * Matrix.CreateRotationY(chrYaw + MathHelper.PiOver2) * Matrix.CreateTranslation(plPos + Vector3.Up * 4.0f + Vector3.Transform(Vector3.Backward * 1.3f, Matrix.CreateRotationY(chrYaw + MathHelper.Pi))); break;

                case 15: accModels[14].WorldMatrix = Matrix.CreateScale(0.4f) * Matrix.CreateRotationY(chrYaw) * Matrix.CreateTranslation(plPos + Vector3.Up * 22.0f + Vector3.Transform(Vector3.Right * 1.3f + Vector3.Backward * 3.8f, Matrix.CreateRotationY(chrYaw + MathHelper.Pi))); break;

                default: accModels[accNum - 1].WorldMatrix = Matrix.CreateScale(0.7f) * Matrix.CreateRotationX(0.3f) * Matrix.CreateRotationY(chrYaw + MathHelper.Pi) * Matrix.CreateTranslation(plPos + Vector3.Up * 9.0f + Vector3.Transform(Vector3.Backward * 1.3f, Matrix.CreateRotationY(chrYaw + MathHelper.Pi))); break;

            }
}

Ой как мне не хотелось это в XMLку выносить...

RaZeR, 09 Апреля 2011

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

VisualBasic / Говнокод #6052

−110

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

Dim num As Integer
    Dim inp As Integer
    Dim wrt As String
    Dim liv As Integer



    Sub Main()
        liv = 3
        Console.WriteLine("LIVES = " & liv)
pl:
        If liv = 0 Then GoTo st


        num = Fix(Rnd() * 5)

        Console.WriteLine("ENTER NUMBER:")
        inp = Console.ReadLine()
        If inp < num Then
            Console.WriteLine("GREATER")
            liv = liv - 1
            Console.WriteLine("LIVES = " & liv)
            GoTo pl

        End If

        If inp > num Then
            Console.WriteLine("LESS")

            liv = liv - 1
            Console.WriteLine("LIVES = " & liv)
            GoTo pl
        End If


        If inp = num Then Console.WriteLine("YES!")
st:
        Console.WriteLine("GAME OVER")
        Console.WriteLine("ENTER ANY NUMBER TO EXIT")
        inp = Console.ReadLine()






    End Sub

Одна из моих первых "прог" на VB, написанная около 4х лет назад - "Угадай число".

RaZeR, 21 Марта 2011

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

VisualBasic / Говнокод #6051

−105

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

Public LettersB() As Char = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
    Public LettersM() As Char = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}
    Public Numbers() As Char = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}
<...>
    Public Function GenLetterB() As String
        GenLetterB = LettersB(rnd.Next(0, LettersB.Length - 1)).ToString
    End Function
    Public Function GenLetterM() As String
        GenLetterM = LettersM(rnd.Next(0, LettersB.Length - 1)).ToString
    End Function
    Public Function GenNumber() As String
        GenNumber = rnd.Next(0, 9).ToString
    End Function
<...>
For i = 1 To numLen.Value
RndGen:     curType = rnd.Next(0, 3)
            Select Case curType
                Case 0
                    If chkB.Checked = True Then
                        pass += GenLetterB()
                        rnd.Next(0, LettersB.Length - 1)
                    Else
                        GoTo RndGen

                    End If
                    
                Case 1
                    If chkM.Checked = True Then
                        pass += GenLetterM()
                        rnd.Next(0, LettersM.Length - 1)
                    Else
                        GoTo RndGen
                    End If
                Case 2
                    If chkNum.Checked = True Then
                        pass += GenNumber()
                        rnd.Next(0, LettersM.Length - 1)
                    Else
                        GoTo RndGen
                    End If

                Case Else
                    If chkNum.Checked = True Then
                        pass += GenNumber()
                        rnd.Next(0, LettersM.Length - 1)
                    Else
                        GoTo RndGen
                    End If
            End Select



        Next

Очень древний мой высер, ещё из тех времён, когда я писал на VB. Кстати, прога есть на сурсфордже, у неё достаточно много скачиваний и жалоб нету.

RaZeR, 21 Марта 2011

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

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

+133

01
02
03
04
05
06
07
08
09
10

float sh0 =  tex2Dgrad( heightSampler, texSample, dx, dy ).r;
		float shA = (tex2Dgrad( heightSampler, texSample + vLightRayTS * 0.88, dx, dy ).r - sh0 - 0.88 ) *  1 * g_fShadowSoftening;
		float sh9 = (tex2Dgrad( heightSampler, texSample + vLightRayTS * 0.77, dx, dy ).r - sh0 - 0.77 ) *  2 * g_fShadowSoftening;
		float sh8 = (tex2Dgrad( heightSampler, texSample + vLightRayTS * 0.66, dx, dy ).r - sh0 - 0.66 ) *  4 * g_fShadowSoftening;
		float sh7 = (tex2Dgrad( heightSampler, texSample + vLightRayTS * 0.55, dx, dy ).r - sh0 - 0.55 ) *  6 * g_fShadowSoftening;
		float sh6 = (tex2Dgrad( heightSampler, texSample + vLightRayTS * 0.44, dx, dy ).r - sh0 - 0.44 ) *  8 * g_fShadowSoftening;
		float sh5 = (tex2Dgrad( heightSampler, texSample + vLightRayTS * 0.33, dx, dy ).r - sh0 - 0.33 ) * 10 * g_fShadowSoftening;
		float sh4 = (tex2Dgrad( heightSampler, texSample + vLightRayTS * 0.22, dx, dy ).r - sh0 - 0.22 ) * 12 * g_fShadowSoftening;
	   
		fOcclusionShadow = 1 - max( max( max( max( max( max( shA, sh9 ), sh8 ), sh7 ), sh6 ), sh5 ), sh4 );

HLSL, шейдер для Parallax Occlusion Mapping.
Пруф - http://xnacommunity.codeplex.com/wikipage?title=Parallax%20Occlusion%20Ma pping&referringTitle=Home.&ProjectName=x nacommunity, файл Textured.fx.
В принципе баян, но на HLSL ещё такого тут вроде не было :)

RaZeR, 19 Марта 2011

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

C# / Говнокод #6024

+120

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17

if (clr1 != Color.Black && clr2 != Color.Black)
            {
                int R1 = clr1.R > clr2.R ? clr1.R - 1 : clr1.R + 1;
                int R2 = clr1.R < clr2.R ? clr1.R - 1 : clr1.R + 1;
                int G1 = clr1.G > clr2.G ? clr1.G - 1 : clr1.G + 1;
                int G2 = clr1.G < clr2.G ? clr1.G - 1 : clr1.G + 1;
                int B1 = clr1.B > clr2.B ? clr1.B - 1 : clr1.B + 1;
                int B2 = clr1.B < clr2.B ? clr1.B - 1 : clr1.B + 1;
                if (R1 > 255) R1 = 255; if (R1 < 0) R1 = 0;
                if (R2 > 255) R2 = 255; if (R2 < 0) R2 = 0;
                if (G1 > 255) G1 = 255; if (G1 < 0) G1 = 0;
                if (G2 > 255) G2 = 255; if (G2 < 0) G2 = 0;
                if (B1 > 255) B1 = 255; if (B1 < 0) B1 = 0;
                if (B2 > 255) B2 = 255; if (B2 < 0) B2 = 0;

                outp.b = Color.FromArgb(R1, G1, B1); outp.a = Color.FromArgb(R2, G2, B2);
            }

Нашёл у себя такого красавца годичной давности - суровое "плавное" целочисленное интерполирование двух цветов для Compact Framework.

RaZeR, 19 Марта 2011

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

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