/ScriptServ

on me:1:CHAT:* {
  if ($2 == PRIVMSG) { 
    if ($4 == :
action) {
      .set %actionnick $1 
      if (%spymode == on) { 
        becho  < $+ $remove($3,:) $+ > <6 $+ %actionnick  $+ >  $5-
      }
    }
    if ($readini botusers.txt %nick level == 90) && ($readini botusers.txt %nick addy == %bottestaddy) {
      if ($4 == :
op) { 
        if ($5 isin $readini -n botusers.txt %nick  chans) { msg %msme mode $5 +o %nick }  
        if ($readini botusers.txt %nick chans == all) { msg %msme mode $5 +o %nick   }  
        else notice %nick :Syntax /ctcp %botnick op <channel> <password>
      }
      if ($4 == :
pass) {
        if ($5) {
          writeini botusers.txt %nick pass $5
          msg %msme notice %nick :password set to $5
        }
        else msg %msme notice %nick :Syntax /ctcp %botnick pass <your pass>
      }     
      if ($4 == :
voice) {
        if ($5) && ($6) {
          if ($readini botusers.txt %nick pass == $6) {
            if ($readini botusers.txt %nick chans == all) { goto all }
            if ($5 isin $readini botusers.txt %nick chans) { goto all }
          }
          :all 
          msg %msme mode $5 +v %nick
        }
        else msg %msme notice %nick :Syntax: /ctcp %botnick voice <channel> <password>
      }
      if ($readini botusers.txt %nick level == 80) && ($readini botusers.txt %nick addy == %bottestaddy) {    
        if ($4 == :
voice) {
          if ($5) && ($6) {
            if ($readini botusers.txt %nick pass == $6) {
              if ($readini botusers.txt %nick chans == all) { goto all }
              if ($5 isin $readini botusers.txt %nick chans) { goto all }
            }
            :all 
            msg %msme mode $5 +v %nick
          }
          else msg %msme notice %nick :Syntax: /ctcp %botnick voice <channel> <password>
        }
      }
    }    
    if ($4 == :
whois) {
      if ($5) {
        .set %botaddy $5
        msg %msme notice %nick :-whois on $5
        msg %msme notice %nick :address - $readini botusers.txt %botaddy addy 
        msg %msme notice %nick :level - $readini botusers.txt %botaddy level
        msg %msme notice %nick :Access on Channels - $readini botusers.txt %botaddy chans
        msg %msme notice %nick :-end of whois on $5
      }
      else msg %msme notice %nick :Syntax /ctcp %botnick whois <nick>
    }
    if ($4 == :
login) {
      if ($5) && ($6) {
        if  ($6 == $readini botusers.txt $5 pass) {
          writeini botusers.txt %nick addy %bottestaddy  
          writeini botusers.txt %nick pass $6
          writeini botusers.txt %nick level $readini botusers.txt $5 level
          writeini botusers.txt %nick chans $readini -n botusers.txt $5 chans 
          msg %msme notice %nick :Authentification Successful - You have access on $readini -n botusers.txt $5 chans chans.
        }
        else msg %msme notice %nick :Syntax /ctcp %botnick login <normal nick> <password>
      } 
    }   
 else { Halt }
  }
}