Tablero de Ludo.
Basic
Actualizado el 30 de Junio del 2026 por Adelino (28 códigos) (Publicado el 28 de Mayo del 2026)
118 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(1,5),C(9),D(6,8)
50 a=1024: c=55296
110 for y=0 to 1120 for x=0 to 5: read A(y,x)
140 next x,y150 for x=0 to 8: read D(0,x): next
160 for y=1 to 6170 for x=0 to y-1: read D(y,x)
180 next x,y190 for x=0 to 4: read C(x): next
200 for y=0 to 20: read b$
210 a=a+40: c=c+40
220 for x=1 to len(b$)
230 e=asc(mid$(b$,x))-46: if e<0 goto 300
240 x=x+1: e=e-1
250 if e<1 then b=asc(mid$(b$,x))-48
260 on 2+sgn(e) gosub 500,650,600
300 next x,y: end
500 rem *** Dados ***
510 for z=0 to 8520 poke a+x+D(0,z),224
530 poke c+x+D(0,z),1
540 next
550 for z=0 to b-1
560 poke a+x+D(b,z),209
570 next
590 return
600 rem *** Casillas ***
610 b=e-1:e=1
650 for z=0 to 5660 poke a+x+D(0,z),A(e,z)
670 poke c+x+D(0,z),C(b)
680 next
690 return
1100 rem *** ASCII ***
1110 data 108,227,123
1120 data 124,228,126
1130 data 224,224,231
1140 data 239,239,250
1200 rem *** Dados ***
1210 data 0,1,2,40,41,42,80,81,82
1220 data 41,0,82,0,41,82,0,2,80,82
1230 data 0,2,41,80,82,0,2,40,42,80,82
1500 rem *** Color ***
1510 data 15,5,10,14,7
2000 rem *** Tablero ***
2010 data* /2 /2 0 0 3 /3 /32020 data*2030 data* .2 0 3 0 .3
2040 data*2050 data* 0 3 02060 data* /2 /2 /3 /32070 data* 0 3 02080 data*2090 data*2 0 0 0 0 3 0 0 0 0 02100 data*2110 data*0 2 2 2 2 4 4 4 4 02120 data*2130 data*0 0 0 0 0 1 0 0 0 0 42140 data*2150 data* 0 1 02160 data* /1 /1 /4 /42170 data* 0 1 02180 data* .1 .4
2190 data* 0 1 02200 data*2210 data* /1 /1 1 0 0 /4 /4
Comentarios sobre la versión: 1.0 (0)
No hay comentarios