-----------------------------------

andxdreamxixdo

Mon Jan 10, 2005 2:02 pm


I really need this help please

-----------------------------------

I cant put anything in the talk bubbles!!!!! can someone help me????

This kinda was based on another persons snow thing



% this sets the whole screen to a certain way
View.Set ("offscreenonly") 
% this alows the computer to know what variables are being used
type snowIng :
record 
        x : int 
        y : int 
        size : int 
        speed : int 
        dirx : int 
end record
% this also tells the computer what variables to use. 

%If you change them then you have to change the rest to match it.
var storm : array 1 .. 100 of snowIng

% this makes the first set of snowflakes

% this tells the computer how long and from where to where the snow falls
for b : 1 .. 100 
% this tells you how big some of the snowflakes are
    storm (b) .x := Rand.Int (90, maxx) 
    % this also tells you how big some of the snowflakes are
    storm (b) .y := Rand.Int (maxy, maxy + 100) 
    %This is the size of the front snowflakes 
    storm (b) .size := Rand.Int (2,9) 
    % This controls the speed of when the screen pops up but it has to be 1 or 0
    storm (b) .speed := 0- storm (b).size 
    % this controls which way the direction of the snow flows
    storm (b) .dirx := Rand.Int (-1-storm(b).size, 1+storm(b).size) 
end for 

%This loops the background black
loop 
drawfill (7,7,7,7)

%This moves the snow around
 for i : 1 .. 100 
% this makes all the snow              
        drawfilloval (storm (i).x, storm (i).y, storm (i).size, storm (i).size, 100)
           storm (i).x += storm (i).dirx 
           storm (i).y += storm (i).speed
           
           % this is the same as the top one its controls the snowflakes 
          if storm (i).y