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

这是那个超市模型的代码，由于本人代码知识欠缺，对这些代码不了解，想请位人士帮忙标注下，不胜感激！代码如下：
/**Make the shopping list and Task Sequence*/
! @2 ~+ R2 c0 utreenode current = ownerobject(c);
treenode Shopper = msgsendingobject;
/ y. G% u  p0 x$ I! R2 j( A# k
treenode ShoppingList = label(Shopper,"ShoppingList");
; U! ~) |8 F1 I, l, V8 i, ^% dclearcontents(ShoppingList);
int TotalItems = duniform(1,15,1);
1 K/ o' c5 `! d& Bfor( int i = 1; i<=TotalItems; i++)
{
        int Type = duniform(1,gettablerows("FoodNames"),1);
( |/ I# L8 K% j# i4 X' X! x        nodeinsertinto(ShoppingList);
        treenode ActiveNode = last(ShoppingList);
        nodeadddata(ActiveNode,DATATYPE_NUMBER);
* \0 ^1 u" p3 x, F        setnodenum(ActiveNode,Type);
        setnodename(ActiveNode,gettablestr("FoodNames",Type,1));
}
7 a  p3 \9 v. F" e/ f$ C
////////////////////////////////////////////////////////////////////////////////////////////////////////

- q% Z+ d; E6 x0 n) ?4 e8 G// 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 _; @' o2 L# `- N( s! f, Xtreenode netnode = getnetnode(current, 1);
  O! J9 j: P/ P+ E" }" yif(objectexists(netnode))
{
) U" o: N' x" f& l# U0 ?9 f        // connect the item to the network
1 r  V: q) F( ]% v! L        contextdragconnection(netnode, Shopper, "A");
        // set the location of the item.
% y0 ?: z3 T) r0 M6 C* F        setloc(Shopper, xloc(netnode), yloc(netnode), 0);
% K9 v; J1 \/ t9 z! s4 q}
: ^. G5 `+ N- N  E, Q* i
////////////////////////////////////////////////////////////////////////////////////////////////////////
treenode Cart = first(Shopper);
/ L' O% e) @/ A
treenode Item;
treenode ts = createemptytasksequence(Shopper,0,0);
4 o& k& ]2 @% Q6 r! L0 [

setlabelnum(Cart, "Pointer", tonum(Shopper));
6 y, V: ]# e5 M9 ]* a" V: @  msetlabelnum(Cart, "Content", 0);
2 b" M3 {( I! ~! v9 d9 ?, h) v: O
8 V' N- I9 y4 W+ }2 X- @. `treenode RecycleBin = rank(ItemBin,2);
int LocationID;
treenode StopLocation;

for(int Stop = 1; Stop <= TotalItems; Stop++)
; C9 U. Q' d( |{
1 E& R7 L4 V3 z# ]0 B/ _        LocationID = getnodenum(rank(ShoppingList, Stop));
        StopLocation = outobject(current,LocationID);
        if(LocationID<=84)
" ?# y. e! v/ z; {6 X        {
                if(content(RecycleBin>0))
                {
                        Item = last(RecycleBin);
                        transfernode(Item, model());
  f4 L, w1 k- E  M: ?; N5 i                }
                else
                {
                        createcopy(first(ItemBin), model());
  |# n( ?+ C7 \% E9 X1 g                        Item = last(model());
                }
) d' c7 H6 |9 Z( j0 C6 K                setobjectshapeindex(Item,gettablenum("FoodNames",LocationID,2));
                setlabelnum(Item,"Reference",LocationID);
                moveobject(Item,StopLocation,1);
  N, `( I* `; w, k6 [( K        }
8 K$ U3 c9 x' D# }        if(LocationID>84) //Deli
6 h3 ~$ c  v1 D: b3 B' n# ^0 w3 D: y        {
                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
                inserttask(ts,TASKTYPE_SENDMESSAGE,StopLocation,NULL,1,(LocationID - 84),0,0);
                inserttask(ts,TASKTYPE_UTILIZE,StopLocation,NULL,0);
+ p0 I8 p- D6 c  l9 q- }        }
9 _1 I+ M7 {$ T* N. h. ?        else
+ N* K) h) t. g+ \        {
                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
# E9 U  U3 d8 ?4 z0 S& p                inserttask(ts,TASKTYPE_MOVEOBJECT,Item,Cart,0);
                inserttask(ts,TASKTYPE_DELAY,NULL,NULL,2,0);
" S" o1 n' D& F) m        }
}
  \+ ]; L- Q* Y
inserttask(ts,TASKTYPE_DELAY,NULL,NULL,1,0);
% B* h! q( [1 ]6 hinserttask(ts,TASKTYPE_SENDMESSAGE,NULL,current,0,0,0,.1);
dispatchtasksequence(ts);
& O7 Y1 B& u* [万分感谢！

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