ASCII Codes - Dialog

By Jonesy44 on Feb 09, 2008

This is a simple enough script to show the $chr() codes, i've added a search function too so you can find the $chr code easily, without having to search the list.

**UPDATE: Search now returns case sensetive results***

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Scripted By TH aka jonesy44 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

dialog symbols {
  size -1 -1 200 135
  title "mIRC Symbols - ASCII Codes"
  option dbu
  list 1, 2 2 196 80
  text "Result:", 8, 3 78 30 10
  edit "", 2, 22 76 176 10
  box "Search", 3, 2 88 196 35
  edit "", 4, 5 98 100 10
  button "Search By Character", 5, 110 98 80 10
  edit "", 6, 5 110 100 10
  button "Search By ASCII Code", 7, 110 110 80 10 
  link "gfx.myartsonline.com", 9, 23 125 55 10
  text "Scripted by The-Heretic aka jonesy44", 10, 80 125 100 10
}
on *:DIALOG:symbols:init:*: {
  var %i = 1, %x = 255
  while (%i <= %x) {
    did -a symbols 1 $chr(%i)
    inc %i 1
  }
}
on *:DIALOG:symbols:sclick:*: {
  if ($did == 1) {
    did -ra symbols 2 $chr($did(1).sel) - $ $+ chr( $+ $did(1).sel $+ )
  }
  if ($did == 5) {
    var %i = 1, %x = 255
    while (%i <= %x) {
      if ($did(4).text iswmcs $chr(%i)) {
        did -ra symbols 2 $chr(%i) - $ $+ chr( $+ %i $+ )
        inc %i 1
      }
      else {
        inc %i 1
      }
    }
  }
  if ($did == 7) {
    did -ra symbols 2 $chr($did(6).text) - $ $+ chr( $+ $did(6).text $+ )
  }
}
alias symb { dialog -m symbols symbols }

Comments

Sign in to comment.
Jonesy44   -  Feb 10, 2008

ahh, cheers mountaindew, i was just about to check the \'ol help file. Still, laziness prevails =P

 Respond  
guest598594   -  Feb 10, 2008

mIRC Help File If Then Else

isincs string v1 is in string v2 (case sensitive)

   iswm        wildcard string v1 matches string v2

   iswmcs        wildcard string v1 matches string v2 (case sensitive)
 Respond  
Jonesy44   -  Feb 10, 2008

only one small annoying thing, if you search \"C\", it still shows \"c\", any ideas on how to make a while loop case sensative?

 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.