Computer Science Canada :: View topic

Program Called "Hanger"
% Make the title Page!
% Rows: 30
% Columns:100
setscreen ("graphics:vga")
var picID : int := 0
var x, y : int := 0
picID := Pic.FileNew ("h:\\no man.bmp")
Pic.Draw (picID, x, y, picCopy)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
setscreen ("nocursor")
color (yellow)
colorback (blue)
put "Welcome to!..."
var words : array 1 .. 20 of string
words (1) := "computer"
words (2) := "toamrow"
words (3) := "teacher"
words (4) := "student"
words (5) := "red"
words (6) := "blue"
words (7) := "orange"
words (8) := "foods"
words (9) := "haste"
words (10) := "catholic"
words (11) := "root"
words (12) := "gap"
words (13) := "think"
words (14) := "palace"
words (15) := "love"
words (16) := "smell"
words (17) := "bus"
words (18) := "school"
words (19) := "skateboarder"
words (20) := "snowboarding"
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
locate (20, 48)
put "Made by Cameorn Archer, With help of Mr.Ielapi!"
delay (1000)
colorback (black)
cls
color (yellow)
colorback (black)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
color (black)
setscreen ("nocursor")
color (yellow)
var player : string
put "Enter you First Name, Please."
get player
delay (560)
cls
if player = "Mya" then
% put "Have fun playing!"
% put "Girls Kick ass!"
elsif player = "mya" then
% put "Have fun playing!"
% put "Girls Kick ass!"
else
color (brightcyan)
locate (11, 40)
put "Loading... please wiat..."
for count : 1 .. 4
play (">g<")
play (">c<")
play (">A<")
play (">g<")
play (">D<")
play (">f<")
play (">c<")
play (">g<")
play (">k<")
play ("<k")
play ("c>")
play ("c>")
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
var letters : array 1 .. 26 of string (26)
letters (1) := "a"
letters (2) := "b"
letters (3) := "c"
letters (4) := "d"
letters (5) := "e"
letters (6) := "f"
letters (7) := "g"
letters (8) := "h"
letters (9) := "i"
letters (10) := "j"
letters (11) := "k"
letters (12) := "l"
letters (13) := "m"
letters (14) := "n"
letters (15) := "o"
letters (16) := "p"
letters (17) := "q"
letters (18) := "r"
letters (19) := "s"
letters (20) := "t"
letters (21) := "u"
letters (22) := "v"
letters (23) := "w"
letters (24) := "x"
letters (25) := "y"
letters (26) := "z"
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%CHESSE!%%%%%%%%%%%%%%%%%
end for
colorback (black)
cls
end if
randint (x, 1, 20)
put "If you want to quit the game during GamePlay, Type 'quit' on the guess"
loop
colorback (black)
cls
color (yellow)
var playagain : string
var alphabet : string := "a b c d e f g h i j k l m n o p q r s t u v w x y z"
var guess : string

colorback (black)
delay (1500)
cls
for count : 1 .. length (words (x))
put "_ " ..
end for
put " "
setscreen ("nocursor")
put "You have theis letters left..."
put alphabet
put "Enter guess."
get guess
if guess = "Give_Up" then
picID := Pic.FileNew ("h:\\Losing Page.bmp")
Pic.Draw (picID, x, y, picCopy)
end if

if guess = words (x) then
cls
picID := Pic.FileNew ("h:\\Winning Page.bmp")
Pic.Draw (picID, x, y, picCopy)
delay (2000)
get playagain
delay (500)
if playagain = "n" then
delay (500)
put "Aww =( Bye bye ", player
delay (575)
setscreen ("graphics:vga")
colorback (purple)
cls
picID := Pic.FileNew ("h:\\ender.bmp")
Pic.Draw (picID, x, y, picCopy)
elsif playagain = "y" then
delay (200)
put "Yay! =)"
end if
exit when playagain = "n"
end if
exit when guess = "quit"
exit when guess = "Give_Up"
end loop

Author:	Pip_Jr [ Thu Jan 20, 2005 10:13 pm ]
Post subject:	i need some help =S!!
I was making my Hang-Man prject that needs arrays and proccedures, then all of a suden (SCARIE PART) My computer crashed! oh god dam it! andi lost like 200 lines of code and forgot what i put down =( please help out!

Author:	cycro1234 [ Thu Jan 20, 2005 10:28 pm ]
Post subject:
Ok, so what part of your code do you need help with?

Author:	basketball4ever [ Thu Jan 20, 2005 11:25 pm ]
Post subject:
Well put what code you have now here... then we'll help u fix it or help u add more... we cant just do the hangman for you...

Author:	Pip_Jr [ Fri Jan 21, 2005 6:58 am ]
Post subject:
damn my school computer, i'll sned it right when i get to school in...hm.... 20 mins ok and i need it so i choose 1 letter thats in the word at a time, and if it gets it wrong it outputs the head of the stick man

Author:	zomg [ Fri Jan 21, 2005 8:02 am ]
Post subject:
i came to my current school late this semestre and had never taken visual basic before... but somehow i got stuck in the middle of a 2nd year VB class and my first program my teacher asked everybody to write was hangman game needless to say i got a big "0" on that assignment lol... just thought id share my sad story...anyway anyway it would be good to ur code so we could help

Author:	eNc [ Fri Jan 21, 2005 9:25 am ]
Post subject:
shadow master wrote: i came to my current school late this semestre and had never taken visual basic before... but somehow i got stuck in the middle of a 2nd year VB class and my first program my teacher asked everybody to write was hangman game needless to say i got a big "0" on that assignment lol... just thought id share my sad story...anyway anyway it would be good to ur code so we could help lol that sucks, did you tell him you don't kno vb ?

Author:	Tony [ Fri Jan 21, 2005 9:29 am ]
Post subject:
shadow master wrote: needless to say i got a big "0" on that assignment should have letted us know, we would have helped you out with that.. to the point where it's the best hangman in class

Author:	eNc [ Fri Jan 21, 2005 9:48 am ]
Post subject:
tony wrote: shadow master wrote: needless to say i got a big "0" on that assignment should have letted us know, we would have helped you out with that.. to the point where it's the best hangman in class lol you know it, but yea getting stuck in somthing you don't kno will give him a hard time all year.

Author:	zomg [ Fri Jan 21, 2005 12:00 pm ]
Post subject:
tony wrote: shadow master wrote: needless to say i got a big "0" on that assignment should have letted us know, we would have helped you out with that.. to the point where it's the best hangman in class i would have but i had just moved in with my dad and bro, and they didnt have the internet yet... i fixed that and my school didnt alow me to go on this site becuz its a "chat program" and "email" man ive heard it all this year anyway here i am at school and on this site

Author:	Tony [ Fri Jan 21, 2005 12:50 pm ]
Post subject:
shadow master wrote: my school didnt alow me to go on this site becuz its a "chat program" and "email" well damn - god forbid that you'll actually deside to go somewhere and meet some people who post on compsci.. and then the school will be all like "OMG - we're going to get shut down because internet is full of student eating aliens" hah - I met a bunch of people from this site btw - my CS teacher reads this site So does McKenzie

Author:	Bacchus [ Fri Jan 21, 2005 3:19 pm ]
Post subject:
my school just screwed around with their computers and now this site wont even load there but ya thats gotta suk being stuk in 2nd year class that you nothing of lol

Author:	Cervantes [ Fri Jan 21, 2005 4:08 pm ]
Post subject:
Maybe I'm the only one who sees this, but if you lost your code, Pip_Jr, can't you rewrite it? I know it's a pain, but it's not as though it's our responsibility to write your code for you because you lost it. Besides, you should remember how you did it. And that's all we're going to help you with. I hope you're not asking us to finish your code for you.