Sorry your browser is not supported!

if mouseclick() = 1 and mClick = 0 then mClick = 1:[open menu]
if mouseclick() = 0 and mClick = 1 then mClick = 2
if mouseclick() = 1 and mClick = 2 then mClick = 3:[close menu]
if mouseclick() = 0 and mClick = 3 then mClick = 0

rem Title: Level-Editor
rem Author: KeNiBu

global screenX : global screenY : global screenD
screenX = SCREEN WIDTH() : screenY = SCREEN HEIGHT() : screenD = SCREEN DEPTH()
SET DISPLAY MODE screenX, screenY, screenD : CLS RGB(10,10,10)
SET TEXT FONT "verdana" : SET TEXT SIZE 14

GOSUB _loading
SYNC ON : SYNC RATE 0

DO

   GOSUB _surface
   GOSUB _infoframe
   GOSUB _navbar

GOSUB _mouseclick
SYNC
LOOP
END

rem ---------------------------------------------------------------------------------

_loading:
   rem Loading screen
   INK RGB(255,255,255), RGB(0,0,0)
   CENTER TEXT screenX * 0.5, screenY * 0.5, "LOADING" : SLEEP 1000
   GOSUB _camsetup
RETURN
_surface:
   rem Navigation
   INK RGB(222,222,222), RGB(0,0,0) : BOX 0, screenY * 0.05, screenX, screenY * 0.1
   rem Information
   BOX 0, screenY * 0.95, screenX, screenY * 0.99
   rem Frame
   INK RGB(238,238,238), RGB(0,0,0) : BOX 0, 0, screenX, screenY * 0.05
   BOX 0, 0, screenX *0.005, screenY : BOX screenX * 0.995, 0, screenX, screenY
   BOX 0, screenY * 0.99, screenX, screenY
   rem Title
   INK RGB(0,0,0), RGB(255,255,255)
   TEXT screenX * 0.01, screenY * 0.005, "Level-Editor"
RETURN
_infoframe:
   INK RGB(0,0,0), RGB(255,255,255)
   rem info
   TEXT screenX * 0.01, screenY * 0.96, "Information:"
   TEXT screenX * 0.11, screenY * 0.96, info$
   rem FPS
   TEXT screenX * 0.8, screenY * 0.96, "FPS:"
   fps$ = STR$(SCREEN FPS())
   TEXT screenX * 0.85, screenY * 0.96, fps$
RETURN
_camsetup:
   make object sphere 20, 10 : COLOR OBJECT 20, RGB(255,0,0)
   POSITION OBJECT 20, 20, y, z
   make object sphere 21, 10 : COLOR OBJECT 21, RGB(0,255,0)
   POSITION OBJECT 21, x, 20, z
   make object sphere 22, 10 : COLOR OBJECT 22, RGB(0,0,255)
   POSITION OBJECT 22, x, y, 20
   rem front
   MAKE CAMERA 1 : TURN CAMERA RIGHT 1, 90 : SET CAMERA FOV 1, 90
   SET CAMERA VIEW 1, screenX * 0.005, screenY * 0.1, screenX * 0.495, screenY * 0.525
   rem left
   MAKE CAMERA 2 : SET CAMERA FOV 2, 90
   SET CAMERA VIEW 2, screenX * 0.495, screenY * 0.1, screenX * 0.995, screenY * 0.525
   rem TOP
   MAKE CAMERA 3 : SET CAMERA FOV 3, 90
   SET CAMERA VIEW 3, screenX * 0.005, screenY * 0.525, screenX * 0.495, screenY * 0.95
   rem 3D
   MAKE CAMERA 4
   TURN CAMERA LEFT 4, 45 : MOVE CAMERA 4, -20 : TURN CAMERA RIGHT 4, 45
   PITCH CAMERA UP 4, 90 : MOVE CAMERA 4, 20 : PITCH CAMERA DOWN 4, 90
   SET CAMERA VIEW 4, screenX * 0.495, screenY * 0.525, screenX * 0.995, screenY * 0.95
   rem Backdrop
   COLOR BACKDROP RGB(0,0,0)
   COLOR BACKDROP 1, RGB(128,128,128) : COLOR BACKDROP 2, RGB(128,128,128)
   COLOR BACKDROP 3, RGB(128,128,128) : COLOR BACKDROP 4, RGB(0,128,255)
RETURN
_mouseclick:
   IF MOUSECLICK() = 0 THEN click = 1
   IF MOUSECLICK() = 1 THEN click = 0
RETURN
_navbar:
   _navigation(3, "File", "", "", "", "", "", "")
   _navigation(9, "Create", "", "", "", "", "", "")
   _navigation(16, "Help", "", "", "", "", "", "")
RETURN
FUNCTION _navigation(navX, sub1$, sub2$, sub3$, sub4$, sub5$, sub6$, sub7$)
   INK RGB(0,0,0), RGB(255,255,255)
   CENTER TEXT navX * (screenX * 0.01), screenY * 0.06, sub1$
   rem open
   IF MOUSEY() > (screenY * 0.05) AND MOUSEY() < (screenY * 0.1)
      IF MOUSEX() < (navX * (screenX * 0.01))+15 AND MOUSEX() > (navX * (screenX * 0.01))-15
         FOR i = 2 to 7
            TEXT (navX * (screenX * 0.01))-15, screenY * 0.06 * i, "hello"
         NEXT i
      ENDIF
   ENDIF
ENDFUNCTION