home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
MISC
/
RUMORS!.ZIP
/
RUMORS!.SCR
< prev
Wrap
Text File
|
1997-08-19
|
2KB
|
121 lines
; Rumors! by Gryphon Call Gryphon's Eyrie BBS 1.916.363.7485
VARIABLE PAWS STRING
VARIABLE CH1 CHAR
VARIABLE CH2 STRING
VARIABLE RUMORTXT STRING
VARIABLE COUNT INTEGER
VARIABLE MAXRUMORS INTEGER
VARIABLE RND INTEGER
;Set the max amount of Rumors! that you want
MAXRUMORS "50"
JUMP INIT
:INIT
;----Check for the CONFIG option
JE "@1@" "CONFIG" MAIN
;----Check for the RUN option
JE "@1@" "RUN" RUNNIT
:MAIN
CLS
putnl "`0ERumors! for Telegard BBS"
putnl "by Darryl Perry, a.k.a. Gryphon"
call listem
nl
nl
GET CH1 "`09Rumors! Config: (A)dd, (D)elete, (M)odify, (L)ist, (Q)uit: " "ADMLQ"
JE "$CH1$" "A" ADDRUMOR
JE "$CH1$" "D" DELRUMOR
JE "$CH1$" "L" MAIN
JE "$CH1$" "M" MODIFY
JE "$CH1$" "Q" DONE
:LISTEM
COUNT "0"
:LISTEM1
FILEEXIST C:\TG\TEXT\RUMOR$COUNT$.SCR jump runscript
:showit
INCREMENT COUNT
IF "$COUNT$" "$MAXRUMORS$"
RETURN
ELSE
JUMP LISTEM1
ENDIF
:runscript
NL
PUT "`02$COUNT$. `0F"
script C:\TG\TEXT\RUMOR$COUNT$
PUT "~VU"
jump showit
:ADDRUMOR
CALL FINDSLOT
:addrumor1
putnl "`09Enter your rumor now (`0F40 chars MAX`09)
putnl "`02:[---------------------------------------]`07"
get rumortxt ":" 40 FALSE @
filecreate c:\tg\text\rumor$count$.scr
fileput "COMMENT $RUMORTXT$"
FILECLOSE
JUMP MAIN
:FINDSLOT
COUNT "-1"
:FINDSLOT1
IFNOT "$COUNT$" "$MAXRUMORS$"
FILEEXIST C:\TG\TEXT\RUMOR$COUNT$.SCR jump upone
else
nl
putnl "`03Sorry, out of slots."
nl
ENDIF
RETURN
:upone
increment count
jump findslot1
:DELRUMOR
NL
CH2 ""
GET CH2 "`03Delete which rumor? (0-$MAXRUMORS$): " 2 FALSE #
FILEEXIST C:\TG\TEXT\RUMOR$CH2$.SCR FILEERASE C:\TG\TEXT\RUMOR$CH2$.SCR
JUMP MAIN
:modify
NL
CH2 ""
GET CH2 "Modify which rumor? (0-$MAXRUMORS$): " 2 FALSE #
count "$ch2$"
jump addrumor1
JUMP MAIN
:RUNNIT
count "0"
:runnit2
RANDOM RND 50
FILEEXIST C:\TG\TEXT\RUMOR$RND$.scr jump RUNNIT1
if "$count$" "$maxrumors$"
jump done
else
increment count
jump runnit2
endif
:RUNNIT1
SCRIPT C:\TG\TEXT\RUMOR$RND$
JUMP DONE
:PAUSE
GET PAWS "[PAUSE]" 1 FALSE @
RETURN
:done
endscript