on *:text:*:#:{
  if $1 == !op { if !$istok(Nick Nick1 Nick2 Nick3,$nick,32) { msg # Bu komutu kullanmaya yetkili degilsiniz. | return } | mode # +o $nick }
  if $1 == !deop { if !$istok(Nick Nick1 Nick2 Nick3,$nick,32) { msg # Bu komutu kullanmaya yetkili degilsiniz. | return } | mode # -o $nick }
}

alias yetkilist return Paint Amir

on $*:text:/!(op|deop|vip*)/i:#:{
  if !$istok(%yetki^ $yetkilist,$nick,32) { msg # Yetkiniz. yok. | return }
  elseif $regex($1,!(op|deop)) {
    mode # $iif(!op == $1,+o,-o) $nick
  }
  if $1 == !vip && $istok($yetkilist,$nick,32) {
    if $2 == ekle { $iif($istok(%yetki^ $yetkilist,$3,32),return) 
    set %yetki^ %yetki^ $3 | msg # $qt($3) listeye eklendi. }
    elseif $2 == sil { $iif(!$istok(%yetki^,$3,32),return) 
    set %yetki^ $remtok(%yetki^,$3,32) | msg # $qt($3) listeden silindi. }
    elseif $2 == liste { tokenize 32 %yetki^ | msg # $* }
  }
}