;################# 
;#     Langeweile v1.5 
;#©2006 by AsgarSerran 
;################# 

dialog boring { 
  title "Langeweile v1.3 [/boring]" 
  size -1 -1 131 28 
  option dbu 
  edit "", 1, 5 12 120 10 
  text "Da du Langeweile hast, gib nun ein: Langeweile100", 2, 2 2 125 8, center 
} 

alias boring { 
  if (!$dialog(boring)) { 
    .set %boring $rand(100,500) 
    dialog -mdo boring boring 
    did -o boring 2 1 Nun gib bitte ein: Langeweile $+ %boring 
  } 
} 
on *:dialog:boring:close:*: { 
  if (%boring) { 
    .timer 1 1 dialog -mdo boring boring 
    .timer 1 1 did -o boring 2 1 Nun gib bitte ein: Langeweile $+ %boring 
    .timer 1 2 echo 4 -a *** T-ERROR 1: Schließen verboten ;) 
  } 
} 
on *:dialog:boring:edit:1: { 
  if ($did(1)) { 
    if ($did(1) == Langeweile $+ %boring) && (%boring != 0) { 
      .dec %boring 
      did -r boring 1 
      did -o boring 2 1 Nun gib bitte ein: Langeweile $+ %boring 
    } 
    if ($did(1) == Langeweile $+ %boring) && (%boring == 0) { 
      .unset %boring 
      did -r boring 1 
      did -o boring 2 1 Herzlichen Glückwunsch, du hast es geschafft! 
      .timer 1 3 dialog -x boring 
    } 
  } 
} 
alias set { 
  if ($right($1,6) == boring) && (%boring) echo 4 -a *** T-ERROR 2: Variable ändern auch verboten ;) 
  else .set $1- 
} 
alias dialog { 
  if ($1 == -x) && ($right($2,6) == boring) && (%boring) echo 4 -a *** T-ERROR 1: Schließen verboten ;) 
  else dialog $1- 
} 
alias unset { 
  if ($right($1,6) == boring) && (%boring != 0) echo 4 -a *** T-ERROR 3: Variable löschen erst recht verboten ;) 
  else .unset $1- 
} 
menu * { 
  [T]oaster Addons 
  .Langeweile: boring 
} 
