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

这是那个超市模型的代码，由于本人代码知识欠缺，对这些代码不了解，想请位人士帮忙标注下，不胜感激！代码如下：
2 n. Q1 U) Q% h  l/**Make the shopping list and Task Sequence*/
treenode current = ownerobject(c);
8 P- |" I2 T- o1 v$ ?treenode Shopper = msgsendingobject;
* r$ T9 }9 V; H4 e
treenode ShoppingList = label(Shopper,"ShoppingList");
0 m# f+ H" V  m! I5 Q+ @clearcontents(ShoppingList);
. c, H' {( y: \) j- uint TotalItems = duniform(1,15,1);
2 B# \4 u4 q, h5 |for( int i = 1; i<=TotalItems; i++)
{
        int Type = duniform(1,gettablerows("FoodNames"),1);
        nodeinsertinto(ShoppingList);
        treenode ActiveNode = last(ShoppingList);
        nodeadddata(ActiveNode,DATATYPE_NUMBER);
5 F. F9 C, d. u% J3 |$ w; w5 R        setnodenum(ActiveNode,Type);
4 e8 U2 `& n" G& s        setnodename(ActiveNode,gettablestr("FoodNames",Type,1));
9 v( L  i+ D4 H0 u: a! d  @}
3 J' S- V" h/ p7 O2 R; @5 c) H9 w
2 z$ q1 _7 J- _0 @- m* U/ K% Z$ o4 l+ @////////////////////////////////////////////////////////////////////////////////////////////////////////

// move the item into the model.
+ ^7 }1 z2 w  L8 Pmoveobject(Shopper, model(), 0);
0 w! @% [: D# n// 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
. j3 M& M# b8 }' p) q! D3 }        contextdragconnection(netnode, Shopper, "A");
8 t/ }* g* i' C2 h/ P        // set the location of the item.
+ H$ k3 c- w* d! T        setloc(Shopper, xloc(netnode), yloc(netnode), 0);
}

. [. f6 B) ?- E0 S- p////////////////////////////////////////////////////////////////////////////////////////////////////////
treenode Cart = first(Shopper);

treenode Item;
treenode ts = createemptytasksequence(Shopper,0,0);
- A9 X; \  c: m+ k$ }6 P

" M# P1 w  m. u) ?setlabelnum(Cart, "Pointer", tonum(Shopper));
setlabelnum(Cart, "Content", 0);

/ t5 d) o3 u: q0 E" P/ L- ^5 I0 qtreenode RecycleBin = rank(ItemBin,2);
2 p8 g/ p: I! c+ mint LocationID;
$ W) `: Y: }$ K7 ~3 B! b% Q5 ftreenode StopLocation;

for(int Stop = 1; Stop <= TotalItems; Stop++)
{
& w: _) i; Z' D& |. ~) O, E9 A        LocationID = getnodenum(rank(ShoppingList, Stop));
        StopLocation = outobject(current,LocationID);
4 t" |( G/ R8 X$ `        if(LocationID<=84)
5 C6 M- S+ |7 A2 j% E        {
3 E4 w2 j- ^) m, S" v: f8 p: f                if(content(RecycleBin>0))
                {
$ {! e/ h8 N& F! b6 A9 w                        Item = last(RecycleBin);
                        transfernode(Item, model());
                }
, @3 w) P; l" D+ E' D- S                else
                {
                        createcopy(first(ItemBin), model());
                        Item = last(model());
# I5 ~6 w6 ?* W                }
6 T- L9 u! C: @                setobjectshapeindex(Item,gettablenum("FoodNames",LocationID,2));
; j7 m# h- o! I; ^                setlabelnum(Item,"Reference",LocationID);
                moveobject(Item,StopLocation,1);
+ l& o# t; E: N* G' J        }
% M1 u* ~( r" v' ^* a4 P( ?2 N        if(LocationID>84) //Deli
. s- y" P5 A# h9 ]! w2 ~" ~( `: \        {
                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
                inserttask(ts,TASKTYPE_SENDMESSAGE,StopLocation,NULL,1,(LocationID - 84),0,0);
4 [8 U' ^  Z' K3 y" ^0 d" R                inserttask(ts,TASKTYPE_UTILIZE,StopLocation,NULL,0);
. a  ^) `( t# g7 u. M$ F        }
1 R7 v' T4 {# R8 W        else
        {
                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
9 ?' R; M  {9 s8 ?" A                inserttask(ts,TASKTYPE_MOVEOBJECT,Item,Cart,0);
0 q& Y$ p3 l3 U$ {6 q                inserttask(ts,TASKTYPE_DELAY,NULL,NULL,2,0);
        }
4 ?/ q5 v, Y5 o! J6 M4 C% i}

9 t' H% w( T& e) N5 w# H6 R4 Iinserttask(ts,TASKTYPE_DELAY,NULL,NULL,1,0);
& P, M- M/ c7 F: ~, ]inserttask(ts,TASKTYPE_SENDMESSAGE,NULL,current,0,0,0,.1);
dispatchtasksequence(ts);
3 M9 I7 q+ |. V8 q: Y; ~( S6 P' ?万分感谢！

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