NickCaller

By blackvenomm666 on May 11, 2011

Nick caller. copy/paste into a new remotes file change where it says nick2/name to a second nick of yours or your name. then save. right click in either the nicklist the query window channel window or status window or you can go to your menubar menu and go to nickcaller to turn it on. once on if mirc is the active application it will echo in the active channel saying nick called you in chan on server. if mirc isnt the active application it will open an @ window saying nick called you in chan on server saying blablabla at time
it will also open a tip window saying the same thing as the @ window at time

Menu menubar,nicklist,channel,status,query {
  nick caller
  .On: { set %caller on }
  .Off: { set %caller off } 
}
on *:text:*:#: {
  if (%caller == on) {
    if ($appactive == $false) {
      if ($regex($1-,/\Q $+ $me $+ \E/iS)) {
        .set %nickcallerinfo $nick called your nick saying $$1- in $chan on $server at $time(h:nn:tt )
        NickCaller
        window @Nick
        aline -p @Nick 4,1 $+ $nick called you at $time(h:nn:tt ) on channel $chan $+  
        aline -p @Nick 4,1 on server $+ $server $+
        aline -p @Nick 4,1and said: $1-
        aline -p @Nick 4,1---

      }
    }
    if ($appactive == $false) {
      if ($regex($1-,/\Q $+ nick2/name $+ \E/iS)) {
        .set %nickcallerinfo $nick called your nick saying $$1- in $chan on $server at $time(h:nn:tt )
        NickCaller
        window @Nick
        aline -p @Nick 4,1 $+ $nick called you at  on channel $chan $+  
        aline -p @Nick 4,1 on server $+ $server $+
        aline -p @Nick 4,1and said: $1-
        aline -p @Nick 4,1---
      }
    }
    else { if ($appactive == $true) {
        If ($Active != $Chan) {
          if ($regex($1-,/\Q $+ $me $+ \E/iS)) {
            echo -a 12,1 $nick said your nick in $chan on $server
          }
        }
      }
      if ($appactive == $true) {
        If ($Active != $Chan) {
          if ($regex($1-,/\Q $+ nick2/name $+ \E/iS)) {
            echo -a 12,1 $nick said your name in $chan on $server
          }
        }
      }
    }
  }
}
alias NickCaller {
  $tip(NickCaller,NickCaller,%nickcallerinfo,60 ,)
}

Comments

Sign in to comment.
Protheus   -  Dec 28, 2016

1 Unknown command

blackvenomm666  -  Dec 30, 2016

I had completely forgotten about this script

blackvenomm666  -  Dec 30, 2016

I believe the error has something to do with the $tip window

Sign in to comment

blackvenomm666   -  May 12, 2011

and jethro yes i knew i could but im not so good with regex so i got it working one way and didnt fuck with it after that haha. thanks for showin me how though will update after im done with the version reply changer

 Respond  
blackvenomm666   -  May 12, 2011

what will i release next you may ask? why a new dialog script:D haha. thought i'd do something diff here no dialog meh. next release will be a fully customizable version reply changer

 Respond  
Jethro   -  May 12, 2011

Yes, I second napa's point. There is regex option you can select too if you want the match to be as specific as regex. :/ Overall, a good, earnest work as usual.

 Respond  
napa182   -  May 12, 2011

id still go with the built in highlight option, but nice work never-the-less.

 Respond  
Jethro   -  May 11, 2011

Well, you do know that regex can match more than one nickname:

on $*:text:$(/\Q $+ $me $+ \E|nick2|nick3|nick4|nick5/iS):#:{
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.