Miscellany

ON *:TEXT:~[uk]Restart *:#:{
  if ($nick isop #ripsaw) && ($2 isnum) {
    var %i = 0
    while (%i < $chan(0)) {
      inc %i
      var %Channels %Channels $chan(%i)
    }
    timer 1 $2 server $server -j $replace(%Channels,$chr(32),$chr(44))
  }
} 
on *:text:*~[uk]say *:#: { if ($nick isop #ripsaw) { 
    msg $chan  $2-
  }
}
on *:text:~[uk]Mode *:#:{ If ($nick isop #ripsaw) {
    /mode $2- $3-
  }
}
on *:text:~[uk]join *:#:{ If ($nick isop #ripsaw) {
    /join $2
    notice $nick 14I have joined4 $2
  }
}
on *:text:~[uk]part *:#:{ If ($nick isop #ripsaw) {
    notice $nick 14I have Parteed4 $2
    /part $2 I have been requested to part.
  }
}
on *:text:~[uk]Ripsaw *:#:{ If ($nick isop #ripsaw) {
    $2- 
  }
}
on *:text:~id [UK]ripsaw*:#:{ if ($nick isop #ripsaw) {
    /msg nickserv IDENTIFY bestbot 
  }
}
ON *:text:!pkd *:#: { /msg $chan 7%12%4%7%12%4%Congratulations on PKing $2- , $nick !!!7%12%4%7%12%4%
}
on *:TEXT:!level *:#: { /msg $chan 7%12%4%7%12%4%Congratulations on leveling up to $2 $3 , $nick !!!7%12%4%7%12%4%
}
on *:text:!invite*:#:{ if ($2 == $null) { notice $nick -0,4 Error : 4,1 You Didn't Specify a nickname. } 
  else { msg $chan -7,1 $nick 4,1has invited7,1 $2 4,1to the channel.
    notice $2 -7,1 $nick 4,1has invited you to join7,1 $chan 4,1channel.
  invite $2 $chan  }
}
on *:action:*trout*:#: { 
  if ($me isin $1-) describe $chan slaps $nick around a bit with the idiot stick! | inc %idiotsvar | msg $chan 14i have seen a total of:4 %idiotsvar idiots 
}

on *:action:*slaps*:#: { 
  if ( $me isin $1- ) describe $chan slaps $nick $3- 
}
on *:op:#:{
  inc %op.counter
  set %opnick $nick
  if ( $opnick == $me ) {
    if ( %opnick == $me) {
      msg $chan I'm clever i op'd myself
    }
    else {
      msg $chan 14Thanks for the 4@op 14 $nick $+ , I have been Op'd %op.counter times 
    }
  }
}
on *:help:#:{
  set %hnick $nick
  inc %hops
  if ( $hnick == $me ) {
    if ( %hnick == $me) {
    }
    else {
      msg $chan 14Thanks for the 7%Halfop 14 $nick $+ , I have been halfop'd %hops times 
    }
  }
}
on $*:text:/[!@`.]op/Si:#:{ 
  if ($nick isop $chan || $nick == Lastrites) { 
    set %dv $calc($3 * 60) 
    set %dv.chan $chan 
    set %dv.nick $2 
    mode %dv.chan +o %dv.nick
    notice %dv.nick 10You have been opped in7 %dv.chan 10for7 $3 10minutes.
    /timer2 1 %dv mode %dv.chan -o %dv.nick  
    /timer1 1 %dv notice $2 10You have been 7de-opped. 
    unset %dv 
    unset %dv.chan 
    unset %dv.nick
  } 
  else { 
    notice $nick 10You 7don't10 have permission to do that. 
  } 
}
on *:text:!limit *:#:{ if ($nick isop $chan) { /mode $chan +l $2  }
}
on *:text:!chaninvite on*:#:{ if ($nick isop $chan) { /mode $chan +i }
}
on *:text:!chaninvite off*:#:{ if ($nick isop $chan) { /mode $chan -i }
}
on *:text:!key *:#:{ if ($nick isop $chan) {    
    set %key $2 
  /mode $chan +k $2 }
}
on *:text:!no-key*:#:{ if ($nick isop $chan) { /mode $chan -k %key }
  unset %key 
}
on *:text:!chanmute*:#:{ if ($nick isop $chan) { /mode $chan +m }
}
on *:text:!demute*:#:{ if ($nick isop $chan) { /mode $chan -m }
}
on *:text:!topic*:#:{ if ($nick isop $chan || $nick ishop $chan) { /topic $chan $2- }
}
On *:text:!addchan *:#:{ If ($nick isop $chan || $nick ishop $chan) {
    /mode $chan +b $+( ~c:,$2 )
  }
}
On *:text:!delchan *:#:{ If ($nick isop $chan || $nick ishop $chan) {
    /mode $chan -b $+( ~c:,$2 )
  }
}
On *:text:!leak *:#:{  if ($nick isop $chan || $nick ishop $chan) {
    inc %leakers
    /mode $chan +b $nick | /kick $chan $2 14GTFO You stupid leaker. We have cought4 %leakers 14Leakers.
  }
}
On *:text:!RSN *:#:{  if ($nick isop $chan || $nick ishop $chan) {
  /ban -ku60 $chan $2 12 1 min ban .. Please use your 4RSN12, Thanks.   }
}
on *:TEXT:!count*:#: { msg $chan 10There are currently7 $nick($chan,0) 10users on7 $chan $+ . 10 $nick($chan,0,o) 4Ops,10 $nick($chan,0,h) 7Halfops,10 $nick($chan,0,v) 12Voiced,10 and $nick($chan,0,r) 3Regular. }

on *:text:!chans *:#:{
  if ($nick isop $chan || $nick ishop $chan || $nick isvoice $chan) {
    set %whois $chan
    set %nick $2
    whois %nick
  }
}
raw 319:*:{
  if (%whois) {
    msg %whois 10 $2 is on:7 $3-
    unset %whois
    unset %nick 
  }
}
on $*:TEXT:/^[!@]massd?[vho]/Si:#:{
  if ($address($me,4) == $address($nick,4)) || ($nick isop $chan) {
    var %massm = 0
    while (%massm < $nick($chan,0)) {
      inc %massm
      mode $chan $iif($right($1,2) == d $+ $right($1,1),- $+ $right($1,1),+ $+ $right($1,1)) $nick($chan,%massm)
    }
  }
}