82 lines
1.3 KiB
Plaintext
82 lines
1.3 KiB
Plaintext
program prueba_signal2;
|
|
global
|
|
idbola;
|
|
|
|
begin
|
|
load_fnt("system.fnt");
|
|
load_fpg("test16.fpg");
|
|
put_screen(0,1);
|
|
|
|
write_int(1,0,0,0,&idbola);
|
|
|
|
idbola=bola(0);
|
|
|
|
loop
|
|
frame;
|
|
if(key(_f))
|
|
signal(idbola,s_freeze_tree);
|
|
while(key(_f))
|
|
frame;
|
|
end
|
|
signal(idbola,s_wakeup_tree);
|
|
end
|
|
if(key(_s))
|
|
signal(idbola,s_sleep_tree);
|
|
while(key(_s))
|
|
frame;
|
|
end
|
|
signal(idbola,s_wakeup_tree);
|
|
end
|
|
if(key(_k))
|
|
signal(idbola,s_kill_tree);
|
|
while(key(_k))
|
|
frame;
|
|
end
|
|
triangulo(7);
|
|
idbola=bola(0);
|
|
end
|
|
if(key(_esc))
|
|
exit("Taluego lucas!!",0);
|
|
end
|
|
end
|
|
end
|
|
|
|
process bola(num)
|
|
begin
|
|
graph=100;
|
|
x=160;
|
|
y=30+num*20;
|
|
|
|
if(num<3)
|
|
bola(num+1);
|
|
else
|
|
triangulo(num+1);
|
|
end
|
|
|
|
loop
|
|
frame;
|
|
x+=rand(-5,5);
|
|
if(x<30) x=30; end
|
|
if(x>290) x=290; end
|
|
end
|
|
end
|
|
|
|
process triangulo(num)
|
|
begin
|
|
graph=101;
|
|
x=160;
|
|
y=30+num*20;
|
|
|
|
if(num<6)
|
|
triangulo(num+1);
|
|
end
|
|
|
|
loop
|
|
frame;
|
|
x+=rand(-5,5);
|
|
if(x<30) x=30; end
|
|
if(x>290) x=290; end
|
|
end
|
|
end
|
|
|