Loading ...
Sorry, an error occurred while loading the content.

[Clip] Re: Screenplay Clips / NTB Pro - request < Mini NTB.

Expand Messages
  • Raymond Fitzgerald
    Howdy Howard, as Jody would have me say! haha ... Actually NTB s clips are macros in the general sense and then some! In Help Eric specifically refers to
    Message 1 of 3 , Jan 28, 2000
    • 0 Attachment
      Howdy Howard, as Jody would have me say! haha

      >So... all Mini NTB bets are off and I would like to ask if any of the
      >eminently clever people on the Clips List would be interested in
      >creating full (NTB Pro) screenplay formatting clips (I suspect macros
      >are not the sensible answer - Jody care to comment, you always make
      >sense?)

      Actually NTB's clips are macros in the general sense and then some! In Help
      Eric specifically refers to ^!Keyboard and ^!Toolbar commands as macros.

      >It would mean increased benefits for Eric who created such a
      >wonderful product at a reasonable entry price, wider
      >audience/distribution and a great writer's tool.

      Yes to the Swiss Army Knife of applications!

      >Kay has kindly offered help and I'm offering opportunity to the
      >broader NTB-Clips crew for the challenge.

      Yay Kay! I'd like to help but am just entering my busy season. Perhaps as
      time permits...

      Howard, since you're going Pro, here's those clips. Of course, the offer
      stands to send them in an attached file (private mail) if those long lines
      get too messed up. The output is just like Gerald's so I trust it's on the
      right track in that respect. But I frequently use INIs to save some
      variables. And as I said earlier, I used the "Character" clip as my excuse
      to have NTB *increment* the saved value. Otherwise it'd be 80% smaller
      (anybody: can you tell if I over-wrote code, i.e., is there a more efficient
      way?)

      Cheers,
      Ray

      H="Scene Heading"
      ; 012600/rayfitz patterned from Gerald Birkenstock's
      ^!SetIniFile ^$GetLibraryName$
      ^!IfFalse ^$IsEmpty(^$GetValue("PLACES:Places")$)$ Skip
      ^!SaveValue PLACES:Places=_EXT.|INT.
      ^!IfFalse ^$IsEmpty(^$GetValue("TIMES:Times")$)$ Skip
      ^!SaveValue TIMES:Times=_DAY|NIGHT|MORNING|NOON|AFTERNOON|EVENING|LATER
      ; long line follows
      ^!Set %Place%=^?{&Place==^$GetValue("PLACES:Places")$};
      %Desc%=^?{(1)&Description=^&}; %Time%=^?{&Time==^$GetValue("TIMES:Times")$}
      ; end of long line
      ^!InsertText ^p^%Place% ^$StrUpper("^%Desc%")$ - ^%Time%^p^p
      ; long line follows
      ^!SaveValue
      PLACES:Places=^$SetDefaultValue(^$GetValue("PLACES:Places")$;^%Place%)$
      ; long line follows
      ^!SaveValue
      TIMES:Times=^$SetDefaultValue(^$GetValue("TIMES:Times")$;^%Time%)$
      ; end of long line
      ^!SetWizardLabel Add character; else press ESC or the Cancel button
      ^!Clip Character
      ; end of clip

      H="Character"
      ; 012600/rayfitz patterned from Gerald Birkenstock's
      ; next line speeds it up for slow computers!
      ^!SetHintInfo Character
      ^!SetListDelimiter |
      ^!SetIniFile ^$GetLibraryName$
      ^!IfFalse ^$IsEmpty(^$GetValue("CHARACTERS:Characters")$)$ Skip
      ; long line follows
      ^!SaveValue CHARACTERS:Characters=_Ann|Michael|Eddie|Liam|Frannie|Charles
      ; end of long line
      ^!SetArray %Names%=^$GetValue("CHARACTERS:Characters")$
      ^!Set %x%=1
      ^!Set %NrList%=^%Names1^=1
      ; Loop below builds the list each time.
      :LOOP
      ^!If ^%x% < ^%Names0% Next ELSE Set
      ^!Inc %x%
      ^!Append %NrList%=|^%Names^%x%^=^%x%
      ^!Goto Loop
      :SET
      ^!Set %nr%=^?{Name==^%NrList%}
      ^!IfTrue ^$StrPos("_";"^%Names^%nr%%";False)$ Next ELSE Skip_2
      ; long line follows
      ^!Set %Name%=^$StrCopy("^%Names^%nr%%";2;^$StrSize("^%Names^%nr%%")$)$
      ; end of long line
      ^!Goto Skip
      ^!Set %Name%=^%Names^%nr%%
      ^!InsertText ^p^$StrFill(^%space%;23)$^$StrUpper("^%Name%")$
      ^!Inc %nr%
      ^!If ^%nr% <= ^%Names0% Skip
      ^!Set %nr%=1
      ^!Set %NewName%=^%Names^%nr%%
      ; long line follows
      ^!SaveValue
      CHARACTERS:Characters=^$SetDefaultValue(^$GetValue("CHARACTERS:Characters")$
      ;^%NewName%)$
      ; end of long line
      ^!FocusDoc
      ; end of clip

      H=";-----------------------------"

      H="Open/edit INI"
      ; 012800/rayfitz
      ^!Set %R%=^?{Select one==_View (read-only)^=" /R"|Edit^=""}
      ^!IfFileExist "^$GetLibraryPath$^$GetLibraryName$.ini" Skip
      ^!Clip "Create INI"
      ^!IfFalse ^$IsOpen("^$GetLibraryPath$^$GetLibraryName$.ini")$ Open
      ^!SetHintInfo Working...
      ^!SetScreenUpdate OFF
      ^!Open ^$GetLibraryPath$^$GetLibraryName$.ini
      ^!IfTrue ^$IsReadOnly$ ReadOnly
      ^!IfFalse ^%R% End
      ^!IfFalse ^$IsModified$ Skip
      ^!SetScreenUpdate ON
      ^!Goto Close
      :READONLY
      ^!If "^%R%" = " /R" End
      :CLOSE
      ^!Close
      :OPEN
      ^!Open ^$GetLibraryPath$^$GetLibraryName$.ini^%R%
      ^!IfFalse ^%R% Next ELSE End
      ^!Info [L]Just make your edits, then File|Save (Ctrl+S). ^%Note%^%nl%^%nl%As
      you can see, values are separated by the pipe symbol ("|"). And the default
      value is preceded by an underscore ("_").
      ; end of clip

      H="_Create INI"
      ; 012800/rayfitz
      ; This clip is needed only if you try to open/edit INI before running the
      other clips!
      ^!SetIniFile ^$GetLibraryName$
      ^!SaveValue PLACES:Places=_EXT.|INT.
      ^!SaveValue TIMES:Times=_DAY|NIGHT|MORNING|NOON|AFTERNOON|EVENING|LATER
      ^!SaveValue CHARACTERS:Characters=_Ann|Michael|Eddie|Liam|Frannie|Charles
      ; end of clip
    Your message has been successfully submitted and would be delivered to recipients shortly.