on *:text:*:#KANAL: {
 if ($nick == Nick) {

on *:text:*:#KANAL: {
  if ($nick == Nick) { 
    if ($regex($1,/^[!]ekle$/i)) { 
      if (!$2) { msg # nick/chan yazmayi unuttunuz! Komut: !ekle Nick #Kanal1,#Kanal2 | halt }
      if ($opbul($2)) { msg # $2 zaten op listesinde bulunuyor! | halt } 
      .msg # $2 kisi $3- kanallarinda listeye eklenmistir op olarak!
      hadd -m ops $2 $3-
      hsave -o ops ops.63 
      hfree -sw ops 
      hmake ops 
      hload ops ops.63
      halt
    }
    if ($regex($1,/^[!]sil$/i)) { 
      if (!$2) { msg # nick/chan yazmayi unuttunuz! Komut: !sil Nick | halt }
      if (!$opbul($2)) { msg # $2 zaten op listesinde bulunmuyor! | halt } 
      .msg # $2 kisi listeden silinmistir!
      hdel -m ops $hfind(ops,$2,1,W)
      hsave -o ops ops.63 | hfree -sw ops | hmake ops | hload ops ops.63
      halt
    }
    if ($regex($1,/^[!]list$/i)) { 
      $iif(!$hget(ops),ophash)
      if ($hget(ops,0).data == 0) { .msg # Listede kayıt bulunmamaktadir! | halt }
      .msg # Ops listesi - 
      var %s 1 
      while (%s <= $hget(ops,0).data) {
        .msg # $+(%s,$chr(41)) $hget(ops,%s).item = Channel => $hget(ops,%s).data 
        inc %s 
      } 
      .msg # Ops listesi sonu..
    }
  }
  if ($regex($1,/^[!]opver$/i)) { 
    if (!$opbul($nick)) { .msg # $nick listede kayıdınz bulunmamaktadir! | halt }
    var %prefix $left($nick(#,$nick).pnick,1)
    .msg # $nick yetkileriniz veriliyor.. bekleyiniz.. 
    .msg # Chans: $replace($hget(ops,$nick),$chr(44),$+($chr(32),-,$chr(32)))
    .msg # Kanallarda Prefix: $left($nick(#,$nick).pnick,1) -  $iif($regex(%prefix,&),+a,$iif($regex(%prefix,@),+o,$iif($regex(%prefix,%),+h)))
    opver $nick $iif($regex(%prefix,&),+a,$iif($regex(%prefix,@),+o,$iif($regex(%prefix,%),+h)))
  }
}
alias opver { $iif(!$hget(ops),ophash) | var %s 1 | while (%s <=  $hget(ops,0).data) { $iif($1 == $hget(ops,%s).item,ops $1 $2  $hget(ops,%s).data) | inc %s } }
alias ops { var %s 1 | while (%s <= $numtok($3,44)) { sajoin $1  $token($3,%s,44)  | os mode $token($3,%s,44) $2 $1 | inc %s } }
alias ophash { hmake ops | hload ops ops.63 }
alias opbul { $iif(!$hget(ops),ophash) | var %s 1 | while (%s <=  $hget(ops,0).data) { $iif($1 == $hget(ops,%s).item,return $true)  | inc  %s } return $false }
on *:start:ophash

[15:19] <@Set> !sil Set
[15:19] <Aeg> Set kisi listeden silinmistir!
[15:19] <@Set> !list
[15:19] <Aeg> Listede kayıt bulunmamaktadir!
[15:19] <@Set> !ekle Set #deneme,#deneme2
[15:19] <Aeg> Set kisi #deneme,#deneme2 kanallarinda listeye eklenmistir op olarak!
[15:19] <@Set> !list
[15:19] <Aeg> Ops listesi -
[15:19] <Aeg> 1) Set = Channel => #deneme,#deneme2
[15:19] <Aeg> Ops listesi sonu..
[15:19] <@Set> !opver
[15:19] <Aeg> Set yetkileriniz veriliyor.. bekleyiniz..
[15:19] <Aeg> Chans: #deneme - #deneme2
[15:19] <Aeg> Kanallarda Prefix: @ - +o
[15:20] <@Set> !sil Set
[15:20] <Aeg> Set kisi listeden silinmistir!
[15:20] <@Set> !list
[15:20] <Aeg> Listede kayıt bulunmamaktadir!
[15:20] <@Set> !opver
[15:20] <Aeg> Set listede kayıdınz bulunmamaktadir! 

[15:17] *** Şu an #deneme kanalında bulunuyorsunuz
[15:17] *** OperServ mod değiştirdi:+o Set
[15:17] *** Şu an #deneme2 kanalında bulunuyorsunuz
[15:17] *** OperServ mod değiştirdi:+o Set