Computer Science Canada :: View topic

%Project: Traffic Light
%Purpose - to create an interface between the computer and the (light) box
%Question 1 - 130 points

% VARIABLE TABLE
% x - int - the x coordinate that the user clicked on
% y - int - the y coordinate that the user clicked on
% bnum - int - the button that you select on the mouse
% bud - int - whether the button is pressed (1) or released (0)
setscreen ("graphics:vga")
%var for the button's coordinates
var x, y, bnum, bud : int
%var for the traffic buttons
var rb, yb, gb : int := 0
%var for the of the words. size and type
var font : int
%var for the number of flashs
var flash : int := 0
%var for the number of rotates
var rotate : int := 0
%var for the number of patterns
var pattern : int := 0
%var for the output of the parallel put for the on an off swtich
var swt : int := 0
var fp : int
%color of background
colorback (gray)
%font size and type
font := Font.New ("Arial:14")
Font.Draw ("WELCOME TO MY TRAFFIC LIGHT PROGRAM", 80, 305, font, 7)
%loop command, keeps the program going
loop
drawfillbox (390, 110, 560, 230, brown)
drawfillbox (100, 110, 270, 230, brown)
Font.Draw ("Test Mode", 141, 166, font, white)
Font.Draw ("Scenerio Mode", 413, 166, font, white)
drawfillbox (0, 35, 700, 0, 7)
drawfillbox (0, 800, 700, 355, 7)
locate (21, 25)
put "please slect a mode"
buttonwait ("down", x, y, bnum, bud)
if (x >= 50 and x <= 260) and (y >= 110 and y <= 240) then
%clears the program
cls
%loop command, keeps the program going
loop

%Traffic ligth buttons
drawfillbox (25, 25, 110, 65, 12)
drawbox (24, 24, 111, 66, black)

drawfillbox (25, 125, 110, 165, yellow)
drawbox (24, 124, 111, 166, black)

drawfillbox (25, 225, 110, 265, brightgreen)
drawbox (24, 224, 111, 266, black)

%traffic light body
drawfillbox (200, 25, 321, 275, 7)
drawbox (199, 24, 322, 276, black)

%traffic lights
drawfilloval (261, 75, 30, 30, 12)
drawfilloval (261, 75, 28, 28, white)
drawfilloval (261, 150, 30, 30, yellow)
drawfilloval (261, 150, 28, 28, white)
drawfilloval (261, 225, 30, 30, brightgreen)
drawfilloval (261, 225, 28, 28, white)

%Special switches
drawfillbox (25, 300, 100, 340, 7)
drawbox (24, 299, 101, 341, black)
drawfillbox (125, 300, 200, 340, 7)
drawbox (124, 299, 201, 341, black)
drawfillbox (225, 300, 300, 340, 7)
drawbox (224, 299, 301, 341, black)
drawfillbox (325, 300, 400, 340, 7)
drawbox (324, 299, 401, 341, black)
%the font infomation for the words inside my special buttons
Font.Draw ("Flash", 40, 315, font, white)
Font.Draw ("Rotate", 135, 315, font, white)
Font.Draw ("Pattern", 235, 315, font, white)
Font.Draw ("Stop", 344, 315, font, white)
drawfilloval (557, 360, 35, 35, blue)
colorback (0)
color (7)
locate (6, 66)
put " BACK " ..
% waits for the user to use the mouse and obtains the x,y location where the
%loop command, keeps the program going
loop
%tells the button when to activate: when the button is pressed "down"
buttonwait ("down", x, y, bnum, bud)
%red button
%the red button's coordinates
if x >= 25 and x <= 110 and y >= 25 and y <= 65 then
%this shows that the buttons is low
if rb = 0 then
%what will happen if user clicks inside the coordinates
drawfilloval (261, 75, 30, 30, 12)
%if the button is clicked the button is turns high (on)
rb := 1
%turns the red light high(on), while the other lights are high(on)
swt := swt + 4
%turns the command (on), and by showing it on the real lights
parallelput (swt)
else
%what will happen if user clicks inside the coordinates again
drawfilloval (261, 75, 28, 28, white)
%the red button is turned off again
rb := 0
%turns the red light low(off), while the of=ther buttons are high(on)
swt := swt - 4
parallelput (swt)
%end the if command for this button
end if
%yellow button
elsif x >= 25 and x <= 110 and y >= 125 and y <= 165 then
if yb = 0 then
drawfilloval (261, 150, 30, 30, yellow)
yb := 1
swt := swt + 2
parallelput (swt)
else
drawfilloval (261, 150, 28, 28, white)

yb := 0
swt := swt - 2
parallelput (swt)
end if
%green button
elsif x >= 25 and x <= 110 and y >= 225 and y <= 265 then
if gb = 0 then
drawfilloval (261, 225, 30, 30, brightgreen)
gb := 1
swt := swt + 1
parallelput (swt)
else

drawfilloval (261, 225, 28, 28, white)

gb := 0
swt := swt - 1
parallelput (swt)
end if

%Flash button
%flash button's coordinates
elsif x >= 25 and x <= 100 and y >= 300 and y <= 340 then
%this will keep the sentence in the same position, so it won't over lap the program
locate (1, 1)
put "Enter the number of times you would like the the lights to flash: " ..
%gets the flash var from the user
get flash
%for command. used to count from the number 1 to the flash var entered by the user
for num : 1 .. flash
%the pattern that the traffic lights are going to flash in
%parallel put: using binary codes it tells the box what light to show
%puts all the three real lights (LED) on
parallelput (7)
drawfilloval (261, 75, 30, 30, 12)
drawfilloval (261, 150, 30, 30, yellow)
drawfilloval (261, 225, 30, 30, brightgreen)
%the time it will take the program to wait until it shows the next pattern/light
delay (500)
%puts all three real lights off
parallelput (0)
drawfilloval (261, 75, 28, 28, white)
drawfilloval (261, 150, 28, 28, white)
drawfilloval (261, 225, 28, 28, white)
delay (500)
%ends the for command for this button
end for

%Rotate button
%rotate button's coordinates
elsif x >= 125 and x <= 200 and y >= 300 and y <= 340 then
%leaves a line of space on top of the pervious lines so that they won'y overlap each other
locate (1, 1)
put " "
put "Enter the number of time you would like the lights to rotate: " ..
%get the rotate var from the user
get rotate
%for command for the rotate button
for num1 : 1 .. rotate
%puts the red light on
parallelput (1)
drawfilloval (261, 75, 30, 30, 12)
delay (500)
%turns the red light off and the yellow light on
parallelput (2)
drawfilloval (261, 75, 28, 28, white)
drawfilloval (261, 150, 30, 30, yellow)
delay (500)
%turns the red and yellow lights off and the green light on
parallelput (4)
drawfilloval (261, 150, 28, 28, white)
drawfilloval (261, 225, 30, 30, brightgreen)
delay (500)
%turns all three lights off
parallelput (0)
drawfilloval (261, 225, 28, 28, white)
delay (500)
%ends the for command for this button
end for
%pattern button
%the pattern button's coordintate
elsif x >= 225 and x <= 300 and y >= 300 and y <= 340 then
locate (1, 1)
%leaves two lines of space so that it won't over lap the pervious two line on top
locate (1, 1)
put " "
put " "
put "Enter the number of time you would like the lights to run the pattern: " ..
get pattern
for num2 : 1 .. pattern
parallelput (1)
drawfilloval (261, 75, 30, 30, 12)
delay (500)
parallelput (4)
drawfilloval (261, 225, 30, 30, brightgreen)
delay (500)
parallelput (2)
drawfilloval (261, 150, 30, 30, yellow)
delay (500)
parallelput (0)
drawfilloval (261, 75, 28, 28, white)
drawfilloval (261, 150, 28, 28, white)
drawfilloval (261, 225, 28, 28, white)
delay (500)
end for
%ends the if
elsif (x >= 325 and x <= 400) and (y >= 300 and y <= 340) then
exit
end if
exit when (x >= 325 and x <= 400) and (y >= 300 and y <= 340)
end loop
exit when (x >= 325 and x <= 400) and (y >= 300 and y <= 340)
end loop
end if
loop
exit when fp = 1
end loop
exit when fp = 1
end loop

% Senerio Mode
buttonwait ("down", x, y, bnum, bud)
if (x >= 370 and x <= 580) and (y >= 110 and y <= 240) then
cls
loop
%traffic lights
drawfillbox (200, 25, 321, 275, 7)
drawbox (199, 24, 322, 276, black)
Font.Draw ("THE CAR IS AT REST", 160, 350, font, 7)
drawfilloval (261, 225, 30, 30, 12)
parallelput (9)
delay (5000)
cls

drawfillbox (200, 25, 321, 275, 7)
drawbox (199, 24, 322, 276, black)
Font.Draw ("THE CAR IS ABOUT TO MOVE", 135, 350, font, 7)
drawfilloval (261, 225, 30, 30, 12)
parallelput (0)
delay (2000)
cls

drawfillbox (200, 25, 321, 275, 7)
drawbox (199, 24, 322, 276, black)
Font.Draw ("THE CAR IS MOVING", 172, 350, font, 7)
drawfilloval (261, 75, 30, 30, brightgreen)
parallelput (12)
delay (5000)
cls

parallelput (2)

drawfillbox (200, 25, 321, 275, 7)
drawbox (199, 24, 322, 276, black)
Font.Draw ("THE CAR IS GOING TO STOP", 130, 350, font, 7)
drawfilloval (261, 150, 30, 30, yellow)
drawfilloval (261, 75, 30, 30, brightgreen)
parallelput (12)
parallelput (1)
delay (5000)
cls

drawfillbox (200, 25, 321, 275, 7)
drawbox (199, 24, 322, 276, black)
Font.Draw ("THE CAR HAS STOPPED", 150, 350, font, 7)
drawfilloval (261, 225, 30, 30, 12)
parallelput (9)
%loop command, keeps the program going
loop
%ends loop
end loop
end loop
%ends if statement
end if
%ends loop

Author:	BlackDragon989 [ Thu Jun 01, 2006 1:23 pm ]
Post subject:	Sick FF06 Game
Try to beat the CPU its really hard

Author:	BlackDragon989 [ Thu Jun 01, 2006 1:26 pm ]
Post subject:	hows the game
if you think the game needs adding to add me on MSN and tell me what is needed to be added bryan__989@hotmail.com

Author:	upthescale [ Thu Jun 01, 2006 2:11 pm ]
Post subject:
doesnt werk, i need the pcitures, and it says that one of the pic isnt a list of Pic....zip it with pictures

Author:	Delos [ Thu Jun 01, 2006 3:18 pm ]
Post subject:
This should be posted in [Turing Source] not Apps. Moved.

Author:	Clayton [ Thu Jun 01, 2006 5:14 pm ]
Post subject:
is Pic.Frames something youve added to your Pic module on your computer? if it is, post it with your program in a .zip file so that we can actually run it

Author:	HellblazerX [ Thu Jun 01, 2006 6:06 pm ]
Post subject:
Well, I'm guessing Pic.Frame is part of version 4.1, seeing as how you're using GIF files (I believe 4.1 supports GIF now?). It would be best for you to learn about functions and procedures, because it seems you did a lot of copying and pasting, and procedures would shorten your code by a lot. Also, Cloud was in FF7, not FF6 .

Author:	_justin_ [ Thu Jun 01, 2006 9:00 pm ]
Post subject:
alright guys heres some info he forgot to tell yous that is the first game he has ever made and we are using turing 4.1 so their accutly is something call Pic.Frames but other then that i think he only forgot to give yous the pictures

Author:	NikG [ Thu Jun 01, 2006 10:59 pm ]
Post subject:
No, that's not all he forgot. I believe most people here don't have Turing 4.1 (am I right?), so the only way most people would be able to run this is if a compiled program were included.

Author:	Clayton [ Thu Jun 01, 2006 11:42 pm ]
Post subject:
luck SOB having 4.1 /me growls if you are going to post that could you change pics into JPG or .bmp format to make it easier for people without 4.1

Author:	_justin_ [ Fri Jun 02, 2006 8:08 am ]
Post subject:
eh guys i will get yous a compiled version of it today for yous and also if he was to jsut change all all .gif to a .jpeg or something would it then run on turing 4.0?? if so i'll get him to do that to

Author:	- IzAk - [ Fri Jun 02, 2006 11:06 am ]
Post subject:
Ehh you sit beside me in class...

Author:	BlackDragon989 [ Fri Jun 02, 2006 11:08 am ]
Post subject:	thanks guys
yo, i forgot that only schools have 4.1 so ill get pics.jpgs for this game.. ill probably have to change a lot cuz of how gifs move with the game, but ill get it done so i can repost it, and i tried to post it as a [S Code] but it wouldnt let me, i believe its was just to long, ill try to shorten it so i can get it up and put pics with it

Author:	- IzAk - [ Mon Jun 05, 2006 1:04 pm ]
Post subject:
Man the 06 wasn't stating what game it was from, it was saying that it was made in 2006, just thopught i'd clear that up

Author:	Anonymous [ Mon Jun 05, 2006 5:46 pm ]
Post subject:
Sick Graphics

Author:	Clayton [ Mon Jun 05, 2006 8:26 pm ]
Post subject:
um a couple of things, first, neither character dies when their hp reaches 0, thats a problem, another thing that could be improved on is all damage dealt is the same at all times, randomize it a bit, make it a bit more interesting , oh and make it more obvious who is attacking whom, because i didnt know who was attacking who when i first played other than that not bad, however a word of advice, worry about how the game looks last, work on the actual engine first and get it working properly

Author:	BlackDragon989 [ Thu Jun 15, 2006 8:44 am ]
Post subject:	ff06
i got most bugs out.. but i cant get stats to show on character 3-4... its being gay... imma post it so ppl can change it.. if you get any info on how to change it so it shows plzzzz repost it for me... its pissing me off... lmao anyways i took your advice and make it so attacks are random.. magic is random.. more characters and looks... pretty much the same.. imma making arrows beside their names but i dont got the time right now im trying to rap this up so i can hand it in so i can pass this class but after that.. ill add world maps and what not

Author:	BlackDragon989 [ Thu Jun 15, 2006 8:45 am ]
Post subject:	ff06
i got most bugs out.. but i cant get stats to show on character 3-4... its being gay... imma post it so ppl can change it.. if you get any info on how to change it so it shows plzzzz repost it for me... its pissing me off... lmao anyways i took your advice and make it so attacks are random.. magic is random.. more characters and looks... pretty much the same.. imma making arrows beside their names but i dont got the time right now im trying to rap this up so i can hand it in so i can pass this class but after that.. ill add world maps and what not

Author:	- IzAk - [ Tue Jun 06, 2006 11:15 am ]
Post subject:
good point, but the circles above the heads are what tells you who's going.

Author:	Clayton [ Tue Jun 06, 2006 4:36 pm ]
Post subject:
im just saying that you should make it more obvious who is going and when, i can just hold the enter button and the attacks happen without any kind of warning, make it so that the button has to be released before the other player can attack btw: plz change ur signature read [The Rules] on appropriate signatures

Author:	- IzAk - [ Thu Jun 15, 2006 1:21 pm ]
Post subject:
aww never mind he fixed it, dont worri about it..

Author:	BlackDragon989 [ Thu Jun 15, 2006 1:25 pm ]
Post subject:	pics
posting pics if you want to change characters around