help with box making

[Pyrokid]

why doesnt this work:

Code:

declare sub box
screen 12
dim shared mb
dim shared mx
dim shared my
dim shared scr(307200)

setmouse 1,1,1
do until a$=chr$(27)
   a$=inkey$
   getmouse mx,my,,mb
   if mb = 1 then call box
loop

sub box
   oldx=mx
   oldy=my
   get (1,1)-(640,400),scr
   do until mb <> 1
      getmouse x,y,,mb
      if oldx <>x then
         line (mx,my)-(oldx,oldy),0,b
         line (mx,my)-(x,y),7,b
         oldx=x
      end if
      if oldy <>y then
         line (mx,my)-(oldx,oldy),0,b
         line (mx,my)-(x,y),7,b
         oldy=y
      end if
      
   loop
   cls
   put (1,1),scr
   line (mx,my)-(x,y),7,b
end sub

[whitetiger0990]

What's is -supposed- to do?

For me it has a click and drag box thing.

[Pyrokid]

sorry shouldve explained it more
Its a click and drag box (pritty simple) i dont want it to delete what was left there b4 so i want it to take a screen shot of the screen first then have it put it back there bot it doest like my put command and it freezes

[Anonymous]

here ya go i think

Code:

screen 12, ,2


dim scr((640 * 480) \ 4 + 1) As Integer


ScreenSet 0, 1


Do

  a$ = Inkey$
  getMouse xx,yy,,mb 'dummy xx yy, only want the mb here...


  put (0,0),scr, Pset 'make the background


  If holdstate = -1 Then 'if holding

    getmouse x,y,, 'get current x y

    If x <> -1 Then 'if mouse is in screen(works without, but causes weirdness when you hold and go off screen)
      line (mx,my)-(x,y),7,b' draw between the 2
  
    End If
  
  End If


  If mb = 1 Then 'if clicking
          
    If Not holdstate Then 'if not already holding
      getMouse mx,my 'grab the mx my of where holding begins
      holdstate = -1
      
    End If
      
  Else 'if not clicking
    If holdstate Then Get (0,0)-(639,479),scr 'if WAS holding, but now button off
    holdstate = 0

  End If  
  

  ScreenCopy
  Cls

Loop Until Multikey(1) Or a$ = Chr$(255) + "X"

edit forgot Loop :P

[Pyrokid]

you wouldnt mind explaining why mine didnt work would you

[Anonymous]

it was all the flow of your program, you would halt the flow once there was a mouse button, where as mine the control flows through the whole prog the whole time, only changing direction based on states.

thats the best way i can put it. im sure theres a way you couldve fixed your logic but it was just easier to scrap that model and go for the FSM approach, imo.

[Mitthrawnuruodo]

:o Please dont tell me your making a fake OS.....please....

[Pyrokid]

nah im not id just thought i would try it. Im not even NEAR that stage in programming