The PokéCommunity Forums Fan Games Game Development Scripts, Tutorials & Tools
Essentials Script Easy Alolan Forms Script

Scripts, Tutorials & Tools This forum is for scripts and code, as well as all kinds of tutorials, software, tools and so forth. Remember to give credit!
The thread revival limit does not apply here.

Reply
 
Thread Tools
  #1    
Old December 11th, 2016 (10:04 PM). Edited January 24th, 2017 by rigbycwts.
rigbycwts's Avatar
rigbycwts rigbycwts is offline
Hmm, hmm.
     
    Join Date: Mar 2013
    Gender: Male
    Nature: Timid
    Posts: 98
    To avoid breaking codes, set the thread to Printable Version.

    In Pokemon_MultipleForms, put the following below Hoopa's MultipleForms entry.
    The alternate evolution methods for Alolan Pokemon can be found here.
    Code:
    ###############################################################################
    # Alolan Forms
    ###############################################################################
    ALOLAN_SPAWN_MAPS = [2,5,39,41,44,69] # Map IDs for Alolan Forms
    
    MultipleForms.register(:PICHU,{
    "getFormOnCreation"=>proc{|pokemon|
       maps=ALOLAN_SPAWN_MAPS
       if $game_map && maps.include?($game_map.map_id)
         next 7 # 7 because forms 1-6 are used by Cosplay Pikachu and Ash's Pikachu. For Pichu, form 1 is the spiky-eared Pichu.
       else
         next 0
       end
    }
    })
    
    MultipleForms.copy(:PICHU,:PIKACHU)
    
    MultipleForms.register(:RAICHU,{
    "getFormOnCreation"=>proc{|pokemon|
       maps=ALOLAN_SPAWN_MAPS
       if $game_map && maps.include?($game_map.map_id)
         next 7
       else
         next 0
       end
    },
    "type2"=>proc{|pokemon|
       next getID(PBTypes,:PSYCHIC) if pokemon.form==7
       next
    },
    "height"=>proc{|pokemon|
       next 0.7 if pokemon.form==7
       next
    },
    "weight"=>proc{|pokemon|
       next 21.0 if pokemon.form==7
       next
    },
    "getAbilityList"=>proc{|pokemon|
       if pokemon.form==7
         next [[getID(PBAbilities,:SURGESURFER),0],
                 [getID(PBAbilities,:SURGESURFER),2]]
       end
       next
    },
    "onSetForm"=>proc{|pokemon,form|
       pbSeenForm(pokemon)
    }
    })
    
    MultipleForms.register(:RATTATA,{
    "getFormOnCreation"=>proc{|pokemon|
       maps=ALOLAN_SPAWN_MAPS
       if $game_map && maps.include?($game_map.map_id)
         next 1
       else
         next 0
       end
    },
    "type1"=>proc{|pokemon|
       next getID(PBTypes,:DARK) if pokemon.form==1
       next
    },
    "type2"=>proc{|pokemon|
       next getID(PBTypes,:NORMAL) if pokemon.form==1
       next
    },
    "weight"=>proc{|pokemon|
       next 3.8 if pokemon.form==1
       next
    },
    "getAbilityList"=>proc{|pokemon|
      next if pokemon.form==0                    # Normal
      next [[getID(PBAbilities,:GLUTTONY),0],
            [getID(PBAbilities,:HUSTLE),1],
            [getID(PBAbilities,:THICKFAT),2]]    # Alolan
    },
    "onSetForm"=>proc{|pokemon,form|
       pbSeenForm(pokemon)
    }
    })
    
    # Used to determine whether Exeggcute evolves into Normal or Alolan Exeggutor
    MultipleForms.register(:EXEGGCUTE,{
    "getFormOnCreation"=>proc{|pokemon|
       maps=ALOLAN_SPAWN_MAPS
       if $game_map && maps.include?($game_map.map_id)
         next 1
       else
         next 0
       end
    }
    })
    
    MultipleForms.register(:EXEGGUTOR,{
    "getFormOnCreation"=>proc{|pokemon|
       maps=ALOLAN_SPAWN_MAPS
       if $game_map && maps.include?($game_map.map_id)
         next 1
       else
         next 0
       end
    },
    "type2"=>proc{|pokemon|
       next getID(PBTypes,:DRAGON) if pokemon.form==1 # Alolan
       next                                           # Normal
    },
    "getAbilityList"=>proc{|pokemon|
       case pokemon.form
       when 1; next [[getID(PBAbilities,:FRISK),0]] # Alolan
       else;   next                                 # Normal
       end
    },
    "getBaseStats"=>proc{|pokemon|
       next if pokemon.form==0       # Normal
       next [95,105,85,45,125,75]   # Alolan
    },
    "height"=>proc{|pokemon|
       next if pokemon.form==0    # Normal
       next 109                   # Alolan
    },
    "weight"=>proc{|pokemon|
       next if pokemon.form==0   # Normal
       next 4156                 # Alolan
    },
    "dexEntry"=>proc{|pokemon|
       next if pokemon.form==0   # Normal
       next _INTL("As it grew taller and taller, it outgrew its reliance on psychic powers, while within it awakened the power of the sleeping dragon.")       # Alolan
    },
    "getMoveList"=>proc{|pokemon|
       next if pokemon.form==0
       movelist=[]
       case pokemon.form
       when 1; movelist=[[1,:DRAGONHAMMER],[1,:SEEDBOMB],[1,:BARRAGE],[1,:HYPNOSIS],
                         [1,:CONFUSION],[17,:PSYSHOCK],[27,:EGGBOMB],[37,:WOODHAMMER],
                         [47,:LEAFSTORM]]
       end
       for i in movelist
         i[1]=getConst(PBMoves,i[1])
       end
       next movelist
    },
    "getMoveCompatibility"=>proc{|pokemon|
       next if pokemon.form==0
       movelist=[]
       case pokemon.form
       when 1; movelist=[# TMs
                         :TOXIC,:VENOSHOCK,:HIDDENPOWER,:SUNNYDAY,:HYPERBEAM,
                         :PROTECT,:RAINDANCE,:SAFEGUARD,:FRUSTRATION,:EARTHQUAKE,
                         :RETURN,:DIG,:PSYCHIC,:SHADOWBALL,:DOUBLETEAM,
                         :SANDSTORM,:ROCKTOMB,:FACADE,:REST,:ATTRACT,
                         :THIEF,:ROUND,:GIGAIMPACT,:FLASH,:STRUGGLEBUG,
                         :PSYCHUP,:BULLDOZE,:DRAGONTAIL,:DREAMEATER,:SWAGGER,
                         :SUBSTITUTE,
                         # Move Tutors
                         :BUGBITE,:EARTHPOWER,:ELECTROWEB,:ENDEAVOR,:MUDSLAP,
                         :SIGNALBEAM,:SKILLSWAP,:SLEEPTALK,:SNORE,:STEALTHROCK,
                         :STRINGSHOT,:SUCKERPUNCH,:UPROAR,:DRACOMETEOR]
       end
       for i in 0...movelist.length
         movelist[i]=getConst(PBMoves,movelist[i])
       end
       next movelist
    }
    })
    __________________
    Coming soon: Pokemon Collective and Mercantile Versions.

    My college-life-advice blog.
    Reply With Quote
      #2    
    Old December 13th, 2016 (4:45 PM).
    Rinkoou's Avatar
    Rinkoou Rinkoou is offline
    Awful-Pun Master
       
      Join Date: Sep 2016
      Location: the Internet
      Gender: Male
      Nature: Naughty
      Posts: 54
      This is neat. Good job!
      __________________
      I ask stupid questions because my brain is nonexistant.
      Reply With Quote
        #3    
      Old December 27th, 2016 (12:05 PM).
      icsir3's Avatar
      icsir3 icsir3 is offline
         
        Join Date: Aug 2016
        Location: Hungary
        Gender: Male
        Nature: Relaxed
        Posts: 30
        What about Alolan Vulpix? It evolves in a different way than it's Kanto variant.
        Reply With Quote
          #4    
        Old December 28th, 2016 (11:41 AM).
        Rot8er_ConeX's Avatar
        Rot8er_ConeX Rot8er_ConeX is offline
           
          Join Date: May 2015
          Location: The Dissa Region
          Gender: Male
          Posts: 822
          Quote:
          Originally Posted by icsir3 View Post
          What about Alolan Vulpix? It evolves in a different way than it's Kanto variant.
          That would require editing PBS files and editing the evolution script
          __________________
          Features of Pokemon Entropy

          The black circular "doodles" in the lower right corner of my avatar are actually my username written in Gallifreyan. Yes I'm a Whovian.
          Reply With Quote
            #5    
          Old December 28th, 2016 (1:02 PM).
          icsir3's Avatar
          icsir3 icsir3 is offline
             
            Join Date: Aug 2016
            Location: Hungary
            Gender: Male
            Nature: Relaxed
            Posts: 30
            Quote:
            Originally Posted by Rot8er_ConeX View Post
            That would require editing PBS files and editing the evolution script
            I'm not really good at that :/
            Reply With Quote
              #6    
            Old December 29th, 2016 (5:51 PM). Edited January 24th, 2017 by rigbycwts.
            rigbycwts's Avatar
            rigbycwts rigbycwts is offline
            Hmm, hmm.
               
              Join Date: Mar 2013
              Gender: Male
              Nature: Timid
              Posts: 98
              Quote:
              Originally Posted by Rot8er_ConeX View Post
              That would require editing PBS files and editing the evolution script
              Too bad the MultipleForms script has no method to define the evolution method.
              EDIT: Added a link to the Alolan evolution methods thread on the first post.
              __________________
              Coming soon: Pokemon Collective and Mercantile Versions.

              My college-life-advice blog.
              Reply With Quote
              Reply

              Quick Reply

              Join the conversation!

              Create an account to post a reply in this thread, participate in other discussions, and more!

              Create a PokéCommunity Account
              Thread Tools

              Posting Rules
              You may not post new threads
              You may not post replies
              You may not post attachments
              You may not edit your posts

              BB code is On
              Smilies are On
              [IMG] code is On
              HTML code is Off

              Forum Jump


              All times are GMT -8. The time now is 11:42 AM.