SV-vater

on *:TEXT:*:?:{
  if ($1 == SLOTS) {
    var %p 1
    while (%p <= $lines($me $+ .channels.txt)) {
      if ($2 == $gettok($read($me $+ .channels.txt,%p),2,32)) {
        .msg $nick SLOTS $3 $2 is already the owner of $gettok($read($me $+ .channels.txt,%p),1,32) $+ . Logged Address: $gettok($read($me $+ .channels.txt,%p),3,32)
        halt
      }
      inc %p
    }
    .msg $nick SLOTS $calc(20 - $chan(0)) $2 
  }
  if ($1 == JOIN) {
    write $me $+ .channels.txt $2 $3 $4
    .msg $nick BOTJOIN $3 Bot $me has been dispatched to your channel ( $+ $2 $+ ) You are now the owner of $me in channel $2 $+ . (Your Logged Address: $4 $+ ) 
    join $2 
    .notice $3 You are now my owner in $2 $+ . Type @commands to view my command list.
  }
  if ($1 == BROADCAST) {
    var %p 1
    while (%p <= $lines($me $+ .channels.txt)) {
      .msg $gettok($read($me $+ .channels.txt,%p),1,32) $2-
    }
  }
  if ($1 == CHANLIST) {
    var %p 1
    var %chans. $+ $me
    while (%p <= $lines($me $+ .channels.txt)) {
      set %chans. $+ $me %chans. [ $+ [ $me ] ] $gettok($read($me $+ .channels.txt,%p),1,32)
      inc %p
    }
    .notice $2 Channels: %chans. [ $+ [ $me ] ]
  }
  if ($1 == INFO) {
    var %p 1
    var %chans. $+ $me
    while (%p <= $lines($me $+ .channels.txt)) {
      if ($2 == $gettok($read($me $+ .channels.txt,%p),1,32)) {
        .msg $nick INFO $3 Channel: $2 Bot: $me Owner: $gettok($read($me $+ .channels.txt,%p),2-,32)
        halt
      }
      inc %p
    }
  }
  if ($1 == RAW) {
    $2-
  }
  if ($1 == BOTNICKS) {
    nick $3 $+ $right($me,3)
    .timer $+ $3 $+ $right($me,3) 1 5 $!iif($3 == $mid($me,1,-3),msg $nick BOTNICKCON Bot $me nick changed successfully!,botnickdeny $4 $2) 
  }
  if ($1 == BOTNICKCHANGEBACK) {
    nick $3 $+ $right($me,3)
    .timer $+ $3 $+ $right($me,3) 1 5 $!iif($3 == $mid($me,1,-3),msg $nick BOTNICKCON Bot $me nick changed back successfully!,botnickdeny %botnicks $2) 
  }
}
alias botnickdeny {
  msg $nick BOTNICKDEN $1 $2 Bot $me $+ 's nick was unable to be changed. Nick may already be in use.
  halt
}
on *:JOIN:#:{
}