alias nerden { 
  if $sock(yerbul) {
    sockclose yerbul
  }
  sockopen yerbul 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80  
}

on *:input:#: {
  if $regex($regsubex($1-,/[[:cntrl:]]/g,return halt),/^((!|.)nerden\40\S+)$/i) {
    if $regex($2,^\d) { 
      .set -e %nrd $2 | set -e %c_n $chan
      .nerden 
    }
    else { 
      .userip $2
      .enable #nrdn
      set -e %c_n $chan
    }
  }
}
on *:sockopen:yerbul:{  
  sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ %nrd HTTP/1.1
  sockwrite -n $sockname host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf  
}

on *:sockread:yerbul: {  
  if ($sockerr) { /msg %c_n Bağlantı Hatası Oluştu! | halt } 
  var %yerbul
  sockread %yerbul
  if $regex(hst,%yerbul,/(</\142><\142\162\40/><\151>\110\S{7}\72</\151>\40<\142>(.+)</\142><\142\162\40/>)$/i) { /msg %c_n 2Host:4 $regml(hst,2) }
  if $regex(cnt,%yerbul,/^(<\151>\111\120\40\S{7}\72</\151>\40<\142>(\S+)</\142>)$/i) { /msg %c_n 2Ulke:4 $regml(cnt,2)  }
  if $regex(cod,%yerbul,/^(<\151>\111\120\40\S{7}\40\S{4}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Ulke Kodu:4 $regml(cod,2) }
  if $regex(kta,%yerbul,/^(<\151>\111\120\40\103\S{8}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Kita:4 $regml(kta,2) }
  if $regex(rgn,%yerbul,/^(<\151>\111\120\40\122\S{5}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Bolge:4 $regml(rgn,2) }
  if $regex(cty,%yerbul,/^(<\151>\111\120\40\103\S{3}\72\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Sehir:4 $regml(cty,2) }
  if $regex(org,%yerbul,/^(<\151>\117\S{11}\72</\151>\40<\142>(.+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Organizasyon:4 $regml(org,2) }
  if $regex(iss,%yerbul,/^(<\151>\111\123\120\40\S{8}\72</\151>\40<\142>(.+)</\142><\142\162\40\/><\142\162\40\/>)$/i) { /msg %c_n 2Servis Saglayici:4 $regml(iss,2) }
}

#nrdn off
raw 340:*: {
  if (!$2) { /msg %c_n Sorgulanan Nick Sunucuda bulunmuyor. | goto down }
  set -e %nrd $regsubex($2,/.+\100(\d+\56\d+\56\d+\56\d+)$/g,\1) 
  .nerden
  :down  
  .disable #nrdn
  .halt
}
#nrdn end

alias htmlfree {  
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x  
}
alias nerden { sockopen yerbul 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80  }  
on *:sockopen:yerbul:{  
  sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ %nrd HTTP/1.1
  sockwrite -n $sockname host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf  
}  
on *:sockread:yerbul: {  
  var %yerbul
  sockread %yerbul
  if (<i>*</i> <b>* iswm %yerbul) || (<i>*<b>*</b><br />* iswm %yerbul) { msg %aktif 4 $+ $replacecs($gettok($htmlfree(%yerbul),1,58),IP Country,Ulke,IP Country Code,Ulke Kodu,IP Continent,Kita,IP Region,B?lge,IP City,Sehir,IP Latitude,Enlem,IP Longitude,Boylam,Organization,Sirket,ISP Provider,Servis Saglayici) $+ : $+ 2 $+ $gettok($htmlfree(%yerbul),2,58) }
}
on *:input:*: {
  if ($1 == !nerden) || ($1 == .nerden) && ($2) {
    if ($left($2,1) isnum) { 
      .set -e %nrd $2 | set -e %aktif $active
      .nerden $2
      .timer 1 2 .sockclose nerden  
    }
    else { 
      .userip $2
      .enable #nerdenbul
      set -e %aktif $active
      .nerden $2
      .timer 1 2 .sockclose nerden

    }
  }
}
#nerdenbul off
raw 340:*: {
  set %nrd $gettok($2,2,64)
  .disable #nerdenbul
}
#nerdenbul end

#takiple on
alias takiple { 
  if ($1) { 
    inc %xx
    sockopen $+(tkpet*,%xx) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
    sockmark $+(tkpet*,%xx) $1 
  }
}
on *:sockopen:tkpet*:{
  var %s sockwrite -n $sockname
  %s GET /ip-address-locator.php?lookup= $+ $sock($sockname).mark HTTP/1.1
  %s Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:tkpet*:{
  var %x [ $+ [ $sockname ] ]
  sockread %x [ $+ [ $sockname ] ]
  if (* $+ %sehirle $+ * iswm %x [ $+ [ $sockname ] ]) {
    gzline $+(*@,$sock($sockname).mark) : 1Lütfen 4Sohbet 1Kurallarina Uyunuz.. $date $time 5 $me   
    sockclose $sockname   
  }
}
raw 352:*:{ takiple $4 } 
on *:snotice:*Client connecting*: { .who +I $9 }
#takiple end

alias takipet {
  enable #takiple
  set %sehirle $1-
  echo -a 0,4 $1- Sehri Takibe Alindi.. $1- Sehrinde Girenlere Gzline atilcak.. Kapatmak icin /takipkapa yaziniz.
}
alias takipkapa {
  disable #takiple
  set %sehirle takipetme
  echo -a 0,1 Takip Korumasi Kapandi.. Tekrar Kullanmak icin /takipet Sehir yaziniz.
}