Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Código Fuente » Basic » Código de Basic - Laberinto Pacman

Código de Basic - Laberinto Pacman

Volver
Agregar Código Fuente
<<>>
Imágen de perfil
Val: 545
Oro
Ha mantenido su posición en Basic (en relación al último mes)
Gráfica de Basic

Laberinto Pacmangráfica de visualizaciones


Basic

estrellaestrellaestrellaestrellaestrella(3)
Actualizado el 18 de Septiembre del 2021 por Adelino (24 códigos) (Publicado el 31 de Julio del 2021)
5.221 visualizaciones desde el 31 de Julio del 2021
Creacion de un laberinto de tipo Pacman en basic v2 del Commodore 64.
Se maneja con las teclas de direccion.

coco

Requerimientos

Probado en emulador Power 64.

1.0

Publicado el 31 de Julio del 2021gráfica de visualizaciones de la versión: 1.0
641 visualizaciones desde el 31 de Julio del 2021
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
10 POKE 53280,0: POKE 53281,0
20 PRINT CHR$(31) CHR$(147)
30 DIM A(390),Q(390),X(390),Y(390)
40 DIM H(4,3,2,2),F(4,3)
50 DIM C(999),E(255)
60 DIM B(12),G(11)
70 DIM S(3),D(3),I(3),N(1)
100 FOR N=1 TO 11: READ G(N): NEXT
110 FOR N=0 TO 3: READ D(N),S(N): NEXT
120 FOR N=0 TO 2: GOSUB 1000: NEXT
130 F(1,1)=2: F(2,0)=2: F(2,3)=1
140 F(3,1)=3: F(4,0)=3: F(4,2)=1
150 E(29)=1: E(157)=2: E(17)=3: E(145)=4
160 I(0)=1: I(1)=-1: I(2)=40: I(3)=-40
170 B(11)=38: B(12)=-38
300 FOR Y=0 TO 24: READ E$
310 V=40*Y: W=V+39
320 FOR X=1 TO 20
330 E=ASC(MID$(E$,X))-48
340 IF E=0 THEN N=224: GOTO 420
350 C=C+2: N=81
360 C(V)=C-1: C(W)=C
370 A(C-1)=E: A(C)=G(E)
380 X(C-1)=X: X(C)=39-X
390 Y(C-1)=Y: Y(C)=Y
400 Q(C-1)=55296+V: Q(C)=55296+W
410 POKE Q(C-1),0: POKE Q(C),0
420 POKE 1024+V,N: POKE 1024+W,N
430 V=V+1: W=W-1
440 NEXT X,Y
450 N(1)=29: C=778
500 X=X(C(C)): Y=Y(C(C))
510 FOR N=0 TO 3: S=S(N)
520 IF S=C GOTO 520
530 E=C(S): A=A(E)
540 IF A>9 GOTO 600
550 IF A<5 THEN D(N)=F(A,D(N)): GOTO 600
560 V=SGN(Y(E)-Y)+1: W=SGN(X(E)-X)+1
590 D(N)=H(A-5,D(N),V,W)
600 S=S+I(D(N)): POKE Q(E),0
620 IF A(C(S))>10 THEN S=S+B(A(C(S)))
630 S(N)=S: POKE Q(C(S)),N+2
650 IF S=C GOTO 650
660 NEXT
700 A=0: N=0
710 GET E$: IF E$<>"" THEN N(0)=ASC(E$):    GOTO 710
720 E=E(N(N)): IF E THEN A=C+I(E-1)
730 IF C(A)+N=0 THEN N=1: GOTO 720
740 IF C(A) THEN POKE Q(C(C)),0:            C=A+B(A(C(A))): POKE Q(C(C)),1
750 IF N=0 THEN N(1)=N(0)
780 GOTO 500
900 DATA 2,1,4,3,6,5,7,8,9,10,12
910 DATA 0,416,0,418,1,422,1,424
951 DATA "00000000000000000000"
952 DATA "01::::::7::::::::200"
953 DATA "0:000000:00000000:00"
954 DATA "0:000000:00000000:00"
955 DATA "05::::::9:::7::::8::"
956 DATA "0:000000:000:0000000"
957 DATA "03::::::60003::::200"
958 DATA "00000000:00000000:00"
959 DATA "00000000:0001::::8:2"
960 DATA "00000000:000:000000:"
961 DATA "00000000:000:01::::4"
962 DATA ";:::::::9:::60:00000"
963 DATA "00000000:000:03:::::"
964 DATA "00000000:000:0000000"
965 DATA "00000000:0005:::::::"
966 DATA "00000000:000:0000000"
967 DATA "01::::::9:::8::::200"
968 DATA "0:000000:00000000:00"
969 DATA "0:000000:00000000:00"
970 DATA "03::20005:::7::::8::"
971 DATA "0000:000:000:0000000"
972 DATA "01::8:::40003::::200"
973 DATA "0:000000000000000:00"
974 DATA "03:::::::::::::::8::"
975 DATA "00000000000000000000"
1000 H(0,1,0,N)=2: H(0,1,1,N)=2:            H(0,1,2,N)=3
1001 H(0,2,N,0)=0: H(0,2,N,1)=2:            H(0,2,N,2)=2
1002 H(0,3,N,0)=0: H(0,3,N,1)=3:            H(0,3,N,2)=3
1010 H(1,0,0,N)=2: H(1,0,1,N)=2:            H(1,0,2,N)=3
1011 H(1,2,N,0)=2: H(1,2,N,1)=2:            H(1,2,N,2)=1
1012 H(1,3,N,0)=3: H(1,3,N,1)=3:            H(1,3,N,2)=1
1020 H(2,3,N,0)=0: H(2,3,N,1)=0:            H(2,3,N,2)=1
1021 H(2,0,0,N)=2: H(2,0,1,N)=0:            H(2,0,2,N)=0
1022 H(2,1,0,N)=2: H(2,1,1,N)=1:            H(2,1,2,N)=1
1030 H(3,2,N,0)=0: H(3,2,N,1)=0:            H(3,2,N,2)=1
1031 H(3,0,0,N)=0: H(3,0,1,N)=0:            H(3,0,2,N)=3
1032 H(3,1,0,N)=1: H(3,1,1,N)=1:            H(3,1,2,N)=3
1040 H(4,0,0,N)=2: H(4,0,1,N)=0:            H(4,0,2,N)=3
1041 H(4,1,0,N)=2: H(4,1,1,N)=1:            H(4,1,2,N)=3
1042 H(4,2,N,0)=0: H(4,2,N,1)=2:            H(4,2,N,2)=1
1043 H(4,3,N,0)=0: H(4,3,N,1)=3:            H(4,3,N,2)=1
1050 RETURN



Comentarios sobre la versión: 1.0 (0)


No hay comentarios
 

Comentar la versión: 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad
Acepto las políticas de privacidad

1.1
estrellaestrellaestrellaestrellaestrella(2)

Publicado el 2 de Agosto del 2021gráfica de visualizaciones de la versión: 1.1
417 visualizaciones desde el 2 de Agosto del 2021

1.2

Publicado el 6 de Agosto del 2021gráfica de visualizaciones de la versión: 1.2
403 visualizaciones desde el 6 de Agosto del 2021

1.3

Publicado el 8 de Agosto del 2021gráfica de visualizaciones de la versión: 1.3
307 visualizaciones desde el 8 de Agosto del 2021

1.4

Actualizado el 16 de Agosto del 2021 (Publicado el 13 de Agosto del 2021)gráfica de visualizaciones de la versión: 1.4
489 visualizaciones desde el 13 de Agosto del 2021

1.5

Publicado el 23 de Agosto del 2021gráfica de visualizaciones de la versión: 1.5
317 visualizaciones desde el 23 de Agosto del 2021

1.6

Actualizado el 9 de Septiembre del 2021 (Publicado el 2 de Septiembre del 2021)gráfica de visualizaciones de la versión: 1.6
467 visualizaciones desde el 2 de Septiembre del 2021

1.7

Publicado el 10 de Septiembre del 2021gráfica de visualizaciones de la versión: 1.7
319 visualizaciones desde el 10 de Septiembre del 2021

1.8
estrellaestrellaestrellaestrellaestrella(1)

Publicado el 17 de Septiembre del 2021gráfica de visualizaciones de la versión: 1.8
1.863 visualizaciones desde el 17 de Septiembre del 2021
http://lwp-l.com/s7123