Re: TIB: help with Extreemly basic AI..

To: ti-basic@lists.ticalc.org
Subject: Re: TIB: help with Extreemly basic AI..
From: "Jesse McInturff" <jmcintur@bevcomm.net>
Date: Wed, 27 Oct 1999 16:49:20 -0500
Reply-To: ti-basic@lists.ticalc.org




----------
>From: ETTamme1@aol.com
>To: ti-basic@lists.ticalc.org
>Subject: Re: TIB: help with Extreemly basic AI..
>Date: Wed, Oct 27, 1999, 4:42 PM
>

>
>     No problem, let me know hoe it turns out.
>
>         ~Eric
>

ahhhh, now all i get is a domain error, please help

ClrHome
2A
1B
2C
4D
8I
4J

While K=0

Output(A,B,"["
Output(C,D,"]"
Output(I,J,"°"

DelVar E
While E=0
getKeyE
End

If E=24
Then
ClrHome
B-1B
D-1D
End

If E=26
Then
ClrHome
B+1B
D+1D
End

If E=25
Then
ClrHome
A-1A
C-1C
End

If E=34
Then
ClrHome
A+1A
C+1C
End


If E=21
B+1E
DelVar F
While F‚5
Output(A,E,"*"
F+1F
End

If A=I and E=J
Then
Output(4,5,"YOU WIN"
Pause
Stop
End
ClrHome

randInt(1,4,1)E
If E=1
Then
I+1I
End

If E=2
Then
I-1I
End

If E=3
Then
J+1J
End

If E=4
Then
J-1J
End


End

Follow-Ups:

Re: TIB: help with Extreemly basic AI..

From: "Andrew Hivner" <ahivner@desupernet.net>

Prev: Re: TIB: help with Extreemly basic AI..
Next: Re: TIB: help with Extreemly basic AI..
Index(es):
- Main
- Thread