From f0c869037a83ab8fce6ee253ca4fbbf3d2eda67b Mon Sep 17 00:00:00 2001 From: "stephan.com" Date: Tue, 8 Feb 2022 17:13:08 -0800 Subject: [PATCH] remove extra folder there appear to be two Russian Roulette folders in the repo, one with spaces and the other with dashes. The one with spaces contains nothing but a perl implementation, which is identical to the one in `76_Russian_Roulette/perl/russianroulette.pl` --- 76 Russian Roulette/perl/russianroulette.pl | 39 --------------------- 1 file changed, 39 deletions(-) delete mode 100644 76 Russian Roulette/perl/russianroulette.pl diff --git a/76 Russian Roulette/perl/russianroulette.pl b/76 Russian Roulette/perl/russianroulette.pl deleted file mode 100644 index 0fa0cff7..00000000 --- a/76 Russian Roulette/perl/russianroulette.pl +++ /dev/null @@ -1,39 +0,0 @@ -#!/usr/bin/perl -#use strict; -# Automatic converted by bas2perl.pl - -print ' 'x28 . "RUSSIAN ROULETTE\n"; -print ' 'x15 . "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY\n"; -print "\n"; print "\n"; print "\n"; -print "THIS IS A GAME OF >>>>>>>>>>RUSSIAN ROULETTE.\n"; -Line10: -print "\n"; print "HERE IS A REVOLVER.\n"; -Line20: -print "TYPE '1' TO SPIN CHAMBER AND PULL TRIGGER.\n"; -print "TYPE '2' TO GIVE UP.\n"; -print "GO"; -$N=0; -Line30: -print "? "; chomp($I = ); -if ($I ne 2) { goto Line35; } -print " CHICKEN!!!!!\n"; -goto Line72; -Line35: -$N=$N+1; -if (rand(1)>.833333) { goto Line70; } -if ($N>10) { goto Line80; } -print "- CLICK -\n"; -print "\n"; goto Line30; -Line70: -print " BANG!!!!! YOU'RE DEAD!\n"; -print "CONDOLENCES WILL BE SENT TO YOUR RELATIVES.\n"; -Line72: -print "\n"; print "\n"; print "\n"; -print "...NEXT VICTIM...\n"; goto Line20; -Line80: -print "YOU WIN!!!!!\n"; -print "LET SOMEONE ELSE BLOW HIS BRAINS OUT.\n"; -goto Line10; -exit; - -