#include <define.h>

//#define NAME                    SCRIPT_

#include <command.h>
//#include <ModReact.h>



procedure start;
#include <push.h>
procedure use_p_proc;

variable initialized1;

import variable ladder_up;


procedure start
begin
	if (not(initialized1)) then begin
		ladder_up := self_obj;
		initialized1 := 1;
	end
	else begin
		if (script_action == use_proc) then begin
			call use_p_proc;
		end
	end
end

procedure use_p_proc
begin
	move_to(source_obj, 12898, 0);
	if (source_obj == dude_obj) then begin
		anim(source_obj, 0, 0);
	end
	if (combat_is_initialized and (source_obj != dude_obj)) then begin
		critter_stop_attacking(source_obj);
	end
end