Код снабжен дополнительным описанием и рассуждением на тему ИИ, не стал убирать, долго.
Код не идеален, существует ошибка, в результате которой работа всей программы сводится к тактам входящего сигнала и довольно быстро замыкается сама на себя. Не призываю исправлять, предоставляю для ознакомления

Код:

// язык GML, интерпретатор GameMaker8.1 //set_step(id, in1,in2,in3,out1,out2,out3, mem1,mem2,mem3,mem4,mem5,mem6,timer6);// передаем все данные единому скрипту //show_message("trigger start id:"+string(id)); control.ids = 0; var cur_adr,link; cur_adr = 0; link=0; // if(in[1]!=0)//есть сигнал на одном входе 1? (и адрес не содержит значения 0 - простаивание/отдых) { //show_message("Включаем процессор1");    if(mem[1]!=0)// проверяем память первого входа, если в памяти что-то есть:    {        if(timer[1]>0 )// счетчик первого входа положителен?        {        // Дополнительно: если произошло увеличение HP - укрепить связь.           timer[1]+=2;//увеличить счетчик себе           out[mem[1]] = in[1]; //передали 1 на выход N адрес которого хранится в памяти...           //control.id_array[8].//           // Каждый объект имеет ссылку на связанный с ним другой объект.           // Причем каждый выход жестко связан со входом другого! Перепутать нельзя.           //out1_obj;// Адрес объекта связи 1(его адрес) - не меняется!           // Нужно присвоить новый in1 связанному объекту.              // а как мы узнаем, на какой вход следует подавать сигнал?              // Все время на вход1 подавать - нельзя...              // Соединение, являясь жестким - хранит соединения в виде массив-значение...                            // Значит адреса входов тоже должны быть прописаны, т.к. они разные для каждого ПП.                        if(mem[1]==1)//если in1 обращается к out1 то           {             link = control.id_array[ output[1] ].input[1];             control.id_array[ output[1] ].in[link] = in[1];                          // output[1] - это номер X объекта, к которому необходимо подключить вывод 1, задан изначально при создании             // .input[1] - это вход у объекта, значение которого определяет, на какой вход подать данный сигнал.             // link - это номер входа in[X]           }           if(mem[1]==2)//если in1 обращается к out2 то           {             link = control.id_array[ output[2] ].input[1];             control.id_array[ output[2] ].in[link] = in[1];           }           if(mem[1]==3)//если in1 обращается к out3 то           {             link = control.id_array[ output[3] ].input[1];             control.id_array[ output[3] ].in[link] = in[1];           }           in[1] = 0; //сбросили значение на входе                                      }        else // если в памяти ничего нет: (данное событие срабатывает один раз для ПП)        {             // если подан сигнал на вход, но таймер отрицателен - значит запомнить данное значение и обновить таймер на максимум.             cur_adr = irandom_range(1,3);             timer[1]=control.globaltimer;             mem[1] = cur_adr;                         //out[mem[1]] = in[1];                         in[1]=0;        }                if(robot.powerloss > robot.globalpowerlosless)        {             robot.powerloss=0;                         cur_adr = irandom_range(1,3);             timer[1]=control.globaltimer;             mem[1] = cur_adr;             in[1]=1;        }    }    else    {         //show_message("входящий сигнал на контакте 1, в памяти нет действия");         cur_adr = irandom_range(1,3);         timer[1]=control.globaltimer;//300 шагов максимальный счетчик, то есть срабатывание цепочки - возможно только если таймер положителен          //и на данный вход приходит сигнал.         // Как только сигнал приходит на вход, у которого таймер отрицателен - генерируется случайная связь и заносится в память         // с максимальным (оперативным) промежутком времени существования.         // Если связь актуальна и вызывается часто - "таймер жизни" данной связи увеличивается, следовательно,         // другие два варианта связей - не используются до тех пор, пока "сильна" связь1.         // В то же время, если сигнал приходит на другой контакт - там действует перекрестная система связей, то есть связь через         // данный ПП может существовать, но через другие точки входа.                 mem[1] = cur_adr;// в памяти содержится адрес направления сигнала, а не само значение! (разве?)         // Адрес выхода - случаен, определяет подбор оптимального пути и запоминания "полезного" пути.                 // Если представить, что мозг хранит числа - то он мог бы хранить огромное число информации, но непосредственно числа он не хранит         // они закодированы последовательностью ассоциаций, связями между ячейками памяти. Таким образом, данные в памяти распределены по всему         //"массиву" связей и переменчивая структура данных связей и отражает содержание памяти.         // Мозг не может подать "сигнал" мышцам задав уровень сигнала на 100% или 50% - скорее всего         // происходит одновременный вызов множества связей, ведущих к одному "исполнительному устройству" либо этот одиночный сигнал         // повторяющийся с определенной частотой - регулирует усилие. Фактически - чем выше частота, или чем меньше "пробелов в сигнале" тем больше         // усилие.         //out[mem[1]] = in[1];         in[1]=0;    } } //////////////////////////////// if(in[2]!=0)//есть сигнал на одном входе 1? (и адрес не содержит значения 0 - простаивание/отдых) {    if(mem[2]!=0)// проверяем память первого входа, если в памяти что-то есть:    {        if(timer[2]>0 )// счетчик первого входа положителен?        {           timer[2]+=2;           out[mem[2]] = in[2]; //передали 1 на выход N адрес которого хранится в памяти...                        if(mem[2]==1)//если in1 обращается к out1 то           {             link = control.id_array[ output[1] ].input[2];             control.id_array[ output[1] ].in[link] = in[2];                        }           if(mem[2]==2)//если in1 обращается к out2 то           {             link = control.id_array[ output[2] ].input[2];             control.id_array[ output[2] ].in[link] = in[2];           }           if(mem[2]==3)//если in1 обращается к out3 то           {             link = control.id_array[ output[3] ].input[2];             control.id_array[ output[3] ].in[link] = in[2];           }           in[2] = 0; //сбросили значение на входе                  }        else        {             cur_adr = irandom_range(1,3);             timer[2]=control.globaltimer;             mem[2] = cur_adr;                         //out[mem[2]] = in[2];             in[2]=0;        }                if(robot.powerloss > robot.globalpowerlosless)        {             robot.powerloss=0;                         cur_adr = irandom_range(1,3);             timer[2]=control.globaltimer;             mem[2] = cur_adr;             in[2]=1;        }    }    else    {         cur_adr = irandom_range(1,3);         timer[2]=control.globaltimer;//300 шагов максимальный счетчик, то есть срабатывание цепочки - возможно только если таймер положителен          mem[2] = cur_adr;// в памяти содержится адрес направления сигнала, а не само значение! (разве?)                 //out[mem[2]] = in[2];                 in[2]=0;    } } //////////////////////////////// if(in[3]!=0)//есть сигнал на одном входе 1? (и адрес не содержит значения 0 - простаивание/отдых) {    if(mem[3]!=0)// проверяем память первого входа, если в памяти что-то есть:    {        if(timer[3]>0 )// счетчик первого входа положителен?        {           timer[3]+=2;           out[mem[3]] = in[3]; //передали 1 на выход N адрес которого хранится в памяти...                        if(mem[3]==1)//если in1 обращается к out1 то           {             link = control.id_array[ output[1] ].input[3];             control.id_array[ output[1] ].in[link] = in[3];                        }           if(mem[3]==2)//если in1 обращается к out2 то           {             link = control.id_array[ output[2] ].input[3];             control.id_array[ output[2] ].in[link] = in[3];           }           if(mem[3]==3)//если in1 обращается к out3 то           {             link = control.id_array[ output[3] ].input[3];             control.id_array[ output[3] ].in[link] = in[3];           }           in[3] = 0; //сбросили значение на входе                  }        else        {             cur_adr = irandom_range(1,3);             timer[3]=control.globaltimer;             mem[3] = cur_adr;             //out[mem[3]] = in[3];                         in[3]=0;        }                if(robot.powerloss > robot.globalpowerlosless)        {             robot.powerloss=0;                         cur_adr = irandom_range(1,3);             timer[3]=control.globaltimer;             mem[3] = cur_adr;             in[3]=1;        }    }    else    {         cur_adr = irandom_range(1,3);         timer[3]=control.globaltimer;//300 шагов максимальный счетчик, то есть срабатывание цепочки - возможно только если таймер положителен          mem[3] = cur_adr;// в памяти содержится адрес направления сигнала, а не само значение! (разве?)                 //out[mem[3]] = in[3];                 in[3]=0;    } } //out[mem[1]]=0; //out[mem[2]]=0; //out[mem[3]]=0; if(timer[1]-1>0) { timer[1]-=1;          } if(timer[2]-1>0) { timer[2]-=1;//постоянно уменьшать счетчики адресам } if(timer[3]-1>0) { timer[3]-=1; }