home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PAGEPPE.ZIP / PAGE.PPS < prev    next >
Encoding:
Text File  |  1993-08-31  |  2.1 KB  |  82 lines
  1. ;       Page Killer
  2. ;       
  3. ;       Silly little .PPE that will make a caller think
  4. ;       they've really ticked you off when they page you.
  5. ;       
  6. ;       To make this work, change record # 128 in PCBTEXT
  7. ;       to say !c:\pcb\ppe\page.ppe (or wherever you keep
  8. ;       your .ppe programs).  When paging is turned off,
  9. ;       program will run, then dump the user back to the
  10. ;       "Leave a comment?" prompt.  The text file "WARN"
  11. ;       must also be in c:\pcb\ppe for it to display.
  12.  
  13. STRING ans
  14.  
  15. ; Display a warning that the sysop is busy
  16.  
  17. DISPFILE ppepath()+"WARN",SEC+GRAPH+LANG
  18.  
  19. PRINTLN
  20.  
  21. ; Ask if they REALLY want to bother the sysop
  22.  
  23. INPUTTEXT "Are you sure you want to Page the Sysop",ans,@X0E,1
  24.  
  25. ; If they say yes, start the siren...
  26.  
  27. IF (UPPER(ans) = "Y") THEN
  28.  
  29.         NEWLINE
  30.         PRINTLN "@X0EConnecting to Sysop Paging siren."
  31.         NEWLINE
  32.         DELAY 36
  33.         PRINTLN "@X09Sounding Paging Siren."
  34.         DELAY 36
  35.         PRINTLN "@X0EWaiting for response from sysop......"
  36.         DELAY 36
  37.         PRINTLN "@X09Sysop has turned off the Paging Siren"
  38.         DELAY 36
  39.         PRINTLN
  40. ; This next series simulates the sysop typing at the keys...        
  41.         PRINT "@X0EThis is the Sysop.... Wha"
  42.         DELAY 6
  43.         PRINT "t's t"
  44.         DELAY 9
  45.         PRINT "he b"
  46.         DELAY 7
  47.         PRINT "ig i"
  48.         DELAY 9
  49.         PRINT "dea?  I"
  50.         DELAY 9 
  51.         PRINT " was t"
  52.         DELAY 4
  53.         PRINT "rying"
  54.         DELAY 10
  55.         PRINT " to rel"
  56.         DELAY 6
  57.         PRINT "ax!"
  58.         PRINTLN
  59.         DELAY 9
  60.         PRINTLN "@X09Sysop chat ended..."
  61.         DELAY 20
  62.         PRINTLN "Logoff Sequence Initiated!"
  63.         DELAY 30
  64.         NEWLINE
  65.         NEWLINE
  66.         PRINT "NO CARRIER"
  67.         NEWLINE
  68.         DELAY 48
  69.         NEWLINE
  70.         PRINT "@X0EJust kidding..... Leave me  comment please."
  71.         NEWLINE
  72. ELSE 
  73.         NEWLINE
  74.         DELAY 18                                                
  75.         NEWLINE
  76.         PRINT "@X0EGood choice.... he's probably drinking his coffee!"
  77.         NEWLINE
  78.         DELAY 18
  79. ENDIF
  80.  
  81. END
  82.