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

iop

Sun Aug 29, 2004 10:12 pm


elevator help

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

using the fromTopToMiddle procedure if a person clicks on the middle button while the elevator is at the top, I want the elevator to go down to the middle.  how can i do this?

var x, y, b : int

proc fromTopToMiddle
    drawfillbox (maxx div 2 - 22, 3, maxx div 2 + 22, 197, white)
    drawfillbox (maxx div 2 - 20, 45, maxx div 2 + 20, 5, red)
    for decreasing up : 150 .. 80
        drawfillbox (maxx div 2 - 20, 45, maxx div 2 + 20, 5, white)
        drawfillbox (maxx div 2 - 20, 5 + up + 40, maxx div 2 + 20, 5 + up, red)
        delay (10)
        drawfillbox (maxx div 2 - 20, 5 + up + 40, maxx div 2 + 20, 5 + up, white)
    end for
    drawfillbox (maxx div 2 - 20, 195, maxx div 2 + 20, 155, red)
end fromTopToMiddle

proc fromMiddleToTop
    drawfillbox (maxx div 2 - 22, 3, maxx div 2 + 22, 197, white)
    drawfillbox (maxx div 2 - 20, 45, maxx div 2 + 20, 5, red)
    for up : 80 .. 150
        drawfillbox (maxx div 2 - 20, 45, maxx div 2 + 20, 5, white)
        drawfillbox (maxx div 2 - 20, 5 + up + 40, maxx div 2 + 20, 5 + up, red)
        delay (10)
        drawfillbox (maxx div 2 - 20, 5 + up + 40, maxx div 2 + 20, 5 + up, white)
    end for
    drawfillbox (maxx div 2 - 20, 195, maxx div 2 + 20, 155, red)
end fromMiddleToTop

proc fromGroundToMiddle
    drawfillbox (maxx div 2 - 22, 3, maxx div 2 + 22, 197, white)
    drawfillbox (maxx div 2 - 20, 45, maxx div 2 + 20, 5, red)
    for up : 0 .. 80
        drawfillbox (maxx div 2 - 20, 45, maxx div 2 + 20, 5, white)
        drawfillbox (maxx div 2 - 20, 5 + up + 40, maxx div 2 + 20, 5 + up, red)
        delay (10)
        drawfillbox (maxx div 2 - 20, 5 + up + 40, maxx div 2 + 20, 5 + up, white)
    end for
    drawfillbox (maxx div 2 - 20, 125, maxx div 2 + 20, 85, red)
end fromGroundToMiddle

for drawing : 23 .. 25
    drawline (maxx div 2 - drawing, 0, maxx div 2 + drawing, 0, black)
    drawline (maxx div 2 - drawing, 1, maxx div 2 + drawing, 1, black)
    drawline (maxx div 2 - drawing, 2, maxx div 2 + drawing, 2, black)
    drawline (maxx div 2 - drawing, 0, maxx div 2 - drawing, 200, black)
    drawline (maxx div 2 - drawing, 0, maxx div 2 - drawing, 200, black)
    drawline (maxx div 2 - drawing, 0, maxx div 2 - drawing, 200, black)
    drawline (maxx div 2 + drawing, 0, maxx div 2 + drawing, 200, black)
    drawline (maxx div 2 + drawing, 0, maxx div 2 + drawing, 200, black)
    drawline (maxx div 2 + drawing, 0, maxx div 2 + drawing, 200, black)
    drawline (maxx div 2 - drawing, 198, maxx div 2 + drawing, 198, black)
    drawline (maxx div 2 - drawing, 199, maxx div 2 + drawing, 199, black)
    drawline (maxx div 2 - drawing, 200, maxx div 2 + drawing, 200, black)
end for
drawfillbox (maxx div 2 - 20, 45, maxx div 2 + 20, 5, red)
drawfillbox (390, 160, 400, 170, blue)
locate (14, 45)
put "Call button."
drawfillbox (390, 98, 400, 108, blue)
locate (18, 45)
put "Call button."
drawfillbox (maxx - 10, 10, maxx - 40, 40, black)
locate (22, 76)
put "Exit"

loop
    mousewhere (x, y, b)
    if x >= 390 and x = 98 and y = 390 and x = 160 and y = maxx - 40 and x = 10 and y