Sorry your browser is not supported!

do
set cursor 0,0
print mousex();"         ";mousey()
if doclick=1
	inkcolor=RGB(255,255,0)
	ink inkcolor,inkcolor
	box mousex()-10,mousey()-10,mousex()-50,mousey()-50
endif
if mouseclick()=2
		cls
 		inkcolor=RGB(255,255,255)
		ink inkcolor,0
 		box mousex,mousex,mousex3,mousex3
		doclick=1
endif
loop

backdrop on
color backdrop 0
draw to front
sync rate 1000

do
set cursor 0,0

if doclick=1
inkcolor=RGB(255,255,255)
ink inkcolor,0
box mousex,mousey,mousex3,mousey3
endif
inkcolor=rgb(255,255,255)
ink inkcolor,0
text 50,50,"Welcome to the Cool Console!"
if mouseclick()=0 then mousedo=0
if mouseclick()=1 then mousedo=1
if mousedo=1 and doclick=1
cls
while mouseclick()=1
text 50,50,"Welcome to the Cool Place!"
endwhile
doclick = 0
else
	if mouseclick()=2
 		mousex=mousex()-10
 		mousey=mousey()-10
		mousex3=mousex()-50
		mousey3=mousey()-50
		inkcolor=RGB(255,255,255)
		ink inkcolor,0
 		box mousex,mousey,mousex3,mousey3
		doclick=1
	endif
	if mouseclick()=1
		mousedo=1
		
			
		
			mousex2=mousex()
			mousey2=mousey()
			if mousex2>=50 and mousex2<=244
				if mousey2>=56 and mousey2<=63
					text 50,65,"Hello World!"
				endif
			endif
		
	endif
endif
loop
end

` Dont need these -

` Backdrop is for 3D{
` backdrop on
` color backdrop 0
` }

` true by default {
` draw to front
` }

sync on
` 0 will tell the computer to go as fast as it can
sync rate 0

` Don't repeatedly calculate the same RGB value over and over again!
` Just do it once at the start of your program. RGB is a function
` that returns a value. You don't want to perform reduntant calculations.
white = RGB(255,255,255)
ink white,0

` Here is your main loop. I like to indent everything inside it once for clarity
do

   ` Find the mouse states at the beginning
   ` of the loop
   mx = mousex()
   my = mousey()
   lmb = (mouseclick() & 1)
   rmb = (mouseclick() & 2)

   ` I got rid of the mousedo variable because it appeared you wanted it to be
   ` 1 if the lmb was pressed and 0 if it wasn't so you only need to get the
   ` left mouseclick() once

   if doclick = 1
      line x1,y1,x1,y2
      line x1,y1,x2,y1
      line x1,y2,x2,y2
      line x2,y1,x2,y2
   endif

   text 50,50,"Welcome to the Cool Console!"

   ` Make sure you indent these correctly or it can get confusing later on in
   ` your program
   if lmb and doclick = 1

      ` You dont have to repeatedly text to the screen if you dont
      ` clear the screen at all
      while mouseclick() = 1
         sync : cls
         text 50,50,"Welcome to the Cool Place!"
      endwhile

      doclick = 0

   else
      if rmb
         ` Use your mouse variables instead of calling the mousex
         ` and mousey
         x1 = mx - 10
         y1 = my - 10
         x2 = mx - 50
         y2 = my - 50
         doclick = 1
      endif

      if lmb

         if mx >= 50 and mx <= 244
            if my >= 56 and my <= 63
               text 50,65,"Hello World!"
            endif
         endif

      endif
   endif

   sync : cls

loop

end