check this shizznizle out. Your game, but never ending, and in a better dialog..

alias sfe.hint {
  var %r $$did(sfe,66)
  if ($2 <= $1) { tokenize 32 $1 $calc($1 +1) %r }
  var %i = $1,%e = $rand(1,$1)
  while %i > 0 { 
    var %c $rand(1,$2)
    if (%c != %r) { did -a sfe 6 $iif(%i == %e,%r,%c) | dec %i } 
  }
}
alias safe { dialog -m sfe sfe }
alias sfe {
  unset %safe.*
  var %safe.amnt $calc(%level * 3)
  var %safe.num2 $did(sfe,66)
  var %safe.guess2 $1
  if (%safe.guess2 == %safe.num2) {
    echo -a 12You've cracked the04 %level $+ $iif(%level == 1,st,$iif(%level == 2,nd,$iif(%level == 3,rd,th))) safe, 12You're now on level:04 $calc(%level + 1)
    inc %level
  }
  else {
    $iif(%level > 1,dec %level)
    echo -a 04You've 04mis-hit the lock12, the correct number was:04 %safe.num2 12You're now on safe level:04 %level
  }
  dialog -x sfe sfe
  dialog -m sfe sfe
}
dialog sfe {
  title "Safe"
  size -1 -1 62 67
  option dbu
  text "Hint", 1, -147 0 10 8, disable center
  button "Crack", 2, 4 54 50 10
  edit "", 3, 30 44 25 10
  text "Guess:", 4, 4 45 25 8, right
  list 6, 4 6 54 30, size
  text "", 66, 1 1 1 1, hidden
  box Hint, 7, 2 0 58 38
  box Group Box, 5, 2 38 58 28
}

on *:dialog:sfe:init:*: {
  if !%level { set %level 1 }
  unset %safe.*
  var %safe.amnt $calc(%level * 3)
  did -ra sfe 66 $r(1,%safe.amnt)
  echo -a 12You're currently on level:04 %level
  sfe.hint $calc(%level + 2) %safe.amnt
}
on *:dialog:sfe:sclick:2: { sfe $$did(sfe,3) }
on *:dialog:sfe:dclick:6: { did -ra sfe 3 $did(sfe,6).seltext }

Granted all rights.
grats