Randomize Timer

Palette 7, 63

Color 0, 7: Cls

View Print 1 To 23

Dim As Integer red, green, blue, mred, mgreen, mblue, i, cnt, pass(3)

score = 100

Do

    cnt = cnt + 1

    red = Rnd * 10 - 4

    green = Rnd * 10 - 6

    blue = Rnd * 10 - 8

    i = Int(Rnd * 3) + 1

    Print i;

    If pass(i) Then action$ = "Pass" Else action$ = "Catch"

    Select Case i

        Case 1

            Color 4, 7: Print "RED "; red; action$

            If action$ = "Catch" Then

                score = score + red

                mred = mred + red

            End If

        Case 2

            Color 2, 7: Print "GREEN "; green; action$

            If action$ = "Catch" Then

                score = score + green

                mgreen = mgreen + green

            End If

        Case 3

            Color 1, 7: Print "BLUE "; blue; action$

            If action$ = "Catch" Then

                score = score + blue

                mblue = mblue + blue

            End If

    End Select

    Color 0, 7

    x = CsrLin

    Locate 25, 1: Print "Score = "; LTrim$(Str$(score)); "    ";

    Locate x, 1



    If cnt = 10 Then

        If mred < mblue And mred < mgreen Then If pass(2) + pass(3) <> 5 Then pass(1) = 1 ' Don't catch red apples.

    ElseIf mgreen < mred And mgreen < mblue Then If pass(1) + pass(3) <> 4 Then pass(2) = 2 ' Don't catch green apples.

    ElseIf mblue < mred And mblue < mgreen Then If pass(1) + pass(2) <> 3 Then pass(3) = 3 ' Don't catch blue apples.

        cnt = 0

    End If

    Sleep

    If InKey$ = Chr$(13) Then Run

Loop

'Humorvolles Beispiel fuer die KI - 1. Sept. 2024



Option _Explicit



Dim As Integer zahl1, zahl2, summe



Print

Input "Enter a number between 1 and 10: ", zahl1

Input "And another number            : ", zahl2



summe = zahl1 + zahl2



Print: Print

If zahl1 > 10 Or zahl2 > 10 Or Zahl1 < 1 Or Zahl2 < 1 Then

  Beep: Print "Idiot! Between 1 and 10! - Do you think I don't notice?"

Else

  Print Using "The sum is: ##"; summe

  Print "That is AI"

End If



End

Quote:Perchance is all about lists. You simply create lists of different things and then reference the lists from one another. For example, we could create a list of animals, and a list of sentences, and then use the animals list within the sentences list like so:

animal
pig
cow
zebra

sentence
That [animal] is very sneaky.
I befriended a wild [animal] yesterday.

Quote:We could easily add another list to our previous example called "adjective" and then use [adjective] within our sentences to make them more random and complex:

...

adjective
  sneaky
  happy
  furry
 
sentence
  That [animal] is very [adjective].
I befriended a very [adjective] [animal] yesterday.
We could also create another list called "paragraph" like so:

paragraph
[sentence] [sentence] [sentence]

Quote:Perchance allows you to create "lists of lists" by indenting your items appropriately. This may seem unusual at first, but as you explore Perchance's more advanced features you'll see that it can sometimes be useful. Here's an example of a multi-level list called "animal":

animal
mammal
kangaroo
pig
human
reptile
lizard
crocodile
turtle
insect
spider
beetle
ant
The result of [animal] will be "mammal", "reptile" or "insect" with equal likelihood (since we haven't added any likelihood indicators on those items). The result of [animal.mammal] will be either "kangaroo", "pig" or "human", with equal likelihood.