on *:text:*:#kanal: {
if $1 == !sopseslen { 
;bunu regex ile kullanmanız sizi bir çok karakterden kurtarabilir. if $regex($1,/[!.&-]sopseslen/Si)

var %i 1
;%i değişkenini bir olarak event içinde tanımladık.
while (%i <= $nick($chan,0)) {
;%i değişkenimiz bu kanalda bulunan kullanıcı sayısına eşitlenene dek, while döngümüz sürsün istedik..

echo -a $nick($chan,$me).pnick

on *:text:*:#nes:{
  if $regex($1,/[!.&-]sopseslen/Si) {
    var %i 1
    while (%i <= $nick($chan,0)) {
      if $regex($nick($chan,%i).pnick,/&/) { msg $nick($chan,%i) $nick Nicki size $chan kanalından sesleniyor.. }
      inc %i
    }
  }
}

on *:input:*: {
if $1 = .ip {
msg $chan Proxy.txt dosyası içerisinde " $lines(proxy.txt) " adet proxy bulunmaktadır..
msg $chan Proxy1.txt dosyası içerisinde " $lines(proxy1.txt) " adet proxy bulunmaktadır..
msg $chan Proxy2.txt dosyası içerisinde " $lines(proxy2.txt) " adet proxy bulunmaktadır..
msg $chan Proxy3.txt dosyası içerisinde " $lines(prox3y.txt) " adet proxy bulunmaktadır..
}
}

on *:input:*: {
  if $1 = .away { 
    if %awaydurum = on {
      echo -a Away konumundan çıktın.
      away
      nick %eskinick
      set %awaydurum off
      return
    }
    if %awaydurum = off || !%awaydurum {
      echo -a Away konumuna geçtin.
      away Yokum 
      set %eskinick $me
      nick $me $+ -Away
      set %awaydurum on
      return
    }
  }
}

on *:input:*: {
  if $regex($1,/[!.]away/Si) {
    $iif($away,nick $remove($me,`Away),nick $+($me,`Away))
    $iif($away,.away,.away Meşgul)
  }
}