leo ZMZMG\Mt()=23672x\+256*23673y\+256*23674z\:f(x)=2+(x-3)*2:c(x)=1+(x-3)*2  &0:0:6:0: ancho=19:alto=13 nlab=0  rec=0 l(alto,ancho):el laberinto )s(300,,2):el camino ganador -sp=2:maxsp=2:el stack pointer (9 ,3;5;"McLeod/IdeaFix presenta...":11 ,8;1;"LEO CONTRA TODOS":15,0;1;7;1;"GENERANDO GRAFICOS. UN MOMENTO..":9000(# 2%l$=" " <:2700 d73,8;1;7;"LEO CONTRA TODOS" n34,1;"Te encuentras en la guarida de" x35,1;"Leo, el cual no es muy dado a " 36,1;"recibir visitas. Es mas, es un" 17,1;"jodio cachondo que en cuanto" 38,1;"te deja entrar en su casa, apa" 39 ,1;"ga la luz y se desmelena vien-" 410 ,1;"do como te la pegas contra las" ,11 ,1;"paredes de su guarida." 412 ,1;"Tienes un tiempo limitado para" 413 ,1;"encontrar la salida de cada ha" 114,1;"bitacion. CUIDADO porque un" 215,1;"choque contra las paredes te" 316,1;"hara perder tiempo. Encuentra" 317,1;"la bombilla para iluminar fu-" 718,1;"gazmente tu estancia. SUERTE" =21,1;5;"Controles: QAOP (como siempre)" ,niv=1:pun=0 h$="":iblo=0:2300:"":#0;1,0;1;1;"Leo desordenando la habitacion..":9500%:1000:"":21,0;,,:2800 :2500 :200-niv:2560 :2660d :2350. utmp=32 :thre=t()+250:trans=0:velleo=502-niv/4:threleo=t()+velleo:termino=0 V#0;0,0;1;"TIEMPO"'"   "  2300 }2000:terminopun=pun+tmp:niv=(niv+1niv<99c)+(99cniv99c):2300:2850" :500 }t()>thretmp>0tmp=tmp-1:thre=t()+(250-niv*2.5 ):#0;1,tmp;" ":.005y# >,502 &tmp=0.5,-12 :.5,-18:1,-24:2850" :rec=(recrecpun)+(punpun>rec):2300:44000:300, 0t()maxc630v lFfint=p(leo,1):cint=p(leo,2):leo=leo+1:800  vusep=0 n=lcam1-1 Lf(c(n,1))=fintƨc(c(n,2))=cintleo=n:inc=1:700 n #leo=lcam:inc=-1:710 }2000:terminopun=pun+tmp:niv=(niv+1niv<99c)+(99cniv99c):2300:2850" :500 %leo1inc=1:710 leolcaminc=-1 >0.95s334inc=-inc  leo=leo+inc *fint=c(leo,1):cint=c(leo,2)  fint=f(fint):cint=c(cint) *lffint850R 4!lc>cintdir=4:900 >dir=6:900 R!lfrec):2300:2850" :44000:300,  530 #Generacion del laberinto para Leo  8Rodeamos el laberinto con una pared rectangular de 1's l(alto,ancho) =j=1ancho:l(1,j)=1:l(alto,j)=1:j =i=1alto:l(i,1)=1:l(i,ancho)=1:i  sp=2 cfini=1+(*alto):fini<3fini>alto-2(fini/2=(fini/2))1050 $cini=3 )effin=1+(*alto):ffin<3(ffin>alto-2)(ffin/2=(ffin/2))1065) +cfin=ancho-2 - 3000 8vc(sp-2,2):n=2sp-1:c(n-1,1)=s(n,1):c(n-1,2)=s(n,2):n =Qi=3alto-2:j=3ancho-2:l(i,j)=2l(i,j)=0 ?j:i Blcam=sp-2:maxc=1 GDflla=f(c(lcam/2,1)):clla=c(c(lcam/2,2)) Ilfini=0:lcini=0 LEn=lcam1-1:f=c(n,1):c=c(n,2):4000 V~maxsp-1>maxcmaxc=maxsp-1:lfini=s(maxc,1):lcini=s(maxc,2):lffin=c(n,1):lcfin=c(n,2) `n jlfini=0lcini=0lfini=c(lcam,1):lcini=c(lcam,2):leo=lcam-1:inc=-1:usep=0:1480 t/sp=2:p(100d,2):psp=1 ~f=lfini:c=lcini Ep(psp,1)=f:p(psp,2)=c:psp=psp+1:l(f,c)=2 f=lffinc=lcfin1260 icam=(l(f+1,c)=1)+(l(f-1,c)=1)+(l(f,c+1)=1)+(l(f,c-1)=1) pcam=0sp=sp-1:psp=s(sp,1):f=p(psp,1):c=p(psp,2):psp=psp+1:1165 *s(sp,1)=psp-1:sp=sp+1 Jl(f,c+1)=1(cam=1ť>.5)c=c+1:1160 Jl(f,c-1)=1(cam=1ť>.5)c=c-1:1160 Jl(f+1,c)=1(cam=1ť>.5)f=f+1:1160 Jl(f-1,c)=1(cam=1ť>.5)f=f-1:1160  1210 Qi=3alto-2:j=3ancho-2:l(i,j)=2l(i,j)=1 j:i -leo=2:maxc=psp-1:usep=1 ^ffin=f(ffin):cfin=c(cfin):lfini=f(lfini):lcini=c(lcini):fini=f(fini):cini=c(cini)  POP de las coordenadas 3sp=sp-1:f=s(sp,1):c=s(sp,2): @PUSH de las coordenadas JEs(sp,1)=f:s(sp,2)=c:sp=sp+1:sp>maxspmaxsp=sp T Calcular caminos icam=(l(f+2,c)=0)+(l(f-2,c)=0)+(l(f,c+2)=0)+(l(f,c-2)=0)  $Movimiento del personaje principal te= ^(pf-ffin)2ƽ(pc-cfin)2n=0502:.01z# >,n:n:termino=1: (pf-flla)2ƽ(pc-clla)2flla,clla;" ";flla+1,clla;" ":.1}L,12 :.1}L,18:.1}L,24:flla=0:clla=0:2560 :2350. :2400` :2450 : te te=112pƫ(pf,pc+2)<64@ƫ(pf+1,pc+2)<64@pf,pc;" ";pf+1,pc;" ":pc=pc+1:2450 :slt=0: te=111oƫ(pf,pc-1)<64@ƫ(pf+1,pc-1)<64@pf,pc+1;" ";pf+1,pc+1;" ":pc=pc-1:2450 :slt=0: te=113qƫ(pf-1,pc)<64@ƫ(pf-1,pc+1)<64@pf+1,pc;" ":pf=pf-1:slt=0:2450 :  te=97aƫ(pf+2,pc)<64@ƫ(pf+2,pc+1)<64@pf,pc;" ":pf=pf+1:2450 :slt=0:  te=111ote=112pte=113qte=97a.5,-20:2900T :tmp=(tmp-4tmp>4)+(0tmp4):i=tmptmp+3:#0;1,i;" ":i * Dibujar bombilla Ffllaclla1;6;flla,clla;"";flla+1,clla;""  Poner puntos y record 0,0;1;7;"PUNTOS:";6;pun;" ";7;"RECORD:";6;rec;" ";7;"NIVEL:";6;niv;" " +21,(31-h$)/2;iblo;h$  .Dibujar salida del laberinto 8;ffin,cfin;1;4;"";ffin+1,cfin;"" B `Dibujar a Leo jJlf,lc;7;1;"";lf+1,lc;"":.05|L,-30: dibujar personaje Hpf,pc;5;1;"";pf+1,pc;"":.01z# >,0: Dibujar laberinto vistoso 1i=3alto-2:j=3ancho-2 El(i,j)1;iblo;f(i),c(j);"";f(i)+1,c(j);"" j:i  Borrar laberinto con estela i=225 6i19i,1;8;6;1;l$ Hi3i20i-1,1;8;5;1;l$ (Hi4i21i-2,1;8;4;1;l$ 2Hi5i22i-3,1;8;3;1;l$ 03060 fac=f:cac=c 1500 Kf+2=facl(f+1,c)=2:l(f+2,c)=2:3047 Kf-2=facl(f-1,c)=2:l(f-2,c)=2:3047 Kc-2=cacl(f,c-1)=2:l(f,c-2)=2:3047 ?c+2=cacl(f,c+1)=2:l(f,c+2)=2 %1700:cam<13040 1600@ zl(f,c+2)=0(cam=1ť>.5)l(f,c+1)=1:l(f,c+2)=1:c=c+2:3025 zl(f,c-2)=0(cam=1ť>.5)l(f,c-1)=1:l(f,c-2)=1:c=c-2:3025 zl(f+2,c)=0(cam=1ť>.5)l(f+1,c)=1:l(f+2,c)=1:f=f+2:3025 zl(f-2,c)=0(cam=1ť>.5)l(f-1,c)=1:l(f-2,c)=1:f=f-2:3025  3065 Dibujar resto del laberinto +sp=2:maxsp=2:l(f,c)=1  1700 >cam1500:4080+220*(f=0c=0) cam>11600@ sl(f,c+2)(cam=1ť>.5)l(f,c+1)=1:l(f,c+2)=1:c=c+2:4080 sl(f,c-2)(cam=1ť>.5)l(f,c-1)=1:l(f,c-2)=1:c=c-2:4080 "sl(f+2,c)(cam=1ť>.5)l(f+1,c)=1:l(f+2,c)=1:f=f+2:4080 ,sl(f-2,c)(cam=1ť>.5)l(f-1,c)=1:l(f-2,c)=1:f=f-2:4080 6 4110  0 Game over :82;1;4,7;" " D82;1;5,7;" " N82;1;6,7;" " X82;1;7,7;" " b82;1;8,7;" " l82;1;9 ,7;" " v92;1;10 ,7;" " 92;1;11 ,7;" " 92;1;12 ,7;" " 92;1;13 ,7;" " 92;1;14,7;" " 92;1;15,7;" " 92;1;16,7;" "  #(UDG's #-,9050Z#:F="E""U"+7:A:F,A:F #/ #ZM251,251,251,0,223,223,223,0 #dJ5,10 ,16,103g,72H,86V,82R,144 #nJ80P,168,4,227,17,106j,74J,9 #xL72H,139,93],130,140,64@,535,10 #K18,209,186,65A,502,4,88X,160 #K42*,42*,14,17,19,513,115s,255 #N170,170,568,68D,76L,204,206,255 #M254,127,127,120x,480,24,15,15 #N191,254,254,30,12 ,24,240,240 #J0,116t,68D,68D,68D,68D,66B,113q #I0,87W,82R,82R,82R,82R,146,18 #I66B,68D,68D,68D,68D,68D,116t,0 #I146,82R,82R,82R,82R,82R,82R,0 #G4,0,7,79O,31,61=,557,187 #N32 ,0,224,242,248,124|,220,189 #E59;,59;,29,15,4,7,4,3 #O188,188,184,240,32 ,224,32 ,192 %/Elegir grafico para las paredes del laberinto %&Are=(niv-1)-14*((niv-1)/14):el 7 es 14 %09580l%+re*30 %: f="a""d"+7:a:f,a:f %D iblo,h$ %N %X Bloques %bJardin %l(1,58:,68D,66B,34",18,13 ,115s,128,92\,34",66B,68D,74J,177,193,131,109m,18,34",66B,68D,58:,1,194,180,72H,68D,66B,34",92\,128 %v4,"El jardin" %Garaje %-63?,32 ,46.,42*,82R,82R,82R,94^,240,8,200,168,168,168,172,226,128,130,128,152,164,231,36$,24,2,9 ,3,99c,145,159,144,96` %6,"El garaje" %Bodega %+7,24,99c,188,160,167,184,160,224,24,198,61=,5,229,29,5,160,184,167,160,188,99c,24,7,5,29,229,5,61=,198,24,224 %3,"La bodega" %Sala del frio %20,63?,127,127,127,127,127,127,0,252,242,250,254,254,254,254,127,95_,95_,95_,95_,97a,63?,0,254,254,254,254,254,254,252,0 %7,"La sala del frio" %Cocina %8,68D,34",18,138,68D,58:,1,0,14,30,62>,60<,568,64@,128,1,2,4,8,480,112p,224,192,128,64@,32 ,16,12 ,14,7,3 %5,"La cocina" %Salita &128,128,64@,64@,32 ,32 ,16,31,0,0,0,0,0,0,0,248,16,31,16,16,16,32 ,32 ,32 ,4,252,4,4,4,2,2,2 & 4,"La salita" &Cuarto de juegos & 73,15,30,62>,124|,124|,248,248,192,176,200,196,226,226,241,241,248,248,124|,124|,62>,30,15,3,241,241,226,226,196,200,176,192 &*2,"El cuarto de juegos" &4Cuarto de la plancha &>+0,255,127,32 ,64@,128,135,136,0,224,240,16,16,8,136,72H,136,136,71G,64@,64@,255,128,255,72H,40(,228,4,4,252,2,254 &H#6,"El cuarto de la plancha" &RSalon &\ 4,2,1,31,32 ,79O,80P,80P,32 ,64@,128,252,2,225,21,17,80P,80P,79O,64@,63?,15,4,8,21,17,229,1,254,240,32 ,16 &f5,"El salon" &p Terraza &z33,14,18,502,502,82R,146,146,192,112p,72H,76L,76L,74J,73I,73I,146,146,146,146,146,146,146,255,249,137,201,201,137,249,73I,255 &3,"La terraza" & Dormitorio &"8,15,8,11 ,15,15,19,16,16,240,16,208,240,240,200,8,32 ,32 ,95_,64@,64@,255,128,128,4,4,250,2,2,255,1,1 &7,"El dormitorio" &Bano &0,0,0,0,0,0,0,0,28,34",113q,137,249,1,169,169,1,0,255,128,64@,127,64@,128,37%,1,255,1,2,252,2,1 &6,"El cuarto de bano" & Trastero &(196,513,12 ,11 ,9 ,8,8,8,113q,143,117u,234,18,173,69E,43+,8,8,28,62>,127,156,162,162,41),45-,19,18,11 ,138,132,132 &2,"El trastero" &Acceso al jardin &.63?,64@,128,134,129,144,142,132,124|,130,1,25,225,81Q,141,1,132,136,138,145,144,128,65A,62>,2,33!,33!,193,491,1,2,252 &1,"El acceso al jardin"