Moogle
.
If you look at the code and what has changed for the waiting part I'm sure it wouldn't be that hard to add what you want After all, that's the idea of learning programming .
PROGRAM bal;
GLOBAL
speedo = 10;
radius = 10;
BEGIN
set_mode(m320x240);
graph = new_map(20,20,8);
map_clear(0,graph,10);
x = 160; y=120;
loop
advance(speedo);
if(x>(320-radius) or x<(0+radius))
angle = -angle + 180000;
end
if(y>(240-radius) or y<(0+radius))
angle = -angle;
end
if(key(_enter))
angle = rand(0,360)*1000;
end
frame;
end
END
thats right...If you look at the code and what has changed for the waiting part I'm sure it wouldn't be that hard to add what you want After all, that's the idea of learning programming .
The bouncing principle is very easy, incoming angle = outgoing angle, you may need to be a little more specific what you want to know.
Code:PROGRAM bal; GLOBAL speedo = 10; radius = 10; BEGIN set_mode(m320x240); graph = new_map(20,20,8); map_clear(0,graph,10); x = 160; y=120; loop advance(speedo); if(x>(320-radius) or x<(0+radius)) angle = -angle + 180000; end if(y>(240-radius) or y<(0+radius)) angle = -angle; end if(key(_enter)) angle = rand(0,360)*1000; end frame; end END
while(key(__A))
//expand
frame;
end
if(key(__A))
//expand
end
//If pressed the A button, give room to expand to 150%
if(key(__a)))
expandTo = 150;
end
//If expand does not equal expandTo, go towards equality
if(expand > expandTo)
expand -=5;
else
if(expand < expandTo)
expand += 5;
end
end
//If expand is maximal, it must be equal to expandTo, so expandTo can be
//set back to 100 to shrink the size again
if(expand == 150)
expandTo = 100;
end
//And make sure the size grows as expand does(or do something else)
size = expand;
Quiest posted on Apr 1 2005 at 06:20 AM said:Have some bmps or pngs in a directory, start FPGEdit,click on new, change to that directory and just pull the bmps/pngs from the upper half of FPGEdit to the lower half.
And don`t forget to safe the FPG.
(btw, if you didn`t know, you can change the language to english, click on utilidades -> configurar FPGEdit -> Cambiar lenguaje del programa)
if (BPushed==0)
if (COLLISION(type(bulletblack))
return;
END
END
if (BPushed==1)
if (COLLISION(type(bulletwhite))
return;
end
END