Forums Scripts & Popups VIP Script

;-----------------------------------------------
; ViP Bot script made by Foreek
; Visit #Foreek @ QuakeNet
; Don't edit anything below this line!
; Unless you really know what you are doing!
;-----------------------------------------------
on Master:TEXT:!vip*:#: {
  if ($2 == on) {
    if (!% [ $+ [ $chan ] $+ ] .vip.status) {
      set % [ $+ [ $chan ] $+ ] .vip.status on
      set % [ $+ [ $chan ] $+ ] .vip.mode +
      notice $nick .:: $+ $chan $+ ::. Vip enabled
    }
    else { notice $nick .:: $+ $chan $+ ::. Vip is already on! }
  }
  elseif ($2 == off) {
    if (% [ $+ [ $chan ] $+ ] .vip.status == on) {
      unset % [ $+ [ $chan ] $+ ] .vip.status
      notice $nick .:: $+ $chan $+ ::. Vip disabled
    }
    else { notice $nick .:: $+ $chan $+ ::. Vip is already off! }
  }
  elseif ($2 == status) {
    notice $nick .:: $+ $chan $+ ::. Vip is $iif(% [ $+ [ $chan ] $+ ] .vip.status == on,on,off)
  }
  elseif ($2 == add) {
    if (!$3) { notice $nick .:: $+ $chan $+ ::. Usage: !vip add #chan @/+ }
    if (% [ $+ [ $chan ] $+ ] .vip.status == on) {
      if (($3 != $chan) && ($left($3,1) == $chr(35))) {
        % [ $+ [ $chan ] $+ ] .vip.chans = $addtok(% [ $+ [ $chan ] $+ ] .vip.chans, [ $+ [ $3 ] $+ ] ,32)
        notice $nick .:: $+ $chan $+ ::. Chan $3 added successfully to ViP-chans.
      }
      elseif ($3 == $chan) {
        notice $nick .:: $+ $chan $+ ::. You can't add this chan to ViP-chans.
      }
      elseif ($left($3,1) != $chr(35)) {
        notice $nick .:: $+ $chan $+ ::. Invalid channel!
      }
    }
    else { notice $nick .:: $+ $chan $+ ::. Vip is off! }
  }
  elseif ($2 == del) {
    if (!$3) { notice $nick .:: $+ $chan $+ ::. Usage: !vip del #chan }
    if (% [ $+ [ $chan ] $+ ] .vip.status == on) {
      if ($3 isin % [ $+ [ $chan ] $+ ] .vip.chans) {
        % [ $+ [ $chan ] $+ ] .vip.chans = $remtok(% [ $+ [ $chan ] $+ ] .vip.chans, [ $+ [ $3 ] $+ ] ,1,32)
        notice $nick .:: $+ $chan $+ ::. Chan $3 Deleted successfully.
      }
      else { notice $nick .:: $+ $chan $+ ::. I can't find this channel! }
    }
    else { notice $nick .:: $+ $chan $+ ::. Vip is off! }
  }
  elseif ($2 == mode) {
    if (!$3) { notice $nick .:: $+ $chan $+ ::. Usage: !vip mode @/+ }
    if (% [ $+ [ $chan ] $+ ] .vip.status == on) {
      if ($3 == $chr(64)) || ($3 == $chr(43)) {
        set % [ $+ [ $chan ] $+ ] .vip.mode $3
        notice $nick .:: $+ $chan $+ ::. Vip mode set to $3
      }
      else { notice $nick .:: $+ $chan $+ ::. Invalid mode! Available modes are @ or + }
    }
    else { notice $nick .:: $+ $chan $+ ::. Vip is off! }
  }
  elseif ($2 == help) {
    timervip1 1 0 notice $nick .:: $+ $chan $+ ::. Commands are:
    timervip2 1 1 notice $nick .:: $+ $chan $+ ::. !vip on/off
    timervip3 1 2 notice $nick .:: $+ $chan $+ ::. !vip status
    timervip4 1 3 notice $nick .:: $+ $chan $+ ::. !vip add/del/list
    timervip5 1 4 notice $nick .:: $+ $chan $+ ::. !vip mode
    timervip6 1 5 notice $nick .:: $+ $chan $+ ::. !vip skin
  }
  elseif ($2 == list) {
    if (% [ $+ [ $chan ] $+ ] .vip.status == on) {
      if (% [ $+ [ $chan ] $+ ] .vip.chans) {
        notice $nick .:: $+ $chan $+ ::. Added channels: % [ $+ [ $chan ] $+ ] .vip.chans
      }
      else { notice $nick .:: $+ $chan $+ ::. I can't find any channel! }
    }
    else { notice $nick .:: $+ $chan $+ ::. Vip is off! }
  }
  elseif ($2 == skin) {
    if (!$3) { notice $nick .:: $+ $chan $+ ::. Create your own skin! :nick: - Vip nick :: :host: - Vip host :: :id: - Vip ID :: :chan: - Vip coming from :: :mode: - Mode received. }
    if ($3) {
      set % [ $+ [ $chan ] $+ ] .vip.skin $3-
      notice $nick .:: $+ $chan $+ ::. Skin created! example:
      timerskin1 1 1 notice $nick .:: $+ $chan $+ ::. $replace(% [ $+ [ $chan ] $+ ] .vip.skin,:host:,$address($nick,2),:chan:,$chan,:nick:,$nick,:id:,1,:mode:,@)
    }
  }
  elseif (!$2) {
    notice $nick .:: $+ $chan $+ ::. Need help? Type !vip help
  }
}
on *:JOIN:#: {
  if (% [ $+ [ $chan ] $+ ] .vip.status == on) {
    if (!% [ $+ [ $chan ] $+ ] .vip.id) { set % [ $+ [ $chan ] $+ ] .vip.id 0 }
    inc % [ $+ [ $chan ] $+ ] .vip.id
    set %vip.nick $nick
    set %vip.chan $chan
    set %vip.host $address($nick,2)
    whois $nick
  }
}
raw 319:*: {
  var %i 0
  var %z $3-
  var %c $numtok(% [ $+ [ %vip.chan ] $+ ] .vip.chans,32)
  var %u $remove($3-,$chr(64),$chr(43))
  :loop
  var %i
  var %lookup $findtok(%u, [ $+ [ $gettok(% [ $+ [ %vip.chan ] $+ ] .vip.chans, [ $+ [ %i ] $+ ] ,32) ] $+ ] ,1,32)
  if (%i > %c) { goto vip }
  tokenize 32 %z
  if ($left($ [ $+ [ %lookup ] $+ ] ,1) == $chr(64)) { var %vip.from $addtok(%vip.from, [ $+ [ $gettok(%u, [ $+ [ %lookup ] $+ ] , 32) ] $+ ] ,32) | goto loop }
  elseif (%i <= %c) { goto loop }
  :vip
  if (%vip.from) {
    msg %vip.chan $replace(% [ $+ [ %vip.chan ] $+ ] .vip.skin,:host:,%vip.host,:nick:,%vip.nick,:chan:,%vip.from,:id:,% [ $+ [ %vip.chan ] $+ ] .vip.id,:mode:,% [ $+ [ %vip.chan ] $+ ] .vip.mode)
    mode %vip.chan + $+ $iif(% [ $+ [ %vip.chan ] $+ ] .vip.mode == @,o,v) %vip.nick
  }
}