Program post site for everyone
娘にＵＦＯキャッチャーを作ってと言われたがとても難しそうだったので画面でイチゴをゲットする簡単なゲームを作りました。
成功したらモーターを回して景品やコインを落とす工作を動かしますが、何もつながっていなくても遊べます。
スロット０にこのプログラムをSAVE、スロット１に景品を落とす制御プログラムを保存して実行してください。
1 'クレーンケ゛ーム 10 X=1:Y=2:CLS 20 LCX,Y:?"^o^" 30 LC 10,14:?"クレーンケ゛ーム":LC10,15:?"PHSH (#E1)" 35 K=INKEY() 40 IF K=29 LC10,14:?" ":LC10,15:?" ":GOTO60 50 GOTO35 60 FOR I=0 TO 10 :LC RND(15)+15,RND(15)+5:?"(#FF)":NEXT 100 WAIT20 101 K=INKEY() 105 IF K=0 OR K<>29 OR X>28GOTO200 110 IF K=29 LCX,Y:?" ^o^":X=X+1:BEEP 190 GOTO100 200 BEEP:WAIT20 201 K=INKEY() 210 IFK=0 OR K<>29 Y=Y+1:LCX,Y:?"^o^":LCX,Y-1:?" | " 220 IF Y>20 OR K=29 IF VPEEK(X+1,Y+1)=255ORVPEEK(X,Y+1)=255ORVPEEK(X+2,Y+1)=255 GOTO300 ELSE LC10,14:?"シッハ゜イ":BEEP100,100:WAIT45:GOTO10 290 GOTO200 300 BEEP:WAIT20 310 LCX,Y:?" o ":LCX,Y+1:?"<_>" 400 BEEP:LEDY-Y/2*2:WAIT20 410 LC X,Y+2:?" ":LCX,Y+1:?"<_>":LC X,Y:?" o " 420 Y=Y-1:IF Y<2 GOTO500 430 GOTO400 500 BEEP:LEDX-X/2*2:WAIT20 510 LCX-1,Y+1:?" o ":LCX-1,Y+2:?"<_> ":X=X-1 520 IF X<0 GOTO600 590 GOTO500 600 LCX,Y+1:?"^o^":LCX,Y+2:?" " 610 BEEP:LEDY-Y/2*2:WAIT7 620 LCX+2,Y+3:?"(#FF)" 630 LCX+2,Y+2:?" ":Y=Y+1 640 IF Y>20 BEEP:BEEP:LRUN1 650 GOTO610
