ANIMFR~1.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 do\_dialogue;

procedure aradeshleave;

procedure aradeshend;

procedure aradeshcbt;

procedure aradesh01;

procedure aradesh01\_2;

procedure aradesh01\_3;

procedure aradesh02;

procedure aradesh02\_2;

procedure aradesh02\_4;

procedure aradesh02\_5;

procedure aradesh03;

procedure aradesh04;

procedure aradesh05;

procedure aradesh06;

procedure aradesh07;

procedure aradesh08;

procedure aradesh08a;

procedure aradesh08b;

procedure aradesh09;

procedure aradesh09a;

procedure aradesh10;

procedure aradesh11;

procedure aradesh11a;

procedure aradesh11b;

procedure aradesh12;

procedure aradesh13;

procedure aradesh14;

procedure aradesh15;

procedure aradesh16;

procedure aradesh16\_2;

procedure aradesh17;

procedure aradesh17\_2;

procedure aradesh17\_3;

procedure aradesh18;

procedure aradesh19;

procedure aradesh20;

procedure aradesh21;

procedure aradesh22;

procedure aradesh23;

procedure aradesh23\_2;

procedure aradesh24;

procedure aradesh24a;

procedure aradesh24b;

procedure aradesh24c;

procedure aradesh25;

procedure aradesh26;

procedure aradesh27;

procedure aradesh28;

procedure aradesh28a;

procedure aradesh28b;

procedure aradesh28c;

procedure aradesh29;

procedure aradesh30;

procedure aradesh30a;

procedure aradesh30b;

procedure aradesh31;

procedure aradesh32;

procedure aradesh33;

procedure aradesh35;

procedure aradesh36;

procedure aradesh37;

procedure aradesh37a;

procedure aradesh38;

procedure aradesh39;

procedure aradesh39a;

procedure aradesh39b;

procedure aradesh39c;

procedure aradesh40;

procedure aradesh40a;

procedure aradesh41;

procedure aradesh42;

procedure aradesh43;

procedure aradesh44;

procedure aradesh45;

procedure aradesh46;

procedure aradesh47;

procedure aradesh48;

procedure aradeshx;

procedure aradeshx1;

procedure aradeshx2;

procedure aradeshx3;

procedure aradeshx5;

variable TRESPASS;

variable ILLEGAL;

variable ILLEGBEFORE;

variable hostile;

variable rndx;

variable rndy;

variable rndz;

variable MALE;

procedure get\_reaction;

procedure ReactToLevel;

procedure LevelToReact;

procedure UpReact;

procedure DownReact;

procedure BottomReact;

procedure TopReact;

procedure BigUpReact;

procedure BigDownReact;

procedure UpReactLevel;

procedure DownReactLevel;

procedure Goodbyes;

variable exit\_line;

procedure aradesh49;

procedure aradesh49a;

procedure aradesh50;

procedure aradesh51;

procedure aradesh52;

procedure aradesh53;

procedure aradesh54;

procedure aradesh55;

procedure aradesh56;

procedure aradesh57;

procedure aradesh58;

procedure aradesh59;

procedure aradesh60;

procedure aradesh61;

procedure aradesh62;

procedure aradesh63;

procedure aradesh64;

procedure aradesh65;

procedure aradesh66;

procedure aradesh67;

procedure aradesh68;

procedure aradesh69;

procedure aradesh70;

procedure aradesh71;

procedure aradesh72;

procedure aradesh73;

procedure start

begin

        if (script\_action == 11) then begin

                call do\_dialogue;

                if (local\_var(7) == 1) then begin

                        animate\_move\_obj\_to\_tile(self\_obj, 32945, 0);

                end

        end

        else begin

                if (script\_action == 12) then begin

                        if (hostile) then begin

                                hostile := 0;

                                attack\_complex(dude\_obj, 0, 1, 0, 0, 30000, 0, 0);

                        end

                end

                else begin

                        if (script\_action == 21) then begin

                                script\_overrides;

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

                        end

                        else begin

                                if (script\_action == 18) then begin

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

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

                                        end

                                        else begin

                                                if (script\_action == 4) then begin

                                                        hostile := 1;

                                                end

                                        end

                                end

                        end

                end

        end

end

procedure do\_dialogue

begin

        call get\_reaction;

        start\_gdialog(33, self\_obj, 4, 13, 9);

        gsay\_start;

        if (local\_var(4) == 1) then begin

                if (local\_var(5) == 1) then begin

                        call aradesh46;

                end

                else begin

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

                                call aradesh43;

                        end

                        else begin

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

                                        if (global\_var(103) == 0) then begin

                                                call aradesh39;

                                        end

                                        else begin

                                                call aradesh37;

                                        end

                                end

                                else begin

                                        if (local\_var(1) < 3) then begin

                                                call aradesh18;

                                        end

                                        else begin

                                                call aradesh17;

                                        end

                                end

                        end

                end

        end

        else begin

                set\_local\_var(4, 1);

                call aradesh01;

        end

        gsay\_end;

        end\_dialogue;

end

procedure aradeshleave

begin

        gsay\_message(33, 276, 50);

end

procedure aradeshend

begin

end

procedure aradeshcbt

begin

        hostile := 1;

end

procedure aradesh01

begin

        if (local\_var(1) >= 2) then begin

                if (local\_var(1) >= 3) then begin

                        gsay\_reply(33, 101);

                end

                else begin

                        gsay\_reply(33, 102);

                end

        end

        else begin

                gsay\_reply(33, 103);

        end

        giq\_option(5, 33, 104, aradesh02, 50);

        giq\_option(4, 33, 105, aradesh01\_2, 51);

        giq\_option(4, 33, 106, aradesh10, 51);

        giq\_option(4, 33, 107, aradesh01\_3, 50);

        giq\_option(4, 33, 108, aradesh14, 51);

        giq\_option(5, 33, 109, aradesh07, 50);

        giq\_option(-3, 33, 110, aradesh15, 50);

end

procedure aradesh01\_2

begin

        call DownReact;

        if (local\_var(1) >= 2) then begin

                call aradesh05;

        end

        else begin

                call aradesh06;

        end

end

procedure aradesh01\_3

begin

        if (local\_var(1) >= 2) then begin

                call aradesh13;

        end

        else begin

                call aradesh11;

        end

end

procedure aradesh02

begin

        gsay\_reply(33, 111);

        giq\_option(4, 33, 112, aradesh02\_2, 50);

        giq\_option(4, 33, 113, aradesh01\_2, 50);

        giq\_option(5, 33, 114, aradesh02\_4, 50);

        giq\_option(5, 33, 115, aradesh02\_5, 50);

end

procedure aradesh02\_2

begin

        if (local\_var(1) >= 2) then begin

                call aradesh03;

        end

        else begin

                call aradesh08;

        end

end

procedure aradesh02\_4

begin

        if (local\_var(1) >= 2) then begin

                call aradesh09;

        end

        else begin

                call aradesh06;

        end

end

procedure aradesh02\_5

begin

        if (local\_var(1) >= 2) then begin

                call aradesh04;

        end

        else begin

                call aradesh09;

        end

end

procedure aradesh03

begin

        gsay\_reply(33, 116);

        giq\_option(4, 33, 117, aradesh04, 50);

        giq\_option(4, 33, 118, aradesh01\_2, 50);

        giq\_option(5, 33, 119, aradesh07, 50);

        giq\_option(4, 33, 120, aradesh07, 50);

end

procedure aradesh04

begin

        gsay\_message(33, 121, 50);

        call aradeshend;

end

procedure aradesh05

begin

        gsay\_reply(33, 122);

        giq\_option(5, 33, 123, aradesh06, 50);

        giq\_option(4, 33, 124, aradesh04, 50);

        giq\_option(4, 33, 125, aradesh07, 50);

end

procedure aradesh06

begin

        gsay\_message(33, 126, 50);

        call aradeshx1;

end

procedure aradesh07

begin

        gsay\_message(33, 127, 50);

        call aradeshx2;

end

procedure aradesh08

begin

        gsay\_reply(33, 128);

        giq\_option(4, 33, 129, aradesh08a, 50);

        giq\_option(5, 33, 130, aradesh08b, 50);

end

procedure aradesh08a

begin

        call UpReact;

        call aradesh04;

end

procedure aradesh08b

begin

        call DownReact;

        call aradesh06;

end

procedure aradesh09

begin

        gsay\_reply(33, 131);

        giq\_option(0, 33, 132, aradesh09a, 50);

end

procedure aradesh09a

begin

        gsay\_message(33, 133, 50);

        call aradeshx;

end

procedure aradesh10

begin

        gsay\_message(33, 134, 50);

        call aradeshx;

end

procedure aradesh11

begin

        gsay\_reply(33, 135);

        giq\_option(4, 33, 136, aradesh12, 50);

        giq\_option(5, 33, 137, aradesh11a, 50);

        giq\_option(4, 33, 138, aradesh11b, 50);

end

procedure aradesh11a

begin

        if (is\_success(roll\_vs\_skill(dude\_obj, 14, 0))) then begin

                call aradesh02;

        end

        else begin

                call aradesh14;

        end

end

procedure aradesh11b

begin

        call DownReact;

        call aradesh14;

end

procedure aradesh12

begin

        gsay\_reply(33, 139);

        giq\_option(5, 33, 140, aradesh02, 50);

        giq\_option(4, 33, 141, aradesh13, 50);

        giq\_option(4, 33, 142, aradesh05, 50);

end

procedure aradesh13

begin

        gsay\_message(33, 143, 50);

        call aradeshend;

end

procedure aradesh14

begin

        gsay\_reply(33, 144);

        giq\_option(5, 33, 145, aradesh06, 50);

        giq\_option(4, 33, 146, aradesh04, 50);

        giq\_option(4, 33, 147, aradesh07, 50);

end

procedure aradesh15

begin

        gsay\_message(33, 148, 50);

        call aradeshx;

end

procedure aradesh16

begin

        gsay\_reply(0, 0);

        giq\_option(8, 33, 149, aradesh25, 50);

        giq\_option(5, 33, 150, aradesh16\_2, 50);

        giq\_option(5, 33, 151, aradesh24c, 50);

end

procedure aradesh16\_2

begin

        if (global\_var(43) == 0) then begin

                call aradesh28;

        end

        else begin

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

                        call aradesh30a;

                end

                else begin

                        if ((global\_var(43) == 2) and not(global\_var(26) == 2)) then begin

                                call aradesh31;

                        end

                        else begin

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

                                        call aradesh35;

                                end

                                else begin

                                        call aradesh26;

                                end

                        end

                end

        end

end

procedure aradesh17

begin

        gsay\_reply(33, 152);

        giq\_option(4, 33, 153, aradesh19, 50);

        giq\_option(4, 33, 154, aradesh17\_2, 50);

        giq\_option(5, 33, 155, aradesh17\_3, 50);

        giq\_option(-3, 33, 156, aradesh36, 50);

end

procedure aradesh17\_2

begin

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

                call aradesh44;

        end

        else begin

                call aradesh20;

        end

end

procedure aradesh17\_3

begin

        call DownReact;

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

                call aradesh27;

        end

        else begin

                if (local\_var(1) >= 2) then begin

                        if (local\_var(1) >= 3) then begin

                                call aradesh27;

                        end

                        else begin

                                call aradesh21;

                        end

                end

                else begin

                        call aradesh22;

                end

        end

end

procedure aradesh18

begin

        if (local\_var(1) >= 2) then begin

                gsay\_reply(33, 157);

        end

        else begin

                gsay\_reply(33, 158);

        end

        giq\_option(5, 33, 159, aradesh23, 50);

        giq\_option(4, 33, 160, aradesh19, 50);

        giq\_option(4, 33, 161, aradesh17\_2, 50);

        giq\_option(-3, 33, 162, aradesh36, 50);

end

procedure aradesh19

begin

        if (local\_var(1) >= 2) then begin

                gsay\_reply(33, 163);

        end

        else begin

                gsay\_reply(33, 164);

        end

        giq\_option(5, 33, 165, aradesh25, 50);

        giq\_option(4, 33, 166, aradesh16\_2, 50);

        giq\_option(4, 33, 167, aradesh24c, 50);

end

procedure aradesh20

begin

        if (local\_var(1) >= 3) then begin

                gsay\_message(33, 168, 50);

        end

        else begin

                if (local\_var(1) >= 2) then begin

                        gsay\_message(33, 169, 50);

                end

                else begin

                        gsay\_message(33, 170, 50);

                end

        end

        call aradeshx;

end

procedure aradesh21

begin

        gsay\_message(33, 171, 50);

        call aradeshx;

end

procedure aradesh22

begin

        gsay\_message(33, 172, 50);

        call aradeshx1;

end

procedure aradesh23

begin

        if (local\_var(1) >= 2) then begin

                gsay\_reply(33, 173);

        end

        else begin

                gsay\_reply(33, 174);

        end

        giq\_option(4, 33, 175, aradesh23\_2, 50);

        giq\_option(5, 33, 176, aradesh25, 50);

        giq\_option(4, 33, 177, aradesh17\_2, 50);

end

procedure aradesh23\_2

begin

        if (local\_var(1) >= 2) then begin

                call aradesh24;

        end

        else begin

                call aradesh24b;

        end

end

procedure aradesh24

begin

        gsay\_reply(33, 178);

        giq\_option(0, 33, 179, aradesh24a, 50);

end

procedure aradesh24a

begin

        gsay\_reply(33, 180);

        giq\_option(4, 33, 181, aradesh19, 50);

        giq\_option(4, 33, 182, aradesh24c, 50);

end

procedure aradesh24b

begin

        gsay\_reply(33, 183);

        giq\_option(4, 33, 184, aradesh19, 50);

end

procedure aradesh24c

begin

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

                call aradesh44;

        end

        else begin

                call aradeshx;

        end

end

procedure aradesh25

begin

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

                gsay\_reply(33, 185);

        end

        else begin

                gsay\_reply(33, 186);

        end

        giq\_option(6, 33, 187, aradesh19, 50);

end

procedure aradesh26

begin

        gsay\_reply(33, 188);

        giq\_option(7, 33, 189, aradesh27, 50);

        giq\_option(6, 33, 190, aradesh19, 50);

        giq\_option(6, 33, 191, aradesh24c, 50);

end

procedure aradesh27

begin

        gsay\_reply(33, 192);

        giq\_option(8, 33, 193, aradesh25, 50);

        giq\_option(5, 33, 194, aradesh16\_2, 50);

        giq\_option(5, 33, 195, aradesh24c, 50);

end

procedure aradesh28

begin

        gsay\_reply(33, 196);

        giq\_option(0, 33, 197, aradesh28a, 50);

end

procedure aradesh28a

begin

        gsay\_reply(33, 198);

        giq\_option(5, 33, 199, aradesh29, 49);

        giq\_option(9, 33, 200, aradesh28b, 50);

        giq\_option(5, 33, 201, aradesh28c, 50);

end

procedure aradesh28b

begin

        call DownReact;

        call aradesh30;

end

procedure aradesh28c

begin

        call DownReact;

        call aradesh19;

end

procedure aradesh29

begin

        gsay\_message(33, 202, 50);

        set\_global\_var(43, 1);

        call aradeshx;

end

procedure aradesh30

begin

        gsay\_reply(33, 203);

        giq\_option(5, 33, 204, aradesh30b, 50);

        giq\_option(4, 33, 205, aradesh19, 50);

end

procedure aradesh30a

begin

        gsay\_message(33, 206, 50);

        call aradeshx;

end

procedure aradesh30b

begin

        call UpReact;

        call aradesh29;

end

procedure aradesh31

begin

        gsay\_reply(33, 207);

        giq\_option(4, 33, 208, aradesh19, 50);

        giq\_option(4, 33, 209, aradesh32, 50);

end

procedure aradesh32

begin

        gsay\_reply(33, 210);

        giq\_option(4, 33, 211, aradesh19, 50);

        giq\_option(4, 33, 212, aradesh17\_2, 50);

end

procedure aradesh33

begin

        gsay\_message(33, 213, 50);

        set\_global\_var(103, 1);

        call aradeshx;

end

procedure aradesh35

begin

        gsay\_reply(33, 214);

        giq\_option(5, 33, 215, aradesh25, 50);

        giq\_option(4, 33, 216, aradesh16\_2, 50);

        giq\_option(4, 33, 217, aradesh24c, 50);

end

procedure aradesh36

begin

        gsay\_message(33, 218, 50);

        call aradeshx;

end

procedure aradesh37

begin

        gsay\_reply(33, 219);

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

                giq\_option(5, 33, 220, aradesh38, 50);

                giq\_option(4, 33, 221, aradesh37a, 50);

                giq\_option(-3, 33, 222, aradesh37a, 50);

        end

        else begin

                giq\_option(4, 33, 223, aradesh38, 50);

                giq\_option(5, 33, 224, aradesh19, 50);

                giq\_option(-3, 33, 225, aradesh38, 50);

        end

end

procedure aradesh37a

begin

        gsay\_message(33, 226, 50);

        call aradeshx5;

end

procedure aradesh38

begin

        gsay\_message(33, 227, 50);

        call aradeshx;

end

procedure aradesh39

begin

        gsay\_reply(33, 228);

        giq\_option(4, 33, 229, aradesh39a, 50);

        giq\_option(-3, 33, 230, aradesh33, 50);

end

procedure aradesh39a

begin

        gsay\_reply(33, 231);

        giq\_option(4, 33, 232, aradesh39b, 50);

        giq\_option(4, 33, 233, aradesh41, 50);

        giq\_option(4, 33, 234, aradesh39c, 50);

end

procedure aradesh39b

begin

        call UpReact;

        set\_global\_var(103, 1);

        call aradesh40;

end

procedure aradesh39c

begin

        call DownReact;

        call aradesh42;

end

procedure aradesh40

begin

        variable LVar0 := 0;

        gsay\_reply(33, 235);

        set\_global\_var(103, 1);

        LVar0 := create\_object\_sid(7, 0, 0, -1);

        add\_obj\_to\_inven(dude\_obj, LVar0);

        giq\_option(4, 33, 236, aradesh40a, 50);

end

procedure aradesh40a

begin

        gsay\_message(33, 237, 50);

        call aradeshx;

end

procedure aradesh41

begin

        gsay\_reply(33, 238);

        giq\_option(4, 33, 239, aradesh40, 50);

        giq\_option(4, 33, 240, aradesh42, 50);

end

procedure aradesh42

begin

        gsay\_message(33, 241, 50);

        call aradeshx3;

end

procedure aradesh43

begin

        variable LVar0 := 0;

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

                set\_local\_var(8, 1);

                LVar0 := create\_object\_sid(41, 0, 0, -1);

                add\_mult\_objs\_to\_inven(dude\_obj, LVar0, 500);

        end

        call TopReact;

        set\_global\_var(103, 2);

        gsay\_reply(33, 242);

        giq\_option(4, 33, 243, aradesh19, 50);

        giq\_option(4, 33, 244, aradesh44, 50);

end

procedure aradesh44

begin

        gsay\_message(33, 245, 50);

        call aradeshx;

end

procedure aradesh45

begin

        call BigDownReact;

        float\_msg(self\_obj, message\_str(33, 246), 7);

        call aradeshx;

end

procedure aradesh46

begin

        call BigDownReact;

        float\_msg(self\_obj, message\_str(33, 247), 7);

        call aradeshx;

end

procedure aradesh47

begin

        call DownReact;

        gsay\_message(33, 248, 50);

        call aradeshx;

end

procedure aradesh48

begin

        call DownReact;

        gsay\_message(33, 249, 50);

end

procedure aradeshx

begin

end

procedure aradeshx1

begin

end

procedure aradeshx2

begin

end

procedure aradeshx3

begin

end

procedure aradeshx5

begin

        set\_local\_var(7, 1);

end

procedure get\_reaction

begin

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

                set\_local\_var(0, 50);

                set\_local\_var(1, 2);

                set\_local\_var(2, 1);

                set\_local\_var(0, local\_var(0) + (5 \* get\_critter\_stat(dude\_obj, 3)) - 25);

                set\_local\_var(0, local\_var(0) + (10 \* has\_trait(0, dude\_obj, 10)));

                if (has\_trait(0, dude\_obj, 39)) then begin

                        if (global\_var(155) > 0) then begin

                                set\_local\_var(0, local\_var(0) + global\_var(155));

                        end

                        else begin

                                set\_local\_var(0, local\_var(0) - global\_var(155));

                        end

                end

                else begin

                        if (local\_var(3) == 1) then begin

                                set\_local\_var(0, local\_var(0) - global\_var(155));

                        end

                        else begin

                                set\_local\_var(0, local\_var(0) + global\_var(155));

                        end

                end

                if (global\_var(158) > 2) then begin

                        set\_local\_var(0, local\_var(0) - 30);

                end

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

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

                end

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

                        set\_local\_var(0, local\_var(0) - 20);

                end

                call ReactToLevel;

        end

end

procedure ReactToLevel

begin

        if (local\_var(0) <= 25) then begin

                set\_local\_var(1, 1);

        end

        else begin

                if (local\_var(0) <= 75) then begin

                        set\_local\_var(1, 2);

                end

                else begin

                        set\_local\_var(1, 3);

                end

        end

end

procedure LevelToReact

begin

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

                set\_local\_var(0, random(1, 25));

        end

        else begin

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

                        set\_local\_var(0, random(26, 75));

                end

                else begin

                        set\_local\_var(0, random(76, 100));

                end

        end

end

procedure UpReact

begin

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

        call ReactToLevel;

end

procedure DownReact

begin

        set\_local\_var(0, local\_var(0) - 10);

        call ReactToLevel;

end

procedure BottomReact

begin

        set\_local\_var(1, 1);

        set\_local\_var(0, 1);

end

procedure TopReact

begin

        set\_local\_var(0, 100);

        set\_local\_var(1, 3);

end

procedure BigUpReact

begin

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

        call ReactToLevel;

end

procedure BigDownReact

begin

        set\_local\_var(0, local\_var(0) - 25);

        call ReactToLevel;

end

procedure UpReactLevel

begin

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

        if (local\_var(1) > 3) then begin

                set\_local\_var(1, 3);

        end

        call LevelToReact;

end

procedure DownReactLevel

begin

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

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

                set\_local\_var(1, 1);

        end

        call LevelToReact;

end

procedure Goodbyes

begin

        exit\_line := message\_str(634, random(100, 105));

end

procedure aradesh49

begin

        gsay\_message(33, 250, 50);

end

procedure aradesh49a

begin

        gsay\_message(33, 251, 50);

end

procedure aradesh50

begin

        gsay\_message(33, 252, 50);

end

procedure aradesh51

begin

        gsay\_message(33, 253, 50);

end

procedure aradesh52

begin

        gsay\_message(33, 254, 50);

end

procedure aradesh53

begin

        gsay\_message(33, 255, 50);

end

procedure aradesh54

begin

        gsay\_message(33, 256, 50);

end

procedure aradesh55

begin

        gsay\_message(33, 257, 50);

end

procedure aradesh56

begin

        gsay\_message(33, 258, 50);

end

procedure aradesh57

begin

        gsay\_message(33, 259, 50);

end

procedure aradesh58

begin

        gsay\_message(33, 260, 50);

end

procedure aradesh59

begin

        gsay\_message(33, 261, 50);

end

procedure aradesh60

begin

        gsay\_message(33, 262, 50);

end

procedure aradesh61

begin

        gsay\_message(33, 263, 50);

end

procedure aradesh62

begin

        gsay\_message(33, 264, 50);

end

procedure aradesh63

begin

        gsay\_message(33, 265, 50);

end

procedure aradesh64

begin

        gsay\_message(33, 266, 50);

end

procedure aradesh65

begin

        gsay\_message(33, 267, 50);

end

procedure aradesh66

begin

        gsay\_message(33, 268, 50);

end

procedure aradesh67

begin

        gsay\_message(33, 269, 50);

end

procedure aradesh68

begin

        gsay\_message(33, 270, 50);

end

procedure aradesh69

begin

        gsay\_message(33, 271, 50);

end

procedure aradesh70

begin

        gsay\_message(33, 272, 50);

end

procedure aradesh71

begin

        gsay\_message(33, 273, 50);

end

procedure aradesh72

begin

        gsay\_message(33, 274, 50);

end

procedure aradesh73

begin

        gsay\_message(33, 275, 50);

end