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

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

treenode ShoppingList = label(Shopper,"ShoppingList");
clearcontents(ShoppingList);
int TotalItems = duniform(1,15,1);
, |, u. E  u! s! D& Wfor( int i = 1; i<=TotalItems; i++)
1 l. n8 [8 r0 I% [/ U. {{
0 p) j9 Y- [# @3 G" f1 W3 Y. |: N        int Type = duniform(1,gettablerows("FoodNames"),1);
  s: P) _; y2 t* {" N        nodeinsertinto(ShoppingList);
# }" f$ y7 V: o' \# Y6 ?$ L0 i) p        treenode ActiveNode = last(ShoppingList);
2 w5 ^% ]  s+ |* v0 I5 X        nodeadddata(ActiveNode,DATATYPE_NUMBER);
        setnodenum(ActiveNode,Type);
        setnodename(ActiveNode,gettablestr("FoodNames",Type,1));
}

////////////////////////////////////////////////////////////////////////////////////////////////////////

; |3 d1 ~* B. e+ A" }// move the item into the model.
/ T, y8 O1 ?/ k+ H* Q& d- n7 ymoveobject(Shopper, model(), 0);
  @6 U& o7 ?, ]& y7 w// Now if there is a network node connected to me, then connect the flow item to that node.
" z$ V4 |& H" j7 rtreenode netnode = getnetnode(current, 1);
if(objectexists(netnode))
{
        // connect the item to the network
8 e5 _% B+ h. x6 i% ^        contextdragconnection(netnode, Shopper, "A");
& t6 _# Z# c3 c/ R* R& K        // set the location of the item.
! t+ w/ p$ [, A        setloc(Shopper, xloc(netnode), yloc(netnode), 0);
( I8 n" Z# V. r}

' L+ J( |$ p' Z& @: o' m' ~////////////////////////////////////////////////////////////////////////////////////////////////////////
, z; H5 `. N2 Etreenode Cart = first(Shopper);

. U1 N. `6 d' K  Mtreenode Item;
( M" k. P6 j; I: o1 r; gtreenode ts = createemptytasksequence(Shopper,0,0);
) B3 ?0 @8 C9 W9 C) H  W% F- L+ D
* Q5 U1 T) f' q% P8 H* b) [
setlabelnum(Cart, "Pointer", tonum(Shopper));
: j1 s3 G4 v$ Z3 X- r$ Tsetlabelnum(Cart, "Content", 0);
! f) P: d  [* ]8 r  Q9 X
treenode RecycleBin = rank(ItemBin,2);
int LocationID;
) ]0 J& M2 m2 J( t" ltreenode StopLocation;
1 }) M. ^2 G! p: l* w7 D0 W" p
for(int Stop = 1; Stop <= TotalItems; Stop++)
7 W& p+ r' r6 O, Q) o{
7 F& u9 k$ z% ~9 ]  }. f. }        LocationID = getnodenum(rank(ShoppingList, Stop));
. U) _# C5 {( s: Q6 K( [) n        StopLocation = outobject(current,LocationID);
0 C  t6 A  p' O0 ~! T, m5 s        if(LocationID<=84)
: l1 w2 {; j/ Z2 h        {
                if(content(RecycleBin>0))
1 e0 r' R" u$ i3 T- {                {
2 U% ?5 T- T& B8 z                        Item = last(RecycleBin);
/ [9 E! W/ x9 f7 ]8 G( x                        transfernode(Item, model());
, ^. P8 z+ s0 c7 N8 K3 e                }
8 u/ d# h4 l1 w9 I& @2 k0 _                else
                {
                        createcopy(first(ItemBin), model());
( U! A2 F2 w. L0 w0 u+ r+ Q0 [1 S                        Item = last(model());
                }
                setobjectshapeindex(Item,gettablenum("FoodNames",LocationID,2));
                setlabelnum(Item,"Reference",LocationID);
7 t0 l) L1 F" e, Y5 \$ _& `                moveobject(Item,StopLocation,1);
* {7 |. A. V; A0 B3 h! j0 `2 s        }
* a. H: y. C( [& I1 L        if(LocationID>84) //Deli
' w! |9 Y% F" v: R/ B/ i" G        {
                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
4 U8 l' x2 ?; r/ O2 q4 G1 s                inserttask(ts,TASKTYPE_SENDMESSAGE,StopLocation,NULL,1,(LocationID - 84),0,0);
9 ~! U- U+ C0 C                inserttask(ts,TASKTYPE_UTILIZE,StopLocation,NULL,0);
0 H) g5 u, }" R" V, ~        }
        else
# X( E$ E) q: b' F8 j: S! u, s/ I) j        {
* W" W7 X9 l: T. z4 @1 R7 x6 r                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
2 r4 e' G1 S$ q                inserttask(ts,TASKTYPE_MOVEOBJECT,Item,Cart,0);
                inserttask(ts,TASKTYPE_DELAY,NULL,NULL,2,0);
0 ~7 M0 ^6 Y* E5 x& V5 U2 A1 ?* O        }
5 e- X) Z; j9 e/ A0 r$ K' M4 _5 b- s}
+ ^) S5 o8 ^5 K) M
$ V) }& \3 D/ ninserttask(ts,TASKTYPE_DELAY,NULL,NULL,1,0);
9 ^' W# {3 c. A; g5 `inserttask(ts,TASKTYPE_SENDMESSAGE,NULL,current,0,0,0,.1);
+ J; `$ u4 M9 K7 I# ^9 Zdispatchtasksequence(ts);
1 G( g) l& e" w, V( w8 r5 t4 q万分感谢！

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