その11からの続きです。
- ゲームオーバー
3920 PRINT "THE ENTERPRISE IS DEAD IN SPACE. IF YOU SURVIVE ALL IMPENDING"
3930 PRINT "ATTACK YOU WILL BE DEMOTED TO THE RANK OF PRIVATE"
3940 IF K3 <= 0 THEN 4020
3950 GOSUB 3790
3960 GOTO 3940
3970 PRINT
3980 PRINT "IT IS STARDATE"T
3990 GOTO 4020
4000 PRINT
4010 PRINT "THE ENTERPRISE HAS BEEN DESTROYED. THE FEDERATION WILL BE CONQUERED"
4020 PRINT "THERE ARE STILL"K9" KLINGON BATTLE CRUISERS"
4030 GOTO 230
4040 PRINT
4050 PRINT "THE LAST KLINGON BATTLE CRUISER IN THE GALAXY HAS BEEN DESTROYED"
4060 PRINT "THE FEDERATION HAS BEEN SAVED !!!"
4070 PRINT
4080 PRINT "YOUR EFFICIENCY RATING ="( (K7/(T-T0) )*1000)
4090 T1=TIM(0)+TIM(1)*60
4100 PRINT "YOUR ACTUAL TIME OF MISSION ="INT((((T1-T7)*.4)-T7)*100)" MINUTES"
4110 GOTO 230
3920行にくるのは、エネルギーもシールドもなくなってしまった場合です。
現在の宇宙域にクリンゴンがいない場合は4020行で残りのクリンゴン数を表示して、ゲームが初期化されます。
クリンゴンがいる場合は、3790行からのクリンゴンの攻撃が繰り返されます。最終的には4000行にきて、エンタープライズは破壊されてしまい、ゲームが初期化されます。
3970行にくるのは、規定の年数を過ぎてしまった場合です。現在の宇宙暦とクリンゴンの残数を表示してゲームオーバーで、ゲームが初期化されます。
4040行にくるのは、すべてのクリンゴンを撃墜し、任務が完了した場合です。
倒したクリンゴンの数に比例しクリア時間に反比例する評価が得られます。また、ゲーム時間が分単位で表示されます。ゲームオーバーでゲームが初期化されます。
いずれの場合も自動的に次のゲームが始まってしまうので、ここは確認を入れたほうがいいかもしれません。
以上が、Mike Mayfield によるスタートレックの解説でした。
さて、プチコンに移植しましょうか。
