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

这是那个超市模型的代码，由于本人代码知识欠缺，对这些代码不了解，想请位人士帮忙标注下，不胜感激！代码如下：
/**Make the shopping list and Task Sequence*/
treenode current = ownerobject(c);
' T: r9 O, B# X6 y1 streenode Shopper = msgsendingobject;
+ P* K- V" H0 f. e5 G, M) S% Y
treenode ShoppingList = label(Shopper,"ShoppingList");
* F  Z0 [3 \5 [8 m# q+ v' u' Qclearcontents(ShoppingList);
int TotalItems = duniform(1,15,1);
2 e3 h: L7 ]: ^4 d7 t' ffor( int i = 1; i<=TotalItems; i++)
, H8 `. }1 b* t) k0 P{
8 l; C" @0 z$ t        int Type = duniform(1,gettablerows("FoodNames"),1);
; ?, J: e# \3 L5 ?$ k$ H4 T" C        nodeinsertinto(ShoppingList);
! `& g4 {' Q, n. `6 @( O        treenode ActiveNode = last(ShoppingList);
4 X) i% _/ H2 ~& e4 I        nodeadddata(ActiveNode,DATATYPE_NUMBER);
        setnodenum(ActiveNode,Type);
* I  ]8 m7 N, |- h0 P9 R        setnodename(ActiveNode,gettablestr("FoodNames",Type,1));
}

* B$ y) p$ _' E5 h' v( s////////////////////////////////////////////////////////////////////////////////////////////////////////
2 V# d. n. e& X
// move the item into the model.
moveobject(Shopper, model(), 0);
/ T2 |0 l9 E" A5 B, o// Now if there is a network node connected to me, then connect the flow item to that node.
treenode netnode = getnetnode(current, 1);
# e8 B. A, @$ I2 X. X) w' {3 Pif(objectexists(netnode))
8 D, }8 k9 X" e6 T* [$ d+ @$ ]( X$ ^{
        // connect the item to the network
2 ^) L/ ^6 d  x% _4 y0 W6 A        contextdragconnection(netnode, Shopper, "A");
5 Q+ M  {- @2 }* N% ]/ I        // set the location of the item.
        setloc(Shopper, xloc(netnode), yloc(netnode), 0);
9 Z* @8 x% l# m% y  x}
! V: j, I, n4 M  K
1 q! l0 u6 D" x# z7 o7 V  n////////////////////////////////////////////////////////////////////////////////////////////////////////
treenode Cart = first(Shopper);
! r# A/ d$ U6 K+ r
treenode Item;
1 a; y0 U6 G$ l, wtreenode ts = createemptytasksequence(Shopper,0,0);
7 Z3 f( k1 u9 M7 R
. F' J! h5 G/ K( J
+ i; E5 a& e4 ?/ p' `! G9 xsetlabelnum(Cart, "Pointer", tonum(Shopper));
/ x2 h' v2 z0 |* m9 W. Osetlabelnum(Cart, "Content", 0);
3 H. A. C$ M7 T# r1 \
( J3 ^; c2 ^# ]; `+ ~: M. ]treenode RecycleBin = rank(ItemBin,2);
; o) a7 \) p5 G4 Aint LocationID;
4 v5 A' _) M# Z/ ~- etreenode StopLocation;
* d/ U! D" l! ^' W/ z
" v! V: N' d" X. \. I9 N2 l. m3 Q  {for(int Stop = 1; Stop <= TotalItems; Stop++)
{
        LocationID = getnodenum(rank(ShoppingList, Stop));
/ O% S  K& _' C3 x        StopLocation = outobject(current,LocationID);
$ u( W8 ]% v( J5 W9 V+ C        if(LocationID<=84)
        {
8 c% D+ Q) Z* H) ^( N                if(content(RecycleBin>0))
0 f% a% n. \' D5 o, y# f                {
                        Item = last(RecycleBin);
                        transfernode(Item, model());
                }
- |# x$ K5 K; g! x# y, t8 j3 j                else
                {
" s7 Q4 W+ w4 W% r                        createcopy(first(ItemBin), model());
                        Item = last(model());
3 j0 ~" c7 b# E6 F1 O                }
7 W: v7 P8 d- T; g7 w  k                setobjectshapeindex(Item,gettablenum("FoodNames",LocationID,2));
                setlabelnum(Item,"Reference",LocationID);
/ a& x2 f5 Y8 G$ u" }4 W2 e                moveobject(Item,StopLocation,1);
8 h% m3 ?, X; ]( J- I! [) l        }
        if(LocationID>84) //Deli
        {
# H: w% u! \" j5 x6 y                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
                inserttask(ts,TASKTYPE_SENDMESSAGE,StopLocation,NULL,1,(LocationID - 84),0,0);
+ K2 ~2 Q6 a, z4 t                inserttask(ts,TASKTYPE_UTILIZE,StopLocation,NULL,0);
" N* |/ [9 L- U. s8 m        }
        else
        {
! a8 t) p  C. U8 c& m7 d5 Y8 o                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
: V% S  ^; H0 K6 I                inserttask(ts,TASKTYPE_MOVEOBJECT,Item,Cart,0);
( m2 Z3 O8 ~: |+ \, t                inserttask(ts,TASKTYPE_DELAY,NULL,NULL,2,0);
        }
}
8 V3 d% ]) _! ^1 M1 \& R
% T) S* k# P5 ~/ R2 x* I( Pinserttask(ts,TASKTYPE_DELAY,NULL,NULL,1,0);
inserttask(ts,TASKTYPE_SENDMESSAGE,NULL,current,0,0,0,.1);
: s8 r  G6 c) ~* ydispatchtasksequence(ts);
万分感谢！

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