home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NEWUSER.CTL < prev    next >
Encoding:
Text File  |  1993-07-13  |  13.8 KB  |  399 lines
  1. setactivity(New-user Logon...)
  2. log(==,New User (%VAR%D) Registering...)
  3. setequal(>LAST=%DATE%)
  4. setequal(>LASTCHK=%DATE%)
  5. setequal(q=)
  6. setequal(A=)
  7. Say(&15&When you are entering data into a field, the spaces with $1$&14&BLUE$0$&15&)
  8. Say(Background indicate the Minimum number of characters you must enter.)
  9. Say(If necessary, add spaces to the end to get beyond the minimum mark.)
  10.         *A
  11. Say($0$)
  12. Say(&CR&&7&What is your REAL name, NO HANDLES!&10&? &12&[$1$&14&....$0$&15&....................&12&]&14&*)
  13. back(25)
  14. MenuAsk(%MIN%4%%LEN%24%*)
  15. setequal(^19=%RESP%)
  16. if (&Q)=(1) then setequal(A=%RESP%)
  17. if (&Q)=(1) then SETequal(>NAME=%RESP%)
  18. if (&Q)=(1) then SETequal(/NAME=^:19^)
  19. if (&Q)=(1) then goto(summary)
  20. if (&Q)=(2) then setequal(A=%RESP%)
  21. if (&Q)=(2) then SETequal(>NAME=%RESP%)
  22. if (&Q)=(2) then SETequal(/NAME=^:19^)
  23. if (&Q)=(2) then goto(summary)
  24. notif (^19)=(&d) then goto (why)
  25. appendto(ques\quest2.ans,Q1: Name: %RESP%)
  26. setequal(a=^:19^)
  27. setequal(>NAME=%VAR%d)
  28.         *B
  29. Say(&CR&&7&The Password you wish to use&10&?&12& [$1$&14&....$0$&15&................&12&] &14&*)
  30. Back(22)
  31. MenuAsk(%MIN%4%%LEN%20%*)
  32. setequal(>PASS=%RESP%)
  33. setequal(b=%RESP%)
  34. Say(&CR&&7&Verify Password&10&:&12& [$1$&14&....$0$&15&................&12&] &14&*)
  35. Back(22)
  36. cGetPass%MIN%1%%LEN%20% (▄▀)
  37. notif (%RESP%) = (&b) then goto (badpass)
  38. if (%VAR%Q)=(1) then goto(summary)
  39. if (%VAR%Q)=(2) then goto(summary)
  40.         *C
  41. Say(&CR&&7&Please enter your &15&birthday &7&below&10&:&14&)
  42. update
  43. Picture(##-##-##)
  44. setequal(c=%RESP%)
  45. setequal(>BIRTH=%RESP%)
  46. if (%VAR%Q)=(1) then goto(summary)
  47. if (%VAR%Q)=(2) then goto(summary)
  48.         *D
  49. Say(&CR&&7&What is your &15&Street &7&address&10&? $1$    $0$&14&*)
  50. back(4)
  51. CAsk(%MIN%4%*)
  52. setequal(>STREET=%RESP%)
  53. setequal(N=%RESP%)
  54. appendto(ques\quest2.ans,Q2: Address: %RESP%)
  55. if (%VAR%Q)=(1) then goto(summary)
  56. if (%VAR%Q)=(2) then goto(summary)
  57.         *E
  58. Say(&CR&&7&Where are you from&10&?)
  59. Say(&15&Town &15&(&7&ENTER TOWN ONLY, No STATE!!&15&)&10&: &12&[$1$&14&....$0$&15&...........&12&]&14&*)
  60. back(16)
  61. Ask(%MIN%4%%LEN%15%*)
  62. setequal(z=%RESP%)
  63. if (%VAR%Q)=(1) then combine(%VAR%Z, +%RESP%=Y)
  64. if (%VAR%Q)=(2) then combine(%VAR%Z, +%RESP%=Y)
  65. if (%VAR%Q)=(1) then goto(summary)
  66. if (%VAR%Q)=(2) then goto(summary)
  67.         *Z
  68. Say(&CR&&15&State &15&(&7&ENTER STATE'S MAILING ABBREVIATION ONLY&15&)&10&: &12&[$1$&14&..$0$&12&]&14&*)
  69. back(3)
  70. Ask(%MIN%2%%LEN%2%*)
  71. if (%RESP%)=(  ) then goto (z)
  72. setequal(E=%RESP%)
  73. combine(%VAR%z, +%RESP%=Y)
  74. setequal(/FROM=%VAR%Y)
  75. setequal(>FROM=%VAR%Y)
  76. update
  77. if (%VAR%Q)=(1) then goto(summary)
  78. if (%VAR%Q)=(2) then goto(summary)
  79.         *F
  80. Say(&CR&&15&ZIPCode&10&:&14&)
  81. Picture(#####)
  82. Say($0$)
  83. setequal(f=%RESP%)
  84. if (%VAR%Q)=(1) then goto(summary)
  85. if (%VAR%Q)=(2) then goto(summary)
  86.         *G
  87. Say(&CR&&7&What is your &15&VOICE &7&Phone #&10&? &14&)
  88. Picture(###-###-####)
  89. Say($0$)
  90. setequal(>PHONE=%RESP%)
  91. setequal(/PHONE=%RESP%)
  92. setequal(g=%RESP%)
  93. appendto(Ques\quest2.ans,Q4: Real Phone: %RESP%)
  94. if (%VAR%Q)=(1) then goto(summary)
  95. if (%VAR%Q)=(2) then goto(summary)
  96.         *H
  97. Say(&CR&&7&What is your &15&WORK &7&Phone # &15&(&7&If you have one&15&)&10&?&14&)
  98. Picture(%MIN%3%###-###-####)
  99. Say($0$)
  100. setequal(h=%RESP%)
  101. setequal(>WORK=%RESP%)
  102. if (%VAR%Q)=(1) then goto(summary)
  103. if (%VAR%Q)=(2) then goto(summary)
  104.         *I
  105. Say(&CR&&7&What is your gender &15&(&7&M&15&/&7&F&15&)&10&?&14& *)
  106. Menukey
  107. BIGNICESAY(M:Male! and proud of it!,F:I am woman! hear me ROAR!)
  108. setequal(i=%RESP%)
  109. appendto(ques\quest2.ans,Q5: SEX: %RESP%)
  110. if (%VAR%Q)=(1) then goto(summary)
  111. if (%VAR%Q)=(2) then goto(summary)
  112.         *J
  113. Say(&CR&&7&Who/Where did you get &15&our &7&Phone number from&10&? $1$&14&    $0$&14&*)
  114. back(4)
  115. Ask(%MIN%4%*)
  116. Say($0$)
  117. setequal(j=%RESP%)
  118. appendto(ques\quest2.ans,Q6: Where #: %RESP%)
  119. if (%VAR%Q)=(1) then goto(summary)
  120. if (%VAR%Q)=(2) then goto(summary)
  121.         *K
  122. CLEARSCR
  123. display (display\defprots)
  124. MenuAsk(&CR&&7&Which protocol would you like &15&(&7&or &15&N&7& for None&15&)&10&? &14&*)
  125. setequal(/protocol=%RESP%)
  126. setequal(k=%RESP%)
  127. if (%VAR%Q)=(1) then goto(summary)
  128. if (%VAR%Q)=(2) then goto(summary)
  129.         *L
  130. clearscr
  131. display(display\comps)
  132. Say(&CR&&7&What type of computer do you have&10&? &14&*)
  133. Menukey
  134. Bignicesay(A:IBM Compatible,B:Tandy 1000 Series,C:386sx or better,D:Apple II,E:Macintosh,F:Atari,G:Other)
  135. if (%RESP%)=(A) then setequal(>COMP=IBMorClone)
  136. if (%RESP%)=(B) then setequal(>COMP=Tandy1000)
  137. if (%RESP%)=(C) then setequal(>COMP=386sx+)
  138. if (%RESP%)=(D) then setequal(>COMP=App2)
  139. if (%RESP%)=(E) then setequal(>COMP=Mac)
  140. if (%RESP%)=(F) then setequal(>COMP=Atari)
  141. if (%RESP%)=(G) then jump(chooseothercomp)
  142. ;setequal(>COMP=%RESP%)
  143. setequal(>WAIT=%VAR%Y)
  144. setequal(l=%RESP%)
  145. if (%VAR%Q)=(1) then goto(summary)
  146. if (%VAR%Q)=(2) then goto(summary)
  147.         *S
  148. CLEARSCR
  149. Say(&7&Are you a &15&SysOp (&7&Do you run a BBS?&15&)&10&? &12&[   ]&14&*)
  150. back(4)
  151. YesNoAsk()
  152. setequal(R=%RESP%)
  153. if (%RESP%)=(No) Then goto(PREM)
  154. Say(&7&What is its Phone Number&10&?&14&)
  155. Picture(###-###-####)
  156. setequal(>WORK=%RESP%)
  157.         *BBSNAME
  158. Ask(&CR&&7&What is the name of your &15&BBS&10&? &14&*)
  159. appendto(ques\quest1.ans,Q1: Name: %RESP%)
  160. setequal(X=%RESP%)
  161. if (%VAR%Q)=(2) then goto(summary)
  162.         *SYSOPNAMES
  163. Ask(&CR&&7&Who are the &15&SysOps &7&of this &15&BBS&10&? &14&*)
  164. appendto(ques\quest1.ans,Q2: Sysops: %RESP%)
  165. setequal(W=%RESP%)
  166. if (%VAR%Q)=(2) then goto(summary)
  167.         *BBSSOFTWARE
  168. Say(&CR&&7&Are you running the &14&Power&15&board&7& BBS software package&10&? &12&[   ]&14&*)
  169. back(4)
  170. YesNoAsk()
  171. if (%RESP%)=(Yes) then goto (pb)
  172. Ask(&CR&&7&Which &15&BBS&7& software package are you currently using&10&? &14&*)
  173. appendto(ques\quest1.ans,Q3: Using: %RESP%)
  174. setequal(U=%RESP%)
  175. if (%VAR%Q)=(2) then goto(summary)
  176.         *CONSIDER
  177. if (%VAR%U)=(PowerBoard) then setequal(T=I Love PowerBoard, I run it now!)
  178. if (%VAR%U)=(PowerBoard) then goto(summary)
  179. Ask(&CR&&7&Would you consider running &14&Power&15&board&10&? &7&Reasons&10&? &14&*)
  180. appendto(ques\quest1.ans,Q3: Consider running PB?: %RESP%)
  181. setequal(T=%RESP%)
  182. if (%VAR%Q)=(2) then goto(summary)
  183.         *roq
  184. Ask(&CR&&7&How many &15&files&7& do you currently have online&10&? &14&*)
  185. appendto(ques\quest1.ans,Q4: %RESP%)
  186. setequal(S=%RESP%)
  187. if (%VAR%Q)=(2) then goto(summary)
  188.         *VisitingAccess
  189. Say(&CR&&7&Would you like &15&Visiting Sysop &7&access here&10&? &12&[   ]&14&*)
  190. back(4)
  191. YesNoAsk()
  192. setequal(R=%RESP%)
  193. if (%RESP%)=(No) then goto (PREM)
  194. log(--,Requested Visiting Sysop Access)
  195. appendto(ques\quest1.ans,Q5: Wants Visiting Sysop Access)
  196. goto (PREM)
  197.         *pb
  198. Say(&CR&&7&Wise choice&10&.  &7&We hope you are enjoying it as much as we are&10&!)
  199. setequal(U=PowerBoard)
  200. setequal(T=I Love PowerBoard, I run it now!)
  201. appendto(ques\quest1.ans,Q3:Using Powerboard BBS software)
  202. if (%VAR%Q)=(2) then goto(summary)
  203. goto (roq)
  204.         *PREM
  205. If (%VAR%Q)=(1) then goto (Summary)
  206.         *M
  207. Clearscr
  208. display(display\length)
  209. MenuAsk(%MIN%1%&CR&&7&Please enter the &15&length &7&of your screen &15&(24 &7&Recommended&15&)&10&? &14&*)
  210. setequal(>screenlen=%RESP%)
  211. setequal(m=%RESP%)
  212. if (%VAR%Q)=(1) then goto(summary)
  213. if (%VAR%Q)=(2) then goto(summary)
  214. ;        *N
  215. ;Clearscr
  216. ;say(&7&Are you or a relative affiliated in any way, shape, or form with any)
  217. ;say(&15&News media&7&, U&15&.&7&S&15&.&7& Government&15&, &7&or Law enforcement agency&10&? &12&[   ]&14&*)
  218. ;back(4)
  219. ;YESNOASK()
  220. ;setequal(o=%RESP%)
  221. ;if (%RESP%)=(Yes) then LOG(UG,User replied YES to Question 8)
  222. ;if (%RESP%)=(Yes) then setequal(>MEMO=GOV'T)
  223. ;if (%RESP%)=(No) then setequal(>MEMO=)
  224. ;        *O
  225. ;say(&14&)
  226. ;clearscr
  227. ;say(Michael Piatt)
  228. ;say(Doug Vermes)
  229. ;say(Avery Jackson)
  230. ;say(Philip Tennyson)
  231. ;say(Mark Hennessy)
  232. ;say(Joseph Maxwell)
  233. ;say(Angus Mason)
  234. ;say(Scott Brown)
  235. ;say(Pharla Dickinson)
  236. ;say(Jared Cohen)
  237. ;say(Hou Tung)
  238. ;say(Garry Goldblatt)
  239. ;say(Mike O'Toole)
  240. ;say(Lesley Gehrig)
  241. ;say(Ernie Sampson)
  242. ;say(Chris Lowman)
  243. ;say(Arthur Sanchez)
  244. ;say(Effrem Robertson)
  245. ;say(Mathew Hennessy)
  246. ;say(Jack Petrone)
  247. ;say(&7&Do &15&you &7&agree that anything that happens on this BBS, or any action &15&you)
  248. ;say(&7&take on this BBS is not the responsibility of any of the people listed)
  249. ;say(above&10&? &12&[   ]&14&*)
  250. ;back(4)
  251. ;YESNOASK()
  252. ;if (%RESP%)=(No) then goto(Disagree)
  253. ;setequal(p=Yes)
  254. ;appendto(ques\quest2.ans,Q7: Disclaimed: %RESP%)
  255.         *SUMMARY
  256. clearscr
  257. Say(&15&A &10&: &7&Name&12&                                : &14&%VAR%A)
  258. Say(&15&B &10&: &7&Password&12&                            : &14&%VAR%B)
  259. Say(&15&C &10&: &7&Birthday&12&                            : &14&%VAR%C)
  260. Say(&15&D &10&: &7&Street address&12&                      : &14&%VAR%N)
  261. Say(&15&E &10&: &7&Town&12&                                : &14&%VAR%Z)
  262. Say(&15&F &10&: &7&State&12&                               :&14& %VAR%E)
  263. Say(&15&G &10&: &7&ZIPCode&12&                             :&14& %VAR%F)
  264. Say(&15&H &10&: &7&Phone Number&12&                        :&14& %VAR%G)
  265. Say(&15&I &10&: &7&Work Phone&12&                          :&14& %VAR%H)
  266. Say(&15&J &10&: &7&Gender&12&                              :&14& %VAR%I)
  267. Say(&15&K &10&: &7&Where You got our phone number from&12& : &14&%VAR%J)
  268. Say(&15&L &10&: &7&Default Protocol&12&                    : &14&%VAR%K)
  269. Say(&15&M &10&: &7&Computer Type&12&                       : &14&%VAR%L)
  270. Say(&15&N &10&: &7&Screen Length&12&                       : &14&%VAR%M Rows)
  271. ;say(&15&O &10&: &7&Government related&12&                  : &14&%VAR%O)
  272. ;say(&15&P &10&: &7&Answered &14&Yes &7&to waiver&12&.)
  273. Say(&15&Q &10&: &7&Visiting SysOp?&12&                     : &14&%VAR%R)
  274. if (%VAR%R)=(Yes) then goto(Visiting1)
  275.         *aftervisiting
  276. Say(&7&Please enter letter to change, or &15&Y&7& to &15&quit)
  277. menukey()
  278. setequal(q=1)
  279. if (%RESP%)=(A) then goto (A)
  280. if (%RESP%)=(B) then goto (B)
  281. if (%RESP%)=(C) then goto (C)
  282. if (%RESP%)=(D) then goto (D)
  283. if (%RESP%)=(E) then goto (E)
  284. if (%RESP%)=(F) then goto (Z)
  285. if (%RESP%)=(G) then goto (F)
  286. if (%RESP%)=(H) then goto (G)
  287. if (%RESP%)=(I) then goto (H)
  288. if (%RESP%)=(J) then goto (I)
  289. if (%RESP%)=(K) then goto (J)
  290. if (%RESP%)=(L) then goto (K)
  291. if (%RESP%)=(M) then goto (L)
  292. if (%RESP%)=(N) then goto (M)
  293. ;if (%RESP%)=(O) then goto (N)
  294. if (%RESP%)=(Q) then goto (S)
  295. if (%VAR%R)=(Yes) then goto(visiting2)
  296.         *aftervisit2
  297. NOTIF (%RESP%)=(Y) then goto(SUMMARY)        
  298.         *SIGN1
  299. clearscr
  300. Say(&CR&&7&You agree to the truth of all your above answers &CR&&7&by signing your &15&REAL &7&name below&10&:)
  301. Say(&15&HINT&10&: &7&Your real name is what you call yourself on the BBS&10&!)
  302. Say(&CR&&7&Sign &15&here&10&: &12&[$1$&14&....$0$&15&..................&12&]&14&*)
  303. back(23)
  304. MenuAsk(%MIN%1%%LEN%21%&14&*)
  305. if (%RESP%)=(%VAR%A) then goto(SIGN2)
  306. Say(&12&Please sign your True Name!)
  307. secpause(1)
  308. flushout
  309. goto(sign1)
  310.         *SIGN2
  311. appendto(ques\quest2.ans,Q9: Signature: %RESP%)
  312.         *restofquest
  313. Say(&7&Would you like to have full access here&10&? &12&[   ]&14&*)
  314. back(4)
  315. YesNoAsk()
  316. if (%RESP%)=(No) then goto (endofquest)
  317. if (%RESP%)=(Yes) then goto(RESTOFQUEST2)
  318. if (%VAR%a)=(Yes) then GOTo(RESTOFQUEST2)
  319.         *RESTOFQUEST2
  320. ;if (%VAR%R)=(Yes) then setequal(/LEFT=80)
  321. ;notif (%VAR%R)=(Yes) then setequal(/LEFT=60)
  322. log(--,Security has been updated)
  323. appendto(ques\quest2.ans,Q10: Wants full user access)
  324.         *endofquest
  325. say(&CR&&10& ■ &14&NewUser.CTL PCL procedure (c) 1993 by Mark P. Hennessy)
  326. Say(&CR&&12&Please wait while your records are created...*)
  327. if (%VAR%R)=(Yes) then setequal(>SEC=30)
  328. notif (%VAR%R)=(Yes) then setequal(>SEC=20)
  329. ;;;;;;
  330. ;   setequal(>SEC=10)
  331. ;;;;;;
  332.  setequal(>FIRST=%DATE%)
  333.  setequal(>SCREENLEN=%RESP%)
  334. setequal(>LEFT=%NEWTIME%)
  335.   ;numbusers ;finds number of users in your userfile.
  336.   ;addvar(%ARESP%+1=l)
  337.   ;appendto(userfile.ndx,%VAR%A│\:PASS\│\:FROM\│%VAR%l│0)
  338.   ;saveuser(%VAR%l)
  339.   ;prepare
  340.   ;say( |)
  341.   ;say(                                              |)
  342.   ;seekuser(%VAR%A)
  343.  
  344.  seekfile(phones.dat,/:phone/)
  345.  iftrue(loadmem (control\dphone.ctl))
  346.  ;say(&CR&&15&Please wait while your records are created...*)
  347.  findsp ;find space for user...
  348.  setequal(a=%aresp%)
  349.  saveuser(%var%a)
  350.  appendto(userfile.ndx,%var%D│\:PASS\│\:FROM\│%var%a│0)
  351.  qdx(%var%a)
  352.  Say( |)
  353.  eline(55)
  354.  appendto(phones.dat,\:phone\)
  355.  seekuser(%var%D)
  356. ;say(&15&Thank You for calling!, Please call back tomorrow for upgraded access!)
  357. ;quitbbs
  358. loadmem(control\open.ctl,goto (connect))
  359. *disagree
  360. Say(&12&Sorry, but your membership request has been denied!)
  361. quitbbs
  362.         *BADPASS
  363. Say(&CR&&12&The passwords did not match.  Please try again...&CR&)
  364. goto (B)
  365.         *WHY
  366. Say(&CR&&7&Why does your name not match the name you logged on with&10&?)
  367. Say(&7&If you were using a handle before, and this is your real name,&CR&please retain your real name.)
  368. Say(&CR&&7&Do you wish this to be the name you use on the &15&BBS&10&? &12&[   ]&14&*)
  369. back(4)
  370. YesNoAsk()
  371. notif(%RESP%)=(Yes) then setequal(a=%NAME%)
  372. if (%RESP%)=(Yes) then setequal(/NAME=^:19^)
  373. if (%RESP%)=(Yes) then setequal(a=^:19^)
  374. setequal(>NAME=%VAR%A)
  375. CLEARSCR
  376. goto(B)
  377.         *VISITING1
  378. Say(&15&R &10&: &7&Name of your BBS&12&                    : &14&%VAR%X)
  379. Say(&15&S &10&: &7&Other SysOps Names&12&                  : &14&%VAR%W)
  380. Say(&15&T &10&: &7&Current BBS Software being run&12&      : &14&%VAR%U)
  381. Say(&15&U &10&: &7&Would you run &14&Power&15&Board&7&? Why?&12&      : &14&%VAR%T)
  382. Say(&15&V &10&: &7&How many files do you have &15&online&12&   : &14&%VAR%S)
  383. goto (Aftervisiting)
  384.         *VISITING2       
  385. setequal(Q=2)
  386. if (%RESP%)=(R) then goto (BBSNAME)
  387. if (%RESP%)=(S) then goto (SYSOPNAMES)
  388. if (%RESP%)=(T) then goto (BBSSOFTWARE)
  389. if (%RESP%)=(U) then goto (CONSIDER)
  390. if (%RESP%)=(V) then goto (ROQ)
  391. goto(aftervisit2)
  392.         *ChooseOtherComp
  393. Say(&7&What kind of computer &7&do you have&10&? &14&$1$    $0$&14&*)
  394. back(4)
  395. Ask(%MIN%4%*)
  396. Say($0$)
  397. setequal(>COMPS=%RESP%)
  398. ret
  399.