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

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

; N; _  h" o+ x  Utreenode ShoppingList = label(Shopper,"ShoppingList");
4 v% ^% x3 F. v7 ?, ]clearcontents(ShoppingList);
' @# H0 @9 Y) l3 W2 Vint TotalItems = duniform(1,15,1);
for( int i = 1; i<=TotalItems; i++)
& M& D$ Y( s; D/ u{
( }8 H. r& @. x        int Type = duniform(1,gettablerows("FoodNames"),1);
        nodeinsertinto(ShoppingList);
" @" |- I3 }" z  ^( O        treenode ActiveNode = last(ShoppingList);
( l* s' w' |# b: `6 B% D) J        nodeadddata(ActiveNode,DATATYPE_NUMBER);
4 f9 _$ f% _, H* V4 q9 U+ c6 G        setnodenum(ActiveNode,Type);
        setnodename(ActiveNode,gettablestr("FoodNames",Type,1));
0 }% W' a1 R$ M7 Y}
& M5 T  K5 [$ Q) J! H9 ]: m
////////////////////////////////////////////////////////////////////////////////////////////////////////
1 G9 @' g( ^8 Z2 i; g
; b$ L0 C: W+ P; i// 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);
6 T) D2 a7 a8 s7 @8 J6 r3 P: g8 cif(objectexists(netnode))
{
+ e$ l7 D  E$ {4 S        // connect the item to the network
        contextdragconnection(netnode, Shopper, "A");
        // set the location of the item.
        setloc(Shopper, xloc(netnode), yloc(netnode), 0);
}
  F3 m4 J4 n) A5 Y' c) k5 F* F
////////////////////////////////////////////////////////////////////////////////////////////////////////
! \3 {3 I3 J% ^7 ~3 K( Mtreenode Cart = first(Shopper);
) c( q2 j# T' n$ n) m/ e# f
treenode Item;
treenode ts = createemptytasksequence(Shopper,0,0);
3 N9 v6 F/ A% O( r& e
: x" m/ |$ m9 y8 q7 C' m+ r
setlabelnum(Cart, "Pointer", tonum(Shopper));
setlabelnum(Cart, "Content", 0);
3 n9 Q% r. M5 `/ M
treenode RecycleBin = rank(ItemBin,2);
int LocationID;
treenode StopLocation;
) K0 Y4 b* r/ {1 |( h
for(int Stop = 1; Stop <= TotalItems; Stop++)
- f# m- a0 N, l# a) t9 I1 w( u6 }{
        LocationID = getnodenum(rank(ShoppingList, Stop));
) T* ?- _0 l8 M" ^$ ]+ y( f5 a        StopLocation = outobject(current,LocationID);
. h: d8 A7 {7 _( q$ Q        if(LocationID<=84)
        {
                if(content(RecycleBin>0))
                {
                        Item = last(RecycleBin);
+ K, q4 o  {+ }- \- }, b6 W                        transfernode(Item, model());
) d( `) t$ M5 J; h$ `  G                }
                else
( S8 F; U0 [2 `" E5 n$ F                {
  h/ U+ Y" P' }  i+ U                        createcopy(first(ItemBin), model());
                        Item = last(model());
                }
, i. ^: I7 j  @9 H( H" w8 F                setobjectshapeindex(Item,gettablenum("FoodNames",LocationID,2));
                setlabelnum(Item,"Reference",LocationID);
                moveobject(Item,StopLocation,1);
        }
% x2 n' I& l" H, `% u* Y' N& M        if(LocationID>84) //Deli
        {
9 H6 M4 C* K' ?2 `                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
2 S1 {# G9 K. N9 v  @                inserttask(ts,TASKTYPE_SENDMESSAGE,StopLocation,NULL,1,(LocationID - 84),0,0);
; |! q9 L/ L2 \( n# L* h3 Z                inserttask(ts,TASKTYPE_UTILIZE,StopLocation,NULL,0);
        }
        else
! K+ }! D; y0 L& v6 e        {
                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
                inserttask(ts,TASKTYPE_MOVEOBJECT,Item,Cart,0);
                inserttask(ts,TASKTYPE_DELAY,NULL,NULL,2,0);
        }
- J$ f& a6 w  C}
. l7 I0 o4 d( c, c0 v
% H4 Y; A6 l5 Y" L9 ^inserttask(ts,TASKTYPE_DELAY,NULL,NULL,1,0);
, ^' S- z4 `2 R, @+ I/ \inserttask(ts,TASKTYPE_SENDMESSAGE,NULL,current,0,0,0,.1);
dispatchtasksequence(ts);
万分感谢！

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