on *:text:!vip*:#:{
  if $2 == ekle {
    write vip.txt $+ $3- $+
    msg # $3- VIP olarak eklendi. !VIP list yazarak VIP kullanıcıları listeleyebilirsiniz.
  }
  if $2 == sil {
    if $nick isop $chan {
      if !$3 {
        msg # VIP kullanıcı silmek icin numara belirtmelisiniz.
        halt
      }
      else {
        write $+(,-dl,$3,) vip.txt
        msg # $3 numarali VIP kullanıcı silindi.
      }
    }
    else {
      msg # VIP kullanıcıları sadece yoneticiler silebilir.
      halt
    }
  }
  if $2 == list {
    if $lines(vip.txt) = 0 { msg # VIP bulunamadi. | halt }
    msg # vip listeleniyor.
    var %srzd 1
    while (%srzd <= $lines(vip.txt)) {
      msg # %srzd $read(vip.txt,%srzd)
      inc %srzd
    }
  }

  on *:JOIN:#VIP:{
  if !$istok(#Muaf-Kanal #Muaf-Kanal1 #Muaf-Kanal2,$chan,32) {
    amsg Sunucumuz VIP Kullanıcılarında $nick şuanda online. 
    msg $chan $Nick VIP Kullanıcı olarak giriş yapmıştır. Hostu değiştirilmiştir, +W flag'ı eklenmiştir.)
    os raw svsmode $nick +W
    chghost $nick VIP.Domain.COM
  }
}
}