That sucks, but I have had another think and hopefully the following will work in some mode:
<Click for Debug Demo 5>
At the start, I expect selecting mode 1 will lead to a crash, (it even crashes on my machine, although I don't think it's any different to before!) but hope that 2, 3, 4, 5 may work. Failing that, 6,7,8,9,0 may not crash, but will display wrongly. I really hope this one works!
Here's the relevant part of code that i've added :
function _update_indest_lev_image(imstr$)
`press 1-9,0 for texloadmode=1-9,10
_output_debug_check("updating indest lev img func start")
i=indest_level_image
o=indest_level_object
if texloadmode>5
tflag=1
t=texloadmode-5
else
tflag=6
t=texloadmode
endif
select t
case 1
load image imstr$,i,1
endcase
case 2
load image imstr$,i,1
texture object o,i
endcase
case 3
if image exist(i):delete image i:endif
load image imstr$,i,1
texture object o,i
endcase
case 4
if object exist(o):delete object o:endif
clone object o,level_object
load image imstr$,i,1
texture object o,i
endcase
case 5
if object exist(o):delete object o:endif
clone object o,level_object
if image exist(i):delete image i:endif
load image imstr$,i,1
texture object o,i
endcase
endselect
_output_debug_check("xx")
position object o,0,0,0.-0.01 `in front of everything! (even explosions?)
set object transparency o, tflag
`set object o,1,0,0,1,0,0,0 `should be auto since cloned from original level_obj
_output_debug_check("updating indest lev img func end")
endfunction
Swisslo, you've been really helpful. Thanks very much!