home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1998 September / PCO_0998.ISO / filesbbs / dos / sbbs230b.exe / EXEC.LZH / LOGON.SRC < prev    next >
Encoding:
Text File  |  1995-08-31  |  2.2 KB  |  131 lines
  1. # Synchronet v2.20 Logon Module
  2.  
  3. !include sbbsdefs.inc
  4.  
  5. compare_ars rest G
  6. if_true
  7.     :get_name
  8.     print "\1y\1hFor our records, please enter your full name: \1w"
  9.     getname 25
  10.     compare_str ""
  11.     if_true
  12.         goto get_name
  13.         end_if
  14.     log "Guest: "
  15.     logstr
  16.     set_user_string user_string_realname
  17.     
  18.     :get_loc
  19.     print "\1y\1hPlease enter your location (City, State): \1w"
  20.     getname 30
  21.     compare_str ""
  22.     if_true
  23.         goto get_loc
  24.         end_if
  25.     log "  "
  26.     logstr
  27.     set_user_string user_string_location
  28.  
  29.     :get_phone
  30.     print "\1y\1hPlease enter your voice telephone number: "
  31.     get_template nnn-nnn-nnnn
  32.     compare_str ""
  33.     if_true
  34.         goto get_phone
  35.         end_if
  36.     log "  "
  37.     logstr
  38.     set_user_string user_string_phone
  39.     log "\r\n"
  40.     :get_mag
  41.     print "yhWhere did you hear about this BBS?\r\n: w"
  42.     getstr 70
  43.     compare_str ""
  44.     if_true
  45.         goto get_mag
  46.         end_if
  47.     logstr
  48.     log "\r\n"
  49.     end_if
  50.  
  51. compare_ars rest G or rest X or local
  52. if_false
  53.     no_yes Do you want to enter the \1cSynchronet Match Maker\1b
  54.     if_false
  55.         exec_xtrn smm
  56.         end_if
  57.     end_if
  58.  
  59. compare_user_misc UM_ANSI
  60. if_true
  61.     compare_user_chat CHAT_SPLITP
  62.     if_false
  63.         toggle_user_chat CHAT_SPLITP
  64.         end_if
  65.     end_if
  66.  
  67. ###############################################################################
  68. # Replaces the 2.1 Logon stuff
  69. ##############################
  70. int i
  71.  
  72. # Logon screens
  73.  
  74. compare_ars LOCAL
  75. if_true
  76.     goto logon_event
  77.     end_if
  78. set i 0
  79. :logon_screens
  80.     add i 1
  81.     compare i 1
  82.     if_equal
  83.         set str "LOGON"
  84.     else
  85.         sprintf str "LOGON%ld" i
  86.         end_if
  87.     chkfile "%zMENU\%s.*"
  88.     if_false
  89.         goto logon_event
  90.         end_if
  91.     menu "%s"
  92.     compare_user_misc UM_WIP
  93.     if_true
  94.         getkey
  95.         end_if
  96.     goto logon_screens
  97.  
  98. :logon_event
  99. cls
  100. user_event event_logon
  101.  
  102. # Last few callers
  103. clear_abort
  104. cls
  105. setstr "%jLOGON.LST"
  106. get_file_length i str
  107. compare i 1
  108. if_less
  109.     print "\1n\1g\1hYou are the first caller of the day!\r\n"
  110. else
  111.     print "\1n\1g\1hLast few callers:\1n\r\n"
  112.     printtail str P_NOATCODES 4
  113.     crlf
  114.     endif
  115.  
  116. # Auto-message
  117. setstr "%jMSGS\\AUTO.MSG"
  118. get_file_length i str
  119. compare i 0 
  120. if_greater
  121.     printfile str P_NOATCODES
  122.     crlf
  123.     end_if
  124.  
  125. # Automatically set shell to WIPSHELL
  126. compare_user_misc UM_WIP
  127. if_true
  128.     setstr "WIPSHELL"
  129.     set_shell
  130.     end_if
  131.