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

这是那个超市模型的代码，由于本人代码知识欠缺，对这些代码不了解，想请位人士帮忙标注下，不胜感激！代码如下：
2 _; m5 p% J$ z% E1 A# @& b/**Make the shopping list and Task Sequence*/
9 r8 R& K  `7 S8 k0 t6 L" Mtreenode current = ownerobject(c);
% B. l; N6 r" @8 R8 {4 i& }- d4 utreenode Shopper = msgsendingobject;

treenode ShoppingList = label(Shopper,"ShoppingList");
clearcontents(ShoppingList);
int TotalItems = duniform(1,15,1);
7 j' [' a" |1 \! w6 R% P/ Pfor( int i = 1; i<=TotalItems; i++)
{
+ _/ C* F3 `9 I, n        int Type = duniform(1,gettablerows("FoodNames"),1);
        nodeinsertinto(ShoppingList);
        treenode ActiveNode = last(ShoppingList);
        nodeadddata(ActiveNode,DATATYPE_NUMBER);
        setnodenum(ActiveNode,Type);
& O- w: Q; {% D5 o% A+ M- a        setnodename(ActiveNode,gettablestr("FoodNames",Type,1));
}

" H* X# L- M7 ~, E////////////////////////////////////////////////////////////////////////////////////////////////////////

// move the item into the model.
; M5 e/ L, u* S9 }. _3 q) Gmoveobject(Shopper, model(), 0);
1 e* U1 s3 Z, ?- X$ m6 J/ g5 ^// Now if there is a network node connected to me, then connect the flow item to that node.
5 x* z: Y4 N, E- b2 a! g* Z; y' T) @3 _treenode netnode = getnetnode(current, 1);
if(objectexists(netnode))
{
* j) E! M9 c; D- a( _5 m        // connect the item to the network
        contextdragconnection(netnode, Shopper, "A");
        // set the location of the item.
0 q* A$ k9 T2 ]( t" [: f        setloc(Shopper, xloc(netnode), yloc(netnode), 0);
}

3 ^+ Y: A( h' F2 y////////////////////////////////////////////////////////////////////////////////////////////////////////
treenode Cart = first(Shopper);

& O) _# ~8 t; V# y3 Ktreenode Item;
treenode ts = createemptytasksequence(Shopper,0,0);

; i3 ]9 L& j+ z" {: ]- H
setlabelnum(Cart, "Pointer", tonum(Shopper));
setlabelnum(Cart, "Content", 0);

3 x8 w. }- b9 Xtreenode RecycleBin = rank(ItemBin,2);
& z+ b" m7 A1 G% }7 S1 Iint LocationID;
) |4 C" t* Z( Ftreenode StopLocation;

for(int Stop = 1; Stop <= TotalItems; Stop++)
8 d: S9 x7 S3 h{
        LocationID = getnodenum(rank(ShoppingList, Stop));
        StopLocation = outobject(current,LocationID);
        if(LocationID<=84)
8 C$ R, }: x2 W        {
                if(content(RecycleBin>0))
0 G& G, E3 n& S: M  G  x, f                {
) s  ?4 @+ I( T  ?( Q                        Item = last(RecycleBin);
                        transfernode(Item, model());
                }
: k8 @, d+ K5 m                else
                {
$ D# C3 e( c( a- A' x+ a                        createcopy(first(ItemBin), model());
                        Item = last(model());
                }
7 W9 z7 ?. H# e% {& X1 b/ y9 ~                setobjectshapeindex(Item,gettablenum("FoodNames",LocationID,2));
                setlabelnum(Item,"Reference",LocationID);
                moveobject(Item,StopLocation,1);
6 R2 P  k) u6 Z8 t  p6 z        }
        if(LocationID>84) //Deli
1 M: v- s/ A  g. n9 n  n+ j- y        {
8 b: M3 M1 ^% Z2 C7 j- C/ \                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
                inserttask(ts,TASKTYPE_SENDMESSAGE,StopLocation,NULL,1,(LocationID - 84),0,0);
                inserttask(ts,TASKTYPE_UTILIZE,StopLocation,NULL,0);
  Y  U; }: `9 X6 J, ]5 T2 e% w        }
5 h8 c. i! b) X3 b% o        else
6 m" D5 i" a+ L+ ^1 `$ y        {
                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
& E' ^  T1 Y: W$ H8 U% R1 G( a% @( R                inserttask(ts,TASKTYPE_MOVEOBJECT,Item,Cart,0);
                inserttask(ts,TASKTYPE_DELAY,NULL,NULL,2,0);
        }
}
5 x; h& g! M: V) }, |4 ?
5 k% W, g# W( c. _inserttask(ts,TASKTYPE_DELAY,NULL,NULL,1,0);
# E* S/ A) Q# o3 Ainserttask(ts,TASKTYPE_SENDMESSAGE,NULL,current,0,0,0,.1);
dispatchtasksequence(ts);
万分感谢！

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