Abagail Asta

Programer by birth
Veteran
Joined
Oct 21, 2013
Messages
33
Reaction score
35
First Language
Russian
Primarily Uses
I will update this as much as I can. :) saddly I have alot of other things to take care of as well so this is not my first prioraty this is also my first post so dont be mad if this is a crummy post.

I DONT CLAIM POKEMON ESSENTIALS TO BE MINE ALTHOUGH I HAVE MADE A LOT OF CHANGES!!

so there are common scripts and not common scripts we will start with common scripts.

_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._

Common script:

give one pokemon to party if full the to box = pbAddPokemon:)<name of the pokemon species>,<Level>)

give one pokemon to party only = pbAddToParty:)<name of the pokemon species>,<Level>)

give a ribon = p=$Trainer.pokemonParty[0]
ret=p.upgradeRibbon:)HOENNCOOL,
                    :HOENNCOOLSUPER,
                    :HOENNCOOLHYPER,
                    :HOENNCOOLMASTER)
pbSet(1,ret)
pbSet(2,p.name)
if ret>0
  pbSet(3,PBRibbons.getName(ret))
end


your pc = pbTrainerPC

pokemon center pc = pbPokeCenterPC

give all badges = for i in 0...16
 $Trainer.badges=true
end


choose a pokemon thats not an egg = pbChooseNonEggPokemon(1,2)

Use this for a berry tree just tells the program that when acted upon to pick the berry = pbPickBerry(PBItems::<bery name>,<amount>)

Use this for bery tree tels the program that it is a berry tree = pbBerryPlant

Takes an item from the player =  $PokemonBag.pbDeleteItem(pbGet(<number not sure what it does>))

This one is self explanatory <chooses a non egg pokemon> = pbChooseNonEggPokemon(1,2)

 

Uncommon

 

Looks at the total EVs of the lead Pokémon, and rewards a ribbon to it if the total is maxed (255). =
p=$Trainer.pokemonParty[0]
ev=0
for i in 0...6
  ev+=p.ev
end
maxed=(ev>=255) ? 1 : 0
maxed=2 if p.hasRibbon?:)EFFORT)
pbSet(1,p.name)
pbSet(2,maxed)


give pokegear = $Trainer.pokegear=true
give running shoes = $PokemonGlobal.runningShoes=true

give pokedex = $Trainer.pokedex=true

checks the selected pokemons happiness = poke=pbGetPokemon(1)
h=poke.happiness
stage=0
stage=1 if h>=1
stage=2 if h>=50
stage=3 if h>=100
stage=4 if h>=150
stage=5 if h>=200
stage=6 if h>=255
pbSet(3,stage)


Kurts script parts = pbChooseItemFromList(
_I("<c2=6546675A>Which Apricorn would you like me to convert?"),8,
:REDAPRICORN,:YLWAPRICORN,:BLUAPRICORN,
:GRNAPRICORN,:pNKAPRICORN,:WHTAPRICORN,
:BLKAPRICORN)


 

+

 

$PokemonBag.pbDeleteItem(pbGet(8))

 

+

 

pbSet(3,PBItems.getName(pbGet(8)))

 

+

 

arr=[:REDAPRICORN,:LEVELBALL,
:YLWAPRICORN,:MOONBALL,:BLUAPRICORN,:LUREBALL,
:GRNAPRICORN,:FRIENDBALL,:pNKAPRICORN,:LOVEBALL,
:WHTAPRICORN,:FASTBALL,:BLKAPRICORN,:HEAVYBALL]
item=pbGet(8); pbSet(8,0)
for i in 0...(arr.length/2)
  if item==getID(PBItems,arr[2*i])
    pbSet(8,getID(PBItems,arr[2*i+1]))
    break
  end


 

+

 

pbSetEventTime

 

Nurse joy = Kernel.pbSetPokemonCenter

+

pbSet(6,$Trainer.party.length)

 

To set you game to debug = $DEBUG=true

 

Download the contents of the file at the given web address, and call it "string". If something was downloaded, save it to Variable 1. If nothing was downloaded, save an error message
to Variable 1 instead. = string=pbDownloadToString(
   "http://upokecenter.com/downloadtest.txt"
)
if string==""
  pbSet(1,_I("The download failed."))
else
  pbSet(1,string)

end

 

gets an able pokemon. An able pokemon is a non-egg non-fainted Pokemon = pbFirstAblePokemon(1)

 

 
 
Last edited by a moderator:

cosmickitty

Veteran
Veteran
Joined
Oct 15, 2012
Messages
406
Reaction score
147
First Language
English
Primarily Uses
Umm... Maybe it's cut off because I'm on a mobile device, but I don't see how this is a complete script

also, if you didnt create the script you should credit whoever did
 

kerbonklin

Hiatus King
Veteran
Joined
Jan 6, 2013
Messages
1,726
Reaction score
276
First Language
English
Primarily Uses
RMMV
^

There's no link or script provided at all here... Kinda looks like it got cut off? (No "Uncommon" at least...)

You might want to fix this up quick before a mod sees this.
 
Last edited by a moderator:

Abagail Asta

Programer by birth
Veteran
Joined
Oct 21, 2013
Messages
33
Reaction score
35
First Language
Russian
Primarily Uses
because i posted this today and i have school sometimes there was a shortege in what i could do also thank you for a comment and i did credit pokemon essentials i just dont know who made pokemon essentials and for a final these are code snipets like say you want to give the player a pokemon but dont know how to thats why this is here.
 

Latest Threads

Latest Profile Posts

Bengawan Solo with fantasy style arrangement. :D
So I just got my computer back (Was posting stuff on my phone) But now my dang monitor's broken! I'll need to get a new one, which means... JOBS! Yaaay... When I get a new monitor, I'll post picture of one of my RPGMMV projects.
Wish me luck... :kaodes:
Had to clean up disk space because Windows Updates was having my primaries' disk space for breakfast, lunch and dinner. I guess the clean up thingy doesn't work or something because there were 15gigs of old update files in it.
Monday morning, and the sudden message: Hey, can you set up a full second lesson about pixel art till tomorrow?

Forum statistics

Threads
115,892
Messages
1,093,770
Members
151,139
Latest member
ibbicool
Top