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

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

: q3 X  E5 C  [, `treenode ShoppingList = label(Shopper,"ShoppingList");
clearcontents(ShoppingList);
. g6 M+ a$ f0 eint TotalItems = duniform(1,15,1);
4 I# r8 }9 I+ W) @for( int i = 1; i<=TotalItems; i++)
, C9 D/ v9 `) I0 U3 L$ L( Z% g{
        int Type = duniform(1,gettablerows("FoodNames"),1);
' `; y9 A$ M1 f/ a% m  t        nodeinsertinto(ShoppingList);
% v) @& }$ A! F4 Y        treenode ActiveNode = last(ShoppingList);
        nodeadddata(ActiveNode,DATATYPE_NUMBER);
        setnodenum(ActiveNode,Type);
  Z: D- t  K- F2 Z$ `4 O( x        setnodename(ActiveNode,gettablestr("FoodNames",Type,1));
3 b) h! f  r+ X+ v- y+ U' k, A- @}

////////////////////////////////////////////////////////////////////////////////////////////////////////
7 r! m9 _$ d# p$ g. V
5 z1 K3 }5 U+ p, l! L// move the item into the model.
moveobject(Shopper, model(), 0);
4 H0 |9 r8 f+ d9 [# U' |// Now if there is a network node connected to me, then connect the flow item to that node.
treenode netnode = getnetnode(current, 1);
  b- q$ Q5 f6 U5 M: X( Xif(objectexists(netnode))
% ?* K, k6 @; O- J1 Z$ l( l{
/ _9 [- n/ F5 o$ ]* t5 b        // connect the item to the network
        contextdragconnection(netnode, Shopper, "A");
! E# \  K( [3 ~7 \7 H( e+ A! V9 u- \        // set the location of the item.
$ N# h6 q0 e" ^+ A2 M+ B1 |        setloc(Shopper, xloc(netnode), yloc(netnode), 0);
}

, g5 q9 M/ {3 I( M$ u+ \  A2 j- [////////////////////////////////////////////////////////////////////////////////////////////////////////
treenode Cart = first(Shopper);

treenode Item;
( ~* `- _/ L, D+ X) Ctreenode ts = createemptytasksequence(Shopper,0,0);

; V* x* W9 W5 ?- t! I/ a' V
setlabelnum(Cart, "Pointer", tonum(Shopper));
- |( Y* s1 A6 w$ y' ?5 ^setlabelnum(Cart, "Content", 0);
3 T7 Z# j. f" }0 p, \9 O  O
treenode RecycleBin = rank(ItemBin,2);
9 I# m% m  _0 l$ v' ]0 Eint LocationID;
- j4 [4 a& l; t9 S4 c! ctreenode StopLocation;
- Q' j: }( f6 N8 {: V& f; W' v- V
for(int Stop = 1; Stop <= TotalItems; Stop++)
{
        LocationID = getnodenum(rank(ShoppingList, Stop));
) j/ `9 W1 L7 Y6 _. E        StopLocation = outobject(current,LocationID);
        if(LocationID<=84)
        {
                if(content(RecycleBin>0))
2 V' @' n/ P, }; a                {
- w) p$ ?0 G3 t9 R) ^; D                        Item = last(RecycleBin);
  M; {+ d- ?: |0 a  g0 W/ W6 w                        transfernode(Item, model());
7 S* B: ^" a3 p& L+ R2 a8 k6 E  \                }
                else
0 c2 b' V, x! G9 S( V                {
                        createcopy(first(ItemBin), model());
                        Item = last(model());
                }
                setobjectshapeindex(Item,gettablenum("FoodNames",LocationID,2));
                setlabelnum(Item,"Reference",LocationID);
6 `# H; Q7 v% Z8 d                moveobject(Item,StopLocation,1);
        }
7 o7 z' J% U* w        if(LocationID>84) //Deli
        {
% \* G' U5 m9 X" t) o. Y                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
0 B; V1 ]) |2 ^" Z6 Z: t                inserttask(ts,TASKTYPE_SENDMESSAGE,StopLocation,NULL,1,(LocationID - 84),0,0);
                inserttask(ts,TASKTYPE_UTILIZE,StopLocation,NULL,0);
        }
9 a/ K. d3 {' P& q& E. u3 _7 Y        else
        {
                inserttask(ts,TASKTYPE_TRAVEL,StopLocation,NULL);
; a5 b! b: ?) `) |                inserttask(ts,TASKTYPE_MOVEOBJECT,Item,Cart,0);
                inserttask(ts,TASKTYPE_DELAY,NULL,NULL,2,0);
( O  t: ^0 W% x        }
8 m* F, z$ I" g$ @}
* h( k" M7 e8 H( l3 w5 h! ~/ z- R
& g* O/ y; x* Y6 o+ t7 D7 f/ oinserttask(ts,TASKTYPE_DELAY,NULL,NULL,1,0);
inserttask(ts,TASKTYPE_SENDMESSAGE,NULL,current,0,0,0,.1);
dispatchtasksequence(ts);
万分感谢！

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