Code:
on *:dialog:loop:sclick:2:{
  did -r $dname 1
  did -b $dname 2
  var %i = 1
  while (%i <= 9999) {
    did [color:red]-i[/color] $dname 1 [color:red]$r(1,%i)[/color] %i
    inc %i
  }
  did -e $dname 2 
}