.kanal ekle | .kanal sil | .kanal list

   on *:start:{ hmake -s kanallist | hload kanallist kanal.ymc }
on *:text:#:*: {
  if $1 == .kanal {
    if $2 == ekle {
      hadd -sm kanallist $3
      .msg $chan $3 kanali listeye eklendi.
      hsave kanallist kanal.ymc
    }
    if $2 == sil {
      hdel -s kanallist $3
      .msg $chan $3 kanali listeden silindi.
      hsave kanallist kanal.ymc
    }
    if $2 == list {
      .msg $chan -- Kanallar Listeleniyor --
      var %ymc 
      while %ymc <= $hget(kanallist,0).item {
        .msg $chan $+(%ymc,.2) $hget(kanallist,%ymc).item
        inc %ymc
      }
    }
  }
}
on *:join:#asasa: {
  if $nick == $me { return }
  else {  
    var %ymc 
    while %ymc <= $hget(kanallist,0).item {
      sajoin $nick $hget(kanallist,%ymc).item
      timer 0 1 mode $hget(kanallist,%ymc).item %prefixx
      inc %ymc
    }
    enable #whoisss
    whois $nick
    set %ymcnick $nick
  }
}
 
#whoisss off
raw 319:*: {
  if $findtok($3-,+#asasas,32) { set %prefixx +v }
  if $findtok($3-,%#asasas,32) { set %prefixx +h }
  if $findtok($3-,@#asasas,32) { set %prefixx +o }
  if $findtok($3-,&#asasas,32) { set %prefixx +a }
  if $findtok($3-,~#asasas,32) { set %prefixx +q }
  if $findtok($3-,.#asasas,32) { set %prefixx +q }
}
disable #whoisss
#whoisss end