Thank you very much maroon you are great!

I put up ready codes, if they are helpful to someone else.

[Linked Image from media.snimka.bg]

Code
-----------------------------------------------------------
ON *:JOIN:#: {
  if ($istok(%ip,$address($nick,2),32)) {
  /msg  $me $timestamp 4 $nick 10 with IP: 4 $address 10 JOIN: $chan
  var %a $findtok(%ip,$address($nick,2),1,32)
  set %ip *!*@t3vik5.ip.btc-net.bg *!*@t3dsg7.ip.btc-net.bg $deltok(%ip,%a,32)
  }
}
------------------------------------------------------------
ON *:QUIT: { 
  if (!$nick(#sex,$nick)) return
  if ($istok(%ip,$address($nick,2),32)) {
  /msg  $me $timestamp 4 $nick 10 with IP: 4 $address 10 QUIT: $chan
  var %a $findtok(%ip,$address($nick,2),1,32)
  set %ip *!*@t3vik5.ip.btc-net.bg *!*@t3dsg7.ip.btc-net.bg $deltok(%ip,%a,32)
  }
}
--------------------------------------------------------------
ON *:PART:#sex: { 
  if ($istok(%ip,$address($nick,2),32)) {
  /msg  $me $timestamp 13 $nick 10 with IP: 13 $address 10 PART: $chan
  var %a $findtok(%ip,$address($nick,2),1,32)
  set %ip *!*@t3vik5.ip.btc-net.bg *!*@t3dsg7.ip.btc-net.bg $deltok(%ip,%a,32)
  }
}
---------------------------------------------------------------