alias yerelip {
  return %yerelipno
}
on *:sockopen:yerelbilgi: {
  sockwrite -n $sockname GET $+(/ip/,$yerelip HTTP/1.1)
  sockwrite -n $sockname Host: $+(whatismyipaddress.com,$str($crlf, 2))
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
  sockwrite -n $sockname $crlf
}
on *:sockread:yerelbilgi:{
  var %happen
  sockread $htmlfree(%happen)
  .tokenize 32 $htmlfree(%happen)
  if (*State/Region:* iswm %happen) {
    .set %yerelbölge 0
    .set %yerelbölge $1 $2 $3 $4 $5
    .set %yerelbölge $remove(%yerelbölge,State/Region:)
  }
  if (*City:* iswm %happen) {
    .set %yerelsehir 0
    .set %yerelsehir $1 $2 $3 $4 $5
    .set %yerelsehir $remove(%yerelsehir,City:)
  }
  if (*Country:* iswm %happen) {
    .set %yerelulke 0
    .set %yerelulke $1 $2 $3 $4 $5
    .set %yerelulke $remove(%yerelulke,Country:)
  }
  if (*Latitude:* iswm %happen) {
    .set %yerelenlem 0
    .set %yerelenlem $1 $2 $3 $4 $5
    .set %yerelenlem $remove(%yerelenlem,Latitude:)
  }
  if (*Longitude:* iswm %happen) {
    .set %yerelboylam 0
    .set %yerelboylam $1 $2 $3 $4 $5
    .set %yerelboylam $remove(%yerelboylam,Longitude:)
    .echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is ( $+ $time $+ ) 5,1 ·::4::6[10,1 Nick:7 %yerelnick 6]4,1::5::5· 
    .echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is ( $+ $time $+ ) 5,1 ·::4::6[10,1 IP No:7 %yerelipno 6]4,1::5::5· 
    .echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is ( $+ $time $+ ) 5,1 ·::4::6[10,1 Bölge:7 %yerelsehir 6]4,1::5::5· 
    .echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is ( $+ $time $+ ) 5,1 ·::4::6[10,1 Şehir:7 %yerelbölge 6]4,1::5::5· 
    .echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is ( $+ $time $+ ) 5,1 ·::4::6[10,1 Ulke:7 $replace(%yerelulke,TURKEY,Türkiye,GERMANY,Almanya,NETHERLANDS,Hollanda,UNITED KINGDOM,Ingiltere,UNITED STATES,Amerika B. Devletleri,CHINA,Çin,EGYPT,Mısır) 6]4,1::5::5· 
    .echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is ( $+ $time $+ ) 5,1 ·::4::6[10,1 Enlem:7 %yerelenlem 6]4,1::5::5· 
    .echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is ( $+ $time $+ ) 5,1 ·::4::6[10,1 Boylam:7 %yerelboylam 6]4,1::5::5· 
    .echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is ( $+ $time $+ ) 5,1 ·::4::6[10,1 *** 7Bilgi Sonu10 *** 6]4,1::5::5· 
  }
}
alias bilgi {
  if $sock(yerelbilgi) {
    sockclose $ifmatch
  }
  sockopen yerelbilgi whatismyipaddress.com 80
}
on *:snotice:*whois*: {
  if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is) { window -neg1 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is }
  set %yerelipno $remove($gettok($3,2,64),-1,$chr(41))
  set %yerelnick $2
  .bilgi
  halt
}
raw 378:*:$iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is),window -ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is) | set %yerelnick $2 | set %yerelipno $7 | bilgi $7 | aline -h @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is ( $+ $time $+ ) 5,1 ·::4::6[10,1 Nick:7 %yerelnick 6]4,1::5::5· 
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}