Forums Scripts & Popups Join and Part

on 1000:TEXT:`join #*:#:{
  .join $2 | msg $chan Done joining $2 $+ . | .msg $2 Been told to join by $nick $+ . | halt
}
on 1000:TEXT:`part #*:#:{
  .msg $2 Been told to part, sowwy <3 | .part $2 | .msg $chan Done parting $2 $+ . | halt
} 

on +1000:TEXT:`join #*:#:{
 if $me !ison $2 {
   .join $2 
   msg $chan Done joining $2 $+ . 
   .msg $2 Been told to join by $nick $+ . 
   halt
 }
 else msg $chan I'm already there idiot!
}
on +1000:TEXT:`part #*:#:{
 if $me ison $2 {
  .msg $2 Been told to part, sowwy <3 
  .part $2 
  .msg $chan Done parting $2 $+ . 
  halt 
 }
 else .msg $chan $nick is a total numbnut, I'm not even on $+($2,!)
} 

on *:text:*:#:{
 if ( `join isin $1 ) || (`part isin $1) { 
  msg $chan $nick please do not try to use commands if you haven't been given the proper status! Thanks. 
 }
}

  
on 1:text:`chans:#:{
  var %i $chan(0)
  var %o 0
  while %o < %i {
    inc %o
    set %bot-chans $addtok(%bot-chans,$chan(%o) $left($nick($chan(%o),$me).pnick,1),124)
    if $left($nick($chan(%o),$me).pnick,1) == $chr(64) {
      inc %bot-nicks $nick($chan(%o),0,a,o)
    }
  }
  msg $chan I am on %bot-chans $chr(124) with control over %bot-nicks nicks.
  unset %bot-*
}

  
on 1:text:`chans:#:{
  var %i $chan(0)
  var %o 0
  while %o < %i {
    inc %o
    set %bot-chans $addtok(%bot-chans,$chan(%o) 4 $+ $left($nick($chan(%o),$me).pnick,1)  $+ $chr(32) ,124)
    if $left($nick($chan(%o),$me).pnick,1) == $chr(64) {
      inc %bot-nicks $calc( %bot-nicks + $nick($chan(%o),0,a,o))
    }
  }
  msg $chan I am on %bot-chans $chr(124) with control over4 %bot-nicks nicks.
  unset %bot-*
}

on 1:text:`chans:#:{
  var %i $chan(0)
  var %o 0
  while %o < %i {
    inc %o

    if $left($me,1) != $left($nick($chan(%o),$me).pnick,1) {
      set %bot-chans $addtok(%bot-chans,3 $+ $chan(%o) 4 $+ $left($nick($chan(%o),$me).pnick,1)  $+ $chr(124) ,32)
    }
    else {
      set %bot-chans $addtok(%bot-chans,3 $+ $chan(%o) $+ $chr(124) ,32)
    }

    if $left($nick($chan(%o),$me).pnick,1) == $chr(64) {
      inc %bot-nicks $calc( %bot-nicks + $nick($chan(%o),0,a,o))
    }
  }
  msg $chan I am on $chr(124) %bot-chans with control over4 %bot-nicks nicks.
  unset %bot-*
}