• Just a reminder that providing specifics on, sharing links to, or naming websites where ROMs can be accessed is against the rules. If your post has any of this information it will be removed.
  • Ever thought it'd be cool to have your art, writing, or challenge runs featured on PokéCommunity? Click here for info - we'd love to spotlight your work!
  • Which Pokémon Masters protagonist do you like most? Let us know by casting a vote in our Masters favorite protagonist poll here!
  • Red, Hilda, Paxton, or Kellyn - which Pokémon protagonist is your favorite? Let us know by voting in our poll!
  • Welcome to PokéCommunity! Register now and join one of the best fan communities on the 'net to talk Pokémon and more! We are not affiliated with The Pokémon Company or Nintendo.
    Register

[Essentials Tutorial] Gen II Berries

PiaCRT

PiaCRT

Orange Dev
  • Poké Ball Great Ball Ultra Ball Premier Ball
    • 945
    Posts
    14
    Years
    Quick Edit: I am not sure if editing how the Mystery Berry heals PP will affect Ether. It may need to be defined separately. Sorry if it messes with it, I didn't think about it. If you want to make it 10 again, go to PokeBattle_Battler and find "pokemove.pp=5" change the 5 to 10.

    Hello again PC, I'm just feeling nice today so I've decided to release my Generation II berries. This will simply replace a few berries in your items.txt and I have also included the PBS files for Pokemon that have these berries in the wild. If a trainer has a berry that Essentials does not recognize, it WILL let you know, do just open up Trainers.txt and replace any berries (by default there's a trainer with Sitrus Berry, replace it with Gold Berry). It's a lot of script editing due to the item name changes, but it's good practice for those who want to do something similar. Without further ado, here we go:

    First off, go into your items.txt go to line 389. Now, replace lines 389 through 398 with this:
    Code: 
    389,PRZCUREBERRY,PrzCureBerry,5,20,A self-cure for paralysis. (HOLD),1,1,1,
390,MINTBERRY,Mint Berry,5,20,A self-awakening for sleep. (HOLD),1,1,1,
391,PSNCUREBERRY,PsnCureBerry,5,20,A self-cure for poison. (HOLD),1,1,1,
392,ICEBERRY,Ice Berry,5,20,A self-heal for a burn. (HOLD),1,1,1,
393,BURNTBERRY,Burnt Berry,5,20,A self-cure for freezing. (HOLD),1,1,1,
394,MYSTERYBERRY,MysteryBerry,5,20,A self-restore for PP. (HOLD),1,1,1,
395,BERRY,Berry,5,20,"A self-restore item. (10HP, HOLD)",1,1,1,
396,BITTERBERRY,Bitter Berry,5,20,A self-cure for confusion. (HOLD),0,1,1,
397,MIRACLEBERRY,MiracleBerry,5,20,Eliminates all status problems.,1,1,1,
398,GOLDBERRY,Gold Berry,5,20,"A self-restore item. (30HP, HOLD)",1,1,1,

    Now, replace your Pokemon.txt with this: https://www.dropbox.com/s/hvenh8cog0hxzzo/pokemon.txt
    If you have a custom Pokedex, you'll have to replace them manually. I suggest Notepad++

    Now to make them work ingame.
    First, go to the script PokeBattle_Battler, line 1044.

    Replace 1044-1141 with this:
    Code: 
            if isConst?(self.item,PBItems,:BERRY) && self.hp<=(self.totalhp/2).floor
          self.pbRecoverHP(10,true)
          @battle.pbDisplay(_INTL("{1}'s {2} restored health!",pbThis,itemname))   
          @pokemon.itemRecycle=self.item
          @pokemon.itemInitial=0 if @pokemon.itemInitial==self.item
          self.item=0
        end
        if isConst?(self.item,PBItems,:GOLDBERRY) && self.hp<=(self.totalhp/2).floor
          self.pbRecoverHP((self.totalhp/4).floor,true)
          @battle.pbDisplay(_INTL("{1}'s {2} restored health!",pbThis,itemname))   
          @pokemon.itemRecycle=self.item
          @pokemon.itemInitial=0 if @pokemon.itemInitial==self.item
          self.item=0
        end
      end
      if isConst?(self.item,PBItems,:PRZCUREBERRY) && self.status==PBStatuses::PARALYSIS
        self.status=0
        @battle.pbDisplay(_INTL("{1}'s {2} cured its paralysis problem!",pbThis,itemname))
        @pokemon.itemRecycle=self.item
        @pokemon.itemInitial=0 if @pokemon.itemInitial==self.item
        self.item=0
      end
      if isConst?(self.item,PBItems,:MINTBERRY) && self.status==PBStatuses::SLEEP
        self.status=0
        @battle.pbDisplay(_INTL("{1}'s {2} cured its sleep problem!",pbThis,itemname))
        @pokemon.itemRecycle=self.item
        @pokemon.itemInitial=0 if @pokemon.itemInitial==self.item
        self.item=0
      end
      if isConst?(self.item,PBItems,:PSNCUREBERRY) && self.status==PBStatuses::POISON
        self.status=0
        @battle.pbDisplay(_INTL("{1}'s {2} cured its poison problem!",pbThis,itemname))
        @pokemon.itemRecycle=self.item
        @pokemon.itemInitial=0 if @pokemon.itemInitial==self.item
        self.item=0
      end
      if isConst?(self.item,PBItems,:ICEBERRY) && self.status==PBStatuses::BURN
        self.status=0
        @battle.pbDisplay(_INTL("{1}'s {2} cured its burn problem!",pbThis,itemname))
        @pokemon.itemRecycle=self.item
        @pokemon.itemInitial=0 if @pokemon.itemInitial==self.item
        self.item=0
      end
      if isConst?(self.item,PBItems,:BURNTBERRY) && self.status==PBStatuses::FROZEN
        self.status=0
        @battle.pbDisplay(_INTL("{1}'s {2} cured its ice problem!",pbThis,itemname))
        @pokemon.itemRecycle=self.item
        @pokemon.itemInitial=0 if @pokemon.itemInitial==self.item
        self.item=0
      end
      if hpcure && isConst?(self.item,PBItems,:MYSTERYBERRY)
        for i in [email protected]
          [email protected][i]
          battlermove=self.moves[i]
          if pokemove.pp==0 && pokemove.id!=0
            movename=PBMoves.getName(pokemove.id)
            pokemove.pp=5
            pokemove.pp=pokemove.totalpp if pokemove.pp>pokemove.totalpp 
            battlermove.pp=pokemove.pp
            @battle.pbDisplay(_INTL("{1}'s {2} restored {3}'s PP!",pbThis,itemname,movename)) 
            @pokemon.itemRecycle=self.item
            @pokemon.itemInitial=0 if @pokemon.itemInitial==self.item
            self.item=0
            break
          end
        end
      end
      if isConst?(self.item,PBItems,:BITTERBERRY) && @effects[PBEffects::Confusion]>0
        @effects[PBEffects::Confusion]=0
        @battle.pbDisplay(_INTL("{1}'s {2} cured its confusion problem!",pbThis,itemname))
        @pokemon.itemRecycle=self.item
        @pokemon.itemInitial=0 if @pokemon.itemInitial==self.item
        self.item=0
      end
      if isConst?(self.item,PBItems,:MIRACLEBERRY) && (self.status>0 || @effects[PBEffects::Confusion]>0)
        st=self.status; conf=@effects[PBEffects::Confusion]
        self.status=0
        @effects[PBEffects::Confusion]=0
        if conf
          @battle.pbDisplay(_INTL("{1}'s {2} cured its confusion problem!",pbThis,itemname))
        else
          case st
            when PBStatuses::PARALYSIS
              @battle.pbDisplay(_INTL("{1}'s {2} cured its paralysis problem!",pbThis,itemname))
            when PBStatuses::SLEEP
              @battle.pbDisplay(_INTL("{1}'s {2} cured its sleep problem!",pbThis,itemname))
            when PBStatuses::POISON
             @battle.pbDisplay(_INTL("{1}'s {2} cured its poison problem!",pbThis,itemname))
            when PBStatuses::BURN
              @battle.pbDisplay(_INTL("{1}'s {2} cured its burn problem!",pbThis,itemname))
            when PBStatuses::FROZEN
              @battle.pbDisplay(_INTL("{1}'s {2} cured its frozen problem!",pbThis,itemname))
          end
        end
        @pokemon.itemRecycle=self.item
        @pokemon.itemInitial=0 if @pokemon.itemInitial==self.item
        self.item=0
      end

    This will make it so that berries will work correctly, and Mystery Berries will heal 5 PP.


    Now we go to PokeBattle_MoveEffects at line 3532. We will replace this:
    Spoiler:

    With this:

    Code: 
      def pbBaseDamage(basedmg,attacker,opponent)
    damagearray={
       60 => [:PSNCUREBERRY,:MINTBERRY,:PRZCUREBERRY,:ICEBERRY,:BURNTBERRY,
              :MYSTERYBERRY,:BERRY,:BITTERBERRY,:MIRACLEBERRY,:GOLDBERRY,
              :FIGYBERRY,:WIKIBERRY,:MAGOBERRY,:AGUAVBERRY,:IAPAPABERRY,
              :RAZZBERRY,:OCCABERRY,:PASSHOBERRY,:WACANBERRY,:RINDOBERRY,
              :YACHEBERRY,:CHOPLEBERRY,:KEBIABERRY,:SHUCABERRY,:COBABERRY,
              :PAYAPABERRY,:TANGABERRY,:CHARTIBERRY,:KASIBBERRY,:HABANBERRY,
              :COLBURBERRY,:BABIRIBERRY,:CHILANBERRY],
       70 => [:BLUKBERRY,:NANABBERRY,:WEPEARBERRY,:PINAPBERRY,:POMEGBERRY,
              :KELPSYBERRY,:QUALOTBERRY,:HONDEWBERRY,:GREPABERRY,:TAMATOBERRY,
              :CORNNBERRY,:MAGOSTBERRY,:RABUTABERRY,:NOMELBERRY,:SPELONBERRY,
              :PAMTREBERRY],
       80 => [:WATMELBERRY,:DURINBERRY,:BELUEBERRY,:LIECHIBERRY,:GANLONBERRY,
              :SALACBERRY,:PETAYABERRY,:APICOTBERRY,:LANSATBERRY,:STARFBERRY,
              :ENIGMABERRY,:MICLEBERRY,:CUSTAPBERRY,:JACOBABERRY,:ROWAPBERRY]
    }

    Just a little under that at line 3560-3579, replace with this:
    Spoiler:

    Now, we need to fix berry plants.

    In the script PokemonBerryPlants, on line 14 you will be replacing everything from class to the last berry array (right before "Replants=9")

    Spoiler:

    Now, we go to PokemonItemEffects. This one is sprawled out so I'll let you do the editing, but I'll tell you where to go and what to do.

    Line 204. Replace ORANBERRY and SITRUSBERRY with BERRY and GOLDBERRY, respectively.
    Line 225, replace CHESTOBERRY with MINTBERRY.
    Line 240, PECHABERRY to PSNCUREBERRY.
    Line 254, RAWSTBERRY to ICEBERRY.
    Line 269, CHERIBERRY to PRZCUREBERRY.
    Line 283, ASPEARBERRY to BURNTBERRY.
    Line 299, LUMBERRY to MIRACLEBERRY.
    Line 403, LEPPABERRY to MYSTERYBERRY.
    Line 1021, Replace ORANBERRY and SITRUSBERRY with BERRY and GOLDBERRY, respectively.
    Line 1043, replace CHESTOBERRY with MINTBERRY.
    Line 1059, PECHABERRY to PSNCUREBERRY.
    Line 1074, RAWSTBERRY to ICEBERRY.
    Line 1089, CHERIBERRY to PRZCUREBERRY.
    Line 1104, ASPEARBERRY to BURNTBERRY.
    Line 1122, LUMBERRY to MIRACLEBERRY.
    Line 1250, LEPPABERRY to MYSTERYBERRY.

    (Again, programs like Notepad++ help a ton!)

    One script left to edit.
    PokemonOrgBattleGenerator

    Replace the array at line 385 with this:
    Code: 
        itemlist=[
       :BERRY,:GOLDBERRY,:ADAMANTORB,:BABIRIBERRY,
       :BLACKSLUDGE,:BRIGHTPOWDER,:CHESTOBERRY,:CHOICEBAND,
       :CHOICESCARF,:CHOICESPECS,:CHOPLEBERRY,:DAMPROCK,
       :DEEPSEATOOTH,:EXPERTBELT,:FLAMEORB,:FOCUSSASH,
       :FOCUSBAND,:HEATROCK,:LEFTOVERS,:LIFEORB,:LIGHTBALL,
       :LIGHTCLAY,:MYSTERYBERRY,:OCCABERRY,:PETAYABERRY,:SALACBERRY,
       :SCOPELENS,:SHEDSHELL,:SHELLBELL,:SHUCABERRY,:LIECHIBERRY,
       :SILKSCARF,:THICKCLUB,:TOXICORB,:WIDELENS,:YACHEBERRY,
       :HABANBERRY,:SOULDEW,:PASSHOBERRY,:QUICKCLAW,:WHITEHERB
    ]

    Line 476, Replace ORANBERRY and SITRUSBERRY with BERRY and GOLDBERRY, respectively.
    Do the same at line 480.
    Line 598, replace LUMBERRY and CHESTOBERRY with MIRACLEBERRY and MINTBERRY, respectively.

    And you should be done! I may have missed a line of code, but it's working just fine for me. Let me know if a bug occurs. The reason why I did this myself is because I was tired of calling for Oran Berries when it was called a Berry ingame.

    In any new release of Essentials always check for berries when using this. Maruno may sneak something in there :I

    Enjoy, and feedback is appreciated.
     
    Last edited:
    You must log in or register to reply here.
    Back
    Top