[Scilab-users] Pong contest (new version)

[Stéphane Mottelet]

Hello all,

Here is a new version of the game using realtime() to fix a framerate of 
60fps on each platform. This value should be ok even on old computers. 
Please continue to post your scores !

S.

-- 
Stéphane Mottelet
Ingénieur de recherche
EA 4297 Transformations Intégrées de la Matière Renouvelable
Département Génie des Procédés Industriels
Sorbonne Universités - Université de Technologie de Compiègne
CS 60319, 60203 Compiègne cedex
Tel : +33(0)344234688
http://www.utc.fr/~mottelet

-------------- next part --------------
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2019 - Stéphane Mottelet
//
// This file is hereby licensed under the terms of the GNU GPL v2.0,
// For more information, see the COPYING file which you should have received
// along with this program.
//
// A brickout game without bricks
// Idea from Philipp Muehlmann
// Code by Stéphane Mottelet
//

function pong()

    jimport java.awt.MouseInfo;

    clf
    f = gcf();
    f.resize = "off";
    f.toolbar_visible=%f;

    plot(0,0,1,1)
    isoview
    //paddle
    wpx = 0.2;
    wph = 0.05;
    xrect(0, wph, wpx, wph)
    hp = gce()

    //ball
    xrect(0.5, 0.5, wph, wph)
    hb = gce()
    VMAX = 5e-3;
    vb = [VMAX VMAX];

    k=2;
    score=0;

    messagebox(msprintf("Click OK to release ball %d",3-k),"","","OK","modal")

    dt = 1/60;
    realtimeinit(dt);
    realtime(0);
    kt=0;
    tic();
    while %t
        M = MouseInfo.getPointerInfo();
        X=double(M.getLocation().x)-gcf().figure_position(1);

        MOUSE_X = xchange(X,0,"i2f")
        if is_handle_valid(f)
            paddle_x = hp.data(1) + 30*dt*(MOUSE_X-wpx/2-hp.data(1));
            paddle_x = min(max(0,paddle_x),1-wpx);
            ball = hb.data(1:2) + vb;
        else
            break;
        end
        if ball(1) > 1-wph || ball(1) < 0
            vb(1) = -vb(1)
        end
        if ball(2) > 1
            vb(2) = -vb(2)
            score = score+1;
            VMAX = VMAX*1.1;
            xtitle(msprintf("Score = %d, balls left = %d", score, k))
        end
        if ball(2) < 2*wph
            if ball(2) < 0
                k = k-1;
                if k < 0
                    break
                end
                hb.data(1:2) = [.5,.5];
                VMAX=5e-3;
                vb=[VMAX VMAX];
                messagebox(msprintf("Click OK to release ball %d",3-k),"","","OK","modal")
                realtimeinit(dt);
                realtime(0);
                kt=0;
            elseif ball(1) + wph >  paddle_x && ball(1) < paddle_x+wpx
                d = (ball(1)+wph/2) - (paddle_x+wpx/2);
                vb= VMAX*[max(-1,min(1,d/(wpx/2-wph/2))),1];
            end
        end
        if is_handle_valid(f)
            hp.data(1) = paddle_x;
            hb.data(1:2) = hb.data(1:2) + 100*dt*vb;
        end
        kt=kt+1;
        realtime(kt)
    end
    messagebox("GAME OVER !","","","OK","modal")
end

pong();
clear pong;