home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / AI401.ZIP / FSLOGON.WCX (.txt) < prev    next >
Wildcat! WCX  |  1994-11-20  |  9KB  |  363 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  9071 bytes  12/30/122  04:11:44pm
  3. '! Code Segment Size  :3609 bytes
  4. '! Data Segment Size  :5265 bytes
  5. '! String Segment Size:5462 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Type Type27
  9.         Filler0(1 To 6) As Byte
  10.         s6 As String*70
  11.         Filler76(1 To 14) As Byte
  12.         s90 As String*70
  13.         Filler160(1 To 14) As Byte
  14.         s174 As String*70
  15.       End Type
  16.  
  17.       Type Type26
  18.         Filler0(1 To 4) As Byte
  19.         s4 As String*25
  20.       End Type
  21.  
  22.       Declare Function Func3262 As Integer
  23.       Declare Function Func3489(i65534 As Integer, s65532 As String, s65530 As String, s65528 As String, s65526 As String) As Integer
  24.  
  25.       Dim t26_4463 As Type26
  26.       Dim s5113 As String*20
  27.       Dim s5133 As String
  28.       Dim s5137 As String
  29.       Dim s5141 As String
  30.       Dim s5145 As String
  31.       Dim s5149 As String
  32.       Dim s5153 As String
  33.       Dim s5161 As String
  34.       Dim i5167 As Integer
  35.       Dim s5169(0 To 22) As String
  36.       Dim i5261 As Integer
  37.       Dim i5263 As Integer
  38.  
  39.       Dim s65508_ As String '! Temporary
  40.       Dim s65512_ As String '! Temporary
  41.       Dim s65516_ As String '! Temporary
  42.       Dim l65520_ As Long
  43.       Dim i65524_ As Integer
  44.       Dim l65526_ As Long
  45.       Dim i65530_ As Integer
  46.       Dim s65532_ As String
  47.  
  48.       Do
  49.    40   i5263 = 0
  50.         s5169(1) = "SHIT"
  51.         s5169(2) = "FUCK"
  52.         s5169(3) = "FUCK YOU"
  53.         s5169(4) = "ASS"
  54.         s5169(5) = "ASSHOLE"
  55.         s5169(6) = "ASS HOLE"
  56.         s5169(7) = "BITCH"
  57.         s5169(8) = "PUSSY"
  58.         s5169(9) = "CUNT"
  59.         s5169(10) = "BASTARD"
  60.         s5169(11) = "DICK"
  61.         s5169(12) = "COCK"
  62.         s5169(13) = "FUCKE"
  63.         s5169(14) = "PENIS"
  64.         s5169(15) = "VAGINA"
  65.         s5169(16) = "CUM"
  66.         s5169(17) = "SLUT"
  67.         s5169(18) = "WHORE"
  68.         s5169(19) = "MASTERBA"
  69.         s5169(20) = "SUCK"
  70.         s5169(21) = "DAMM"
  71.         s5169(22) = "CRAP"
  72.         If FastLogon Then
  73.           GoTo 3126
  74.         End If
  75.         Do
  76.           Do
  77.   721       Func3262
  78.             Print "!|1K|*|w0000270O12|#|#|#@CLS@@07@"
  79.             Print
  80.             Print
  81.             Print
  82.             Print "@0E@    @14@╔════════════════════════════════════════════════════════════════════════╗"
  83.             Print "@0E@    @14@║                        @1F@This is The Menu For@14@                            ║"
  84.             Print "@0E@    @14@║                        @1E@  A.I.@1A@  @1E@&@1A@  @1E@H.O.M.@14@                               ║"
  85.             Print "@0E@    @14@║                                                                        ║"
  86.             Print "@0E@    @14@║                          @1E@v2.11 - 11/20/94@14@                              ║"
  87.             Print "@0E@    @14@║                                                                        ║"
  88.             Print "@0E@    @14@║ @1E@[@1B@1@1E@] @1B@-@1F@ A.I.@1E@   Artificial Inteligence. It's very basic but fun.          @14@║"
  89.             Print "@0E@    @14@║                                                                        ║"
  90.             Print "@0E@    @14@║ @1E@[@1B@2@1E@] @1B@-@1F@ H.O.M.@1E@ A game that is a lot like Simple Simon.                   @14@║"
  91.             Print "@0E@    @14@║   @1E@           It involves trying to remember number sequences.@14@          ║"
  92.             Print "@0E@    @14@║                                                                        ║"
  93.             Print "@0E@    @14@║ @1E@[@1B@3@1E@] @1B@-@1E@  Qu¡τ τφ τhε ßß$.@14@                                                ║"
  94.             Print "@0E@    @14@║                                                                        ║"
  95.             Print "@0E@    @14@║              THE BAD BOY BBS! 310.378.3081 310.915.5862                ║"
  96.             Print "@0E@    @14@╚════════════════════════════════════════════════════════════════════════╝"
  97.             Print
  98.             Print "@09@                                What is your command ? ";
  99.             Input s5161
  100.             s65532_ = s5161
  101.             If s65532_ = "1" Then
  102.               GoTo 1054
  103.               GoTo 1054
  104.             End If
  105.   932       If s65532_ = "2" Then
  106.               GoTo 2992
  107.               GoTo 1054
  108.             End If
  109.   961       If s65532_ = "3" Then
  110.               GoTo 3085
  111.               GoTo 1054
  112.             End If
  113.   990       If s65532_ = "q" Then
  114.               GoTo 3085
  115.               GoTo 1054
  116.             End If
  117.  1019       If s65532_ = "Q" Then
  118.               GoTo 3085
  119.               GoTo 1054
  120.             End If
  121.  1048     Loop
  122.  1054     Func3262
  123.           If User.Name = s5137 Then
  124.             Print "!|1K|*|w000270O12|#|#|#@CLS@@09@"
  125.             Print
  126.             Print " @0C@                          A.I. @0A@says......."
  127.             Delay 0.5
  128.             Print " @0C@ I am still pondering your question@0A@.....please try back later."
  129.             Print
  130.             Print "                     @PAUSE@"
  131.             GoTo 40
  132.           End If
  133.  1137     Open s5153 For Output As 2
  134.  1156     Cls 
  135.           Print
  136.           Print
  137.           Print
  138.           Print
  139.           Print
  140.           Print "@0A@╔══════════════════════════════════════════════════════════════════════╗"
  141.           Print "║                                                                      ║"
  142.           Print "║              I am  @0C@ A@0E@.@0C@I@0E@. @09@ - @0C@ Artificial Intelegence                  @0A@║"
  143.           Print "║                                                                      ║"
  144.           Print "║                                                                      ║"
  145.           Print "║ @0B@    The object here is to 'parlay-vous' with the me to see if you    @0A@║"
  146.           Print "║ @0B@       can stump me by asking me any legit question you want.        @0A@║"
  147.           Print "║ @0B@ But first the computer will ask you a question to see how smart     @0A@║"
  148.           Print "║                   @0B@ you are. So.......here we go.                     @0A@║"
  149.           Print "╚══════════════════════════════════════════════════════════════════════╝"
  150.           Print "                   @PAUSE@"
  151.           GoTo 1274
  152.           Do
  153.             Do
  154.  1274         Do While Len(s5149) < 3
  155.                 Print "@CLS@@0A@                      Here we go......"
  156.                 Print
  157.                 Print "@0C@Answer this question :@0A@ " + s5141
  158.                 Input s5149
  159.               Loop
  160.  1329
  161.  1350         For i5263 = 1 To 21 Step 1
  162.                 i5261 = InStr(1, UCase(s5149), UCase(s5169(i5263)))
  163.                 If i5261 <> 0 Then
  164.                   GoTo 1634
  165.                 End If
  166.  1468         Next
  167.  1491         If s5149 = "" Or UCase(s5149) = "YES" Or UCase(s5149) = "NO" Then
  168.                 Print "@CLS@@0A@!|*|1K|w0000270O12|#|#|# Your answer must be more than 'Yes' or 'No' and more than 3 characters long."
  169.                 Print "              @PAUSE@"
  170.                 s5149 = ""
  171.                 GoTo 1156
  172.                 GoTo 2986
  173.               End If
  174.  1579         If (UCase(s5149) = "WHY" Or UCase(s5149) = "WHY" + "?") = 0 Then GoTo 1691
  175.               GoTo 1634
  176.               GoTo 1685
  177.               Do
  178.                 Do
  179.  1634             Cls 
  180.                   Print
  181.                   Print
  182.                   Print "    @0C@ DO NOT PROVOKE ME TO ANGER!!! ANSWER THE QUESTION!!"
  183.                   Print "                   AND NO CUSSING PERMITTED!!!"
  184.                   Print
  185.                   Print "                       @PAUSE@"
  186.                   s5149 = ""
  187.                   GoTo 1274
  188.  1685             GoTo 2986
  189.  1691             If (s5149 = "." Or s5149 = ".." Or s5149 = "..." Or s5149 = "...." Or s5149 = ".....") = 0 Then GoTo 1783
  190.                   Print
  191.                   Print "Oh come on....you can do better than that. Just answer the question."
  192.                 Loop
  193.                 GoTo 2986
  194.  1783           If (s5149 = "?" Or s5149 = "??" Or s5149 = "???" Or s5149 = "????" Or s5149 = "!" Or s5149 = ",") = 0 Then GoTo 1877
  195.               Loop
  196.               GoTo 2986
  197.  1877         If (UCase(s5149) = "CARL TICE") = 0 Then GoTo 1945
  198.               Print "@CLS@@0D@ Congrats! @0A@ You have dicovered the secret message!"
  199.               Print "@09@Call my board @ 310.378.3081 or 310.915.5862 and let me know"
  200.               Print "how you like the game, or any new suggestions, or complaints!"
  201.               s5149 = ""
  202.             Loop
  203.             GoTo 2986
  204.  1945       If (UCase(s5149) = "RTM") = 0 Then GoTo 1995
  205.             Print "@CLS@@09@ Shame on you. tsk tsk tsk."
  206.             s5149 = ""
  207.           Loop
  208.           GoTo 2001
  209.  1995     GoTo 2001
  210.           Do
  211.             Do
  212.  2001         If (Len(s5145) < 3) = 0 Then GoTo 2101
  213.               Print "@CLS@@09@ @0A@     ╔════════════╗"
  214.               Print "      ║@0C@ Very good!@0A@ ║"
  215.               Print "      ╚════════════╝"
  216.               Print
  217.               Print
  218.               Print
  219.               Print "  @0D@Now I need you to ask me; @0C@A.I.@0D@, any question you wish."
  220.               Print "   I will ponder your question and see what knowledge I can bestow"
  221.               Print "                      opon you....."
  222.               Print
  223.               Print " @0F@Please ask @0C@A.I.@0F@ a question at this time.@09@"
  224.               Do
  225.  2089           Input s5145
  226.                 GoTo 2001
  227.  2101           i5263 = 0
  228.  2128           For i5263 = 1 To 21 Step 1
  229.                   i5261 = InStr(1, UCase(s5145), UCase(s5169(i5263)))
  230.                   If i5261 <> 0 Then
  231.                     GoTo 2705
  232.                   End If
  233.  2246           Next
  234.  2269           If (s5145 = "" Or s5145 = "?" Or s5145 = "!" Or s5145 = "." Or s5145 = "...") = 0 Then GoTo 2350
  235.               Loop
  236.               GoTo 2986
  237.  2350         If UCase(s5145) = "WHY" Or UCase(s5145) = "WHY" + "?" Then
  238.                 Print
  239.                 Print " WHY?....WHY? you ask?......Becuase I am A.I. !"
  240.                 GoTo 2705
  241.                 GoTo 2986
  242.               End If
  243.  2416         If UCase(s5145) = "WHEN" Or UCase(s5145) = "WHEN" + "?" Then
  244.                 GoTo 2705
  245.                 GoTo 2986
  246.               End If
  247.  2471         If UCase(s5145) = "WHERE" Or UCase(s5145) = "WHERE" + "?" Then
  248.                 GoTo 2705
  249.                 GoTo 2986
  250.               End If
  251.  2526         If UCase(s5145) = "WHAT" Or UCase(s5145) = "WHAT" + "?" Then
  252.                 GoTo 2705
  253.                 GoTo 2986
  254.               End If
  255.  2581         If UCase(s5145) = "HOW" Or UCase(s5145) = "HOW" + "?" Then
  256.                 Print
  257.                 Print " How?......You can't really be that stupid....."
  258.                 GoTo 2705
  259.                 GoTo 2986
  260.               End If
  261.  2647         If (UCase(s5145) = "WHAT IS THIS?") = 0 Then GoTo 2699
  262.               Print
  263.               Print "This is A.I. - Now answer the question."
  264.               s5145 = ""
  265.             Loop
  266.             GoTo 2753
  267.  2699       GoTo 2753
  268.  2705       Print
  269.             Print
  270.             Print " You are begining to try my patience! DO AS I SAY!!! OR TAKE YOUR CHANCES!!"
  271.             Print "                        And NO FOUL LANGUAGE!!"
  272.             Print
  273.             Print "                           @PAUSE@"
  274.             s5145 = ""
  275.           Loop
  276.  2753     Print #2, s5145
  277.           Print #2, User.Name
  278.           Print #2, i5167
  279.           Close 2
  280.           Print "@CLS@@0C@Very Good -"
  281.           Print "               @0F@I will ponder your question and the next time you "
  282.           Print "                     log-in I will have an answer waiting for you."
  283.           Print
  284.           Print
  285.           Print
  286.           Print "A.I. ß¥ @0A@¢@02@å@03@Γ@05@£ @0A@τ@02@ì@03@¢@05@Σ@0C@...@0D@τHε ßÆD ßφ¥ ßß$! ══ 310.378.3081  310.915.5862"
  287.           Print "                          @0C@Γεg¡$τεΓεd τφ : @0D@UNREGISTERED"
  288.           Print
  289.           Print
  290.           Print "                                    @PAUSE@"
  291.           s5113 = Pad(t26_4463.s4, 25)
  292.           s5133 = User.Name
  293.           Func3489(i5167, ("@09@You asked @0C@A.I. @09@:@0D@" + s5141 + "@0C@ A.I'S @09@answer was :@0D@" + s5149), ("A.I."), s5137, ("A.I. Response"))
  294.  2986   Loop
  295.  2992   Cls 
  296.         Print "@09@The object of this game is to remember the sequence of numbers flashed"
  297.         Print "   at you and then type them in....It is harder than it sounds."
  298.         Print
  299.         Print
  300.         Print "The problem is that your sysop needs to register this game for you to be able"
  301.         Print " to enjoy it. Tell your sysop that you'll gladly contribute the $5 it would"
  302.         Print "take to register it.....You would also be getting the RIP screens for A.I."
  303.         Print
  304.         Print
  305.         Print "H.O.M. ß¥ @0A@¢@02@å@03@Γ@05@£ @0A@τ@02@ì@03@¢@05@Σ@0C@...@0D@τHε ßÆD ßφ¥ ßß$! ══ 310.378.3081  310.915.5862"
  306.         Print "                          @0C@Γεg¡$τεΓεd τφ : @0D@UNREGISTERED"
  307.         Print
  308.         Print
  309.         Print "                       @PAUSE@"
  310.       Loop
  311.  3085 If User.SecLevel = "SYSOP" Then
  312.       Else
  313.  3114   HelloFiles 
  314.         CheckNewsletter 
  315.         CheckBulletins 
  316.         QuoteOfTheDay 
  317.       End If
  318.  3126 CheckMailAtLogon 
  319.       End 
  320.  
  321. '! Called 2 times
  322.       Function Func3262 As Integer
  323.         s5153 = ProgPath + "AI.DAT"
  324.         If Exists(s5153) Then
  325.           Open s5153 For Input As 1
  326.           Input #1, s5141
  327.           Input #1, s5137
  328.           Input #1, i5167
  329.           If s5141 = "" Then
  330.             s5141 = "Why is there air?"
  331.           End If
  332.  3365     If s5137 = "" Then
  333.             s5137 = MakeWild.SysopName
  334.           End If
  335.  3396     If s5141 = "" Then
  336.             i5167 = 2
  337.           End If
  338.  3420     Close 1
  339.         Else
  340.  3431     Print
  341.           Print
  342.           Print "Can't find" + ProgPath + "AI.DAT"
  343.           ActivityLog "================= ERROR =================="
  344.           ActivityLog "Error Running A.I. - No  AI.DAT File Found"
  345.           ActivityLog "================= ERROR =================="
  346.           End 
  347.         End If
  348.  3481
  349.       End Function
  350.  
  351. '! Called 1 time
  352.       Function Func3489(i65534 As Integer, s65532 As String, s65530 As String, s65528 As String, s65526 As String) As Integer
  353.         Dim mh65204 As MessageHeader
  354.  
  355.         i65534 = i5167
  356.         GetConfInfo(Conference, i5167)
  357.         Join i5167
  358.         mh65204.From = s65530
  359.         mh65204.To = s65528
  360.         mh65204.Subject = s65526
  361.         AddMessage(mh65204, s65532, "", 1213417543)
  362.       End Function
  363.