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/)

- - Real Name revealer (https://www.ircforumlari.net/mirc-scripting-sorunlari/722435-real-name-revealer.html)

elhale

13 Ocak 2016 15:53

Real Name revealer

hepinize merhaba

This is my first topic here on IF and yeah... I need help. :)

I stumbled on this old code but it doesn't work for me...

What I wan't to do is to be able to click on the realName and use an alias to execute a command...

So, when user joins #channel, i want the code to exempt some users, and scan (who) others... if it matches i want to show me the "Real Name" near his nick. Be able to click it to select and execute a command... for example ban (real name).

I hope you guys will help... the code is this, but it doesn't work for me.

Kod:

on *:input:*:real $1- on ^*:text:*:*:real $1- on ^*:action:*:*:real $1- on ^*:notice:*:*:real $1- on *:join:#:who $iif($nick = $me,#,$v1) on !^*:part:#:{ set $+(%,real,$nick) $nick echo $color(part) # * Parts: $nick $ial($nick).mark @ $+ $site haltdef } on !^*:quit:{ var %- 1 | while $comchan($nick,%-) { echo $color(quit) $v1 * Quits: $nick $ial($nick).mark @ $+ $site haltdef inc %- } } raw 352:*:.ialmark $6 ( $+ $9- $+ ) | halt raw 315:*:{ if $($+(%,real,$2),2) { var %c 1 | while $comchan($me,%c) { echo $color(join) -a * $2 $ial($2).mark has joined $v1 unset $+(%,real,$2) | halt | inc %c } } } on *:ping:var %ial 1 | while $comchan($me,%ial) { who $v1 | inc %ial } alias -l pnickschan { return $iif($event = text,$+(<,$iif($left($nick(#,$nick).pnick,1) isin $prefix,$v1),$nick),$& $iif($event = action,$+(*,$chr(32),$iif($left($nick(#,$nick).pnick,1) isin $prefix,$v1),$nick),$& $iif($event = notice,$+(-,$iif($left($nick(#,$nick).pnick,1) isin $prefix,$v1),$nick,-)))) } alias -l pnickspm { return $iif($event = text,$+(<,$nick),$iif($event = action,$+(*,$chr(32),$nick),$iif($event = notice,$+(-,$nick,-)))) } alias -l real { if (!$inpaste) && ((!$istok(/ $readini($mircini,text,commandchar),$left($1,1),32)) || ($ctrlenter)) { var %realnick $ial(*,0) | while %realnick { if $regex($iif($event = input,$1-,$nick),/(^|\s)\Q $+ $replacecs($ial(*,%realnick).nick,\E,\E\\E\Q) $+ \E(\s|$)/iS) { $iif($event = input,say,echo -bcfilmrt $iif($event = text,normal,$event) $iif(#,#,$iif($query($nick),$& $nick,$iif($active ischan,$v1,$target)))) $replace($iif($event = input,$strip($1-),$& $iif(#,$pnickschan($nick),$pnickspm($nick))),$ial(*,%realnick).nick,$& $iif($event = text,$ial(*,%realnick).nick $+ >,$ial(*,%realnick).nick) $ial(*,%realnick).mark) $& $iif($istok(text action notice,$event,32),$1-) | haltdef } dec %realnick } } } #real end menu nicklist,channel { Turn Real-Name-Revealer $iif($group(#real) = on,OFF,ON) { if ($group(#real) != on) .enable #real | else disable #real else ($group(# if $group(#real) = on { who # } | else { ialclear | who # } echo 4 -ag * Real Name Revealer has been turned $upper($group(#real).status) } }

teşekkür ederim

eyup20

13 Ocak 2016 17:28

Cevap: Real Name revealer

on *:text:*:#:{
if ($1 == !add) {
if !$2 { msg # Please chose fullname | return }
if $read(fullname.txt,w,$strip($2-)) { msg # already add. | return }
.write fullname.txt $strip($2-)
msg # [ $strip($2-) ] Added Fullname.
}
if ($1 == !del) {
if !$2 { msg # Please chose deleting fullname. | return }
if $read(fullname.txt,w,$strip($2-)) { .write $+(-dl,$readn) fullname.txt | msg # [ $strip($2-) ] Fullname deleted. | return }
else { msg # Belirttiginiz fullname listem'de bulunmamaktadır. | return }
}
if ($1 == !listfullname) {
if $lines(fullname.txt) == 0 { msg # Fullname list is empty. | return }
var %t = 1 | while %t <= $lines(fullname.txt) {
msg # 4 $+(%t,.) $read(fullname.txt,%t)
inc %t
}
}
}
raw 352:*:{ var %:comchan = 1 | while %:comchan <= $comchan($6,0) { if $me isop $comchan($6,%:comchan) || $me ishop $comchan($6,%:comchan { ban -k $comchan($6,%:comchan) $6 - Forbidden fullname. } | inc %:comchan } }

hi @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
pls create fullname.txt on mirc directory or just !add one.
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] created this remote code. Thanks to @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] .

elhale

13 Ocak 2016 17:59

Cevap: Real Name revealer

Alıntı:

eyup20 Nickli Üyeden Alıntı (Mesaj 1041723590)

Thankyou for answering @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

However I want to add them automatically not manually... on, on *:join:*:#:, or for hub

;Connect
on *:snotice:*Client connecting on port*:who +I $9
;Hub connect
on *:snotice:*Client connecting at*:who +I $8

grab the fullname and show it near the nick, click on it, and execute command :)

for example...

[04:47:52pm] * Robin H d572b9a7@109.169.29.95 :0 c-98b872d5.304696492-0-646f63736973.cust.bredbands
[04:47:52pm] Robin End of /WHO list.

[04:49:24pm] * Mobile_09 H 5f9b1081@109.169.29.95 :2 95.155.16.129
[04:49:24pm] Mobile_09 End of /WHO list.

so, if users connect from @109.169.29.95

i want to show like this, when they join channel

[04:49:00pm] ******************* J | Robin (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) joined #channel from (server)
[04:49:00pm] ******************** | Robin (c-98b872d5.304696492-0-646f63736973.cust.bredbands) entered the stream.
[04:49:26pm] ******************* J | Mobile_09 (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) joined #channel from (server)
[04:49:26pm] ******************** | Mobile_09 (95.155.16.129) entered the stream.

KuL	13 Ocak 2016 20:05

Cevap: Real Name revealer

I think this should help you.

Kod:

#IPGoster off

on *:snotice:*: {

  if (Client connecting isin $1-) {

    if (!$hget(Giris)) { hmake giris 100 }

    hadd Giris $9 $10

  }

  if (Client exiting isin $1-) {

    if !$hget(Giris,$6) { hadd Giris $6 $7 }

  }

}

on ^*!:Join:#: {

  haltdef

  if ($hget(Giris,$nick)) { echo $chan $+($chr(3),$color(join)) $timestamp *** Giriş: $nick $hget(Giris,$nick) }

  elseif (!$hget(Giris,$nick)) { set -u3 %gnick $nick | set -u3 %gchan $chan | giris | .timer 1 1 .userip $nick }

}

on ^*:quit: {

  haltdef

  var %i = 1, %t = $comchan($nick,0)

  while (%i <= %t) {

    echo $comchan($nick,%i) $+($chr(3),$color(quit)) $timestamp *** IRC’den Çıktı: $nick $hget(Giris,$nick)

    inc %i

  }

  hdel Giris $nick

}

raw 340:*: {

  haltdef

  hadd Giris $gettok($2,1,61) $+($chr(40),$gettok($2,2,43),$chr(41))

}

on ^*!:Part:#: {

  haltdef

  if ($hget(Giris,$nick)) { echo $chan $+($chr(3),$color(part)) $timestamp *** Ayrıldı: $nick $hget(Giris,$nick) }

  elseif (!$hget(Giris,$nick)) { set -u5 %pnick $nick | set -u %pchan $chan | cikis | .timer 1 1 .userip $nick }

}

alias giris { echo %gchan %gnick $hget(Giris,%gnick) }

alias cikis { echo %pchan %pnick $hget(Giris,%pnick) }

#IPGoster End

on *:Exit: { .disable #IPGoster }

raw 381:*: { .enable #IPGoster }

If I remember correctly, cesuryurek wrote this snippet code.

After you wrote your oper/admin pass and get the rights of an administrator to see the ip address you must write /enable #IPGoster to actvate the code.

And than you should see the normal join, but instead of the fake ip you should see the right ip of the user.

XcLusive

13 Ocak 2016 22:34

Cevap: Real Name revealer

real name kısmında olan ip adresi kullanıcının gerçek adresi sanırım.
109.169.29.95 adresinden bağlananların, gerçek ip adresini kanala giren kullanıcılarda görmek istiyor
nick@ip şeklinde ve mouse ile üzerine geldiğinde komut çalıştırmak istediğini belirtmiş.

Mobile_09 adlı kullanıcının kanala giriş şekli:
[04:49:26pm] ******************* J | Mobile_09 (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) joined #channel from (server)

who çekince aldığı cevap:
[04:49:24pm] * Mobile_09 H 5f9b1081@109.169.29.95 :2 95.155.16.129
[04:49:24pm] Mobile_09 End of /WHO list.

görmek istediği şekil:
[04:49:26pm] ******************** | Mobile_09 (95.155.16.129) entered the stream.

ve son olarak mouseyi üzerine getirince komut çalıştırmak.

zamanınız varsa güzel bir kod yazılabilir arkadaşa :)

KuL	14 Ocak 2016 01:27

Cevap: Real Name revealer

Hasan Abinin (L4roXyL) bir Kodu vardi bunun icin, giris cikislari yansitma acisindan yani.

Kücük eklentilerlede ipe tiklanabilinilir duruma getirebilinilir. Ben Konuyu yanlis anlamissim.

Kod:

on !^*:join:#:haltdef | inc $+(%,$nick,ip) 1 | hadd -m $nick # 1 | if ($regex($evalnext($+(%,$nick,ip)),^1$)) { userip $nick } | unset $+(%,$nick,ip)

raw 340:*: {

  haltdef | var %& = $regsubex($2,/\+|\*|-/g,) | var %n = $token(%&,1,61),%id = $token(%&,2,64)

  if ($hget(%n,0).item >= 2) { var %2 = $v1,%1 = 1 | while (%1 <= %2) { echo $color(join) -t $hget(%n,%1).item ******************** |  %n $+($chr(40),%id,$chr(41)) entered the stream. | inc %1 } | hfree %n }

}
 

on ^1:HOTLINK:*.*.*:*:{ if ($active != #) { halt } | else { return } }

on *:HOTLINK:*.*.*:*:{ if ($active != #) { halt } | else { echo -a This is only a ECHO. Her is the IP -> $remove($gettok($hotline,6,32),$chr(40),$chr(41)) } }

Sonuc:

Kod:

[00:22:50 14/01/2016] ******************** | kadir606 (88.246.245.26) entered the stream.

[00:22:53 14/01/2016] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]_> neyse az yokum

This is only a ECHO. Her is the IP -> 88.246.245.26

IP Adresine tiklayincada, Echo veriyor. Kullaniciya kalmis gerisi o IP le ne yapmak istedigi.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] now I hope that this code will help you :)

You must only change the last event.

Kod:

echo -a This is only a ECHO. Her is the IP -> $remove($gettok($hotline,6,32),$chr(40),$chr(41)) } }

I wrote an echo to see if it works. And you can change it, to whatever you want.

elhale

14 Ocak 2016 02:34

Cevap: Real Name revealer

Alıntı:

KuL Nickli Üyeden Alıntı (Mesaj 1041723773)

Hasan Abinin (L4roXyL) bir Kodu vardi bunun icin, giris cikislari yansitma acisindan yani.

Kücük eklentilerlede ipe tiklanabilinilir duruma getirebilinilir. Ben Konuyu yanlis anlamissim.

Kod:

on !^*:join:#:haltdef | inc $+(%,$nick,ip) 1 | hadd -m $nick # 1 | if ($regex($evalnext($+(%,$nick,ip)),^1$)) { userip $nick } | unset $+(%,$nick,ip)

raw 340:*: {

  haltdef | var %& = $regsubex($2,/\+|\*|-/g,) | var %n = $token(%&,1,61),%id = $token(%&,2,64)

  if ($hget(%n,0).item >= 2) { var %2 = $v1,%1 = 1 | while (%1 <= %2) { echo $color(join) -t $hget(%n,%1).item ******************** |  %n $+($chr(40),%id,$chr(41)) entered the stream. | inc %1 } | hfree %n }

}
 

on ^1:HOTLINK:*.*.*:*:{ if ($active != #) { halt } | else { return } }

on *:HOTLINK:*.*.*:*:{ if ($active != #) { halt } | else { echo -a This is only a ECHO. Her is the IP -> $remove($gettok($hotline,6,32),$chr(40),$chr(41)) } }

Sonuc:

Kod:

[00:22:50 14/01/2016] ******************** | kadir606 (88.246.245.26) entered the stream.

[00:22:53 14/01/2016] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]_> neyse az yokum

This is only a ECHO. Her is the IP -> 88.246.245.26

Kod:

echo -a This is only a ECHO. Her is the IP -> $remove($gettok($hotline,6,32),$chr(40),$chr(41)) } }

I wrote an echo to see if it works. And you can change it, to whatever you want.

Thankyou for taking the time to help @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] but it is not working for me...

I put it in remote and nothing happens...

KuL	14 Ocak 2016 02:44

Cevap: Real Name revealer

Alıntı:

elhale Nickli Üyeden Alıntı (Mesaj 1041723789)

Thankyou for taking the time to help @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] but it is not working for me...

I put it in remote and nothing happens...

After you put it on a new remote page, how does the logins look like?

Can you show me a part of the channel logins.

Normaly it should look like this:

Kod:

[00:22:50 14/01/2016] ******************** | kadir606 (88.123.456.78) entered the stream.

elhale

14 Ocak 2016 08:44

Cevap: Real Name revealer

Alıntı:

KuL Nickli Üyeden Alıntı (Mesaj 1041723790)

After you put it on a new remote page, how does the logins look like?

Can you show me a part of the channel logins.

Normaly it should look like this:

Kod:

[00:22:50 14/01/2016] ******************** | kadir606 (88.123.456.78) entered the stream.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] When i put it on a new remote, the logins don't show at all, just quits and users talking in channel.

elhale

14 Ocak 2016 19:11

Cevap: Real Name revealer

Alıntı:

KuL Nickli Üyeden Alıntı (Mesaj 1041723790)

[FONT="Tahoma"][COLOR="Black"]
Can you show me a part of the channel logins.

I removed some addons, maybe they interfered and now I see the logins but no echo of the ip-s

Also I see that hash tables are created for every user that joins.

I also made screenshots...

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

KuL	14 Ocak 2016 19:26

Cevap: Real Name revealer

hi @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ,

what kind of a server is this and which mirc do you use?

I also tried it on my mirc, and for me it looks like this:

Alıntı:

[00:22:50 14/01/2016] ******************** | kadir606 (88.123.456.78) entered the stream.

elhale

14 Ocak 2016 19:35

Cevap: Real Name revealer

Alıntı:

KuL Nickli Üyeden Alıntı (Mesaj 1041723994)

hi @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ,

what kind of a server is this and which mirc do you use?

I also tried it on my mirc, and for me it looks like this:

UnrealIrcd, and I use mIRC 7.41

elhale

15 Ocak 2016 18:24

Cevap: Real Name revealer

Ok... I found this code @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] and now it works...

Kod:

on !^*:join:#:haltdef | inc $+(%,$nick,ip) 1 | hadd -m $nick # 1 | if ($regex($evalnext($+(%,$nick,ip)),^1$)) { userip $nick } | unset $+(%,$nick,ip)

raw 340:*: {

haltdef | var %& = $regsubex($2,/\+|\*|-/g,) | var %n = $token(%&,1,61),%id = $token(%&,2,61)

if ($hget(%n,0).item >= 1) { var %2 = $v1,%1 = 1 | while (%1 <= %2) { echo $color(join) -t $hget(%n,%1).item * Giriş: %n $+($chr(40),$chr(3),$chr(52),%id,$chr(41)) | inc %1 } | hfree $token($regsubex($2,/\+|\*|-/g,),1,61) }

}

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

here is the new screenshot:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

but, for mibbit I want to echo fullname, not ip.

How to use if mibbit get fullname? How to echo $fullname?

XcLusive

16 Ocak 2016 22:42

Cevap: Real Name revealer

Kod:

#cort on

on !^*:join:#:{

  hadd -m $nick # 1

  who +g $nick

}

raw 352:*:{ 

  hadd -m fullnametable $6 $9-

  if $hget($6,0).item == 1 { echo $color(info) -t $hget($6,1).item * Login: $6 - FN: $9- | hfree $6 }

}

raw 315:*:haltdef

#cort end

here is simply fullname shower code but work only english characters not working on turkish :) tested :p
if you want execute command on fullname you should make log window like @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] window.

for activate code type : /enable #cort
deactivate : /disable #cort
you can make it shortly with F keys.

like this : F5 $iif($group(#cort) == on,/disable #cort,/enable #cort)
put this code in Aliases, if its on turn off or on.

elhale

17 Ocak 2016 05:09

Cevap: Real Name revealer

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] thankyou for helping...

however, what im trying to do is to do the "who command" only on users joining the channel from mibbit

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] has 4 ip-s and when they join the channel it looks like this:

[03:42:45am] *******************J | ELIOO (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) joined #channel from (server)

now, i wanna do it that only when users using mibbit join the channel, i wanna echo their realname/fullname under the join
[03:42:45am] *******************J | ELIOO (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) joined #channel from (server)
[03:42:45am] *******************J | ELIOO - FN: user-0cdfi76.cable.mindspring.com

Your code works, but I dont know why it does only with some users (echo in the channel) not with all... it does create the hash info in the fullname hash table but it echos some and other no.

however I came up with this code:

Kod:

on *:JOIN:#:{

  if (*.mibbit.com iswm $ial($nick).host) {

    who $nick

  }

}

raw 352:*:{ 

echo -at 3 * J: $6 - FN: $9- }  

}

and, another problem is that I already do the who command with another script...

who +I $9
and
who +I $8

so for my above code to work, I need to exempt from the other script the 4 ip-s of mibbit

78.129.202.38
207.192.75.252
109.169.29.95
64.62.228.82

the code on the other script is like this:

Kod:

;Connect

on *:snotice:*Client connecting on port*:{

  who +I $9 

}

;Hub connect

on *:snotice:*Client connecting at*:{

  who +I $8

}

I tried to do this:

Kod:

on *:snotice:*Client*connecting on*:{

  var %ip $remove($gettok($10,2,64),$chr(41))

  if $regex(%ip,/^(78.129.202.38|207.192.75.252|109.169.29.95|64.62.228.82)/i) { halt } { 

    who +I $9 

  }

}

on *:snotice:*Client*connecting at*:{

  var %ip $remove($gettok($10,2,64),$chr(41))

  if $regex(%ip,/^(78.129.202.38|207.192.75.252|109.169.29.95|64.62.228.82)/i) { halt } { 

    who +I $8 

  }

}

but the exempt doesnt work, it does the who command to all users connecting.

I hope you'll understand what im trying to do. Thankyou again.

XcLusive

17 Ocak 2016 16:44

Cevap: Real Name revealer

maybe hash table dont work correctly :)
i think problem is UTF-8 character set problem. (not sure)
here new code:

Kod:

#cort on

on !*:join:#:{

  set % [ $+ [ $+(FN,$chr(46),$nick,$chr(46),$chan) ] ] 1

  who +g $nick

}

on !*:part:#:{ unset % [ $+ [ $+(FN,$chr(46),$nick,$chr(46),$chan) ] ] }

raw 352:*:{ fnshow $6 $9- | haltdef }

raw 315:*:haltdef

on *:exit:{ unset %FN* }

on ^*:snotice:*Client*exiting*: { unset % [ $+ [ $+(FN,$chr(46),$6,*) ] ] }

#cort end

alias -l fnshow {

  var %x = 1,%y = $comchan($1,0)

  while (%x <= %y) {

    if (% [ $+ [ $+(FN,$chr(46),$1,$chr(46),$comchan($1,%x)) ] ] == 1) { echo $color(info) -t $comchan($1,%x) * Login: $1 - FN: $2- | set % [ $+ [ $+(FN,$chr(46),$1,$chr(46),$comchan($1,%x)) ] ] 2 }

    inc %x

  }

  unset % [ $+ [ $+(FN,$chr(46),$1,$chr(46),*) ] ]

}

replace regex code :

Kod:

on *:snotice:*Client*connecting on*:{

  var %ip $remove($gettok($10,2,64),$chr(41))

  if $regex(%ip,/(78.129.202.38|207.192.75.252|109.169.29.95|64.62.228.82)) { halt }

  who +I $9 

}

on *:snotice:*Client*connecting at*:{

  var %ip $remove($gettok($10,2,64),$chr(41))

  if $regex(%ip,/(78.129.202.38|207.192.75.252|109.169.29.95|64.62.228.82)) { halt }

  who +I $8 

}

i dont know who +I command result
you can show me, use who command "/who +I nickname" copy here result.
but first put this code in remote :)

Kod:

raw *:*:echo -s $numeric : $1-

elhale

18 Ocak 2016 02:48

Cevap: Real Name revealer

Alıntı:

XcLusive Nickli Üyeden Alıntı (Mesaj 1041725434)

maybe hash table dont work correctly :)
i think problem is UTF-8 character set problem. (not sure)
here new code:

No. now it doesn't work at all lol. No hashtable created, nothing...

Alıntı:

you can show me, use who command "/who +I nickname" copy here result.
but first put this code in remote :)

Kod:

raw *:*:echo -s $numeric : $1-

352 : elhale * c2e69fe6 207.192.75.252 Ballkani.Albnetwork.net Nertil_Swiss H 1 194.230.159.230
-
* Nertil_Swiss H c2e69fe6@207.192.75.252 :1 194.230.159.230
315 : elhale Nertil_Swiss End of /WHO list.
Nertil_Swiss End of /WHO list.

XcLusive

18 Ocak 2016 21:05

Cevap: Real Name revealer

dont look hash tables i make it without hash :)
also i tested code is working?
post here all raw 352 need to parse it.

elhale

19 Ocak 2016 03:21

Cevap: Real Name revealer

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] thx for answering, but maybe im not explaining myself well enough. :P

Alıntı:

XcLusive Nickli Üyeden Alıntı (Mesaj 1041726341)

also i tested code is working?

No, the new code without hashtable is not working for me. :)

Alıntı:

post here all raw 352 need to parse it.

this is the result of a user connecting using 1 of mibbit ip-s... when they connect with mibbit the real ip is in place of real name

352 : elhale * c2e69fe6 207.192.75.252 Ballkani.Albnetwork.net Nertil_Swiss H 1 194.230.159.230

elhale (my nick)

207.192.75.252 (mibbit ip, * Dns resolving 207.192.75.252 * Dns resolved 207.192.75.252 to ircip1.mibbit.com)

c2e69fe6 (ident of user)

Ballkani.Albnetwork.net (server)

Nertil_Swiss (nick of user)

H 1 (1 hops, because it is a hub)

194.230.159.230 (realname of user, which it is the real ip aswell)

so, if I want to ban this user I use this command

/os sgline add +2d 194.230.159.230 :reason

I have created an alias like this:

F8 /os sgline add +15d $cb :Proxy/Floode

so, I select the "realname" and push f8.

That's why I wanna see the realname of users connecting with mibbit when they join the channel so I can see who is using proxy and select the ip (realname) fast.

KuL	19 Ocak 2016 05:15

Cevap: Real Name revealer

Hi @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ,

I am sorry for the unusual time response.

If your code is working you can use the hotlink event to allow youre mouse to click on the fullname and execute automaticly a command (ex: sqline).

For your other problem, like this :)

Alıntı:

elhale Nickli Üyeden Alıntı (Mesaj 1041725158)

Kod:

on *:snotice:*Client*connecting on*:{

  var %ip $remove($gettok($10,2,64),$chr(41))

  if $regex(%ip,/^(78.129.202.38|207.192.75.252|109.169.29.95|64.62.228.82)/i) { halt } { 

    who +I $9 

  }

}

on *:snotice:*Client*connecting at*:{

  var %ip $remove($gettok($10,2,64),$chr(41))

  if $regex(%ip,/^(78.129.202.38|207.192.75.252|109.169.29.95|64.62.228.82)/i) { halt } { 

    who +I $8 

  }

}

but the exempt doesnt work, it does the who command to all users connecting.

I hope you'll understand what im trying to do. Thankyou again.

I dont know if I am right or not, but why are you opening a bracket after IF again?

Example:

Kod:

if $regex(%ip,/^(78.129.202.38|207.192.75.252|109.169.29.95|64.62.228.82)/i) { halt }

The red one is the opening bracket for this IF and the blue one is the close bracket. Now the if command should finished with the last blue bracket ( } ). But you open a bracket again, for what?

Try this, I think it should help you :)

Kod:

on *:snotice:*Client*connecting on*:{

  var %ip $remove($gettok($10,2,64),$chr(41))

  if $regex(%ip,/^(78.129.202.38|207.192.75.252|109.169.29.95|64.62.228.82)/i) { halt }

  who +I $9 

}

on *:snotice:*Client*connecting at*:{

  var %ip $remove($gettok($10,2,64),$chr(41))

  if $regex(%ip,/^(78.129.202.38|207.192.75.252|109.169.29.95|64.62.228.82)/i) { halt }

  who +I $8 

}

elhale

19 Ocak 2016 21:59

Cevap: Real Name revealer

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

this is what I wanna do, but only for users with mibbit on host, and with who command, not whois :P

Kod:

on *:JOIN:#: {

  /set %getname. [ $+ [ $nick ] ] $chan

  /whois $nick

}
 

raw 311:*: {

  if (%getname. [ $+ [ $2 ] ] != $null) {

    /echo $color(join) -ti2 %getname. [ $+ [ $2 ] ]   $2 $+ 's Name: $6-

    /unset %getname. [ $+ [ $2 ] ]

  }

}

XcLusive

19 Ocak 2016 22:14

Cevap: Real Name revealer

so you want when users join channel with mibbit.com host you want to get echo fullname on channel?

elhale

19 Ocak 2016 22:19

Cevap: Real Name revealer

Alıntı:

XcLusive Nickli Üyeden Alıntı (Mesaj 1041726984)

so you want when users join channel with mibbit.com host you want to get echo fullname on channel?

yes! :D

XcLusive

19 Ocak 2016 22:37

Cevap: Real Name revealer

Kod:

on !*:join:#:{

  if *mibbit* !iswm $site { halt }

  set % [ $+ [ $+(FN,$chr(46),$nick,$chr(46),$chan) ] ] 1

  who +g $nick

}

on !*:part:#:{ unset % [ $+ [ $+(FN,$chr(46),$nick,$chr(46),$chan) ] ] }

raw 352:*:{ fnshow $6 $9- | haltdef }

raw 315:*:haltdef

on *:exit:{ unset %FN* }

on ^*:snotice:*Client*exiting*: { unset % [ $+ [ $+(FN,$chr(46),$6,*) ] ] }

alias -l fnshow {

  var %x = 1,%y = $comchan($1,0)

  while (%x <= %y) {

    if (% [ $+ [ $+(FN,$chr(46),$1,$chr(46),$comchan($1,%x)) ] ] == 1) { echo $color(info) -t $comchan($1,%x) * Login: $1 - FN: $2- | set % [ $+ [ $+(FN,$chr(46),$1,$chr(46),$comchan($1,%x)) ] ] 2 }

    inc %x

  }

  unset % [ $+ [ $+(FN,$chr(46),$1,$chr(46),*) ] ]

}

first delete all raw 352 codes on your mirc.
open remote ALT+R > File > New copy and paste code.
code is working if you say again dont working on me i will kill you! ;s27
joke :P if code dont work again you have a problem :D

elhale

19 Ocak 2016 22:55

Cevap: Real Name revealer

Alıntı:

XcLusive Nickli Üyeden Alıntı (Mesaj 1041727001)

Kod:

on !*:join:#:{

  if *mibbit* !iswm $site { halt }

  set % [ $+ [ $+(FN,$chr(46),$nick,$chr(46),$chan) ] ] 1

  who +g $nick

}

on !*:part:#:{ unset % [ $+ [ $+(FN,$chr(46),$nick,$chr(46),$chan) ] ] }

raw 352:*:{ fnshow $6 $9- | haltdef }

raw 315:*:haltdef

on *:exit:{ unset %FN* }

on ^*:snotice:*Client*exiting*: { unset % [ $+ [ $+(FN,$chr(46),$6,*) ] ] }

alias -l fnshow {

  var %x = 1,%y = $comchan($1,0)

  while (%x <= %y) {

    if (% [ $+ [ $+(FN,$chr(46),$1,$chr(46),$comchan($1,%x)) ] ] == 1) { echo $color(info) -t $comchan($1,%x) * Login: $1 - FN: $2- | set % [ $+ [ $+(FN,$chr(46),$1,$chr(46),$comchan($1,%x)) ] ] 2 }

    inc %x

  }

  unset % [ $+ [ $+(FN,$chr(46),$1,$chr(46),*) ] ]

}

hahahaha

ok it didn't work in the begining but I changed who +g $nick with who $nick and now it works... lol

but, I use the raw 352 on other scripts also...

can it be done with raw 311? in raw 311 $6 is fullname

XcLusive

19 Ocak 2016 22:59

Cevap: Real Name revealer

which command using raw 311?

elhale

19 Ocak 2016 23:12

Cevap: Real Name revealer

Alıntı:

XcLusive Nickli Üyeden Alıntı (Mesaj 1041727016)

which command using raw 311?

hmm

so who command uses only raw 352... :S

XcLusive

19 Ocak 2016 23:17

Cevap: Real Name revealer

i guess whois command uses raw 311
who uses 352.
search your remotes look who command how many scripting using.

elhale

19 Ocak 2016 23:38

Cevap: Real Name revealer

Alıntı:

XcLusive Nickli Üyeden Alıntı (Mesaj 1041727035)

i guess whois command uses raw 311
who uses 352.
search your remotes look who command how many scripting using.

the code in the first post from me is an old one from hakwee

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

i took off the on quit part because it created a loop or smth and my mirc froze, but it works and it didn't interfere with my other raw 352 scripts... not for on join tho... can you have a look at it?

XcLusive

20 Ocak 2016 00:13

Cevap: Real Name revealer

fnshow $6 $9-

this my raw code if you have another raw 352 code dont add more you need to combine them.
just add this code " fnshow $6 $9- " raw 352 code section.
like this:
raw 352:*:{
code / code exp...
.
.
.
.
halt-haltdef
}

add my code first line

raw 352:*:{
fnshow $6 $9-
code / code exp...
.
.
.
.
halt-haltdef
}

like this. it should be above halt or haldef.
halt or haldef its stopping continue commands.

change your RNR raw code

old :

Kod:

raw 352:*:.ialmark $6 ( $+ $9- $+ ) | halt

new :

Kod:

raw 352:*:{

  if %FN == on { fnshow $6 $9- }

  .ialmark $6 ( $+ $9- $+ ) 

  halt 

}

and here is changed my code:

Kod:

on !*:join:#:{

  if *mibbit* !iswm $site { halt }

  set % [ $+ [ $+(FN,$chr(46),$nick,$chr(46),$chan) ] ] 1

  set %FN on | who +g $nick

}

on !*:part:#:{ unset % [ $+ [ $+(FN,$chr(46),$nick,$chr(46),$chan) ] ] }

raw 315:*:haltdef

on *:exit:{ unset %FN* }

on ^*:snotice:*Client*exiting*: { unset % [ $+ [ $+(FN,$chr(46),$6,*) ] ] }

alias -l fnshow {

  var %x = 1,%y = $comchan($1,0)

  while (%x <= %y) {

    if (% [ $+ [ $+(FN,$chr(46),$1,$chr(46),$comchan($1,%x)) ] ] == 1) { echo $color(info) -t $comchan($1,%x) * Login: $1 - FN: $2- | set % [ $+ [ $+(FN,$chr(46),$1,$chr(46),$comchan($1,%x)) ] ] 2 }

    inc %x

  }

  unset % [ $+ [ $+(FN,$chr(46),$1,$chr(46),*) ] ] | set %FN off

}

Good luck :)

elhale

20 Ocak 2016 23:36

Cevap: Real Name revealer

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yes, it works perfectly. :) Thank You!

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] thx for helping too.

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