-------------------------------------------------------------------
; Anaking
-------------------------------------------------------------------
; Ogamenet.net visit #Anaking
-------------------------------------------------------------------
on *:TEXT:*:*:{
if ($me isin $strip($1-)) {
echo -set # < $+ $nick $+ > $replace($1-,$me,$chr(2) $+ $me)
if ($left($active,1) == $chr(35)) {
var %aviso.nombra te nombró en #
}
else var %aviso.nombra te cuackeó en privado
if ($appactive) {
if ($active == #) {
return
}
else { .timeravisoprote 1 1 echo $avisito($nick %aviso.nombra , $left($1-,30) ...) }
}
else { .timeravisoprote 1 1 echo $avisito($nick %aviso.nombra , $left($1-,30) ...) }
}
}
alias avisito {
var %x = $calc($window(-1).w - $window(@avisotip).w - 10)
if ($1) {
%aviso = $window(-1).h
var %t1 = $wrap($replace($1,_,$chr(32)),tahoma,11,300,1) , %t2 = $wrap($strip($2-),tahoma,11,300,1) | if $wrap($strip($2-),tahoma,11,300,0) > 1 { %t2 = %t2 ... }
var %an = $width(%t1,tahoma,11,1), %an2 = $width(%t2,tahoma,11) | if %an2 > %an { %an = %an2 } | inc %an 20
.timeravisotip off | window -c @avisotip | window -pkdoihn +dL @avisotip %x %aviso %an 50
drawrect -rnf @avisotip $rgb(80,105,233) 1 0 0 %an 50 | drawrect -rnfd @avisotip $rgb(255,216,77) 1 1 1 $calc(%an -2) 48 6 6
drawtext -rno @avisotip $rgb(248,248,55) tahoma 11 $calc((%an / 2) - ($width(%t1,tahoma,11,1) / 2) + 1) 11 %t1
drawtext -rno @avisotip $rgb(0,0,0) tahoma 11 $calc((%an / 2) - ($width(%t1,tahoma,11,1) / 2)) 10 %t1
drawtext -rn @avisotip $rgb(248,248,55) tahoma 11 $calc((%an / 2) - ($width(%t2,tahoma,11) / 2) + 1) 27 %t2
drawtext -rn @avisotip 0 tahoma 11 $calc((%an / 2) - ($width(%t2,tahoma,11) / 2)) 26 %t2
%avisofunde = 10 | .timeravisotip off
drawline @avisotip | window -o @avisotip %x %aviso | .timerCARTELI -mi 1 100 .timeravisotip -mio 100 0 avisito
return
}
if (%aviso < $calc($window(-1).h - 80)) { unset %aviso | .timeravisotip -oi 1 2 avisitofunde ini | return }
dec %aviso 4 | window @avisotip %x %aviso | setlayer %avisofunde @avisotip | inc %avisofunde 12
}
alias avisitofunde {
if $1 == ini { set -u2 %tmp.avisitofunde 254 | .timeravisotip -moi 255 1 avisitofunde }
if (%tmp.avisitofunde < 255) setlayer %tmp.avisitofunde @avisotip
if (%tmp.avisitofunde > 0) dec %tmp.avisitofunde 4 | else { .timeravisotip OFF | unset %tmp.avisitofunde | window -c @avisotip | setlayer 255 @avisotip }
}