Forums Scripts & Popups Scrolling Text???

 
alias sct dialog -m scrolltext scrolltext
dialog scrolltext {
  title "Scrolling Text"
  size -1 -1 60 30
  option dbu
  button "", 999, 0 0 0 0, cancel
  text "" , 1, 20 10 20 10
  box "", 800, 10 2 40 20
}
on *:dialog:scrolltext:init:*:{
  set %sct1 1
  set %sct2 9
  runsct
}
on *:dialog:scrolltext:sclick:999:{ .timersct off }
alias sctsetup {
  set %scrolltext *********This-is-Scrolling-Text-********* $+ $asctime(dddd*mmmm*d*yyyy) $+ *********
  inc %sct1
  inc %sct2
  if (%sct2 == $len(%scrolltext)) { 
    set %sct1 1 
    set %sct2 9 
  }
  did -ra scrolltext 1 $mid(%scrolltext,%sct1 - %sct2,10)
  runsct
}
alias runsct { .timersct -m 1 100 sctsetup }