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 Posts

Latest Profile Posts

I'm making Toilet in Wonderland 2. and tell vinny about it lol
WE ARE THE BORG. YOUR BIOLOGICAL AND TECHNOLOGICAL DISTINCTIVENESS WILL BE ADDED TO OUR OWN. RESISTANCE IS FUTILE.
D2R save files are so broken. how was the beta test better then the full release. blizzard's last hope crashed and burned.
they're getting no more chances from me.
Anyone going to talk about Chris Pratt Mario?

Forum statistics

Threads
115,338
Messages
1,089,124
Members
150,011
Latest member
D3sty
Top