home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / n / newsflash / !BBS / BBS / Scripts / PostMsg < prev    next >
Encoding:
Text File  |  1996-09-16  |  1.9 KB  |  118 lines
  1. {
  2. | Post message script
  3. | Alex Howarth (15 September 1996)
  4.  
  5. REPORT "Mailing"
  6. STD CLS
  7.  
  8. OPENMESSAGEBASE
  9. READMAREA MSGAREA
  10.  
  11. IF MESSAGEAREATYPE=0 THEN
  12.   | Local/Private area
  13.   BFG 7 NL
  14.   }Send to (username) : {
  15.   here%=XPOS
  16.   BATTR 3,1
  17.   TAB here%
  18.   INPUTc sendto,20
  19.   IF sendto="" THEN
  20.     CLOSEMESSAGEBASE
  21.     END
  22.   ENDIF
  23.   FINDUSER sendto,usrnum%
  24.   IF usrnum%=0 THEN | user not found in userbase
  25.     STD NL BFG 1
  26.     }User not found{NL
  27.     GOSUB anykey
  28.     CLOSEMESSAGEBASE
  29.     END
  30.   ENDIF
  31.   | the user is valid
  32.   } (#{PRINT usrnum%}){
  33.   STD BFG 7 CLL
  34.   NL
  35.   }Subject            : {
  36.   BATTR 3,1
  37.   INPUTc subject,30
  38.   NL WRITEMESSAGE 1,ok%
  39.   IF ok% THEN
  40.     | If the message was /s (saved)
  41.     POSTMESSAGE MSGAREA,subject,USERNUMBER,usrnum%
  42.   ENDIF
  43. ENDIF
  44.  
  45. IF MESSAGEAREATYPE=1 THEN
  46.   | Netmail area
  47.   NL
  48.   }Send to (username) : {
  49.   INPUT sendto
  50.   IF sendto="" THEN
  51.     CLOSEMESSAGEBASE
  52.     END
  53.   ENDIF
  54.   NL
  55.   }Enter address of {PRINT sendto} : {
  56.   INPUT sendadd
  57.   NL
  58.   }Enter subject : {
  59.   INPUT subject
  60.   NL
  61.   WRITEMESSAGE 1,ok%
  62.   IF ok% THEN
  63.     POSTMESSAGE MSGAREA,subject,USERNAME,sendto,sendadd
  64.   ENDIF
  65. ENDIF
  66.  
  67. IF MESSAGEAREATYPE=2 THEN
  68.   | Echo area
  69.   NL
  70.   }Send to (username) : {
  71.   INPUT send
  72.   IF send="" THEN
  73.     CLOSEMESSAGEBASE
  74.     END
  75.   ENDIF
  76.   NL
  77.   }Subject            : {
  78.   INPUT subject
  79.   NL
  80.   WRITEMESSAGE 1,ok%
  81.   IF ok% THEN
  82.     POSTMESSAGE MSGAREA,subject,ECHONAME,send
  83.   ENDIF
  84. ENDIF
  85.  
  86. IF MESSAGEAREATYPE=3 THEN
  87.   | Local echo area
  88.   NL
  89.   }Send to (username) : ({
  90.   here%=XPOS
  91.   BATTR 3,1
  92.   REPEAT
  93.     TAB here%
  94.     INPUTc send,20
  95.     IF send="" THEN
  96.       CLOSEMESSAGEBASE
  97.       END
  98.     ENDIF
  99.     FINDUSER send,send%
  100.   UNTIL send%>0 OR send="All"
  101.   STD
  102.   IF send<>"All" THEN
  103.     } (#{PRINT send%}){
  104.     CLL
  105.     NL
  106.     }Subject            : {
  107.     INPUT subject
  108.     NL
  109.     WRITEMESSAGE 1,ok%
  110.     IF ok% THEN
  111.       POSTMESSAGE MSGAREA,subject,USERNUMBER,send%
  112.     ENDIF
  113.   ENDIF
  114. ENDIF
  115.  
  116. CLOSEMESSAGEBASE
  117. }
  118.