Минималистичный pong / Программирование / Форум / Флейм / GameDev.ru

Часто слышны разговоры о том, что раньше порог вхождения был ниже, а трава - зеленее.

In fact, I think it would be an interesting environment for beginning programmers to learn on. I started programming on an Apple II a long time ago, when you could just do an "hgr" and start drawing to the screen, which was rewarding. For years, I've had misgivings about people learning programming on Win32 (unix / X would be even worse), where it takes a lot of arcane crap just to get to the point of drawing something on the screen and responding to input. I assume most beginners wind up with a lot of block copied code that they don't really understand.

Знакомая атмосфера. Исходный код pong на gw-basic вполне умещался на экран (25 строк).

Мысль о, том что игру (законченную в смысле основного геймплея) можно сделать с за вечер и силами экрана кода - считаю ценной.

Pong мне кажется удачным примером, т. к. сам геймплей для видеоигры реального времени - близок к теоретическому (нижнему) пределу. Как частное следствие - замеряется почти вчистую оверхед инициализации.

В этой теме всем желающим предлагается написать минималистичный pong. Язык и инфраструктура (API/фреймворк/т. д.) - по вкусу.
Конкретный вид pong - по вкусу.

Ожидается, что совсем в IOCCC вы ударяться не будете, т. е. код - хоть сколько-то похожий на тот, что встречается в жизни.

Ориентировки: если уложитесь в 100 строк кода - хорошо. Если напишете за час - тоже хорошо.

FordPerfect
Постоялец

#1
21:31, 1 авг 2016

Я начинаю.

gw-basic, 18 строк:

+ Показать

− Скрыть

10 SCREEN 1:KEY OFF:CLS
20 YA=100:YB=100:YC=100:XC=160:DX=1:DY=2*RND-1:DA=0:DB=0:SA=0:SB=0
30 PSET(XC,YC),0:LINE (4,YA-10)-(5,YA-9),0,B:LINE (4,YA+9)-(5,YA+10),0,B:LINE (314,YB-10)-(315,YB-9),0,B:LINE (314,YB+9)-(315,YB+10),0,B
40 XC=XC+DX:YC=YC+DY:YA=YA+DA:YB=YB+DB
50 IF XC<5 THEN DX=+ABS(DX):DY=DY-(YA-YC)/8:IF ABS(YA-YC)>10 THEN XC=160:SB=SB+1:DY=2*RND-1
60 IF XC>315 THEN DX=-ABS(DX):DY=DY-(YB-YC)/8:IF ABS(YB-YC)>10 THEN XC=160:SA=SA+1:DY=2*RND-1
70 PSET(XC,YC),3:LINE (4,YA-10)-(5,YA+10),3,BF:LINE (314,YB-10)-(315,YB+10),3,BF
80 IF ABS(YA-100)>90 THEN YA=YA-DA
90 IF ABS(YB-100)>90 THEN YB=YB-DB
100 IF YC<10 THEN DY=+ABS(DY)
110 IF YC>190 THEN DY=-ABS(DY)
120 J$=INKEY$
130 IF J$="a" THEN DA=-1
140 IF J$="z" THEN DA=+1
150 IF J$="m" THEN DB=+1
160 IF J$="j" THEN DB=-1
170 LOCATE 1,1:PRINT SA;":";SB
180 IF J$="q" THEN END ELSE GOTO 30

+ Влезает на экран, как и было заявлено

Скорость - рассчитана на DosBox, Cpu Speed: 3000 cycles.

FordPerfect
Постоялец

#2
21:32, 1 авг 2016

C++ & WinAPI, 93 строки:

+ Показать

− Скрыть

#include <windows.h>
#include <cstdio>
#include <cstdlib>
#include <algorithm>

static const int W=320,H=200,L=10,D=256;

int WINAPI WinMain(HINSTANCE hInstance,HINSTANCE hPrevInstance,LPSTR lpCmdLine,int nCmdShow)
{
    static const BITMAPINFOHEADER bmih={sizeof(BITMAPINFOHEADER),W,H,1,32,BI_RGB,0,0,0,0,0};
    static unsigned int pixels[W*H];
    static char text[256];
    WNDCLASSEX wcex={};
    int ya=H/2,yb=H/2,xc=(W/2)*D,yc=(H/2)*D,dx=D,dy=-D/2,sa=0,sb=0;

    wcex.cbSize=sizeof(WNDCLASSEX);
    wcex.style=CS_OWNDC;
    wcex.lpfnWndProc=DefWindowProc;
    wcex.hInstance=hInstance;
    wcex.lpszClassName="Pong";

    if(!RegisterClassEx(&wcex)) return 1;

    RECT rect={0,0,W,H};
    AdjustWindowRect(&rect,WS_OVERLAPPEDWINDOW,0);

    HWND hwnd=CreateWindow("Pong","Pong",
        WS_OVERLAPPEDWINDOW|WS_VISIBLE,
        CW_USEDEFAULT,CW_USEDEFAULT, rect.right-rect.left,rect.bottom-rect.top,
        NULL,NULL,hInstance,NULL);

    HDC hdc=GetDC(hwnd);

    MSG msg;
    while(true)
    {
        if(PeekMessage(&msg,NULL,0,0,PM_REMOVE))
        {
            if(msg.message==WM_QUIT) break;
            else
            {
                TranslateMessage(&msg);
                DispatchMessage(&msg);
            }
        }
        else
        {
            if(GetAsyncKeyState(VK_ESCAPE)) break;
            if(GetAsyncKeyState('A')) ya=std::min(ya+1,H-L-1);
            if(GetAsyncKeyState('Z')) ya=std::max(ya-1,L);
            if(GetAsyncKeyState('J')) yb=std::min(yb+1,H-L-1);
            if(GetAsyncKeyState('M')) yb=std::max(yb-1,L);
            xc+=dx;yc+=dy;
            if(yc<L*D) dy=abs(dy);
            if(yc>(H-L-1)*D) dy=-abs(dy);
            if(xc>(W-5-1)*D)
            {
                dx=-abs(dx);
                if(abs(yc-yb*D)>L*D) {xc=(W/2)*D;yc=(H/2)*D;dy=(rand()&(2*D-1))-D;++sa;}
                else dy=std::min(std::max(dy+(yc-yb*D)/8,-D),+D);
            }
            if(xc<5*D)
            {
                dx=abs(dx);
                if(abs(yc-ya*D)>L*D) {xc=(W/2)*D;yc=(H/2)*D;dy=(rand()&(2*D-1))-D;++sb;}
                else dy=std::min(std::max(dy+(yc-ya*D)/8,-D),+D);
            }
            memset(pixels,0,W*H*4);
            for(int i=-L;i<=+L;++i) pixels[W*(ya+i)+4]=pixels[W*(ya+i)+5]=~0;
            for(int i=-L;i<=+L;++i) pixels[W*(yb+i)+(W-5)]=pixels[W*(yb+i)+(W-6)]=~0;
            for(int x=-3;x<=+3;++x) for(int y=-3;y<=+3;++y)
                if(x*x+y*y<10) pixels[W*((yc/D)+y)+(xc/D)+x]=~0;
            StretchDIBits(
                hdc,
                0,0,W,H,
                0,0,W,H,
                pixels,
                (BITMAPINFO*)(&bmih),
                DIB_RGB_COLORS,
                SRCCOPY);

            sprintf(text,"%d : %d",sa,sb);
            if(!SetWindowTextA(hwnd,text)) break;
            InvalidateRect(hwnd,NULL,FALSE);
            Sleep(16);
        }
    }

    ReleaseDC(hwnd,hdc);
    DestroyWindow(hwnd);
    return 0;
}

Собирается незатейливо:

g++ -mwindows main.cpp -o pong.exe

Размер бинарника: 36072 байта.

Synthetic
Постоялец

#3
21:39, 1 авг 2016

прочитал как Минималистичный phong, и чуть мозг себе не сломал, пытаясь его там найти:))

Polyflow3d
Постоялец

#4
23:13, 1 авг 2016

Ваши бы усилия да в мирное русло...

dedm0zaj
Постоялец

#5
8:05, 2 авг 2016

program ponggame;
uses pong;
begin
pong.start;
end.

5 строк :trollface:

=A=L=X=
Постоялец

#6
9:00, 2 авг 2016

FordPerfect

> Часто слышны разговоры о том, что раньше порог вхождения был ниже

Порог вхождения во что?
Игры на бейсике всегда были шлаковым отстоем, без классных спрайтов и попиксельного скроллинга.
С другой стороны не вижу особых проблем сейчас взять Visual Basic и поводить LineTo по канвасу...

wawe
Удалён

#7
14:35, 2 авг 2016

+ минималистичный понг 133 строки

− Скрыть

#include <ncurses.h>

#include <iostream>

namespace
{
    static constexpr int WINDOW_WIDTH = 80, WINDOW_HEIGHT = 24;

    struct Paddle
    {
        static constexpr int height = 5;
        static constexpr char symbol = '#';
        int x, y;
    }
    left_paddle{4, WINDOW_HEIGHT >> 1}, right_paddle{WINDOW_WIDTH - 5, WINDOW_HEIGHT >> 1};

    struct Ball
    {
        static constexpr char symbol = '*';
        int x, y, dx, dy;
    }
    ball{WINDOW_WIDTH >> 1, WINDOW_HEIGHT >> 1, 1, -1};

    inline bool paddle_ball_collision(Paddle paddle, int fx, int fy) noexcept
    {
        return fx == paddle.x
            ?
               fy >= paddle.y && fy < paddle.y + Paddle::height
            ?
               (ball.dx = -ball.dx) : false : false;
    }

    void update_ball() noexcept
    {
        const auto fx = ball.x + ball.dx;
        const auto fy = ball.y + ball.dy;

        if (!(::paddle_ball_collision(left_paddle, fx, fy) || ::paddle_ball_collision(right_paddle, fx, fy)))
            ball.dx = fx ? fx == WINDOW_WIDTH  - 1 ? -1 : ball.dx : 1;

        ball.dy = fy ? fy == WINDOW_HEIGHT - 1 ? -1 : ball.dy : 1;

        ball.x += ball.dx;
        ball.y += ball.dy;
    }

    void update_right_paddle() noexcept
    {
        if (ball.x > right_paddle.x) return;

        const auto fby = ball.y + (right_paddle.x - ball.x) * ball.dy;

        if (fby >= 0 && fby < WINDOW_HEIGHT)
        {
            const auto half_paddle_height = Paddle::height >> 1;
            const auto fpy = right_paddle.y +
                (ball.y > right_paddle.y + half_paddle_height) -
                (ball.y < right_paddle.y + half_paddle_height);

            right_paddle.y = fpy ? fpy + Paddle::height == WINDOW_HEIGHT ? right_paddle.y : fpy : right_paddle.y;
        }
    }

    void keyboard(WINDOW* window, bool& running) noexcept
    {
        const int code = ::wgetch(window);
        
        switch (code)
        {
            case 'w':
                left_paddle.y = left_paddle.y - 1 ? left_paddle.y - 1 : left_paddle.y;
                break;
            case 's':
                left_paddle.y = left_paddle.y + Paddle::height == WINDOW_HEIGHT - 1 ? left_paddle.y : left_paddle.y + 1;
                break;
            case 'q':
                running = false;
                break;
        }
    }

    void render(WINDOW* window) noexcept
    {
        ::wclear(window);
        ::box(window, 0, 0);

        ::wmove(window, ball.y, ball.x);
        ::waddch(window, ball.symbol);

        for (int i = 0; i < Paddle::height; ++i)
        {
            ::wmove(window, left_paddle. y + i, left_paddle. x); ::waddch(window, Paddle::symbol);
            ::wmove(window, right_paddle.y + i, right_paddle.x); ::waddch(window, Paddle::symbol);
        }

        ::wrefresh(window);
    }
}

int main()
{
    if (::initscr())
    {
        ::curs_set(0);
        ::cbreak();
        ::noecho();

        WINDOW* const window = ::newwin(WINDOW_HEIGHT, WINDOW_WIDTH, 0, 0);
        if (window)
        {
            ::wtimeout(window, 100);

            bool running = true;
            while (running)
            {
                ::keyboard(window, running);
                ::update_ball();
                ::update_right_paddle();
                ::render(window);
            }

            ::delwin(window);
        }
        else
            std::cerr << "window creation error" << std::endl;

        ::endwin();
    }
    else
        std::cerr << "ncurses initialization error" << std::endl;

    return 0;
}

Synthetic
Постоялец

#8
17:37, 2 авг 2016

wawe
> минималистичный понг 133 строки
а если всё это в одну строку записать?

wawe
Удалён

#9
18:00, 2 авг 2016

Synthetic
Это невозможно. Необходимо как минимум три строки.

FordPerfect
Постоялец

#10
18:20, 2 авг 2016

=A=L=X=
>Порог вхождения во что?
В частности в программирование игр.

>Игры на бейсике всегда были шлаковым отстоем, без классных спрайтов и попиксельного скроллинга.
>С другой стороны не вижу особых проблем сейчас взять Visual Basic и поводить LineTo по канвасу...
Уровень в данном контексте почти не важен. Тема во многом о том, что исходник не обязательно занимает мегабайты, и о том, качественная ли разница, или количественная.
О умении (и осмысленности) программистами лаконично кодить, если нет поводов для обратного. О том, что я видел игры с исходниками в 5 КБ и 500 КБ, но почти не видел - в 70 КБ.
И о возможности малыми усилиями сделать что-то на коленке и взаимодействовать с ним. И быстрой отдаче при обучении.

Не говоря уж о том, что для ценителей в бейсике есть вставки в машинном коде (USR/CALL).

Бейсик был как пример - 2 строки инициализации, 16 строк собственно игры. И с ним как раз более-менее понятно.
Что со старым (gw-basic), что с новым (Visual Basic).
Мне интересно, чему равна аддитивная константа для других платформ?
Java? Python? Lua (LÖVE?)? D? Go? Unity (серьёзно интересно)? UE4 (а чё?)?
На HTML5/javascript представляю (константа маленькая).
Выше примеры на C++/WinAPI и C++/ncurses показывают, что даже в C++ не настолько плохи дела (правду сказать, здесь скорее о константе, а не о пороге вхождения, по крайней мере о WinAPI).

programina
Удалён

#11
18:51, 2 авг 2016

FordPerfect
> C++ & WinAPI, 93 строки:
> + Показать
>
> Собирается незатейливо:
> g++ -mwindows main.cpp -o pong.exe
У меня не собирается. Из-за вот этого: StretchDIBits();

ЗЫ: gdi32 линковать надо.

kipar
Участник

#12
19:01, 2 авг 2016

ruby, gosu, реализация в лоб на основе туториала, примерно полчаса заняла.
На экран не влезает, 56 строк. Ну если заморочиться можно впихнуть, но будет нечитаемо. Вообще 63 строки, константы тоже не стоило упаковывать.

+ Показать

− Скрыть

require 'gosu'

XSIZE, YSIZE, SPEED, WIDTH, YPOS, BALL, GEN_SPEED = 640, 480, 5, 25, 10, 5, 3

class GameWindow < Gosu::Window
  def initialize
  super XSIZE, YSIZE
  @caret = Gosu::Image.new("media/caret.png")
  @ball = Gosu::Image.new("media/ball.png")
  @font = Gosu::Font.new(20)  
  @scores = [0,0]
  new_game
  end
  
  def new_game
  @pl1 = @pl2 = @ballx = XSIZE/2
  @bally = YSIZE/2
  angle = rand*2*Math::PI
  difficulty = GEN_SPEED*(1+rand)
  @speedx = difficulty*Math::sin(angle)
  @speedy = difficulty*Math::cos(angle)
  @speedy *= -1 if (@scores[0]+@scores[1]).odd? && @speedy > 0
  end
  
  def update
  @pl1 = [0, @pl1-SPEED].max if Gosu::button_down? Gosu::KbA
  @pl1 = [XSIZE, @pl1+SPEED].min if Gosu::button_down? Gosu::KbD
  @pl2 = [0, @pl2-SPEED].max if Gosu::button_down? Gosu::KbLeft
  @pl2 = [XSIZE, @pl2+SPEED].min if Gosu::button_down? Gosu::KbRight
  @ballx += @speedx
  @bally += @speedy
  @speedx *= -1 if @speedx < 0 && @ballx < BALL
  @speedx *= -1 if @speedx > 0 && @ballx > XSIZE-BALL
  @speedy *= -1 if @speedy < 0 && @bally < YPOS+BALL && (@pl1-WIDTH/2..@pl1+WIDTH/2).include?(@ballx)
  @speedy *= -1 if @speedy > 0 && @bally > YSIZE-YPOS-BALL && (@pl2-WIDTH/2..@pl2+WIDTH/2).include?(@ballx)
  if @bally < 0
    @scores[0]+=1
    new_game
  end
  if @bally > YSIZE
    @scores[1]+=1
    new_game
  end
  end

  def draw
  @caret.draw_rot(@pl1, YPOS, 0, 0)
  @caret.draw_rot(@pl2, YSIZE - YPOS, 0, 180)
  @ball.draw(@ballx-BALL, @bally-BALL, 0)
  @font.draw("Score: #{@scores[0]} vs #{@scores[1]}", 10, 10, 1, 1.0, 1.0, 0xff_ffff00)
  end
  
end

window = GameWindow.new
window.show

Для запуска надо поставить ruby, сделать gem install gosu, нарисовать каретку и мячик в файлы media/caret.png и media/ball.png
Ну могу экзешник сделанный ocra выложить, но вряд ли кому интересно, тем более он весит 4.5МБ (т.к. содержит ruby со всеми библиотеками).
—-
хм, нотепад++ видимо табами форматирует, так что при копировании на форум они сбились.

=A=L=X=
Постоялец

#13
19:30, 2 авг 2016

FordPerfect
> Выше примеры на C++/WinAPI и C++/ncurses показывают, что даже в C++ не
> настолько плохи дела

Не, в WinAPI и C++ игровые дела как раз плохи. Чтобы сделать даже пасьянс без мерцания карт, в WinAPI надо урыться с головой.
Но тут очень разные вещи сравниваются.

Даже какой нибудь SDL может быть и требует больше времени для изучения, чем какой нибудь LaserBasic (это с поддержкой спрайтов), но он же и может в десятки раз намного более интересные вещи...
А редакторы, а утилиты и тулчейны? Это же всё тоже очень важно. И сейчас дела в сотни раз более интереснее обстоят.

В целом я бы так сказал:
Много лет назад требовалось гораздо меньше человекочасов, чтобы сделать то, что тогда считалось бы игрой определенного уровня.
Но сейчас такие игры никому не интересны, уровень подобного интереса представляет заметно больше человекочасов.