Keskustelu: Koodit: QB: Tekoäly

RANDOMIZE TIMER
DIM s(1 TO 4)
DIM s2(1 TO 4)
WIDTH 80, 50
CLS
PRINT STRING$(80, 219)
LOCATE 48, 1
PRINT STRING$(80, 219)
FOR a = 1 TO 48
  LOCATE a, 1
  PRINT CHR$(219)
NEXT
FOR a = 1 TO 48
  LOCATE a, 80
  PRINT CHR$(219)
NEXT

FOR a = 1 TO 1000
  LOCATE INT(RND * 47) + 1, INT(RND * 79) + 1: PRINT CHR$(219)
NEXT
COLOR 14
LOCATE 47, 79: PRINT CHR$(4)
COLOR 7
x = 2
y = 2
xx = 2
yy = 2
x2 = 2
y2 = 2
xx2 = 2
yy2 = 2

1

  FOR toot = 1 TO 3
    DO: LOOP UNTIL (INP(&H3DA) AND &H8) = 0
    DO: LOOP UNTIL (INP(&H3DA) AND &H8) <> 0
  NEXT

  FOR a = 1 TO 90 - x
    IF SCREEN(y, x + a) = 219 THEN s(1) = a - 1: EXIT FOR
  NEXT

  FOR a = 1 TO 48 - y
    IF SCREEN(y + a, x) = 219 THEN s(2) = a - 1: EXIT FOR
  NEXT

  FOR a = 1 TO x - 1
    IF SCREEN(y, x - a) = 219 THEN s(3) = a - 1: EXIT FOR
  NEXT

  FOR a = 1 TO y - 1
    IF SCREEN(y - a, x) = 219 THEN s(4) = a - 1: EXIT FOR
  NEXT

  REDIM temp(1 TO 4)
  REDIM top(1 TO 4)


  FOR a = 1 TO 4
    temp(a) = s(a)
  NEXT a

  FOR kierros = 1 TO 4
    big = 0

    FOR haku = 1 TO 4
      IF temp(haku) >= big THEN kuka = haku: big = temp(haku)
    NEXT haku

    top(kierros) = kuka

    temp(kuka) = -1
  NEXT kierros

  IF s(top(1)) = 0 THEN r = 0
  r = top(1)

  IF CINT(RND * 1) = 0 AND s(2) > 0 AND y < 47 THEN r = 2
  IF CINT(RND * 1) = 0 AND s(1) > 0 AND x < 79 THEN r = 1
  IF INT(RND * 10) = 5 AND s(top(2)) > 0 THEN r = top(2)

  IF rr = 1 AND r = 3 AND s(top(3)) > 0 THEN r = top(CINT(RND) + 2)
  IF rr = 2 AND r = 4 AND s(top(3)) > 0 THEN r = top(CINT(RND) + 2)
  IF rr = 3 AND r = 1 AND s(top(3)) > 0 THEN r = top(CINT(RND) + 2)
  IF rr = 4 AND r = 2 AND s(top(3)) > 0 THEN r = top(CINT(RND) + 2)

  IF r = 1 THEN x = x + 1
  IF r = 2 THEN y = y + 1
  IF r = 3 THEN x = x - 1
  IF r = 4 THEN y = y - 1

  IF y = 47 AND x = 79 THEN BEEP: END

  LOCATE yy, xx: PRINT " "
  LOCATE y, x: PRINT CHR$(1)
  xx = x
  yy = y
  rr = r

  GOSUB tekoaly2
GOTO 1

tekoaly2:


  FOR a = 1 TO 90 - x2
    IF SCREEN(y2, x2 + a) = 219 THEN s2(1) = a - 1: EXIT FOR
  NEXT

  FOR a = 1 TO 48 - y2
    IF SCREEN(y2 + a, x2) = 219 THEN s2(2) = a - 1: EXIT FOR
  NEXT

  FOR a = 1 TO x2 - 1
    IF SCREEN(y2, x2 - a) = 219 THEN s2(3) = a - 1: EXIT FOR
  NEXT

  FOR a = 1 TO y2 - 1
    IF SCREEN(y2 - a, x2) = 219 THEN s2(4) = a - 1: EXIT FOR
  NEXT

  REDIM temp(1 TO 4)
  REDIM top(1 TO 4)


  FOR a = 1 TO 4
    temp(a) = s2(a)
  NEXT a

  FOR kierros = 1 TO 4
    big = 0

    FOR haku = 1 TO 4
      IF temp(haku) >= big THEN kuka = haku: big = temp(haku)
    NEXT haku

    top(kierros) = kuka

    temp(kuka) = -1
  NEXT kierros

  IF s2(top(1)) = 0 THEN r2 = 0
  r2 = top(1)

  IF CINT(RND * 1) = 1 AND s2(2) > 0 AND y2 < 47 THEN r2 = 2
  IF CINT(RND * 1) = 1 AND s2(1) > 0 AND x2 < 79 THEN r2 = 1
  IF INT(RND * 1) = 5 AND s2(top(2)) > 0 THEN r2 = top(2)


  IF rr2 = 1 AND r2 = 3 AND s2(top(3)) > 0 THEN r2 = top(CINT(RND) + 2)
  IF rr2 = 2 AND r2 = 4 AND s2(top(3)) > 0 THEN r2 = top(CINT(RND) + 2)
  IF rr2 = 3 AND r2 = 1 AND s2(top(3)) > 0 THEN r2 = top(CINT(RND) + 2)
  IF rr2 = 4 AND r2 = 2 AND s2(top(3)) > 0 THEN r2 = top(CINT(RND) + 2)


  IF r2 = 1 THEN x2 = x2 + 1
  IF r2 = 2 THEN y2 = y2 + 1
  IF r2 = 3 THEN x2 = x2 - 1
  IF r2 = 4 THEN y2 = y2 - 1

  IF y2 = 47 AND x2 = 79 THEN BEEP: END

  LOCATE yy2, xx2: PRINT " "
  LOCATE y2, x2: PRINT CHR$(2)
  xx2 = x2
  yy2 = y2
  rr2 = r2

RETURN