Вверх ↑
Ответов: 3349
Рейтинг: 233
#1: 2010-06-21 15:40:53 ЛС | профиль | цитата
Assasin, более гибкий + на два элемента меньше.
code_18976.txt
------------ Дoбавленo в 15.40:
даже на три
Add(Console,15927991,497,371)
{
link(onStart,2452693:doEvent1,[])
}
Add(Repeat,1077976,602,378)
{
Op1=Integer(1)
Op2=Integer(1)
link(onRepeat,3930962:doData,[])
}
Add(StrList,8122717,700,336)
{
Strings=#4:help|4:exit|
Point(onGetIndex)
Point(doGetIndex)
link(onGetIndex,13732376:doEvent,[])
}
Add(IndexToChanel,13732376,749,343)
{
link(onEvent1,15041253:doString,[])
link(onEvent2,1077976:doStop,[(802,356)(802,457)(590,457)(590,391)])
}
Add(DoData,3930962,651,378)
{
link(onEventData,8122717:doGetIndex,[])
link(Data,15927991:Read,[(657,359)(640,359)(640,435)(503,435)])
}
Add(FormatStr,15041253,812,343)
{
DataCount=0
Mask="helphelp
Введите команду"
link(onFString,14348699:doWork2,[(878,349)(878,289)])
}
Add(Charset,9168880,434,371)
{
Type=1
link(onCharset,15927991:doWrite,[])
}
Add(FormatStr,15019899,602,294)
{
DataCount=0
Mask="Введите команду
"
link(onFString,14348699:doWork3,[(662,300)])
}
Add(Hub,2452693,546,371)
{
link(onEvent1,15019899:doString,[(581,377)(581,300)])
link(onEvent2,1077976:doRepeat,[])
}
Add(HubEx,14348699,658,283)
{
Angle=2
link(onEvent,9168880:doCharset,[(412,289)(412,377)])
}

карма: 1

0
файлы: 1code_18976.txt [1.2KB] [170]