SpellCheck Dialog

Please Register to submit score.

Average Score	9.0
Scores Submitted	7
Date Added	Mar 22, 2008
Last Updated	Mar 22, 2008
Tags	dialog spellcheck

Introduction

Ok i know there is a ton of spellcheckers so il add my take on it as well.
copy/paste into a new remote. Right Click either in a channel or in ur menubar to open....

Grab the Code

dialog spc {
  title "Spell"
  size -1 -1 79 69
  option dbu
  box "Enter 1 Word To Check:", 1, 2 2 76 20
  edit "", 2, 4 10 48 9, autohs left
  button "Check", 3, 54 10 22 9, flat
  box "Outcome", 4, 2 23 76 45
  list 5, 4 32 48 34, size vsbar
  button "Clear", 6, 54 32 22 9, flat
  button "Copy", 7, 54 44 22 9, flat
  button "Exit", 8, 54 56 22 9, flat ok
}
on *:load: { 
  echo 12 -a You Have Just Loaded Napa182's SpellChecker Dialog
  echo 12 -a A Script0rs Inc. Production 
  echo -a 14,1(14,1�15,1�0,1�0,1� ��X�Ǯ��t0��X׻ �0,1�15,1�14,1�)�
}
alias spc { dialog $iif($dialog(spc),-v,-md) spc spc }
menu menubar,channel {
  .Spell Checker:{ spc }
}
alias -l oops {
  did -ra spc 5 Word Not
  did -a spc 5 Found
}
alias -l lookup {
  if (!%temp) { $oops }
  else {
    did -ra spc 5 Maybe Try: 
    var %o = $gettok(%temp,1-,32), %b = $numtok(%o,32), %h = 1
    while (%h <= %b) {
      did -a spc 5 $gettok(%o,%h,32)
      inc %h
    }
  }
}
on *:dialog:spc:init:0:{ did -b spc 3,6,7 }
on *:dialog:spc:edit:2:{ 
  did -e spc 3,6,7 
  if ($chr(32) isin $did(2).text) || ($did(2).text !isalpha) {
    did -r spc 2
    noop $input(Please Enter Only One Word No Space's And No Numbers,uho,ERROR!)
  }
}
on *:dialog:spc:sclick:*: {
  if ($did == 3) {
    if ($sock(spell)) .sockclose spell
    set %cksp $did(2).text
    sockopen spell www.spellcheck.net 80
  }
  if ($did == 6) { did -r spc 2,5 | did -b spc 3,6,7 }
  if ($did == 7) { clipboard $did(5).seltext }
}
on *:SOCKOPEN:spell: {
  sockwrite -nt $sockname GET /cgi-bin/spell.exe?action=CHECKWORD&string= $+ %cksp HTTP/1.1
  sockwrite -nt $sockname Host: www.spellcheck.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:spell: {
  if ($sockerr) { did -ra spc 5 Socket Error }
  else {
    var %spck
    sockread %spck
    if (*correctly* iswm %spck) {  
      did -ra spc 5 %cksp  
      did -a spc 5 Is Right
      sockclose $sockname
      unset %cksp
    }
    elseif (*</BLOCKQUOTE>* iswm %spck) { 
      $lookup
      sockclose $sockname
      unset %temp %cksp
    }
    else { noop $regex(%spck,/(.+)<BR>/i) | set %temp $addtok(%temp,$regml(1),32) }
  }
}

Comments

(4) RSS

Go to Bottom

Comments: 552

Posted on Mar 22, 2008 2:46 pm

*Sighs...Antoher one...Watcha tryin to say here huh huh huh?
We can't shpell?

napa182

Comments: 640

Posted on Mar 22, 2008 2:49 pm

LMFAO

jonesy44

Comments: 347

Posted on Mar 22, 2008 4:16 pm

Quote:

[�:: "napa" Is Wrong ::�]

too true .. xD

Comments: 552

Posted on Mar 23, 2008 3:37 am

Ok as you know i tested this before release.I like it no damn alias to type just open it an input text.Its clean and works well altho like i said maybe a bit wider if some on get uber n3rd they may have longer words but thats nothing.Also like it to be in bot form an maybe a counter of ommon words spellchecked would be neat over all its a ace code as always with your scrips.''Rate it or Hate it?"...9/10.`-.-�

Please Register or Login to start posting comments.

SpellCheck Dialog

Introduction

Grab the Code

Comments

napa182

My Snippet Tags

Contact

Friends (28)

		Head Admin For irc.EzzyChat.com California
Last seen: May 09, 2008 Profile \| Website Friends (28) Snippets (39) Images (1) Comments Received (335) Comments Submitted (640) Forum Posts (128)