home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / USERV1_3.ZIP / USER.PPS < prev    next >
Text File  |  1994-03-02  |  3KB  |  105 lines
  1. ; ***********************************************************************
  2. ; *                             User [PPE] V.1.2                        *
  3. ; ***********************************************************************
  4. ; *                            Kris Steinwender                         *
  5. ; *                            The BBS Express                          *
  6. ; *                             (609)461-6254                           *
  7. ; *                             (609)461-5857                           *
  8. ; *                        Rime ->5484  ->BBSEXPRESS                    *
  9. ; *                 Internet: kris.steinwender@radiowave.com            *
  10. ; ***********************************************************************
  11. ; * Please only modify the source code for personal bbs usage only!!!!! *
  12. ; ***********************************************************************
  13.  
  14. ; *********************************
  15. ; * String & Integer Initializing *
  16. ; *********************************
  17.  
  18. INTEGER I,nouser,nousersize
  19.  
  20. STRING X,USER,J,name_color,city_color,CO3,CO4,CO5,CO6,config,CO7
  21.  
  22. ; ********
  23. ; * HSKP *
  24. ; ********
  25.  
  26. USER = READLINE(PCBDAT(),29) ; Getting the location of the user file.
  27.  
  28. LET nousersize = FILEINF(USER,4) ; Getting the size of the user file.
  29.  
  30. LET nouser = (nousersize / 400) ; Dividing by 400 to determine $ of users.
  31.  
  32. NAME_COLOR = READLINE(PPEPATH()+"USER.CFG",1) ; Getting Name Color.
  33.  
  34. CITY_COLOR = READLINE(PPEPATH()+"USER.CFG",2) ; Getting City Color.
  35.  
  36. CO3 = READLINE(PPEPATH()+"USER.CFG",3) ; Getting Number Times On Color.
  37.  
  38. CO4 = READLINE(PPEPATH()+"USER.CFG",4) ; Getting First Date On Color or Upload Color
  39.  
  40. CO5 = READLINE(PPEPATH()+"USER.CFG",5) ; Getting "/" Color.
  41.  
  42. CO6 = READLINE(PPEPATH()+"USER.CFG",6) ; Getting DL Color
  43.  
  44. CONFIG = READLINE(PPEPATH()+"USER.CFG",7) ; Determining either first time on or UL/DL
  45.  
  46. CO7 = READLINE(PPEPATH()+"USER.CFG",8) ; Getting the Bar Color
  47.  
  48. ; *********
  49. ; * Start *
  50. ; *********
  51.  
  52. GETUSER
  53.  
  54. IF (CONFIG = "ULDL") GOTO ULDL
  55.  
  56. IF (CONFIG = "LDATE") GOTO LDATE
  57.  
  58. IF (EXIST(PPEPATH()+"HEADER1")) DISPFILE PPEPATH()+"HEADER1",LANG+SEC+GRAPH
  59.  
  60. FOR I = 1 TO nouser
  61.  
  62. GETALTUSER I
  63.  
  64. PRINTLN CO7+"│@POS:3@"+NAME_COLOR+STRING(U_NAME())+"@POS:28@"+CO7+"│@POS:30@"+CITY_COLOR+STRING(U_CITY)+"@POS:54@"+CO7+"│@POS:56@  "+CO3+STRING(U_LOGONS())+"@POS:64@"+CO7+"│@POS:66@"+CO4+STRING(U_LDATE())+"@POS:75@"+CO7+" │"
  65.  
  66. NEXT I
  67.  
  68. NEWLINE
  69.  
  70. GOTO END
  71.  
  72. : ULDL
  73.  
  74. IF (EXIST(PPEPATH()+"HEADER2")) DISPFILE PPEPATH()+"HEADER2",LANG+SEC+GRAPH
  75.  
  76. FOR I = 1 TO nouser
  77.  
  78. GETALTUSER I
  79.  
  80. PRINTLN CO7+"│@POS:3@"+NAME_COLOR+STRING(U_NAME())+"@POS:28@"+CO7+"│@POS:30@"+CITY_COLOR+STRING(U_CITY)+"@POS:54@"+CO7+"│@POS:56@  "+CO3+STRING(U_LOGONS())+"@POS:64@"+CO7+"│@POS:66@"+CO4+STRING(U_FUL())+CO5+" / "+CO6+STRING(U_FDL())+"@POS:75@"+CO7+" │"
  81.  
  82. NEXT I
  83.  
  84. NEWLINE
  85.  
  86. GOTO END
  87.  
  88. : LDATE
  89.  
  90. IF (EXIST(PPEPATH()+"HEADER3")) DISPFILE PPEPATH()+"HEADER3",LANG+SEC+GRAPH
  91.  
  92. FOR I = 1 TO nouser
  93.  
  94. GETALTUSER I
  95.  
  96. PRINTLN CO7+"│@POS:3@"+NAME_COLOR+STRING(U_NAME())+"@POS:28@"+CO7+"│@POS:30@"+CITY_COLOR+STRING(U_CITY)+"@POS:54@"+CO7+"│@POS:56@  "+CO3+STRING(U_LOGONS())+"@POS:64@"+CO7+"│@POS:66@"+CO4+STRING(U_LDATE())+"@POS:75@"+CO7+" │"
  97.  
  98. NEXT I
  99.  
  100. NEWLINE
  101.  
  102. : END
  103.  
  104. END
  105.