Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 [Source] Snow
Index -> Programming, Turing -> Turing Submissions
Goto page Previous  1, 2
View previous topic Printable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
vertozia




PostPosted: Wed Jan 03, 2007 11:29 pm   Post subject: (No subject)

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
Sponsor
Sponsor
Sponsor
sponsor
ericfourfour




PostPosted: Wed Jan 03, 2007 11:36 pm   Post subject: (No subject)

vertozia wrote:
there is no edit button

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




PostPosted: Thu Jan 04, 2007 12:04 am   Post subject: (No subject)

lmao how ironic, thanks for offering me help
Display posts from previous:   
   Index -> Programming, Turing -> Turing Submissions
View previous topic Tell A FriendPrintable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 2 of 2  [ 18 Posts ]
Goto page Previous  1, 2
Jump to:   


Style:  
Search: