Computer Science Canada :: View topic

% My Variables
var xpositiona, y1, y2, dummy : int
xpositiona := 400
y1 := Rand.Int (200, 400)
y2 := Rand.Int (200, 400)

var icolor, icolor2, iXposition, iYposition, xdirection, ydirection, font, font1, font2, font3, xmouse, ymouse, button : int
% Helicopter Controls
var yaltitude, mx, my, btn : int

var ch : string (1)

% Text Fonts
font := Font.New ("serif:50")
font1 := Font.New ("serif:25")
font2 := Font.New ("serif:15")
font3 := Font.New ("serif:9")

% Colors
icolor2 := 21
icolor := 1

% Positions
iXposition := 0
iYposition := 0
xdirection := 1
ydirection := 1
yaltitude := 0
View.Set ("graphics,offscreenonly,nocursor")

loop
yaltitude := 0
% Menu
loop
Mouse.Where (xmouse, ymouse, button)

Draw.Cls
% Background
drawfillbox (300, 240, 350, 260, 41)

% Background
drawfillbox (0, 0, maxx, maxy, 100)

% Cloud 1
drawfilloval (90, 350, 130, 80, white)
drawfilloval (70, 280, 80, 40, white)
drawfilloval (200, 310, 60, 50, white)
drawfilloval (230, 380, 60, 50, white)

% Cloud 2
drawfilloval (400, 150, 130, 80, white)
drawfilloval (380, 80, 80, 40, white)
drawfilloval (410, 220, 80, 40, white)
drawfilloval (520, 110, 70, 50, white)
drawfilloval (520, 190, 80, 50, white)
drawfilloval (300, 180, 60, 50, white)
drawfilloval (300, 120, 40, 30, white)

% Helicopter
drawfillbox (iXposition + 85, iYposition + 5, iXposition + 155, iYposition + 10, black) % Base Connected to Legs
drawfillbox (iXposition + 100, iYposition + 10, iXposition + 105, iYposition + 20, black) % Base leg 1
drawfillbox (iXposition + 135, iYposition + 10, iXposition + 140, iYposition + 20, black) % Base leg 2
drawfillbox (iXposition + 118, iYposition + 80, iXposition + 123, iYposition + 65, black) % Main Rotor
drawfillbox (iXposition + 25, iYposition + 40, iXposition + 130, iYposition + 50, black) % Rotor rectangle
drawfilloval (iXposition + 120, iYposition + 85, 70, 5, icolor2) % Rotor Blades
drawfilloval (iXposition + 120, iYposition + 45, 40, 30, black) % Cockpit
drawfillbox (iXposition + 10, iYposition + 40, iXposition + 15, iYposition + 70, black) % Rotor rectangle
drawfilloval (iXposition + 15, iYposition + 48, 15, 15, icolor2) % Rear Rotor
drawfilloval (iXposition + 85, iYposition + 45, 20, 15, black) % Smaller circle from main body of helicopter

% Menu Selections
Draw.Text ("Super-Heli", 190, 325, font, icolor - 1)
Draw.Text ("Play", 300, 180, font1, icolor - 1)
Draw.Text ("Controls", 275, 120, font1, icolor - 1)

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% If Played %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if xmouse > 290 and xmouse < 370 and ymouse > 170 and ymouse < 220 and button = 1 then
Draw.Cls
View.Update

%%% Background %%%
loop

drawfillbox (0, 0, maxx, maxy, 100)
drawfillbox (0, 0, 640, 50, white)
drawfillbox (0, 350, maxx, maxy, white)
drawfillbox (xpositiona, y1, xpositiona + 40, y2, white)
xpositiona := xpositiona - 1

if xpositiona < 0 then
xpositiona := 640
dummy := Rand.Int (50, 350)
if dummy <= 200 then
y1 := 50
y2 := dummy
else
y1 := 350
y2 := dummy
end if
end if

%Helicopter
drawfillbox (75, 192 + yaltitude, 125, 196 + yaltitude, black) % Base Connected to Legs
drawfillbox (90, 192 + yaltitude, 95, 200 + yaltitude, black) % Base leg 1
drawfillbox (107, 192 + yaltitude, 112, 210 + yaltitude, black) % Base leg 2
drawfillbox (97, 240 + yaltitude, 102, 249 + yaltitude, black) % Main Rotor Rectangle
drawfillbox (25, 218 + yaltitude, 110, 223 + yaltitude, black) % Rotor rectangle
drawfilloval (100, 248 + yaltitude, 50, 5, icolor2) % Rotor Blades
drawfilloval (100, 220 + yaltitude, 30, 20, black) % Cockpit
drawfillbox (24, 215 + yaltitude, 27, 238 + yaltitude, black) % Rotor rectangle
drawfilloval (24, 223 + yaltitude, 10, 10, icolor2) % Rear Rotor Blades
drawfilloval (75, 220 + yaltitude, 15, 10, black) % Smaller circle from main body of helicopter
View.Update

icolor2 := icolor2 + 1

mousewhere (mx, my, btn)
if btn = 1 then
yaltitude += 1
else
yaltitude -= 1
end if
if icolor2 = 31 then
icolor2 := 21
end if

if whatdotcolor (125, 192 + yaltitude) = white then
exit
end if

if whatdotcolor (12, 192 + yaltitude) = white then
exit
end if

if whatdotcolor (150, 253 + yaltitude) = white then
exit
end if

delay (3)
end loop
end if

if whatdotcolor (125, 192 + yaltitude) = white then
exit
end if
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% End Background %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% If Controls selected %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if xmouse > 270 and xmouse < 390 and ymouse > 100 and ymouse < 150 and button = 1 then
Draw.Cls
View.Update

loop
drawfillbox (0, 0, maxx, maxy, 100)

% Cloud 1
drawfilloval (90, 350, 130, 80, white)
drawfilloval (70, 280, 80, 40, white)
drawfilloval (200, 310, 60, 50, white)
drawfilloval (230, 380, 60, 50, white)

% Cloud 2
drawfilloval (400, 150, 130, 80, white)
drawfilloval (380, 80, 80, 40, white)
drawfilloval (410, 220, 80, 40, white)
drawfilloval (520, 110, 70, 50, white)
drawfilloval (520, 190, 80, 50, white)
drawfilloval (300, 180, 60, 50, white)
drawfilloval (300, 120, 40, 30, white)
Draw.Text ("Controls", 265, 335, font1, black)
Draw.Text ("Press B to go Back", 15, 360, font2, black)
Draw.Text ("Welcome to Super-Heli, the classic game that never gets boring!", 70, 285, font2, black)
Draw.Text ("The controls of this game are basic, to raise your helicopter,", 80, 255, font2, black)
Draw.Text ("simply click your mouse to ascend your helicopter vertically,", 77, 225, font2, black)
Draw.Text ("to descend your helicopter, let go of the mouse button.", 100, 195, font2, black)
Draw.Text ("But be careful don't touch the white sections or its game over!", 70, 165, font2, black)
Draw.Text ("Good luck and have fun!", 230, 125, font2, black)
Draw.Text ("Trademark to the IGC (International Gaming Corporation) Do not copy this game.", 115, 15, font3, black)

View.Update
getch (ch)
if ch = "b" then
exit
else
end if

end loop

else
end if

%drawfillbox (290,170,370,220,41)
%drawfillbox (270,100,390,150,41)

icolor := icolor + 1
if icolor = 62 then
icolor := 1
end if
icolor2 := icolor2 + 1
if icolor2 = 31 then
icolor2 := 21
end if
iXposition := iXposition + xdirection
iYposition := iYposition + ydirection

if iXposition > 455 or iXposition < 0 then
xdirection := -xdirection
end if

if iYposition > 215 or iYposition < 0 then
ydirection := -ydirection
end if

%delay (5)
View.Update

end loop

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% GAME OVER SCREEN %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
cls
drawfillbox (0, 0, maxx, maxy, 100)

% Cloud 1
drawfilloval (90, 350, 130, 80, white)
drawfilloval (70, 280, 80, 40, white)
drawfilloval (200, 310, 60, 50, white)
drawfilloval (230, 380, 60, 50, white)

% Cloud 2
drawfilloval (400, 150, 130, 80, white)
drawfilloval (380, 80, 80, 40, white)
drawfilloval (410, 220, 80, 40, white)
drawfilloval (520, 110, 70, 50, white)
drawfilloval (520, 190, 80, 50, white)
drawfilloval (300, 180, 60, 50, white)
drawfilloval (300, 120, 40, 30, white)
Draw.Text ("Game Over", 190, 200, font, black)
View.Update
delay (2000)
end loop

Author:	Martin [ Thu Apr 10, 2003 9:46 pm ]
Post subject:	Final Projects
It's that time of year again that most of us have final computer science projects coming up. Here's my goal: A collection of ideas and submissions. Please be careful posting source code as A) some teachers'll think that you copied and B) People steal code. Anyway, best of luck.

Author:	Asok [ Thu Apr 10, 2003 11:45 pm ]
Post subject:
If you are handing work in I would reccomend you do NOT post the source code until either a) you get a mark for it, or b) it's after June Feel free to post standalone versions though. I say this only to protect the poster, I'm sure we'd all love to see the code

Author:	Tony [ Fri Apr 11, 2003 8:24 am ]
Post subject:
it might be a good idea to post your standalones so that others can find bugs and give comments about your program. just dont make a new post for your every version. Ether update the file in previous post and reply to your own post with a new file.

Author:	Martin [ Thu Jun 05, 2003 8:58 am ]
Post subject:
Alright people, over the next week, I'm expecting people to post a lot of projects, as most computer science classes have a final project due within a week of now. Post them as source code or compiled (source will get you more bits.) Also, make the title of your post whatever the name of your game is. Please include a short description of features of your game, as well as play controls if they aren't outlined in the actual game. Obviously, .zip or .rar multiple files. Here's how I'm going to be giving out bits: Your game looks: Okay - 10 bits Good - 20 bits Excellent - 30 bits DROOL - 40 bits Your controls are: Crappy - 10 bits Average - 20 bits Simple but effective - 30 bits Complex and effective - 40 bits Gameplay: Ran it, looked at it, closed it - 20 bits Played it for a few minutes - 40 bits Played it for a while, I'll come back to this when I've got more time - 60 bits Still playing this. - 80 bits Complexity: I'm sure I've seen this before - 15 bits Kinda complicated, but by no means unique - 30 bits Some unique concepts - 45 bits I've never seen anything like this - 60 bits This only applies of you include source code. Uncommented, and messy - 10 bits Commented, messy - 20 bits Clean but uncommented - 30 bits Clean and well commented - 40 bits **Uncommented and poorly commented are the same thing As I'm sure you can see, that's A LOT of bits . This means that your game could get up to 260 bits!!!! I, or another mod will comment on your game and give you the bits. If you fix up anything that we criticized on and resubmit, you've got the chance to have us re-evaluate your program and award even more bits, although be sure to make note that you resubmitted so that we know. I realize that not everyone will be making a game for their final project, I will adapt these rules for your game on a per-project basis. Keep in mind to make your program's features apparent, because if I can't find it, I can't mark you on it. Also keep in mind that, just by participating, you are guarenteed at least 55 bits, unless it's dead obvious that you put no effort into the game. NOTE: Please flag all games that you want to be evaluated with the tag [FP], so for example if the game that you are submitting is pong, it would be titled [FP] Pong. Thanks

Author:	Martin [ Thu Jun 05, 2003 8:59 am ]
Post subject:
Oh, and there MIGHT be an award for the best project....

Author:	PaddyLong [ Thu Jun 05, 2003 3:29 pm ]
Post subject:
a shame we didn't really have a final project this year (and I had comp science first semester this year too) :/ can I post a few of my ones from past years

Author:	Asok [ Thu Jun 05, 2003 4:52 pm ]
Post subject:
Darkness wrote: Your controls are: Crappy - 10 bits Average - 20 bits Simple but effective - 30 bits Complex and effective - 40 bits Shouldn't simple and effective be worth more than complex and effective? simple would be WASD or Arrow keys, complex would be like having to search for keys. It makes more sence to award a better keyboard layout.

Author:	Tony [ Thu Jun 05, 2003 5:13 pm ]
Post subject:
what I think he means by complex is having more then WASD keys... like in mechWarrior where you got a 40 key controls Though its still easy to control once you get the hang of it, so it would be awarded "compex and effective".

Author:	Martin [ Thu Jun 05, 2003 8:48 pm ]
Post subject:
Basically what I was trying to say was this: If your controls are just the arrow keys and maybe a few other keys, well placed and well thought out, then you get 30 bits. If you go a step further and allow for more inputs, but the inputs make sense, are well placed and are easy to use, you will get the full 40 bits.

Author:	Mephi [ Thu Jun 05, 2003 10:00 pm ]
Post subject:
wut if our project wuz due a long time ago, and since then weve expanded on it...would it count as a project r just a regular submission?

Author:	Tony [ Thu Jun 05, 2003 10:14 pm ]
Post subject:
oh great... now Darkness made things all complicated...

Author:	Martin [ Thu Jun 05, 2003 10:44 pm ]
Post subject:
It doesn't have to be a final project, just has to be a big program, so if you want to, you can submit old projects yes, just so long as they aren't posted on this site.

Author:	Martin [ Fri Jun 06, 2003 1:49 pm ]
Post subject:
The deadline for this is going to be Friday, June 13. PM me if you have a project that you would like to submit that is due at a later date.

Author:	bugzpodder [ Fri Jun 06, 2003 4:10 pm ]
Post subject:
where the hell are you, darkness? you are missing out in school!!

Author:	Martin [ Sat Jun 07, 2003 11:55 am ]
Post subject:
School? Like review and Mr. Romien's Un-math? Hah!

Author:	Andy [ Sat Jun 07, 2003 2:20 pm ]
Post subject:
darkness, if white catches u skipping, he'll skin you remember national skip out day?

Author:	Martin [ Mon Jun 09, 2003 9:52 pm ]
Post subject:
Sorry I haven't been evaluating projects, I just haven't had time. Don't give up, I'll get back to it by the weekend hopefully. By the way, if any other mods want to evaluate, be my guest!

Author:	Tony [ Tue Jun 10, 2003 8:06 pm ]
Post subject:
dodge, give him a break... we're already discussing this in another topic... called "problems with collisions" or something btw, I think DarkHelmet was the first one to post that whole equation, not me.

Author:	Andy [ Wed Jun 11, 2003 3:31 pm ]
Post subject:
darkness, the ti 83 + is very screwed up and is very slow, it took me a whole day to get to the millions by adding one in a loop

Author:	Martin [ Sat Jun 07, 2003 7:45 pm ]
Post subject:
Skipping? I was...uhhh...sick.

Author:	Ravage [ Tue Jun 10, 2003 12:07 pm ]
Post subject:
Well we're just doing some cheap version of hangman but I'm gonna submit

Author:	DarkHelmet [ Tue Jun 10, 2003 4:53 pm ]
Post subject:
i'm gonna post my final project from last semester soon. i just need to fix a couple small things first.

Author:	Andy [ Tue Jun 10, 2003 5:06 pm ]
Post subject:
darkhelmet, you can't prove 2=1, ur dividing by 0

Author:	Martin [ Tue Jun 10, 2003 11:14 pm ]
Post subject:
On the ti 83+'s you can prove that 0 = 6. I'll find the proof somewhere and post it. It's a problem with imaginary numbers...

Author:	SilverSprite [ Sat Jun 14, 2003 2:21 pm ]
Post subject:
dodge tomahawk has NO life. your the only one i know who would even try to do that.. just kidding cuz

Author:	Andy [ Sat Jun 14, 2003 4:04 pm ]
Post subject:
shut silversprite, i was bored ok? robotics theory is boring

Author:	Papageorgeo [ Mon Sep 08, 2003 10:34 pm ]
Post subject:
I'm trying to post my project from last semester but it keeps timing out when I try to do it.

Author:	Dan [ Tue Sep 09, 2003 9:08 pm ]
Post subject:
dodge_tomahawk wrote: darkness, the ti 83 + is very screwed up and is very slow, it took me a whole day to get to the millions by adding one in a loop try the TI-89 it's CPU is atleast 2 times faster, the screen has way better rez and it has a GUI OS wich is realy cool. i got myself one for some grade 12 math clases, it realy helps with some hw and b/c of the better rez it can play some cool games. i got a 3d shouter on it and some other cool stuff.

Author:	PaddyLong [ Wed Sep 10, 2003 11:32 am ]
Post subject:
I have a TI-10000X7 it owns all other graph0r calgulatros

Author:	krishon [ Wed Sep 10, 2003 5:28 pm ]
Post subject:
ye the ti 89 is better than the 83...much better games....all bout the games

Author:	shorthair [ Wed Dec 17, 2003 11:00 pm ]
Post subject:
Finals ARE COMIN UP

Author:	poly [ Sun Apr 11, 2004 11:13 am ]
Post subject:
Yes they are....and well I cant make up my damn mind on what kind of game I want to do. I'd like to make a pretty big game, but I am starting to get sick of coding and could careless for it....but than i dont want to make a simple small game cause id get bored of it easily....argh I cant decide

Author:	Paul [ Sun Apr 11, 2004 12:10 pm ]
Post subject:
ppl in my class think making a red circle move and bouce around is pretty cool... like "wow! that is soooo cool!" (The teacher gave them the code to do it) so I don't think my teacher is expecting much from us.

Author:	TheFreshPrince [ Thu Apr 29, 2004 1:45 pm ]
Post subject:
only a red circle move?!?! we already had to make 3 things move and bounce just for an assignment!

Author:	jonos [ Thu May 20, 2004 7:20 pm ]
Post subject:
Yeah, well my class just got to learning arrays. This means that I had to go and learn things like getch(), strint, intstr, and all that stupid stuff by myself. Not to mention functions and procedures. Our final project was a quiz with 10 or something questions. Now do you feel stupid?

Author:	joman [ Mon May 24, 2004 6:47 am ]
Post subject:
Asok wrote: Darkness wrote: Your controls are: Crappy - 10 bits Average - 20 bits Simple but effective - 30 bits Complex and effective - 40 bits Shouldn't simple and effective be worth more than complex and effective? simple would be WASD or Arrow keys, complex would be like having to search for keys. It makes more sence to award a better keyboard layout. wow really because i dont give a sh*t there is something iv wanted to say to u guys for a long time u guys have no lives. go outside what r u afraid of... wait wait let me guess the sun will hit my skin at a 45 degree angle causeing a sunburn on my arm exactualy 4.32 cm long. i am very ashamed of u and everyone who postes on this message board u people should go outside go do something else with your time then site in front of your computer a and talk about programming u people make me sick... i get enough of computer programming during the day at school i think i get too much. and i cant stand it let alone read what u people talk about on these messsage boards. i feel like gaging over each and evryone of u.

Author:	omni [ Mon May 24, 2004 8:23 am ]
Post subject:
well then what do u do with your spare time @$$hole? How can you stereotype that every programmer is just a pale skined nerd, mofugger?

Author:	Mazer [ Mon May 24, 2004 8:37 am ]
Post subject:
joman wrote: wow really because i dont give a sht Well, nubcake, you obviously do if you actually bothered to reply to this topic. Here's me with my hand on my forehead making an 'L'. joman wrote:* there is something iv wanted to say to u guys for a long time u guys have no lives. go outside what r u afraid of... wait wait let me guess the sun will hit my skin at a 45 degree angle causeing a sunburn on my arm exactualy 4.32 cm long. No man, it's all about the SARS. joman wrote: i am very ashamed of u and everyone who postes on this message board u people should go outside go do something else with your time then site in front of your computer a and talk about programming u people make me sick... i get enough of computer programming during the day at school i think i get too much. Well... Obi-wan Kenobi wrote: Who is more foolish? The fool, or the fool that follows? We are, for the most part, big geeks. You are, officially, uber-l4m3 for coming here to read the posts and then bitch about what we do. joman wrote: i feel like gaging over each and evryone of u. Well, I feel like teaching you to spell just so I can figure out what the hell you're talking about. Just curious, did you ever consider what things would be like if nobody took an interest in computer science? You wouldn't be able to come here and bitch about us geeks. You wouldn't be able to sign onto MSN Messenger and whine about our geeky exploits to your homosexual friends. You wouldn't be able to turn on your computer. I guess you'd be forced to go outside and get that sunburn. Oh no, what now?!

Author:	Andy [ Mon May 24, 2004 10:08 am ]
Post subject:
dats some whoop@ss pwnage rite there... gj mazer