View.Set ("graphics:max,max")
var rollcount : array 1 .. 6 of int := init (0, 0, 0, 0, 0, 0)
var font : int := Font.New ("sans serif:18:bold")
var die : int
var mx, my, mb : int
var spot : int := 0
var name : array 1 .. 6 of string
var bets : array 1 .. 6 of int
var spends : array 1 .. 6 of int
var amounts : array 1 .. 6 of int := init (1000, 1000, 1000, 1000, 1000, 1000)
proc loadhorses (var horses : array 1 .. 6 of int)
for i : 1 .. upper (horses)
horses (i) := Pic.FileNew ("horse" + intstr (i) + ".jpg")
end for
end loadhorses
proc names (var name : array 1 .. 6 of string)
for i : 1 .. upper (name)
get name (i)
end for
end names
proc bet (var bets : array 1 .. 6 of int)
for i : 1 .. upper (bets)
locate (1 + i, 59)
get bets (i)
end for
end bet
proc amount (var amounts : array 1 .. 6 of int)
for i : 1 .. upper (amounts)
end for
end amount
proc spend (var spends : array 1 .. 6 of int)
for i : 1 .. upper (spends)
locate (1 + i, 37)
get spends (i)
end for
end spend
process playmusic
Music.PlayFile ("360.mp3")
end playmusic
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%main line
var horses : array 1 .. 6 of int
put "name", " ", "cash amount", " ", "bet amount", " ", "horse beting on"
names (name)
amount (amounts)
spend (spends)
bet (bets)
randomize
loadhorses (horses)
fork playmusic
drawfillbox (0, 0, maxx, maxy, green)
drawline (900, 0, 900, 620, black)
drawline (899, 0, 899, 620,black)
drawline (898, 0, 898, 620,black)
drawline (700, 0, 700, 0, brown)
loop
mousewhere (mx, my, mb)
if mb = 1 then
spot := my div 80
end if
if mb = 1 and spot <= 6 and my < 500 then
rollcount (spot) += 1
end if
delay (4)
randint (die, 1, 6)
rollcount (die) := rollcount (die) + 1
Pic.Draw (horses (die), rollcount (die), die * 80, picCopy)
drawfillbox (0, die * 80, rollcount (die), die * 80 + 50, green)
Font.Draw ("finish",870,625,font,black)
Font.Draw (intstr (die),10,die * 80,font,black)
exit when rollcount (die) >= 850
end loop
Music.PlayFileStop
Font.Draw ("horse " + intstr (die) + " is the winner!", 400, 350, font, black)
delay(600)
cls
for i : 1 .. 6
amounts (i) := amounts (i) - spends (i)
if bets (i) = die then
amounts (i) := amounts (i) + spends (i) * 2
end if
end for
put "name", " ", "cash amount", " ", "bet amount", " ", "horse beting on"
for i : 1 .. 6
locate (1 + i, 1)
put name (i)
locate (1 + i, 16)
put amounts (i)
locate (1 + i, 37)
put spends (i)
locate (1 + i, 59)
put bets (i)
end for