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

at20092009

Mon Jan 14, 2013 9:48 am


Problems with open/close command

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

%Screen 4
% import GUI

setscreen ("graphics:800;600,")

drawfillbox (0, 0, 800, 600, 118) %Screen
drawfillbox (0, 0, 800, 50, black) %Bottom line
drawfillbox (0, 0, 50, 600, black) %Left line
drawfillbox (0, 600, 800, 550, black) %Top line
% drawfillbox (800, 600, 750, 0, black) %Right line

var font4a : int := Font.New ("OCR A Std:40")
var font4b : int := Font.New ("Consolas Std:14")
var font4c : int := Font.New ("OCR A Std:20")
var font4d : int := Font.New ("OCR A Std:30")

Font.Draw ("Menu", 350, 500, font4a, 64)
Font.Draw ("If you order two pizzas the same", 55, 530, font4b, black)
Font.Draw ("size, you'll save $2 before taxes", 55, 510, font4b, black)
Font.Draw ("The computer screen size", 550, 530, font4b, black)
Font.Draw ("is 1920:1080", 600, 510, font4b, black)

% Font.Draw ("Eat-in", 500, 520, font4b, black)
% Font.Draw ("Take-out", 565, 520, font4b, black)
% Font.Draw ("Delivery", 660, 520, font4b, black)
% drawbox (520, 500, 530, 510, black)
% drawbox (600, 500, 610, 510, black)
% drawbox (690, 500, 700, 510, black)

Font.Draw ("Price List:", 140, 460, font4c, black)
drawline (140, 455, 260, 455, black)
Font.Draw ("Number:", 540, 460, font4c, black)
drawline (540, 455, 640, 455, black)

Font.Draw ("Small Pizza (Sauce and cheese) $7.50 -----------------", 100, 420, font4b, black)
drawfillbox (540, 420, 590, 430, black)
Font.Draw ("a", 600, 420, font4b, black)
Font.Draw ("        additional item $0.30 ------------------------------------", 100, 400, font4b, black)
drawfillbox (540, 400, 590, 410, black)
Font.Draw ("b", 600, 400, font4b, black)

Font.Draw ("Medium Pizza (Sauce and cheese) $10.50 ------------", 100, 380, font4b, black)
drawfillbox (540, 380, 590, 390, black)
Font.Draw ("c", 600, 380, font4b, black)
Font.Draw ("        additional item $0.50 ------------------------------------", 100, 360, font4b, black)
drawfillbox (540, 360, 590, 370, black)
Font.Draw ("d", 600, 360, font4b, black)

Font.Draw ("Large Pizza (Sauce and cheese) $12.50 ---------------", 100, 340, font4b, black)
drawfillbox (540, 340, 590, 350, black)
Font.Draw ("e", 600, 340, font4b, black)
Font.Draw ("        additional item $0.65 ------------------------------------", 100, 320, font4b, black)
drawfillbox (540, 320, 590, 330, black)
Font.Draw ("f", 600, 320, font4b, black)

Font.Draw ("Extra Large Pizza (Sauce and cheese) $14.00 -------", 100, 300, font4b, black)
drawfillbox (540, 300, 590, 310, black)
Font.Draw ("g", 600, 300, font4b, black)
Font.Draw ("        additional item $0.75 ------------------------------------", 100, 280, font4b, black)
drawfillbox (540, 280, 590, 290, black)
Font.Draw ("h", 600, 280, font4b, black)

Font.Draw ("Garlic Bread $2.50 ---------------------------------------------", 100, 260, font4b, black)
drawfillbox (540, 260, 590, 270, black)
Font.Draw ("i", 600, 260, font4b, black)
Font.Draw ("        with cheese $3.00 ---------------------------------------", 100, 240, font4b, black)
drawfillbox (540, 240, 590, 250, black)
Font.Draw ("j", 600, 240, font4b, black)

Font.Draw ("Coffee $1.00 -----------------------------------------------------", 100, 220, font4b, black)
drawfillbox (540, 220, 590, 230, black)
Font.Draw ("k", 600, 220, font4b, black)

Font.Draw ("Tea $1.00 ---------------------------------------------------------", 100, 200, font4b, black)
drawfillbox (540, 200, 590, 210, black)
Font.Draw ("l", 600, 200, font4b, black)

Font.Draw ("Pop", 100, 180, font4b, black)
Font.Draw ("        small $1.10 -------------------------------------------------", 100, 160, font4b, black)
drawfillbox (540, 160, 590, 170, black)
Font.Draw ("m", 600, 160, font4b, black)
Font.Draw ("        large $1.80 -------------------------------------------------", 100, 140, font4b, black)
drawfillbox (540, 140, 590, 150, black)
Font.Draw ("n", 600, 140, font4b, black)
Font.Draw ("        2L $2.25 ----------------------------------------------------", 100, 120, font4b, black)
drawfillbox (540, 120, 590, 130, black)
Font.Draw ("o", 600, 120, font4b, black)

drawfillbox (540, 70, 630, 100, black)
Font.Draw ("Finish", 560, 80, font4b, white)
% var button4a : int := GUI.CreateButton (620, 60, 0, "Finish", GUI.Quit)

% var X, Y, B1, B2 : int
% var a, b, c : int := 0
% buttonchoose ("multibutton")
% loop
%     buttonwait ("down", X, Y, B1, B2)
%     if X >= 520 and Y >= 500 and X = 500 and X = 500 and X = 540 and Y >= 420 and X = 540 and Y >= 400 and X = 540 and Y >= 380 and X = 540 and Y >= 360 and X = 540 and Y >= 340 and X = 540 and Y >= 320 and X = 540 and Y >= 300 and X = 540 and Y >= 280 and X = 540 and Y >= 260 and X = 540 and Y >= 240 and X = 540 and Y >= 220 and X = 540 and Y >= 200 and X = 540 and Y >= 160 and X = 540 and Y >= 140 and X = 540 and Y >= 120 and X = 540 and Y >= 70 and X = 270 and Y >= 230 and X = 230 and X = 230 and X