Centiperl!

Insert coins to play.

#!/usr/bin/perl -lw

for $sale ( # SCORE 907 HI 287185

 ',   .                        ',
 ',   .           Y            ',
 ',   y                      Y ',
 ',   .                    Y   ',
 ',   y                     Y  ',
 ',   .                        ',
 ',   .  Y                     ',
 ',   .               Y        ',
 ',   M                Y       ',
 ',                         Y  ',
 ',             Y              ',
 ',          Y                 ',
 ',                       Y    ',
 ',                            ',
 ',                     Y      ',
 ',          Ymmmmmm           ',
 ',        @mmm           Y    ',
 ',                 Y          ',
 ',                            ',
 ',             Y  mm* m@      ',
 ',      Y           !         ',
 ',        Y         !         ',
 ',                Y !         ',
 ',          Y                 ',
 '                   ^    Y    '

){$_.=chr index    #  CENTIPERL!
($sale,'Y')+90}    #
s!Y(.)! \u$1!g;    #  LIVES:   4
s!^ |SCORE|!!g;    #  CREDITS: 1

print
[download]

Comment on Centiperl! Download Code

Replies are listed 'Best First'.
Re: Centiperl! by belg4mit (Prior) on Jan 18, 2002 at 05:51 UTC
damn. got me excited to have centipede written in perl ++ for orginiality, -- for ease of deobfuscation :-P. `-- perl -pe "s/\b;([st])/'\1/mg"`	[reply]
Re: Re: Centiperl! by japh (Friar) on Jan 18, 2002 at 05:58 UTC
That's where the 'insert coins' part comes in... I admit the code is straightforward. I relied on spatial representation, a red herring, and (as it turns out) folks' assumption that i'm capable of packing a working video game into 65 characters :)	[reply]
Re: Centiperl! by ellem (Hermit) on Jan 22, 2002 at 01:57 UTC
Hey I think this thing is some kind of virus! The game never loads and it says something about breaking into systems! :) -- lmoran@wtsg.com There's more than one way to do it, just don't use my way.	[reply]