ARMOR.INT

*This image comes from* Fallout Mod *or from websites created and owned by Game publisher or Game developer, who hold the copyright of* Fallout Mod*. All trademarks and registered trademarks present in the image are proprietary to Game publisher.
The use of images to illustrate articles concerning the subject of the images in question is believed to qualify as **fair use** under United States copyright law, as such display does not significantly impede the right of the copyright holder to sell the copyrighted material.*

Template:Scriptfile

Template:Scriptbox

File:Transcript.png
procedure start;

procedure use\_p\_proc;

procedure pickup\_p\_proc;

procedure look\_at\_p\_proc;

procedure use\_skill\_on\_p\_proc;

procedure use\_obj\_on\_p\_proc;

procedure chance;

procedure try\_skill;

procedure fixed;

procedure failure;

variable Test;

variable temp;

variable bonus;

variable use\_skill;

procedure start

begin

        bonus := 0;

        if (script\_action == 21) then begin

                call look\_at\_p\_proc;

        end

        else begin

                if (script\_action == 6) then begin

                        call use\_p\_proc;

                end

                else begin

                        if (script\_action == 4) then begin

                                call pickup\_p\_proc;

                        end

                        else begin

                                if (script\_action == 8) then begin

                                        call use\_skill\_on\_p\_proc;

                                end

                                else begin

                                        if (script\_action == 7) then begin

                                                call use\_obj\_on\_p\_proc;

                                        end

                                end

                        end

                end

        end

end

procedure use\_p\_proc

begin

        if (source\_obj != dude\_obj) then begin

        end

        else begin

                display\_msg(message\_str(936, 101));

        end

end

procedure pickup\_p\_proc

begin

        call use\_p\_proc;

end

procedure look\_at\_p\_proc

begin

        display\_msg(message\_str(936, 100));

end

procedure use\_skill\_on\_p\_proc

begin

        use\_skill := action\_being\_used;

        call try\_skill;

end

procedure use\_obj\_on\_p\_proc

begin

        if (obj\_pid(obj\_being\_used\_with) == 75) then begin

                bonus := 10;

                use\_skill := 13;

                call use\_skill\_on\_p\_proc;

        end

        else begin

                display\_msg(message\_str(936, 105));

        end

end

procedure chance

begin

        Test := roll\_vs\_skill(dude\_obj, 13, bonus);

        if (is\_success(Test)) then begin

                call fixed;

        end

        else begin

                call failure;

        end

end

procedure try\_skill

begin

        if (use\_skill == 13) then begin

                if (global\_var(304) > 1) then begin

                        if (global\_var(304) == 3) then begin

                                if (has\_skill(dude\_obj, 13) < 75) then begin

                                        script\_overrides;

                                        display\_msg(message\_str(936, 103));

                                end

                                else begin

                                        call chance;

                                end

                        end

                        else begin

                                call chance;

                        end

                end

                else begin

                        script\_overrides;

                        display\_msg(message\_str(936, 102));

                end

        end

        else begin

                script\_overrides;

                display\_msg(message\_str(936, 105));

        end

end

procedure fixed

begin

        script\_overrides;

        set\_global\_var(304, 4);

        display\_msg(message\_str(936, 104));

        create\_object\_sid(3, 22475, 0, -1);

        temp := 500;

        display\_msg(message\_str(936, 107) + temp + message\_str(936, 108));

        give\_exp\_points(temp);

        destroy\_object(self\_obj);

end

procedure failure

begin

        script\_overrides;

        set\_global\_var(304, 3);

        display\_msg(message\_str(936, 106));

end