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

这是那个超市模型的代码，由于本人代码知识欠缺，对这些代码不了解，想请位人士帮忙标注下，不胜感激！代码如下：
3 A9 }2 ~) S, d6 X/**Make the shopping list and Task Sequence*/
treenode current = ownerobject(c);
treenode Shopper = msgsendingobject;

/ ~( x$ F8 [& Q- J* Z; Dtreenode ShoppingList = label(Shopper,"ShoppingList");
; }6 _; j# |3 m4 g) t! xclearcontents(ShoppingList);
) f" N3 \; a: {3 lint TotalItems = duniform(1,15,1);
for( int i = 1; i<=TotalItems; i++)
{
; g. V, j2 F: ?7 Z        int Type = duniform(1,gettablerows("FoodNames"),1);
/ J2 ~+ `) [8 i$ Q1 r% {/ }        nodeinsertinto(ShoppingList);
        treenode ActiveNode = last(ShoppingList);
' s3 I) B& @' r) u/ j' m% \& A# [4 E( I        nodeadddata(ActiveNode,DATATYPE_NUMBER);
        setnodenum(ActiveNode,Type);
) Y0 _" j7 g8 Y2 f8 G8 z+ T        setnodename(ActiveNode,gettablestr("FoodNames",Type,1));
5 g: O5 l8 L& |' Y3 B}

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

9 i. G" {# w) I; R, b" |2 z// move the item into the model.
! `, l, z7 v4 r; @8 {% Wmoveobject(Shopper, model(), 0);
// Now if there is a network node connected to me, then connect the flow item to that node.
3 U% F+ T' i* u; A3 k" M7 @treenode netnode = getnetnode(current, 1);
( ?/ g+ z* ~* G: d# S' z3 I# p' \' Wif(objectexists(netnode))
{
        // connect the item to the network
        contextdragconnection(netnode, Shopper, "A");
        // set the location of the item.
3 L5 a% t2 w7 Q6 x        setloc(Shopper, xloc(netnode), yloc(netnode), 0);
}

////////////////////////////////////////////////////////////////////////////////////////////////////////
treenode Cart = first(Shopper);

  G" W. J1 k- m8 ~treenode Item;
treenode ts = createemptytasksequence(Shopper,0,0);


setlabelnum(Cart, "Pointer", tonum(Shopper));
setlabelnum(Cart, "Content", 0);
; [9 J7 W+ q% F. Z7 K
treenode RecycleBin = rank(ItemBin,2);
int LocationID;
treenode StopLocation;

for(int Stop = 1; Stop <= TotalItems; Stop++)
{
; K$ e4 z! u& o7 T6 i+ Z        LocationID = getnodenum(rank(ShoppingList, Stop));
+ X$ R) a. C( Q* R( @/ L3 U) z        StopLocation = outobject(current,LocationID);
8 ]3 ?* n$ O: F' Q" Z( R- |        if(LocationID<=84)
        {
                if(content(RecycleBin>0))
                {
; p# v, b, ~" }! s. ~% g' F                        Item = last(RecycleBin);
                        transfernode(Item, model());
                }
' \8 ]8 g+ e2 V" }( x. I                else
4 ]" N  F" L2 V; \- J3 ^& |0 S. i                {
                        createcopy(first(ItemBin), model());
                        Item = last(model());
! @9 F# h  n* N7 {  Z; L% N                }
                setobjectshapeindex(Item,gettablenum("FoodNames",LocationID,2));
                setlabelnum(Item,"Reference",LocationID);
) c+ f5 ?4 j) C- f  G+ v                moveobject(Item,StopLocation,1);
: b! Y- K5 s* E. B5 ?9 W        }
! `! v: V  v; A9 [        if(LocationID>84) //Deli
        {
                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
# E5 U7 g7 J- \; f1 S                inserttask(ts,TASKTYPE_SENDMESSAGE,StopLocation,NULL,1,(LocationID - 84),0,0);
                inserttask(ts,TASKTYPE_UTILIZE,StopLocation,NULL,0);
        }
        else
        {
                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
                inserttask(ts,TASKTYPE_MOVEOBJECT,Item,Cart,0);
" k: @# W( n' ~+ V                inserttask(ts,TASKTYPE_DELAY,NULL,NULL,2,0);
        }
8 W  ^- N" s( x9 Y; E# k1 e}
1 `& I- s0 S) o6 j5 l5 g
# n* Z) y) D. \) }0 V1 p/ binserttask(ts,TASKTYPE_DELAY,NULL,NULL,1,0);
, @2 r% \; K0 w6 u! g! C+ \inserttask(ts,TASKTYPE_SENDMESSAGE,NULL,current,0,0,0,.1);
4 a9 m5 D0 D6 S* B7 Ddispatchtasksequence(ts);
! r$ J: {9 z  U8 p万分感谢！

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