mirror of
https://github.com/rfivet/BCG101.git
synced 2024-12-30 05:57:15 -05:00
22 lines
659 B
QBasic
22 lines
659 B
QBasic
|
5 RANDOMIZE
|
||
|
|
8 PRINT "THIS IS A GAME OF >>>>>>>>>>>RUSSIAN ROULETTE."
|
||
|
|
10 PRINT\PRINT "HERE IS A REVOLVER"
|
||
|
|
20 PRINT "HIT '1' TO SPIN CHAMBER AND PULL TRIGGER."
|
||
|
|
22 PRINT " (HIT '2' TO GIVE UP)"\PRINT "GO";
|
||
|
|
25 N=0
|
||
|
|
30 INPUT I
|
||
|
|
31 IF I<>2 THEN 35
|
||
|
|
32 PRINT " CHICKEN !!!"\GOTO 72
|
||
|
|
35 N=N+1
|
||
|
|
40 IF RND(0)>0.83333 THEN 70
|
||
|
|
45 IF N>10 THEN 80
|
||
|
|
50 PRINT "- CLICK -"
|
||
|
|
60 PRINT\GOTO 30
|
||
|
|
70 PRINT " BANG!!!! YOU'RE DEAD!"
|
||
|
|
71 PRINT "CONDOLENCES WILL BE SENT TO YOUR RELATIVES."
|
||
|
|
72 PRINT\PRINT\PRINT\PRINT "...NEXT VICTIM..."\GOTO 20
|
||
|
|
80 PRINT "YOU WIN !!!"
|
||
|
|
85 PRINT "LET SOMEONE ELSE BLOW HIS BRAINS OUT."
|
||
|
|
90 GOTO 10
|
||
|
|
99 END
|