PROGRAM Prova_Xoc;
IMPORT "mod_video";
IMPORT "mod_key";
IMPORT "mod_text";
IMPORT "mod_proc";
IMPORT "mod_grproc";
IMPORT "mod_map";
IMPORT "mod_file";
IMPORT "mod_time";
IMPORT "mod_timers";
IMPORT "mod_rand";
IMPORT "mod_sound";
IMPORT "mod_screen";
IMPORT "mod_draw";
IMPORT "mod_joy";
IMPORT "mod_wm";
#INCLUDE "jkeys.lib"
GLOBAL INT fpg1, gran_x, gran_y, petit_x, petit_y, ven_x, ven_y, pan_x, pan_y, ample, alt, fons1;
BEGIN;
jkeys_set_default_keys();
jkeys_controller();
SET_FPS(60,0);
set_mode(320,240,16);
RAND_SEED(TIME()*TIME()*TIME()*TIME());
fpg1 = LOAD_FPG("grafics.fpg");
fons1 = load_png("fons.png");
put_screen(0,fons1);
joc();
END;
PROCESS joc()
BEGIN;
ciclista();
END;
PROCESS ciclista()
BEGIN;
x = 160; y = 120; graph = 1;
LOOP;
IF jkeys_state[_JKEY_UP] : IF y > 0 : y = y - 1; END; END;
IF jkeys_state[_JKEY_DOWN] : IF y < 239 : y = y + 1; END; END;
IF jkeys_state[_JKEY_LEFT] : IF x > 0 : x = x - 1; END; END;
IF jkeys_state[_JKEY_RIGHT] : IF x < 319 : x = x + 1; END; END;
IF jkeys_state[_JKEY_MENU] : EXIT();
END;
DELETE_TEXT(0);
WRITE (0, 28, 10, 5, x);
WRITE (0, 33, 10, 4, "/");
WRITE (0, 38, 10, 3, y);
FRAME;
END;
END;
Marcadores