[Source] Snow

[vertozia]

I AM SORRY FOR DOUBLE POSTING, there is no edit button,
\
anyways there is my button, its for a main menu:

Quote:

%main


var mainPic, playPic, helpPic, highPic, makingPic, demoPic ,x, y, button: int
loop
mainPic := Pic.FileNew ("backgroundchick.jpg")
Pic.Draw (mainPic, 0,0, picCopy)


playPic := Pic.FileNew ("play.bmp")
Pic.Draw (playPic, 350, 350, picCopy)

helpPic := Pic.FileNew ("help.bmp")
Pic.Draw (helpPic, 350, 290, picCopy)

highPic := Pic.FileNew ("high.bmp")
Pic.Draw (highPic, 350, 230, picCopy)

makingPic := Pic.FileNew ("making.bmp")
Pic.Draw (makingPic, 350, 170, picCopy)

demoPic := Pic.FileNew ("demo.bmp")
Pic.Draw (demoPic, 350, 110, picCopy)
end loop


colorback (blue)
cls

type SnowType :
record
X, Y, Spd, Size : int
end record

var Snow : array 1 .. 100 of SnowType

for rep : 1 .. 100
Snow (rep).X := Rand.Int (5, 645)
Snow (rep).Y := Rand.Int (5, 475)
Snow (rep).Spd := Rand.Int (1, 3)
Snow (rep).Size := Snow (rep).Spd
end for

loop
for rep : 1 .. 100
Snow (rep).Y -= Snow (rep).Spd
if Snow (rep).Y < Snow (rep).Size then
Snow (rep).Y := Rand.Int (475, 575)
end if
drawfilloval (Snow (rep).X, Snow (rep).Y, Snow (rep).Size, Snow (rep).Size, white)
end for
View.Update
cls
end loop

[ericfourfour]

vertozia wrote:

there is no edit button

Wanna see magic? Look at the upper right hand corner of your post.

[vertozia]

lmao how ironic, thanks for offering me help