Buuble Nick Whois

By L4roXyL on Sep 29, 2012

Information window like facebook, whois nick window.

Features:

1- The window is transparent.
2- When you leave through the window automatically closes.
3- If you double-click on the window, enter the user's query.
4- If you left-click on the window, the user's screen will be reflected in the active channels.

Screen:

;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 #___|___
      .whois $v1 
      $(,%__c = #)
      return
    }
    halt
  }
}
alias -l _cp return $+($chr(2),$1,$chr(2))
alias -l ___|___ { 
  $(,%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:___|___
  rclick:!echo -ec info %__c - %_w in chans: $_cp($hget(%_w,_chans))
  dclick:___|___ | query %_w
}
#___|___ 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 #___|___
  }
}
#___|___ end

Like Page Follow Author

Comments

xplo - May 27, 2018

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

Respond

Stewie1k94 - Dec 14, 2012

You're welcome.

Respond

RiMaJoy - Dec 14, 2012

@ toclafane1

thank you.
it is working now.

Respond

Stewie1k94 - Dec 14, 2012

@RiMaJoy - the problem is here:

#___|___ 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 #___|___
  }
}
#___|___ end

Remove the

.disable #___|___

and change

#___|___ off

#___|___ on

Respond

RiMaJoy - Dec 14, 2012

not working for me. :(

Respond