StartTimer (lines 5040-5054)
Back to List
Browsing parserm.h
5040 #Endif; ! TARGET_
5041
5042 ! ----------------------------------------------------------------------------
5043
5044 [ StartTimer obj timer i;
5045 for (i=0 : i<active_timers : i++)
5046 if (the_timers-->i == obj) rfalse;
5047 for (i=0 : i<active_timers : i++)
5048 if (the_timers-->i == 0) jump FoundTSlot;
5049 i = active_timers++;
5050 if (i >= MAX_TIMERS) { RunTimeError(4); return; }
5051 .FoundTSlot;
5052 if (obj.&time_left == 0) { RunTimeError(5,obj); return; }
5053 the_timers-->i = obj; obj.time_left = timer;
5054 ];
Last updated 27 February 2004. The librarian in charge of this page is Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight. Please email any comments, suggestions or corrections to cedenqs@inform-fiction.org.