Sorry your browser is not supported!

Rem Project: laberinto
Rem Created: 08/10/2003 03:06:28 p.m.

Rem ***** Main Source File *****

cls
global max=100
global may=100

dim lab(max,may)

laberinto(120,120)

wait key


function Laberinto (a,b)

randomize (255)

for x=1 to a
for y=1 to b
      lab(x,y)=0
next y
next x

pather(5,5)

text 300,0,"Listo"

endfunction

Function pather (estax, estay)

   se_acabo=0

   posibles$=""

   lab(estax,estay)=1

   for x=1 to max
   for y=1 to may
      if lab(x,y)=1 then box x*2,y*2,x*2+2,y*2+2
   next y
   next x

   if estax<max-1 then if lab(estax+2,estay)=0 then posibles$=posibles$+"6"
   if estax>2 then if lab(estax-2,estay)=0 then posibles$=posibles$+"4"
   if estay<may-1 then if lab(estax,estay+2)=0 then posibles$=posibles$+"2"
   if estay>2 then if lab(estax,estay-2)=0 then posibles$=posibles$+"8"

   if posibles$=""
         se_acabo=1
         exitfunction se_acabo
   endif

   a=rnd(len(posibles$))+1
   current$=mid$(posibles$,a)

   if current$="8"
            lab(estax,estay-1)=1
            estay=estay-2
   endif

   if current$="2"
            lab(estax,estay+1)=1
            estay=estay+2
   endif

   if current$="4"
            lab(estax-1,estay)=1
            estax=estax-2
   endif

   if current$="6"
            lab(estax+1,estay)=1
            estax=estax+2
   endif

   repeat

   until pather(estax,estay)=1

endfunction se_acabo

` s=size of maze (2 or more)
` w=pixel size of boxes (1 or more)
` xs=startx (MUST be even)
` ys=starty (MUST be even)
s=40 : w=5 : xs=2 : ys=2
sync on : sync rate 0 : t=s*2+1
do
   dim d(4,2) : d(1,1)=1 : d(2,2)=1 : d(3,1)=-1 : d(4,2)=-1
   dim m(t,t)
   randomize timer()
   x=xs : y=ys : z=0 : zm=0
   for f=1 to t : m(f,1)=1 : m(f,t)=1 : m(1,f)=1 : m(t,f)=1 : next f
   ` generate maze
   repeat
      k=1
      for f=1 to 3
         r1=rnd(3)+1 : r2=rnd(3)+1 : p1=d(r1,1) : p2=d(r1,2) : d(r1,1)=d(r2,1) : d(r1,2)=d(r2,2) : d(r2,1)=p1 : d(r2,2)=p2
      next f
      for f=1 to 4
         dx=d(f,1) : dy=d(f,2)
         if m(x+dx,y+dy)=0
            if m((2*dx)+x,(2*dy)+y)=0
               m(x,y)=2 : m(x+dx,y+dy)=2 : x=x+(2*dx) : y=y+(2*dy) : inc z
               if z > zm then zm=z : x1=x : y1=y
               k=0 : exit
            endif
         endif
      next f
      if k=1
         for f=1 to 4
            dx=d(f,1) : dy=d(f,2) : if m(x+dx,y+dy)=2 then m(x,y)=3 : m(x+dx,y+dy)=3 : x=x+(2*dx) : y=y+(2*dy) : dec z : k=0 : exit
         next f
      endif
   until k=1
   m(x,y)=3
   ` draw maze
   cls : sync
   for f=1 to t
      for g=1 to t
         c=m(f,g)
         if (f=x1 and g=y1) or (f=xs and g=ys) or (c < 2)
            if c < 2 : ink rgb(0,0,255),0 : else : ink rgb(0,255,0),0 : endif
            box (g-1)*w,(f-1)*w,g*w,f*w
         endif
      next g
   next f
   sync
   wait key
loop