elseif ($did == 94) { msg %uno.channel Buzz
; splay -p $mircdir $+ \UNOsndz\buzz.mp3
;;; /dnudge <dialogname>
alias dnudge {
var %nsound = sounds/buzz.mp3
;-----------------------------------------------------
;1=target, 2=count, 3=x, 4=y, 5=ticks, 6=msec, 7=w, 8=h
if ($1 == $null) return
if ($2 == $null) {
var %x = $iif($dialog($1).x < 0,0,$v1)
var %y = $iif($dialog($1).y < 0,0,$v1)
var %w = $dialog($1).cw, %h = $dialog($dname).ch
.timer -m 1 1 dnudge $1 0 %x %y $ticks 750 %w %h
if ($exists(%nsound)) splay $qt(%nsound)
return
}
if (!$dialog($1)) return
var %x = $3, %y = $4, %o = 4
if ($calc($ticks - $5) > $6) {
dialog -s $1 %x %y $7 $8
return
}
elseif ($2 == 0) { inc %x %o | inc %y %o }
elseif ($2 == 1) { dec %x %o | inc %y %o }
elseif ($2 == 2) { inc %x %o | dec %y %o }
elseif ($2 == 3) { dec %x %o | dec %y %o }
elseif ($2 == 4) { dec %x %o | inc %y %o }
elseif ($2 == 5) { inc %x %o | dec %y %o }
$+(.timer.nudge.,$1) -m 1 30 dnudge $1 $calc(($2 + 1) % 6) $3-
dialog -s $1 %x %y $7 $8
}
}