第2回昔のPC板杯ﾌﾟﾛｸﾞﾗﾑｺﾝﾃｽﾄ会場

60 ：ナイコンさん：02/11/05 16:26.net

2 cls:color 7,0:x=10:y=0:for i=0 to 3:read a:v(i)=a:read a:w(i)=a
3 for j=0 to 16:locate x,y:print "#":x=x+v(i):y=y+w(i)
4 next j:next i:k1=11:l1=1:a=1:b=255:h=0:k0=255:l0=255
10 locate 32,9:print spc(5):x2=int(rnd(1)*16)+11:y2=int(rnd(1)*16)+1
11 locate x2,y2:color 2:print"2":color 7:if inkey$=" " then h=h+1
15 g=h mod 4:x=v(g):y=w(g):k0=k1:l0=l1:k1=k1+x:l1=l1+y
16 locate k1,l1:print"O":for i=0 to 63:next i:locate k0,l0:print" "
18 if k1=10 then 50 else if k1=27 then 50
19 if l1=0 then 50 else if l1=17 then 50
20 if k1<>x2 then 30 else if l1<>y2 then 30
21 for i=0 to 7:for j=0 to 7:color j:locate 32,9:print"2GET!"
22 next j:next i:a=a+100:goto 10
30 a=a+1:for i=0 to b:next i:if inkey$=" " then h=h+1
31 locate 29,0:print using"SCORE#####";a:c=a/100:b=int(b-c):goto 15
50 locate 15,9:print"GAME OVER":end:data 1,0,0,1,-1,0,0,-1