AMBER.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 critter\_p\_proc;

procedure destroy\_p\_proc;

procedure look\_at\_p\_proc;

procedure talk\_p\_proc;

procedure Amber0;

procedure Amber1;

procedure Amber2;

procedure Amber3;

procedure Amber3a;

procedure Amber4;

procedure Amber5;

procedure Amber6;

procedure Amber7;

procedure Amber8;

procedure Amber9;

procedure Amber10;

procedure Amber11;

procedure Amber12;

procedure Amber13;

procedure Amber14;

procedure Amber15;

procedure Amber16;

procedure Amber17;

procedure Amber18;

procedure AmberEnd;

variable initialized;

procedure start

begin

        if (not(initialized)) then begin

                critter\_add\_trait(self\_obj, 1, 6, 46);

                initialized := 1;

        end

        else begin

                if (script\_action == 12) then begin

                        call critter\_p\_proc;

                end

                else begin

                        if (script\_action == 18) then begin

                                call destroy\_p\_proc;

                        end

                        else begin

                                if (script\_action == 21) then begin

                                        call look\_at\_p\_proc;

                                end

                                else begin

                                        if (script\_action == 11) then begin

                                                call talk\_p\_proc;

                                        end

                                end

                        end

                end

        end

end

procedure critter\_p\_proc

begin

        if (global\_var(129) == 2) then begin

                kill\_critter(self\_obj, 59);

        end

end

procedure destroy\_p\_proc

begin

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

                if (((global\_var(160) + global\_var(159)) >= 25) and ((global\_var(159) > (2 \* global\_var(160))) or (global\_var(156) == 1))) then begin

                        set\_global\_var(156, 1);

                        set\_global\_var(157, 0);

                end

                if (((global\_var(160) + global\_var(159)) >= 25) and ((global\_var(160) > (3 \* global\_var(159))) or (global\_var(157) == 1))) then begin

                        set\_global\_var(157, 1);

                        set\_global\_var(156, 0);

                end

                set\_global\_var(159, global\_var(159) + 1);

                if ((global\_var(159) % 2) == 0) then begin

                        set\_global\_var(155, global\_var(155) - 1);

                end

        end

end

procedure look\_at\_p\_proc

begin

        script\_overrides;

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

end

procedure talk\_p\_proc

begin

        script\_overrides;

        if (global\_var(132) == 1) then begin

                call Amber18;

        end

        else begin

                if ((game\_time\_hour >= 700) and (game\_time\_hour < 1800)) then begin

                        call Amber0;

                end

                else begin

                        set\_local\_var(0, local\_var(0) + 1);

                        start\_gdialog(272, self\_obj, 4, -1, -1);

                        gsay\_start;

                        call Amber1;

                        gsay\_end;

                        end\_dialogue;

                end

        end

end

procedure Amber0

begin

        float\_msg(self\_obj, message\_str(272, 101), 0);

end

procedure Amber1

begin

        gsay\_reply(272, 102);

        giq\_option(4, 272, 103, Amber2, 50);

        giq\_option(4, 272, 104, Amber3, 50);

        giq\_option(7, 272, 105, Amber17, 50);

end

procedure Amber2

begin

        gsay\_message(272, 106, 50);

end

procedure Amber3

begin

        gsay\_reply(272, 107);

        if (not(local\_var(1))) then begin

                giq\_option(4, 272, 108, Amber4, 50);

        end

        giq\_option(4, 272, 109, AmberEnd, 50);

        if (local\_var(2) == 0) then begin

                giq\_option(4, 272, 110, Amber3a, 50);

        end

        giq\_option(5, 272, 111, Amber16, 50);

end

procedure Amber3a

begin

        if (local\_var(0) < 6) then begin

                call Amber9;

        end

        else begin

                if (local\_var(0) == 6) then begin

                        call Amber10;

                end

                else begin

                        call Amber15;

                end

        end

end

procedure Amber4

begin

        gsay\_reply(272, 112);

        giq\_option(4, 272, 113, Amber5, 50);

        giq\_option(4, 272, 114, Amber8, 50);

        giq\_option(5, 272, 115, AmberEnd, 50);

end

procedure Amber5

begin

        gsay\_reply(272, 116);

        giq\_option(4, 272, 117, Amber6, 50);

        giq\_option(4, 272, 118, Amber7, 50);

end

procedure Amber6

begin

        variable LVar0 := 0;

        set\_local\_var(1, local\_var(1) + 1);

        gsay\_message(272, 119, 50);

        gfade\_out(800);

        gfade\_in(800);

        LVar0 := 3600 \* 9;

        game\_time\_advance(game\_ticks(LVar0));

        critter\_mod\_skill(dude\_obj, 17, 15);

        gsay\_message(272, 120, 50);

end

procedure Amber7

begin

        gsay\_message(272, 121, 50);

end

procedure Amber8

begin

        variable LVar0 := 0;

        set\_local\_var(1, local\_var(1) + 1);

        gsay\_message(272, 122, 50);

        gfade\_out(800);

        gfade\_in(800);

        LVar0 := 3600 \* 7;

        game\_time\_advance(game\_ticks(LVar0));

        critter\_mod\_skill(dude\_obj, 17, 15);

        gsay\_message(272, 123, 50);

end

procedure Amber9

begin

        gsay\_message(272, 124, 50);

end

procedure Amber10

begin

        set\_local\_var(2, local\_var(2) + 1);

        gsay\_reply(272, 125);

        giq\_option(4, 272, 126, Amber11, 50);

        giq\_option(4, 272, 127, Amber12, 50);

        giq\_option(4, 272, 128, Amber13, 50);

        giq\_option(4, 272, 129, Amber14, 50);

end

procedure Amber11

begin

        variable LVar0 := 0;

        gsay\_message(272, 130, 50);

        LVar0 := 3600 \* 10;

        gfade\_out(800);

        gfade\_in(800);

        game\_time\_advance(game\_ticks(LVar0));

        critter\_mod\_skill(dude\_obj, 8, 12);

        critter\_mod\_skill(dude\_obj, 9, 10);

        critter\_mod\_skill(dude\_obj, 10, 8);

        critter\_mod\_skill(dude\_obj, 11, 8);

        gsay\_message(272, 131, 50);

end

procedure Amber12

begin

        variable LVar0 := 0;

        gsay\_message(272, 132, 50);

        LVar0 := 3600 \* 10;

        gfade\_out(800);

        gfade\_in(800);

        game\_time\_advance(game\_ticks(LVar0));

        critter\_mod\_skill(dude\_obj, 3, 10);

        critter\_mod\_skill(dude\_obj, 0, 8);

        critter\_mod\_skill(dude\_obj, 5, 8);

        critter\_mod\_skill(dude\_obj, 4, 6);

        gsay\_message(272, 133, 50);

end

procedure Amber13

begin

        variable LVar0 := 0;

        gsay\_message(272, 134, 50);

        LVar0 := 3600 \* 10;

        gfade\_out(800);

        gfade\_in(800);

        game\_time\_advance(game\_ticks(LVar0));

        critter\_mod\_skill(dude\_obj, 17, 10);

        critter\_mod\_skill(dude\_obj, 8, 8);

        critter\_mod\_skill(dude\_obj, 5, 8);

        critter\_mod\_skill(dude\_obj, 11, 6);

        gsay\_message(272, 135, 50);

end

procedure Amber14

begin

        variable LVar0 := 0;

        gsay\_message(272, 136, 50);

        LVar0 := 3600 \* 10;

        gfade\_out(800);

        gfade\_in(800);

        game\_time\_advance(game\_ticks(LVar0));

        critter\_mod\_skill(dude\_obj, 15, 10);

        critter\_mod\_skill(dude\_obj, 14, 8);

        critter\_mod\_skill(dude\_obj, 16, 8);

        critter\_mod\_skill(dude\_obj, 4, 6);

        gsay\_message(272, 137, 50);

end

procedure Amber15

begin

        gsay\_message(272, 138, 50);

end

procedure Amber16

begin

        gsay\_message(272, 139, 50);

end

procedure Amber17

begin

        gsay\_reply(272, 140);

        if (local\_var(2) == 0) then begin

                giq\_option(7, 272, 141, Amber10, 50);

        end

        giq\_option(7, 272, 142, AmberEnd, 50);

        if (not(local\_var(1))) then begin

                giq\_option(6, 272, 143, Amber4, 50);

        end

end

procedure Amber18

begin

        float\_msg(self\_obj, message\_str(272, 144), 0);

end

procedure AmberEnd

begin

end