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

这是那个超市模型的代码，由于本人代码知识欠缺，对这些代码不了解，想请位人士帮忙标注下，不胜感激！代码如下：
/**Make the shopping list and Task Sequence*/
treenode current = ownerobject(c);
4 p# v( v+ Z& G2 H* Otreenode Shopper = msgsendingobject;
6 r; |0 V2 s" S1 {+ X
treenode ShoppingList = label(Shopper,"ShoppingList");
clearcontents(ShoppingList);
& U; |* x* ]/ H  K. N/ V5 _int TotalItems = duniform(1,15,1);
for( int i = 1; i<=TotalItems; i++)
{
        int Type = duniform(1,gettablerows("FoodNames"),1);
        nodeinsertinto(ShoppingList);
        treenode ActiveNode = last(ShoppingList);
        nodeadddata(ActiveNode,DATATYPE_NUMBER);
: F; g4 W$ h/ E+ K        setnodenum(ActiveNode,Type);
        setnodename(ActiveNode,gettablestr("FoodNames",Type,1));
}

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

// move the item into the model.
moveobject(Shopper, model(), 0);
1 _; `# e5 J% e+ A0 I! z# c// Now if there is a network node connected to me, then connect the flow item to that node.
treenode netnode = getnetnode(current, 1);
if(objectexists(netnode))
{
# _. S$ `7 e0 F) z6 B  N        // connect the item to the network
        contextdragconnection(netnode, Shopper, "A");
  `  _0 D/ P8 @/ i        // set the location of the item.
0 u5 D( S. \4 C  v. B7 L        setloc(Shopper, xloc(netnode), yloc(netnode), 0);
/ e1 q4 s/ l2 T1 ^: U  D}

8 K- \. c( I/ l2 r) F////////////////////////////////////////////////////////////////////////////////////////////////////////
treenode Cart = first(Shopper);

- I, X6 m0 j/ Z6 A. T6 h/ ptreenode Item;
treenode ts = createemptytasksequence(Shopper,0,0);

2 G$ v. U, i9 G8 f( w
& T% b9 n" A3 a% U6 Usetlabelnum(Cart, "Pointer", tonum(Shopper));
setlabelnum(Cart, "Content", 0);

treenode RecycleBin = rank(ItemBin,2);
) B4 ]( W3 c' [* J; Rint LocationID;
0 H- W& |0 N2 e+ p7 j* M# x" M; u& @treenode StopLocation;

for(int Stop = 1; Stop <= TotalItems; Stop++)
# K, k. E' k: E3 R- a6 `- a% J{
' `1 W7 O' I; X/ N/ y        LocationID = getnodenum(rank(ShoppingList, Stop));
* O- K# i, W! n( j% c        StopLocation = outobject(current,LocationID);
) ^1 J& U1 e* }2 x* m        if(LocationID<=84)
        {
* ]) r+ g, s' U! U$ f                if(content(RecycleBin>0))
                {
                        Item = last(RecycleBin);
( E& [+ R4 I' Z. G8 G. ^                        transfernode(Item, model());
% v/ s! r2 n  @4 r) z                }
                else
/ ~. t$ Y9 h' V5 D                {
( o: f/ J1 u( \                        createcopy(first(ItemBin), model());
1 w0 P& @/ {$ I% q5 ]* h                        Item = last(model());
! z( o' ?6 p. Y) h, p% v                }
; A7 Y& x2 u; {" ^8 @( N2 c                setobjectshapeindex(Item,gettablenum("FoodNames",LocationID,2));
$ U+ ?1 J  @' h                setlabelnum(Item,"Reference",LocationID);
) `/ ]2 q5 v9 r  ^) P& z                moveobject(Item,StopLocation,1);
3 ~  G2 `; [- H% s% I        }
        if(LocationID>84) //Deli
% T% {. k! H9 ]! H7 q* I8 A        {
% c* m8 y6 j3 r. o+ N                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
                inserttask(ts,TASKTYPE_SENDMESSAGE,StopLocation,NULL,1,(LocationID - 84),0,0);
% [& G( q7 o5 [2 r) c" V6 L: J                inserttask(ts,TASKTYPE_UTILIZE,StopLocation,NULL,0);
        }
        else
        {
                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
                inserttask(ts,TASKTYPE_MOVEOBJECT,Item,Cart,0);
                inserttask(ts,TASKTYPE_DELAY,NULL,NULL,2,0);
: Z/ x' K7 @6 Z/ ?. }* q  E2 T        }
- ?  ?4 C1 e0 P0 k. M# t2 V}

' I, W+ t8 }" t% X% Uinserttask(ts,TASKTYPE_DELAY,NULL,NULL,1,0);
inserttask(ts,TASKTYPE_SENDMESSAGE,NULL,current,0,0,0,.1);
/ T' {$ d# p0 N, s; ^3 r! B+ adispatchtasksequence(ts);
万分感谢！

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