home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PIN.ZIP / PIN.PPS < prev    next >
Text File  |  1993-09-02  |  2KB  |  92 lines
  1. string pin
  2. string pin2
  3. string test
  4. string test2
  5. integer i
  6. integer maxtries
  7.  
  8. let maxtries=3
  9.  
  10. getuser
  11. if (strip(u_ver," ")="") then
  12.   dispfile "\pcb\pin\newuser",graph
  13.   goto newuser
  14. else
  15.   goto verify
  16. endif
  17.  
  18. :newuser
  19. newline
  20. inputstr "Please enter a 4 digit Personal Identification Number (PIN): ",pin,@X0E,4,"0123456789",echodots
  21. if (len(pin)<4) then
  22.   goto nice_try
  23. else
  24.   goto check
  25. endif
  26.  
  27. :check
  28. newline
  29. newline
  30. newline
  31. inputstr "Please re-enter your number to verify: ",pin2,@X0E,4,"0123456789",echodots
  32. println "@CLS@@X0E"
  33. if (pin=pin2) then
  34.   goto finish
  35. else
  36.   goto wrong
  37. endif
  38.  
  39. :nice_try
  40. newline
  41. println "@X00@X0CYou must enter a 4 digit number!@XFF"
  42. newline
  43. goto newuser
  44. :wrong
  45. newline
  46. println "@CLS@@X00@X0CThe PIN numbers entered do not match!@XFF"
  47. goto newuser
  48.  
  49. :finish
  50. dispfile "\pcb\pin\pinwarn",graph
  51. println "@MORE@"
  52. let u_ver=pin
  53. putuser
  54. dispfile "\pcb\gen\newuser",graph
  55. goto end
  56.  
  57. :verify
  58. newline
  59. newline
  60. inputstr "Please enter your 4 digit PIN: ",test,@X0E,4,"0123456789",echodots
  61. if (test=u_ver) then
  62.   goto end
  63. else
  64.   log "Invalid PIN entered ("+test+")",false
  65.   goto screwed_up
  66. endif
  67.  
  68. :done
  69. let u_ver=pin
  70. putuser
  71.  
  72. :screwed_up
  73. newline
  74. println "@X00@X0CThe PIN you have entered is incorrect!@XFF"
  75. newline
  76. inputstr "Please re-enter your PIN: ",test2,@X0E,4,"0123456789",echodots
  77. if ((test2 <> u_ver) & (maxtries > 1)) then
  78.   log "Invalid PIN entered ("+test2+")",false
  79.   dec maxtries
  80.   goto screwed_up
  81. else if (test2=u_ver)
  82.   goto end
  83. endif
  84.  
  85. message 0,"Sysop",u_name(),"Invalid PIN","R",0,false,false,"\pcb\pin\sysmsg"
  86. log "Invalid PIN entered ("+test2+")",false
  87. log "4 Invalid PIN attempts - Automatic Disconnect",true
  88. dispfile "\pcb\pin\hangup",graph
  89. hangup
  90.  
  91. :end
  92.