Sorry your browser is not supported!

set display mode 800, 600, 32
set window on
sync on

gosub inizia
gosub imposta

do
rem   cls
   gosub tasti
   gosub elabora
   gosub vedi
   gosub senti
   sync
loop

tasti:
   kx = rightkey() - leftkey()
   kz = downkey() - upkey()
   if kx <> 0 then dx = kx
   if kz <> 0 then dz = kz

   if schema(pz, px + dx) <> 1
      px = px + dx
   else
      dx = 0
   endif
   if schema(pz + dz, px) <> 1
      pz = pz + dz
   else
      dz = 0
   endif
   schema(pz, px) = 2
return

vedi:
   vuoti = 0
   for a = 1 to 16
      for b = 1 to 16
         if schema(a, b) <> 0
            rem muro
            if (schema(a, b))=(1)
               color = RGB(0,64,128)
               rad = 0
            else
               color = RGB(128,255,128)
               rad = 3
            endif
         else
            rem vuoto
            color = RGB(128,128,255)
            vuoti = vuoti + 1
            rad = 9
         endif
rem         box 401 + (b - 8) * 32, 301 + (a - 9) * 32, 400 + (b - 7) * 32, 300 + (a - 8) * 32, color, color, color, color
         line 400 + (b - 8) * 32, 300 + (a - 9) * 32, 400 + (b - 7) * 32, 300 + (a - 9) * 32
         line 400 + (b - 8) * 32, 300 + (a - 8) * 32, 400 + (b - 7) * 32, 300 + (a - 8) * 32
         line 400 + (b - 8) * 32, 300 + (a - 9) * 32, 400 + (b - 8) * 32, 300 + (a - 8) * 32
         line 400 + (b - 7) * 32, 300 + (a - 9) * 32, 400 + (b - 7) * 32, 300 + (a - 8) * 32
         circle 416 + (b - 8) * 32, 316 + (a - 9) * 32, rad
         if (not (object exist(((a - 1) * 16) + b)))
            make object cube ((a - 1) * 16) + b, 1
            position object ((a - 1) * 16) + b, (a - 7), 0, (b - 8)
         endif
         color object ((a - 1) * 16) + b, color
         text (b - 1) * 10, (a + 3) * 16, str$(schema(a, b))
      next b
   next a

   position object 256, pz - 7, 1, px - 8
   circle 416 + (px - 8) * 32, 316 + (pz - 9) * 32, 11
   text 0, 0, "Tasti - (" + str$(kx) + ", " + str$(kz) + ")."
   text 0, 16, "Direzione - (" + str$(dx) + ", " + str$(dz) + ")."
   text 0, 32, "Posizione - (" + str$(pz) + ", " + str$(px) + ")."
   text 0, 48, "Vuoti: " + str$(vuoti)
   if spacekey() then cls
   text 0, 500, str$(camera position x()) + " " + str$(camera position y()) + " " + str$(camera position z())
   position camera 11, 9, 4
   point camera 0, 0, 0
   if (vuoti)=(0) then gosub imposta
return

senti:
return

elabora:
return

inizia:
   dx as integer
   dz as integer

   kx as integer
   kz as integer

   px as integer
   pz as integer

   vuoti as integer
   rad as integer

   dim livello(16) as word
   dim schema(16, 16) as byte
   position camera 6, 13, 9
   point camera 0, 0, 0
   make object sphere 256, 1
return

imposta:
   gosub veroLivello
   for a = 1 to 16
      for b = 1 to 16
         schema(a, b) = ((livello(a) && power(2, 16 - b)) <> 0)
      next b
   next a
   px = 3
   pz = 3
   dx = 0
   dy = 0
return

function power(b as integer, e as integer)
   c = b
   if e > 0
      while e > 1
         c = c * b
         e = e - 1
      endwhile
   else
      c = 1
   endif
endfunction c

veroLivello:
   livello(1) = 65535
   livello(2) = 32769
   livello(3) = 36861
   livello(4) = 34817
   livello(5) = 64511
   livello(6) = 33421
   livello(7) = 47649
   livello(8) = 41981
   livello(9) = 43521
   livello(10) = 44029
   livello(11) = 43521
   livello(12) = 43775
   livello(13) = 43521
   livello(14) = 43775
   livello(15) = 43009
   livello(16) = 65535
return

set display mode 800, 600, 32
set window on
sync on

gosub begin
gosub setup

do
rem   cls
   gosub keyboard
   gosub process
   gosub see
   gosub hear
   sync
loop

keyboard:
   kx = rightkey() - leftkey()
   kz = downkey() - upkey()
   if kx <> 0 then dx = kx
   if kz <> 0 then dz = kz

   if table(pz, px + dx) <> 1
      px = px + dx
   else
      dx = 0
   endif
   if table(pz + dz, px) <> 1
      pz = pz + dz
   else
      dz = 0
   endif
   table(pz, px) = 2
return

see:
   emptyes = 0
   for a = 1 to 16
      for b = 1 to 16
         if table(a, b) <> 0
            rem muro
            if (table(a, b))=(1)
               color = RGB(0,64,128)
               rad = 0
            else
               color = RGB(128,255,128)
               rad = 3
            endif
         else
            rem vuoto
            color = RGB(128,128,255)
            emptyes = emptyes + 1
            rad = 9
         endif
rem         box 401 + (b - 8) * 32, 301 + (a - 9) * 32, 400 + (b - 7) * 32, 300 + (a - 8) * 32, color, color, color, color
         line 400 + (b - 8) * 32, 300 + (a - 9) * 32, 400 + (b - 7) * 32, 300 + (a - 9) * 32
         line 400 + (b - 8) * 32, 300 + (a - 8) * 32, 400 + (b - 7) * 32, 300 + (a - 8) * 32
         line 400 + (b - 8) * 32, 300 + (a - 9) * 32, 400 + (b - 8) * 32, 300 + (a - 8) * 32
         line 400 + (b - 7) * 32, 300 + (a - 9) * 32, 400 + (b - 7) * 32, 300 + (a - 8) * 32
         circle 416 + (b - 8) * 32, 316 + (a - 9) * 32, rad
         if (not (object exist(((a - 1) * 16) + b)))
            make object cube ((a - 1) * 16) + b, 1
            position object ((a - 1) * 16) + b, (a - 7), 0, (b - 8)
         endif
         color object ((a - 1) * 16) + b, color
         text (b - 1) * 10, (a + 3) * 16, str$(table(a, b))
      next b
   next a

   position object 256, pz - 7, 1, px - 8
   circle 416 + (px - 8) * 32, 316 + (pz - 9) * 32, 11
   text 0, 0, "Keys - (" + str$(kx) + ", " + str$(kz) + ")."
   text 0, 16, "Direction - (" + str$(dx) + ", " + str$(dz) + ")."
   text 0, 32, "Position - (" + str$(pz) + ", " + str$(px) + ")."
   text 0, 48, "Emptyes: " + str$(emptyes)
rem   if spacekey() then cls this was just for some checking
   text 0, 500, str$(camera position x()) + " " + str$(camera position y()) + " " + str$(camera position z())
   position camera 11, 9, 4
   point camera 0, 0, 0
   if (emptyes)=(0) then gosub setup
return

hear:
return

process:
return

begin:
   dx as integer
   dz as integer

   kx as integer
   kz as integer

   px as integer
   pz as integer

   emptyes as integer
   rad as integer

   dim level(16) as word
   dim table(16, 16) as byte
   position camera 6, 13, 9
   point camera 0, 0, 0
   make object sphere 256, 1
return

setup:
   gosub loadLevel
   for a = 1 to 16
      for b = 1 to 16
         table(a, b) = ((level(a) && power(2, 16 - b)) <> 0)
      next b
   next a
   px = 3
   pz = 3
   dx = 0
   dy = 0
return

function power(b as integer, e as integer)
   c = b
   if e > 0
      while e > 1
         c = c * b
         e = e - 1
      endwhile
   else
      c = 1
   endif
endfunction c

loadLevel:
   level(1) = 65535
   level(2) = 32769
   level(3) = 36861
   level(4) = 34817
   level(5) = 64511
   level(6) = 33421
   level(7) = 47649
   level(8) = 41981
   level(9) = 43521
   level(10) = 44029
   level(11) = 43521
   level(12) = 43775
   level(13) = 43521
   level(14) = 43775
   level(15) = 43009
   level(16) = 65535
return

set display mode 800, 600, 32
set window on
sync on
hide mouse

gosub begin
gosub setup

do
   gosub keyboard
   gosub see
   sync
loop

keyboard:
   if timeOut < 1
      kx = rightkey() - leftkey()
      kz = downkey() - upkey()
      if kx <> 0
         dx = kx
         yrotate object 256, dx * 90 - 90
         smth = 0
      endif
      if kz <> 0
         dz = kz
         yrotate object 256, dz * 90
         smth = 30
      endif

      if table(pz, px + dx) <> 1
         opx = px
         px = px + dx
      else
         dx = 0
      endif
      if table(pz + dz, px) <> 1
         opz = pz
         pz = pz + dz
      else
         dz = 0
      endif
      table(pz, px) = 2
      if (opx <> px) or (opz <> pz)
         timeOut = maxTimeOut
         loop object 256
      else
         stop object 256
      endif
   else
      timeOut = timeOut - 1
   endif
return

begin:
   dx as integer
   dz as integer
   kx as integer
   kz as integer
   px as integer
   pz as integer
   opx as integer
   opz as integer
   emptyes as integer
   oi as integer
   smth as integer
   dist as integer
   height as integer
   timeOut as integer
   maxTimeOut as integer

   dim level(16) as word
   dim table(16, 16) as byte

   load image "wall.bmp", 1
   load image "big.bmp", 2
   load image "lil.bmp", 3
   load image "wbmap.bmp", 4

   load image "MIKO.TGA", 5
   load image "BUMP.TGA", 6

   load object "MIKO_WALK.x",256
   set bump mapping on 256, 6

   texture object 256, 5
   set object speed 256, 37500
   scale object 256, 1, 1, 1
   rotate object 256, -90, 0, 0
   fix object pivot 256
return

setup:
   maxTimeOut = 4
   timeOut = 0
   gosub loadLevel
   for a = 1 to 16
      for b = 1 to 16
         table(a, b) = ((level(a) && power(2, 16 - b)) <> 0)
      next b
   next a
   px = 3
   pz = 3
   dx = 0
   dz = 0
   dist = 0
   height = 1
return

see:
   emptyes = 0
   for a = 1 to 16
      for b = 1 to 16
         if table(a, b) <> 0
            rem muro
            if (table(a, b))=(1)
               yPos = 1
            else
               yPos = 0
            endif
         else
            rem vuoto
            emptyes = emptyes + 1
            yPos = 0
         endif
         oi = ((a - 1) * 16) + b
         if (not (object exist(oi)))
            make object cube oi, 1
            position object oi, (a - 7), yPos, (b - 8)
            texture object (oi), 1
            set bump mapping on oi, 4
         endif
         if yPos < 1
            if (table(a, b))=(2) then texture object oi, 3 else texture object oi, 2
         endif
      next b
   next a

   position object 256, pz - 7, 0.5, px - 8
   set camera to follow 10, 10, px - 8, -90, dist, height, smth + 1, 0
   point camera pz - 7, 1, px - 8
   if (emptyes)=(0) then gosub setup
return

loadLevel:
   level(1) = 65535
   level(2) = 32769
   level(3) = 36861
   level(4) = 34817
   level(5) = 64511
   level(6) = 33421
   level(7) = 47649
   level(8) = 41981
   level(9) = 43521
   level(10) = 44029
   level(11) = 43521
   level(12) = 43775
   level(13) = 43521
   level(14) = 43775
   level(15) = 43009
   level(16) = 65535
return

function power(b as integer, e as integer)
   c = b
   if e > 0
      while e > 1
         c = c * b
         e = e - 1
      endwhile
   else
      c = 1
   endif
endfunction c

is?