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

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

' ]# ^2 ?* D; V3 Streenode ShoppingList = label(Shopper,"ShoppingList");
& x. N  J2 W- C+ {, Y, |clearcontents(ShoppingList);
. s$ v9 e1 j. o/ V( d2 Oint TotalItems = duniform(1,15,1);
for( int i = 1; i<=TotalItems; i++)
{
        int Type = duniform(1,gettablerows("FoodNames"),1);
4 }7 T* ~% l, S        nodeinsertinto(ShoppingList);
        treenode ActiveNode = last(ShoppingList);
2 I# ^+ \7 V6 D3 `5 F9 X        nodeadddata(ActiveNode,DATATYPE_NUMBER);
        setnodenum(ActiveNode,Type);
  O& b7 l, H# g        setnodename(ActiveNode,gettablestr("FoodNames",Type,1));
}
( f+ g2 S1 f+ \( f( i+ \
, _9 L' a2 |: ]$ i. J////////////////////////////////////////////////////////////////////////////////////////////////////////
# W1 c  E" b" x) |/ L
// move the item into the model.
& J0 }  t5 f) p9 J# k5 V% imoveobject(Shopper, model(), 0);
4 h- G' {2 \) e9 F' L7 |// Now if there is a network node connected to me, then connect the flow item to that node.
& v( l+ \; \/ R# A/ f( Utreenode netnode = getnetnode(current, 1);
if(objectexists(netnode))
5 e* l0 {3 \( a8 e+ {{
        // connect the item to the network
2 Z8 O; j. p3 @/ N        contextdragconnection(netnode, Shopper, "A");
        // set the location of the item.
' j' s, M3 ]* j8 E, R2 B        setloc(Shopper, xloc(netnode), yloc(netnode), 0);
7 h* y, q* r6 B! A, N7 j1 D}
8 P  |( P# m8 s, W, x8 O/ w
////////////////////////////////////////////////////////////////////////////////////////////////////////
treenode Cart = first(Shopper);

7 |. K! u* _8 C7 p: F) _treenode Item;
+ m4 o, b; ~9 \4 `, ctreenode ts = createemptytasksequence(Shopper,0,0);


setlabelnum(Cart, "Pointer", tonum(Shopper));
2 J. W2 K3 S( P& w# @' ~* P1 [1 Nsetlabelnum(Cart, "Content", 0);

! P5 e* M, n1 m, }" {4 L) r1 Z  G; htreenode RecycleBin = rank(ItemBin,2);
int LocationID;
treenode StopLocation;
7 ?: n8 S' }* n) W! q( y
) Y9 U7 h. y1 q  R  @for(int Stop = 1; Stop <= TotalItems; Stop++)
{
) l+ Q, `: L. }$ V: D# Y        LocationID = getnodenum(rank(ShoppingList, Stop));
3 C4 n& x3 r2 w' y' Z9 R        StopLocation = outobject(current,LocationID);
: |+ ~' J* u+ W/ R4 d7 E        if(LocationID<=84)
" G8 d, a! V* ]5 C7 Y        {
                if(content(RecycleBin>0))
                {
                        Item = last(RecycleBin);
                        transfernode(Item, model());
, A' d% D" b' |                }
                else
& c. ]( D/ K9 q8 O# U# ?                {
                        createcopy(first(ItemBin), model());
                        Item = last(model());
                }
                setobjectshapeindex(Item,gettablenum("FoodNames",LocationID,2));
" P5 U0 S$ Q/ P& X% c/ X                setlabelnum(Item,"Reference",LocationID);
8 |2 a  _* a* ?* C                moveobject(Item,StopLocation,1);
        }
        if(LocationID>84) //Deli
        {
% D) o0 o' x* I6 t* w  _/ t                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
5 j' r! j+ Y: b3 n! ^5 X( P2 }                inserttask(ts,TASKTYPE_SENDMESSAGE,StopLocation,NULL,1,(LocationID - 84),0,0);
# o0 I) c! }6 V& ]  [4 F                inserttask(ts,TASKTYPE_UTILIZE,StopLocation,NULL,0);
        }
: {* q+ R5 K4 R5 q' z% `        else
        {
                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
                inserttask(ts,TASKTYPE_MOVEOBJECT,Item,Cart,0);
2 B" V: w$ d4 ^& e& C' C) `& A                inserttask(ts,TASKTYPE_DELAY,NULL,NULL,2,0);
        }
3 r' V0 \4 x; h: G& X}

inserttask(ts,TASKTYPE_DELAY,NULL,NULL,1,0);
inserttask(ts,TASKTYPE_SENDMESSAGE,NULL,current,0,0,0,.1);
dispatchtasksequence(ts);
万分感谢！

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