home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / PCBWHO16.ZIP / CHATCMD.PPS < prev    next >
Text File  |  1994-02-09  |  2KB  |  67 lines
  1. STRING  answer, prompt, pcbwho_ppe, CR, LANGUAGE_EXT
  2. STRING  German_ext
  3.  
  4. German_ext = "GER"          ' German extension of PCBTEXT - Change if neccessary
  5.                             ' More extensions will be added in future versions
  6. pcbwho_ppe = PPEPATH()+"PCBWHO.PPE"
  7.  
  8. LANGUAGE_EXT = REPLACE(UPPER(TRIM(LANGEXT()," ")),".","")
  9.  
  10. IF (LANGUAGE_EXT = German_ext) THEN
  11.    prompt = "@X0A(@X0C@TIMELEFT@@X0A Min. übrig) [H]ilfe, Chat Befehl"
  12. ELSE
  13.    prompt = "@X0A[@X0C@TIMELEFT@@X0A min. left] [H]elp, Chat Command"
  14. ENDIF
  15.  
  16. CR = CHR(13)
  17.  
  18. INPUTSTR prompt, answer, 07h, 60, MASK_ASCII(), UPCASE+ERASELINE
  19. answer = UPPER(TRIM(answer," "))
  20. IF (MID(answer,1,2) = "CA") answer = "CALL"
  21. IF (MID(answer,1,2) = "WH") answer = "WHO"
  22. IF (MID(answer,1,2) = "IG") answer = "IGNORE"
  23.  
  24.    IF (answer = "WHO") THEN
  25.       CALL pcbwho_ppe
  26.       KBDSTUFF CR
  27.       NEWLINE
  28.    ELSEIF (answer = "CALL") THEN
  29.       answer = ""
  30.       CALL pcbwho_ppe
  31.       NEWLINE
  32.       PROMPTSTR 248, answer, 5, MASK_NUM(),GUIDE+FIELDLEN+UPCASE
  33.       answer = TRIM(answer," ")
  34.       IF (answer = "") THEN
  35.          KBDSTUFF CR
  36.          GOTO END
  37.       ENDIF
  38.       KBDSTUFF "CALL "+answer+CR
  39.    ELSEIF (answer = "IGNORE") THEN
  40.       answer = ""
  41.       WHILE (answer = "") DO
  42.          PROMPTSTR 249, answer, 10, "WC"+MASK_NUM(),UPCASE+LFBEFORE+LFAFTER
  43.          answer = TRIM(answer," ")
  44.          IF (answer = "" | answer = "C") THEN
  45.             answer = "C"
  46.             DISPTEXT 250, LFAFTER
  47.             NEWLINE
  48.             KBDSTUFF CR
  49.          ELSEIF (answer = "W")
  50.             CALL pcbwho_ppe
  51.             answer = ""
  52.          ELSE
  53.             Println "@X0FNow ignoring node "+answer+"."
  54.             NEWLINE
  55.             KBDSTUFF "IGNORE "+answer+CR
  56.          ENDIF
  57.       ENDWHILE
  58.    ELSE
  59.       KBDSTUFF answer
  60.    ENDIF
  61.  
  62.    IF (answer = "") KBDSTUFF CR
  63.    GOTO END
  64.  
  65. :END
  66. END
  67.