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

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

) a4 i7 y/ S2 J9 _) @+ Q  E, wtreenode ShoppingList = label(Shopper,"ShoppingList");
clearcontents(ShoppingList);
int TotalItems = duniform(1,15,1);
for( int i = 1; i<=TotalItems; i++)
/ I! t; c% s' A% F5 ~( p' c{
/ h% o: Y) S) Y        int Type = duniform(1,gettablerows("FoodNames"),1);
        nodeinsertinto(ShoppingList);
, [2 A, _# Z: I) [        treenode ActiveNode = last(ShoppingList);
' w" H6 K& P. R        nodeadddata(ActiveNode,DATATYPE_NUMBER);
9 G' o; a5 e0 E4 |6 c        setnodenum(ActiveNode,Type);
        setnodename(ActiveNode,gettablestr("FoodNames",Type,1));
}

4 Q2 Y4 d3 x8 x1 m7 Y////////////////////////////////////////////////////////////////////////////////////////////////////////
' N- ^9 d& T, A% Y9 f; d
; q& l' u9 _, F! ?# K0 b6 S+ R// 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.
+ w6 s5 U9 n. W0 \- S0 c. S/ v1 `treenode netnode = getnetnode(current, 1);
if(objectexists(netnode))
' t& N. \6 v$ c1 M{
1 M5 U# z  S9 ]/ j8 }0 _        // connect the item to the network
        contextdragconnection(netnode, Shopper, "A");
        // set the location of the item.
        setloc(Shopper, xloc(netnode), yloc(netnode), 0);
) e! T8 ]* s$ D( i: R; v6 j- g}
5 x2 \; N& q1 k5 U9 `$ E4 \; t" X
////////////////////////////////////////////////////////////////////////////////////////////////////////
treenode Cart = first(Shopper);
$ u* m4 h2 x7 ]) A8 O% R: K" L  k( X; @
7 \0 @- F+ N( {treenode Item;
treenode ts = createemptytasksequence(Shopper,0,0);
- `) z# d) H1 p5 x( s
4 {9 U1 l( j3 @) {# _- i
setlabelnum(Cart, "Pointer", tonum(Shopper));
setlabelnum(Cart, "Content", 0);

treenode RecycleBin = rank(ItemBin,2);
! T1 d5 c0 ?) a/ u& Nint LocationID;
treenode StopLocation;

for(int Stop = 1; Stop <= TotalItems; Stop++)
{
        LocationID = getnodenum(rank(ShoppingList, Stop));
        StopLocation = outobject(current,LocationID);
        if(LocationID<=84)
0 e! m8 X; @' n$ p6 C! `0 H        {
                if(content(RecycleBin>0))
' U$ }5 f8 {: X3 {8 z5 J' j& x                {
                        Item = last(RecycleBin);
                        transfernode(Item, model());
                }
3 w1 H( Y- L( K# V                else
                {
                        createcopy(first(ItemBin), model());
4 `- i" j/ O. o4 J7 h1 q- i5 x* A3 h                        Item = last(model());
/ e/ L0 m1 }; ?* [2 b: [8 S                }
                setobjectshapeindex(Item,gettablenum("FoodNames",LocationID,2));
7 j; J; k) W% R+ ~7 J                setlabelnum(Item,"Reference",LocationID);
/ a  C/ ^* E# @* l) \+ I5 x                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);
6 g# |2 k1 P" e2 x. V        }
        else
3 {3 q6 d, V" c  D- w        {
                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
                inserttask(ts,TASKTYPE_MOVEOBJECT,Item,Cart,0);
                inserttask(ts,TASKTYPE_DELAY,NULL,NULL,2,0);
4 y7 Z" i$ v0 R- K9 V        }
# e, z( _( Y/ u}
8 L9 o3 T; |' Z( ?
inserttask(ts,TASKTYPE_DELAY,NULL,NULL,1,0);
$ J. F4 U  X+ `inserttask(ts,TASKTYPE_SENDMESSAGE,NULL,current,0,0,0,.1);
dispatchtasksequence(ts);
6 g$ D2 R$ @! z2 ?万分感谢！

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