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

andyman

Sun Dec 07, 2003 10:31 am


Two buttons at once

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

I've been trying to create to buttons for my program. One will start a new game and the other will continue your file if it previously exists. Then when one is clicked the other button will disappear. I'm using version 3.1.1 and no I our school won't get the newer version. Here's my program so far: 

% setscreen ("graphics:400;600:sxga")
setscreen ("nocursor")

var fontQ : int := Font.New ("Rockwell:16")
var fontID : int := Font.New ("Rockwell:20")
var fn : string
var intnum : int
var mousex, mousey, mouseb : int
mousewhere (mousex, mousey, mouseb)

function mouseover (x1, y1, x2, y2 : int) : boolean
    var mousex, mousey, mouseb : int
    mousewhere (mousex, mousey, mouseb)
    if mousex >= x1 and mousex = y1 and mousey