MindReaderCall-Dev.mmbas

From ActivityOwnerWiki
Jump to: navigation, search

'MindReaderCall.mmbas  17Jun08
'Enable MindReader o,q,s,m,c commands for v7 for non-gyroq users
'Syntax Examples:
'"o mapmap"
'"s defaultmap"
'"q buy milk"
'"m friday"
'"c"
'
'Recommend assigning it to File Menu as "&Go MindReader"
'http://creativecommons.org/licenses/by-sa/2.5/
'http://www.activityowner.com
'
Sub Main
     L$ = InputBox$("Enter o, m, q, c, or s followed by Keyword for Destination Map: (e.g. 'o mapmap' or 'q buy milk'", _
     "MindReader","")
     If Left(L$,1)="o" Then Call MacroRun(GetPath(mmDirectoryMyMaps)&"mindreaderopen.mmbas","/open"&Right(l$,Len(l$)-2))
     If Left(l$,1)="s" Then Call MacroRun(GetPath(mmDirectoryMyMaps)&"mindreaderopen.mmbas","/send"&Right(l$,Len(l$)-2))
     If Left(l$,1)="c" Then	Call MacroRun(GetPath(mmDirectoryMyMaps)&"mindreaderNLP.mmbas","")
     If Left(l$,1)="m" Then Call MacroRun(GetPath(mmDirectoryMyMaps)&"mindreaderNLP.mmbas",Right(l$,Len(l$)-2))
	 If Left(l$,1)="q" Then
	    Call MacroRun(GetPath(mmDirectoryMyMaps)&"mindreaderopen.mmbas","/queu"&Right(l$,Len(l$)-2))
		Call MacroRun(GetPath(mmDirectoryMyMaps)&"mindreaderNLP.mmbas","")
	 End If
End Sub