on ^*:join:#:{
  if $chan == #help {
    if ($nick != $me) { echo $chan $timestamp 10 *Giriş: $nick ( $+ $gettok($fulladdress,2,33) $+ ) $iif(!$regex($address($nick,2),/(oper|admin|helper|helpstajyer)/i),1 (12NREG1) + (5CREG1) + (4IPBAN1),$chr(3))
      halt
    }
  }
  elseif $chan == #operhelp {
    if ($nick != $me) { echo $chan $timestamp 10 *Giriş: $nick ( $+ $gettok($fulladdress,2,33) $+ ) $iif(!$regex($address($nick,2),/(oper|admin|helper|helpstajyer)/i),1 (4AUTH1) + (12ZLINE-AC1) + (5ZLINE1),$chr(3))
      halt
    }
  }
  elseif $chan == #yardim {
    if ($nick != $me) { echo $chan $timestamp 10 *Giriş: $nick ( $+ $gettok($fulladdress,2,33) $+ ) $iif(!$regex($address($nick,2),/(oper|admin|helper|helpstajyer)/i),1 (4VOICE1) + (5ZLINE1),$chr(3))
      halt
    }
  }
  elseif $chan == #sikayet {
    if ($nick != $me) { echo $chan $timestamp 10 *Giriş: $nick ( $+ $gettok($fulladdress,2,33) $+ ) $iif(!$regex($address($nick,2),/(oper|admin|helper|helpstajyer)/i),1 (4VOICE1) + (5ZLINE1),$chr(3))
      halt
    }
  }
  elseif $istok(#egitim #irchelp #helpers #helpstaff #halfsohbet #halfoper #helpteam #helpsinav,$chan,32) { echo $chan $timestamp 10*Giriş: $nick ( $+ $gettok($fulladdress,2,33) $+ )
    halt
  }
  else {
    if ($nick != $me) { echo $chan $timestamp 10 *Giriş: $nick ( $+ $gettok($fulladdress,2,33) $+ ) $iif(!$regex($address($nick,2),/(oper|admin|helper|helpstajyer)/i), 1 (4NEWNICK1) + (12BAN1) + (5ZLINE1),$chr(3))
      halt
    }
  }
}
on ^*:part:#:{
  if ($nick != $me) { echo $chan $timestamp  3 *Çıkış: $nick ( $+ $gettok($fulladdress,2,33) $+ ) 
    halt
  }
}
on ^*:quit: {
  set %quit 0
  :start
  inc %quit
  if ($comchan($nick,%quit) != $null) {
    echo $comchan($nick,%quit) $timestamp 12 *Ayrıldı: $nick ( $+ $gettok($fulladdress,2,33) $+ ) ( $+ $1- $+ )
    goto start
  }
  haltdef
}
on ^*:hotlink:*:*:{
  if $1 == (BAN) { return }
  if $1 == (ZLINE) { return }
  if $1 == (NREG) { return }
  if $1 == (CREG) { return }
  if $1 == (VOICE) { return }
  if $1 == (ZLINE-AC) { return }
  if $1 == (NEWNICK) { return }
  if $1 == (AUTH) { return }
  if $1 == [#] { return }
  if $1 == (IPBAN) { return }
  halt
}
on *:hotlink:*:*:{
  if $1 == (NEWNICK) { msg #halfoper !newnick $remove($gettok($hotline,4,32),) }
  if $1 == (BAN) { allban $remove($gettok($hotline,4,32),) }
  if $1 == (ZLINE) { msg #halfoper !zline $remove($gettok($hotline,4,32),) $$?="Sebep?" }
  if $1 == (NREG) { //msg #help $+($chr(2),$remove($gettok($hotline,4,32),),$chr(2),$chr(44)) nick kaydı için gereken bilgiler özelinize gönderiliyor. | msg #helpers .nickreg $remove($gettok($hotline,4,32),) }
  if $1 == (CREG) { //msg #help $+($chr(2),$remove($gettok($hotline,4,32),),$chr(2),$chr(44)) kanal kaydı için gereken bilgiler özelinize gönderiliyor. | msg #helpers .kanalreg $remove($gettok($hotline,4,32),) }
  if $1 == (VOICE) { //mode # +v $remove($gettok($hotline,4,32),) | msg # Selam $+($chr(2),$remove($gettok($hotline,4,32),),$chr(2),$chr(44)) size nasıl yardımcı olabilirim? }
  if $1 == (ZLINE-AC) { //window -a #halfoper | msg #halfoper !banac $$?="IP nedir?" }
  if $1 == (AUTH) { /msg #operhelp $+($chr(2),$remove($gettok($hotline,4,32),),$chr(2),$chr(44)) nick kayıt işlemi sırasında kullandığınız "e-mail@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]" adresi nedir? }
  if $1 == [#] { //genel | /set %tfnick $strip($remove($gettok($strip($hotline),3,32),<,>)) }
  if $1 == (IPBAN) { mode # +b $remove($gettok($hotline,4,32),) }
}
dialog komutlar {
  title "There Form"
  size -1 -1 110 75
  option dbu
  button "BAN", 2, 20 10 73 12, flat ok
  button "BAN KICK", 3, 20 25 73 12, flat ok
  button "NEWNİCK", 4, 20 40 73 12, flat ok
  button "ZLINE", 5, 20 55 73 12, flat ok
}
alias genel dialog -m komutlar komutlar
on 1:dialog:komutlar:sclick:*:{
  if ($did == 2 ) { /mode $active +b %tfnick }
  if ($did == 3 ) { //ban -u360 $chan %tfnick $+ !*@* | /kick $chan %tfnick 1Kural ihlali, ayrıntılı bilgi için;12 /rules 1komutunu uygulayınız. NOT: " $+ $gettok($asctime($calc($ctime + 360)),4,32), $+ " itibariyle ban deaktif(iptal) olacaktır. }
  if ($did == 4 ) { /msg #halfoper !newnick %tfnick }
  if ($did == 5 ) { /msg #halfoper !zline %tfnick $$?="Sebep?" }

on *:snotice:*Client connecting on port*:who +I $9
raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(pro,%:r) $+($4,¿,$6)
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
on *:sockopen:pro*:{ 
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 
  sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -nt $sockname $crlf
}
on *:sockread:pro*:{  
  if ($sockerr) { .sockclose $sockname | return }
  var %:pro | sockread -f %:pro
  if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
  if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
  if (ISP Provider: isin %:pro) { 
    var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))
    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)
    $iif(!$window(@Giriş),window -e @Giriş)
    .echo @Giriş Nick:4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp 
    .hfree -sw %:n
    sockclose $sockname
  }
}