vroman/edivc
SHA256
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

test_mouse mejorado

Browse source
This commit is contained in:
Gabriel Lorenzo 2003-06-02 18:00:01 +00:00
parent bd3a0f5b87
commit d4a12a746e
1 changed files with 23 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
ediv/bin/test/test_mouse.prg
View file

@ -3,6 +3,7 @@ private
mi_mapa; mi_mapa;
begin begin
set_mode(320,200,24,_fullscreen);
load_fnt("system.fnt"); load_fnt("system.fnt");
write(1,0,0,0,"X:"); write(1,0,0,0,"X:");
write(1,0,10,0,"Y:"); write(1,0,10,0,"Y:");
@ -20,7 +21,29 @@ begin
write_int(1,80,60,0,&mouse.wheeldown); write_int(1,80,60,0,&mouse.wheeldown);
mi_mapa=load_bmp("hola.bmp"); mi_mapa=load_bmp("hola.bmp");
mouse.graph=mi_mapa; mouse.graph=mi_mapa;
cursor();
loop loop
if(key(_q)) mouse.angle-=1000; end
if(key(_w)) mouse.angle+=1000; end
if(key(_a)) mouse.size+=5; end
if(key(_z)) mouse.size-=5; end
if(key(_e)) mouse.angle=0; end
if(key(_x)) mouse.size=100; end
if(key(_s)) smooth=!smooth; end
if(key(_1)) mouse.flags^=1; end
if(key(_2)) mouse.flags^=2; end
frame; frame;
end end
end end
process cursor()
begin
graph=load_bmp("cursor.bmp");
z=-600;
loop
x=mouse.x;
y=mouse.y;
frame;
end
end