Miscellany

dialog Danim { 
  title " " 
  size -1 -1 1 1 
  option dbu 
  button "Animate the titlebar again !", 1, 5 35 90 10, flat 
  button "Do it again :D", 2, 5 55 90 10, flat 
  button "Shrink and die !", 3, 5 75 90 10, flat 
  text "http://uptheirons.co.sr/", 5, 5 90 90 10, center disable 
} 

alias Danim { 
  if ($dialog(Danim)) { 
    dialog -c Danim Danim 
    dialog -mado Danim Danim 
  } 
  else { dialog -mado Danim Danim } 
} 

alias dan.an { 
  var %i 0 
  while (%i <= 100) { 
    dialog -srb danim -1 -1 %i %i 
    var %t 1 
    while (%t <= 80) inc %t 
    inc %i 
  } 
  .timer -m 1 1 dan.tbar 
} 

on *:dialog:danim:init:*: { 
  .timer -m 1 1 dan.an 
} 

alias -l dan.tbar { 
  var %i 0 
  while (%i <= 24) { 
    dialog -t danim $left(Animate your dialogzz ;],%i) 
    var %t 1 
    while (%t <= 400) inc %t 
    inc %i 
  } 
} 

alias dan.die { 
  var %i 100 
  while (%i >= 0) { 
    dialog -srb danim -1 -1 %i %i 
    var %t 1 
    while (%t <= 80) inc %t 
    dec %i 
  } 
  dialog -c danim 
} 

on *:dialog:danim:sclick:*: { 
  if ($did == 1) { dan.tbar } 
  if ($did == 2) { danim } 
  if ($did == 3) { dan.die } 
}