I Finally did it. A.I.!!!

[Pete]

My first simple A.I. program. What's so scary is how little code it actually takes for a computer to begin thinking for itself!

Code: (Select All)

Cls

_Delay 2

Locate 5

For i = 1 To 12

    Read x

    On x \ 10 GOSUB 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120

Next

Sleep 20

End

10 Print "        *      * "

a = Int(Rnd * 120)

Return

20 Print "      * * * * * * *  " + Chr$(72) + Chr$(69) + Chr$(76) + Chr$(80) + Chr$(33) + Chr$(32) + Chr$(73) + Chr$(39) + Chr$(77) + Chr$(32) + Chr$(83) + Chr$(84) + Chr$(85) + Chr$(67) + Chr$(75) + Chr$(32) + Chr$(73) + Chr$(78) + Chr$(32) + Chr$(83) + Chr$(67) + Chr$(82) + Chr$(69) + Chr$(69) + Chr$(78) + Chr$(32) + Chr$(48) + Chr$(32) + Chr$(65) + Chr$(78) + Chr$(68) + Chr$(32) + Chr$(73) + Chr$(32) + Chr$(67) + Chr$(65) + Chr$(78) + Chr$(39) + Chr$(84) + Chr$(32) + Chr$(71) + Chr$(69) + Chr$(84) + Chr$(32) + Chr$(79) + Chr$(85) + Chr$(84) + Chr$(33)

b = Int(Rnd * 120)

Return

30 Print "      *  *****  *"

c = Int(Rnd * 120)

Return

40 Print "          *  * "

d = Int(Rnd * 120)

Return

50 Print "      *          * "

e = Int(Rnd * 120)

Return

60 Print "      *  * 0 0 *  * "

f = Int(Rnd * 120)

Return

70 Print "      *    *    * "

g = Int(Rnd * 120)

Return

80 Print "            * "

h = Int(Rnd * 120)

Return

90 Print "            *  "

j = Int(Rnd * 120)

Return

100 Print "            * "

k = Int(Rnd * 120)

Return

110 Print "      *  *****  * "

l = Int(Rnd * 120)

Return

120 Print "      *  * (=) *  * "

m = Int(Rnd * 120)

Return



Data 30,60,120,110,70,20,100,80,90,40,10,50

Pete

[TerryRitchie]

LOL, reminds me of those commercials ... "Help, I've fallen and I can't get up!"

[Pete]

[Dimster]

If you were to add animation Pete, would your character be able to find the softest spot in Screen 0 upon which to fall?

[Pete]

Funny true story. While watching the end of the premier of The Godfather II in Hollywood, when the camera panned back and the Godfather died in his wheel chair, well, and as he collapsed and his wheelchair fell over sideways... my friend said, in a loud imitated elderly voice, "Help! I've fallen and I can't get up!" The whole theater, filled with movie goers, laughed historically. So I consider that particular movie to be one of the best dramatic COMEDIES of its time period.

Pete

[Kernelpanic]

Really, that's what AI ultimately is; still. It's been great advances around since the beginning, but the old wisdom still applies: the only true intelligence person in AI is the programmer.

Band 1:
What computers can't do - the limit of artificial intelligence, Hubert L. Dreyfus, 1972/1979
Band 2:
Mind over Machine, Hubert L. Dreyfus und Stuart E. Dreyfus, 1986

That is AI: