IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Çözüldü !info !nerden gibi hazir kodlari kanala yansitma (https://www.ircforumlari.net/mirc-scripting-sorunlari/769710-info-nerden-gibi-hazir-kodlari-kanala-yansitma.html)

Jery 06 Mart 2017 17:18
!info !nerden gibi hazir kodlari kanala yansitma
 
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 ;s37

Mecnun 07 Mart 2017 12:39
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:
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.


Alıntı:
Feragat Nickli Üyeden Alıntı (Mesaj 1041268184)
Kod:
alias htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  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:
on *:text:*:#: {
Bunula değiştirin;
Kod:
on *:input:*: {
ikinci kodumuz ise !nerden nick|ip adresi şeklindedir.

AcImasIz 17 Haziran 2020 10:40
Cevap: !info !nerden gibi hazir kodlari kanala yansitma
 
cevabı nerde yazılı acaba?

OperServ 17 Haziran 2020 15:10
Cevap: !info !nerden gibi hazir kodlari kanala yansitma
 
Alıntı:
AcImasIz77 Nickli Üyeden Alıntı (Mesaj 1042323867)
cevabı nerde yazılı acaba?
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:
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:
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 }
}


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 08:39.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk