Subj : captcha.src
To : Lord Blackfair
From : Digital Man
Date : Thu Jul 29 2021 04:19 pm
Here's the code you emailed me (please post here in the future instead):
#Captcha program by Keith Cunningham edit to how you would like
!include sbbsdefs.inc
:Home
INT I
STR S
RANDOM I 999999
CLS
Print "\r\nWelcome to the Login Captcha.\r\n"
Print "\r\nTo prove you are not a BOT please enter the number below below.\r\n"
PRINT ""
PRINT ""
print I
print "\r\n"
GETSTR STR 6 K_NUMBER
COMPARE I S
IF_false
goto wrong
Print "\r\n\r\nWelcome to the BBS!!!\r\n\r\n"
pause
end_if
end_cmd
# edit this line as to Where you would exit to
:wrong
Print "\r\nThat is not correct, Please try again.\r\n"
pause
goto home
end_cmd
I see a couple of issues:
1. The first end_if should be placed right after your "goto wrong" statement.
Nothing following that "goto" will be executed in the "else" case, which it appears you intended.
2. The end_cmd's don't appear to belong here at all since you have no corresponding cmd_home statement (nor do you necessarily want/need one for such a simple script).
Here's a simplified version which I think does what you want:
#Captcha program by Keith Cunningham edit to how you would like
!include sbbsdefs.inc
:Home
INT I
STR S
RANDOM I 999999
CLS
Print "\r\nWelcome to the Login Captcha.\r\n"
Print "\r\nTo prove you are not a BOT please enter the number below below.\r\n"
PRINT ""
PRINT ""
print I
print "\r\n"
GETSTR STR 6 K_NUMBER
COMPARE I S
IF_true
Print "\r\n\r\nWelcome to the BBS!!!\r\n\r\n"
pause
return
end_if
Print "\r\nThat is not correct, Please try again.\r\n"
pause
goto home
--
digital man
Sling Blade quote #8:
Karl Childers: I don't reckon I got no reason to kill nobody.
Norco, CA WX: 90.9�F, 35.0% humidity, 8 mph ENE wind, 0.00 inches rain/24hrs
---
� Synchronet � Vertrauen � Home of Synchronet � [vert/cvs/bbs].synchro.net
