merhaba !nerden !info vs vs hazir kodlarini belirli bir kanalda yaptigim da o kanala statustumde ne yazdiysa oraya yansıtmak istiyorum bu kodu çok araştirdim ama bulamadim. bilen varsa yardim beyler Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Cevap: !info !nerden gibi hazir kodlari kanala yansitma
Merhaba, öncelikle konuyu yanlış bölüme açmışsınız. Ayrıca bu istedikleriniz forumda kolayca bulabileceğiniz şeyler. Fakat başlık altında sana bir örnekleme yapayım, konuyu yetkili arkadaşlar taşısınlar.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:input:#: { if $1 == .ns { Ns $2 $3- | set -u3 %Nickserv $chan } }
on 1*:notice:*:?: { if ($nick == Nickserv) && %Nickserv { haltdef | msg %Nickserv 0,2 12,15 NickServ »5 $1- } }
Bu paylaşmış olduğum kod, ''Nickserv'' servicesine ait tüm komutları kullanabilmemizi sağlıyor.
Kullanım : .ns komut | .ns set komut şeklindedir. Aklına gelecek her nickserv komutunu kanalda kullanabilirsin buna infoda dahil.
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
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) { msg %aktif 4Hostu:2 $gettok($replacecs($htmlfree(%yerbul),Hostname:,@),2,64) }
if (<i>*</i> <b>* iswm %yerbul) || (<i>*<b>*</b><br />* iswm %yerbul) { msg %aktif 4 $+ $replacecs($gettok($htmlfree(%yerbul),1,58),IP Country,Ülke,Code,Kodu,IP Continent,Kıta,IP Region,Bölge,IP City,Şehir,IP Latitude,Enlem,IP Longitude,Boylam,Organization,Şirket,ISP Provider,Servis Sağlayıcı) $+ : $+ 2 $+ $gettok($htmlfree(%yerbul),2,58) }
}
on *:text:*:#: {
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
Farklı bir siteye(uzun zamandır kullandığım bir site) göre ayarlamıştım. .nerden ip veya .nerden Nick şeklinde kullanabilirsin veya "!" ünlemde kullanabilirsin (!nerden) şeklinde. Hangi kanalda yaparsan o kanala sonuç verir. Not: Kodu bu şekilde Scriptine eklersen diğer kullanıcılar tarafından kullanılabilir. Eğer sadece kendin kullanmak istersen ;
Bu Satırı;
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#: {
Bunula değiştirin;
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:input:*: {
ikinci kodumuz ise !nerden nick|ip adresi şeklindedir.
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.