home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RBBS_PC / RCHAT300.ZIP / RSB2CHAT.MRG < prev    next >
Encoding:
Text File  |  1990-08-28  |  5.5 KB  |  135 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against OLD\RBBSSUB2.BAS to produce RBBSSUB2.BAS
  3. * OLD\RBBSSUB2.BAS:  Date 8-26-1990  Size 138112 bytes
  4. * ------------[ Created 08-28-1990 14:11:04 ]------------
  5. * REPLACING old line(s) by new
  6. 9600 ' $SUBTITLE: 'DefaultU - subroutine to update user defauts'
  7. ' $PAGE
  8. '
  9. '  NAME    -- DefaultU
  10. '
  11. '  INPUTS  --     PARAMETER                    MEANING
  12. '             ZAutoDownDesired
  13. '             ZBoldText$              Ansi bold (0 no, 1 yes)
  14. '             ZCheckBulletLogon
  15. '             ZExpertUser
  16. '             ZWasGR
  17. '             ZLastMsgRead
  18. '             ZLineFeeds
  19. '             ZNulls
  20. '             ZPageLength
  21. '             ZPromptBell
  22. '             ZRegDate$
  23. '             ZReqQuesAnswered
  24. '             ZRightMargin
  25. '             ZSkipFilesLogon
  26. '             ZTimesLoggedOn
  27. '             ZUpperCase
  28. '             ZUserOption$
  29. '             ZUserTextColor          Ansi of color (31-37)
  30. '             ZUserXferDefault$
  31. '
  32. '  OUTPUTS--  USER.OPTONS$
  33. '
  34. '  PURPOSE --  To update the user's record with their options.
  35. '  Meaning of graphics preference stored is as follows: where # is
  36. '  value stored for the color.  E.g. if graphics perference for text
  37. '  files is color, and preference for normal text is light yellow,
  38. '  graphics preference stored is 38.  Colors are Red, Green, Yellow,
  39. '  Blue, Purple, Cyan, and White.
  40. '
  41. '             normal                  bold
  42. ' Graphics R  G  Y  B  P  C  W    R  G  Y  B  P  C  W
  43. '   none  30 33 36 39 42 45 48 | 51 54 57 60 63 66 69
  44. '   ansi  31 34 37 40 43 46 49 | 52 55 58 61 64 67 70
  45. '  color  32 35 38 41 44 47 50 | 53 56 59 62 65 68 71
  46. '
  47.      SUB DefaultU STATIC
  48.      ZWasA =    -ZPromptBell          -2 * ZExpertUser _
  49.             -4 * ZNulls               -8 * ZUpperCase _
  50.            -16 * ZLineFeeds          -32 * ZCheckBulletLogon _
  51.            -64 * ZSkipFilesLogon    -128 * ZAutoDownDesired _
  52.           -256 * ZReqQuesAnswered   -512 * ZMailWaiting _
  53. * ------[ first line different ]------
  54.          -1024 * (NOT ZHiLiteOff)  -2048 * ZTurboKeyUser _           ' CHAT0805
  55.          -4096 * ZAvailableForChat                                   ' CHAT0805
  56.      WasX = 3*ZUserTextColor - 63 + 21*VAL(ZBoldText$) + ZWasGR
  57.      IF WasX < 1 OR WasX > 255 THEN _
  58.         WasX = 48
  59.      LSET ZUserOption$ = _
  60.         MKI$(ZTimesLoggedOn) + _
  61.         MKI$(ZLastMsgRead) + _
  62.         ZUserXferDefault$ + _
  63.         CHR$(WasX) + _
  64.         MKI$(ZRightMargin) + _
  65.         MKI$(ZWasA) + _
  66.         ZRegDate$ + _
  67.         CHR$(ZPageLength) + _
  68.         ZEchoer$
  69.      END SUB
  70. * REPLACING old line(s) by new
  71. 9801 ' $SUBTITLE: 'WhosOn - subroutine to display who is on'
  72. ' $PAGE
  73. '
  74. '  NAME    -- WhosOn
  75. '
  76. '  INPUTS  --     PARAMETER                    MEANING
  77. '                NumNodes                   # of nodes to check
  78. '                ZActiveMessageFile$        Current message file
  79. '                ZOrigMsgFile$              Main msg file
  80. '
  81. '  OUTPUTS --  None
  82. '
  83. '  PURPOSE --  To display who is on each node.
  84. '
  85.      SUB WhosOn (NumNodes) STATIC
  86.      WasA1$ = ZActiveMessageFile$
  87.      ZActiveMessageFile$ = ZOrigMsgFile$
  88.      CALL OpenMsg
  89.      FIELD 1, 128 AS ZMsgRec$
  90.      FOR NodeIndex = 2 TO NumNodes + 1
  91.         GET 1,NodeIndex
  92.         ZOutTxt$ = ZFG1$ + "Node" + _
  93.              STR$(NodeIndex - 1) + ZFG2$
  94.         RecIndex = VAL(MID$(ZMsgRec$,44,2))
  95.         IF RecIndex = 0 THEN _
  96.            RecIndex = -1
  97.         WasAX$ = MID$(ZBaudRates$,(-5 * RecIndex ),5) + _
  98.               " BAUD: "
  99.         IF MID$(ZMsgRec$,55,2) = "-1" AND NOT ZSysop THEN _
  100.            ZWasY$ = "SYSOP" + SPACE$(21) _
  101.         ELSE ZWasY$ = MID$(ZMsgRec$,1,26)
  102.         WasAX$ = WasAX$ + ZFG3$ + ZWasY$
  103. * ------[ first line different ]------
  104.         IF MID$(ZMsgRec$,40,2) <> "-1" THEN                          ' CHAT0805
  105.            CALL SaveUserActivity(WhatTheyDoin$, NodeIndex, ZTrue)    ' CHAT0813
  106.            IF WhatTheyDoin$ = "C" THEN                               ' CHAT0813
  107.               WasAX$ = WasAX$ + ZFG4$ + "(is using Chat System)"     ' CHAT0813
  108.             ELSEIF WhatTheyDOin$ = "F" THEN                          ' CHAT0813
  109.               WasAX$ = WasAX$ + ZFG4$ + "(is using File System)"     ' CHAT0813
  110.             ELSEIF WhatTheyDoin$ = "M" THEN                          ' CHAT0813
  111.               WasAX$ = WasAX$ + ZFG4$ + "(using Message System)"     ' CHAT0813
  112.             ELSE                                                     ' CHAT0813
  113.               WasAX$ = WasAX$ + ZFG4$ + MID$(ZMsgRec$,93,22)         ' CHAT0813
  114.            END IF                                                    ' CHAT0813
  115.          ELSE                                                        ' CHAT0805
  116.            WasAX$ = WasAX$ + ZFG4$ + "(has opened a door)"           ' CHAT0805
  117.         END IF                                                       ' CHAT0805
  118.         IF MID$(ZMsgRec$,57,1) = "A" THEN _
  119.            ZOutTxt$ = ZOutTxt$ + "  Online at " + _
  120.                 WasAX$ _
  121.         ELSE IF NOT ZSysop THEN _
  122.                 ZOutTxt$ = ZOutTxt$ + _
  123.                      " Waiting for next caller" _
  124.              ELSE ZOutTxt$ = ZOutTxt$ + _
  125.                        " Offline at " + _
  126.                        WasAX$
  127.         CALL QuickTPut1 (ZOutTxt$)
  128.         CALL AskMore ("",ZTrue,ZTrue,ZAnsIndex,ZFalse)
  129.         IF ZNo THEN _
  130.            NodeIndex = NumNodes + 2
  131.      NEXT
  132.      ZActiveMessageFile$ = WasA1$
  133.      CALL QuickTPut (ZEmphasizeOff$,0)
  134.      END SUB
  135.