Hi, I'm having problems with two things in this lottery program I'm making for class. First, I keep getting an error message in my sorting procedure that "the variable has no value." Code(beneath Winningnums in actual program):
for j : 1 .. 5
for i : 1 .. 5
if nums (i) < nums (i + 1) then
temp := nums (i)
nums (i) := nums (i + 1)
nums (i + 1) := temp
end if
end for
end for
Second, the program says procedure lotto can only be declared at the "program,module or monitor level." Also, although it's probably obvious, I'm new to programming.
PROGRAM
type box :
record
x, y, sx, sy, col : int
end record
var font3 : int := Font.New ("arial:20:bold,italic")
var font4 : int := Font.New ("arial:12:bold,italic")
var x : int
var font : int := Font.New ("arial:16:bold,italic")
var font1 : int := Font.New ("arial:12:bold,italic")
var font2 : int := Font.New ("arial:16:bold,italic")
var money : int := 30
var moneys : string
var curX, curY : int := 75
var boxes : array 1 .. 42 of box
var numbers : array 1 .. 6 of int
var z, numChosen : int
numChosen := 0
var Winnings : array 0 .. 6 of int := init
(0, 5, 10, 100, 500, 1000, 10000)
var num : array 1 .. 6 of int
curX := maxx div 2 - 100
type car :
record
x : int
y : int
speed : int
end record
var cars : array 1 .. 2 of car
var y : int := maxy - 125
for i : 1 .. 2
cars (i).x := 0
cars (i).y := y
cars (1).speed := 5
cars (2).speed := 4
y -= 125
end for
setscreen ("offscreenonly")
function between (y, minpos, maxpos : int) : boolean
if y < maxpos and y > minpos then
result true
end if
result false
end between
function Move (x : int, xory : boolean, var myCar : car) : boolean
if xory then
if whatdotcolour (myCar.x - x, myCar.y) not= gray then %iSuperRages
myCar.x -= x
result true
end if
elsif whatdotcolor (myCar.x, myCar.y - x) not= gray and myCar.y > 0 and myCar.y < maxy then % iRaged
myCar.y -= x
result true
end if
result false
end Move
function ptinrect (x, y, x1, y1, x2, y2 : int) : boolean
result (x > x1) and (x < x2) and (y > y1) and (y < y2)
end ptinrect
procedure resetLotteryValues
for i : 1 .. 42
boxes (i).x := curX
boxes (i).y := curY
boxes (i).sx := curX + 20
boxes (i).sy := curY + 20
boxes (i).col := black
curX += 25
if curX > maxx div 2 + 50 then
curX := maxx div 2 - 100
curY += 25
end if
end for
end resetLotteryValues
procedure drawLottery
for i : 1 .. 42
drawbox (boxes (i).x, boxes (i).y, boxes (i).sx, boxes (i).sy, boxes (i).col)
Font.Draw (intstr (i), boxes (i).x + 5, boxes (i).y + 5, Font.New ("Arial:8"), boxes(i).col)
end for
end drawLottery
function grid (random : boolean) : array 1 .. 6 of int
View.Set ("offscreenonly")
resetLotteryValues
drawLottery
View.Update
if not random then
loop
Mouse.Where (x, y, z)
if z not= 0 then
cls
for i : 1 .. 42
if ptinrect (x, y, boxes (i).x, boxes (i).y, boxes (i).sx, boxes (i).sy) and boxes (i).col not= 43 then
boxes (i).col := 43
numChosen += 1
if numChosen <= 6 then
numbers (numChosen) := i
end if
end if
end for
drawLottery
View.Update
end if
exit when numChosen >= 6
end loop
else
for i : 1 .. 6
loop
var randNum : int := Rand.Int (1, 42)
if boxes (randNum).col not= 43 then
boxes (randNum).col := 43
numbers (i) := randNum
exit
end if
end loop
drawLottery
View.Update
Time.Delay(500)
cls
end for
end if
View.Set ("nooffscreenonly")
result numbers
end grid
var Input : int := 1 % times
loop
var ch : array char of boolean
var worked : boolean
Input.KeyDown (ch)
if ch (KEY_LEFT_ARROW) then
worked := Move
(cars (1).speed, true, cars (1))
elsif ch (KEY_RIGHT_ARROW) then
worked := Move
(cars (1).speed * -1, true, cars (1))
elsif ch (KEY_UP_ARROW) then
worked := Move
(cars (1).speed * -1, false, cars (1))
elsif ch (KEY_DOWN_ARROW) then
worked := Move
(cars (1).speed, false, cars (1))
end if
if not Move (cars (2).speed * -1, true, cars (2)) then
if cars (2).x > 350 and cars (2).x < 400 then
worked := Move (cars (2).speed, false, cars (2))
else
worked := Move (cars (2).speed * -1, false, cars (2))
end if
end if
%cars (2).x += cars (2).speed
procedure lotto
Draw.FillBox (80, 120, 205, 220, green)
Draw.FillBox (250, 120, 375, 220, green)
Draw.FillBox (420, 120, 545, 220, green)
Font.Draw ("Welcome to Ryan Hodges's Lottery!", 100, 320, font3, black)
Font.Draw ("Play", 460, 170, font4, black)
Font.Draw ("Exit", 290, 170, font4, black)
Font.Draw ("Info", 120, 170, font4, black)
end lotto
loop
Mouse.Where(x,y,z)
if z not=0 then
if ptinrect(x,y,80,120,205,220) then
Draw.Fill (maxx, maxy, red, red)
Font.Draw ("These are the rules:", 20, 350, font3, black)
Font.Draw ("1.Control your car with the arrow keys, win the race to choose your numbers", 20, 310, font4, black)
Font.Draw ("2.If the computer wins, it chooses your numbers for you.", 20, 270, font4, black)
Font.Draw ("3.Choose six lottery numbers from 1 to 42.", 20, 230, font4, black)
Font.Draw ("4.You start with $10. Each ticket costs $5.", 20, 190, font4, black)
Font.Draw ("5.Get matches to earn money! One match=$5, Two=$20, Three=$100,Four=$500", 20, 150, font4, black)
Font.Draw ("Five=$1000,Six=$10000.", 40, 130, font4, black)
delay(5000)
cls
lotto
elsif ptinrect(x,y,250,120,375,220) then
cls
elsif ptinrect(x,y,420,120,545,220) then
cls
Font.Draw("3",maxx div 2,maxy div 2, font, yellow)
delay(1000)
cls
Font.Draw("2",maxx div 2,maxy div 2,font, yellow)
delay(1000)
cls
Font.Draw("1",maxx div 2,maxy div 2, font,yellow)
delay(1000)
cls
Font.Draw("GO!", maxx div 2,maxy div 2,font,yellow)
cls
Draw.FillBox (400, 220, 370, 400, gray)
Draw.FillBox (400, 0, 370, 150, gray)
Draw.FillBox (200, 50, 220, 350, gray)
Draw.FillBox (550, 50, 570, 350, gray)
Draw.FillBox (90, 0, 110, 170, gray)
Draw.FillBox (90, 200, 110, 400, gray)
Draw.FillBox (0, 400, maxx, 390, gray)
Draw.FillBox (0, 0, maxx, 10, gray)
for i : 1 .. 2
Draw.FillOval (cars (i).x, cars (i).y, 2, 2, blue)
end for
View.Update
exit when
cars (1).x > maxx or
cars (2).x > maxx
delay (25)
end if
cls
setscreen ("nooffscreenonly")
var nums, winningNums : array 1 .. 6 of int
cls
if cars (1).x > maxx then
% cls
Font.Draw ("You Won! Pick Your Numbers(6)", 170, 300, font2, black)
nums := grid (false)
% for i : 1 .. 6
%
% loop
% locatexy (300, 200)
% get nums (i)
% var complete : boolean := true
% for j : 1 .. i - 1
% if nums (j) = nums (i) then
% complete := false
% end if
% end for
% exit when (nums (i) <= 42 or nums (i) >= 1) and complete
% put "That needs to be between 1 and 42, please reenter."
% end loop
% end for
cls
elsif cars (2).x > maxx then
% cls
Font.Draw ("You Lost
The computer picks your numbers", 180, 260, font1, black)
nums := grid (true)
% for i : 1 .. 6
% loop
% nums (i) := Rand.Int (1, 42)
%
% var complete : boolean := true
% for j : 1 .. i - 1
% if nums (j) = nums (i) then
% complete := false
% end if
% end for
%
% exit when complete
% end loop
% end for
end if
for i : 1 .. 6
loop
winningNums (i) := Rand.Int (1, 42)
var complete : boolean := true
for j : 1 .. i - 1
if winningNums (j) = winningNums (i) then
complete := false
end if
end for
exit when complete
end loop
end for
var temp : int := 0
for j : 1 .. 5
for i : 1 .. 5
if winningNums (i) < winningNums (i + 1) then
temp := winningNums (i)
winningNums (i) := winningNums (i + 1)
winningNums (i + 1) := temp
end if
end for
end for
for j : 1 .. 5
for i : 1 .. 5
if nums (i) < nums (i + 1) then
temp := nums (i)
nums (i) := nums (i + 1)
nums (i + 1) := temp
end if
end for
end for
cls
drawfill(5, 5, 105, 105)
locatexy (270, 200)
for i : 1 .. 6
put nums (i), " " ..
end for
put " "
locatexy (270, 180)
for i : 1 .. 6
put winningNums (i), " " ..
end for
put ""
var matches : int := 0
for j : 1 .. 6
for i : 1 .. 6
if nums (i) = winningNums (j) then
matches += 1
end if
end for
end for
locatexy (270, maxy div 2 + 25)
if matches = 1 then
Font.Draw("You got 1 match.",270,maxy div 2+25, font,black) % Make this into Font.Draw
% And this
end if
money += Winnings (matches)
Font.Draw ("You have this much money:" + intstr (money), 170, 300, font, black)
end if
end loop
end loop
