Rooba
/
pokeemerald
mirror of https://github.com/pret/pokeemerald.git
1
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity
Page: Shuckle makes Berry Juice
Pages
Ability Switcher via special Add A PokeVial Item Add Ability to Avoid Battle Damage in Debug Menu Add Ability to Swap Bikes Whenever Add Choice Specs Scarf hold item effects Add Description Submenu Add Difficulty Mode Add In‐Cart Rumble Add Nuzlocke Challenge Add PC Access in PokeNav Add Physical Special Split Add Sleep Mode Add Thief Ball Add a EV IV Stat Editor UI Add a debug menu Adding Multi region Support Adding Support for Connectivity with Other Hacks Whilst Maintaining Connectivity with Vanilla Adding Time Based Encounters Adding Walking Animations to All NPCs Adding a New Trainer Class Adding a New Trainer Front Picture Adding a Pokémon Type & Disabling the Mystery Type Adding new event object or overworld sprites All Trees Permanently Get Cut Allow All Pokemon to Evolve Without Trading Allow Both Latios and Latias Appear. Allow Feebas to be caught on any Valid Fishing Spot in Route 119 rather than only Three Allow Jumping Over Ledges with Acro Bike Allow Move Relearner to Teach Moves that Pre Evolutions Know Allow Running From Trainer Battles Allow running indoors Amulet Coin Effects If Anyone In Party is Holding It Automatically make the keyboard switch to lowercase after the first character Better White Out Money Calculation Button Press to Skip Copyright Screen Chain Fishing Change Enemy Trainer Parties Depending on Difficulty Change Someone's PC to Lanette's PC from the Start of the Game Change Starter Pokémon Change Time Based Evolution Times Change initial PC items Changing the Battle Music Depending on the Opponent Colored stats by nature in summary screen Converting to FR Tilesets Custom Battle Mugshots Custom Border Dimensions Debugging using gdb (Windows, WSL2, Visual Studio Code mGBA) Debugging using printf Disable Bag Use In Battle Disable Catching Pokemon Disable Pokémon animation on Birch's intro Pokémon Disabling Union Room check when entering Pokémon Centers Dynamic Trade Names Dynamic overworld palette system Enable the Reset RTC Feature Enable trade with FRLG without beating the game Expanding The Metatile Count Extra save space with three lines of code Faster HP Drain Feature Branches Fish Will Now Always Get on Hook Fix AI's Switch In Battle Fix Snow Weather Fixing the aspect ratio of the Pokémon logo on the title screen Forcing Battle Animations for Major Battles Full Screen Start Menu by Archie and Mudskip Gen 6 Exp Share Gen 6 style Exp. Share Alternative Option Get Match Calls Only If Caller Wants a Rematch Get Rid of Battery Run Dry Error Message Get Rid of Pokemon Disobeying You Holding Select Allows For A Second Register Item Home How the Game Works How to Support Savefile Backwards Compatibility How to add a new Pokémon species How to add a new ability How to add a new region map How to create a new regular trainer battle How to delete a map Implement Missing Text Function RESET_FONT Implementing Catch EXP Implementing ipatix's High Quality Audio Mixer Implementing the “textcolor” script command from FRLG and give object events their own text colour Improve Partner Battle Code Improve the Loading of Battle Terrain Improving the WaitForVBlank function Increase money limit Infinite TM usage Instead of Asking to Stop learning a New Move, You'll be Asked to Continue Learning Item Automatically Goes to PC if Bag is Full Keep the Camera from Making Waves LGPE Style Bonus Premier Balls Learn moves upon evolution List Menu Text Coloring Make Cleanse Tag Avoid All Wild Encounters and Usable If Held By Anyone in Your Party; Make PokeDoll Do the Same for Trainers Seeing You Make Daycare Faster at Leveling Pokémon Make Key Items That Cannot Be Used In The Field Not Show A Use or Register Option Make L Button Be Turbo A When L=A Option Is Set Make Ledge Jumps Check Collision Make Move Relearner Teach Egg Moves With A Flag Make Multiple Secret Bases Make Norman's Slaking Have Ability Intimidate Make Pokemon Not Heal When Going into PC Make Pokemon that Require a Fateful Encounter to be Legal to Always Be Set to Legal Make space for EWRAM Data for Summary screen Make the Bag Able to Hold 120 Items Instead of 30 Make the Person in the Intro Match the the Save File Map Based Trainer Battle Music Move Item Multipage Options Menu Name Rater Allows Traded Pokemon to be Renamed New Birch's Briefcase With Fully Custom Starters by Archie and Mudskip New Custom Menu Border Themes (Basic) New Main Menu UI With Mugshot by Archie and Mudskip New Options Plus ‐ Multipage Options Menu with Faster Text, HP‐EXP Bar Speeds and Metric Nickname your Pokémon from the party menu Not showing dex entries until getting the Pokédex Omnidirectional Jump Optimization ‐ Remove Expensive and Redundant `BuildColorMaps()` Function Option to Skip Copyright and Intro Overview: Items and their Effects Overview: The Party Menu Overview∶ The Game Loop Overview∶ The Task System Per Shop\Mart Item Prices Plural Giveitem Pokecenters Disregard Eggs Prompt for reusing Repels Push B in wild battle moves to Run Push B to Toggle Running Shoes Pushing B When Asked To Stop Learning Move Will Cancel Teaching The Move Quickly Run from a Battle by Holding Right While the Wild Pokémon's Name Appears Raise Odds of Catching a Pokemon by Pressing B When the Ball Shakes Random Info, Tips, and Tricks Reflections Remove 'Select' Sound From Specific Map Events Remove Warp Fadescreen Remove badge boosts Remove the backup save file Remove the extra save confirmation Remove the functionally redundant move grammar tables Repeated Field Medicine Use Reuse filler save space for Variables and Flags Revert Brendan May Sprites to Ruby Sapphire Set Metatile IDs From Another Map Set Up Item Balls on a Map Without Needing New Scripts Shifting to Pokémon Already in Battle Exits the Shift Menu Shiny Creation With a Flag Shop Items By Badge Count Show IVs EVs in Summary Screen Show Species That You're Switching For in the Party Menu Show Type Effectiveness In Battle Using Pre Existing Function and Disable in Option Menu Show a throbber animation while the game is saving Shuckle makes Berry Juice Something doesn't work I need help etc. Spawn Invisible Player Speedy Nurse Joy Spinda Second Frame Spot Addition Stair Warps Supplementary Scripting Macros Surfing Dismount Ground Effects Temporarily Replace Player or Enemy Party Pokemon The Basics of Scripting Toggle Trainer Sight Trainer Backsprite Editing Trainer Class Based Poké Balls Trainer Scripts Trainers No Longer Spin to Face You Right As You Pass Them Trigger Map Scripts By Flag Triple layer metatiles Tutorials Tweaking the count of health beeps Uniquely Shuffle Array Update Sitrus Berry's effect to Gen 4 standard Use HMs Without Any Pokemon in your Party Knowing Them Useful Modding Tools Useful Scripting Specials Why You Should (Almost) Always Be Using 32‐Bit Variables in Your Code Why should I use this over binary hacking
1 Shuckle makes Berry Juice
Eduardo Quezada D'Ottone edited this page 2020-10-31 03:42:03 -03:00

In Gold, Silver and Crystal only, Shuckle could randomly make Berry Juice by holding a berry after winning a battle. Let's implement it back!

In src_battle_script_commands.c, search for the function Cmd_pickup and below both instances of if (ability == ABILITY_PICKUP, add the following block:

static void Cmd_pickup(void)
{
    s32 i;
    u16 species, heldItem;
    u8 ability;

    if (InBattlePike())
    {

    }
    else if (InBattlePyramid())
    {
        for (i = 0; i < PARTY_SIZE; i++)
        {
            species = GetMonData(&gPlayerParty[i], MON_DATA_SPECIES2);
            heldItem = GetMonData(&gPlayerParty[i], MON_DATA_HELD_ITEM);

            if (GetMonData(&gPlayerParty[i], MON_DATA_ABILITY_NUM))
                ability = gBaseStats[species].abilities[1];
            else
                ability = gBaseStats[species].abilities[0];

            if (ability == ABILITY_PICKUP
                && species != 0
                && species != SPECIES_EGG
                && heldItem == ITEM_NONE
                && (Random() % 10) == 0)
            {
                heldItem = GetBattlePyramidPickupItemId();
                SetMonData(&gPlayerParty[i], MON_DATA_HELD_ITEM, &heldItem);
            }
+           else if (species == SPECIES_SHUCKLE
+               && heldItem >= FIRST_BERRY_INDEX
+               && heldItem <= LAST_BERRY_INDEX)
+           {
+               if (!(Random() % 16))
+               {
+                   heldItem = ITEM_BERRY_JUICE;
+                   SetMonData(&gPlayerParty[i], MON_DATA_HELD_ITEM, &heldItem);
+               }
+           }
        }
    }
    else
    {
        for (i = 0; i < PARTY_SIZE; i++)
        {
            species = GetMonData(&gPlayerParty[i], MON_DATA_SPECIES2);
            heldItem = GetMonData(&gPlayerParty[i], MON_DATA_HELD_ITEM);

            if (GetMonData(&gPlayerParty[i], MON_DATA_ABILITY_NUM))
                ability = gBaseStats[species].abilities[1];
            else
                ability = gBaseStats[species].abilities[0];

            if (ability == ABILITY_PICKUP
                && species != 0
                && species != SPECIES_EGG
                && heldItem == ITEM_NONE
                && (Random() % 10) == 0)
            {
                s32 j;
                s32 rand = Random() % 100;
                u8 lvlDivBy10 = (GetMonData(&gPlayerParty[i], MON_DATA_LEVEL) - 1) / 10;
                if (lvlDivBy10 > 9)
                    lvlDivBy10 = 9;

                for (j = 0; j < (int)ARRAY_COUNT(sPickupProbabilities); j++)
                {
                    if (sPickupProbabilities[j] > rand)
                    {
                        SetMonData(&gPlayerParty[i], MON_DATA_HELD_ITEM, &sPickupItems[lvlDivBy10 + j]);
                        break;
                    }
                    else if (rand == 99 || rand == 98)
                    {
                        SetMonData(&gPlayerParty[i], MON_DATA_HELD_ITEM, &sRarePickupItems[lvlDivBy10 + (99 - rand)]);
                        break;
                    }
                }
            }
+           else if (species == SPECIES_SHUCKLE
+               && heldItem >= FIRST_BERRY_INDEX
+               && heldItem <= LAST_BERRY_INDEX)
+           {
+               if (!(Random() % 16))
+               {
+                   heldItem = ITEM_BERRY_JUICE;
+                   SetMonData(&gPlayerParty[i], MON_DATA_HELD_ITEM, &heldItem);
+               }
+           }
        }
    }

    gBattlescriptCurrInstr++;
}

And that's it!

~AsparagusEduardo

Go to top