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

beedub

Thu May 06, 2004 10:40 am


mouseover loop problem

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

i tried making a menu program with no GUI, im having some trouble with using 'get' statements. When the button is pressed i cant use a get statement without the program stopping and having some sort of error. heres my program. ty


View.Set ("offscreenonly")
%menu.t
colorback (23)
color (30)
var font1, font2, font3, font4, line : int
font1 := Font.New ("courier:10")
font2 := Font.New ("courier:10:bold")

%function mouseover
var mousex, mousey, mouseb, mousex1, mousey1, mouseb1, mousex2, mousey2, mouseb2, mousex3, mousey3, mouseb3 : int
function mouseover (x1, y1, x2, y2 : int) : boolean
    var x, y, b : int
    mousewhere (x, y, b)
    if (x >= x1 and x = x2 and x = y1 and y = y2 and y =10 then u will have to make a method of inputing more then one char using getch/hasch.


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

beedub

Mon May 10, 2004 10:47 am



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

well, lets say its at a max of 3 chars long