The Best of Creative Computing Volume 1 (published 1976)

Page 260 << PREVIOUS >> NEXT Jump to page:
Go to contents Go to thumbnails

Schmoo (BASIC program listing, sample run)

graphic of page

Following is a LIST of SPLAT2:

5 PRINT "THIS IS A NEW SCHMOO GAME. SCHMOOS"

10 PRINT "ARE IMAGINARY CREATURES WHO LOVE"

15 PRINT "BEING SPLATTED WITH JUICY MUD BALLS."

20 PRINT "YOU, BEING A SCHMOO LOVER, TRY TO"

25 PRINT " MAKE SCHMOOS HAPPY BY TOSSING MUD"

30 PRINT "BALLS AT THEM. YOU HAVE A"

35 PRINT "MECHANICAL MUD SLINGER THAT WILL"

40 PRINT "SLING MUD TO A MAXIMUM DISTANCE"

45 PRINT "OF 46,500 INCHES. YOUR JOB IS TO"

50 PRINT "SET THE MUD SLINGER AT THE CORRECT"

55 PRINT "ELEVATION (0 TO 90) AND THE CORRECT"

60 PRINT "DIRECTIONAL ANGLE (0 TO 360) TO SPLAT THE"

65 PRINT "SCHMOO. A HIT WITHIN 100 INCHES OF"

70 PRINT "THE SCHMOO WILL SPLATTER HIM."

75 PRINT 
90 PRINT
95 RANDOMIZE
100 K1=0
110 Z= INT(1+RND*4-1E-8)
120 ON Z GOTO 130,140,150,160
130 P=-1
135 Q=-1
138 GOTO 200
140 P=-1 
145 Q=1
148 GOTO 200
150 P=1
155 Q=-1
158 GOTO 200
160 P=1
165 Q=1
200 X= (INT (26000*RND+5000))*P
210 Y= (INT(26000*RND+5000))*Q
220 S=0
230 K1=K1+1
240 IF K1<2 GOTO 400
250 R= INT(7*RND)+5
260 GOTO 400
300 PRINT"THE ELEVATION MUST BE BETWEEN 1 AND 90." 
310 GOTO 500
320 PRINT"DIRECTIONAL ANGLE MUST BE FROM 0 TO 360/"

340 GOTO 500
350 PRINT"SCHMOO SPLATTED*";S;" MUD BALLS TOSSED."

351 PRINT
352 PRINT" I SEE ANOTHER SCHMOO. TO SPLAT"

354 PRINT"HIM,TYPE MUD. TO QUIT, TYPE QUIT."

356 PRINT
358 INPUT C$
360 IF C$="MUD" GOTO 110
361 STOP 
362 PRINT"YOU MISSED THE SCHMOO AT (";X;",";Y;")."

364 PRINT"YOUR MUD HIT (";INT(X1);"",";INT(Y1);")."

366 PRINT
370 IF K1<2 GOTO 500
380 IF S>=R GOTO 800
390 PRINT"SCHMOO MUD HIT ";R2;" INCHES FROM YOU."

395 GOTO 500
400 PRINT
410 PRINT"COORDINATES THE SCHMOO ARE (";X;",";Y;")."

415 IF K1 <2 GOTO 420
417 PRINT"THE SCHMOO IS HAPPY TO BE SPLATTED."

418 PRINT"TO MAKE YOU HAPPY TOO,"

419 PRINT"HE WILL THROW MUD AT YOU."

420 PRINT
500 PRINT"MUD SLINGER ELEVATION";
502 INPUT B 
504 PRINT"DIRECTIONAL ANGLE OF MUD SLINGER";
506 INPUT C 
520 IF B=90 GOTO 700
530 IF B>90 GOTO 300
540 IF B<1 GOTO 300
550 IF C<0 GOTO 320
560 IF C>(360-(1E-8)) GOTO 320
570 S=S+1
580 IF K1<2 GOTO 595
590 R2 = INT(ABS(300*RND*(11-2*S))+90)
595 J=3.14159/180
596 D= ABS(INT(93000*SIN(B*J)*COS(B*J)))
610 X1=D*COS(C*3.14159/180)
620 Y1=D*SIN(C*3.14159/180)
630 D1=SQR((X-X1)^2 + (Y-Y1)^2)
640 IF 100>=D1 GOTO 350
650 GOTO 362
700 PRINT"YOU DOPE! YOU SPLATTED YOURSELF."

710 GOTO 900
800 PRINT"THE SCHMOO SPLATTED YOU!"

802 PRINT"CLEAN UP AND GOODBY!"

900 END
COORDINATES OF SCHMOO ARE ( 21065 . 5063 ).

MUD SLINGER ELEVATION ?10
DIRECTIONAL ANGLE OF MUD SLINGER ?23
YOU MISSED THE SCHMOO AT ( 21065 , 5063 ).

YOUR MUD HIT ( 14638 , 6213 ).

MUD SLINGER ELEVATION ?14
DIRECTIONAL ANGLE OF MUD SLINGER ?20
YOU MISSED THE SCHMOO AT ( 21065 , 5063 ).

YOUR MUD HIT ( 20513 , 7466 ).

MUD SLINGER ELEVATION ?13.5
DIRECTIONAL ANGLE OF MUD SLINGER ?18
YOU MISSED THE SCHMOO AT ( 21065 , 5063 ).

YOUR MUD HIT ( 20076 ,  6523 ).

MUD SLINGER ELEVATION ?13.5
DIRECTIONAL ANGLE OF MUD SLINGER ?16
YOU MISSED THE SCHMOO AT ( 21065 , 5063 ).

YOUR MUD HIT ( 20292 , 5818 ).

MUD SLINGER ELEVATION ?13.5
DIRECTIONAL ANGLE OF MUD SLINGER ?15
YOU MISSED THE SCHMOO AT ( 21065 , 5063 ).

YOUR MUD HIT ( 20390 , 5463 ).

MUD SLINGER ELEVATION ?13.6
DIRECTIONAL ANGLE OF MUD SLINGER ?14
YOU MISSED THE SCHMOO AT ( 21065 , 5063 ).

YOUR MUD HIT ( 20623 , 5142 ).

MUD SLINGER ELEVATION ?13.7
DIRECTIONAL ANGLE OF MUD SLINGER ?13
YOU MISSED THE SCHMOO AT ( 21065 , 5063 ).

YOUR MUD HIT ( 20850 , 4813 ).

MUD SLINGER ELEVATION ?13.9
DIRECTIONAL ANGLE OF MUD SLINGER ?13
YOU MISSED THE SCHMOO AT ( 21065 , 5063 ).

YOUR MUD HIT ( 21130 , 4878 ).

MUD SLINGER ELEVATION ?13.9
DIRECTIONAL ANGLE OF MUD SLINGER ?13.5
*SCHMOO SPLATTED* 9 MUD BALLS TOSSED.

I SEE ANOTHER SCHMOO. TO SPLAT
HIM, TYPE MUD. TO QUIT, TYPE QUIT.

?QUIT
COORDINATES OF SCHMOO ARE ( 15368 ,-16337 ).

THE SCHMOO IS HAPPY TO BE SPLATTED.

TO MAKE YOU HAPPY TOO,
HE WILL THROW MUD AT YOU.

MUD SLINGER ELEVATION ?316
DIRECTIONAL ANGLE OF MUD SLINGER ?13
YOU MISSED THE SCHMOO AT ( 15368 , -16337 ).

YOUR MUD HIT ( 16723 , -16151 ).

SCHMOO MUD HIT 1559 INCHES FROM YOU.

MUD SLINGER ELEVATION ?14.5
DIRECTIONAL ANGLE OF MUD SLINGER ?317
YOU MISSED THE SCHMOO AT ( 15368 , -16337 ).

YOUR MUD HIT ( 16486 , -15375 ).

SCHMOO MUD HIT 125 INCHES FROM YOU.

MUD SLINGER ELEVATION ?14.5
DIRECTIONAL ANGLE OF MUD SLINGER ?314
YOU MISSED THE SCHMOO AT ( 15368 , -16337 ).

YOUR MUD HIT ( 15659 , -16217 ).

SCHMOO MUD HIT 747 INCHES FROM YOU.

MUD SLINGER ELEVATION ?14.6
DIRECTIONAL ANGLE OF MUD SLINGER ?320
YOU MISSED THE SCHMOO AT ( 15368 , -16337 ).

YOUR MUD HIT ( 17377 , -14582 ).

SCHMOO MUD HIT 870 INCHES FROM YOU.

MUD SLINGER ELEVATION ?14.6
DIRECTIONAL ANGLE OF MUD SLINGER ?315
YOU MISSED THE SCHMOO AT ( 15368 , -16337 ).

YOUR MUD HIT ( 16040 , -16041 ).

SCHMOO MUD HIT 372 INCHES FROM YOU.

MUD SLINGER ELEVATION ?14.6
DIRECTIONAL ANGLE OF MUD SLINGER ?314.5
YOU MISSED THE SCHMOO AT ( 15368 , -16337 ).

YOUR MUD HIT ( 15900 , -16181 ).

THE SCHMOO SPLATTED YOU!

CLEAN UP AND GOODBY!

Page 260 << PREVIOUS >> NEXT Jump to page:
Go to contents Go to thumbnails