home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / s / story17.zip / STORY.DOC < prev    next >
Text File  |  1988-11-09  |  13KB  |  321 lines
  1.         ╓────────────────────────────────────────────────────────────╖
  2.         ║  D O C U M E N T A T I O N   F O R   S T O R Y   B O A R D ║
  3.         ║                Release 17.1A - Nov. 08, 1988               ║
  4.         ║                                                            ║
  5.         ║                    Jason Trumble, Sysop                    ║
  6.         ║                    The PC-SIG Specialist                   ║
  7.         ║                       19979 160th Ave.                     ║
  8.         ║                     Big Rapids, MI 49307                   ║
  9.         ║                                                            ║
  10.         ║               (616) 796-6230 (300/1200/2400)               ║
  11.         ║                   (616) 796-3270 (Voice)                   ║
  12.         ╙────────────────────────────────────────────────────────────╜
  13.  
  14. WHAT THE MOD DOES
  15. -----------------
  16.  
  17. The Story Board is a really neat mod that I added to my system.  My users
  18. really enjoy it!  I have added Story Board, Music Room, War Room, and
  19. a variable topic board.  This is an interactive story base where the users
  20. type 4 lines maximum of 72 (or whatever they have their right margin set to)
  21. characters and it keeps adding to the end of the file.
  22.  
  23. PS.. I added a JOKE board new to 17.1A!
  24.  
  25. This is what is needed.   You need to create 4 prelog files, which consist
  26. of:
  27.  
  28.      STORY.PRE       '  I have included my .PRE files - You
  29.      MUSIC.PRE       '  Can use them, add to them, trash them,
  30.      WAR-ROOM.PRE    '  start completely from scratch, or do
  31.      VARIABLE.PRE    '  whatever you damn well please!!
  32.      JOKE.PRE
  33.  
  34. These are just text files that you create telling about what each board
  35. does, (ie... WAR-ROOM.PRE  -  ATTENTION!! ADULTS ONLY!  GOT SOMETHING THAT
  36. REALLY PISSES YOU OFF?!)  So create them, (or use mine) and thats about it.
  37. With this mod, you have to give up your  "I)nitial Welcome" feature (which
  38. in the whole existence of my system, I don't think it was EVER used!)
  39. Anyway, it replaces that.  Now go into config and change the symbol that "I"
  40. was to "$" (for $)tory-Board)...  Thats about it... Now add this to your
  41. source and you'll be running!  Don't forget to change your MENUx files to
  42. show the $)tory Board instead of I)nitial welcome.....
  43.  
  44. PS.. You can make more S)tory Boards by adding code or deleting code
  45. after line 1554
  46.  
  47. --------------------------------
  48. --------------------------------
  49. ---**************************---
  50. ---* CHANGES TO RBBS-PC.BAS *---
  51. ---**************************---
  52. --------------------------------
  53. --------------------------------
  54.  
  55.  
  56. My code starts at line 1552
  57. Add ALL of the code between where I have marked off with ^^^^^^^^
  58.  
  59. ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^  YO!!! START HERE! START OF STORY BOARD MODS!!!
  60.  
  61. 1240 IF USER.SECURITY.LEVEL < OPT.SEC(FF) THEN _
  62.               .
  63.               .
  64.               .
  65.               .
  66.               .
  67.          1400, _      ' 1  A)nswer questionnaire 1
  68.          9700, _      ' 2  B)ulletins
  69.          1800, _      ' 3  C)omments
  70.          10970, _     ' 4  D)oor (exit to)
  71.          2000, _      ' 5  E)nter a message
  72.          1275, _      ' 6  F)ile system (exit to)
  73. >>>>>    1552, _      ' 7  $)tory Board Mod       ' !! CHANGE THIS LINE #
  74.                                                   ' was I)nitial welcome
  75.          5300, _      ' 8  J)oin a conference
  76.          3900, _      ' 9  K)ill a message
  77.  
  78. Skip to next...........
  79.  
  80. '
  81. ' ****  $ - COMMAND FROM MAIN MENU (STORY BOARD AND DISPLAY TEXT FILES) ****
  82. '           This was the I)nitial Welcome command before
  83. '
  84. 1552 CALL QTPUT(CHR$(12),0)
  85. 1554 READ$ = "NO"
  86.      CALL SKIPLINE(2)
  87.      CALL QTPUT(FG.1$+"Boards Currently Available:",1)
  88.      CALL QTPUT(FG.1$+"~~~~~~~~~~~~~~~~~~~~~~~~~~~",2)
  89.      CALL QTPUT(FG.2$+"S)tory Board",1)
  90.      CALL QTPUT(FG.3$+"M)usic Room",1)
  91.      CALL QTPUT(FG.4$+"J)oke Board",1)
  92.      CALL QTPUT(FG.1$+"W)ar Room",1)
  93.      CALL QTPUT(FG.2$+"V)ariable Topic",2)
  94.      CALL QTPUT(FG.3$+"[Q]uit"+EMPHASIZE.OFF$,2)
  95.      A$ = "Please make a Selection <S,M,J,W,V,[Q]> "
  96.         SUBROUTINE.PARAMETER = 1
  97.         TURBO.KEY = -TURBO.KEY.USER
  98.         CALL TGET
  99.         CALL ALLCAPS (B$)
  100.                 IF B$ = "S" THEN _
  101.                         STORY$ = "Story" _
  102.                                 GOTO 1556
  103.                 IF B$ = "M" THEN _
  104.                         STORY$ = "Music" _
  105.                                 GOTO 1556
  106.                 IF B$ = "J" THEN _
  107.                         STORY$ = "Joke" _
  108.                                 GOTO 1556
  109.                 IF B$ = "W" THEN _
  110.                         STORY$ = "War-Room" _
  111.                                 GOTO 1556
  112.                 IF B$ = "V" THEN _
  113.                         STORY$ = "Variable" _
  114.                                 GOTO 1556
  115.                 IF B$ = "Q" THEN _
  116.                         GOTO 1596
  117.                 IF B$ = ""  THEN _
  118.                         GOTO 1596
  119.                 GOTO 1596
  120. 1556 FILE.NAME$ = STORY$ + ".PRE"
  121.         GOSUB 1790
  122. 1558 CALL QTPUT(L$,1)
  123.     IF READ$ = "NO" THEN _
  124.     A$="The " + STORY$ + " Board:  R)ead, or [Q]uit" _
  125.         ELSE _
  126.     A$="The " + STORY$ + " Board:  R)ead, A)dd, or [Q]uit"
  127.     SUBROUTINE.PARAMETER = 1
  128.         TURBO.KEY = -TURBO.KEY.USER
  129.         CALL TGET
  130.         CALL ALLCAPS (B$)
  131.     IF B$="R" THEN 1594
  132.     IF READ$ = "NO" AND B$ = "A" THEN _
  133.      CALL QTPUT (FG.1$+CHR$(7)+CHR$(7)+"You MUST read the story FIRST!"+EMPHASIZE.OFF$,2) _
  134.            GOTO 1558
  135.     IF B$="A" THEN 1560
  136.     IF B$="Q" THEN 1554
  137.     IF B$=""  THEN 1554
  138.         GOTO 1554
  139. 1560 CALL QTPUT(FG.4$+LINE.FEED$+"             Type FOUR (4) Lines MAX!! (Allows Word Wrappinmg)"+EMPHASIZE.OFF$,3)
  140.      A$(1)=""
  141.      A$(2)=""
  142.      A$(3)=""
  143.      A$(4)=""
  144. 1561 CALL QTPUT(FG.2$+"1: ",0)
  145.         CALL LINEEDIT (1,RIGHT.MARGIN + 1)
  146.      IF A$(1) = "" THEN 1590
  147. 1564 CALL QTPUT(FG.2$+"2: ",0)
  148.         CALL QTPUT (A$(2),0)
  149.         CALL LINEEDIT (2,RIGHT.MARGIN + 1)
  150.      IF A$(2) = "" THEN 1570
  151. 1566 CALL QTPUT(FG.2$+"3: ",0)
  152.         CALL QTPUT (A$(3),0)
  153.         CALL LINEEDIT (3,RIGHT.MARGIN + 1)
  154.      IF A$(3) = "" THEN 1570
  155. 1568 CALL QTPUT(FG.2$+"4: ",0)
  156.         CALL QTPUT (A$(4),0)
  157.         CALL LINEEDIT (4,RIGHT.MARGIN + 1)
  158.      IF A$(4) = "" THEN 1570
  159. 1570 CALL QTPUT(FG.2$+RETURN.LINE.FEED$+"Your printed part will look like this:",3)
  160.         CALL QTPUT(FG.1$+"  >> Written By: "+ACTIVE.USER.NAME$+" ----- "+DATE$+" <<"+EMPHASIZE.OFF$,2)
  161.         CALL QTPUT(A$(1),1)
  162.                 IF A$(2) = "" THEN GOTO 1572
  163.         CALL QTPUT(A$(2),1)
  164.                 IF A$(3) = "" THEN GOTO 1572
  165.         CALL QTPUT(A$(3),1)
  166.                 IF A$(4) = "" THEN GOTO 1572
  167.         CALL QTPUT(A$(4),1)
  168. 1572    CALL QTPUT("",3)
  169.         A$ = "Do you want to edit this Y/[N]"
  170.         SUBROUTINE.PARAMETER = 1
  171.                 TURBO.KEY = -TURBO.KEY.USER
  172.                 CALL TGET
  173.                 CALL ALLCAPS (B$)
  174.                 IF YES THEN 1574
  175.         GOTO 1584
  176. 1574    CALL SKIPLINE(1)
  177.         CALL QTPUT(FG.2$+RETURN.LINE.FEED$+"Your printed part will look like this:",3)
  178.         CALL QTPUT(FG.1$+"  >> Written By: "+ACTIVE.USER.NAME$+" ----- "+DATE$+" <<"+EMPHASIZE.OFF$,2)
  179.         CALL QTPUT(A$(1),1)
  180.                 IF A$(2) = "" THEN GOTO 1575
  181.         CALL QTPUT(A$(2),1)
  182.                 IF A$(3) = "" THEN GOTO 1575
  183.         CALL QTPUT(A$(3),1)
  184.                 IF A$(4) = "" THEN GOTO 1575
  185.         CALL QTPUT(A$(4),1)
  186. 1575    CALL SKIPLINE(1)
  187.         A$ = FG.5$+"Edit What Line (1,2,3,4,L)ist,Q)uit>"+EMPHASIZE.OFF$
  188.         SUBROUTINE.PARAMETER = 1
  189.                 TURBO.KEY = -TURBO.KEY.USER
  190.                 CALL TGET
  191.                 CALL ALLCAPS(B$)
  192.                 IF B$="1" THEN GOTO 1576
  193.                 IF B$="2" THEN GOTO 1578
  194.                 IF B$="3" THEN GOTO 1580
  195.                 IF B$="4" THEN GOTO 1582
  196.                 IF B$="L" THEN GOTO 1574
  197.                 IF B$=""  THEN GOTO 1575
  198.                 IF B$="Q" THEN GOTO 1570
  199. 1576    CALL EDITALINE(1)
  200.         GOTO 1574
  201. 1578    CALL EDITALINE(2)
  202.         GOTO 1574
  203. 1580    CALL EDITALINE(3)
  204.         GOTO 1574
  205. 1582    CALL EDITALINE(4)
  206.         GOTO 1574
  207. 1584    A$ = "Do you want this to be saved Y/[N]"
  208.         SUBROUTINE.PARAMETER = 1
  209.                 TURBO.KEY = -TURBO.KEY.USER
  210.                 CALL TGET
  211.                 CALL ALLCAPS (B$)
  212.                 IF YES THEN _
  213.                         GOTO 1586
  214.         GOTO 1556
  215. 1586 CLOSE 2
  216.   CALL OPENWRKA (STORY$+".DAT")
  217.        IF A$(1) = "" THEN 1588 '  changes to next comment as above
  218.   CALL PRNTWRKA ("")
  219.   CALL PRNTWRKA ("  >> Written By: "+ACTIVE.USER.NAME$+" ----- "+DATE$+" <<")
  220.   CALL PRNTWRKA ("")
  221.   CALL PRNTWRKA (A$(1))
  222.        IF A$(2)="" THEN 1588
  223.   CALL PRNTWRKA (A$(2))
  224.        IF A$(3)="" THEN 1588
  225.   CALL PRNTWRKA(A$(3))
  226.        IF A$(4)="" THEN 1588
  227.   CALL PRNTWRKA (A$(4))
  228. 1588 CLOSE 2
  229.      GOTO 1558
  230. 1590 CALL QTPUT(FG.1$+RETURN.LINE.FEED$+"Hmmm, Don't have anything to say? Oh well. Thanks anyways!"+EMPHASIZE.OFF$,1)
  231.      GOTO 1554
  232. 1592 GOTO 1596
  233. 1594 CLOSE 2
  234.      FILE.NAME$ = STORY$ + ".DAT"
  235.         GOSUB 1790
  236.      READ$ = "YES"
  237.      GOTO 1558
  238. 1596 RETURN
  239. '1760 FILE.NAME$ = WELCOME.FILE$   <==== don't forget to comment this out!
  240. '
  241. 'End of $)tory Board mods.......
  242. '
  243.  
  244. ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ END OF STORY BOARD MODS!!
  245. 1765 GOSUB 1790
  246.      RETURN                                   'Leave all of
  247. 1790 CALL GRAPHIC (USER.GRAPHIC.DEFAULT$)     'this here!  IT MUST
  248.      CALL BUFFILE (FILE.NAME$,X)              'be left in for the
  249.      CALL CARRIER                             'HELP(x) files to be
  250.      IF SUBROUTINE.PARAMETER = -1 THEN _      'displayed and many
  251.         RETURN 10595                          'other text files!
  252.      RETURN
  253. '
  254. ' ***  C - COMMAND FROM MAIN MENU (LEAVE COMMENT FOR SYSOP)   ***
  255. '
  256. 1800 MESSAGE.TO$ = "SYSOP"
  257.      SUBJECT$ = "COMMENT"
  258.      GOSUB 1893
  259.      IF (ACTIVE.MESSAGES >= MAXIMUM.MESSAGES OR _
  260.  
  261.  
  262.  
  263.  
  264.  
  265.    Ok.  Now I know this isn't the best written mod I've ever seen
  266.    (or the docs either!) But heh, what do you expect for free?  Besides
  267.    it works, and thats really all that counts in the BBS business!
  268.    If you're using other mods like the Rating Board, you could always
  269.    move that to V)oting areas and move the V)iew command to the end
  270.    of P)ersonal mail (where I feel it should be in the first place!)
  271.  
  272.    So what I'm trying to say is - Heh, if you don't like it, change it!
  273.    Thats about all I've got to say!  Expect to hear more of me in the
  274.    lines of mods soon - I've got a few more to release.. I'll try to do
  275.    better with the docs and the design of the mods...
  276.  
  277.    If your users like this,  Maybe send some talk this way about it!
  278.    If they really like it, you might even do something so stupid as sending
  279.    me a donation or something (Not very likely!) Anyway, whatever you do,
  280.    just remember to give me a call!  My BBS # is 616-796-6230, soon going
  281.    to 2 lines.  (Thats why I need donations!)... I have over 40 doors
  282.    online and The entire PC-SIG cd-rom.   Good luck!  Just give me a call
  283.    if you need any help on anything, or have any suggestions (good or bad)
  284.    I just need the ego boost!  Have fun......................
  285.  
  286.           Jason Trumble
  287.  
  288.  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  289.  Revisions to the Story Board mods
  290.  
  291. 1.0 - 08/04/88 - First Release of Story Board for RBBS 16.1A - Needed major
  292.                  improvements when released.  The line numbering was really
  293.                  wierd..  There  was no word wrap and the editing abilities
  294.                  were really bad.
  295.  
  296. 1.1 - 11/08/88 - First Release of Story Board for RBBS 17.1x - Now features
  297.                  word  wrapping,  and  FULL  editing  just like the message
  298.                  area. (ie.. SEARCH;REPLACE)
  299.  
  300. 1.2   11/08/88 - Major bug - found out that  the mod did not Save the story
  301.                  properly.  Updated and re-released.
  302.  
  303. 1.3   11/09/88 - Another  Major  bug  was  found.  Could not edit the story
  304.                  unless  it  was  a  FULL  4  lines in length. All it would
  305.                  do is  go  back  to the "DO YOU WANT TO EDIT THIS" prompt.
  306.                  Updated and re-released.
  307.  
  308. 1.4   11/09/88 - Pete Eibl reported a problem that in the command processing
  309.                  area  I  had  forgotten  to report of a line number change.
  310.                  This has  been  corrected,  Along  with  some  FG.x$  color
  311.                  variables changed so  sysops that did not  use  full  color
  312.                  would  not  be effected.  Also, ALL occurences of "OPEN #5"
  313.                  have  been  changed  to  "CALL OPENWRKA" and all occurences
  314.                  of  "PRINT #5"  have  been  changed  to "CALL PRINTWRKA" to
  315.                  allow  error  trapping  and  file  sharing  so  that sysops
  316.                  that  run  multi  lines  or  desqview  would  not  have any
  317.                  problems with file locking and error trapping
  318.  
  319.  
  320.  
  321.