home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / MISC / ZREG143.ZIP / REGISTRY.SRC < prev    next >
Text File  |  1998-02-07  |  4KB  |  122 lines
  1. ############################################################################## 
  2. ########################### User Registry v1.43 ##############################
  3. ###################### Coded by Corkscrew  03/07/98 ##########################
  4. ##############################################################################
  5.  
  6. ###### 250 Bytes Per User #######
  7. ###   Alias         25        ###
  8. ###   Number         4        ###
  9. ###   Sex            6        ###
  10. ###   Age            3        ###
  11. ###   Orientation    8        ### 
  12. ###   Hair           9        ###
  13. ###   Type          12        ###
  14. ###   Eyes           9        ###
  15. ###   Location      25        ###
  16. ###   Height         5        ###
  17. ###   Weight         3        ###
  18. ###   Availability  24        ###
  19. ###   Race          15        ###
  20. ###   Memo          35        ###
  21. ###   Color          7        ###
  22. ###   Extra         60        ###
  23. #################################
  24.  
  25. !INCLUDE FILE_IO.INC
  26. !INCLUDE SBBSDEFS.INC
  27.  
  28. !DEFINE DATA_LEN 250    # Length Written For Each User #
  29.  
  30. FSET_ETX 3
  31.  
  32. INT file offset userdat     # file-registry data file, offset-file possition #
  33. INT length count            # userdat-user.dat file, length-lenght of stuff #
  34.                             # count-counter #
  35. STR blank name              # blank-check blank entry, name-user's alias #
  36.  
  37. set blank ""
  38.  
  39. # Open Data File #
  40. chkfile "..\exec\zephyr\reg\registry.dat"
  41. if_true
  42.     fopen file o_rdwr|o_denynone "..\exec\zephyr\reg\registry.dat"   
  43. else
  44.     fopen file o_rdwr|o_creat|o_denynone "..\exec\zephyr\reg\registry.dat"   
  45.     fopen userdat o_rdonly|o_denynone "..\data\user\user.dat"
  46.     fget_length userdat length
  47.     fclose userdat
  48.     div length 834
  49.     fset_pos file 0 seek_set
  50.     :loop
  51.     compare length 0
  52.     if_false
  53.         fwrite file blank 250        
  54.         sub length 1
  55.         goto loop
  56.         end_if
  57.     end_if
  58.  
  59. cmd_home   # Begin Menu Loop #
  60. async
  61. menu registry
  62. print "\1h\1yRegistry Menu :\1n "
  63. compare_user_misc UM_COLDKEYS
  64. getkeye
  65.  
  66. cmdkey y              # Create/Edit Your Registry (and Staff Commands) #
  67.     CRLF
  68.     copy offset _useron.number
  69.     mul offset data_len
  70.     sub offset data_len
  71.     fset_pos file offset seek_set
  72.     fread file name 25
  73.     compare name _useron.alias
  74.     if_true
  75.         exec_bin .\zephyr\reg\update    # Update Registry Exists #
  76.         end_cmd
  77.     else
  78.         exec_bin .\zephyr\reg\make-reg  # Create New If Registry Doesn't Exist #
  79.         end_if
  80.     end_cmd
  81.  
  82. cmdkey b                # Browse Registrys #
  83.     exec_bin .\zephyr\reg\browse
  84.     end_cmd
  85.  
  86. cmdkey r                # Delete Your Registry #
  87.     call remove
  88.     end_cmd
  89.  
  90. cmdkey q                # Exit Registry #
  91.     goto end
  92.     end_cmd
  93.  
  94. end_cmd     # End Menu Loop #
  95.  
  96. ############################## REMOVE REGISTRY ###############################
  97.  
  98. :remove
  99.     CRLF
  100.     print "\1n\1rAre you sure you want to \1hremove\1n\1r"
  101.     no_yes " your registry?\1n \r\n"
  102.     if_true
  103.         Print "\1y\1hYour registry was \1inot\1n\1y\1h removed.\1n \r\n"
  104.         pause
  105.         return
  106.         end_if
  107.     copy offset _useron.number
  108.     mul offset data_len
  109.     sub offset data_len
  110.     fset_pos file offset seek_set
  111.     fwrite file blank 250          # Clears Registry #
  112.     Print "\1y\1hYour registry \1iwas\1n\1y\1h removed.\1n \r\n"
  113.     pause
  114.     return
  115.  
  116. ################################# QUIT #######################################
  117. :end
  118.     fclose file
  119. :exit
  120.  
  121. #### END OF REGISTRY.SRC ####
  122.