Computer Science Canada

var receiver, yardsGained, down, yardsLeft, yardsToGo, plays : int
var wrName : string
plays := 0
down := 1
yardsToGo := 10
yardsLeft := 50
loop
randint (receiver, 1, 4)
if receiver = 1 then
wrName := "wide receiver"
elsif receiver = 2 then
wrName := "slot receiver"
elsif receiver = 3 then
wrName := "tight end"
elsif receiver = 4 then
wrName := "halfback"
end if
if receiver = 4 then
randint (yardsGained, -3, 6)
else
randint (yardsGained, 3, 10)
end if
if yardsGained < 0 then
put "the qaurterback is sacked for a loss of ", yardsGained
plays := plays + 1
down := down + 1
yardsToGo := yardsToGo - yardsGained
yardsLeft := yardsLeft - yardsGained
put "it is ", yardsToGo, " and ", down, " on the opponent's ", yardsLeft
else
put "the quarterback passes it to the ", wrName, " for a gain of ", yardsGained
plays := plays + 1
down := down + 1
yardsToGo := yardsToGo - yardsGained
yardsLeft := yardsLeft - yardsGained
put "it is ", yardsToGo, " and ", down, " on the opponent's ", yardsLeft
end if
if yardsToGo <= 0 then
yardsToGo := 10
down := 1
end if
if down = 4 then
put "they punt it away"
elsif yardsLeft = 0 then
put "Touchdown"
elsif plays = 10 then
put "end of the game"
end if
exit when plays = 10 or down = 4 or yardsLeft = 0
end loop

var fatuigue, receiver, yardsGained, down, yardsLeft, yardsToGo, plays, incomplete, luck : int
var wrName : string
fatuigue := 15
plays := 0
down := 1
yardsToGo := 10
yardsLeft := 50
luck := 2
loop
randint (incomplete, 1, luck)
randint (receiver, 1, 4)
if receiver = 1 then
wrName := "wide receiver"
elsif receiver = 2 then
wrName := "slot back"
elsif receiver = 3 then
wrName := "tight end"
elsif receiver = 4 then
wrName := "halfback"
end if
if receiver = 4 then
randint (yardsGained, -3, fatuigue div 2)
else
randint (yardsGained, 3, fatuigue)
end if
if yardsGained < 0 then
put "the qaurterback is sacked for a loss of ", yardsGained
plays := plays + 1
down := down + 1
fatuigue := fatuigue - 1
yardsToGo := yardsToGo - yardsGained
yardsLeft := yardsLeft - yardsGained
luck := luck + 1
put "it is ", down, " and ", yardsToGo, " on the opponent's ", yardsLeft
elsif incomplete = 1 then
put "the ball is is touched by the defender and the pass is incomplete"
luck := 2
down := down + 1
fatuigue := fatuigue - 1
put "it is ", down, " and ", yardsToGo, " on the opponent's ", yardsLeft
else
put "the quarterback passes it to the ", wrName, " for a gain of ", yardsGained
plays := plays + 1
down := down + 1
yardsToGo := yardsToGo - yardsGained
yardsLeft := yardsLeft - yardsGained
luck := luck + 1
put "it is ", down, " and ", yardsToGo, " on the opponent's ", yardsLeft
end if
if yardsToGo <= 0 then
yardsToGo := 10
down := 1
put "it is 1 and 10 on the opponent's ", yardsLeft
end if
if down = 4 then
put "they are kicking a feild goal"
if yardsLeft > 33 then
put "no good"
else
put "it's good"
end if
elsif yardsLeft <= 0 then
put "Touchdown"
elsif plays = 15 then
put "end of the game"
end if
exit when plays = 15 or down = 4 or yardsLeft <= 0
end loop

Author:	AzureFire [ Fri Dec 02, 2005 6:41 pm ]
Post subject:
Tip: add some way of allowing the user to interact. Like add a bunch of different plays. Each one improves chances kind of thing. And.. Add graphics to go along with each of the outcomes.

Author:	a random person [ Sat Dec 03, 2005 9:53 am ]
Post subject:
thank you AzureFire, I will try that and another thing i'm adding in is feild goals the comp kicks automatically on fourth down, there is no sense punting it a way on the goalline. one problem, it dosent say 1st and 10 it says the down and negitive something, how do i fix that. can more people give suggestions for inprovement.

Author:	codemage [ Mon Dec 12, 2005 1:04 pm ]
Post subject:
Nothing major to point out: On plays where you get a 1st down, you shouldn't say the old downage first. IE it is 3 and -9 on the opponent's 25 %don't say this line it is 1 and 10 on the opponent's 25 Also, when your next 1st down is a touchdown, it's called down & goal. IE it is 2 and 10 on the opponent's 5 %incorrect it is 2 and goal on the opponent's 5 %correct

Author:	Paul [ Tue Dec 13, 2005 1:03 am ]
Post subject:
And fix the spelling mistakes

Author:	a random person [ Wed Dec 14, 2005 6:49 am ]
Post subject:
V3 of this game will come iut shortly, i've noticed the spelling just after i posted. in V3 ther will be user input, they can choose how far you want the players to go out, shorter passes are more likley to suceed. however, longer passes gain more yards. the user will also decide to wether to pass or kick on the 4th down. all other features i'm leaving for the user to figure out.

Author:	Paul [ Wed Dec 14, 2005 9:03 pm ]
Post subject:
Is it just me, or does no one ever score touchdowns in this game? :S

Author:	codemage [ Thu Dec 15, 2005 1:54 pm ]
Post subject:
I made a visual basic version (in university) of what you're describing - except it has graphics instead of text. I should post it so so you have something to strive towards (or against). Note to self...