%&& AI1
%%attempt at detecting intersections then randomly picking a path
 if whatdotcolor (badx1-20, bady1 + (Pic.Height (spiny) div 2)) = 192 or whatdotcolor (badx1-20, bady1 + (Pic.Height (spiny) div 2)) = 14 then
    decision1:=1
    end if
   

    if whatdotcolor (badx1 + Pic.Width (spiny)+20, bady1 + (Pic.Height (spiny) div 2)) = 192 or whatdotcolor (badx1 + Pic.Width (spiny)+20, bady1 + (Pic.Height (spiny) div 2)) = 14 then
       if decision1=1 then decision1:=Rand.Int(1,2)
    end if
    end if

    if whatdotcolor (badx1 + (Pic.Width (spiny) div 2), bady1 + Pic.Height (spiny)+20) = 192 or whatdotcolor (badx1 + (Pic.Width (spiny) div 2), bady1 + Pic.Height (spiny)+20) = 14 then
        if decision1=1 or decision1=2 then
        decision1:=Rand.Int(1,3)
        end if
      end if

    if whatdotcolor (badx1 + (Pic.Width (spiny) div 2), bady1-20) = 192 or whatdotcolor (badx1 + (Pic.Width (spiny) div 2), bady1-20) = 14 then
        if decision1=1 or decision1=2 or decision1=3 then
        decision1:=Rand.Int(1,4)
    end if
    end if
    %acting on the decision
    if decision1=1 then badx1+=1
    elsif decision1=2 then badx1-=1
    elsif decision1=3 then bady1+=1
    else bady1-=1
    end if