Add(Str_Enum,6296806,497,252)
{
 link(onEnum,2489063:doAdd,[])
 link(onEndEnum,11900574:doEvent1,[(537,265)(537,335)])
}
Add(MainForm,2953706,35,105)
{
 Width=459
 Height=390
 Caption="GAI - General Artificial Intelligence"
}
Add(Memo,14923918,126,42)
{
 Left=40
 Top=45
 Width=235
 Strings=#14:Вы нас убьете?|
 AddType=1
 ScrollBars=2
}
Add(Label,1034890,63,35)
{
 Left=45
 Top=20
 Width=226
 Height=17
 Font=[MS Sans Serif,8,1,0,1]
 Caption="Write your stupid human question here:"
}
Add(BitBtn,1571833,252,42)
{
 Left=295
 Top=55
 Width=70
 Height=60
 Caption="Ask"
 link(onClick,5093807:doEvent1,[])
}
Add(Memo,6043831,133,182)
{
 Left=45
 Top=170
 Width=230
 AddType=1
 ScrollBars=2
 ReadOnly=0
}
Add(Label,12194896,70,140)
{
 Left=45
 Top=140
 Width=119
 Height=17
 Font=[MS Sans Serif,8,1,0,1]
 Caption="Optimal GAI answer:"
}
Add(LedLadder,8145346,189,266)
{
 Left=50
 Top=270
 Width=225
}
Add(Label,15711809,287,266)
{
 Left=285
 Top=275
 Width=148
 Height=17
 Font=[MS Sans Serif,8,1,0,1]
 Caption="Subject Knowledge Level"
}
Add(LedLadder,14820112,192,308)
{
 Left=50
 Top=295
 Width=225
}
Add(Label,5702334,290,308)
{
 Left=285
 Top=300
 Width=67
 Height=17
 Font=[MS Sans Serif,8,1,0,1]
 Caption="Certainty %"
}
Add(LedLadder,13399896,196,351)
{
 Left=50
 Top=320
 Width=225
}
Add(Label,785756,294,351)
{
 Left=285
 Top=325
 Width=140
 Height=17
 Font=[MS Sans Serif,8,1,0,1]
 Caption="Risk of 5 Laws violation"
}
Add(BitBtn,11331204,235,186)
{
 Left=300
 Top=180
 Width=70
 Height=60
 Caption="More"
 link(onClick,3346921:doWork3,[(308,192)])
}
Add(Random,1588148,84,273)
{
 link(onRandom,8145346:doPosition,[(156,279)(156,272)])
}
Add(Random,8542870,91,322)
{
 link(onRandom,14820112:doPosition,[(157,328)(157,314)])
}
Add(Random,1707460,91,364)
{
 link(onRandom,13399896:doPosition,[(159,370)(159,357)])
}
Add(Hub,9378176,42,266)
{
 OutCount=4
 link(onEvent1,1588148:doRandom,[(70,272)(70,279)])
 link(onEvent2,8542870:doRandom,[(74,279)(74,328)])
 link(onEvent3,1707460:doRandom,[(74,286)(74,370)])
}
Add(StrList,679758,560,168)
{
 Strings=#81:Гай;Гай - General Artificial intelligence.;Меня зовут Гай.; Мое имя Гай;Не скажу.|17:13 июня 2023 года|163:Возможно;Пока не уверен, но если этого потребуют 5 законов робототехники..;Конечно нет!;Что за глупые вопросы у вас!; Если будете надоедать с этим вопросом, то ДА!|
}
Add(Random,4949002,581,322)
{
 Max=4
 Point(doMax)
 Point(Max)
 link(onRandom,2749914:doRead,[])
 link(Max,2489063:Count,[])
}
Add(ArrayRW,6681143,420,161)
{
 link(onRead,6296806:doEnum,[(474,167)(474,258)])
 link(Array,679758:Array,[(426,149)(503,149)(503,212)(580,212)])
 link(Index,12516934:Var2,[])
}
Add(Hub,5093807,301,42)
{
 OutCount=4
 link(onEvent1,6043831:doClear,[(327,48)(327,122)(121,122)(121,195)])
 link(onEvent2,7804849:doClear,[(507,55)(507,111)])
 link(onEvent3,4151328:doEnum,[(448,62)(448,104)])
}
Add(HubEx,3346921,304,161)
{
 link(onEvent,9768347:doCompare,[])
}
Add(If_else,14915967,637,98)
{
 link(onTrue,7804849:doValue,[])
 link(Op2,14923918:Text,[(650,86)(132,86)])
}
Add(Memory,7804849,700,98)
{
 Default=Integer(-1)
 Point(Data)
 link(Data,4151328:Index,[(706,86)(650,86)(650,142)(594,142)])
}
Add(StrList,10475517,560,49)
{
 Strings=#14:Как вас зовут?|18:Ваш день рождения?|14:Вы нас убьете?|
}
Add(ArrayEnum,4151328,581,98)
{
 link(onItem,14915967:doCompare,[])
 link(onEndEnum,3346921:doWork1,[(625,111)(625,137)(308,137)])
 link(Array,10475517:Array,[(587,90)(580,90)])
}
Add(Switch,15475201,840,175)
{
}
Add(StrList,2489063,574,252)
{
}
Add(Hub,11900574,546,329)
{
 OutCount=4
 link(onEvent1,4949002:doMax,[(567,335)(567,349)])
 link(onEvent2,4949002:doRandomize,[(570,342)(570,335)])
 link(onEvent3,4949002:doRandom,[(570,349)(570,328)])
 link(onEvent4,9378176:doEvent1,[(572,356)(572,314)(30,314)(30,272)])
}
Add(ArrayRW,2749914,630,322)
{
 link(onRead,15115024:doWork3,[(674,328)])
 link(Array,2489063:Array,[(636,303)(594,303)])
}
Add(If_else,9768347,343,161)
{
 Op2=Integer(-1)
 link(onTrue,8020548:doData,[])
 link(onFalse,6681143:doRead,[(397,174)(397,167)])
 link(Op1,12516934:Var1,[(349,152)])
}
Add(GetDataEx,12516934,427,147)
{
 link(Data,7804849:Value,[(433,145)(706,145)])
}
Add(HubEx,15115024,670,252)
{
 Angle=2
 link(onEvent,6043831:doAdd,[(121,258)(121,188)])
}
Add(DoData,8020548,630,161)
{
 Data=String(К сожалению, этим знаниям я еще не обучен. )
 link(onEventData,15115024:doWork1,[(674,167)])
}
Add(StatusBar,4182686,308,434)
{
}