Uni-Script v3 P2P

menu channel,query {
  -[-(Uni-Script)-]-
 .//P2P System\\
  ../-[Blocker]-\ ( $+ $iif($group(#UniP2P.Block) = on,$chr(164),x) $+ )
  ... $iif($group(#UniP2P.Block) = On,$style(1)) $+ /-|On|-\:.enable #UniP2P.Block | echo -agt 0-15(14P2P System15)0- 0-4(14P2P Blocker Currently On.4)0-
  ... $iif($group(#UniP2P.Block) = off,$style(1)) $+ /-|Off|-\: {
    .disable #UniP2P.Block
    echo -agt 0-15(14P2P System15)0- 0-4(14P2P Blocker Currently Off.4)0-
    if ($group(#UniP2P.Kill) = on) { .disable #UniP2P.Kill }
  }
  ..-
  ../-[Killer]-\ ( $+ $iif($group(#UniP2P.Kill) = on,$chr(164),x) $+ )
  ... $iif($group(#UniP2P.Kill) = on,$style(1)) $+ /-|On|-\: {
    if ($group(#UniP2P.Block) != on) { echo -ag 0-15(14P2P System15)0- 0-4(14The P2P Blocker Must Be On4)0- }
    else { .enable #UniP2P.Kill | msg #active 0-15(14P2P System15)0- 0-4(14P2P Kill Currently Enabled.4)0- }
  }
  ... $iif($group(#UniP2P.Kill) = off,$style(1)) $+ /-|Off|-\:.disable #UniP2P.Kill | msg $active 0-15(14P2P System15)0- 0-4(14P2P Kill Currently Disabled.4)0-
  ..-
  ...Block for $server $iif(%p2p.block. [ $+ [ $server ] ] == on,$chr(164),x)
  ... $iif(%p2p.block. [ $+ [ $server ] ] == on,$style(1) On,On):/set %p2p.block. [ $+ [ $server ] ] On | amsg 0-15(14P2P System15)0- 0-4(14P2P Blocker Currently Enabed for $server $+ .4)0-
  ... $iif(%p2p.block. [ $+ [ $server ] ] == off,$style(1) Off,Off):/set %p2p.block. [ $+ [ $server ] ] Off | amsg 0-15(14P2P System15)0- 0-4(14P2P Blocker Currently Disabled for $server $+ .4)0-
#UniP2P.Block off
on ^*:OPEN:?: {
  if (!$window(@Uni-P2P)) { window -E @Uni-P2P }
  if (%p2p.block. [ $+ [ $server ] ] == on) {
    inc %P2P.Block
    notice $nick $Text.1(P2P System) 0-15(14P2P's are currently being 4Blocked14. Please Try again later,15)0-
    inc %Uni.p2p.all
    inc %uni.p2p.now
    rline @Uni-P2P 1 You have had %uni.p2p.all Total P2P's blocked and %uni.p2p.now Current P2P's blocked.
    aline @Uni-P2P P2P Blocked on $server $iif($network,$+([,$network,])) ( $+ $nick / $address $+ ) $time(hh:nn:ss tt mm/dd/yyyy) Number: %uni.p2p.now
    if ($query($nick)) { .close -m $nick }
    if ($group(#UniP2P.Kill) = on) { P2PKill $nick }
    halt
  }
}
#UniP2P.Block end

#UniP2P.Kill off
alias -l P2PKill { .raw kill $1 0-15(14P2P System15)0- 0-4(14P2P Kill 4Enabled14. Baii.4)0- }
#UniP2P.Kill end