Back to List Inventory Complete Backward Forward Plain Coloured Gaudy This code in plain text

Browsing verblibm.h SortTogether (lines 153-166) 0153 [ SortTogether obj value; 0154 ! print "Sorting together possessions of ", 0155 ! (object) obj, " by value ", value, "^"; 0156 ! for (x=child(obj):x~=0:x=sibling(x)) 0157 ! print (the) x, " no: ", x, " lt: ", x.list_together, "^"; 0158 while (child(obj)~=0) 0159 { if (child(obj).list_together~=value) move child(obj) to out_obj; 0160 else move child(obj) to in_obj; 0161 } 0162 while (child(in_obj)~=0) 0163 move child(in_obj) to obj; 0164 while (child(out_obj)~=0) 0165 move child(out_obj) to obj; 0166 ];

Last updated 27 February 2004. This site is no longer supported; information may be out of date.
Maintained as a historical archive by the Interactive Fiction Technology Foundation. Copyright 1993-2018 IFTF, CC-BY-SA unless otherwise noted.
This page was originally managed by Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight.