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

这是那个超市模型的代码，由于本人代码知识欠缺，对这些代码不了解，想请位人士帮忙标注下，不胜感激！代码如下：
/**Make the shopping list and Task Sequence*/
treenode current = ownerobject(c);
  n6 H# R0 h2 C$ s* N0 k' O/ a) ktreenode Shopper = msgsendingobject;
/ o4 H6 n- E& ~8 y
4 y$ F; K' h% @1 C- s, a  H1 Jtreenode ShoppingList = label(Shopper,"ShoppingList");
clearcontents(ShoppingList);
int TotalItems = duniform(1,15,1);
! a1 O: H2 s* j5 Ffor( int i = 1; i<=TotalItems; i++)
{
        int Type = duniform(1,gettablerows("FoodNames"),1);
        nodeinsertinto(ShoppingList);
        treenode ActiveNode = last(ShoppingList);
, y4 @1 N. |7 R3 a        nodeadddata(ActiveNode,DATATYPE_NUMBER);
3 Z" ~! j0 w4 r) M2 y        setnodenum(ActiveNode,Type);
8 A. ]0 A# ]! y* h4 Q) Y' l        setnodename(ActiveNode,gettablestr("FoodNames",Type,1));
# G0 R: X, V4 p& E4 P* V}

# B/ w' g. `9 o////////////////////////////////////////////////////////////////////////////////////////////////////////

6 g$ I( R# d. w6 ^% ^// move the item into the model.
moveobject(Shopper, model(), 0);
9 t# N; D1 m4 H// Now if there is a network node connected to me, then connect the flow item to that node.
! o5 k, J6 Q9 b% @% f5 F% d7 |treenode netnode = getnetnode(current, 1);
if(objectexists(netnode))
1 j: b3 x) N& U1 _; c% U( D" P{
* e" y6 y" @: d) k$ ~8 [% `        // connect the item to the network
        contextdragconnection(netnode, Shopper, "A");
  v& o' V) G5 o% Z% v# l* y        // set the location of the item.
. n+ N* L5 C" z. \        setloc(Shopper, xloc(netnode), yloc(netnode), 0);
}
6 u8 Q! d/ i, @, ~' D
9 c1 q" @8 h7 J+ r* x3 t////////////////////////////////////////////////////////////////////////////////////////////////////////
treenode Cart = first(Shopper);

9 N2 H. A& H' a: a. ltreenode Item;
% R. m: \+ q- m# b# M4 F- y4 P& `/ Ytreenode ts = createemptytasksequence(Shopper,0,0);
, Y, O0 {, L$ g9 S: G6 i7 [

setlabelnum(Cart, "Pointer", tonum(Shopper));
% y" W' }- J3 msetlabelnum(Cart, "Content", 0);
# {6 y& ?9 V4 s( y0 r. l
treenode RecycleBin = rank(ItemBin,2);
. a& s5 G. I9 T5 sint LocationID;
treenode StopLocation;

0 p. w7 s3 S' E% O: r* K% d7 q- mfor(int Stop = 1; Stop <= TotalItems; Stop++)
{
        LocationID = getnodenum(rank(ShoppingList, Stop));
        StopLocation = outobject(current,LocationID);
        if(LocationID<=84)
7 E' K% H; b' @        {
                if(content(RecycleBin>0))
                {
                        Item = last(RecycleBin);
" E+ z; ~" S9 D$ c/ P0 C                        transfernode(Item, model());
( E9 D, {7 H! x) T4 r                }
                else
- B# [. ^# F+ P( M! ?                {
0 `# P! j  ]# F3 k6 b8 y                        createcopy(first(ItemBin), model());
; p. f$ [* f+ z                        Item = last(model());
                }
                setobjectshapeindex(Item,gettablenum("FoodNames",LocationID,2));
2 }" p4 c- e  F0 O2 f0 X                setlabelnum(Item,"Reference",LocationID);
. o. p/ K# p) t7 i' J- P3 [                moveobject(Item,StopLocation,1);
# u5 s: k) Q! W" ]8 r" W8 E        }
        if(LocationID>84) //Deli
        {
+ y" V$ j& \; {/ V* ^/ G4 F- j( R                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
  C: f' l5 m/ z3 R& D& S3 R                inserttask(ts,TASKTYPE_SENDMESSAGE,StopLocation,NULL,1,(LocationID - 84),0,0);
, F3 b, ^, c: G) j. |" T0 @                inserttask(ts,TASKTYPE_UTILIZE,StopLocation,NULL,0);
        }
        else
  g: G2 ]4 h, p1 g        {
                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
                inserttask(ts,TASKTYPE_MOVEOBJECT,Item,Cart,0);
# t* t$ Y( Y9 q$ o                inserttask(ts,TASKTYPE_DELAY,NULL,NULL,2,0);
+ ?1 n$ \2 E" Y. H* f        }
* }6 T' C9 A; [( D& ?}

inserttask(ts,TASKTYPE_DELAY,NULL,NULL,1,0);
inserttask(ts,TASKTYPE_SENDMESSAGE,NULL,current,0,0,0,.1);
  O5 Y: ]# T- O' r1 ^3 N* s+ `5 bdispatchtasksequence(ts);
万分感谢！

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