home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / MISC / TGCHEK20.ZIP / TGCHECK.SCR < prev    next >
Text File  |  1997-11-08  |  13KB  |  434 lines
  1. ;Copyright 1997 Brian Smith
  2. ;Look in docs for how to install!
  3. MENU NS `03TG`0BCheck
  4. FILEEXIST @1@\TGCHECK.LOG JUMP BEGIN
  5. JUMP ERROR
  6.  
  7. :BEGIN
  8. IF "@2@" "NOLOG"
  9.  JUMP NOLOG
  10. ENDIF
  11. IF "@3@" "NOLOG"
  12.  JUMP NOLOG
  13. ENDIF
  14.  
  15. :BEGIN2
  16. FILEOPEN @1@\TGCHECK.LOG
  17. FILEPUT " "
  18. FILEPUT "`01┌──────`0BTGCheck`01────────────────────────`0B~ST`01───────────────────`09─`03─`0B─`0F─"
  19. FILEPUT "`01│                                          "
  20. FILEPUT "`01│ `0F~UH Enterd at `03~ST `0Fon `03~SJ     "
  21. FILECLOSE
  22. VARIABLE NAME STRING "~UH"
  23. VARIABLE SYSTEM STRING "~SU"
  24. VARIABLE TELE STRING "~SV"
  25. VARIABLE AN1 STRING "~UD"
  26. VARIABLE AN2 STRING "~UO"
  27. VARIABLE AN3 STRING "~UE"
  28. VARIABLE CHECK INTEGER
  29. VARIABLE PHONE13 STRING "~ER4~UE"
  30. VARIABLE PHONE12 STRING "~ER4~UD"
  31. VARIABLE PHONE11 STRING "~EL7~ER3~UD"
  32. VARIABLE PHONE10 STRING "~EL7~ER3~UE"
  33. VARIABLE PHONE9 STRING ""
  34. VARIABLE PHONE8 STRING ""
  35. VARIABLE ZIP3 INTEGER "~UC"
  36. VARIABLE BDAY STRING ""
  37. VARIABLE PHONEN STRING ""
  38. VARIABLE ZIPCODE STRING ""
  39. VARIABLE PHONEH STRING ""
  40. VARIABLE PHONEH2 STRING ""
  41. VARIABLE A1 INTEGER "3"
  42. VARIABLE A2 INTEGER "3"
  43. VARIABLE A3 INTEGER "3"
  44. VARIABLE A4 INTEGER "3"
  45. VARIABLE A5 INTEGER "3"
  46. VARIABLE A6 INTEGER "3"
  47. VARIABLE A7 INTEGER "3"
  48. VARIABLE A8 INTEGER "3"
  49. VARIABLE RAN2 INTEGER
  50. VARIABLE RAN3 CHAR
  51. VARIABLE RAN INTEGER
  52. RANDOM RAN2 15
  53. INCREMENT RAN2
  54. JE "$RAN2$" "10" RAND1
  55. JE "$RAN2$" "11" RAND2
  56. JE "$RAN2$" "12" RAND3
  57. JE "$RAN2$" "13" RAND4
  58. JE "$RAN2$" "14" RAND5
  59. JE "$RAN2$" "15" RAND6
  60. JUMP START
  61.  
  62. :START2
  63. putnl " "
  64. putnl "`0FTGCheck `0Av2.00 `0FRandom Info Checker, `0$RAN3$Registerd to: `0A~SA"
  65. putnl "`0FCopyright 1997 Brian Smith "
  66. putnl " "
  67. JUMP RANDOMC
  68.  
  69. :START
  70. PUTNL " "
  71. PUTNL "`0FTGCheck `0Av2.00 `0FRandom Info Checker, `0$RAN2$Registerd to: `0A~SA"
  72. putnl "`0FCopyright 1996 Brian Smith"
  73. putnl " "
  74.  
  75. :RANDOMC
  76. MENU -CTGCheck v2.00       $NAME$        $SYSTEM$       Telegard $TELE$
  77. RANDOM RAN 100
  78. JE "~US" "250" SYSOP
  79. JE "~US" "251" SYSOP
  80. JE "~US" "252" SYSOP
  81. JE "~US" "253" SYSOP
  82. JE "~US" "254" SYSOP
  83. JE "~US" "255" SYSOP
  84. JE "$RAN$" "1" PHONE
  85. JE "$RAN$" "2" PHONE
  86. JE "$RAN$" "3" BDAY
  87. JE "$RAN$" "4" BDAY
  88. JE "$RAN$" "5" ZIP
  89. JE "$RAN$" "6" ZIP
  90. JE "$RAN$" "7" PHONEH2
  91. JE "$RAN$" "8" PHONEH2
  92. JE "$RAN$" "9" PHONEH3
  93. JE "$RAN$" "10" PHONEH3
  94. fileopen @1@\TGCHECK.LOG
  95. fileput "`01│ `03Random Check Number=`09$RAN$                                            "
  96. fileput "`01│ `03 No Check Was made, Exiting at ~ST                        "
  97. fileput "`01└────────────────────────────────────────────────────────────────`09─`03─`0B─`0F─"
  98. fileclose
  99. MENU -CTGCheck - No Check Was Made, Random Number=$RAN$       $NAME$       $SYSTEM$
  100. MENU NS `03Logging On
  101. ENDSCRIPT
  102.  
  103. :PHONE
  104. fileopen @1@\TGCHECK.log
  105. fileput "`01│ `03Random Number Matches ($RAN$) Checking `0FVOICE `03Phone Number at ~ST "
  106. fileclose
  107. putnl "~SG"
  108.  
  109. :LOOP2
  110. MENU -CTGCheck - Checking Voice Phone Number  -  Answer - $AN1$
  111. IF "$A2$" "2"
  112.  Fileopen @1@\TGCHECK.LOG
  113.  fileput "`01│  `0BPUT `0F$PHONEN$, `0Bshould be ~UD!                       "
  114.  Fileclose
  115. ENDIF
  116. IF "$A2$" "1"
  117.  Fileopen @1@\TGCHECK.LOG
  118.  fileput "`01│  `0BPUT `0F$PHONEN$, `0Bshould be ~UD!                         "
  119.  Fileclose
  120. ENDIF
  121. IF "$A2$" "0"
  122.  Fileopen @1@\TGCHECK.LOG
  123.  fileput "`01│  `0BPUT `0F$PHONEN$, `0Bshould be ~UD!                         "
  124.  Fileclose
  125. ENDIF
  126. JE "$A2$" "0" FAILED2
  127. GET PHONEN "`08(`07$A2$`08) `02Enter Your `0FVOICE `02Phone Number `0F(`0A(###)-###-####`0F): `0A" 12 "<"MASK">: "###-###-####" "$PHONEN$"
  128. JE "$PHONEN$" "~UD" OKAY
  129. DECREMENT A2
  130. JUMP LOOP2
  131.  
  132. :BDAY
  133. fileopen @1@\TGCHECK.log
  134. fileput "`01│ `03Random Number Matches ($RAN$) Checking `0FB-DAY at ~ST              "
  135. fileclose
  136. putnl "~SG"
  137. VARIABLE BDAY2 STRING
  138. TRANSLATE BDAY2 "~VD" "MDY" "###"
  139.  
  140. :LOOP
  141. MENU -CTGCheck - Checking BirthDay  -  Answer - $AN2$
  142. IF "$A1$" "2"
  143.  Fileopen @1@\TGCHECK.LOG
  144.  fileput "`01│  `0BPUT `0F$BDAY$, `0Bshould be ~UO!                                 "
  145.  Fileclose
  146. ENDIF
  147. IF "$A1$" "1"
  148.  Fileopen @1@\TGCHECK.LOG
  149.  fileput "`01│  `0BPUT `0F$BDAY$, `0Bshould be ~UO!                                 "
  150.  Fileclose
  151. ENDIF
  152. IF "$A1$" "0"
  153.  Fileopen @1@\TGCHECK.LOG
  154.  fileput "`01│  `0BPUT `0F$BDAY$, `0Bshould be ~UO!                                 "
  155.  Fileclose
  156. ENDIF
  157. JE "$A1$" "0" FAILED
  158. GET BDAY "`08(`07$A1$`08) `02Enter Your Date Of Birth `0F(`0A~VD`0F): `0A" 8 NO "$BDAY2$"
  159. JE "$BDAY$" "~UO" OKAY
  160. DECREMENT A1
  161. JUMP LOOP
  162.  
  163. :OKAY
  164. MENU -C  TGCheck - Passed Verification 
  165. fileopen @1@\TGCHECk.LOG
  166. fileput "`01│ `8B  `0F~UH Passed Verification, Exiting at ~ST `8B            "
  167. fileput "`01└────────────────────────────────────────────────────────────────`09─`03─`0B─`0F─"
  168. fileclose
  169. MENU NS `03Logging On
  170. ENDSCRIPT
  171.  
  172. :ZIP
  173. IF "@2@" "CAN"
  174.  JUMP CAN
  175. ENDIF
  176. IF "@3@" "CAN"
  177.  JUMP CAN
  178. ENDIF
  179. fileopen @1@\TGCHECK.log
  180. fileput "`01│`03Random Number Matches ($RAN$) Checking `0FZip Code at ~ST `01          "
  181. fileclose
  182. putnl "~SG"
  183.  
  184. :LOOP3
  185. MENU -CTGCheck - Checking ZipCode  -  Answer - $ZIP3$
  186. IF "$A3$" "2"
  187.  Fileopen @1@\TGCHECK.LOG
  188.  fileput "`01│  `0BPUT `0F$ZIPCODE$, `0Bshould be $ZIP3$!                                       "
  189.  Fileclose
  190. ENDIF
  191. IF "$A3$" "1"
  192.  Fileopen @1@\TGCHECK.LOG
  193.  fileput "`01│  `0BPUT `0F$ZIPCODE$, `0Bshould be $ZIP3$!                                       "
  194.  Fileclose
  195. ENDIF
  196. IF "$A3$" "0"
  197.  Fileopen @1@\TGCHECK.LOG
  198.  fileput "`01│  `0BPUT `0F$ZIPCODE$, `0Bshould be $ZIP3$!                                       "
  199.  Fileclose
  200. ENDIF
  201.  
  202. DECREMENT ZIP3 4
  203. INCREMENT ZIP3 4
  204. JE "$A3$" "0" FAILED3
  205. GET ZIPCODE "`08(`07$A3$`08) `02Enter Your Zip Code `0F(`0A#####`0F): `0A" 5 "<"MASK">: "#####" "$PHONEN$"
  206. JE "$ZIPCODE$" "$ZIP3$" OKAY
  207. DECREMENT A3
  208. JUMP LOOP3
  209.  
  210. :SYSOP
  211. FILEOPEN @1@\\TGCHECK.LOG
  212. Fileput "`01│ `09 Sysop Override                                                   "
  213. fileput "`01│ `03SL=~US, `0FExiting `03at ~ST                                       "
  214. fileput "`01└────────────────────────────────────────────────────────────────`09─`03─`0B─`0F─"
  215. fileclose
  216. MENU NS `03Logging On
  217. MENU -CTGCheck - Sysop Override
  218. ENDSCRIPT
  219.  
  220. :FAIL!
  221. COMMENT "~VU  `03(`0FFailed TG Check`03)"
  222. putnl "`03You Will Now Be Sending A Letter To The Sysop `0F(~SS`0F)"
  223. putnl "`0BPlease Explain Exactly Why You Have Enterd False Information."
  224. putnl "`09If you choose to enter nothing, your account will be deleted"
  225. menu MESysop;*`0FTG`0ACheck, `02Failed Verification!!
  226. putnl "`0BYou Will Now Be Disconnected"
  227. putnl "~SP"
  228. fileopen @1@\tgcheck.log
  229. fileput "`01└───────────────────────────────────────────────────────────────`09─`03─`0B─`0F─"
  230. fileclose
  231. MENU -CFailed TGCheck Verification!!!
  232. HANGUP
  233. ENDSCRIPT
  234.  
  235. :FAILED
  236. PUTNL "`0EIncorrect!"
  237. PUTNL "~SP"
  238. FILEOPEN @1@\TGCHECK.LOG
  239. fileput "`01│ `03~UH Failed Date Of Birth Verification!!! at ~ST         "
  240. fileclose
  241. MENU -S`0F-`07-`0F-`07-`0F>~UH `05FAILED DATE OF BIRTH VERIFICATION! `0DPut $BDAY$, was ~UO`0F<`07-`0F-`07-`0F-~SG ~SP
  242. FILEEXIST @1@\BDAYFAIL.MSG FILEERASE @1@\BDAYFAIL.MSG
  243. FILECREATE @1@\BDAYFAIL.MSG
  244. FILEPUT "               `0BAUTOMATED MESSAGE FROM TGCHECK!"
  245. fileput " "
  246. fileput "~UH Failed the random Birth Day check on"
  247. fileput "~SD, they entered $BDAY$, was ~UO"
  248. fileclose
  249. MENU MT0;BDAYFAIL.MSG;`0ATGCheck;`0ATGCheck;~SS
  250. fileerase @1@\BDAYFAIL.MSG
  251. JUMP FAIL!
  252.  
  253. :FAILED2
  254. PUTNL "`04Incorrect!"
  255. PUTNL "~SP"
  256. FILEOPEN @1@\TGCHECK.LOG
  257. fileput "`01│ `03~UH Failed Voice phone number verifiication!! at ~ST    "
  258. fileclose
  259. MENU -S`0F-`07-`0F-`07-`0F>~UH `05FAILED PHONE NUMBER VERIFICATION! `0DPut $PHONEN$, was ~UD`0F<`07-`0F-`07-`0F-~SG ~SP
  260. FILEEXIST @1@\PHONEFAL.MSG FILEERASE @1@\PHONEFAL.MSG
  261. FILECREATE @1@\PHONEFAL.MSG
  262. FILEPUT "               `0BAUTOMATED MESSAGE FROM TGCHECK!"
  263. fileput " "
  264. fileput "~UH Failed the random Voice Phone Number check on"
  265. fileput "~SD, they entered $PHONEN$, should have been"
  266. fileput "~UD"
  267. fileclose
  268. MENU MT0;PHONEFAL.MSG;`0ATGCheck;`0ATGCheck;~SS
  269. fileerase @1@\PHONEFAL.MSG
  270. JUMP FAIL!
  271.  
  272. :FAILED3
  273. FILEOPEN @1@\TGCHECK.LOG
  274. fileput "`01│ `03~UH Failed zip code verification!!! at ~ST              "
  275. fileclose
  276. PUTNL "`04Incorrect!"
  277. PUTNL "~SP"
  278. MENU -S`0F-`07-`0F-`07-`0F>~UH `05FAILED ZIP CODE NUMBER VERIFICATION, `0DPut $ZIPCODE$, was $ZIP3$!`0F<`07-`0F-`07-`0F-~SG ~SP
  279. FILEEXIST @1@\ZIPFAIL.MSG FILEERASE @1@\ZIPFAIL.MSG
  280. FILECREATE @1@\ZIPFAIL.MSG
  281. FILEPUT "               `0BAUTOMATED MESSAGE FROM TGCHECK!"
  282. fileput " "
  283. fileput "~UH Failed the random Zip Code check on"
  284. fileput "~SD, they entered $ZIPCODE$, should have been"
  285. fileput "$ZIP3$"
  286. fileclose
  287. MENU MT0;ZIPFAIL.MSG;`0ATGCheck;`0ATGCheck;~SS
  288. fileerase @1@\zipfail.msg
  289. JUMP FAIL!
  290.  
  291. :FAILED6
  292. FILEOPEN @1@\TGCHECK.LOG
  293. fileput "`01│ `03~UH Failed last 4 #'s check in voice phone verification!!! at ~ST"
  294. fileclose
  295. PUTNL "`04Incorrect!"
  296. PUTNL "~SP"
  297. MENU -S`0F-`07-`0F-`07-`0F>~UH `05FAILED LAST 4 #'s IN VOICE PHONE NUMBER VERIFICATION, `0DPut $PHONEH2$, was $PHONE12$`0F<`07-`0F-`07-`0F-~SG ~SP
  298. FILEEXIST @1@\PHONEFA3.MSG FILEERASE @1@\PHONEFA3.MSG
  299. FILECREATE @1@\PHONEFA3.MSG
  300. FILEPUT "               `0BAUTOMATED MESSAGE FROM TGCHECK!"
  301. fileput " "
  302. fileput "~UH Failed the random Last 4 #'s in Voice Phone"
  303. fileput "Number check on ~SD, they entered"
  304. fileput "$PHONEH2$, should have been $PHONE12$"
  305. fileclose
  306. MENU MT0;PHONEFA3.MSG;`0ATGCheck;`0ATGCheck;~SS
  307. fileerase @1@\PHONEFA3.MSG
  308. JUMP FAIL!
  309.  
  310. :FAILED7
  311. FILEOPEN @1@\TGCHECK.LOG
  312. fileput "`01│ `03~UH Failed middle 3 #'s check in voice phone verification!!! at ~ST"
  313. fileclose
  314. PUTNL "`04Incorrect!"
  315. PUTNL "~SP"
  316. MENU -S`0F-`07-`0F-`07-`0F>~UH `05FAILED MIDDLE 3 #'s IN VOICE PHONE NUMBER VERIFICATION, `0DPut $PHONE9$, was $PHONE11$`0F<`07-`0F-`07-`0F-~SG ~SP
  317. FILEEXIST @1@\PHONEFA4.MSG FILEERASE @1@\PHONEFA4.MSG
  318. FILECREATE @1@\PHONEFA4.MSG
  319. FILEPUT "               `0BAUTOMATED MESSAGE FROM TGCHECK!"
  320. fileput " "
  321. fileput "~UH Failed the random middle 3 #'s in Voice Phone"
  322. fileput "Number check on ~SD, they entered"
  323. fileput "$PHONE9$, should have been $PHONE11$"
  324. fileclose
  325. MENU MT0;PHONEFA4.MSG;`0ATGCheck;`0ATGCheck;~SS
  326. fileerase @1@\PHONEFA4.MSG
  327. JUMP FAIL!
  328.  
  329. :RAND1
  330. RAN3 "A"
  331. JUMP START2
  332.  
  333. :RAND2
  334. RAN3 "B"
  335. JUMP START2
  336.  
  337. :RAND3
  338. RAN3 "C"
  339. JUMP START2
  340.  
  341. :RAND4
  342. RAN3 "D"
  343. JUMP START2
  344.  
  345. :RAND5
  346. RAN3 "E"
  347. JUMP START2
  348.  
  349. :RAND6
  350. RAN3 "F"
  351. JUMP START2
  352.  
  353. :ERROR
  354. MENU -CTGCheck - Error!!
  355. putnl "~SG`83TGCHECK ERROR, Path to text not correct, look in Doc's!!!~SG"
  356. MENU -CTGCheck - Error!!
  357. putnl "~SP"
  358. ENDSCRIPT
  359.  
  360.  
  361. :PHONEH2
  362. fileopen @1@\TGCHECK.log
  363. fileput "`01│ `03Random Number Matches ($RAN$) Checking Last 4 #'s in VOICE Phone at ~ST"
  364. fileclose
  365. putnl "~SG"
  366.  
  367. :LOOP6
  368. MENU -CTGCheck - Checking Last 4 #'s in VOICE Phone Number  -  Answer - $PHONE12$
  369. IF "$A6$" "2"
  370.  Fileopen @1@\TGCHECK.LOG
  371.  fileput "`01│  `0BPUT `0F$PHONEH2$, `0Bshould be $PHONE12$!!!!!!!!                          "
  372.  Fileclose
  373. ENDIF
  374. IF "$A6$" "1"
  375.  Fileopen @1@\TGCHECK.LOG
  376.  fileput "`01│  `0BPUT `0F$PHONEH2$, `0Bshould be $PHONE12$!!!!!!!!                          "
  377.  Fileclose
  378. ENDIF
  379. IF "$A6$" "0"
  380.  Fileopen @1@\TGCHECK.LOG
  381.  fileput "`01│  `0BPUT `0F$PHONEH2$, `0Bshould be $PHONE12$!!!!!!!!                          "
  382.  Fileclose
  383. ENDIF
  384. JE "$A6$" "0" FAILED6
  385. GET PHONEH2 "`08(`07$A6$`08) `02Enter Your Missing Numbers in your `0FVOICE `02Phone Number `0F###-###-`8F????`0F: `0A" 4 "<"MASK">: "####" "$PHONEH2$"
  386. JE "$PHONEH2$" "$PHONE12$" OKAY
  387. DECREMENT A6
  388. JUMP LOOP6
  389.  
  390. :NOLOG
  391. FILEERASE @1@\TGCHECK.LOG
  392. FILECREATE @1@\TGCHECK.LOG
  393. FILECLOSE
  394. JUMP BEGIN2
  395.  
  396. :PHONEH3
  397. fileopen @1@\TGCHECK.log
  398. fileput "`01│ `03Random Number Matches ($RAN$) Checking Middle 3 #'s in VOICE Phone at ~ST"
  399. fileclose
  400. putnl "~SG"
  401.  
  402. :LOOP7
  403. MENU -CCTGCheck - Checking Middle 3 #'s in VOICE Phone Number  -  Answer - $PHONE11$
  404. IF "$A7$" "2"
  405.  Fileopen @1@\TGCHECK.LOG
  406.  fileput "`01│  `0BPUT `0F$PHONE9$, `0Bshould be $PHONE11$!!!!!!!!                          "
  407.  Fileclose
  408. ENDIF
  409. IF "$A7$" "1"
  410.  Fileopen @1@\TGCHECK.LOG
  411.  fileput "`01│  `0BPUT `0F$PHONE9$, `0Bshould be $PHONE11$!!!!!!!!                          "
  412.  Fileclose
  413. ENDIF
  414. IF "$A7$" "0"
  415.  Fileopen @1@\TGCHECK.LOG
  416.  fileput "`01│  `0BPUT `0F$PHONE9$, `0Bshould be $PHONE11$!!!!!!!!                          "
  417.  Fileclose
  418. ENDIF
  419. JE "$A7$" "0" FAILED7
  420. GET PHONE9 "`08(`07$A7$`08) `02Enter Your Missing Numbers in your `0FVOICE `02Phone Number `0F###-`8F???`0F-####`0B: `0A" 3 "<"MASK">: "###" "$PHONE9$"
  421. JE "$PHONE9$" "$PHONE11$" OKAY
  422. DECREMENT A7
  423. JUMP LOOP7
  424.  
  425. :CAN
  426. MENU -CTGCheck - Canadian Override
  427. fileopen @1@\TGCHECK.LOG
  428. fileput "`01│ `03 No Check Was made, Exiting at ~ST                        "
  429. fileput "`01└────────────────────────────────────────────────────────────────`09─`03─`0B─`0F─"
  430. fileclose
  431. MENU NS `03Logging On
  432. ENDSCRIPT
  433.  
  434.