home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / COMP.ZIP / COMMENT.CTL next >
Encoding:
Text File  |  1993-04-08  |  2.2 KB  |  112 lines
  1. Jump(ST_Check2)
  2. display(display\comment)
  3. *stc
  4. SetEqual(o=/:LASTMSG/)
  5. *Question1
  6. say(&3&Would you like to leave&11& %SYSOP%&3& a comment?&9& [   ]&14&*)
  7. back(4)
  8. yesnoask(*)
  9. *COMMAND2
  10. if (%RESP%)=(No) then return
  11. Zap(lconf.%NODE%,/:lastmsg/)
  12. If (&q)=(10) Then goto (lve)
  13. setequal(t=%RESP%)
  14. Jump(ST_Check)
  15. Say(&CR&&3&What is this comment about?&12&:&11&(                 )&15&*)
  16. Back(18)
  17. SetFill(Question)
  18. cAsk%CRON%%LEN17%(*)
  19. *COMMAND
  20. if (%RESP%)=(<CR>) then Return
  21. SetEqual(b=%RESP%)
  22. SetActivity(Leaving comment...)
  23. Log(--,Leaving (%var%t) Comment Re: %RESP%)
  24. linefeed(1)
  25.         
  26.         *lve
  27. setequal(a=%sysop%)
  28. SeekUser(%var%a)
  29. SetEqual(c=%NDNUMB%)
  30. SetEqual(o=/:LASTMSG/)
  31. SetEqual(/lastmsg=1)
  32. SelArea(1)
  33. SetEqual(y=0)
  34. If (%ARESP%)=(No) Then SetEqual(c=0)
  35. InitTxt
  36. SetEqual(k=30)
  37. LoadSub(control\macros\menter.ctl)
  38. InpLine(lconf.%NODE%,1)
  39. SetEqual(/lastmsg=%ARESP%)
  40. SelArea(%ARESP%)
  41. Return
  42.  
  43. *C_CHECK
  44. SetEqual(z=;)
  45. ;Z will be search character (' ' or ';')
  46. Find(%RESP%,;)
  47. If (%ARESP%)=(0) Then 
  48.  Find(%RESP%, )
  49.  If(%ARESP%)=(0) then Ret
  50.  SetEqual(z= )
  51. endif
  52. ;SetEqual(/nvz=%RESP%)
  53. SetEqual(^1=%RESP%)
  54. *ST_CHECK
  55. ;SetEqual(a=%NV%Z)
  56. ;SetEqual(a=^:1^)
  57. ;Find(%VAR%A,%VAR%Z)
  58. ;If(%ARESP%)=(0) then Goto(NoMoreCommands)
  59. ;AddVar(%ARESP%+-1=b)
  60. ;Get(%VAR%A,1,%VAR%B)
  61. ;SetEqual(/resp=%ARESP%)
  62. SetEqual(/RESP=^:1^)
  63. If (%RESP%)=() then Ret
  64. SetEqual(^1=)
  65. Goto(COMMAND)
  66.  
  67. ;*Cont
  68. ;If (%RESP%)=() Then Ret
  69. ;AddVar(%VAR%B+2=b)
  70. ;Get(%VAR%A,%VAR%B,100)
  71. ;;SetEqual(/nvz=%ARESP%)
  72. ;SetEqual(^1=%ARESP%)
  73. ;Goto(COMMAND)
  74. ;Ret
  75.  
  76. *Cont2
  77. If (%RESP%)=() Then Ret
  78. AddVar(%VAR%B+2=b)
  79. Get(%VAR%A,%VAR%B,100)
  80. ;SetEqual(/nvz=%ARESP%)
  81. SetEqual(^1=%ARESP%)
  82. Goto(COMMAND2)
  83. Ret
  84.  
  85. *ST_CHECK2
  86. ;SetEqual(a=%NV%Z)
  87. SetEqual(a=^:1^)
  88. Find(%VAR%A,%VAR%Z)
  89. If(%ARESP%)=(0) then Goto(NoMoreCommands2)
  90. AddVar(%ARESP%+-1=b)
  91. Get(%VAR%A,1,%VAR%B)
  92. MenuEqual(/resp=%ARESP%)
  93. *YNRespChecks
  94. If(%RESP%)=(Y) then SetEqual(/RESP=Yes)
  95. If(%RESP%)=(N) then SetEqual(/RESP=No)
  96. ;SetEqual(/resp=%ARESP%)
  97. NotIf(%RESP%)=(Yes) then NotIf(%RESP%)=(No) then Goto(Question1)
  98. Goto(Cont2)
  99.  
  100. *NoMoreCommands
  101.  SetEqual(/resp=^:1^)
  102.  SetEqual(^1=)
  103.  If (%RESP%)=() Then Ret
  104.  Goto(command)
  105.  
  106. *NoMoreCommands2
  107.  MenuEqual(/resp=^:1^)
  108.  SetEqual(^1=)
  109.  Goto(YNRespChecks)
  110.  
  111.  
  112.