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

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

* f+ N8 |7 K2 P& e. i" `$ l1 H( W  Ytreenode ShoppingList = label(Shopper,"ShoppingList");
& ^7 h' z% d0 |4 s/ Eclearcontents(ShoppingList);
int TotalItems = duniform(1,15,1);
for( int i = 1; i<=TotalItems; i++)
{
" P7 O0 {. G) F( g5 j+ r6 i        int Type = duniform(1,gettablerows("FoodNames"),1);
$ x: Y6 m0 e9 c! s6 x, j% G        nodeinsertinto(ShoppingList);
6 a4 r) n8 @' ~        treenode ActiveNode = last(ShoppingList);
        nodeadddata(ActiveNode,DATATYPE_NUMBER);
        setnodenum(ActiveNode,Type);
        setnodename(ActiveNode,gettablestr("FoodNames",Type,1));
}
3 ?& u2 x* V2 p9 p) z- L8 K4 f1 F
////////////////////////////////////////////////////////////////////////////////////////////////////////
. ^% V/ l2 {" l$ k6 y$ \7 L
// 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.
7 z' w9 s, `& }9 A5 Ptreenode netnode = getnetnode(current, 1);
if(objectexists(netnode))
{
+ {5 U5 y# U  s$ h, V, [        // connect the item to the network
        contextdragconnection(netnode, Shopper, "A");
  A& j; a' `; F- Z" w) H( |        // set the location of the item.
        setloc(Shopper, xloc(netnode), yloc(netnode), 0);
) g3 D; n% N- Y& E7 H# r0 _4 p}

////////////////////////////////////////////////////////////////////////////////////////////////////////
treenode Cart = first(Shopper);
) s9 y  z0 [4 [) _) E
/ [3 u: o5 q7 ?treenode Item;
- K1 H0 ~4 H; S. v  w$ @treenode ts = createemptytasksequence(Shopper,0,0);
! p7 n% U5 i9 o9 u( \* r) z- S
3 y/ [/ n# m0 m
5 q! ~9 A+ r& P3 m$ M, ysetlabelnum(Cart, "Pointer", tonum(Shopper));
. C( m( C" n* V8 t) q5 s! `setlabelnum(Cart, "Content", 0);

treenode RecycleBin = rank(ItemBin,2);
( ]! c7 [' V* ^" yint LocationID;
treenode StopLocation;
" K8 }5 N/ h6 N) }8 X6 `
for(int Stop = 1; Stop <= TotalItems; Stop++)
6 A  I, M$ ?/ j: T* r{
; s8 q- ?0 W& r* _( ?        LocationID = getnodenum(rank(ShoppingList, Stop));
+ [: u0 f( D) E% a* P7 B        StopLocation = outobject(current,LocationID);
        if(LocationID<=84)
        {
                if(content(RecycleBin>0))
0 n% G9 T- r! Q# X% d                {
                        Item = last(RecycleBin);
, o6 E) O/ S. K5 c, {# B+ m                        transfernode(Item, model());
                }
1 {2 z1 k2 b' k                else
                {
                        createcopy(first(ItemBin), model());
                        Item = last(model());
1 d4 [4 C. I7 Y# {- n                }
0 n8 D+ t0 o/ U% v                setobjectshapeindex(Item,gettablenum("FoodNames",LocationID,2));
! S7 j$ G5 b& ^8 e2 g- D                setlabelnum(Item,"Reference",LocationID);
4 G; Y2 z5 Q: l. P" u% m                moveobject(Item,StopLocation,1);
        }
        if(LocationID>84) //Deli
        {
                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
                inserttask(ts,TASKTYPE_SENDMESSAGE,StopLocation,NULL,1,(LocationID - 84),0,0);
                inserttask(ts,TASKTYPE_UTILIZE,StopLocation,NULL,0);
' o7 J4 D0 d& u* I/ i        }
7 X/ [% H! g1 ?( K        else
        {
% e8 v+ M$ c7 L7 M' Y# K7 X- x                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
                inserttask(ts,TASKTYPE_MOVEOBJECT,Item,Cart,0);
: H2 B& V/ K6 I0 M( }$ E$ e7 d2 x                inserttask(ts,TASKTYPE_DELAY,NULL,NULL,2,0);
        }
}
* P, w" g3 ~0 O) k, x2 F
5 W# f9 H( \: m. \( f  binserttask(ts,TASKTYPE_DELAY,NULL,NULL,1,0);
inserttask(ts,TASKTYPE_SENDMESSAGE,NULL,current,0,0,0,.1);
dispatchtasksequence(ts);
万分感谢！

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