50 lines
1.2 KiB
Plaintext
50 lines
1.2 KiB
Plaintext
program test_mouse;
|
|
private
|
|
mi_mapa;
|
|
|
|
begin
|
|
set_mode(320,200,24,_fullscreen);
|
|
load_fnt("system.fnt");
|
|
write(1,0,0,0,"X:");
|
|
write(1,0,10,0,"Y:");
|
|
write(1,0,20,0,"Left:");
|
|
write(1,0,30,0,"Middle:");
|
|
write(1,0,40,0,"Right:");
|
|
write(1,0,50,0,"WheelUp:");
|
|
write(1,0,60,0,"WheelDown:");
|
|
write_int(1,80,0,0,&mouse.x);
|
|
write_int(1,80,10,0,&mouse.y);
|
|
write_int(1,80,20,0,&mouse.left);
|
|
write_int(1,80,30,0,&mouse.middle);
|
|
write_int(1,80,40,0,&mouse.right);
|
|
write_int(1,80,50,0,&mouse.wheelup);
|
|
write_int(1,80,60,0,&mouse.wheeldown);
|
|
mi_mapa=load_bmp("hola.bmp");
|
|
mouse.graph=mi_mapa;
|
|
cursor();
|
|
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;
|
|
end
|
|
end
|
|
|
|
process cursor()
|
|
begin
|
|
graph=load_bmp("cursor.bmp");
|
|
z=-600;
|
|
loop
|
|
x=mouse.x;
|
|
y=mouse.y;
|
|
frame;
|
|
end
|
|
end
|
|
|