home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / CTLS.ZIP / NEWUSER.CTL < prev    next >
Encoding:
Text File  |  1993-01-07  |  7.6 KB  |  347 lines
  1. ;NEWUSER2 FILE
  2.  
  3. setactivity(New-user Logon...)
  4. log(==,New User (%var%D) Registering...)
  5. *ResetAllVars
  6. setequal(>NAME=%var%D)
  7. setequal(>LAST=%DATE%)
  8. setequal(>LASTCHK=%DATE%)
  9. setequal(>FROM=)
  10. SetEqual(>STREET=)
  11. SetEqual(>PASS=)
  12. SetEqual(>PHONE=)
  13. SetEqual(>WORK=)
  14. SetEqual(>BIRTH=)
  15. SetEqual(/PROTOCOL=N)
  16. SetEqual(>COMP=)
  17. SetEqual(>SCREENLEN=24)
  18. setequal(t=0)
  19. SetEqual(^5=FirstTime)
  20. *ShowMenu
  21.  Display(nice\newuser)
  22.  Goto(More) 
  23.  
  24. *FixMenu
  25. *MoreImportantFix
  26.  AnsiGoto(1,9)
  27.  Eline(80)
  28.  AnsiGoto(1,10)
  29.  Eline(80)
  30.  AnsiGoto(1,11)
  31.  Eline(80)
  32.  AnsiGOto(1,12)
  33.  Eline(80)
  34.  AnsiGoto(1,13)
  35.  Eline(80)
  36.  If(^:5^)=(FirstTime) then Ret
  37.  AnsiGoto(1,9)
  38.  Display(nice\nblock)
  39.  Jump(AddNumbers)
  40.  
  41. *More
  42.  AnsiGoto(44,8) 
  43.  Say(&12&\:BIRTH\)
  44.  AnsiGoto(44,9)
  45.  Say(\:FROM\)
  46.  AnsiGoto(44,10)
  47.  Say(\:COMP\)
  48.  AnsiGoto(44,11)
  49.  Say(/:PROTOCOL/)
  50.  AnsiGoto(44,12)
  51.  Say(\:PHONE\)
  52.  AnsiGoto(44,13)
  53.  Say(\:PASS\)
  54.  AnsiGoto(44,14)
  55.  Say(\:SCREENLEN\)
  56.  AnsiGoto(44,15)
  57.  Say(\:STREET\)
  58.  AnsiGoto(44,16)
  59.  Say(\:WORK\)
  60. If(^:5^)=(FirstTime) then goto(FirstRunThrough)
  61.  AnsiGoto(1,20)
  62.  Say(&15&Enter Selection: &3&[ ]&12&*)
  63.  Back(2)
  64.  MenuAsk%LEN1%(*)
  65.  BigIf(1:Birth,2:City,3:Computer,4:Protocol,5:Phone,6:Pass,7:ScreenLength,8:Street,9:Work,C:CreateIt)
  66.  *EvenMore
  67.  If(^:5^)=(FirstTime) then Goto(MoreImportantFix)
  68.  Goto(FixMenu)
  69.  Return
  70.  
  71. *DefBox
  72. AnsiGoto(28,5)
  73. Say(&2&SELECT CATEGORY TO MODIFY)
  74. AnsiGoto(1,9)
  75. Say(&7&┌────────────────────────────────────────────────────────────────────────────┐)
  76. Say(│                                                                            │)
  77. Say(│                                                                            │)
  78. Say(│                                                                            │)
  79. Say(└────────────────────────────────────────────────────────────────────────────┘)
  80. Ret
  81.  
  82.  
  83.         *street
  84. Jump(DefBox)
  85. AnsiGoto(30,9)
  86. Say(&7&>&10&STREET ADDRESS&7&<)
  87. AnsiGoto(18,11)
  88. Say(&14&Enter Your Street Address (NOT City) Below:)
  89. AnsiGoto(3,12)
  90. Say(&3&[&7&░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░&3&]&12&*)
  91. Back(73)       
  92. Ask %MIN1%(*)
  93. setequal(>STREET=%RESP%)
  94. AnsiGoto(44,15)
  95. Say(                               )
  96. AnsiGoto(44,15)
  97. Say(\:STREET\)
  98. if (/:from/)=(\:street\) then goto(Fake)
  99. goto(Evenmore)
  100.  
  101.         *city
  102. Jump(DefBox)
  103. AnsiGoto(30,9)
  104. Say(&7&>&10&CITY AND STATE&7&<)
  105. AnsiGoto(13,11)
  106. Say(&14&Enter the &15&City, State&14& You Live in Below:)
  107. AnsiGoto(3,12)
  108. Say(&3&[&7&░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░&3&]&12&*)
  109. Back(73)       
  110. Ask %MIN1%(*)
  111. setequal(/FROM=%RESP%)
  112. setequal(>FROM=%RESP%)
  113. if (/:from/)=(\:street\) then goto(Fake)
  114. update
  115. Goto(EvenMore)
  116.  
  117.         *PASS
  118. Jump(DefBox)
  119. *MOREPASS
  120. AnsiGoto(30,9)
  121. Say(&7&>&10&PASSWORD ENTRY&7&<)
  122. AnsiGoto(3,11)
  123. say (&14&Enter the Password You Want to Use (Dots Will Appear Instead of Password))
  124. AnsiGoto(24,12)
  125. Say(&3&[&7&░░░░░░░░░░░░░░░░░░░░&3&]&12&*)
  126. Back(21)
  127. cgetpass%MIN2%(.)
  128. menuequal(a=%name%)
  129. if (%resp%)=(&a) then goto (bp)
  130. menuequal(a=%fname%)
  131. if (&a)=(%resp%) then goto (bp)
  132. menuequal(a=%lname%)
  133. if (&a)=(%resp%) then goto (bp)
  134. setequal(>PASS=%RESP%)
  135. setequal(k=%RESP%)
  136. AnsiGoto(3,11)
  137. say(&14&            Please Enter the Password Again for Verification             )
  138. AnsiGoto(24,12)
  139. Say(&3&[&7&░░░░░░░░░░░░░░░░░░░░&3&]&12&*)
  140. Back(21)
  141. cgetpass%MIN2%(.)
  142. notif (%RESP%) = (&k) then goto (badpass)
  143. Goto(EvenMore)
  144.  
  145. *phone
  146. Jump(DefBox)
  147. AnsiGoto(29,9)
  148. Say(&7&>&10&HOME PHONE NUMBER&7&<)
  149. AnsiGoto(20,11)
  150. Say(&14&Enter Your Home Phone Number Below:&12&)
  151. AnsiGoto(31,12)
  152. picture(###-###-####)
  153. repeating(%resp%)
  154. iftrue(goto (fake))
  155. setequal(>PHONE=%RESP%)
  156. setequal(/PHONE=%Resp%)
  157. Goto(EvenMore)
  158.  
  159. *work
  160. Jump(DefBox)
  161. AnsiGoto(29,9)
  162. Say(&7&>&10&WORK PHONE NUMBER?&7&<)
  163. AnsiGoto(18,11)
  164. Say(&15&Do You Have a Work Phone Number? &3&[   ]&12&*)
  165. Back(4)
  166. YesNoAsk(*)
  167. If(%RESP%)=(No) then SetEqual(>WORK=)
  168. If(%RESP%)=(No) then Goto(EvenMore)
  169. Jump(DefBox)
  170. AnsiGoto(29,9)
  171. Say(&7&&10&WORK PHONE NUMBER&7&<)
  172. AnsiGoto(21,11)
  173. Say(&14&Enter Your Work Phone Number Below:&12&)
  174. AnsiGoto(31,12)
  175. Picture(###-###-####)
  176. setequal(>WORK=%RESP%)
  177. If (>WORK)=() then AnsiGoto(44,16)
  178. If (>WORK)=() then Say(                               )
  179. AnsiGoto(44,16)
  180. Say(\:WORK\)
  181. Goto(EvenMore)
  182.  
  183. *Birth
  184. Jump(DefBox)
  185. AnsiGoto(34,9)
  186. Say(&7&>&10&BIRTHDATE&7&<)
  187. AnsiGoto(25,11)
  188. Say(&14&Enter Your Birthdate Below:&12&*)
  189. AnsiGoto(35,12)
  190. update
  191. picture(##-##-##)
  192. repeating(%resp%)
  193. iftrue(goto (fake))
  194. dateok(%resp%)
  195. ifnottrue(goto (fake))
  196. setequal(>BIRTH=%RESP%)
  197. AnsiGoto(44,8) 
  198. Say(&12&\:BIRTH\)
  199. Goto(EvenMore)
  200.  
  201. *Protocol
  202. Jump(DefBox)
  203. AnsiGoto(26,9)
  204. Say(&7&>&10&PROTOCOL SELECTION&7&<)
  205. AnsiGoto(2,10)
  206. display (nice\pr1)
  207. AnsiGoto(2,11)
  208. display (nice\pr2)
  209. setequal(/birth=%resp%)
  210. AnsiGoto(3,12)
  211. menuask(&15&Which Protocol Would You Like (or N for None)?%hRed%: &12&*)
  212. setequal(/protocol=%RESP%)
  213. Goto(EvenMore)
  214.  
  215. *Computer
  216. Jump(DefBox)
  217. AnsiGoto(30,9)
  218. Say(&7&>&10&COMPUTER USING&7&<)
  219. AnsiGoto(13,11)
  220. Say(&14&Enter the Type of Computer You Are Using Below:)
  221. AnsiGoto(3,12)
  222. Say(&3&[&7&░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░&3&]&12&*)
  223. Back(73)       
  224. Ask %MIN1%%LEN72%(*)
  225. NicEqual(>COMP=%RESP%)
  226. setequal(>WAIT=N)
  227. Goto(EvenMore)
  228.  
  229. *ScreenLength
  230. Jump(DefBox)
  231. AnsiGoto(29,9)
  232. Say(&7&>&10&SCREEN LENGTH&7&<)
  233. AnsiGoto(12,11)
  234. Say(&14&Enter the Length of Your Screen Below (24 Recommended):)
  235. AnsiGoto(34,12)
  236. Say(&3&[&7&░░░&3&]&12&*)
  237. Back(4)       
  238. Ask %MIN1%%LEN3%(*)
  239. setequal(>FIRST=%DATE%)
  240. setequal(>SCREENLEN=%RESP%)
  241. setequal(>LEFT=%NEWTIME%)
  242. setequal(>SEC=%NEWSEC%)
  243. seekfile(phones.dat,/:phone/)
  244. IfTrue(Jump(Dphone))
  245. AnsiGoto(44,14)
  246. Say(\:SCREENLEN\ )
  247. Goto(EvenMore)
  248.  
  249. *CreateIt
  250. AnsiGoto(1,20)
  251. say(&14&Please wait while your records are created.*)
  252. findsp
  253. Say(.*)
  254. setequal(a=%aresp%)
  255. saveuser(%var%a)
  256. Say(.*)
  257. appendto(userfile.ndx,%var%D│\:PASS\│\:FROM\│%var%a│0)
  258. qdx(%var%a)
  259. say( |)
  260. eline(55)
  261. appendto(phones.dat,\:phone\)
  262. seekuser(%var%D)
  263. loadmem(nice\open.ctl,goto (connect))
  264.  
  265.         *BADPASS
  266. Jump(BotLine)
  267. AnsiGoto(13,13)
  268. Beep(1)
  269. say(&7&>&12&The passwords did not match.  Please try again...&7&<)
  270. goto (morepass)
  271.  
  272. *fake
  273. ClearScr
  274. Beep(3)
  275. Say(&12&FALSE INFORMATION ENTERED!!!! YOU WILL NOW BE LOCKED OUT!!!)
  276. Say((It is possible you entered the same thing for your street address as you put) 
  277. Say(for your city/state.))
  278. Beep(3)
  279. Say(&CR&&11&Enter One Line Reason Why You Entered False Information:)
  280. Say(&3&[&7&░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░&3&]&12&*)
  281. Back(53)       
  282. Ask %MIN1%%LEN52%(*)
  283. appendto(badnames.bbs,%name%)
  284. log(--,User attempted log on with false info.)
  285. Log(!!,%NAME%'s Reason: "%RESP%")
  286. quitbbs
  287.  
  288. *inv
  289. inc(t)
  290. if (&t)=(2) then goto (fake)
  291. goto(city)
  292.  
  293. *bp
  294. Jump(BotLine)
  295. AnsiGoto(13,13)
  296. Beep(1)
  297. say (&7&>&12&Please enter a more unique, hard to guess password.&7&<)
  298. goto (Morepass)
  299.  
  300. *FirstRunThrough
  301.  Jump(Birth)
  302.  Jump(City)
  303.  Jump(Computer)
  304.  Jump(Protocol)
  305.  Jump(Phone)
  306.  Jump(Pass)
  307.  Jump(ScreenLength)
  308.  Jump(Street)
  309.  Jump(Work)
  310.  SetEqual(^5=0)
  311.  Goto(EvenMore)
  312.  
  313. *AddNumbers
  314.  AnsiGoto(13,8)
  315.  Say(&14&1.)
  316.  AnsiGoto(13,9)
  317.  Say(2.)
  318.  AnsiGoto(13,10)
  319.  Say(3.)
  320.  AnsiGoto(13,11)
  321.  Say(4.)
  322.  AnsiGoto(13,12)
  323.  Say(5.)
  324.  AnsiGoto(13,13)
  325.  Say(6.)
  326.  AnsiGoto(13,14)
  327.  Say(7.)
  328.  AnsiGoto(13,15)
  329.  Say(8.)
  330.  AnsiGoto(13,16)
  331.  Say(9.)
  332.  AnsiGoto(28,5)
  333.  Say(&10&SELECT CATEGORY TO MODIFY)
  334.  Ret
  335.  
  336. *BotLine
  337. AnsiGoto(1,13)
  338. Say(&7&└────────────────────────────────────────────────────────────────────────────┘)
  339. Ret
  340.  
  341. *Dphone
  342. ClearScr
  343. Display(display\dphone)
  344. Log(!!,User (%NAME%) entered Duplicate Info)
  345. Quitbbs
  346.  
  347.