Sorry your browser is not supported!

Remstart
Aurthor: Beehive Studios
Date Started: 08/07/2004
Date Last modified: 08/07/2004
Product Name: 3D Pacman
Product Version: v0.1
Remend

Rem Initialization
Set Display Mode 800,600,32
Hide Mouse : Sync On : Sync Rate 0
Backdrop On : Color Backdrop RGB(0,0,0) : CLS

Rem Setup map vairables
Mapsize=25
Dim Map$(Mapsize,Mapsize)
MapObjectNumber=3
LevelCreated=0
PacSpeed=4

Rem Make Sphere
Make Object Sphere 1,25
Position Object 1,11*32,-8,6*32
Color Object 1,RGB(255,255,0)

Rem Load your map
Load Object "Level.x",2
Position Object 2,400,0,368
Scale Object 2,12.5,12.5,12.5

Rem Start of Loop
Do
   If levelCreated=0
      LoadMap("Level1.txt",Mapsize)
      For x=1 to Mapsize
         For z=1 to Mapsize
            If Map$(z,x)="."
               Make Object Sphere MapObjectNumber,5
               Color Object MapObjectNumber,RGB(255,255,0)
               Position Object MapObjectNumber,x*32,4,z*32
               MapObjectNumber=MapObjectNumber+1
            endif
         next z
      Next x
      Undim Map$(0)
      levelCreated=1
   Endif
   if upkey() = 1
      yrotate object 1, 0
      move object 1,PacSpeed
   endif
   if downkey() = 1
      yrotate object 1, 180
      move object 1,PacSpeed
   endif
   if leftkey() = 1
      yrotate object 1, 270
      move object 1,PacSpeed
   endif
   if rightkey() = 1
      yrotate object 1, 90
      move object 1,PacSpeed
   endif
   If EscapeKey()=1 then end
   Position Camera 368,700,0
   Point Camera 368,0,368
   Print Screen FPS()
Sync
Loop

Function LoadMap(Filename$,Size)
   Open to read 1,Filename$
      For y=1 to Size
         For x=1 to Size
            Read Byte 1,tmp
            Map$(y,x)=chr$(tmp)
         next x
      next y
   Close File 1
Endfunction