home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / AI401.ZIP / NFSLGON.WCX (.txt) < prev   
Wildcat! WCX  |  1994-11-20  |  9KB  |  360 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  9056 bytes  12/30/122  04:11:44pm
  3. '! Code Segment Size  :3594 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 Func3247 As Integer
  23.       Declare Function Func3474(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.         Do
  73.           Do
  74.   706       Func3247
  75.             Print "!|1K|*|w0000270O12|#|#|#@CLS@@07@"
  76.             Print
  77.             Print
  78.             Print
  79.             Print "@0E@    @14@╔════════════════════════════════════════════════════════════════════════╗"
  80.             Print "@0E@    @14@║                        @1F@This is The Menu For@14@                            ║"
  81.             Print "@0E@    @14@║                        @1E@  A.I.@1A@  @1E@&@1A@  @1E@H.O.M.@14@                               ║"
  82.             Print "@0E@    @14@║                                                                        ║"
  83.             Print "@0E@    @14@║                          @1E@v2.11 - 11/20/94@14@                              ║"
  84.             Print "@0E@    @14@║                                                                        ║"
  85.             Print "@0E@    @14@║ @1E@[@1B@1@1E@] @1B@-@1F@ A.I.@1E@   Artificial Inteligence. It's very basic but fun.          @14@║"
  86.             Print "@0E@    @14@║                                                                        ║"
  87.             Print "@0E@    @14@║ @1E@[@1B@2@1E@] @1B@-@1F@ H.O.M.@1E@ A game that is a lot like Simple Simon.                   @14@║"
  88.             Print "@0E@    @14@║   @1E@           It involves trying to remember number sequences.@14@          ║"
  89.             Print "@0E@    @14@║                                                                        ║"
  90.             Print "@0E@    @14@║ @1E@[@1B@3@1E@] @1B@-@1E@  Qu¡τ τφ τhε ßß$.@14@                                                ║"
  91.             Print "@0E@    @14@║                                                                        ║"
  92.             Print "@0E@    @14@║              THE BAD BOY BBS! 310.378.3081 310.915.5862                ║"
  93.             Print "@0E@    @14@╚════════════════════════════════════════════════════════════════════════╝"
  94.             Print
  95.             Print "@09@                                What is your command ? ";
  96.             Input s5161
  97.             s65532_ = s5161
  98.             If s65532_ = "1" Then
  99.               GoTo 1039
  100.               GoTo 1039
  101.             End If
  102.   917       If s65532_ = "2" Then
  103.               GoTo 2977
  104.               GoTo 1039
  105.             End If
  106.   946       If s65532_ = "3" Then
  107.               GoTo 3070
  108.               GoTo 1039
  109.             End If
  110.   975       If s65532_ = "q" Then
  111.               GoTo 3070
  112.               GoTo 1039
  113.             End If
  114.  1004       If s65532_ = "Q" Then
  115.               GoTo 3070
  116.               GoTo 1039
  117.             End If
  118.  1033     Loop
  119.  1039     Func3247
  120.           If User.Name = s5137 Then
  121.             Print "!|1K|*|w000270O12|#|#|#@CLS@@09@"
  122.             Print
  123.             Print " @0C@                          A.I. @0A@says......."
  124.             Delay 0.5
  125.             Print " @0C@ I am still pondering your question@0A@.....please try back later."
  126.             Print
  127.             Print "                     @PAUSE@"
  128.             GoTo 40
  129.           End If
  130.  1122     Open s5153 For Output As 2
  131.  1141     Cls 
  132.           Print
  133.           Print
  134.           Print
  135.           Print
  136.           Print
  137.           Print "@0A@╔══════════════════════════════════════════════════════════════════════╗"
  138.           Print "║                                                                      ║"
  139.           Print "║              I am  @0C@ A@0E@.@0C@I@0E@. @09@ - @0C@ Artificial Intelegence                  @0A@║"
  140.           Print "║                                                                      ║"
  141.           Print "║                                                                      ║"
  142.           Print "║ @0B@    The object here is to 'parlay-vous' with the me to see if you    @0A@║"
  143.           Print "║ @0B@       can stump me by asking me any legit question you want.        @0A@║"
  144.           Print "║ @0B@ But first the computer will ask you a question to see how smart     @0A@║"
  145.           Print "║                   @0B@ you are. So.......here we go.                     @0A@║"
  146.           Print "╚══════════════════════════════════════════════════════════════════════╝"
  147.           Print "                   @PAUSE@"
  148.           GoTo 1259
  149.           Do
  150.             Do
  151.  1259         Do While Len(s5149) < 3
  152.                 Print "@CLS@@0A@                      Here we go......"
  153.                 Print
  154.                 Print "@0C@Answer this question :@0A@ " + s5141
  155.                 Input s5149
  156.               Loop
  157.  1314
  158.  1335         For i5263 = 1 To 21 Step 1
  159.                 i5261 = InStr(1, UCase(s5149), UCase(s5169(i5263)))
  160.                 If i5261 <> 0 Then
  161.                   GoTo 1619
  162.                 End If
  163.  1453         Next
  164.  1476         If s5149 = "" Or UCase(s5149) = "YES" Or UCase(s5149) = "NO" Then
  165.                 Print "@CLS@@0A@!|*|1K|w0000270O12|#|#|# Your answer must be more than 'Yes' or 'No' and more than 3 characters long."
  166.                 Print "              @PAUSE@"
  167.                 s5149 = ""
  168.                 GoTo 1141
  169.                 GoTo 2971
  170.               End If
  171.  1564         If (UCase(s5149) = "WHY" Or UCase(s5149) = "WHY" + "?") = 0 Then GoTo 1676
  172.               GoTo 1619
  173.               GoTo 1670
  174.               Do
  175.                 Do
  176.  1619             Cls 
  177.                   Print
  178.                   Print
  179.                   Print "    @0C@ DO NOT PROVOKE ME TO ANGER!!! ANSWER THE QUESTION!!"
  180.                   Print "                   AND NO CUSSING PERMITTED!!!"
  181.                   Print
  182.                   Print "                       @PAUSE@"
  183.                   s5149 = ""
  184.                   GoTo 1259
  185.  1670             GoTo 2971
  186.  1676             If (s5149 = "." Or s5149 = ".." Or s5149 = "..." Or s5149 = "...." Or s5149 = ".....") = 0 Then GoTo 1768
  187.                   Print
  188.                   Print "Oh come on....you can do better than that. Just answer the question."
  189.                 Loop
  190.                 GoTo 2971
  191.  1768           If (s5149 = "?" Or s5149 = "??" Or s5149 = "???" Or s5149 = "????" Or s5149 = "!" Or s5149 = ",") = 0 Then GoTo 1862
  192.               Loop
  193.               GoTo 2971
  194.  1862         If (UCase(s5149) = "CARL TICE") = 0 Then GoTo 1930
  195.               Print "@CLS@@0D@ Congrats! @0A@ You have dicovered the secret message!"
  196.               Print "@09@Call my board @ 310.378.3081 or 310.915.5862 and let me know"
  197.               Print "how you like the game, or any new suggestions, or complaints!"
  198.               s5149 = ""
  199.             Loop
  200.             GoTo 2971
  201.  1930       If (UCase(s5149) = "RTM") = 0 Then GoTo 1980
  202.             Print "@CLS@@09@ Shame on you. tsk tsk tsk."
  203.             s5149 = ""
  204.           Loop
  205.           GoTo 1986
  206.  1980     GoTo 1986
  207.           Do
  208.             Do
  209.  1986         If (Len(s5145) < 3) = 0 Then GoTo 2086
  210.               Print "@CLS@@09@ @0A@     ╔════════════╗"
  211.               Print "      ║@0C@ Very good!@0A@ ║"
  212.               Print "      ╚════════════╝"
  213.               Print
  214.               Print
  215.               Print
  216.               Print "  @0D@Now I need you to ask me; @0C@A.I.@0D@, any question you wish."
  217.               Print "   I will ponder your question and see what knowledge I can bestow"
  218.               Print "                      opon you....."
  219.               Print
  220.               Print " @0F@Please ask @0C@A.I.@0F@ a question at this time.@09@"
  221.               Do
  222.  2074           Input s5145
  223.                 GoTo 1986
  224.  2086           i5263 = 0
  225.  2113           For i5263 = 1 To 21 Step 1
  226.                   i5261 = InStr(1, UCase(s5145), UCase(s5169(i5263)))
  227.                   If i5261 <> 0 Then
  228.                     GoTo 2690
  229.                   End If
  230.  2231           Next
  231.  2254           If (s5145 = "" Or s5145 = "?" Or s5145 = "!" Or s5145 = "." Or s5145 = "...") = 0 Then GoTo 2335
  232.               Loop
  233.               GoTo 2971
  234.  2335         If UCase(s5145) = "WHY" Or UCase(s5145) = "WHY" + "?" Then
  235.                 Print
  236.                 Print " WHY?....WHY? you ask?......Becuase I am A.I. !"
  237.                 GoTo 2690
  238.                 GoTo 2971
  239.               End If
  240.  2401         If UCase(s5145) = "WHEN" Or UCase(s5145) = "WHEN" + "?" Then
  241.                 GoTo 2690
  242.                 GoTo 2971
  243.               End If
  244.  2456         If UCase(s5145) = "WHERE" Or UCase(s5145) = "WHERE" + "?" Then
  245.                 GoTo 2690
  246.                 GoTo 2971
  247.               End If
  248.  2511         If UCase(s5145) = "WHAT" Or UCase(s5145) = "WHAT" + "?" Then
  249.                 GoTo 2690
  250.                 GoTo 2971
  251.               End If
  252.  2566         If UCase(s5145) = "HOW" Or UCase(s5145) = "HOW" + "?" Then
  253.                 Print
  254.                 Print " How?......You can't really be that stupid....."
  255.                 GoTo 2690
  256.                 GoTo 2971
  257.               End If
  258.  2632         If (UCase(s5145) = "WHAT IS THIS?") = 0 Then GoTo 2684
  259.               Print
  260.               Print "This is A.I. - Now answer the question."
  261.               s5145 = ""
  262.             Loop
  263.             GoTo 2738
  264.  2684       GoTo 2738
  265.  2690       Print
  266.             Print
  267.             Print " You are begining to try my patience! DO AS I SAY!!! OR TAKE YOUR CHANCES!!"
  268.             Print "                        And NO FOUL LANGUAGE!!"
  269.             Print
  270.             Print "                           @PAUSE@"
  271.             s5145 = ""
  272.           Loop
  273.  2738     Print #2, s5145
  274.           Print #2, User.Name
  275.           Print #2, i5167
  276.           Close 2
  277.           Print "@CLS@@0C@Very Good -"
  278.           Print "               @0F@I will ponder your question and the next time you "
  279.           Print "                     log-in I will have an answer waiting for you."
  280.           Print
  281.           Print
  282.           Print
  283.           Print "A.I. ß¥ @0A@¢@02@å@03@Γ@05@£ @0A@τ@02@ì@03@¢@05@Σ@0C@...@0D@τHε ßÆD ßφ¥ ßß$! ══ 310.378.3081  310.915.5862"
  284.           Print "                          @0C@Γεg¡$τεΓεd τφ : @0D@UNREGISTERED"
  285.           Print
  286.           Print
  287.           Print "                                    @PAUSE@"
  288.           s5113 = Pad(t26_4463.s4, 25)
  289.           s5133 = User.Name
  290.           Func3474(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"))
  291.  2971   Loop
  292.  2977   Cls 
  293.         Print "@09@The object of this game is to remember the sequence of numbers flashed"
  294.         Print "   at you and then type them in....It is harder than it sounds."
  295.         Print
  296.         Print
  297.         Print "The problem is that your sysop needs to register this game for you to be able"
  298.         Print " to enjoy it. Tell your sysop that you'll gladly contribute the $5 it would"
  299.         Print "take to register it.....You would also be getting the RIP screens for A.I."
  300.         Print
  301.         Print
  302.         Print "H.O.M. ß¥ @0A@¢@02@å@03@Γ@05@£ @0A@τ@02@ì@03@¢@05@Σ@0C@...@0D@τHε ßÆD ßφ¥ ßß$! ══ 310.378.3081  310.915.5862"
  303.         Print "                          @0C@Γεg¡$τεΓεd τφ : @0D@UNREGISTERED"
  304.         Print
  305.         Print
  306.         Print "                       @PAUSE@"
  307.       Loop
  308.  3070 If User.SecLevel = "SYSOP" Then
  309.       Else
  310.  3099   HelloFiles 
  311.         CheckNewsletter 
  312.         CheckBulletins 
  313.         QuoteOfTheDay 
  314.       End If
  315.  3111 CheckMailAtLogon 
  316.       End 
  317.  
  318. '! Called 2 times
  319.       Function Func3247 As Integer
  320.         s5153 = ProgPath + "AI.DAT"
  321.         If Exists(s5153) Then
  322.           Open s5153 For Input As 1
  323.           Input #1, s5141
  324.           Input #1, s5137
  325.           Input #1, i5167
  326.           If s5141 = "" Then
  327.             s5141 = "Why is there air?"
  328.           End If
  329.  3350     If s5137 = "" Then
  330.             s5137 = MakeWild.SysopName
  331.           End If
  332.  3381     If s5141 = "" Then
  333.             i5167 = 2
  334.           End If
  335.  3405     Close 1
  336.         Else
  337.  3416     Print
  338.           Print
  339.           Print "Can't find" + ProgPath + "AI.DAT"
  340.           ActivityLog "================= ERROR =================="
  341.           ActivityLog "Error Running A.I. - No  AI.DAT File Found"
  342.           ActivityLog "================= ERROR =================="
  343.           End 
  344.         End If
  345.  3466
  346.       End Function
  347.  
  348. '! Called 1 time
  349.       Function Func3474(i65534 As Integer, s65532 As String, s65530 As String, s65528 As String, s65526 As String) As Integer
  350.         Dim mh65204 As MessageHeader
  351.  
  352.         i65534 = i5167
  353.         GetConfInfo(Conference, i5167)
  354.         Join i5167
  355.         mh65204.From = s65530
  356.         mh65204.To = s65528
  357.         mh65204.Subject = s65526
  358.         AddMessage(mh65204, s65532, "", 1213417543)
  359.       End Function
  360.