Duck and Cover

I give npc some weapon ,butI I can not use ANIM_take_out & ANIM_fire_single ,it seems no effect.Can you teach me how to use it or give me some examples?

#define NAME SCRIPT_TEST
variable Only_Once:=0;



#define NPC_REACTION_TYPE REACTION_C

#include "..\headers\define.h"

#include "..\headers\command.h"





procedure start;
procedure talk_p_proc;

procedure Node001;
procedure old_pickup_p_proc;

#define G1_TILE 20104
variable g1;


procedure start begin
display_msg ("word"); //display_msg()


end

procedure old_pickup_p_proc begin
end


procedure talk_p_proc begin
if (Only_Once !=1)then begin
start_gdialog(NAME,self_obj,4,-1,-1);

gSay_Start;
call Node001;

gSay_End;
end_dialogue;
only_once:=1;
end





else
begin

float_msg(self_obj , "yayaya" , FLOAT_COLOR_NORMAL);
end
end


procedure node001 begin
Reply(mstr(101));
end

procedure critter_p_proc begin
g1 := create_object(PID_SHI_GUARD, G1_TILE, 0);
reg_anim_clear(self_obj);
reg_anim_begin();
reg_anim_animate(g1,ANIM_fire_continuous ,-1);
reg_anim_end();
end
--------------------------------------
that is my ssl,it can creat a npc at 20104,but my npc cannot fire him

thank you , I accomplish it. I have made a big big mistake in comprehending scripts,now I correct my mistake


#include "..\headers\define.h"


#define NAME SCRIPT_ECBDYGRD


#include "..\headers\command.h"
#include "..\headers\ModReact.h"


procedure start;
procedure doSequence;


procedure start BEGIN
call doSequence;
end

procedure doSequence begin
variable sound;

reg_anim_clear(self_obj);

reg_anim_begin();
reg_anim_animate(self_obj,ANIM_fire_burst , -1);
reg_anim_play_sfx(self_obj, sound, 0);
reg_anim_end();

end

first . Add to Inventory


second. View Inventory list


third . run scripts