i kinda fixed it. i renamed | to winwin just because. and now it works.
;written l4roxyl,,.
;date 29/09/2012
;web; www.mircscripting.net
;..,
on ^*:hotlink:*<*>*:#: {
if ($mouse.key & 1) {
if ($regsubex($1,/[ $+ $prefix $+ <>]/g,) ison #) {
sline # $v1
.enable #winwin
.whois $v1
$(,%__c = #)
return
}
halt
}
}
alias -l _cp return $+($chr(2),$1,$chr(2))
alias -l winwin {
$(,%3 = 250)
while /____\ {
dec -u %3 1
window @_/ $window(@_/).dx $window(@_/).dy %3 $iif(%3 < 100,$v1,100)
setlayer $calc(%3 -35) @_/
if %3 = 0 { window -c @_/ | $iif($hget(%_w),hfree $v1) | break }
}
}
alias -l sq {
$(,%_w = $1)
$iif($window(@_/),window -c $v1)
window -pdBw0zo +bL @_/ $2 $3 0 0
while /?/?_\?\? {
inc -u %2 5
window @_/ $calc($2 -10) $calc($3 -10) %2 $iif(%2 >= 100,100,%2)
drawrect -rf @_/ $rgb(0,0,0) 1 0 0 %2 %2
setlayer $iif(%2 >= 215,215,%2) @_/
if %2 = 250 break
}
drawfill -r @_/ $rgb(0,0,0) - 0 0
drawrect -rf @_/ $rgb(65,129,127) 1 0 0 250 7
drawrect -r @_/ $rgb(65,129,127) 1 0 0 248 98
var %_dt__: = drawtext -rop @_/ $rgb(255,255,255) Verdana 10 5
var %_n = $token($hget($1,_id),3-,32)
%_n = $iif($len(%_n) >= 32,$mid(%_n,1,32) $+ ..,%_n)
%_dt__: 9 Ident: $_cp($token($hget($1,_id),1,32))
%_dt__: 22 Name: $_cp(%_n)
%_dt__: 35 Chans: $_cp($token($hget($1,_chans),0,32)) $&
- Prefixes: $_cp($regex($hget($1,_chans),/([ $+ $prefix $+ ])#./g)) / Left Click.
%_dt__: 48 Register: $_cp($iif($hget($1,_reg),$v1,Non-register.))
%_dt__: 60 Idle: $_cp($iif($hget($1,_idle),$regsubex($v1,/(\D+)/g,$chr(32) \1),Accessible.))
%_dt__: 71 Connect time: $_cp($iif($hget($1,_sign),$v1,Accessible.))
%_dt__: 83 Status: $_cp($iif($hget($1,_own),$v1,Unauthorized user.))
}
menu @_/ {
leave:winwin
rclick:!echo -ec info %__c - %_w in chans: $_cp($hget(%_w,_chans))
dclick:winwin | query %_w
}
#winwin off
raw *:*: {
haltdef
tokenize 32 $rawmsg
var %_ = hadd -m $4
if ($2 = 311) %_ _id $5-6 $strip($right($8-,-1))
if ($2 = 307) %_ _reg Registered.
if ($2 = 319) %_ _chans $right($5-,-1)
if ($2 = 317) {
%_ _idle $duration($5)
%_ _sign $asctime($6,dd/mm/yy - hh:nn:ss)
}
if ($2 = 313) %_ _own $right($5-,-1)
if ($2 = 318) {
sq $4 $mouse.dx $mouse.dy $active
.disable #winwin
}
}
#winwin end