| Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Cevap: !info !nerden gibi hazir kodlari kanala yansitma
Merhaba sana verecegim 2 koda ayni birisi konum digeri ise info, cekilse kayitli nickler icin bilgi verir kayitsiz,
Nick için bilgi vermez (ALT+R remote bolumune ekle ayri ayri ikiside bos sayfada olsun)
!info nick !infoip ip kodu; Kod: Kodu kopyalamak için üzerine çift tıklayın! alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on *:input:*: {
if $regex($1,/^[!/.]info$/Si) {
msg $active 4————————1<7 $2 12Kimlik Bilgisi Sorgulaması 1>4————————
if (!$2) { .timer -h 1 500 msg # Lütfen Nick ßelirtiniz. }
else { .set -u5 %nck1 $2 | .ns info $2 all | .enable #gbt }
halt
}
if $regex($1,/^[!/.]infoip$/Si) {
msg $active 4————————1<12 $2 Kimlik Bilgisi Sorgulaması 1>4————————
if (*.*.* !iswm $2) { .timer -h 1 500 msg # Lütfen IP ßelirtiniz. }
else { .ns list $+(*@,$2) | .enable #gbt | var %:r = $r(1000,99999) | .sockopen $+(gbt,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(gbt,%:r) $2 }
}
}
#gbt off
on ^*:NOTiCE:*:*:{
if ($nick == NickServ) {
if (*Son gorulen adres* iswm $1-) || (*Online oldugu adres* iswm $1-) { .timerlinks 1 1 .ns listlinks %nck1 | .timerlist 1 2 .ns list $+(*@,$token($4,2,64)) | .timerajoin 1 3 .ns ajoin list %nck1 | .timeralist 1 4 .ns alist %nck1 | var %:r = $r(1000,99999) | .sockopen $+(gbt,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(gbt,%:r) $token($4,2,64) }
}
if ($nick == NickServ) && (*kayitli*nick*degil* iswm $1-) {
msg $active 4Arama yapmak istediğiniz nick kayıtlı değil. | .timerdis 1 1 .disable #gbt
halt
}
if ($nick == NickServ) && (*kayitli*nick*degil* !iswm $1-) {
msg # 1 $1-
halt
}
}
#gbt End
on *:sockopen:gbt*:{
sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) 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:gbt*:{
if ($sockerr) { .sockclose $sockname | return }
var %:gbt | sockread -f %:gbt
if (IP Country: isin %:gbt) {
msg $active 1Ülke:4 $iif($token($htmlfree(%:gbt),2,58) == $null,Belirsiz,$token($htmlfree(%:gbt),2,58))
}
if (IP Region: isin %:gbt) {
msg $active 1Bölge:4 $iif($token($htmlfree(%:gbt),2,58) == $null,Belirsiz,$token($htmlfree(%:gbt),2,58))
}
if (IP City: isin %:gbt) {
msg # 1Şehir:4 $iif($token($htmlfree(%:gbt),2,58) == $null,Belirsiz,$token($htmlfree(%:gbt),2,58))
}
if (ISP Provider: isin %:gbt) {
msg $active 1ISP:4 $iif($token($htmlfree(%:gbt),2,58) == $null,Belirsiz,$token($htmlfree(%:gbt),2,58))
sockclose $sockname
.timerdis 1 5 .disable #gbt
}
}
msg $active 4————————1<12 $2 Kimlik Bilgisi Sorgulaması Sonu1>4———————
!nerden kodu (userler içinde kendi içinde kullanabilirsin) Kod: Kodu kopyalamak için üzerine çift tıklayın! on *:input:*: {
if $regex($1,/^([!\.]nerden)$/i) {
if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
set %:kanal #
if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
else { .enable #nerdenbul | .who +I $2 }
}
}
on *:text:*:#kanal:{
if $regex($1,/^([!\.]nerden)$/i) {
if !$2 { msg # Lütfen !nerden IP/Nick Olarak Belirtiniz. | return }
set %:kanal #
if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
else { .enable #nerdenbul | .who +I $2 }
}
}
#nerdenbul off
raw 352:*: _nerden $4
raw 315:*:.disable #nerdenbul
#nerdenbul end
alias _nerden { var %:r $r(1000,99999) | sockopen $+(yerbul,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(yerbul,%:r) $1 }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on *:sockopen:yerbul*:{
sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) 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 Connection: keep-alive
sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
sockwrite -n $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 -n $sockname $crlf
}
on *:sockread:yerbul*:{
var %:yerbul | sockread -f %:yerbul
if (Hostname: isin %:yerbul) { msg %:kanal Hostname:4 $iif(!$token($htmlfree(%:yerbul),3,58),Belirsiz,$token($htmlfree(%:yerbul),3,58)) }
if (IP Country: isin %:yerbul) { msg %:kanal Ülke:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
if (IP Country Code: isin %:yerbul) { msg %:kanal Ülke Kodu:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
if (IP Continent: isin %:yerbul) { msg %:kanal Kıta:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
if (IP City: isin %:yerbul) { msg %:kanal Şehir:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
if (IP Latitude: isin %:yerbul) { msg %:kanal Enlem:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
if (IP Longitude: isin %:yerbul) { msg %:kanal Boylam:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
if (ISP Provider: isin %:yerbul) { msg %:kanal ISP:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) | sockclose $sockname }
}
Konu OperServ tarafından (17 Haziran 2020 Saat 15:12 ) değiştirilmiştir.
|