home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / MISC / RUMORS!.ZIP / RUMORS!.SCR < prev   
Text File  |  1997-08-19  |  2KB  |  121 lines
  1. ; Rumors! by Gryphon      Call Gryphon's Eyrie BBS 1.916.363.7485
  2.  
  3. VARIABLE PAWS STRING
  4. VARIABLE CH1 CHAR
  5. VARIABLE CH2 STRING
  6. VARIABLE RUMORTXT STRING
  7. VARIABLE COUNT INTEGER
  8. VARIABLE MAXRUMORS INTEGER
  9. VARIABLE RND INTEGER
  10.  
  11. ;Set the max amount of Rumors! that you want
  12. MAXRUMORS "50"
  13.  
  14. JUMP INIT
  15.  
  16. :INIT
  17. ;----Check for the CONFIG option
  18. JE "@1@" "CONFIG" MAIN
  19. ;----Check for the RUN option
  20. JE "@1@" "RUN" RUNNIT
  21.  
  22. :MAIN
  23. CLS
  24. putnl "`0ERumors! for Telegard BBS"
  25. putnl "by Darryl Perry, a.k.a. Gryphon"
  26. call listem
  27. nl
  28. nl
  29. GET CH1 "`09Rumors! Config: (A)dd, (D)elete, (M)odify, (L)ist, (Q)uit: " "ADMLQ"
  30. JE "$CH1$" "A" ADDRUMOR
  31. JE "$CH1$" "D" DELRUMOR
  32. JE "$CH1$" "L" MAIN
  33. JE "$CH1$" "M" MODIFY
  34. JE "$CH1$" "Q" DONE
  35.  
  36.  
  37. :LISTEM
  38. COUNT "0"
  39. :LISTEM1
  40. FILEEXIST C:\TG\TEXT\RUMOR$COUNT$.SCR jump runscript
  41. :showit
  42. INCREMENT COUNT
  43. IF "$COUNT$" "$MAXRUMORS$"
  44.     RETURN
  45. ELSE
  46.     JUMP LISTEM1
  47. ENDIF
  48.  
  49. :runscript
  50. NL
  51. PUT "`02$COUNT$. `0F"
  52. script C:\TG\TEXT\RUMOR$COUNT$
  53. PUT "~VU"
  54. jump showit
  55.  
  56. :ADDRUMOR
  57. CALL FINDSLOT
  58. :addrumor1
  59. putnl "`09Enter your rumor now (`0F40 chars MAX`09)
  60. putnl "`02:[---------------------------------------]`07"
  61. get rumortxt ":" 40 FALSE @
  62. filecreate c:\tg\text\rumor$count$.scr
  63. fileput "COMMENT $RUMORTXT$"
  64. FILECLOSE
  65. JUMP MAIN
  66.  
  67.  
  68. :FINDSLOT
  69. COUNT "-1"
  70. :FINDSLOT1
  71. IFNOT "$COUNT$" "$MAXRUMORS$"
  72.     FILEEXIST C:\TG\TEXT\RUMOR$COUNT$.SCR jump upone
  73. else
  74.     nl
  75.     putnl "`03Sorry, out of slots."
  76.     nl
  77. ENDIF
  78. RETURN
  79.  
  80. :upone
  81. increment count
  82. jump findslot1
  83.  
  84. :DELRUMOR
  85. NL
  86. CH2 ""
  87. GET CH2 "`03Delete which rumor? (0-$MAXRUMORS$): " 2 FALSE #
  88. FILEEXIST C:\TG\TEXT\RUMOR$CH2$.SCR FILEERASE C:\TG\TEXT\RUMOR$CH2$.SCR
  89. JUMP MAIN
  90.  
  91. :modify
  92. NL
  93. CH2 ""
  94. GET CH2 "Modify which rumor? (0-$MAXRUMORS$): " 2 FALSE #
  95. count "$ch2$"
  96. jump addrumor1
  97. JUMP MAIN
  98.  
  99. :RUNNIT
  100. count "0"
  101. :runnit2
  102. RANDOM RND 50
  103. FILEEXIST C:\TG\TEXT\RUMOR$RND$.scr jump RUNNIT1
  104. if "$count$" "$maxrumors$"
  105.     jump done
  106. else
  107.     increment count
  108.     jump runnit2
  109. endif
  110.  
  111. :RUNNIT1
  112. SCRIPT C:\TG\TEXT\RUMOR$RND$
  113. JUMP DONE
  114.  
  115. :PAUSE
  116. GET PAWS "[PAUSE]" 1 FALSE @
  117. RETURN
  118.  
  119. :done
  120. endscript
  121.