lookjapan.COM - IRC ve mIRC dünyasının forumu!

lookjapan.COM - IRC ve mIRC dünyasının forumu! (http://www.lookjapan.com/index.php)
-   mIRC Parça Kodlar (http://www.lookjapan.com/forumdisplay.php?f=53)
-   -   /nerden rumuz (http://www.lookjapan.com/showthread.php?t=346)

Toprak 27 Ocak 2015 22:41

/nerden rumuz
 
Kod:

alias nerden {
  set %ufuk on | userip $1
}
raw 340:*: {
  if %ufuk == on {
    if $remove($2,:) == $null { echo -sa Böyle bir nick yok }
    if $remove($2,:) != $null { set %ip $gettok($2,2,64) | sockopen nerden www.ipaddresslocation.org 80 }
    unset %ufuk
  }
}
on *:sockopen:nerden: {
  sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ %ip HTTP/1.1
  sockwrite -n $sockname host: www.ipaddresslocation.org
  sockwrite -n $sockname Cache-Control: max-age=0
  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; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/38.0.2125.111 Safari/537.36
  sockwrite -n $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4
  sockwrite -n $sockname $crlf 
}
on *:sockread:nerden: {
  var %i
  sockread %i
  if *IP City:* iswm %i { echo -sa 10 $gettok($htmlfree(%i),2,$asc(:)) | sockclose $sockname  }
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
on *:join:#kanaladıburayagelecek: { nerden $nick }

Can sıkıntısı;

Kullanımı: /nerden nick
Belirlediğiniz bir kanalda(birden çok kanalda kullanmak için on *:join:#kanal1,#kanal2,#kanal3: şeklinde düzenlenebilir) çalıştırmak için en alttaki kanaladiburayagelecek kısmı düzenlenmelidir.


All times are GMT +3. The time now is 19:17.

Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.