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

yeyavailability

Thu Jun 05, 2008 8:36 pm


Nothing after cls again?

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

Below is the code I'm using to make music selection boxes.



% Picture of a fake checkbox
procedure nextpage_tutorial ()
    next := Pic.FileNew ("no_check.bmp")
    Pic.SetTransparentColor (next, white)
    Pic.Draw (next, 15, 18, picCopy)
    Font.Draw ("Go next when you have understood 90% of this information.", 37, 21, F_verdanaN, black)
    Pic.Free (next)
end nextpage_tutorial

%Activates checkmark to go to selected page
procedure click (x1, x2, y1, y2, button, chk1, chk2 : int)
    var mx, my, mb : int
    loop
        Mouse.Where (mx, my, mb)
        if mx >= x1 and mx = x2 and my = x1 and mx = x2 and my = x1 and mx = x2 and my = x1 + 85 and mx = x2 and my = x1 + 170 and mx = x2 and my = x1 + 255 and mx = x2 and my = x1 + 340 and mx = x2 and my = x1 + 425 and mx = x2 and my = x1 and mx = x2 and my = x1 + 85 and mx = x2 and my = x1 + 170 and mx = x2 and my = x1 + 255 and mx = x2 and my = x1 + 340 and mx = x2 and my = x1 + 425 and mx = x2 and my = x1 and mx = x2 and my = x1 + 85 and mx = x2 and my = x1 + 170 and mx = x2 and my = x1 + 255 and mx = x2 and my = x1 + 340 and mx = x2 and my = x1 + 425 and mx = x2 and my = 15 and mx = 13 and my = x1 and mx = x2 and my = x1 + 85 and mx = x2 and my = x1 + 170 and mx = x2 and my = x1 + 255 and mx = x2 and my = x1 + 340 and mx = x2 and my = x1 + 425 and mx = x2 and my = 15 and mx = 32 and my = x1 and mx = x2 and my = x1 + 85 and mx = x2 and my = x1 + 170 and mx = x2 and my = x1 + 255 and mx = x2 and my = x1 + 340 and mx = x2 and my = x1 + 425 and mx = x2 and my = 15 and mx = 13 and my = x1 and mx = x2 and my = x1 + 85 and mx = x2 and my = x1 + 170 and mx = x2 and my = x1 + 255 and mx = x2 and my = x1 + 340 and mx = x2 and my = x1 + 425 and mx = x2 and my = 15 and mx = 32 and my