Sorry your browser is not supported!

SHOW MOUSE
rem sync on
rem sync rate 25

TitleID = 1

 rem  FUNCTION MakeTitle(TitleID,TitleType)
      MAKE OBJECT PLAIN TitleID, 5, 5
      LOAD IMAGE "textures\grass.jpg", 1
      TEXTURE OBJECT TitleID, 1
      ROTATE OBJECT TitleID, 90, 0, 0
      POSITION OBJECT TitleID, 0, 0, 0
      rem sync
rem   endfunction

rem MakeTitle(1,1)

POSITION CAMERA -50, 50, -50
POINT CAMERA 0, 0, 0
SET AMBIENT LIGHT 75

do

loop

SHOW MOUSE
rem sync on
rem sync rate 25

rem TitleID = 1

 FUNCTION MakeTitle(TitleID,TitleType)
      MAKE OBJECT PLAIN TitleID, 5, 5
      LOAD IMAGE "textures\grass.jpg", 1
      TEXTURE OBJECT TitleID, 1
      ROTATE OBJECT TitleID, 90, 0, 0
      POSITION OBJECT TitleID, 0, 0, 0
      rem sync
endfunction

MakeTitle(1,1)

POSITION CAMERA -50, 50, -50
POINT CAMERA 0, 0, 0
SET AMBIENT LIGHT 75

do

loop

SHOW MOUSE
sync on
sync rate 25

MakeTitle(1,1,0,0)

POSITION CAMERA -50, 50, -50
POINT CAMERA 0, 0, 0
SET AMBIENT LIGHT 75

MakeMap(1)

do
sync
loop

FUNCTION MakeMap(MapID)
   LOAD BITMAP "maps1.bmp",2
   rem SET CURRENT BITMAP 2
   BMPWIDTH=BITMAP WIDTH(2)
   BMPHEIGHT=BITMAP HEIGHT(2)
   PIXELCOLOR=POINT(1,1)
   print ";pixelcolor;" "-pixelcolor"
   print ";BMPWIDTH;" "-bitmap width"
   print ";BMPHEIGHT;" "-bitmap height"
endfunction

 FUNCTION MakeTitle(TitleID,TitleType,TitleX,TitleZ)
      MAKE OBJECT PLAIN TitleID, 5, 5
      LOAD IMAGE "texturesgrass.jpg", 1
      TEXTURE OBJECT TitleID, 1
      ROTATE OBJECT TitleID, 90, 0, 0
      POSITION OBJECT TitleID, TitleX, 0, TitleZ
endfunction