procedure start;
procedure map_enter_p_proc;
procedure junk1;

procedure start begin
end

procedure map_enter_p_proc begin
if (map_first_run) then begin
call junk1;
end else begin
end
end

procedure junk1 begin
variable item;
if ( ( (dude_perception * 10) + (dude_luck * 3) ) > random(1,99) ) then begin
item:=create_object(PID_PUMP_PARTS,0,0);
add_mult_objs_to_inven(self_obj,item,random(1,3));
end else begin
end
end