• Main Menu

    From Ib Joe@VERT/JOESBBS to All on Monday, April 12, 2021 09:57:26
    Here's the snippet of my SRC file... Main menu... Hangs up on caller if they pressed any key that's not put in the file..

    :Start
    # renegade.src

    # $Id: renegade.src,v 1.16 2020/09/12 02:46:09 rswindell Exp $

    # @format.tab-size 8, @format.use-tabs true

    !include sbbsdefs.inc

    ################################# Begins Here ################################# or _sys_misc SM_RA_EMU # Swap Msg ReRead/Reply commands
    :main
    # Set return point for main menu commands (via end_cmd)
    cmd_home

    # Display text/menu/main.* if not in expert mode
    compare_ars expert
    if_false
    cls
    menu joesbbs/main
    end_if

    # Update node status
    node_action node_main
    async

    # Display main Prompt
    print " \1n\1c[\1h@GN@\1n\1c] @GRP@\1\\ [\1h@SN@\1n\1c] @SUB@: \1n"

    # Get key (with / extended commands allowed)
    compare_user_misc UM_COLDKEYS
    if_false
    getkeye
    else
    getstrupr 60
    endif

    # Do nothing for control keys and space
    cmdkey ^@
    end_cmd
    cmdkey ^M
    end_cmd
    cmdkey ^S
    end_cmd
    cmdkey "
    end_cmd

    # Write command to log file
    logkey_comma

    # Show the key hit
    compare_user_misc UM_COLDKEYS
    if_false
    printkey
    endif

    compare_user_misc UM_COLDKEYS
    if_false
    crlf
    end_if
    pause_reset

    # Menu
    cmdkey ?
    compare_ars expert
    if_true
    cls
    menu joesbbs/main
    end_if
    end_cmd

    # Sysop Menu
    compare_ars SYSOP or exempt Q or I or N
    if_true
    cmdkey !
    call sysop
    end_cmd
    end_if

    # Commands

    cmdkey M
    cmd_pop
    goto message
    end_cmd

    cmdkey F
    cmd_pop
    goto file_transfers
    end_cmd

    cmdkey D
    xtrn_section
    end_cmd

    cmdkey Q
    msg_qwk
    end_cmd

    cmdkey C
    exec_bin chat_sec
    end_cmd

    cmdkey E
    cmd_pop
    goto E-mail
    end_cmd

    cmdkey P
    auto_message
    end_cmd

    cmdkey G
    file_download_batch
    if_true
    end_cmd
    end_if
    logoff
    end_cmd

    cmdkey /G
    file_download_batch
    if_true
    end_cmd
    end_if
    logoff_fast
    end_cmd

    cmdkey U
    userlist_all
    end_cmd

    cmdkey L
    userlist_logons
    end_cmd

    cmdkey /L
    nodelist_all
    end_cmd

    cmdkey /N
    setstr "1"
    mail_send_feedback
    end_cmd

    cmdkey Y
    user_defaults
    exec_bin "termsetup"
    end_cmd

    cmdkey I
    call main_info
    end_cmd

    cmdkey /A
    compare_ars ANSI and not GUEST
    if_false
    print "\r\nSorry, only regular users with ANSI terminals can do that.\r\n"
    else
    print "Selecting your avatar..."
    exec_bin avatar_chooser
    # an alternative approach (uses the configured xtrn/door):
    # exec_xtrn avatchoo
    end_if

    # fall through
    print "\r\n\x01c\x01hUnrecognized command."
    compare_ars expert
    if_true
    print " Hit '\x01i?\x01n\x01c\x01h' for a menu."
    end_if
    crlf
    end_cmd

    # shouldn't hit next line
    print "Problem in command shell."
    pause
    hangup

    :stop

    Thanx
    IB Joe
    AKA Joe Schweier
    SysOp Joe's BBS
    JoesBBS.com

    ---
    þ Synchronet þ JoesBBS.Com, Telnet:2323 SSH:2222 HTTPS:8080
  • From Nelgin@VERT/EOTLBBS to Ib Joe on Monday, April 12, 2021 12:05:07
    Ib wrote:
    Here's the snippet of my SRC file... Main menu... Hangs up on caller if they pressed any key that's not put in the file..

    You need to pastebin your entire script. It's not easy to debug parts of it when it won't compile.

    ---
    þ Synchronet þ End Of The Line BBS - endofthelinebbs.com
  • From Digital Man@VERT to Ib Joe on Monday, April 12, 2021 12:40:12
    Re: Main Menu
    By: Ib Joe to All on Mon Apr 12 2021 09:57 am

    Here's the snippet of my SRC file... Main menu... Hangs up on caller if they pressed any key that's not put in the file..

    1. When posting a follow-up to a previously posted support request message, don't start a new message thread - that makes it hard t follow the original support request.

    2. It appears you copy and pasted the "/A" command from another shell, but did not include the "end_cmd" part. This is likely the cause of your problem.
    --
    digital man

    Synchronet "Real Fact" #103:
    Synchronet added PETSCII (e.g. C64/C128) terminal support in October of 2018. Norco, CA WX: 63.4øF, 69.0% humidity, 4 mph ENE wind, 0.00 inches rain/24hrs

    ---
    þ Synchronet þ Vertrauen þ Home of Synchronet þ [vert/cvs/bbs].synchro.net
  • From Ib Joe@VERT/JOESBBS to Digital Man on Monday, April 12, 2021 14:16:36
    Re: Main Menu
    By: Digital Man to Ib Joe on Mon Apr 12 2021 12:40 pm

    Re: Main Menu
    By: Ib Joe to All on Mon Apr 12 2021 09:57 am
    1. When posting a follow-up to a previously posted support request message, don't start a new message thread - that makes it hard t follow the original support request.

    Sorry

    2. It appears you copy and pasted the "/A" command from another shell, but did not include the "end_cmd" part. This is likely the cause of your problem. --

    Fixed it

    Thanx
    IB Joe
    AKA Joe Schweier
    SysOp Joe's BBS
    JoesBBS.com

    ---
    þ Synchronet þ JoesBBS.Com, Telnet:2323 SSH:2222 HTTPS:8080
  • From MRO@VERT/BBSESINF to Ib Joe on Tuesday, April 13, 2021 02:57:05
    Re: Main Menu
    By: Ib Joe to All on Mon Apr 12 2021 09:57 am

    Here's the snippet of my SRC file... Main menu... Hangs up on caller if they pressed any key that's not put in the file..

    pastebin
    ---
    þ Synchronet þ ::: BBSES.info - free BBS services :::
  • From Ib Joe@VERT to MRO on Tuesday, April 13, 2021 06:52:52
    Re: Main Menu
    By: Ib Joe to All on Mon Apr 12 2021 09:57 am

    Here's the snippet of my SRC file... Main menu... Hangs up on caller
    if they pressed any key that's not put in the file..

    pastebin

    I did and Rob caught the offending line...
    IB Joe
    AKA Joe Schweier
    SysOp Joe's BBS
    JoesBBS.com
    --- SBBSecho 3.11-Win32
    * Origin: JoesBBS.com, Telnet:2323 SSH:2222 HTTPS:80 (1:342/200)
    þ Synchronet þ Vertrauen þ Home of Synchronet þ [vert/cvs/bbs].synchro.net