• scripts

    From DavidG@VERT/SKYNET to All on Thu Jan 25 15:04:00 2001
    # yesnobar.src

    # Sep 28 1995 - Digital Man

    # $id $

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

    str tmp

    copy tmp str
    setstr "S"
    print "@QUESTION@? "
    :top
    compare_str "S"
    if_equal
    print "[Si ] No "
    else
    print " Si [No]"
    end_if
    getkey
    print "\b\b\b\b\b\b\b\b\b\1n\1h\1>"
    compare_key ^M
    if_true
    ungetstr
    copy str tmp
    return
    end_if

    compare_keys "SN"
    if_true
    ungetkey
    copy str tmp
    return
    end_if

    compare_key ^@
    if_true
    copy str tmp
    return
    end_if

    # Toggle
    compare_str "S"
    if_true
    setstr "N"
    else
    setstr "S"
    end_if
    goto top

    This is the script taht is causin' problems, i have to hit enter after i have made the choice Si or No, what's wrong?. and here's the other BUG with the same script here it is:

    # noyesbar.src

    # Sep 28 1995 - Digital Man

    # $id$

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

    str tmp

    copy tmp str
    setstr "N"
    print "@QUESTION@? "
    :top
    compare_str "N"
    if_equal
    print "[No] Si "
    else
    print " No [Si ]"
    end_if
    getkey
    print "\b\b\b\b\b\b\b\b\b\1n\1h\1>"
    compare_key ^M
    if_true
    ungetstr
    copy str tmp
    return
    end_if

    compare_keys "SN"
    if_true
    ungetkey
    copy str tmp
    return
    end_if

    compare_key ^@
    if_true
    copy str tmp
    return
    end_if

    # Toggle
    compare_str "S"
    if_true
    setstr "N"
    else
    setstr "S"
    end_if
    goto top

    =================================
    Here the problem is when i use the O command to log off i chosse yes nad it doiesn't hang up, what's wrong?.

    Thanks

    ---
    þ Synchronet þ SkyNet BBS, Lo mejor en Colombia, TELNET skynetbbs.thebbs.org