Hello friends !! have a look to this little code...you can make windows where you decide...you can put buttons and lines...but the rest must be done for you haha... it`s a joke !! but with a little patience you can make the rest
autocam off
sync on
set text font "new"
set text size 14
rem we give color to back grond
ink rgb(140,140,140),0
box 0,0,640,480
`----------------------------------
`colors for buttons
borde=rgb(0,0,0)
rojo=rgb(255,0,0)
amarillo=rgb(255,255,0)
gris=rgb(150,150,150)
`-----------------------------------
rem we make windows where we want
for i= 1 to 5
ventana(190+(i*15),255+(i*8),50)
next i
rem we got lines !!
linea(160,200,300)
linea(270,223,150)
do
ventana(200,20,150)
boton(203,23,50,gris,borde,"file")
boton(203,43,50,gris,borde,"open")
boton(203,63,50,gris,borde,"save")
sync
loop
`funcion para crear el boton
function boton(x,y,largo,color,borde,nombre$)
if mousex()>x and mousex()<x+largo and mousey()>y and mousey()<y+16 and mouseclick()=1
col=1
else
rem col=0
endif
if col=1
color=rgb(255,0,0)
box x-1,y-1,1+x+largo,y+1+15,borde,borde,borde,borde
box x,y,x+largo,y+15,color,color,color,color
ink rgb(0,0,50),1
text x+1,y+1,nombre$
endif
if col=0
color=rgb(0,0,250)
box x-1,y-1,1+x+largo,y+1+15,borde,borde,borde,borde
box x,y,x+largo,y+15,color,color,color,color
ink rgb(0,0,50),1
text x+1,y+1,nombre$
endif
endfunction boton
`funcion para crear ventanas
function ventana(x,y,largo)
ink rgb(100,0,0),1
box x-1,y-1,x+1+largo,y+1+150
ink rgb(120,120,120),0
box x,y,x+largo,y+150
endfunction ventana
`funcion para crear lineas
function linea(x,y,largo)
ink rgb(0,0,0),1
line x,y,x+largo,y
ink rgb(255,255,255),1
line x,y-1,x+largo,y-1
endfunction
oh my god
