All pastes #89429 Raw Edit

Someone

public text v1 · immutable
#89429 ·published 2006-07-16 06:54 UTC
rendered paste body
on *:TEXT:*:#:{ 
  if ($1 == $hget($chan,trigger) $+ addop) {
    if ($chan == #AvidBots) && ($me == AvidServ) {
      if ($hget($chan,$nick) >= 250) && (!$hget($chan,$2)) {
        hadd -m $chan $2 200
        msg $chan $1 I have added $2 to the ops list
      }
      elseif ($hget($chan,$2)) {
        msg $chan $1 $2 is already on the user list please use clvl
      }
      elseif ($hget($chan,$nick) < 250) {
        msg $chan $1 $nick you do not have enough access
      }
    }
    elseif ($chan != #AvidBots) && ($me != AvidServ) {
      if ($hget($chan,$nick) >= 250) && (!$hget($chan,$2)) {
        hadd -m $chan $2 200
        msg $chan $1 I have added $2 to the ops list
      }
      elseif ($hget($chan,$2)) {
        msg $chan $1 $2 is already on the user list please use clvl
      }
      elseif ($hget($chan,$nick) < 250) {
        msg $chan $1 $nick you do not have enough access
      }
    }
  }
  elseif ($1 == $hget($chan,trigger) $+ setinfo) {
    if ($hget(staff,$nick)) && ($me == avidServ) {
      hadd staff $nick $2-
      msg $chan $1 I have set your new staff setinfo to $2-
    }
    elseif (!$hget(staff,$nick)) && ($me == AvidServ) {
      msg $chan $1 You are not on staff! 
    }
  }
  elseif ($1 == $hget($chan,trigger) $+ clvl) {
    if ($chan == #AvidBots) && ($me == AvidServ) {
      if (!$hget($chan,$nick)) {
        msg $chan $1 You do not have enough access
        haltdef
      }
      if (!$hget($chan,$2)) {
        set %ds 1
        msg $chan $1 $2 has no access on $chan Please use @adduser
        haltdef   
      }
      if ($3 !isnum) {
        msg $chan $1 $3 unknown access level
        haltdef
      }
      if ($3 >= $hget($chan,$nick)) && (%ds != 1) {
        set %dn 1
        msg $chan $1 You silly bear you can not change someones access to higher then your own
        haltdef   
      }
      elseif (%ds == 1) {
        haltdef
        unset %ds
      }
      if ($hget($chan,$nick) >= $hget($chan,$2)) && (%dn != 1) {
        hadd $chan $2 $3
        msg $chan $1 I have clvled $2 to access to $3
      }
      elseif (%dn == 1) {
        haltdef
        unset %dn
      }
      elseif ($hget($chan,$nick) => $hget($chan,$2)) {
        msg $chan [CLVL] You do not have enough access
      }
    }
    elseif ($chan != #AvidBots) && ($me != AvidServ) {
      if (!$hget($chan,$nick)) {
        msg $chan $1 You do not have enough access
        haltdef
      }
      if (!$hget($chan,$2)) {
        set %ds 1
        msg $chan $1 $2 has no access on $chan Please use @adduser
        haltdef   
      }
      if ($3 !isnum) {
        msg $chan $1 $3 unknown access level
        haltdef
      }
      if ($3 >= $hget($chan,$nick)) && (%ds != 1) {
        set %dn 1
        msg $chan $1 You silly bear you can not change someones access to higher then your own
        haltdef   
      }
      elseif (%ds == 1) {
        haltdef
        unset %ds
      }
      if ($hget($chan,$nick) >= $hget($chan,$2)) && (%dn != 1) {
        hadd $chan $2 $3
        msg $chan $1 I have clvled $2 to access to $3
      }
      elseif (%dn == 1) {
        haltdef
        unset %dn
      }
      elseif ($hget($chan,$nick) => $hget($chan,$2)) {
        msg $chan $1 You do not have enough access
      }
    }
  }
  elseif ($1 == $hget($chan,trigger) $+ delme) {
    if ($chan == #AvidBots) && ($me == AvidServ) {
      if ($hget($chan,$nick)) && ($hget($chan,$nick) != 500) {
        hdel $chan $nick
        notice $nick I have deleted you [ $+ $nick $+ ]
      }
      elseif (!$Hget($chan,$nick)) {
        msg $chan $1 I can not find you in my database please try again
      }
      elseif ($hget($chan,$nick) == 500) {
        msg $chan $1 You can not delete yourself you are owner of $chan please try %maintrigger $+ unregister
      }
    }
    elseif ($chan != #AvidBots) && ($me != AvidServ) {
      if ($hget($chan,$nick)) && ($hget($chan,$nick) != 500) {
        hdel $chan $nick
        notice $nick I have deleted you [ $+ $nick $+ ]
      }
      elseif (!$Hget($chan,$nick)) {
        msg $chan I can not find you in my database please try again
      }
      elseif ($hget($chan,$nick) == 500) {
        msg $chan You can not delete yourself you are owner of $chan please try %maintrigger $+ unregister in #AvidBots
      }
    }
  }
  elseif ($1 == $hget($chan,trigger) $+ deluser) {
    if ($chan == #Avidbots) && ($me == AvidServ) {
      if ($hget($chan,$nick)) && ($hget($chan,$2)) {
        if ($hget($chan,$nick) > $hget($chan,$2)) {
          hdel $chan $2
          notice $nick I have deleted $2 $+ .
        }
        elseif (!$hget($chan,$nick)) {
          notice $nick You do not have enough access
        }
        elseif (!$hget($chan,$2)) {
          notice $nick I can not find $2 in my database
        }
        elseif ($hget($chan,$nick) < $hget($chan,$2)) {
          notice $nick not enough access
        }
      }
    }
    elseif ($chan != #Avidbots) && ($me != AvidServ) {
      if ($hget($chan,$nick)) && ($hget($chan,$2)) {
        if ($hget($chan,$nick) > $hget($chan,$2)) {
          hdel $chan $2
          notice $nick I have deleted $2 $+ .
        }
        elseif (!$hget($chan,$nick)) {
          notice $nick You do not have enough access
        }
        elseif (!$hget($chan,$2)) {
          notice $nick I can not find $2 in my database
        }
        elseif ($hget($chan,$nick) < $hget($chan,$2)) {
          notice $nick not enough access
        }
      }
    }
  }
  elseif ($1 == $hget($chan,trigger) $+ set) {
    if ($chan == #AvidBots) && ($me == AVidServ) { 
      if ($2 == skin) && ($hget(skins,$3)) && ($3 isnum) {
        hadd -m $chan skin $hget(skins,$3)
        msg $chan $1 I have set skin to $hget(skins,$3)
      }
      elseif ($hget(skins,$3) == $null) {
        msg $chan $1 I can not find skin $eval(#,0) $+ $3
      }
      elseif ($3 !isnum) {
        msg $chan $1 $3 is not a number
      }
    }
    elseif ($chan != #AvidBots) && ($me != AvidServ) {
      if ($2 == skin) {
        if ($hget(skins,$3)) && ($3 isnum) {
          hadd -m $chan skin $hget(skins,$3)
          msg $chan $1 I have set skin to $hget(skins,$3)
        }
        elseif ($hget(skins,$3) == $null) {
          msg $chan $1 I can not find skin $eval(#,0) $+ $3
        }
        elseif ($3 !isnum) {
          msg $chan $1 $3 is not a number
        }
      }
    }
    elseif ($2 == trigger) && ($3 !isnum) {
      hadd $chan trigger $3
      msg $chan $1 I have set trigger to $3
    }
    elseif ($3 isnum) {
      msg $chan you can not use a number for a trigger
    }
  }
  elseif ($1 == $hget($chan,trigger) $+ bind) {
    if ($chan == #AvidBots) && ($me == AvidServ) {
      if ($2) {
        if (!$hget($chan,$nick)) {
          notice $nick you do not have enough access
          halt
        }
        if ($hget($chan,$nick) < 200) {
          notice $nick you do not have enough access
          halt
        }
        if (!$3) { .notice $nick $2 [PARAMETER] Not enough parameteres | halt }
        if ($3 == *) || ($3 == none) || ($3 == off) { unset $+(%,$chan,$2) | .notice $nick $2 I have removed all binds | halt }
        set $+(%,$chan,$2) $3-
        .notice $nick $2 for # has been set to $3-
      }
    }
    elseif ($chan != #Avidbots) && ($me != AvidServ) {
      if ($2) {
        if (!$hget($chan,$nick)) {
          notice $nick you do not have enough access
          halt
        }
        if ($hget($chan,$nick) < 200) {
          notice $nick you do not have enough access
          halt
        }
        if (!$3) { .notice $nick $2 [PARAMETER] Not enough parameteres | halt }
        if ($3 == *) || ($3 == none) || ($3 == off) { unset $+(%,$chan,$2) | .notice $nick [Removed] I have removed $2 | halt }
        set $+(%,$chan,$2) $3-
        .notice $nick $2 for # has been set to $3-
      }
    }
  }
}