% 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 <= 0 then
            storm (i).x := Rand.Int (0, maxx)
            storm (i).y := Rand.Int (maxy, maxy + 0)
            storm (i).size := Rand.Int (-1,9)
            storm (i).speed :=0  - storm (i).size
% this keeps the screen black
cls
drawfill (7,7,7,7)
%this slows down the snow
delay (80)
% this also makes the aliens eyes when he blinks
drawfilloval (200,200,10,5,1)
drawfilloval (230,200,10,5,1)

% this makes the humans eyes blinks
drawfilloval (375,120,10,7,65)
drawfilloval (405,120,10,7,65)
 
% this makes the aliens talk bubble not blink by putting it the same colour
drawfilloval (110,260,50,35,31)

% this makes the humans talk bubble not blink by putting it the same colour
drawfilloval (480,180,50,35,31)

% This makes the snow also but thats how i got my eyes to blink
 for a : 1 .. 100
               
        drawfilloval (storm (a).x, storm (a).y, storm (a).size, storm (a).size, 100)
           storm (a).x += storm (a).dirx
           storm (a).y += storm (a).speed
          if storm (a).y <= 10 then
            storm (a).x := Rand.Int (0, maxx)
            storm (a).y := Rand.Int (maxy, maxy + 0)
            storm (a).size := Rand.Int (1,9)
            storm (a).speed := 0- storm (a).size

%This is my background also
drawfill (7,7,7,7)

%This is the aliens eyes (Left eye)
drawfilloval (200,200,10,5,10)
drawfilloval (200,200,2,5,14)
drawoval (200,200,2,5,7)

% Right eye
drawfilloval (230,200,10,5,10)
drawfilloval (230,200,2,5,14)
drawoval (230,200,2,5,1)

% this makes the human's eyes (left eye)
drawfilloval (375,120,10,7,31)
drawfilloval (375,120,4,7,114)
drawfilloval (375,120,2,2,7)

% this is the right eye
drawfilloval (405,120,10,7,31)
drawfilloval (405,120,4,7,114)
drawfilloval (405,120,2,2,7)

%this makes the aliens talk bubble
drawfilloval (110,260,50,35,31)

% this makes the humans talk bubble
drawfilloval (480,180,50,35,31)

%This ends the if statement
end if
% this ends the for statement
end for
% this alows you to see what you have created
View.Update
%This ends another if statement
end if
% this ends another for statement
end for
% this ends the loop statement
end loop