Would this be an acceptable UI? I know it
appears to be animated, but I assure you, it's not.
SET DISPLAY MODE 1024, 768, 32
SYNC ON : SYNC RATE 60 `: HIDE MOUSE
AUTOCAM OFF : HIDE LIGHT 0 : SET AMBIENT LIGHT 30
COLOR BACKDROP 0
FOG ON
`FOG COLOR RGB(50, 50, 50)
FOG DISTANCE 390
`LOAD IMAGE "thekelly.jpg", 1, 1
MAKE OBJECT CUBE 1, 75
TEXTURE OBJECT 1, 1
TYPE dots
x AS INTEGER
y AS INTEGER
alpha AS INTEGER
fade AS INTEGER
ENDTYPE
DIM supaDots(100) AS dots
POSITION OBJECT 1, 0, 175, 0
POSITION CAMERA -400, 175, 0
POINT CAMERA 0, 175, 0
MAKE LIGHT 1
SET SPOT LIGHT 1, 5, 5
POINT LIGHT 1, 0, 0, 0
SET LIGHT RANGE 1,1000
COLOR LIGHT 1, RGB(255, 255, 100)
SET SHADOW POSITION 1,0,0,0
POSITION LIGHT 1, 0, 575, 0
SET SHADOW SHADING ON 1,-1,1000,1
SET TEXT FONT "Century Gothic"
SET TEXT SIZE 16
GLOBAL boxX AS INTEGER
GLOBAL boxHeight AS INTEGER
boxX = (SCREEN WIDTH()/2)-400
textX = boxX+10
boxHeight = SCREEN HEIGHT() - 60
textY = SCREEN HEIGHT() - 50
FOR i = 1 TO 100
MakeSupaDot(i)
NEXT i
RANDOMIZE TIMER()
DO
INK RGB(255,255,255), 0
TEXT textX, textY, "> take poop"
INK RGB(0,155,155), 0
TEXT textX, textY-25, "You take poop!"
GameScreen()
SYNC
LOOP
FUNCTION GameScreen()
SET TEXT SIZE 84
INK RGB(10, 10, 10), 0
CENTER TEXT SCREEN WIDTH()/2, SCREEN HEIGHT()/2-200, "EPIC"
CENTER TEXT SCREEN WIDTH()/2, SCREEN HEIGHT()/2+100, "AWESOME"
SET TEXT SIZE 16
UpdateSupaDots()
DrawBox(boxX, 30, boxX+800, 30+boxHeight, RGB(100, 100, 100))
TURN OBJECT LEFT 1, 1
PITCH OBJECT UP 1, 1
ROLL OBJECT RIGHT 1, 1
ENDFUNCTION
FUNCTION MakeSupaDot(i)
supaDots(i).x = RND(800)+((SCREEN WIDTH()/2)-400)
supaDots(i).y = RND(SCREEN HEIGHT()-140)+70
supaDots(i).alpha = rnd(40)
supaDots(i).fade = 1
ENDFUNCTION
FUNCTION UpdateSupaDots()
FOR i = 1 to 100
DOT supaDots(i).x, supaDots(i).y, RGB(supaDots(i).alpha, supaDots(i).alpha, supaDots(i).alpha)
supaDots(i).alpha = supaDots(i).alpha+supaDots(i).fade
IF supaDots(i).alpha > 40 THEN supaDots(i).fade = -1
IF supaDots(i).alpha < 0 THEN MakeSupaDot(i)
NEXT i
ENDFUNCTION
FUNCTION DrawBox(x, y, bx, by, c AS DWORD)
INK c, 0
LINE x, y, bx, y
LINE x, y, x, by
LINE x, by, bx, by
LINE bx, y, bx, by
LINE x, by-23, bx, by-23
ENDFUNCTION
