HasLightSource (lines 5150-5170)
Back to List
Browsing parserm.h
5150 [ HasLightSource i j ad;
5151 if (i == 0) rfalse;
5152 if (i has light) rtrue;
5153 if (i has enterable || IsSeeThrough(i) == 1)
5154 if (~~(HidesLightSource(i)))
5155 objectloop (j in i)
5156 if (HasLightSource(j) == 1) rtrue;
5157 ad = i.&add_to_scope;
5158 if (parent(i) ~= 0 && ad ~= 0) {
5159 if (metaclass(ad-->0) == Routine) {
5160 ats_hls = 0; ats_flag = 1;
5161 RunRoutines(i, add_to_scope);
5162 ats_flag = 0; if (ats_hls == 1) rtrue;
5163 }
5164 else {
5165 for (j=0 : (WORDSIZE*j)<i.#add_to_scope : j++)
5166 if (HasLightSource(ad-->j) == 1) rtrue;
5167 }
5168 }
5169 rfalse;
5170 ];
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 assisted by C Knight.