ASCII Dialog

By ^Neptune on Aug 01, 2008

Image
There's quite a lot of these on Hawkee, but I just wanted to post my own one. I think it looks better, too (not being big headed, lol). Paste in remotes (ALT+R) and type /ASCII.

The Character Number search will highlight the Nth character in the list. The Symbol Number will get the number you put in the edit box and return the symbol in the box below. This shouldn't be hard to use.. there's a help box at the far bottom that tells you what you're hovering over.

You may notice that this comes directly from my MP3 Player, but eh, this is for people who haven't got it.

dialog ASCII {
  title "ASCII"
  size -1 -1 260 140
  option pixels 
  list 1, 1 1 115 95, vsbar size
  button "Copy to Clipboard", 2, 2 97 115 20, flat
  button "Close", 3, 2 117 115 20, flat
  edit "", 4, 130 15 55 20
  button "Search", 5, 190 15 55 20
  box "Character Number", 7, 120 0 135 40
  edit "", 8, 130 55 55 20
  button "Search", 9, 190 55 55 20
  edit "", 10, 130 78 100 20, read
  box "Symbol Number", 11, 120 40 135 63
  edit "", 12, 120 105 135 33, read autovs multi
}

alias ASCII { dialog $iif($dialog(ascii),-v,-md) ascii ascii }

on *:dialog:ascii:mouse:*: {
  if ($did == 1) {
    did -ra $dname 12 This is a list of $crlf $+ ASCII characters.
  }
  if ($did == 2) {
    did -ra $dname 12 Use this to copy what $crlf $+ you have selected.
  }
  if ($did == 3) {
    did -ra $dname 12 Use this to close the $crlf $+ dialog.
  }
  if ($did == 4) {
    did -ra $dname 12 Type in an ASCII $crlf $+ number here.
  }
  if ($did == 5) {
    did -ra $dname 12 Click this to search $crfl $+ for an ASCII character.
  }
  if ($did == 8) {
    did -ra $dname 12 Insert an ASCII symbol $ctrl $+ here.
  }
  if ($did == 9) {
    did -ra $dname 12 Use this to search $crfl $+ for an ASCII symbol.
  }
  if ($did == 10) {
    if (!$did(10).text) {
      did -ra $dname 12 Search for an ASCII symbol.
    }
    else {
      did -ra $dname 12 This is the ASCII symbol $crlf $+ you searched for.
    }
  }
}

alias -l chars {
  did -a $dname 1 -----------------
  did -a $dname 1 NOT ALL ASCII 
  did -a $dname 1 CHARACTERS
  did -a $dname 1 WORK IN mIRC,
  did -a $dname 1 SO EXPERIMENT!
  did -a $dname 1 -----------------
  var %x = 1, %y = 255
  while (%x <= %y) {
    did -a $dname 1 $chr(%x)
    inc %x
  }
}

on *:dialog:ascii:init:0: {
  did -b $dname 5,9
  $chars
}

on *:dialog:ascii:edit:*: {
  if ($did == 4) {
    if (!$did(4).text) {
      did -b $dname 5
    }
    else {
      did -e $dname 5
    }
  }
  if ($did == 8) {
    if (!$did(8).text) {
      did -b $dname 9
      did -r $dname 10
    }
    else {
      did -e $dname 9
    }
  }
}

on *:dialog:ascii:sclick:*: { 
  if ($did == 1) {
    if (!$did(1).sel) {
      did -b $dname 2
    }
    elseif ($did(1).sel) {
      did -e $dname 2
    }
  }
  if ($did == 3) {
    dialog -x $dname 
  }
  if ($did == 2) {
    clipboard $did(1).seltext 
    dialog -t ascii ASCII: Copied to clipboard
    .timercop 1 1 dialog -t ascii ASCII
  }
  if ($did == 5) {
    if ($did(4).text > 255) {
      noop
      $input(Please do not enter a number above 255.,uwo,Error!)
    }
    else {
      did -c $dname 1 $calc($did(4).text + 6)
    }
  }
  if ($did == 9) {
    did -ra $dname 10 $asc( $+ $did(8).text $+ )
  }
}

Comments

Sign in to comment.
PATX   -  Mar 14, 2009

me rates 8 cos i have no other acii dialogs :p

 Respond  
Eugenio   -  Aug 09, 2008

/me rates 7
Its usefull, but no diff to the other 10 ASCII dialogs I have
`-.-´

 Respond  
^Neptune   -  Aug 09, 2008

No comments? :[

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.