Waves

By BlueThen on Jan 18, 2009

Waves is another Dialog animation I made using scrollbars and checkboxes. Enjoy.

Image

;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 }
}

Comments

Sign in to comment.
Basillisk   -  Feb 02, 2009

it relieves stress cause you stare at it for ages and wonder whats moving the scroll bars, but then you start to feel stupid cause you've stared at it for an hour and haven't figured it out =(

 Respond  
BlueThen   -  Jan 18, 2009

I'm sure I can think of a point for it.

 Respond  
PuNkTuReD   -  Jan 18, 2009

would be good if you could choose a speed

 Respond  
Aucun50   -  Jan 18, 2009

Might be pointless but i like it because looks nice.

 Respond  
PuNkTuReD   -  Jan 18, 2009

very interesting, but very pointless.

 Respond  
Aucun50   -  Jan 18, 2009

As always Great work!

 Respond  
Kirby   -  Jan 18, 2009

Another great dialog by BlueThen.
(So many picture dialogs! :()

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.