Waves is another Dialog animation I made using scrollbars and checkboxes. Enjoy.
;Waves
;Made by BlueThen on January 18, 2009
;To install, paste this script in your remotes (alt + r)
;Run by typing /waves or right clicking the channel or status and click "Dialog Waves."
dialog wave {
title "Dialog Waves"
size -1 -1 479 261
option pixels
scroll "", 1, 110 2 18 236, range 1 100
scroll "", 2, 130 2 18 236, range 1 100
scroll "", 3, 150 2 18 236, range 1 100
scroll "", 4, 170 2 18 236, range 1 100
scroll "", 5, 190 2 18 236, range 1 100
scroll "", 6, 210 2 18 236, range 1 100
scroll "", 7, 230 2 18 236, range 1 100
scroll "", 8, 250 2 18 236, range 1 100
scroll "", 9, 270 2 18 236, range 1 100
scroll "", 10, 290 2 18 236, range 1 100
scroll "", 11, 310 2 18 236, range 1 100
scroll "", 12, 330 2 18 236, range 1 100
scroll "", 13, 350 2 18 236, range 1 100
scroll "", 14, 5 2 100 16, horizontal top range 1 100
scroll "", 15, 5 26 100 16, horizontal top range 1 100
scroll "", 16, 5 50 100 16, horizontal top range 1 100
scroll "", 17, 5 74 100 16, horizontal top range 1 100
scroll "", 18, 5 98 100 16, horizontal top range 1 100
scroll "", 19, 5 122 100 16, horizontal top range 1 100
scroll "", 20, 5 146 100 16, horizontal top range 1 100
scroll "", 21, 5 170 100 16, horizontal top range 1 100
scroll "", 22, 5 194 100 16, horizontal top range 1 100
scroll "", 23, 5 218 100 16, horizontal top range 1 100
scroll "", 24, 373 2 100 16, horizontal top range 1 100
scroll "", 25, 373 26 100 16, horizontal top range 1 100
scroll "", 26, 373 50 100 16, horizontal top range 1 100
scroll "", 27, 373 74 100 16, horizontal top range 1 100
scroll "", 28, 373 98 100 16, horizontal top range 1 100
scroll "", 29, 373 122 100 16, horizontal top range 1 100
scroll "", 30, 373 146 100 16, horizontal top range 1 100
scroll "", 31, 373 170 100 16, horizontal top range 1 100
scroll "", 32, 373 194 100 16, horizontal top range 1 100
scroll "", 33, 373 218 100 16, horizontal top range 1 100
link "www.bluethen.com", 34, 375 241 93 17
text "Made by BlueThen...", 35, 5 241 100 17
check "", 36, 113 241 15 17, flat push
check "", 37, 147 241 15 17, flat push
check "", 38, 181 241 15 17, flat push
check "", 39, 215 241 15 17, flat push
check "", 40, 249 241 15 17, flat push
check "", 41, 283 241 15 17, flat push
check "", 42, 317 241 15 17, flat push
check "", 43, 351 241 15 17, flat push
}
on *:dialog:wave:sclick:34: url www.bluethen.com
alias waves {
dialog -m wave wave | set %wave.w 1 | set %wave.w2 1 | set %wave.w3 1 | set %wave.time 0 | set %wave.fps 0
set %wave.fcounter 0 | set %wave.fticks $ticks | .timerwave 0 100 inc %wave.time | waves.frame
}
menu channel,status {
Dialog Waves: waves
}
alias -l waves.frame {
if ($dialog(wave)) {
inc %wave.fcounter | %wave.ltime = $calc($ticks - %wave.oticks)
if ($calc($ticks - %wave.fticks) > 999) { set %wave.fps %wave.fcounter | set %wave.fcounter 0 | set %wave.fticks $ticks }
%wave.y = 10
while (%wave.y) {
did -c wave $calc(%wave.y + 13) $calc(50 + (45 * $sin($calc(%wave.w2 + (%wave.y * 36))).deg))
did -c wave $calc(%wave.y + 23) $calc(50 + (45 * $sin($calc((%wave.w2 + (%wave.y * 36))+ 180)).deg)) | dec %wave.y
}
%wave.x = 13
while (%wave.x) {
did -c wave %wave.x $calc(50 + (45 * $cos($calc(%wave.w + (%wave.x * 27.7))).deg)) | dec %wave.x
}
%wave.f = 8
while (%wave.f) {
did $iif(%wave.w3 == %wave.f, -c, -u) wave $calc(%wave.f +35) | dec %wave.f
}
if (. !isin $calc($int(%wave.w) / 10)) {
inc %wave.w3 1
if (%wave.w3 > 8) set %wave.w3 1
}
inc %wave.w2 $calc(0.00000003 * %wave.ltime) | inc %wave.w $calc(0.00000002 * %wave.ltime) | .timer 1 0 waves.frame
}
else { unset %wave.* | .timerwave off }
}