Tablero de Ludo.
Basic
Actualizado el 30 de Junio del 2026 por Adelino (28 códigos) (Publicado el 28 de Mayo del 2026)
117 visualizaciones desde el 28 de Mayo del 2026
Dibujo del tablero, fichas y dados.
Iniciar sesiónCrear cuenta
Crear cuentaCrear cuenta10 poke 53280,0: poke 53281,0
20 print chr$(147)
30 dim A(9,5),E(7),G(7)
40 dim B(23),C(2,4),D(6,8)
50 dim N(2,99),M(1,11)
70 p=1024: q=55296
80 C(0,0)=15: N(0,0)=936
90 M(0,2)=1: M(0,3)=1
100 for x=3 to 5: M(1,x)=1: next
120 for y=0 to 2130 for x=1 to 4: read C(y,x)
140 next x,y150 for x=0 to 7: read G(x): next
160 for x=0 to 7: read E(x): next
170 for x=0 to 23: read B(x): next
200 for y=0 to 9: read a$
210 for x=0 to 5220 A(y,x)=B(asc(mid$(a$,x+1))-64)
230 next x,y300 for x=0 to 8: read D(0,x): next
310 for y=1 to 6320 for x=0 to y-1: read D(y,x)
330 next x,y400 for z=0 to 3: b=z
410 gosub 2500
420 for y=0 to 1: e=G(2*z+y)
430 for x=0 to 3: gosub 2500
440 next x,y450 e=z: b=z+4
460 gosub 2500
470 next
500 for y=1 to 4510 a=N(0,C(1,y)): b=N(2,C(1,y))
520 for x=0 to 3: n=n+1
530 a=a+E(y-1)
540 N(0,n)=a
550 N(1,n)=C(0,y)
560 N(2,n)=b
570 next x,y600 for y=1 to 4610 N(1,10*y-8)=C(0,y)
620 for x=0 to 3: n=n+1
630 read N(0,n)
640 N(1,n)=C(0,y)
650 N(2,n)=9
660 next x,y700 for n=1 to 72710 a=p+N(0,n): b=q+N(0,n)
720 c=N(1,n): y=N(2,n)
730 for x=0 to 5: d=D(0,x)
740 poke a+d,A(y,x)
750 poke b+d,c
760 next x,n800 n=935810 for z=1 to 4820 for y=0 to 2830 read a,b,c,d
840 v=d=11
850 for x=0 to d860 n=n+E(c): e=12
870 if M(-v,x)>y then e=C(0,z)
880 poke p+n,B(a)
890 poke q+n,e
900 next
910 poke p+n,B(b)
920 next y,z1000 for y=1 to 41010 a=p+C(2,y): b=q+C(2,y)
1020 gosub 2000
1030 gosub 2100
1050 next
1100 goto 1100
2000 for x=0 to 8: d=D(0,x)
2010 poke a+d,224
2020 poke b+d,1
2030 next
2040 return
2100 for x=0 to y-1
2110 poke a+D(y,x),209
2120 next
2130 return
2500 n=n+1
2510 N(0,n)=N(0,n-1)+E(e)
2520 N(1,n)=15
2530 N(2,n)=b
2540 return
3000 rem *** Color ***
3010 data 5,10,14,7
3020 data 40,10,20,30
3030 data 727,127,151,751
3040 data 0,3,1,0,2,1,3,2
3050 data -80,3,80,-3,-40,-1,1,40
3100 rem *** ASCII ***
3110 data 96,229,231,247,239
3120 data 204,250,207,208,224
3130 data 97,98,225,226
3140 data 108,123,124,126
3150 data 236,251,252,254
3160 data 227,2283200 rem *** Casillas ***
3210 data cchiib,iibddf,aiiedd
3220 data gccaii,iibiib,iiiddd
3230 data aiiaii,ccciii,iiiiii
3240 data nvopwq
3300 rem *** Dados ***
3310 data 0,1,2,40,41,42,80,81,82
3320 data 41,0,82,0,41,82,0,2,80,82
3330 data 0,2,41,80,82,0,2,40,42,80,82
3400 rem *** Fichas ***
3410 data 850,650,844,644,244,250,44,50
3420 data 68,268,74,274,674,668,874,868
4000 rem *** Marco ***
4010 data 12,19,4,7,13,16,5,11,12,14,4,6
4020 data 11,21,6,11,12,14,4,7,11,15,6,9
4030 data 10,20,7,7,11,15,6,11,10,17,7,6
4040 data 13,18,5,11,10,17,7,7,13,16,5,9
Comentarios sobre la versión: 1.1 (0)
No hay comentarios