/*
** $VER: CheckWord.ced 1.1 (17.10.00) Adrian (Sauron) Siemieniak
** © 2000 Adrian (Sauron) Siemieniak
**
** This script is based on ARexx script by Siumot/BlaBla from ORT program.
**
** Script  will check if the word under cursor exists in Mentat dictionary
** - it's kind of spell checker.
**
*/

OPTIONS RESULTS

MENTATFILENAME='Mentat:mentat'

IF ~SHOW('P', 'rexx_ced') THEN EXIT 1
ADDRESS 'rexx_ced'

IF ~SHOW('P', 'MENTAT.1') THEN DO
   DM 'Starting Mentat...'
   ADDRESS COMMAND 'Run >NIL: "'MENTATFILENAME'" CX_POPUP'
   ADDRESS COMMAND 'WaitForPort MENTAT.1'
/*	This line will hide Mentat (iconify) - you can remove it	*/
   ADDRESS 'MENTAT.1' HIDE
END

GETWORD
wyraz=RESULT

IF wyraz=0 THEN DO
  DM 'There is no word under cursor!'
  Wait(1)
  DM
  Exit
END

DM 'Checking word...'

ADDRESS 'MENTAT.1' FindWord wyraz

err=RC

IF err=0 THEN tekst='There is no such a word in dictionary'
ELSE IF err=1 THEN tekst='Word 'wyraz' exists in Mentat dictionary'
ELSE tekst='Mentat dictionary error!'


DM tekst
Wait(1)
DM

EXIT

Wait:
	ARG Delay
	TIME( 'R' )
	DO WHILE (TIME( 'E' ) < Delay)
		NOP
	END
	RETURN 0