on *:sockopen:yerelbilgi:{
sockwrite -n $sockname GET /ip_tracer/ $+ %yerelipno HTTP/1.1
sockwrite -n $sockname Host: www.ip-adress.com $+ $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 (** iswm %difi) { %yerelbilgi = $addtok(%yerelbilgi ~,$remove($htmlfree(%difi),$chr(9)),126) }
if (*** iswm %difi) { set %yerelulke $remove($htmlfree(%difi),$chr(9)) }
}
}
alias bağlan {
sockclose yerelbilgi
sockopen yerelbilgi www.ip-adress.com 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, )
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…
}
}

, ) | sockclose $sockname }
}
}
on *:text:*:#dns:{
if ($1 == !nerden) {
if ($sock(nerden)) { msg #dns Suanda Baska Bir Nick’in Bilgilerine Bakılıyor Lütfen Daha Sonra Tekrar Deneyin | halt }
set %nerdennick $remove($2,*)
set %mesajnick $nick
userip $2
msg $chan Lütfen Bekleyiniz…
msg $chan $2 Nick’inin ISP Adresi Kontrol Ediliyor..
}
}

raw 352:*:$iif($left($2,1) != $chr(35),sajoin $6 #Kanal)

on @*:JOIN:#:{
inc %kziyaret 1
if ($nick) == $me)
.notice $nick Hoş Geldiniz. Kanali Ziyaret eden toplam %kziyaret $+ . Kişisiniz
window -n @Ziyaret
echo @Ziyaret 14,14 9 Kanali toplamda 8 %kziyaret 9kişi ziyaret etti. 11 En Son Nick 4 $nick 7 Tarih 11 $fulldate
}

alias gununsozu { if $sock(gununsozu) { echo 12 -a * /gununsozu: Lütfen daha sonra tekrar deneyiniz. } | else { sockopen gununsozu www.mynet.com 80 } }
on *:sockopen:gununsozu:{
var %c = sockwrite -n $sockname
if ($sockerr) { echo $colour(info) -a * /gununsozu: Hata. | return }
%c GET /soz.asp HTTP/1.1 | %c Host: mynet.com | %c Connection: Close $str($crlf,2)
}
on *:sockread:gununsozu:{
var %g | sockread %g | if *class=\\"f1001\\">* iswm %g { echo 4 -a * Günün sözü; $htmlfree($v2) }
}
alias -l htmlfree return $regsubex($1-,/(^[^<]*>|<[^>]*>|t|<[^>]*$)/g,$null)


alias ame { if $1 { var %º = 1 | while $chan(%º) { if !$istok(#help #Operhelp #System #irccontrol #root #Opers ,$v1,32) { !describe $chan(%º) $1- } | inc %º } } }
alias amsg { haltdef | var %i 0 | var %t $chan(0) | while %i < %t { inc %i | if !$istok(#help #Operhelp,$chan(%i),32) { msg $chan(%i) $1- } } }

alias ajoin {
if ($1 == $null) || ($2 == $null) {
> echo 6 * Usage : /ajoin #Dolu_Kanal #Dolacak_Kanal Kac_Kisi
echo 6 * Exam : /ajoin #diyalog #sohbet 50
echo 6 * AbArTH Oper mIRC %showlogo }
else {
echo 6 * Userlar Aliniyor... $1 to $2
set %i 1
set %nick $nick($1,%i)
While %nick != $null {
%nick = $nick($1,%i)
fjoin $2 %nick
echo 12 * %i %nick moved to $2
if (%i == $3) { break }
inc %i
}
echo 6 * Toplam %i User Ajoin Edildi to $2.
}
}
VN:F [1.1.8_518]

kick {
set %ul 1
while ($chan(%ul) != $null) {
if (($me isop $chan) || ($me ishelp $chan)) {
if ($1 ison $chan(%ul)) { ban -u1800 $chan(%ul) $1 %bantipi | kick $chan(%ul) $1 15[2 # 1•4 KuraL Hatası 1•4 Tüm OLdugum Kanallardan Atıldınız. • 1Tarih:2 $date 1Saat:12 $time 14 $me [30DK Ban..] %logo }
}
inc %ul 1
}
unset %ul
}