% 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
|