/*	Wordworth_Tips

		Displays tips on Wordworth.

		Digita ARexx Script for Wordworth 7
		Copyright 1998, Digita International Ltd.
		
		Created: 31 May 1996
		Author:  MJ
*/


OPTIONS RESULTS


/* The Tip Text */
NumTips = 40

Tip1  = "You can import TurboCalc Spreedsheets"
Tip1b = "by choosing 'Place Table' (Object menu)."

Tip2  = "If you hold down the Control key when drawing"
Tip2b = "lines it keeps them horizontal or vertical."

Tip3  = "Never play leap-frog with a unicorn."
Tip3b = ""

Tip4  = "You can get help on a menu command by"
Tip4b = "highlighting it and pressing the Help key."

Tip5  = "You can increase/decrease the size of selected"
Tip5b = "text by pressing Ctrl and comma or full-stop."

Tip6  = "You can print help topics by choosing"
Tip6b = "Print from the help Project menu."

Tip7  = "You can move or copy text by dragging and dropping."
Tip7b = "To copy the text, hold down the Control key as you drag."

Tip8  = "You can set the size of Sub/Superscript and SmallCaps text"
Tip8b = "in the 'Document-Options' requester (Format menu)."

Tip9  = "You can sort paragraphs alphabetically by"
Tip9b = "selecting them and choosing Sort (Tools menu)."

Tip10  = "You can use AutoCorrect to automatically"
Tip10b = "correct common typing mistakes you make."

Tip11  = "You can quickly open one of the last documents you worked on"
Tip11b = "by choosing it from the Open Recent sub-menu (Project menu)."

Tip12  = "You can quickly copy the format of a paragraph to others"
Tip12b = "using the Fast Format pipette icon in the ruler tools."

Tip13  = "You can lock objects onto the page to stop them"
Tip13b = "from accidentally being moved or re-sized."

Tip14  = "You can quickly replace text"
Tip14b = "by selecting it and typing."

Tip15  = "You can store commonly used"
Tip15b = "phrases in the Librarian."

Tip16  = "If you are bored, you can play a puzzle"
Tip16b = "game by choosing Playtime (Tools menu)."

Tip17  = "You can change the icons which appear"
Tip17b = "on the toolbar in the Toolbar Settings."

Tip18  = "It is quicker and easier to use keyboard shortcuts."
Tip18b = "Choose Shortcuts (Help menu) for a list of them."

Tip19  = "You can find out how many words are in the"
Tip19b = "document by choosing Statistics (Tools menu)."

Tip20  = "You can edit a Style Sheet by holding down Alt"
Tip20b = "and double-clicking it in the Styles palette."

Tip21  = "You can edit a document while it is being printed by selecting"
Tip21b = "the 'Background Printing' option in the Print requester."

Tip22  = "You can print sideways on paper by selecting the"
Tip22b = "'Landscape' option on the Document Format requester."

Tip23  = "You can close a requester by pressing ESC."
Tip23b = ""

Tip24  = "You should never dive into murky waters."
Tip24b = ""

Tip25  = "You can show paragraph marks, tabs, spaces and other"
Tip25b = "hidden codes by choosing 'Show Codes' (View menu)."

Tip26  = "You can select a word by double-clicking"
Tip26b = "it, and a line by triple-clicking it."

Tip27  = "You can change the measurement"
Tip27b = "unit in the View settings."

Tip28  = "You can add or remove words from the"
Tip28b = "user dictionary in the Spell settings."

Tip29  = "You can save time by creating templates"
Tip29b = "for commonly used types of documents."

Tip30  = "You can use AutoCorrect to expand abbreviations"
Tip30b = "such as 'asap' for 'as soon as possible'."

Tip31  = "You can delete files by choosing Open (Project menu),"
Tip31b = "selecting the file and choosing Delete (Control menu)."

Tip32  = "Pressing Left-Amiga and 'N' brings"
Tip32b = "the Workbench screen to the front."

Tip33  = "Pressing Left-Amiga and 'M'"
Tip33b = "cycles through the screens."

Tip34  = "It's never too late to learn to play the piano."
Tip34b = ""

Tip35  = "You can insert a tab character in a"
Tip35b = "table cell by pressing CTRL+TAB."

Tip36  = "Wordworth will create backup copies of documents"
Tip36b = "if you turn this option on in the File Settings."

Tip37  = "Sofia is the capital of Bulgaria."
Tip37b = ""

Tip38  = "You can draw boxes, circles and lines directly"
Tip38b = "on the page using Wordworth's Drawing Tools."

Tip39  = "Look in the Help sections 'How do I?' and 'Troubleshooting'"
Tip39b = "if you have a problem, the answer may be in there!"

Tip40  = "You can type any point size into the font size gadget."
Tip40b = ""


/* Main Program */

Num = Random(1,NumTips)
Tip = "Tip" || Num

START:
WizardReq TITLE "Wordworth Tips (" Num "/" NumTips ")" LABEL "Did you know?..." LABEL "" LABEL Value(Tip) LABEL Value(Tip || "b") BUTTON "-1" "_Done" BUTTON 2 "_Find..." Button 3 "_Another..."

If Result = -1 THEN
	Exit

If Result = 3 THEN DO
	PrevNum = Num
	Do Until Num ~= PrevNum
		Num = Random(1,NumTips)
	END
	Tip = "Tip" || Num
	Signal START
END

WizardReq TITLE "Wordworth Tips (" Num "/" NumTips ")" LABEL "Enter a word relating to the" LABEL "subject you wish a tip on." TEXTBOX 1 "_Word:" BUTTON 1 "_Find" BUTTON "-1" "_Cancel"
If Result = -1 THEN
	Signal START

Wizard_GetTextBox 1
FindText = Result
FindText = Upper(FindText)

If Num = NumTips THEN
	Num = 0

Num = Num + 1

OldNum = Num

Finished = 0

Do Until Finished = 1
	Tip = "Tip" || Num
	TipText = Value(Tip) || " " || Value(Tip || "b")

	TipText = Upper(TipText)

	Found = Find(TipText, FindText)
	If Found ~= 0 THEN
		Break

	Found = Find(TipText2, FindText)
	If Found ~= 0 THEN
		Break

	If Num = NumTips THEN
		Num = 0

	Num = Num + 1

	If Num = OldNum THEN DO
		RequestNotify PROMPT "No match found!"
		Finished = 1
	END
END

	Signal START
