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

firex2249

Fri Jan 18, 2008 9:35 pm


Help Need It Fast

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

ok i found a way to drag words but how can i display my title at the time as the drag so they word together and also my exit button will work, plz can u help

put "                             Alphabetical Order Game"
put "*To exit the game type:stop*"

put "List of words:"

var mx1old, my1old : int := 0
var mx1, my1, mb1 : int := 0
var wordx1, wordy1 : int
loop
    Mouse.Where (mx1, my1, mb1)
    if (not mx1 = mx1old) and (not my1 = my1old) and mb1 > 0 then
        cls
        locatexy (min (max (mx1, 0), maxx), min (max (my1, 0), maxy))
        put "Noob"
    end if
    mx1old := mx1
    my1old := my1

end loop

drawbox (50, 50, 125, 125, blue)
locatexy (75, 82)
put "EXIT" ..

var x, y, button : int

loop
    mousewhere (x, y, button)
    % If button the is clicked, exits the program.
    exit when 50