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

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

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

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

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

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

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に再登場するかもしれませんね！