Formatted wire script bluntmasta

on $*:text:/^[.?]wire/Si:#:{
  if ($nick == $eval($+(%,var,$chan,.bomb),2)) {
    if (!$2) {
      .notice $nick You must select a wire.
    }
    if ($istok($eval($+(%,var,$chan,.wires),2),$2,32)) {
      .notice $nick Wires Are: 4RED - 8YELLOW - 9GREEN - 1FEAR
    }
    else {
      if ($2 == fear) {
        set %bombs $reptok(%bombs,$gettok(%bombs,2,58),$calc($gettok(%bombs,2,58) + 1),1,58)
        .msg $chan $nick *BOOM* Don't be afraid... It's only a virtual bomb $+ (,$chr(91),$gettok(%bombs,2,58),$chr(93)) - (15 seconds till next bomb)
        set -u15 %bomb. [ $+ [ $chan ] ] disabled
        unset %b. [ $+ [ $chan ] $+ ] .*
        .timerbwarn. [ $+ [ $chan ] ] off
        .timerbomb. [ $+ [ $chan ] ] off
      }
      elseif ($istok(%b. [ $+ [ $chan ] $+ ] .wires,$2,32)) {
        if ($2 == %b. [ $+ [ $chan ] $+ ] .wire) {
          set %bombs $reptok(%bombs,$gettok(%bombs,1,58),$calc($gettok(%bombs,1,58) + 1),1,58)
          .msg $chan 8S7o4m5e 5f4o7o8l 8pl7an4te5d 5a 4b7om8b 8o7n 4yo5u 5N4i7c8k!8 307s4e5c 5to $&
            4de7fu8se 8it, 7h4ur5ry! $2 . $+(,$chr(91),$chan,$chr(93),) $+($chr(91),$gettok(%bombs,1,58),$chr(93)) - (15 seconds till next bomb)
          set -u15 %bomb. [ $+ [ $chan ] ] unset $+(%,b,$chan,.*)
          $+(.timerbwarn.,$chan) off
          $+(.timerbomb.,$chan) off
        }
        else {
          set %bombs $reptok(%bombs,$gettok(%bombs,2,58),$calc($gettok(%bombs,2,58) + 1),1,58)
          .msg $chan 6/7!6\ 4*KABOOM* 6/7!6\ 5The loss of $nick(#,0) people rests in $+($nick,...) The correct wire was: $&
            $eval($+(%,b,$chan,.wire),2) $+($chr(91),$gettok(%bombs,2,58),$chr(93)) - (15 seconds till next bomb)
          set -u15 %bomb. [ $+ [ $chan ] ] disabled | unset $+(%,b,$chan,.*)
          $+(.timerbwarn,$chan) off | $+(.timerbomb,$chan) off
        }
      }
    }
  }
}