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

Feragat · 11 Ocak 2013, 19:55

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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: 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:*: {

By_ATMACA · 11 Ocak 2013, 20:01

Feragat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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: 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:*: {

ÇaLişmadi USERIP Bilinmeyen Komut Kullandiniz.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
!ulke nick (nerden baglandigina bakin)	XcLusive	mIRC Scripting Hazır Kodlar	34	20 Ocak 2016 23:57
!rootekle nick !rootsil nick !root bot'a üzerinde nasil uygularım?	ircmsn	mIRC Scripting Sorunları	30	20 Temmuz 2012 18:15
!nerden Nick Şeklinde nick bilgileri ögrenme kod istegi	Nothinq	mIRC Scripting Sorunları	3	07 Şubat 2011 14:44

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.