problem is solved, if anybody no have ant ideas wink

I use asc
Code:
bset &error 1 69 82 82 79 82 32 58 67 108 111 115 105 110 103 32 108 105 110 107 58 32 $iif($hget(%sock,ip,&ip),$bvar(&ip,1-)) 32 40 34 $bvar($+(&,%sock),%offset,%0) 15 34 41 13 10
ircdsock %sock &error
because this is maximum fast and minimum code.