ACSPORPL.SSL

*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
/\*

        Copyright 1998-2003 Interplay Entertainment Corp. All rights reserved.

\*/

/\*

        Name: Arroyo spore plant.

        Location: Arroyo

        Description: The evil spore plant that the shamen sends the player after. Killing one of these

                     plants should increment the map variable MVAR\_Kill\_Evil\_Plants. When this MVAR == 2

                     the player has killed both plants. Killing both of these plants will give the player

                     some experience defined in EXP\_KILL\_EVIL\_PLANTS as well as a reputation bonus

                     defined in REP\_BONUS\_KILL\_EVIL\_PLANTS. It also sets the GVAR\_KILL\_EVIL\_PLANTS so that

                     other scripts can see if our hero has killed the plants.

           Created: December 02, 1997

           Updated:

\*/

/\* Include Files \*/

#include "..\headers\define.h"

#include "..\headers\ARVillag.h"

#define NAME SCRIPT\_ACSPORPL

#include "..\headers\command.h"

//#include "..\headers\ModReact.h"

#define KILLED\_ALL\_EVIL\_PLANTS (map\_var(MVAR\_Kill\_Evil\_Plants) == 2)

/\* Standard Script Procedures \*/

procedure start;

procedure critter\_p\_proc;

procedure destroy\_p\_proc;

procedure look\_at\_p\_proc;

procedure description\_p\_proc;

procedure use\_skill\_on\_p\_proc;

procedure damage\_p\_proc;

procedure map\_enter\_p\_proc;

/\* Local variables which do not need to be saved between map changes. \*/

variable pissed:=false;

procedure start begin

end

procedure critter\_p\_proc begin

   if ((obj\_can\_see\_obj(self\_obj,dude\_obj)) and (pissed == false)) then begin

      pissed := true;

      attack(dude\_obj);

   end else

      pissed := false;

end

procedure destroy\_p\_proc begin

   inc\_map\_var(MVAR\_Kill\_Evil\_Plants);

   if (KILLED\_ALL\_EVIL\_PLANTS) then begin

      display\_msg(mstr(150));

      set\_global\_var(GVAR\_KILL\_EVIL\_PLANTS,QUEST\_COMPLETED);

      inc\_general\_rep(REP\_BONUS\_KILL\_EVIL\_PLANTS);

      give\_xp(EXP\_KILL\_EVIL\_PLANTS);

// terminate\_combat;

   end

end

procedure damage\_p\_proc begin

   if (pissed == false) then begin

      pissed := true;

      attack(dude\_obj);

   end

end

procedure look\_at\_p\_proc begin

   script\_overrides;

   display\_msg(mstr(100));

end

procedure description\_p\_proc begin

   script\_overrides;

   display\_msg(mstr(101));

end

procedure use\_obj\_on\_p\_proc begin

end

procedure use\_skill\_on\_p\_proc begin

   if (action\_being\_used == SKILL\_SCIENCE) then begin

      script\_overrides;

      if (is\_success(roll\_vs\_skill(dude\_obj,action\_being\_used,0))) then

         display\_msg(mstr(102));

      else

         display\_msg(mstr(103));

   end else if (action\_being\_used == SKILL\_STEAL) then

      script\_overrides;

end

procedure map\_enter\_p\_proc begin

   critter\_add\_trait(self\_obj,TRAIT\_OBJECT,OBJECT\_TEAM\_NUM,TEAM\_SPORE\_PLANT);

   critter\_add\_trait(self\_obj,TRAIT\_OBJECT,OBJECT\_AI\_PACKET,AI\_SPORE\_PLANT);

end