on *:Load: { window @ASCII | echo @ASCII 5Ascii generator by DoruMolnar loaded. To use it, click ASCII - Generate in the channel menu. | .timeras 1 3 window -c @ASCII }
dialog ascii {
  title ASCII
  option dbu
  size -1 -1 40 170
  list 1, 0 0 40 130
  button "Default", 2, 0 130 40 8
  button "From 1 to ...", 3, 0 138 40 8
  button "Copy to clipboard", 5, 0 146 40 16, style multi
  button "Done", 4, 0 162 40 8, ok
}
dialog showascii {
  title Show ascii code
  option dbu
  size -1 -1 80 50
  box "Enter symbol:", 1, 5 5 70 25
  edit "", 2, 10 15 8 10
  text "ASCII", 3, 20 17 20 10
  edit "", 4, 37 15 33 10, style read
  button "Done", 5, 10 35 60 10
}

on *:dialog:ascii:sclick:2: {
  .did -r ascii 1
  set %i 1
  while %i <= 256 { .did -a ascii 1 %i ---> $chr(%i) | inc %i }
  unset %i
}
on *:dialog:ascii:sclick:3: {
  set %i 1
  set %max $?="Enter max number:"
  if %max isnum {
    .did -r ascii 1
    while %i <= %max { .did -a ascii 1 %i ---> $chr(%i) | inc %i }
  }
  unset %i 
  unset %max
}
on *:dialog:ascii:sclick:5:/clipboard $chr( $+ $did(1).sel $+ )
on *:dialog:showascii:edit:2: { 
  .did -r showascii 4
  .did -a showascii 4 $asc($did(2)) (for $did(2) $+ )
  .did -r showascii 2
}
on *:dialog:showascii:sclick:5: .dialog -x showascii

menu channel {
  -
  Scripter tools
  .ASCII
  ..ASCII list
  ...Generate: { .dialog -m ascii ascii | ascdef }
  ...-
  ...Remove: { 
    set %acc $?!="Are you sure you want to completely remove the Asscii generator add-on?" 
    If %acc == $true { window @ASCII | echo @ASCII 5Unloading ASCII generator... | .timerua 1 1 { echo @ASCII 5ASCII generator successfully removed. Thank you for using my script! (Lestat^) | .timeras 1 3 window -c @ASCII } | .unload -rs ascii.mrc }
  }
  ..Get ascii code:.dialog -m showascii showascii
  -
}

alias ascdef {
  set %i 1
  while %i <= 256 { .did -a ascii 1 %i ---> $chr(%i) | inc %i }
  unset %i
}