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

这是那个超市模型的代码，由于本人代码知识欠缺，对这些代码不了解，想请位人士帮忙标注下，不胜感激！代码如下：
9 {' }$ {; a5 r9 f( C  r$ d" _/**Make the shopping list and Task Sequence*/
treenode current = ownerobject(c);
treenode Shopper = msgsendingobject;
: X! g3 o$ E4 p! E  N
& u  l& `2 o5 H) v9 j, E5 K. T. Wtreenode ShoppingList = label(Shopper,"ShoppingList");
! H- i+ j% }2 m) }: t) Q& Rclearcontents(ShoppingList);
int TotalItems = duniform(1,15,1);
6 B% [8 n. _1 Kfor( int i = 1; i<=TotalItems; i++)
{
        int Type = duniform(1,gettablerows("FoodNames"),1);
        nodeinsertinto(ShoppingList);
- H3 U& [- W5 q5 [2 I        treenode ActiveNode = last(ShoppingList);
        nodeadddata(ActiveNode,DATATYPE_NUMBER);
        setnodenum(ActiveNode,Type);
        setnodename(ActiveNode,gettablestr("FoodNames",Type,1));
! J0 H: T+ N/ ^; ~/ s, t}

' Z, m) q0 {8 r////////////////////////////////////////////////////////////////////////////////////////////////////////
5 ]6 r; y% d8 j
2 C5 a9 s3 z4 }3 U5 H// move the item into the model.
( ]3 e7 ~9 c3 J' F; \# J. X2 b- Cmoveobject(Shopper, model(), 0);
// Now if there is a network node connected to me, then connect the flow item to that node.
treenode netnode = getnetnode(current, 1);
* [- Z% J8 |- S! lif(objectexists(netnode))
4 _2 X3 C4 P& G0 Q{
        // connect the item to the network
* P* P. r- J6 Q; ~, X        contextdragconnection(netnode, Shopper, "A");
        // set the location of the item.
        setloc(Shopper, xloc(netnode), yloc(netnode), 0);
}
7 n% O2 ]" k! r4 S0 ~
////////////////////////////////////////////////////////////////////////////////////////////////////////
' G) J& v, g" d0 ?treenode Cart = first(Shopper);

1 {8 ^2 X2 q/ l+ A, wtreenode Item;
* o) m# j5 A( |* i1 l  y% |treenode ts = createemptytasksequence(Shopper,0,0);
$ f! p$ q; I9 ]( Y

setlabelnum(Cart, "Pointer", tonum(Shopper));
setlabelnum(Cart, "Content", 0);
5 @; n4 [2 {8 w1 }- b1 L
: p3 t- j$ V- Z9 ^4 s7 Dtreenode RecycleBin = rank(ItemBin,2);
$ h+ ~% [# E! O8 Q  ~5 b% w! \3 ]int LocationID;
4 C5 ~0 G; t" y; utreenode StopLocation;

for(int Stop = 1; Stop <= TotalItems; Stop++)
9 l6 w& [! K; R* H8 ~# _{
4 r6 W5 V+ Y1 P, r' G! X' O        LocationID = getnodenum(rank(ShoppingList, Stop));
        StopLocation = outobject(current,LocationID);
; S) ?+ T7 ~% S$ N  t& ?        if(LocationID<=84)
5 u# x8 `; [; m" f. N# V        {
                if(content(RecycleBin>0))
0 K& }: f) R# k* Y- K/ c                {
9 |% A& G* E7 S* I" Z                        Item = last(RecycleBin);
3 `# y1 v$ {* ?4 o7 D2 f. k4 }                        transfernode(Item, model());
, O) X- y( E5 j! B                }
6 k% F) a3 t, i/ @" Z' I                else
                {
                        createcopy(first(ItemBin), model());
$ o9 R# o# l' ^8 z( d                        Item = last(model());
                }
2 I  B, {/ d* G9 V$ T) X3 P( F                setobjectshapeindex(Item,gettablenum("FoodNames",LocationID,2));
                setlabelnum(Item,"Reference",LocationID);
                moveobject(Item,StopLocation,1);
        }
9 f3 b3 n) G4 W6 Q! j* u( H        if(LocationID>84) //Deli
! P; |- A7 K2 m        {
                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
9 a7 m" [/ Z+ F" U$ n                inserttask(ts,TASKTYPE_SENDMESSAGE,StopLocation,NULL,1,(LocationID - 84),0,0);
                inserttask(ts,TASKTYPE_UTILIZE,StopLocation,NULL,0);
0 h& ^6 e  i+ G* M7 k# N        }
        else
        {
: z$ m' B8 o6 I4 R5 |! f                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
                inserttask(ts,TASKTYPE_MOVEOBJECT,Item,Cart,0);
6 ^& n1 x: C) E* Z% e. k                inserttask(ts,TASKTYPE_DELAY,NULL,NULL,2,0);
7 F/ O* e6 I) ^& C" y        }
}

5 r0 T) y% S% L# |. einserttask(ts,TASKTYPE_DELAY,NULL,NULL,1,0);
inserttask(ts,TASKTYPE_SENDMESSAGE,NULL,current,0,0,0,.1);
6 g! o5 n, L* R0 T& ~6 p+ _2 s" f% [dispatchtasksequence(ts);
万分感谢！

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