Turing

[Tweak]

View.Set ("graphics:max,max")

%Darcy/Mr. Mackinnon helped
proc intro (intro_splash : int)
Pic.Draw (intro_splash, 5, -55, picCopy)
end intro
%%%
proc race (var horse : int, var horseRace : array 1 .. * of int, var horseName : string, var betAmount : string)

put "Choose your horse"

put "1. Almost Illegal"
put "2. Unexpected visitor"
put "3. Night Flight"
put "4. Kaddilac Jack"
put "5. Pablo"
put "6. Galadrielle"
get horseName

put "Now enter your bet amount, remember don't put a dollar sign."
get betAmount


for i : 1 .. 10000
randint (horse, 1, 6)
horseRace (horse) := horseRace (horse) + 1
drawfillbox (0, horse * 50, horseRace (horse), horse * 50 + 40, horse)
drawline (800, 0, 800, maxy, black)
delay (2)
exit when horseRace (horse) = 800
end for
end race


%%-MainLine-%%

var horseRace : array 1 .. 6 of int := init (0, 0, 0, 0, 0, 0)
var horse : int
var horseName : string
var betAmount : string
var intro_splash : int := Pic.FileNew ("race.jpg")
var mx, mb, my : int
loop
%Darcy Helped Me
mousewhere (mx, my, mb)
intro (intro_splash)
exit when mb = 1
%Darcy end
end loop
cls

race (horse, horseRace, horseName, betAmount)





------------------


I want to make a loop where if they enter a invalid number for the horses it says "Please pick a valid horse number."

Anyone can help?

[Sam Raven]

-When you see a cartoon/real life of someone swimming underwater on TV, and you are worried of when the O2 warning sign will start flashing.

[noobman]

I didn't do comp endineering (went for comp sci instead) so I didn't do turing, but I'll send that 2 one of my friends.