404 motivation not found | t_ishidaのブログ

6月/08

27

なんちゃって魔王

id:hrkt0115311のやっているメルマガのなんちゃって魔王をPerlに移植してみた。

http://archive.mag2.com/0000267290/index.html

%cmd = (
'1' => { 'name' => 'たたかう', 'act'  => sub{ print '戦えなかった。' } } ,
'2' => { 'name' => '逃げる'  , 'act'  => sub{ print '逃げられなかった。' } } ,
'3' => { 'name' => '防御'    , 'act'  => sub{ print '防御できなかった。' } } ,
'6' => { 'name' => '終わる'  , 'act'  => sub{ print '終わった。' and exit(0) } } ,
);
print( "どうする?n" . join( "n", map{ "$_:$cmd{$_}{name}" } grep{ $cmd{$_}{name} } sort keys %cmd ) . "n" ) and $_ = <STDIN> and chomp $_ and ( $cmd{$_} ? $cmd{$_}{act}->() : print "そうはいかないn" ) while 1;
Share and Enjoy:
  • Digg
  • del.icio.us
  • Google Bookmarks
  • Tumblr
  • email
  • Facebook
  • FriendFeed

RSS Feed

コメントはまだありません。

Leave a comment!

<< Wassr向けの急募ったの爆発機能

暗算ゲーム >>

Find it!

Theme Design by devolux.org

Tag Cloud