#giriscikis off
on ^*:join:#:{
 if !$window(@Join/Part) { window -ne @Join/Part }
 echo $colour(join text) -t @Join/Part *** Giriş: $chan - $nick - $gettok($fulladdress,2,33) / (Sebepli-Ban) - (Hızlı-ban)
 halt
}
on ^*:part:#:{
 if !$window(@Join/Part) { window -ne @Join/Part }
 echo $colour(part text) -t @Join/Part *** Çıkış: $chan - $nick - $gettok($fulladdress,2,33) / (Sebepli-Ban) - (Hızlı-ban)
 halt
}
on ^*:quit:{
 if !$window(@Join/Part) { window -ne @Join/Part }
 echo $colour(quit text) -t @Join/Part *** Exit: $chan - $nick - $gettok($fulladdress,2,33)
 halt
}
on ^*:hotlink:*:@Join/Part:return
on *:hotlink:*:@Join/Part:{
 if *Sebepli-Ban* iswm $1 { ban -k $gettok($hotline,4,32) $gettok($hotline,6,32) 2 $$?="Sebep?" }
 if *Hızlı-Ban* iswm $1 { ban -k $gettok($hotline,4,32) $gettok($hotline,6,32) 2 Atıldınız }
}
#giriscikis end

 on *:sockopen:yerelbilgi:{
 sockwrite -n $sockname GET /ip_tracer/?QRY= $+ %yerelipno  HTTP/1.1
 sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ $crlf $+ $crlf
 sockwrite -n $sockname $clrf   
}
on *:sockread:yerelbilgi:{
 if ($sockerr) {
   echo 4 -a Veri alımında Hata oluştu. | .timers off | halt
 }
 else {
   var %difi 
   sockread %difi 
   if (*<td>*</td>* iswm %difi) { %yerelbilgi = $addtok(%yerelbilgi ~,$remove($htmlfree(%difi),$chr(9)),126) }
   if (*<img src*alt="ip address flag">*</td>* iswm %difi) { set %yerelulke $remove($htmlfree(%difi),$chr(9)) }
 }
}
alias bağlan {
 sockclose yerelbilgi
 sockopen yerelbilgi [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
 if !$window(@Whois) {
   .timer -h 1 2800 window -adk0 +let @Whois 700 80 260 175 Verdana 12
   .timer -h 1 2850 titlebar @Whois yerel bilgiler...
 }
 else { .timer -h 1 2800 window -a @Whois }
 .timer -h 1 2900 aline @Whois 11,1Nick1...11:8 $!eval(%yerelnick,1) 1....................................................           
 .timer -h 1 2950 aline @Whois 11,1IP no1.11:8 $!eval(%yerelipno,1) 1.....................................................
 .timer -h 1 3000 aline @Whois 11,1Ülke1...............11:9 $!eval(%yerelulke,1) 1............................................
 .timer -h 1 3100 aline @Whois 11,1Bölge1.............11:9 $!token(%yerelbilgi,1,126) 1.......................................
 .timer -h 1 3200 aline @Whois 11,1Şehir1..............11:9 $!token(%yerelbilgi,2,126) 1......................................
 .timer -h 1 3300 aline @Whois 11,1Enlem1............11:9 $!token(%yerelbilgi,3,126) 1........................................
 .timer -h 1 3400 aline @Whois 11,1Boylam1..........11:9 $!token(%yerelbilgi,4,126) 1.........................................
 .timer -h 1 3500 aline @Whois 11,1Organizasyon:9 $!token(%yerelbilgi,5,126) 1.................................................
 .timer -h 1 3600 aline @Whois 11,1Yerel Zaman1..11:9 $!token(%yerelbilgi,7,126) 1............................................
 .timer -h 1 3700 aline @Whois 0,1----------------Bilgi Sonu-------------------
 .timer -h 1 3750 sockclose yerelbilgi
 .timer -h 1 4000 unset %yerel*
}
alias htmlfree {
 var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
 return %x
}
on *:snotice:*whois*on*you*: { 
 if !$hfind(Whoisler,$2).item && !$regex($sock(yerelbilgi).status,active) { 
   hadd -m Whoisler $2 $remove($token($3,2,64),$chr(41)) 
   set %yerelipno $remove($token($3,2,64),$chr(41)) 
   set %yerelnick $2  
   bağlan 
   echo -a 9,2***8 $2 11nicki size whois çekti,bilgileri alınıyor...
 }
}