Botadmin + channel

on *:text:*:#: {
  if ($1 == !status || $1 == !statusall || $1 == .status) {
    if ($readini(status.ini,$network,$chan) == off) { notice $nick 7 $me 14is Disabled }
    else { notice $nick  7 $me 14 is enabled }
  }
  if ($1- == !leave $me || $1- == !gtfo || $1- == !leave ) && ($nick isop $chan || $nick == Staton) {
    if ($chan == #staton) { echo I can't leave #staton }
    else { part $chan Requested by $nick }
  }
  if ($1- == !achan $me) && ($nick isop $chan) { writeini status.ini $network $chan on | msg %monitor 7 $me 14Has been Enabled in 7 $chan by 7 $nick 14(7 $address($nick,2) 14  ) | msg $chan 7 $me 14Has been Enabled }
  if ($1- == !rchan $me) && ($nick isop $chan) { writeini status.ini $network $chan off | msg %monitor 7 $me 14Has been Disabled in 7 $chan by 7 $nick 14(7 $address($nick,2) 14  ) | msg $chan 7 $me 14Has been Disabled } 
  if ($readini(status.ini,$network,$chan) == off) { halt } 
  else {
    if ($1 == !pv || $1 == .pv) && ($nick isop $chan) { cs access $chan add $2 3 }
    if ($1 == !po || $1 == .po) && ($nick isop $chan) { cs access $chan add $2 5 }
    if ($1 == !pa || $1 == .pa) && ($nick isop $chan) { cs access $chan add $2 10 }
    if ($1- == !leave $me || $1- == !gtfo || $1- == !leave ) && ($nick isop $chan || $nick == Staton) {
      if ($chan == #staton) { echo I can't leave #staton }
      else { part $chan Requested by $nick }
    }
    if ($1 == !half || $1 == .half) && ($nick isop $chan) { 
    mode $chan +h $2 }
    if ($1 == !dehalf || $1 == .dehalf) && ($nick isop $chan) { 
    mode $chan -h $2 }
    if ($1 == !del || $1 == .del) && ($nick isop $chan) { 
    cs access $chan del $2 }
    if ($1 == !invite || $1 == .invite) && ($nick isop $chan) { 
    invite $2 $chan }
    if ($1 == !commands || $1 == .commands) {
      msg $nick These must be followed by a nickname !voice  !devoice !op !deop !half !dehalf !k !kb !ban <must be in format of nick!user@host. < all of these commands can also be triggered by . >
      msg $nick !top shows the current topic. !colours show the colours list.
      msg $nick All channel commands triggered by !mode +/- <mode here>
      msg $nick !pv , !po, !pa set perm operator, perm voice and perm Protect on a nickname. The bot must be +q/+a to do this. !del , deletes the nick from access.
      msg $nick !cycle . makes the bot rejoin the channel. !bsay text , makes the bot say whatever u want. !invite nick, allows u to invite a nick.
      msg $nick !rchan [-STbot-] !achan [-STbot-] , turns the bot on and off. !leave [-STBot-] Makes the bot Leave. !Status tells you the current status
      msg $nick !ucount , counts the amount of people in the channel it's triggered in.
      msg $nick !calc , calculates.  !time gives the time in GMT. !ftb starts a 5 minute timer for TB.
    }
    if (!k * iswm $1- && $nick isop $chan) && ($2 !isop $chan) { kick $chan $2- }
    if (!ban * iswm $1- && $nick isop $chan) { mode $chan +b $2- | writeini bans.ini $chan $2- $2- }
    if (!kb * iswm $1- && $nick isop $chan) && ($2 !isop $chan) { ban -k $chan $2- }
    if (!voice * iswm $1- && $nick isop $chan && $2 !isop $chan) { mode $chan +v $2- }
    if (!devoice * iswm $1- && $nick isop $chan && $2 !isop $chan) { mode $chan -v $2- }
    if (!op * iswm $1- && $nick isop $chan) { mode $chan +o $2- }
    if (!deop * iswm $1- && $nick isop $chan) { mode $chan -o $2- }
    if (!protect * iswm $1- && $nick isop $chan) { mode $chan +a $2- }
    if (!deprotect * iswm $1- && $nick isop $chan) { mode $chan -a $2- }
    if (.k * iswm $1- && $nick isop $chan) && ($2 !isop $chan) { kick $chan $2- }
    if (.ban * iswm $1- && $nick isop $chan) { mode $chan +b $2- | writeini bans.ini $chan $2- $2- }
    if (.kb * iswm $1- && $nick isop $chan) && ($2 !isop $chan) { ban -k $chan $2- }
    if (.voice * iswm $1- && $nick isop $chan && $2 !isop $chan) { mode $chan +v $2- }
    if (.devoice * iswm $1- && $nick isop $chan && $2 !isop $chan) { mode $chan -v $2- }
    if (.op * iswm $1- && $nick isop $chan) { mode $chan +o $2- }
    if (.deop * iswm $1- && $nick isop $chan) { mode $chan -o $2- }
    if (!top iswm $1- || .top iswm $1-) { notice $nick $chan(#).topic }
    if (!cycle iswm $1- && $nick isop $chan) { hop $chan Rejoining. Requested by $nick } 
    if (.cycle iswm $1- && $nick isop $chan) { hop $chan Rejoining. Requested by $nick } 
    if (!colours iswm $1- || .colours iswm $1-) { notice $nick 01 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 10 10 11 11 12 12 13 13 14 14 15 15 }
    if (!mode * iswm $1- && $nick isop $chan) { mode $chan $2- }
    if ($1 == !bsay) { msg $chan $2- } 
    if (!calc * iswm $1- || .calc * iswm $1-) { notice $nick 14 $2- = 7 $calc($2-) }
    if ($1 == !ucount || $1 == .ucount) && ($nick isop $chan) { notice $nick 14 There are Currently7 $nick($chan,0) 14 users in $+ 7 $chan $+ . }
    if (!time iswm $1- || .time iswm $1-) {
      set %time $asctime(hh:nn tt)
      set %date $asctime(dddd doo mmmm yyyy)
      { Notice $nick  7 GMT :  14 %time 7and the date is:14 %date }
    }
    if ($1 == !ftb || $1 == .ftb) {
      //set % $+ $nick $chan {
      msg $chan 7 $nick 14Has Started a TB Timer of 5 Minutes. To end this type !endtb }
      $+(timer,$nick,$chan) 1 150 { notice $nick 7 $nick 14 2Minutes 50 Seconds have passed you have 2Minutes 50 Seconds left! }
      $+(timer,$nick,$chan,2)  1 300 { notice $nick 7 $nick 14 5 Minutes is over! }
    }    
    if ($1 == !endtb || $1 == .endtb) {
      $+(timer,$nick,$chan) off
      $+(timer,$nick,$chan,2) off 
      {
      notice $nick 7 $nick 14 Has Ended thier timer. }
    }
    if ($1 == !unban || $1 == .unban ) {
      if ($readini(bans.ini,$chan,$2)) { mode $chan -b $v1 }
    } 
    if ($ulevel <= 1000) { HALT } 
    if ($1 == !addowner) {
      if ($readini(acc-list.ini,owner,$address($2,2)) == yes) { halt } 
      else { 
        writeini acc-list.ini owner $address($2,2) yes  
        msg %monitor 7 $2  14Has Been Added to Auto Owner
      }
    }
    if ($1 == !addprotect) {
      if ($readini(acc-list.ini,protect,$address($2,2)) == yes) { halt } 
      else { 
        writeini acc-list.ini protect $address($2,2) yes  
        msg %monitor 7 $2  14Has Been Added to Auto Protect
      }
    }
    if ($1 == !addop) {
      if ($readini(acc-list.ini,op,$address($2,2)) == yes) { halt } 
      else { 
        writeini acc-list.ini op $address($2,2) yes  
        msg %monitor 7 $2  14Has Been Added to Auto Op
      }
    }
    if ($1 == !testing ) { writeini protect.ini $chan $address($2,2) yes | msg $chan test }
    if ($1 == !addhalfop) {
      if ($readini(acc-list.ini,halfop,$address($2,2)) == yes) { halt } 
      else { 
        writeini acc-list.ini halfop $address($2,2) yes  
        msg %monitor 7 $2  14Has Been Added to Auto Halfop
      }
    }
    if ($1 == !addvoice) {
      if ($readini(acc-list.ini,voice,$address($2,2)) == yes) { halt } 
      else { 
        writeini acc-list.ini voice $address($2,2) yes  
        msg %monitor 7 $2  14Has Been Added to Auto Voice 
      }
    }
    if ($1 == !botadmin) { guser 1001 $2 ) |  msg %monitor 7 $2 14Has Been 7Added 14to Botadmin Status By 7 $nick 14(7 $address($nick,2) 14) }
    if ($1 == !rbotadmin) {  ruser 1001 $2! |  msg %monitor 7 $2 14Has Been 7Deleted 14From Botadmin Status By 7 $nick 14(7 $address($nick,2) 14) }
    if ($1 == !perform) { $2-1000 |  msg %monitor 14[7Perform Command14] ' $2-1000 ' 14Used on4 $chan 14By $nick 14(7 $address($nick,2) 14  ) }  
    if ($1 == !join) && ($nick == Staton) { join $2 }
    if ($1 == !part) && ($nick == Staton) { part $2 $3-100 }
    if ($1- == !rchan $me) { writeini status.ini $network $chan off | msg %monitor 7 $me 14Has been Disabled in 7 $chan by 7 $nick 14(7 $address($nick,2) 14  ) | msg $chan 7 $me 14Has been Disabled  }
    if ($1 == !count) {
      if ($nick isop $chan) || ($nick ishop $chan) {
        msg $chan 14 There are Currently7 $nick($2-,0) 14 users in $+ 7 $2- $+ .
      }
    }
    if ($1 == !chans) {
      %i = 1
      %chan =
      while ( %i <= $chan(0) ) {
        %chan = %chan - $chan(%i)
        inc %i
      }
      /notice $nick 14 I'm on 7 %chan 14on 7 $network . 14 This is 7 $chan(*) 14 Channels altogether.
      unset %chan
    }
    if ($1 == !disableall ) { 
    remote off | msg %monitor 7 $me 14 Has been disabled completely on all channels by 7 $nick 14(7 $address($nick,2) 14  ) . }
    if ($1 == !enableall ) { 
    remote on | msg %monitor 7 $me 14 Has been Enabled completely on all channels by 7 $nick 14(7 $address($nick,2) 14  ) . }
    if ($1 == !global) { amsg 14[7GLOBAL14]  $2- | msg %monitor 14[7GlobalCommand14]14 ' 7 $2- 14' Used by $nick 14(7 $address($nick,2) 14  )  } 

  }

on 1000:text:*:#: {
  if (!set * iswm $1- ) { mode $chan $2- | msg %monitor 14[7Set command14] ' $2-1000 ' 14Used on4 $chan 14By $nick 14(7 $address($nick,2) 14  ) }
}

joins and parts
on *:JOIN:*:{
  if ($nick == $me ) { msg %monitor 4[3Join4] I've Joined 4 $chan on 14 $network }
  if ($nick == $me) { msg $chan 7[-STbot-] 14Scripted by Staton. For a Full list of Commands type !commands }
  if ($chan == #) {
    if ($readini(acc-list.ini,owner,$address($nick,2)) == yes) { mode #Staton +q $nick }
    if ($readini(founder.ini,$chan,$address($nick,2)) == yes) { mode $chan +q $nick }
    if ($readini(protect.ini,$chan,$address($nick,2)) == yes) { mode $chan +ao $nick $nick }
    if ($readini(op.ini,$chan,$address($nick,2)) == yes) { mode $chan +o $nick }
    if ($readini(halfop.ini,$chan,$address($nick,2)) == yes) { mode $chan +h $nick }
    if ($readini(voice.ini,$chan,$address($nick,2)) == yes) { mode $chan +v $nick }
    if ($readini(acc-list.ini,protect,$address($nick,2)) == yes) { mode #Staton +ao $nick $nick }
    if ($readini(acc-list.ini,op,$address($nick,2)) == yes) { mode #Staton +o $nick }
    if ($readini(acc-list.ini,halfop,$address($nick,2)) == yes) { mode #Staton +h $nick }
    if ($readini(acc-list.ini,voice,$address($nick,2)) == yes) { mode #Staton +v $nick }
  } 
}

On *:JOIN:*{
if ($chan == #staton)
{ msg $chan 13!5!13!14 4This 7channel 6has 13been 9joined %Jointcount Times! 13!5!13!14 | Inc %jointcount 1 } 


on *:part:*:{
  if ($nick == $me) { msg %monitor 4[3Part4] I've parted 4 $chan on 14 $network }
}

on *:INVITE:#:{
Msg %monitor 4[3Invite4] 14Invited to 7 $chan 14by 7 $nick 14(7 $address($nick,2) 14  ) }

PROTECTS

on *:KICK:#: {
  if ($knick == $me) && ($nick != $me) {
    /cs Invite $chan 
    timer 1 1 /join $chan
    timer 1 2 /cs unban $chan 
    timer 1 3  { msg %monitor 4Kicked: 14on $chan by $nick 14( 7 $address($nick,2) 14) }
    timer 1 4 msg $chan 14 To make me leave type !leave 7 $me , 14You must be an Op to do this.
  }
}
on *:BAN:#: {
  if ($bnick == $me ) { cs unban $chan | msg %monitor 4Banned: 14 Banned on 7 $chan 14by 7 $nick 14(7 $address($nick,2) 14  ) .   }
  if ($me isop $chan ) {
  writeini bans.ini $chan $bnick $banmask }
}