Ваш бот должен понимать речь персонажей - и учитывать, что персонажи могут лгать.
Вася сказал:
- Там был синий шар.
Петя возразил:
- Нет, шар был красный.
n=18
DIM a(n,n)
FOR x=1 TO n
FOR y=1 TO n
a(x,y)=ASC(" ")
NEXT
NEXT
FOR y=1 TO n
a(1,y)=ASC("*")
a(y,1)=ASC("*")
a(y,n)=ASC("*")
NEXT
x=n : y=n
u=0 : v=-1
FOR i=1 TO n-3
WHILE a(x+u+u,y+v+v)<>ASC("*")
x+=u
y+=v
a(x,y)=ASC("*")
ENDWHILE
w=v : v=-u : u=w
NEXT
FOR y=1 TO n
FOR x=1 TO n
PRINT CHR$(a(x,y));
NEXT
PRINT
NEXT
PRINT
Немного совсем не то. Позже доделаю. Но думаю, принцип понятен. <A HREF="#vniz">
<A NAME="vniz">
scanf("%c",&consent);
лучше использовать consent=grtchar();
consent=grtchar()|32;
Тогда надо сравнивать с маленькой буквой.field[Math.round(2*yt/zoom) + pxt] = color;
Т.е. я сначала всё перемножил и разделил, и только в конце округлил. Попробуйте - отпишитесь о результате.