miRC Show Ip

Alias -l giris54on { .enable #giris54 | echo -tca info2 Ip Göster  00,03AÇILDI  | halt }
Alias -l giris54off { .disable #giris54 | echo -tca info2 Ip Göster  00,04KAPATILDI  | halt }

Menu Channel,menubar {
  -
  Oper
  .-
  .$iif($group(#giris54) == on,$style(1) Ip Göster (Açık),Ip See (Kapalı)): if $group(#giris54) == on giris54off | else giris54on
  .-
}

#giris54 on
on ^*:hotlink:"*":#:if ($regex($1,/^"(GLINE|NICKBAN|SHUN)"$/)) returnex
on *:hotlink:*:*: {
  var %_word = $noqt($1),%_ip = $token($hotline,6,32),%_nick = $token($hotline,5,32)
  if ($(,%_word) = nickban) {
    var %1 = 1
    while ($comchan($(,%_nick),%1)) {
      ban -k $v1 $(,%_nick) 2 sebeb.
      inc %1
    }
  }
  if ($(,%_word) = shun) shun $(,%_nick)
  if ($(,%_word) = gline) gline $(,%_nick) :sebeb.
  echo 4 $target IP: %_ip - NICK: %_nick - Clicked: %_word atıldı.
}

on  ^&*:snotice:*Client connecting on port*:if !$hget(giris,$9) {
  .who +I $9
}
on ^*:join:#: {
  if $nick == $me { return }
  if o isin $usermode {
    if $hget(giris,$nick) { echo # $+($chr(3),$color(join)) $+ $timestamp » Giriş: $nick $hget(giris,$nick) $hget(sehir,$nick) "GLINE" - "NICKBAN" - "SHUN" | haltdef }
    else {
      hadd -m chan $nick $addtok($hget(chan,$nick),#,32)
      if !$sock($+(nrdbul,$nick)) { who +I $nick }
      haltdef
    }
  }
}
raw 352:*:bul $4 $6 | haltdef
alias bul {
  sockclose $+(nrdbul,$1)
  sockopen $+(nrdbul,$1) www.ipaddresslocation.org 80
  sockmark $+(nrdbul,$1) $+($1,*,$2)
}
alias htmlfree {
  if ($len($1-) <= 900) {
    var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x
  }
}
on *:sockopen:nrdbul*:{
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,42)) HTTP/1.1
  sockwrite -nt $sockname Host: www.ipaddresslocation.org
  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:nrdbul*:{
  var %x | sockread %x
  if $regex(%x,/<i>IP Country:</i> <b>(.*?)</b>/i) { hadd -mu5 $sockname webulke $iif($regml(1),$v1,Belirsiz) }
  if $regex(%x,/<i>IP City: <b>(.*?)</b>/i) { hadd -mu5 $sockname websehir $iif($regml(1),$v1,Belirsiz) }
  if $regex(%x,/<i>ISP Provider:</i> <b>(.*?)</b>/i) {
    hadd -mu5 $sockname webisp $regml(1)
    hadd -mu5 $sockname webnick $token($sock($sockname).mark,2,42)
    hadd -mu5 $sockname webip $token($sock($sockname).mark,1,42)
    hadd -mu5 $sockname webchan $hget(chan,$hget($sockname,webnick))
    $iif($hget(chan,$hget($sockname,webnick)),hdel -m chan $hget($sockname,webnick))
    hadd -m giris $hget($sockname,webnick) $hget($sockname,webip)
    hadd -m sehir $hget($sockname,webnick) $+($chr(40),,$hget($sockname,webulke),-,$hget($sockname,websehir),,$chr(41))
    tokenize 32 $hget($sockname,webchan)
    echo $* $+($chr(3),$color(join)) $+ $timestamp » Giriş: $hget($sockname,webnick) ( $+ $hget(giris,$hget($sockname,webnick)) $+ ) $hget(sehir,$hget($sockname,webnick)) ( $+ $regml(1) $+ )
  }
}
alias htmlfree {
  if ($len($1-) <= 900) {
    var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x
  }
}
#giris54 end