home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
games
/
megatrek.zip
/
SCORE.ASC
< prev
next >
Wrap
Text File
|
1986-11-04
|
2KB
|
40 lines
50000 P=D0-J2:IF(P<>0)AND(R1=0)THEN 50020
50010 IF P<5 THEN P=5
50020 N=(K2+K1)/P:K=INT(500*N+.5):L=0
50030 IF G1<>0 THEN L=100*S8
50040 I=0
50050 IF LEFT$(S5$,1)="E"THEN M=0
50060 IF LEFT$(S5$,1)="F"THEN M=1
50070 IF LEFT$(S5$,1)=""THEN M=2
50080 IF A1=0 THEN I=200
50090 J=10*K1+50*K2+K+L-I-100*B1-100*M-35*N1-3*S1-C4
50100 PRINT:IF J<>0 THEN 50120
50110 PRINT"AS YET, YOU HAVE NO SCORE.":GOTO 5040
50120 PRINT"YOUR SCORE --":PRINT:IF K1=0 THEN 50140
50130 PRINT K1;TAB(5);"ORDINARY KLINGON(S) DESTROYED";TAB(36);10*K1*MR
50140 IF K2= 0 THEN 50160
50150 PRINT K2;TAB(5);"KLINGON COMMANDER(S) DESTROYED";TAB(36);50*K2*MR
50160 IF K=0 THEN 50190
50170 PRINT FNR(N);TAB(5);"KLINGONS PER STARDATE, AVERAGE";
50180 PRINT TAB(36);K*MR
50190 IF S1=0 THEN 50210
50200 PRINT S1;TAB(5);"STAR(S) DESTROYED";TAB(36);-3*S1*MR
50210 IF B1=0 THEN 50230
50220 PRINT B1;TAB(5);"STARBASES DESTROYED";TAB(36);-100*B1*MR
50230 IF N1=0 THEN 50250
50240 PRINT N1;TAB(5);"SOS CALL(S) TO A STARBASE";TAB(36);-35*N1*MR
50250 IF C4=0 THEN 50270
50260 PRINT C4;TAB(5);"CASUALTIES INCURRED";TAB(36);-C4*MR
50270 IF M=0 THEN 50290
50280 PRINT M;TAB(5);"SHIP(S) LOST OR DESTROYED";TAB(36)-100*M*MR
50290 IF A1<>0 THEN 50310
50300 PRINT TAB(5)"PENALTY FOR GETTING KILLED";TAB(36);-200*MR
50310 IF G1=0 THEN 50330
50320 PRINT TAB(5);"BONUS FOR WINNING ";S$(S8);" GAME";TAB(36);L*MR
50330 PRINT TAB(5);"-------------------------------------"
50340 PRINT TAB(28);"TOTAL";TAB(36);J*MR;"**":IF "CO"=LEFT$(A$,2) THEN GOTO 5040
50350 GOTO 901
60000 REM end overlay
---"
50340 PRINT TAB(28);"TOTAL";TAB(36);J*MR;"**":IF "CO"=LEFT$(A$,2) THEN GOTO 5040
50350 GOT