PC-6001/mkII/6601/SR★おれたちP6系 Part16
短いのでソースも載せとく。
Graphic Maze MAZE4
5 DIM A(4)
10 SCREEN4,2,1:COLOR1,0,2:CLS:SCREEN1,1,1
20 INPUT"サイズは(よこ1-126,たて1-94)";M,N:Q1=M*2:R1=N*2
30 SCREEN4,2,2:line(1,1)-(Q1+1,R1+1),1,BF:PSET(2,2),0
40 X=2:Y=2:Q=2:R=0
50 A(1)=1:A(2)=2:A(3)=3:A(4)=4
60 A1=INT(RND(1)*4+1):B1=INT(RND(1)*4+1)
70 C=A(A1):A(A1)=A(B1):A(B1)=C
80 XH=X:YH=Y:I=1
90 ONA(I)GOTO100,120,140,160
100 IFPOINT(X,Y-2)=0THEN200
110 PSET(X,Y-2),0:PSET(X,Y-1),0:Y=Y-2:GOTO60
120 IFPOINT(X+2,Y)=0THEN200
130 PSET(X+1,Y),0:PSET(X+2,Y),0:X=X+2:GOTO60
140 IFPOINT(X,Y+2)=0THEN200
150 PSET(X,Y+2),0:PSET(X,Y+1),0:Y=Y+2:GOTO60
160 IFPOINT(X-2,Y)=0THEN200
170 PSET(X-1,Y),0:PSET(X-2,Y),0:X=X-2:GOTO60
200 I=I+1:IFI<5THEN90
210 IF XH<>XORYH<>YTHEN60
220 R=R+2:IFR>R1THENR=2:Q=Q+2:IFQ>Q1THEN250
230 IFPOINT(Q,R)=0THENX=Q:Y=R:GOTO60
240 GOTO220
250 LCOPY:END
Graphic Maze MAZE4
5 DIM A(4)
10 SCREEN4,2,1:COLOR1,0,2:CLS:SCREEN1,1,1
20 INPUT"サイズは(よこ1-126,たて1-94)";M,N:Q1=M*2:R1=N*2
30 SCREEN4,2,2:line(1,1)-(Q1+1,R1+1),1,BF:PSET(2,2),0
40 X=2:Y=2:Q=2:R=0
50 A(1)=1:A(2)=2:A(3)=3:A(4)=4
60 A1=INT(RND(1)*4+1):B1=INT(RND(1)*4+1)
70 C=A(A1):A(A1)=A(B1):A(B1)=C
80 XH=X:YH=Y:I=1
90 ONA(I)GOTO100,120,140,160
100 IFPOINT(X,Y-2)=0THEN200
110 PSET(X,Y-2),0:PSET(X,Y-1),0:Y=Y-2:GOTO60
120 IFPOINT(X+2,Y)=0THEN200
130 PSET(X+1,Y),0:PSET(X+2,Y),0:X=X+2:GOTO60
140 IFPOINT(X,Y+2)=0THEN200
150 PSET(X,Y+2),0:PSET(X,Y+1),0:Y=Y+2:GOTO60
160 IFPOINT(X-2,Y)=0THEN200
170 PSET(X-1,Y),0:PSET(X-2,Y),0:X=X-2:GOTO60
200 I=I+1:IFI<5THEN90
210 IF XH<>XORYH<>YTHEN60
220 R=R+2:IFR>R1THENR=2:Q=Q+2:IFQ>Q1THEN250
230 IFPOINT(Q,R)=0THENX=Q:Y=R:GOTO60
240 GOTO220
250 LCOPY:END
|
|
|