on *:text:*:#op:{
  if $regex($1,/([.!]idlekontrol)/Si) {
    if $regex($nick($chan,$nick).pnick,/^(~|&)/i) {
      if $2 == on {
        if !%idle {
          .set %idle on 
          .msg $chan İdle Taraması Aktif, 5 Dakikada bir Tarama Yapılacak.
          .timerYMCIDLE 0 300 idlesymc
        }
        else { .msg $chan Tarama Zaten Aktif Kapamak İçin [.!]idlekontrol off yapınız. }
      }
      if $regex($2,/^(5|10|15|20)/i) {
        if !%idle {
          .set %idle on 
          .msg $chan İdle Taraması Aktif, $2 Dakikada bir Tarama Yapılacak.
          .timerYMCIDLE 0 $calc($2 *60) idlesymc
        }
        else { .msg $chan Tarama Zaten Aktif Kapamak İçin [.!]idlekontrol off yapınız. }
      }
      if $2 == off {
        if %idle {
          .unset %idle 
          .msg $chan Tarama Deaktif.
          .timerYMCIDLE off
        }
      }
    }
    else { .msg $chan Sizin Bu Komutu Kullanmaya Yetkiniz Yok $nick }
  }
}
alias idlesymc {
  var %y 1
  while (%y <= $nick(#sohbet,0)) {
    .whois $nick(#sohbet,%y)
    inc %y
  }
}
raw 317:*:{
  if $3 > 600 {
    if disarida isin $2 || mesgul isin $2 { halt }
    else {
mode #sohbet -oahv $2 $2 $2 $2
      .msg #op $2 idle suresini asmiş ve deop edildi $replace($duration($3),mins,dakika,secs,saniye,hrs,saat,hr,saat,min,dakika,sec,saniye)
    }
  }  
}

on $*:text:/(\.v|\.dv|\.unban)/Si:#ss:{
  if !$regex($address($nick,2),/(admin|ircop|services|tech|global)/i) && !$regex($nick(#,$nick).pnick,/(%|@|&|~|\.)/)  { msg $chan Bu komutu kullanmaya yetkiniz yok. | return }
  if $1 == .v { mode $chan +v $2 }
  elseif $1 == .dv { mode $chan -v $2 }
  else { msg chanserv clear # bans }
}

alias rast {
  var %a enes.txt,%b $r(1,$lines(enes.txt)),%z $read(enes.txt,$+(%b))
  tokenize 32 $read(enes.txt,$+(%b))
  var %g $0, %c $r(1,$0)
  if %g > 1 { var %d $r(1,$0) | if %d = %c { var %d $r(1,$0) } }
  var %e %z
  set %h $token($read(enes.txt,$+(%b)),$+(%c),32) $token($read(enes.txt,$+(%b)),$+(%d),32)
  while (%g) { if %g != %d && %g != %c { set %h $addtok(%h,$token($read(enes.txt,$+(%b)),$+(%g),32),32) | dec %g } | else { dec %g }  } 
  write -l $+ %e enes.txt %h
  echo -a %h
  unset %h
}

yüreğim sorsan düşlerini almaz
dayanmaz.. ömür bahara başka bir belki
almaz sorsan düşlerini yüreğim
yüreğim sorsan düşlerini almaz
anlatmaz hiçbir name..
bir belki dayanmaz.. ömür bahara başka

on *:text:!söz &:#: {
  var %s $r(1,$lines(soz.txt))
  if %hiza = soldan || !%hiza { msg $chan $2 : $read(soz.txt,%s) | set %hiza sagdan }
  else { msg $chan $read(soz.txt,%s) : $2 | set %hiza soldan }
}

[01:49] <14Ss> !söz Enes
[01:49] <04SuLh> belki bir başka bahara ömür dayanmaz.. : Enes
[01:50] <14Ss> !söz Enes
[01:50] <04SuLh> Enes : yüreğim almaz düşlerini sorsan
[01:50] <14Ss> !söz Enes
[01:50] <04SuLh> anlatmaz hiçbir name.. : Enes