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

135280

Thu Jun 05, 2008 11:40 am


Can anyone help me with this problem?

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

I am working on a final project for school and am wondering if anyone knows how to fix this
var font1, font2, font3, font4 : int := 0

var winID1 : int

%welcome screen%
font1 := Font.New ("serif:72")
font2 := Font.New ("serif:12")
Font.Draw ("Pizza Pizza", 75, 250, font1, red)
var Xm, Ym, click : int := 0
loop
mousewhere (Xm, Ym, click)
%drawfillbox (100,50,30,30,black)
Font.Draw ("menu", 50, 30, font2, red)
View.Update

mousewhere (Xm, Ym, click)
%drawfillbox (550,50,585,30,black)
Font.Draw ("order", 550, 30, font2, red)
View.Update

if Xm >= 100 and Xm = 30 and Ym = 100 and Xm = 30 and Ym = 100 and Xm = 30 and Ym = 100 and Xm = 30 and Ym = 100 and Xm = 30 and Ym