drow elf/reg elf translator. translates text and names. with the drow translation you can translate more than one word at a time eg i love you make sure the drow check box is clicked. but with the elfish part you can only do one word at a time the best site i could find for it sucks make sure the elf check box is clicked. there isnt much to the elvish language.then for a name just click male/female and type in a male/female name in the upper text box then click trans name. thanks to napa and typo for teachin me. napa scripted the drow socket im not that good yet

Menu Menubar,Nicklist,Channel {
  ElvenTranslator
  .ElvenTranslator: dialog $iif($dialog(ElvenTranslator.System),-v,-md ElvenTranslator.System) ElvenTranslator.System 
}
dialog ElvenTranslator.System {
  title "Elven Translator"
  size -1 -1 164 56
  option dbu
  button "Translate", 1, 0 26 35 14
  edit , 4, 1 2 155 11, autohs
  edit , 5, 1 15 155 10, autohs
  Radio "Message chan on " 6, 113 27 50 10, flat 
  Radio "Message chan off" 7, 113 40 50 10, flat 
  check "Drow", 8, 40 27 20 9
  check "Elven", 9, 40 40 23 9
  check "Male name", 10, 70 27 35 9
  check "Girl name", 11, 70 40 35 9
  button "Trans Name", 12, 0 41 35 14

}
On *:dialog:ElvenTranslator.System:init:*: { 
  if (%msgchan == on ) {
    did -c ElvenTranslator.System 6
  }
  elseif (%msgchan == off ) { did -c ElvenTranslator.System 7
  }
  if ( %Language == Drow ) { did -c ElvenTranslator.System 8
  }
  if ( %Language == Elven ) { did -c ElvenTranslator.System 9
  }
  if ( %sex == male ) { did -c ElvenTranslator.System 10
  }
  if ( %sex == female ) { did -c ElvenTranslator.System 11
  }
}
On *:dialog:ElvenTranslator.System:sclick:1: { 
  if (%Language == Drow ) {
    set %trans $did(4) |  sockopen Drow www.eilistraee.com 80 
  }
  elseif (%Language == Elven ) && (%msgchan == off) {   
    did -r ElvenTranslator.System 5 
    set %elvish.msg did -a ElvenTranslator.System 5 
    set %elvish.word $did(4)
    sockopen elvish www.arwen-undomiel.com 80
  }
  else { set %elvish.msg msg $active 12,1[4,1Elvish12,1]
    set %elvish.word $did(4)
    sockopen elvish www.arwen-undomiel.com 80
  }
}
On *:dialog:ElvenTranslator.System:sclick:12: { 
  if (%sex == male ) && (%msgchan == off) {
    did -r ElvenTranslator.System 5 
    set %elvishname.msg did -a ElvenTranslator.System 5
    set %elvishname.word $did(4)
    sockopen elvishname www.arwen-undomiel.com 80
  }
  else { set %elvishname.msg msg $active 12,1[4,1Elvish Name12,1]
    set %elvishname.word $did(4)
    sockopen elvishname www.arwen-undomiel.com 80 
  }
  if (%sex == female ) && (%msgchan == off) {   
    did -r ElvenTranslator.System 5 
    set %elvishname2.msg did -a ElvenTranslator.System 5
    set %elvishname2.word $did(4)
    sockopen elvishname2 www.arwen-undomiel.com 80
  }
  elseif (%msgchan == on) { set %elvishname2.msg msg $active 12,1[4,1Elvish Name12,1]
    set %elvishname2.word $did(4)
    sockopen elvishname2 www.arwen-undomiel.com 80
  }
}

on *:sockopen:Drow:{ 
  var %Drow $+(page=result&words=,%trans,&direction=drow&plain=plain&submit=Translate)
  sockwrite -n Drow POST /chosen/language.php HTTP/1.1 
  sockwrite -n Drow Host: $sock(Drow).addr 
  sockwrite -n Drow Content-Type: application/x-www-form-urlencoded 
  sockwrite -n Drow Content-Length: $len(%Drow) 
  sockwrite -n Drow $+($crlf,%Drow)
}
on *:sockread:Drow: { 
  var %Drow | sockread %Drow
  if ($regex(%Drow,/<tr><td.+>(.+:)<\/b>&nbsp;<.+>(.+?)<\/td>/)) { 
    .set %reg1 $regml(1) $+ $regml(2)
    Did -r ElvenTranslator.System 5
    Did -a ElvenTranslator.System 5 %reg1
    if (%msgchan == on) { msg $active 4,1 $regml(1) $regml(2)
    }  
  }
}
On *:dialog:ElvenTranslator.System:sclick:6: { 
  set %msgchan on
}
On *:dialog:ElvenTranslator.System:sclick:7: { 
  set %msgchan off
}
On *:dialog:ElvenTranslator.System:sclick:8: { 
  set %Language Drow
  did -u ElvenTranslator.System 9
}
On *:dialog:ElvenTranslator.System:sclick:9: { 
  set %Language Elven
  did -u ElvenTranslator.System 8
}
On *:dialog:ElvenTranslator.System:sclick:10: { 
  set %sex male
  did -u ElvenTranslator.System 11
}
On *:dialog:ElvenTranslator.System:sclick:11: { 
  set %sex female
  did -u ElvenTranslator.System 10
}

on *:sockopen:elvish: {
  sockwrite -n $sockname GET /elvish/eng_to_elv.html HTTP/1.1
  sockwrite -n $sockname Host: $+($sock(elvish).addr,$str($crlf,2))
}
on *:sockread:elvish: {
  var %elvish.sock
  sockread %elvish.sock  
  if (<b> $+ %elvish.word isin %elvish.sock) {
    var %elvish.sock $htmlfree(%elvish.sock)
    %elvish.msg $mid(%elvish.sock,1,$calc($pos(%elvish.sock,$chr(40))-2)) 
  }
}
on *:sockopen:elvish: { unset %elvish.* }
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}

on *:sockopen:elvishname: {
  sockwrite -n $sockname GET /elvish/boynames.html HTTP/1.1
  sockwrite -n $sockname Host: $+($sock(elvishname).addr,$str($crlf,2))
}
on *:sockread:elvishname: {
  var %elvishname.sock
  sockread %elvishname.sock  
  if (<b> $+ %elvishname.word isin %elvishname.sock) {
    var %elvishname.sock $htmlfree(%elvishname.sock)
    %elvishname.msg $mid(%elvishname.sock,1,$calc($pos(%elvishname.sock,$chr(40))-2)) 
  }
}
on *:sockopen:elvishname: { unset %elvishname.* }
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}

on *:sockopen:elvishname2: {
  sockwrite -n $sockname GET /elvish/girlnames.html HTTP/1.1
  sockwrite -n $sockname Host: $+($sock(elvishname2).addr,$str($crlf,2))
}
on *:sockread:elvishname2: {
  var %elvishname2.sock
  sockread %elvishname2.sock  
  if (<b> $+ %elvishname2.word isin %elvishname2.sock) {
    var %elvishname2.sock $htmlfree(%elvishname2.sock)
    %elvishname2.msg $mid(%elvishname2.sock,1,$calc($pos(%elvishname2.sock,$chr(40))-2)) 
  }
}
on *:sockopen:elvishname2: { unset %elvishname2.* }
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}