dynamic lsdynamic-1.61 :used by !netreloadmodule
usermzvars "$configdir$usermzvars.mz" ; a per user config file



dynlayeredshortcut ; if you use layercut, too
dynnohandlestorage
dynnocircularrelativetowindowcenter

*mzvarfile "$usermzvars$" ; should contain "fadedelay"

include "$usermzvars$"


*dyn linear straightgoto
*dyn ~linear

*dyn macro straightgoto
*dyn move 0 10 straightgoto
*dyn ~macro



*dyn linear alpha
*dyn ~linear

*dyn macro alpha
*dyn move 0 $fadedelay$ alpha
*dyn ~macro



;------------------------------------------------------------------------------
; movements
;------------------------------------------------------------------------------

; !move
; \1: class
; \2: caption
; \3: x pos
; \4: y pos
;
; note: coordinates are converted to real negative, if needed


*script bang !move
*script exec !ifeval ("%{\3}" &lt "0") |execute [!varmul \3 -1][!varset \3 ~%{\3}]
*script exec !ifeval ("%{\4}" &lt "0") |execute [!varmul \4 -1][!varset \4 ~%{\4}]
*script exec !dynchangemovement straightgoto dest %{\3} %{\4}
*script exec !straightgoto "%{\1}" "%{\2}"
*script ~bang



; !alphachange
; \1: class
; \2: caption
; \3: start transparency level (0-255)
; \4: end transparency level (optional)
; \5: fade delay (optional)

*script bang !alphachange
*script exec !ifnexist \5 |varset \5 10
*script exec !ifneq \5 "%{fadedelay}" |execute [!varset fadedelay %{\5}][!varsaveall][!reload][!netreloadmodule $dynamic$][!pause 10]
*script exec !ifnexist \4 |varset \4 %{\3}
*script exec !dynchangemovement alpha alpha %{\3} %{\4}
*script exec !alpha "%{\1}" "%{\2}"
*script ~bang