home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / CYBRFY24.ZIP / PLOGON11.ZIP / LOGON410.ZIP / LOGON.WCX (.txt)
Wildcat! WCX  |  1995-05-17  |  5KB  |  263 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  4508 bytes  12/30/122  05:43:48pm
  3. '! Code Segment Size  :3340 bytes
  4. '! Data Segment Size  :4601 bytes
  5. '! String Segment Size:1168 bytes
  6. '! Compiled with WCC version 4.10
  7.  
  8.       Declare Function Func3189(l65534 As Long) As String
  9.  
  10.       Dim dt4465 As DateTime
  11.       Dim s4471 As String
  12.       Dim i4475 As Integer
  13.       Dim s4477 As String
  14.       Dim i4481 As Integer
  15.       Dim s4483(1 To 24) As String
  16.       Dim i4579 As Integer
  17.       Dim i4581 As Integer
  18.       Dim s4587 As String
  19.       Dim s4591 As String
  20.       Dim i4595 As Integer
  21.       Dim s4597 As String
  22.  
  23.       Dim l65526_ As Long
  24.       Dim i65530_ As Integer
  25.       Dim l65532_ As Long
  26.  
  27.       CurrentDateTime dt4465
  28.       i4475 = 0
  29.       If Exists("PWRLOGON.KEY") Then
  30.         Open "PWRLOGON.KEY" For Input As 1
  31.         Input #1, s4471
  32.         Close 1
  33.         GoSub 2289
  34.         If i4475 = -1 Then
  35.           Print "@0E@Executing @0F@POWER LOGON! @07@v1.1@0E@ Registered to @0F@@SYSOP@"
  36.         End If
  37.   129 Else
  38.   135   i4475 = 0
  39.         Print "@0E@Executing @0F@POWER LOGON!@07@ v1.1@8C@   -Unregistered-@0E@"
  40.         Delay 1
  41.       End If
  42.   158 Delay 0.5
  43.       If i4475 = 0 And User.Name = MakeWild.SysopName Then
  44.         Print ""
  45.         Print "@0E@Press [@0F@!@0E@] to register, or [@0F@SPACEBAR@0E@] to continue"
  46.         Do
  47.   222     i4481 = i4481 + 1
  48.           Delay 0.5
  49.           s4477 = InKey(1213417543)
  50.           If s4477 = " " Then
  51.             GoTo 307
  52.           End If
  53.   279   Loop Until s4477 = "!" Or i4481 = 5
  54.   307   If s4477 = "!" Then
  55.           GoSub 2102
  56.         End If
  57.       End If
  58.   330 If Not Exists("PWRLOGON.CFG") Then
  59.         Print "@0E@@CLS@PWRLOGON.CFG not found, continuing with normal logon..."
  60.         Delay 2
  61.         ActivityLog "ERROR!  PWRLOGON.CFG Not found!"
  62.         ActivityLog "Read PWRLOGON.DOC for details on creating a PWRLOGON.CFG"
  63.         DisplayGroupFiles 
  64.         HelloFiles 
  65.         BulletinMenu 
  66.         CheckNewsletter 
  67.         QuoteOfTheDay 
  68.         CheckMailAtLogon 
  69.       Else
  70.   403   Open "PWRLOGON.CFG" For Input As 1
  71.   423   Do While Not EOF(1)
  72.           i4579 = i4579 + 1
  73.           Input #1, s4483(i4579)
  74.         Loop
  75.   492   i4581 = i4579
  76.         Close 1
  77.   531   For i4579 = 1 To i4581 Step 1
  78.           If Trim(UCase(s4483(i4579))) = "GREETING" Then
  79.             GoSub 2398
  80.           End If
  81.   639     If Trim(UCase(s4483(i4579))) = "BIRTHDAY" Then
  82.             GoSub 2563
  83.           End If
  84.   697     If Trim(UCase(s4483(i4579))) = "CHKSYSOP" Then
  85.             GoSub 2695
  86.           End If
  87.   755     If Trim(UCase(s4483(i4579))) = "CLS" Then
  88.             Print "@CLS@"
  89.           End If
  90.   816     If Trim(UCase(s4483(i4579))) = "CR" Then
  91.             Print ""
  92.           End If
  93.   877     If Trim(UCase(s4483(i4579))) = "PAUSE" Then
  94.             Print "@PAUSE@"
  95.           End If
  96.   938     If Trim(UCase(s4483(i4579))) = "NOPAUSE" Then
  97.             Print "@NOPAUSE@"
  98.           End If
  99.   999     If Trim(UCase(s4483(i4579))) = "STOP" Then
  100.             Print "@STOP@"
  101.           End If
  102.  1060     If Trim(UCase(s4483(i4579))) = "NOSTOP" Then
  103.             Print "@NOSTOP@"
  104.           End If
  105.  1121     If Trim(UCase(s4483(i4579))) = "ENTER" Then
  106.             WaitEnter 
  107.           End If
  108.  1176     If Trim(UCase(s4483(i4579))) = "LOGOFF" Then
  109.             HangUp 
  110.           End If
  111.  1231     If Trim(UCase(s4483(i4579))) = "FASTLOGON" Then
  112.             GoSub 3002
  113.           End If
  114.  1289     If Trim(UCase(s4483(i4579))) = "HELLO" Then
  115.             HelloFiles 
  116.           End If
  117.  1344     If Trim(UCase(s4483(i4579))) = "BULLETINS" Then
  118.             BulletinMenu 
  119.           End If
  120.  1399     If Trim(UCase(s4483(i4579))) = "CHKMAIL" Then
  121.             CheckMailAtLogon 
  122.           End If
  123.  1454     If Trim(UCase(s4483(i4579))) = "GROUPFILES" Then
  124.             DisplayGroupFiles 
  125.           End If
  126.  1509     If Trim(UCase(s4483(i4579))) = "NEWFILES" Then
  127.             GoSub 3037
  128.           End If
  129.  1567     If Trim(UCase(s4483(i4579))) = "QUOTES" Then
  130.             QuoteOfTheDay 
  131.           End If
  132.  1622     If Trim(UCase(s4483(i4579))) = "QUOTES" Then
  133.             QuoteOfTheDay 
  134.           End If
  135.  1677     If Trim(UCase(s4483(i4579))) = "POSTRIP" Then
  136.             GoSub 2780
  137.           End If
  138.  1735     If Trim(UCase(s4483(i4579))) = "BEEP" Then
  139.             Beep 
  140.           End If
  141.  1790     If Trim(Left(UCase(s4483(i4579)), 4)) = "QUES" Then
  142.             GoSub 2637
  143.           End If
  144.  1853     If Trim(Right(UCase(s4483(i4579)), 3)) = "BAT" Then
  145.             GoSub 2799
  146.           End If
  147.  1916     If Trim(Right(UCase(s4483(i4579)), 3)) = "WCX" Then
  148.             GoSub 2918
  149.           End If
  150.  1979     If Trim(Right(UCase(s4483(i4579)), 3)) = "BBS" Then
  151.             DisplayFile(s4483(i4579))
  152.           End If
  153.  2073   Next
  154.  2096   GoTo 3065
  155.  2102   Print "@0E@@NOPAUSE@"
  156.         s4587 = InputMask("@0C@-Choice- @0E@[@0F@R@0E@]egister Power Logon!, or [@0F@Q@0E@]uit? ", "X", "", 1213417543)
  157.         s4587 = UCase(s4587)
  158.         If s4587 = "R" Then
  159.           Print ""
  160.           Print "Enter your registration code, or [@0F@ENTER@0E@] to quit: @0F@";
  161.           Input s4471
  162.           If s4471 > "" Then
  163.             GoSub 2289
  164.             If i4475 Then
  165.               Print ""
  166.               Print "@0E@Thank you for registering @0F@POWER LOGON!@0E@"
  167.               Open "PWRLOGON.KEY" For Output As 1
  168.               Print #1, s4471
  169.               Close 1
  170.               Print ""
  171.               WaitEnter 
  172.             End If
  173.           End If
  174.         End If
  175.  2288   Return 
  176.  2289   If i4475 = 0 Then
  177.           s4591 = Str(Asc(Left(UCase(MakeWild.SysopName), 1)) * (Len(MakeWild.SysopName) + Len(MakeWild.BBSName)))
  178.           If s4471 = s4591 Then
  179.             i4475 = -1
  180.           Else
  181.  2391       i4475 = 0
  182.           End If
  183.         End If
  184.  2397   Return 
  185.  2398   SubText 1, Func3189(NodeInfo.CallerNum)
  186.         l65532_ = dt4465.T.Number Div 60
  187.         If l65532_ >= 0 And l65532_ <= 719 Then
  188.           DisplayPrompt 1365
  189.         Else
  190.  2472     If l65532_ >= 720 And l65532_ <= 1079 Then
  191.             DisplayPrompt 1366
  192.           Else
  193.  2512       If l65532_ >= 1080 And l65532_ <= 1440 Then
  194.               DisplayPrompt 1367
  195.               GoTo 2552
  196.             End If
  197.           End If
  198.         End If
  199.  2552   Print
  200.         Delay 1
  201.         Return 
  202.  2563   If FormatDate(dt4465.D, "mm/dd") = FormatDate(User.BirthDate, "mm/dd") Then
  203.           If Not DisplayFile("birthday") Then
  204.             Beep 
  205.             Print
  206.             Print "Happy birthday @FIRST@!"
  207.           End If
  208.  2628     ActivityLog "Birthday Greeting Displayed"
  209.         End If
  210.  2636   Return 
  211.  2637   i4595 = Val(Trim(Right(s4483(i4579), 1)))
  212.         Questionnaire i4595
  213.         Return 
  214.  2695   If User.Name = MakeWild.SysopName Then
  215.           If i4475 = 0 Then
  216.             Print ""
  217.             Print "@0E@Sorry @0F@@FIRST@, @0E@The @0F@CHKSYSOP@0E@ command only works"
  218.             Print "with the registered version of Power Logon."
  219.             WaitEnter 
  220.             GoTo 2779
  221.           End If
  222.  2773   Else
  223.  2779     Return 
  224.  2780     If RIPDetected Then
  225.             DisplayFile("POSTRIP")
  226.           End If
  227.  2798     Return 
  228.  2799     s4597 = MakeWild.DoorFilePath
  229.           s4597 = s4597 + s4483(i4579)
  230.           If Exists(s4597) Then
  231.             Shell s4483(i4579), MakeWild.DoorFilePath
  232.           End If
  233.  2917     Return 
  234.  2918     If Exists(s4483(i4579)) Then
  235.             Run s4483(i4579), ""
  236.           End If
  237.  3001     Return 
  238.  3002     If FastLogonChar = "!" Or FastLogonChar = "*" Then
  239.           Else
  240.  3036       Return 
  241.  3037       If InputYesNo("Check for new files since your last visit? @0E@", 1213417543) Then
  242.               ListFilesDate 1213417543
  243.             End If
  244.  3064       Return 
  245.           End If
  246.         End If
  247.       End If
  248.  3065
  249.  
  250. '! Called 1 time
  251.       Function Func3189(l65534 As Long) As String
  252.         Dim i65524 As Integer
  253.         Dim s65526 As String
  254.  
  255.         s65526 = Str(l65534)
  256.         i65524 = Len(s65526) - 2
  257.  3228   Do While i65524 > 1
  258.           s65526 = Left(s65526, i65524 - 1) + "," + Right(s65526, Len(s65526) - i65524 + 1)
  259.           i65524 = i65524 - 3
  260.         Loop
  261.  3317   Func3189 = s65526
  262.       End Function
  263.