谁能帮我把下面的代码用汉语标注出来啊？

钟飞

这是那个超市模型的代码，由于本人代码知识欠缺，对这些代码不了解，想请位人士帮忙标注下，不胜感激！代码如下：
/**Make the shopping list and Task Sequence*/
treenode current = ownerobject(c);
treenode Shopper = msgsendingobject;

treenode ShoppingList = label(Shopper,"ShoppingList");
clearcontents(ShoppingList);
int TotalItems = duniform(1,15,1);
for( int i = 1; i<=TotalItems; i++)
{
        int Type = duniform(1,gettablerows("FoodNames"),1);
        nodeinsertinto(ShoppingList);
        treenode ActiveNode = last(ShoppingList);
        nodeadddata(ActiveNode,DATATYPE_NUMBER);
        setnodenum(ActiveNode,Type);
        setnodename(ActiveNode,gettablestr("FoodNames",Type,1));
}

////////////////////////////////////////////////////////////////////////////////////////////////////////

// move the item into the model.
moveobject(Shopper, model(), 0);
// Now if there is a network node connected to me, then connect the flow item to that node.
treenode netnode = getnetnode(current, 1);
if(objectexists(netnode))
{
        // connect the item to the network
        contextdragconnection(netnode, Shopper, "A");
        // set the location of the item.
        setloc(Shopper, xloc(netnode), yloc(netnode), 0);
}

////////////////////////////////////////////////////////////////////////////////////////////////////////
treenode Cart = first(Shopper);

treenode Item;
treenode ts = createemptytasksequence(Shopper,0,0);


setlabelnum(Cart, "Pointer", tonum(Shopper));
setlabelnum(Cart, "Content", 0);

treenode RecycleBin = rank(ItemBin,2);
int LocationID;
treenode StopLocation;

for(int Stop = 1; Stop <= TotalItems; Stop++)
{
        LocationID = getnodenum(rank(ShoppingList, Stop));
        StopLocation = outobject(current,LocationID);
        if(LocationID<=84)
        {
                if(content(RecycleBin>0))
                {
                        Item = last(RecycleBin);
                        transfernode(Item, model());
                }
                else
                {
                        createcopy(first(ItemBin), model());
                        Item = last(model());
                }
                setobjectshapeindex(Item,gettablenum("FoodNames",LocationID,2));
                setlabelnum(Item,"Reference",LocationID);
                moveobject(Item,StopLocation,1);
        }
        if(LocationID>84) //Deli
        {
                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
                inserttask(ts,TASKTYPE_SENDMESSAGE,StopLocation,NULL,1,(LocationID - 84),0,0);
                inserttask(ts,TASKTYPE_UTILIZE,StopLocation,NULL,0);
        }
        else
        {
                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
                inserttask(ts,TASKTYPE_MOVEOBJECT,Item,Cart,0);
                inserttask(ts,TASKTYPE_DELAY,NULL,NULL,2,0);
        }
}

inserttask(ts,TASKTYPE_DELAY,NULL,NULL,1,0);
inserttask(ts,TASKTYPE_SENDMESSAGE,NULL,current,0,0,0,.1);
dispatchtasksequence(ts);
万分感谢！

钟飞

这个任务量有点大，但是我急需...