Nick logger/Spy Dialog

Please Register to submit score.

Average Score	8.9
Scores Submitted	8
Date Added	Feb 18, 2008
Last Updated	Feb 18, 2008
Tags	dialog log logger nick spy

Introduction

Ok I made this to keep log's of certain problem users in channels.
load into a new remote and either right click in the menubar or a channel to open it. Click the on the option "help" on the dialog for more details on setting it up..This is a work in progress so il be adding more to it later..Enjoy....

Grab the Code

dialog spy {
  title "User Logger/Spy"
  size -1 -1 162 85
  option dbu
  box "Add/Del A User To Spy On", 7, 2 3 72 79
  edit "", 8, 6 14 64 9, autohs
  button "Add", 9, 6 24 15 9
  button "Del", 10, 55 24 15 9
  list 12, 6 34 64 44, size vsbar
  box "Add/Del Channel To Send Text", 13, 75 3 85 34
  edit "", 14, 79 14 77 9, autohs
  button "Add", 15, 80 24 15 9
  button "Del", 16, 141 24 15 9
  box "On/Off", 20, 75 39 42 21
  radio "On", 21, 77 47 19 10
  radio "Off", 22, 97 47 19 10
  box "Open User Log", 18, 75 62 84 20
  button "Open Log", 19, 100 70 37 10
  box "Time", 23, 118 39 42 21
  text "", 24, 123 48 33 8
  menu "Options", 1
  item "Close", 2, 1, cancel
  item "Help", 6, 1
  menu "Links", 3
  item "Hawkee", 4, 3
  item "EzzyChat", 5, 3
}
dialog spy12 {
  title "User Loger"
  size -1 -1 279 240
  option dbu
  box "User's Log", 1, 2 2 275 215
  list 2, 4 12 270 202, size vsbar
  text "Enter Nick:", 4, 4 227 28 8
  edit "", 5, 44 227 50 9, autohs
  button "Find", 6, 99 227 15 9
  box "User Log Control's", 7, 2 219 275 20
  button "Delete", 3, 121 227 20 9
  button "Copy", 8, 148 227 16 9
  button "Clear", 9, 172 227 16 9
  button "Close", 10, 195 227 16 9, cancel
  edit "", 11, 213 227 61 9, read
}
dialog helpsetup {
  title "Help/Setup"
  size -1 -1 239 111
  option dbu
  box "��X�Ǯ��t0��X׻�", 1, 2 1 235 108
  text "Napa182's User Logger Spy Dialog", 2, 80 9 84 8
  text "To Set Up Just Enter A Nick You Want To Log Or Spy On Into The Add/Del Nick To Spy On, And ", 3, 5 18 229 8
  text "Click Add. Do The Same To Delete A User. You Then Can Either Enter A channel To Send The", 4, 5 28 229 8
  text "Text To Or You Can Leave It Blank. Everything That User Says Or Does Is Logged Into A Txt.", 5, 5 38 229 8
  text "File. You Can Click The Open Log Button And Enter The Nick And Click Find To Pull Up Their Log.", 6, 5 48 229 8
  text "Click Delete To Delete Their Log. You Can Also Highlite A Line Of Text And Click Copy To Send", 7, 5 58 229 8
  text "That Text To Clipboard. Clear Just Clears The Log Window. Also If You Leave The The User Log", 8, 5 68 229 8
  text "Window Open Without Having Added A Channel To Send Text To. It Will Be Sent To The Log", 9, 5 78 229 8
  text "Window. You Can Add As Many Nicks As You Want To Spy On Or Log. Also If A Nick You Are", 10, 5 88 229 8
  text "Logging Changes Nicks It Will Auto Add Their New Nick To Ur Log List . Well I Hope You Enjoy..", 11, 5 98 229 8
}
dialog bad {
  title "ERROR"
  size -1 -1 120 25
  option dbu
  box "��X�Ǯ��t0��X׻", 1, 2 2 117 21
  text "ERROR! Please enter channel as ex. #channel", 2, 4 10 112 8
}
dialog bad2 {
  title "ERROR"
  size -1 -1 87 24
  option dbu
  box "��X�Ǯ��t0��X׻", 1, 1 1 84 21
  text "ERROR! Please Enter A Nick.", 2, 4 10 79 8
}
on *:load: { 
  echo 12 -a You Have Just Loaded Napa182's User Logger Spy Dialog 
  echo 12 -a A Script0rs Inc. Production 
  echo -a 14,1(14,1�15,1�0,1�0,1� ��X�Ǯ��t0��X׻ �0,1�15,1�14,1�)�
}
alias spy { dialog $iif($dialog(spy),-v,-md) spy spy }
alias spy2 { dialog $iif($dialog(spy12),-v,-md) spy12 spy12 }
alias helpsetup { dialog $iif($dialog(helpsetup),-v,-md) helpsetup helpsetup }
alias bad { dialog $iif($dialog(bad),-v,-md) bad bad }
alias bad2 { dialog $iif($dialog(bad2),-v,-md) bad2 bad2 }
alias timez { did -ra spy 24 $time(h:nn:ss tt) }
alias timze { did -ra spy12 11 $asctime(mm.dd.yy h:nn:ss tt) }
menu menubar,channel {
  .Spy Dialog:{ spy }
}
on *:DIALOG:spy:close:0:{ .timerclockk off }
on *:DIALOG:spy12:close:0:{ .timerclockz off }
on *:DIALOG:spy12:init:0:{ did -a spy12 11 $asctime(mm.dd.yy h:nn:ss tt) | .timerclockz 0 1 timze }
on *:DIALOG:spy:init:0:{
  if (%spy == on) { did -c spy 21 }
  if (!%spy) { did -c spy 22 }
  if (%spychan) { did -a spy 14 %spychan | did -b spy 14 }
  did -a spy 24 $time(h:nn:ss tt) | .timerclockk 0 1 timez 
  if (%spynick) {
    var %spnick = $gettok(%spynick,1-,44)
    var %bo = $numtok(%spnick,44), %oh = 1
    while ( %oh <= %bo ) {
      did -a spy 12 $gettok(%spnick,%oh,44)
      inc %oh
    }
  }
}
on *:DIALOG:spy:menu:*:{
  if ($did == 4) { url -a http://www.hawkee.com/ }
  if ($did == 5) { url -a http://www.freewebs.com/shideezdi/index.htm }
  if ($did == 6) { helpsetup }
}
on *:DIALOG:spy:sclick:*:{
  if ($did == 21) { set %spy on | did -u spy 22 }
  if ($did == 22) { unset %spy | did -u spy 21 }
  if ($did == 15) { 
    if ($left($did(14).text,1) != $chr(35)) { 
      bad 
      did -r spy 14
    }
    else { 
      set %spychan $did(14).text
      did -b spy 14
    }
  }
  if ($did == 16) { 
    if ($left($did(14).text,1) != $chr(35)) { 
      bad 
      did -r spy 14
    }
    else {
      unset %spychan 
      did -re spy 14 
    }
  }
  if ($did == 9) {
    if (!$did(8).text) { 
      bad2 
    }
    else { 
      set %spynick $addtok(%spynick,$did(8).text,44)
      did -r spy 8
      did -r spy 12
      var %spnick = $gettok(%spynick,1-,44)
      var %bo = $numtok(%spnick,44), %oh = 1
      while ( %oh <= %bo ) {
        did -a spy 12 $gettok(%spnick,%oh,44)
        inc %oh
      }
    }
  }
  if ($did == 10) { 
    if (!$did(8).text) {
      bad2
    }
    else {
      set %spynick $remtok(%spynick,$did(8).text,1,44)
      did -r spy 8
      did -r spy 12
      var %spnick = $gettok(%spynick,1-,44)
      var %bo = $numtok(%spnick,44), %oh = 1
      while ( %oh <= %bo ) {
        did -a spy 12 $gettok(%spnick,%oh,44)
        inc %oh
      }
    }
  }
  if ($did == 19) { spy2 }
}
on *:DIALOG:spy12:sclick:*:{
  if ($did == 6) {
    if (!$did(5).text) {
      did -r spy12 2
      did -a spy12 2 Error! Please Enter A User's Nick!
    }
    elseif (!$read(spy. $+ $did(5).text $+ .txt)) {
      did -r spy12 2
      did -a spy12 2 Error! Sorry But I Have No Log's Of $did(5).text
    }
    else {
      did -r spy12 2
      var %x = 1
      while (%x <= $lines(spy. $+ $did(5).text $+ .txt)) {
        spy2    
        did -a spy12 2 $read(spy. $+ $did(5).text $+ .txt,%x)
        inc %x
      }
    }
  }
  if ($did == 9) { did -r spy12 2 }
  if ($did == 8) { clipboard $did(2).seltext }
  if ($did == 3) { 
    if (!$did(5).text) {
      did -r spy12 2
      did -a spy12 2 Error! Please Enter A User's Nick!
    }
    elseif (!$read(spy. $+ $did(5).text $+ .txt)) {
      did -r spy12 2
      did -a spy12 2 Error! Sorry But I Have No Log's Of $did(5).text
    }
    else {
    .remove spy. $+ $did(5).text $+ .txt | did -r spy12 2 }
  }
}
on *:text:*:#: {
  if ($nick isin $gettok(%spynick,1-,44)) && (%spy == on) {
    write $+(spy,.,$nick,.,txt) $chan - $time(h:nn tt) < $nick > $1- 
    if (%spychan) {
      msg %spychan $chan - $time(h:nn tt) < $nick > $1-
    }
    elseif (!%spychan) && ($dialog(spy12)) && (%spy == on) {
      did -a spy12 2 $chan - $time(h:nn tt) < $nick > $1-   
    }
  }
}
on *:action:*:#: {
  if ($nick isin $gettok(%spynick,1-,44)) && (%spy == on) {
    write $+(spy,.,$nick,.,txt) $chan - $time(h:nn tt) < $nick > $1-
    if (%spychan) {
      msg %spychan $chan - $time(h:nn tt) < $nick > $1-
    }
    elseif (!%spychan) && ($dialog(spy12)) && (%spy == on) {
      did -a spy12 2 $chan - $time(h:nn tt) < $nick > $1-   
    }
  }
}
on *:join:#: {
  if ($nick isin $gettok(%spynick,1-,44)) && (%spy == on) {
    write $+(spy,.,$nick,.,txt) $time(h:nn tt) < $nick > $address($nick,1) Has Joined $chan
    if (%spychan) {
      msg %spychan $time(h:nn tt) < $nick > $address($nick,1) Has Joined $chan
    }
    elseif (!%spychan) && ($dialog(spy12)) && (%spy == on) {
      did -a spy12 2 $time(h:nn tt) < $nick > $address($nick,1) Has Joined $chan   
    }
  }
}
on *:part:#: {
  if ($nick isin $gettok(%spynick,1-,44)) && (%spy == on) {
    write $+(spy,.,$nick,.,txt) $time(h:nn tt) < $nick > $address($nick,1) Has Parted $chan 
    if (%spychan) {
      msg %spychan $time(h:nn tt) < $nick > $address($nick,1) Has Parted $chan
    }
    elseif (!%spychan) && ($dialog(spy12)) && (%spy == on) {
      did -a spy12 2 $time(h:nn tt) < $nick > $address($nick,1) Has Parted $chan   
    }
  }
}
on *:quit: {
  if ($nick isin $gettok(%spynick,1-,44)) && (%spy == on) {
    write $+(spy,.,$nick,.,txt) $time(h:nn tt) < $nick > $address($nick,1) Has Quit From The Network.
    if (%spychan) {
      msg %spychan $time(h:nn tt) < $nick > $address($nick,1) Has Quit From The Network.
    }
    elseif (!%spychan) && ($dialog(spy12)) && (%spy == on) {
      did -a spy12 2 $time(h:nn tt) < $nick > $address($nick,1) Has Quit From The Network.   
    }
  }
}
on *:nick: { 
  if ($nick isin $gettok(%spynick,1-,44)) && (%spy == on) {
    set %spynick $addtok(%spynick,$newnick,44)
    set %spynick $remtok(%spynick,$nick,1,44)
    did -r spy 8
    did -r spy 12
    var %spnick = $gettok(%spynick,1-,44)
    var %bo = $numtok(%spnick,44), %oh = 1
    while ( %oh <= %bo ) {
      did -a spy 12 $gettok(%spnick,%oh,44)
      inc %oh
    }
    write $+(spy,.,$nick,.,txt) $time(h:nn tt) < $nick > Has Changed Their Nick To $newnick 
    if (%spychan) {
      msg %spychan $time(h:nn tt) < $nick > $address($nick,1) Has Changed Their Nick To $newnick
    }
    elseif (!%spychan) && ($dialog(spy12)) && (%spy == on) {
      did -a spy12 2 $time(h:nn tt) < $nick > $address($nick,1) Has Changed Their Nick To $newnick   
    }
  }
}
on *:kick:#:{
  if ($knick isin $gettok(%spynick,1-,44)) && (%spy == on) {
    write $+(spy,.,$knick,.,txt) $time(h:nn tt) < $knick > Was Kicked By $nick From $chan 
    if (%spychan) {
      msg %spychan $time(h:nn tt) < $knick > Was Kicked By $nick From $chan
    }
    elseif (!%spychan) && (%spy == on) && ($dialog(spy12)) {
      did -a spy12 2 $time(h:nn tt) < $knick > Was Kicked By $nick From $chan  
    } 
  }
  elseif ($nick isin $gettok(%spynick,1-,44)) && (%spy == on) {
    write $+(spy,.,$nick,.,txt) $time(h:nn tt) < $nick > Has Kicked $knick From $chan
    if (%spychan) {
      msg %spychan $time(h:nn tt) < $nick > Has Kicked $knick From $chan
    }
    elseif (!%spychan) && (%spy == on) && ($dialog(spy12)) {
      did -a spy12 2 $time(h:nn tt) < $nick > Has Kicked $knick From $chan   
    }
  }
}
on *:topic:#:{
  if ($nick isin $gettok(%spynick,1-,44)) && (%spy == on) {
    write $+(spy,.,$nick,.,txt) $chan - $time(h:nn tt) < $nick > Has Changed The Topic To " $+ $chan(#).topic $+ "
    if (%spychan) {
      msg %spychan $chan - $time(h:nn tt) < $nick > Has Changed The Topic To " $+ $chan(#).topic $+ "
    }
    elseif (!%spychan) && ($dialog(spy12)) && (%spy == on) {
      did -a spy12 2 $chan - $time(h:nn tt) < $nick > Has Changed The Topic To " $+ $chan(#).topic $+ "  
    }
  }
}
on *:mode:#: { 
  if ($nick isin $gettok(%spynick,1-,44)) && (%spy == on) {
    write $+(spy,.,$nick,.,txt) $time(h:nn tt) < $nick > Has Set Channel Mode To $1- $chan
    if (%spychan) {
      msg %spychan $time(h:nn tt) < $nick > Has Set Channel Mode To $1- $chan
    }
    elseif (!%spychan) && ($dialog(spy12)) && (%spy == on) {
      did -a spy12 2 $time(h:nn tt) < $nick > Has Set Channel Mode To $1- $chan 
    }
  }
}
on *:rawmode:#: {
  if ($nick isin $gettok(%spynick,1-,44)) && (%spy == on) && ($istok(q a o h v,$right($1,1),32)) {
    $iif($regex($left($1,1),/^[+-]$/),) {
      write $+(spy,.,$nick,.,txt) $time(h:nn tt) < $nick > Has Set User Mode For $2 To $1 On $chan
      if (%spychan) {
        msg %spychan $time(h:nn tt) < $nick > Has Set User Mode For $2 To $1 On $chan
      }
      elseif (!%spychan) && ($dialog(spy12)) && (%spy == on) {
        did -a spy12 2 $time(h:nn tt) < $nick > Has Set User Mode For $2 To $1 On $chan 
      }
    }
  }
}

Comments

(6) RSS

Go to Bottom

Lysergic Diethylamide

Comments: 40

mIRC Snippet: Nick logger/Spy Dialog
Posted on Feb 18, 2008 1:51 am

Nice napa you're always coding things I've been thinking of, in ways, but cant quite get it into the script editor. Keep it up!

napa182

Comments: 742

mIRC Snippet: Nick logger/Spy Dialog
Posted on Feb 18, 2008 2:05 am

lol Thanks.

Noutrious

Comments: 340

mIRC Snippet: Nick logger/Spy Dialog
Posted on Feb 18, 2008 4:26 am

Can't see any just of that - so what if he has changed the topic or nick?
IP/Nickname savings could be useful to search for any bad users, but not this!

napa182

Comments: 742

mIRC Snippet: Nick logger/Spy Dialog
Posted on Feb 18, 2008 4:40 am

Quote:

I made this to keep log's of certain problem users in channels.

shideezhi

Comments: 5

mIRC Snippet: Nick logger/Spy Dialog
Posted on Feb 18, 2008 5:17 am

i find it to be usefull in a lot of ways and works well for me :)

[Shadow]

Comments: 3

mIRC Snippet: Nick logger/Spy Dialog
Posted on Feb 18, 2008 7:19 am

nice script, useful, one of that i don't know at all :D
good work napa182 :)

Nick logger/Spy Dialog

Introduction

Grab the Code

Comments

napa182

My Snippet Tags

Contact

Friends (29)

Sponsors

		Head Admin For irc.EzzyChat.com California ÎÇ ×Ç ÑÎ KÅ
Last seen: Jul 08, 2008 Profile \| Website Friends (29) Snippets (40) Images (1) Comments Received (345) Comments Submitted (742) Forum Posts (135)