Post: #12

I have made something like this but dunno how to stop flames go through walls ..

[ITEMDEF i_bomber_dynamite]
NAME=Dynamite
ID=01772
TYPE=T_NORMAL
VALUE=1000
WEIGHT=1

On=@Create
Attr=010
COLOR=0486
TIMER=1
MORE1=3

ON=@TIMER
TIMER=1
MORE1 -=1
SAY @155 <eval <more1>+1>
IF <MORE1>==0
SERV.NEWITEM=i_fire_column2
NEW.P=<p>
NEW.move=-2 0 0
new.removeboxes
SERV.NEWITEM=i_fire_column2
NEW.P=<p>
NEW.move=-1 0 0
new.removeboxes
SERV.NEWITEM=i_fire_column2
NEW.P=<p>
NEW.move=0 0 0
new.removeboxes
SERV.NEWITEM=i_fire_column2
NEW.P=<p>
NEW.move=1 0 0
new.removeboxes
SERV.NEWITEM=i_fire_column2
NEW.P=<p>
NEW.move=2 0 0
new.removeboxes
SERV.NEWITEM=i_fire_column2
NEW.P=<p>
NEW.move=0 1 0
new.removeboxes
SERV.NEWITEM=i_fire_column2
NEW.P=<p>
NEW.move=0 2 0
new.removeboxes
SERV.NEWITEM=i_fire_column2
NEW.P=<p>
NEW.move=0 -1 0
new.removeboxes
SERV.NEWITEM=i_fire_column2
NEW.P=<p>
NEW.move=0 -2 0
new.removeboxes
REMOVE
ENDIF
ENDIF
RETURN 1