VIP SCRIPT

on *:join:#: {
  if ($nick != $me) {
    set %chan $chan
    set %cmd join
    whois $nick
  }
}

on *:load:{
  echo 1VIP Script loaded.
  set %owner $?="Entrez ici le hostmask du owner (Par exemple: *!*@auth.users.quakenet.org)" 
  echo 1Owner: %owner
}

on @*:text:.vip*:#: {
  var %adresse $address($nick,2)
  if (%adresse !isin %owner) {
    notice $nick 1,0—7» 7S1orry $nick $+ , but you're not admin in $chan
  }
  else {
    if ($2 == on) {
      set %vip on 
      timer 1 1 msg $chan 1,0—7» 1V7i1p 1mode is now %vip 
    }
    elseif ($2 == off) {
      set %vip off 
      timer 1 1 msg $chan 1,0—7» 1V7i1p 1mode is now %vip  

    }
    elseif (!$2) {
      msg $chan 1,0—7» 1V7i1p 1mode is %vip  
    }
    else {
      msg $chan 1,0—7» 1V7i1p 1mode is %vip  
    }
  }
}

on @*:text:.list-vip*:#: {
  var %adresse $address($nick,2)
  if (%adresse !isin %owner) {
    notice $nick 1,0—7» 7S1orry $nick, but you're not admin in $chan
  }
  else {
    notice $nick - 1,0—7» 7L1iste des chans vip: %listevip 
  }
}


on @*:text:.add-vip*:#: {
  if (!$2 ) {
    msg $chan 1,0—7» S1yntaxe: .add-vip #chan
    halt
  }
  elseif ($left($2,1) != $chr(35)) {
    msg $chan 1,0—7» S1yntaxe: .add-vip #chan 
    halt
  }
  var %adresse $address($nick,2)
  if (%adresse isin %owner) {
    var %nbrchan = $numtok(%listevip,32)
    var %i = 0
    while (%i <= %nbrchan) {
      if ($2 == $gettok(%listevip,%i,32)) {
        notice $nick 1,0—7» T1he channel $2 is already a vip.
        halt
      }
      inc %i
    }
    set %listevip %listevip $2
    notice $nick 1,0—7» T1he chan $2 have been added to the vip list.
  }
  else {
    notice $nick 1,0—7» 7S1orry $nick, but you're not admin in $chan
  }
}

on @*:text:.del-vip*:#: {
  if (!$2 ) {
    msg $chan 1,0—7» S1yntaxe: .del-vip #chan
    halt
  }
  elseif ($left($2,1) != $chr(35)) {
    msg $chan 1,0—7» S1yntaxe: .del-vip #chan
    halt
  }
  var %adresse $address($nick,2)
  if (%adresse isin %owner) {
    var %nbrchan = $numtok(%listevip,32)
    var %i = 0
    while (%i <= %nbrchan) {
      if ($2 == $gettok(%listevip,%i,32)) {
        set %listevip $remove(%listevip,$2)
        notice $nick 1,0—7» T1he chan $2 have been deleted from the vip list.
        halt
      }
      inc %i
    }
    notice $nick   1,0—7» T1he chan $2 isn't in the vip list.
  }
  else {
    1,0—7» 7S1orry $nick, but you're not admin in $chan
  }
}

raw 319:* {
  if ((%vip == on) && (%cmd == join)) {
    unset %cmd
    var %nbrchan = $numtok(%listevip,32)
    var %nbrchan2 = $numtok($3-,32) 
    var %i = 1
    while (%i <= %nbrchan) {
      var %j = 1
      while (%j <= %nbrchan2) {
        if ($gettok($3-,%j,32) ==  @ $+ $gettok(%listevip,%i,32)) {
          msg %chan 7,0—1» kikoo7,0 $2 1[7,0¤1,0] you're vip from $gettok(%listevip,%i,32), so you get +7,0o1,0 on %chan [7,0¤1,0] enj7,0O1,0y 
          mode %chan +o $2
          goto end
        }
        inc %j
      }
      inc %i
    }
  }
  :end
  unset $(%cmd,%chan)
}