BLKROM.INT

	This is the transcript of a script file, which runs certain tasks in the game upon execution.

Details
Type	Decompiled script
SCRIPTS.LST comment	blocked room in the buried vault
MSG file	BLKROM.MSG

procedure start;
procedure start
begin
        if (script_action == 2) then begin
                if (obj_type(source_obj) == dude_obj) then begin
                        if (local_var(4) == 0) then begin
                                if (get_critter_stat(dude_obj, 4) > 6) then begin
                                        display_msg(message_str(189, 100));
                                end
                                else begin
                                        display_msg(message_str(189, 101));
                                end
                                set_local_var(4, 1);
                        end
                end
        end
end