Acme::KamenriderOOO - 仮面ライダーオーズに変身してみよう

tag perl acme


こんばんは。
最近さらに親バカがひどくなってきたtoritori0318と申します。
Acme Drugということでゆるい感じで書きたいと思います。


さて、9月から仮面ライダーも新作が始まってしまいましたが
前作の仮面ライダーオーズもまだまだ熱いですよね!*1
あ、仮面ライダーオーズについてあまりご存じない方はこちらを御覧ください。

仮面ライダーオーズの変身について

仮面ライダーといえば変身シーンですね。
もちろん仮面ライダーオーズにも変身シーンがあります。
オーズは以下のような流れで変身を行います。

  1. オーズドライバー(ベルト)にオーメダルを3枚セットします
  2. オースキャナーを使い、セットしたメダルをスキャンします
  3. スキャンされたメダルの組み合わせで仮面ライダーオーズに変身します

スキャンするメダルは頭5種類×腕5種類×脚5種類の組み合わせによって形態が変化します。
つまり100種類以上の形態が存在するわけです。

さらにメダルには属性があり、3枚のメダルが同じ属性であれば
「コンボチェンジ」となり、普段より強力な力を持ったオーズに変身できます。
メダルの属性は色で判断できるので一目瞭然ですね。


Perlでも変身したい

さて、ここまでの説明で「perlを使って変身してみたい」と思いましたか!思いますよね!
そこでオーズに変身できるモジュール Acme::KamenriderOOO を書いてみました。*2
早速変身してみましょう。

  use Acme::KamenriderOOO;

  my $ooo = Acme::KamenriderOOO->new;

  # オーズドライバーにメダルをセット
  $ooo->ooo_driver( 'タカ','クジャク','コンドル' );

  # キュインキュインキュインキュイン...

  # 変身!
  $ooo->henshin;


見事に変身できましたね!


亜種もすべて対応済みです。


また不正な組み合わせで変身しようとすると怒られるので気をつけましょう。

  # オーズドライバーにメダルをセット!
  $ooo->ooo_driver( 'ライオン','タカ','ウナギ' );

  # 変身!
  $ooo->henshin;   # 組み合わせが不正だよ

メダル情報/コンボ情報

メダル情報やコンボ情報を引くことも可能です。
勉強して友達に差をつけよう!

  # コンボ一覧
  my @combo = $ooo->select('combo');
  my @combo = $ooo->select('combo', {name=>'タジャドル'});

  # メダル一覧
  my @medal = $ooo->select('medal');
  my @medal = $ooo->select('medal', {name=>'タカ'});

Acme::KamenriderFourze

今のところ書く予定は全くないのですが、もしかしたらAcme Trackに再登場するかもしれませんね!

*1: というか息子の中では現役
*2: Acme::Momoirocloverを参考にさせて頂きました