Elite Battle 2015: Gen 5 battle skin

M3rein said:

EBS' settings

Click to expand...

• You may not re-distribute this system
• You may not bundle this system with other packs

? ?? said:

What do you think of the whole thing ? Will I get a "special authorisation" or will you do something like host the result plugin on your website ?

Click to expand...

? ?? said:

If I asked it's because that's really unclear x)
If by EBS you mean :
- Scripts (i wouldn't really use as base)
- The converter (I wrote a GIF Reader)
- The Graphical resources (It would be easier with this x))
- The UI disposition & animation (I think that was why I was asked ^^')

I won't use it and do something else for the guy who asked.

Click to expand...

• All the sprites for the 649 Pokemon (including the Egg sprites and cracks)
• The trainer Red backsprite by Tebited15
• The Gen 5 Pokeball spritesheet
• The battle backgrounds and bases by Eli and Lilatraube
• Sound effects ripped by BadSamaritan
• GIF to PNG converter (if dragonnite allows it)

Sandor1010 said:

It's just experimental, but I know it may become a bigger problem in the forseeable future. It would be much appreciated if anyone could help out.

Click to expand...

• Drimer's RGSS code injection/cheating tool
• Klein's Fast Map Exporter

JackRoland said:

Hello Luka, I have a problem with your battle system. I tried to change pokedex script but an error occurred in EliteBattle_BitmapWrapper
here-->

Spoiler:

---------------------------
Pokemon Essentials
---------------------------
Script 'EliteBattle_BitmapWrapper' line 341: NameError occurred.

undefined method `pbStartScene' for class `PokedexFormScene'
---------------------------
OK
---------------------------

Here is pokedex's script

Spoiler:

#===============================================================================
# * BW2 Pok?dex by shiney570 made from scratch.
#===============================================================================


# Generel Settings.

# Whether to use the new Pokedex or not.
USE_ADVANCED_BW2_POKEDEX = true

# Change to false if you don't use Luka S.J's Elite Battle 2015.
USING_BITMAP_WRAPPER = false
# Whether you want to see all forms on the form page no matter whether
# the player saw them or not.
ALWAYSSHOWALLFORMS = false
#===============================================================================
# * SET UP YOUR REGIONAL DEXES HERE
#===============================================================================

# - Choose between: Kanto ("Kanto")
# Johto ("Johto")
# Hoenn ("Hoenn")
# Sinnoh ("Sinnoh")
# Sinnoh2 ("Sinnoh2")
# Unova ("Unova")
# Unova2 ("Unova2")
# Custom ("Custom")
# None ("")

REGIONAL_DEX = "Unova2"
REGIONAL_DEX2= "Sinnoh2"

# This is just a quick example of a Custom Pok?dex. Just add and edit values
# of the array and change REGIONAL_DEX or REGIONAL_DEX2 to "Custom" to use
# your selfmade Pok?dex.
CUSTOM_DEX = [151,152,153,154,155,156,157,158,159,10,11,12,13,14]


# Change to false if you don't use Luka S.J's Elite Battle 2015.
USING_BITMAP_WRAPPER = true

# Dex Names which will appear in the Pok?dex.
def pbDexNames
return ["UNOVA","SINNOH","NATIONAL"]
end
#==============================================================================#
# * Regional Dex'es of already existing Pok?mon Editions. #
#==============================================================================#
$regional_dex_1=[]
$regional_dex_2=[]

# Gen 1 Dex.
if REGIONAL_DEX=="Kanto" || REGIONAL_DEX2=="Kanto"
kanto_dex=[]
for dex_num in 1..151
kanto_dex.insert(kanto_dex.length,dex_num)
end
$regional_dex_1=kanto_dex if REGIONAL_DEX=="Kanto"
$regional_dex_2=kanto_dex if REGIONAL_DEX2=="Kanto"
end

# Gen 2 Dex.
if REGIONAL_DEX=="Johto" || REGIONAL_DEX2=="Johto"
johto_dex=[152,153,154,155,156,157,158,159,160,16,17,18,21,22,163,164,19,
20,161,162,172,25,26,10,11,12,13,14,15,165,166,167,168,74,75,76,41,42,169,173,
35,36,174,39,40,175,176,27,28,23,24,206,179,180,181,194,195,92,93,94,201,95,
208,69,70,71,187,188,189,46,47,60,61,62,186,129,130,118,119,79,80,199,43,44,
45,182,96,97,63,64,65,132,204,205,29,30,31,32,33,34,193,469,191,192,102,103,
185,202,48,49,123,212,127,214,109,110,88,89,81,82,100,101,190,424,209,210,37,
38,58,59,234,183,184,50,51,56,57,52,53,54,55,66,67,68,236,106,107,237,203,128,
241,240,126,238,124,239,125,122,83,177,178,211,72,73,98,99,213,120,121,90,91,
222,223,223,170,171,86,87,108,463,114,465,133,134,135,136,169,197,116,117,230,
207,225,220,221,473,216,217,231,232,226,227,84,85,77,78,104,105,115,111,112,
198,228,229,218,219,215,200,137,233,113,242,131,138,139,140,141,142,143,1,2,3,
4,5,6,7,8,9,144,145,146,243,244,245,147,148,149,246,247,248,249,250,150,151,251]
$regional_dex_1=johto_dex if REGIONAL_DEX=="Johto"
$regional_dex_2=johto_dex if REGIONAL_DEX2=="Johto"
end

# Gen 3 Dex.
if REGIONAL_DEX=="Hoenn" || REGIONAL_DEX2=="Hoenn"
hoenn_dex=[252,253,254,255,256,257,258,259,260,261,262,263,264,265,266,
267,268,269,270,271,272,273,274,275,276,277,278,279,280,281,282,283,284,285,
286,287,288,289,63,64,65,290,291,292,293,294,295,296,297,118,119,129,130,298,
183,184,74,75,76,299,300,301,41,42,169,72,73,302,303,304,305,306,66,67,68,307,
308,309,310,311,312,81,82,100,101,313,314,43,44,45,182,84,85,315,316,317,318,
319,320,321,322,323,218,219,324,88,89,109,110,325,326,27,28,327,227,328,329,
330,331,332,333,334,335,336,337,338,339,340,341,342,343,344,345,346,347,348,
174,39,40,349,350,351,120,121,352,353,354,355,356,357,358,359,37,38,172,25,26,
54,55,360,202,177,178,203,231,232,127,214,111,112,361,362,363,364,365,366,367,
368,369,222,170,171,370,116,117,230,371,372,373,374,375,376,377,378,379,380,
381,382,383,384,385,386]
$regional_dex_1=hoenn_dex if REGIONAL_DEX=="Hoenn"
$regional_dex_2=hoenn_dex if REGIONAL_DEX2=="Hoenn"
end


# Gen 4 Dex.

# Gen 4 V2 Dex.
if REGIONAL_DEX=="Sinnoh" || REGIONAL_DEX2=="Sinnoh"
sinnoh2_dex=[387,388,389,390,391,392,393,394,395,396,397,398,399,400,401,402,
403,404,405,63,64,65,129,130,406,315,407,41,42,169,74,75,76,95,208,408,409,410,
411,66,67,68,54,55,412,413,414,256,266,267,268,269,415,416,417,418,419,420,421,
422,423,214,190,424,425,426,427,428,92,93,94,200,429,198,430,431,432,118,119,
340,433,358,434,435,307,308,436,437,77,78,438,185,439,122,440,113,242,173,35,
36,441,172,25,26,163,164,442,443,444,445,446,143,201,447,448,194,195,278,279,
203,449,450,298,183,184,451,452,453,454,455,223,224,456,457,72,73,349,350,458,
226,459,460,215,461,480,481,482,483,484]
$regional_dex_1=sinnoh2_dex if REGIONAL_DEX=="Sinnoh"
$regional_dex_2=sinnoh2_dex if REGIONAL_DEX2=="Sinnoh"
end

# Gen 4 V2 Dex.
if REGIONAL_DEX=="Sinnoh2" || REGIONAL_DEX2=="Sinnoh2"
sinnoh2_dex=[387,388,389,390,391,392,393,394,395,396,397,398,399,400,401,402,
403,404,405,63,64,65,129,130,406,315,407,41,42,169,74,75,76,95,208,408,409,410,
411,66,67,68,54,55,412,413,414,256,266,267,268,269,415,416,417,418,419,420,421,
422,423,214,190,424,425,426,427,428,92,93,94,200,429,198,430,431,432,118,119,
340,433,358,434,435,307,308,436,437,77,78,438,185,439,122,440,113,242,173,35,
36,441,172,25,26,163,164,442,443,444,445,446,143,201,447,448,194,195,278,279,
203,449,450,298,183,184,451,452,453,454,455,223,224,456,457,72,73,349,350,458,
226,459,460,215,461,480,481,482,483,484,490,479,207,472,299,476,280,281,282,
475,108,463,133,134,135,163,196,197,470,471,333,334,175,176,468,228,229,81,82,
462,114,465,193,469,357,111,112,464,355,356,477,137,233,474,123,212,239,125,
466,240,126,467,220,221,473,361,362,478,359,487]
$regional_dex_1=sinnoh2_dex if REGIONAL_DEX=="Sinnoh2"
$regional_dex_2=sinnoh2_dex if REGIONAL_DEX2=="Sinnoh2"
end

# Gen 5 Dex.
if REGIONAL_DEX=="Unova" || REGIONAL_DEX2=="Unova"
unova_dex=[]
for dex_num in 495..649
unova_dex.insert(unova_dex.length,dex_num)
end
$regional_dex_1=unova_dex if REGIONAL_DEX=="Unova"
$regional_dex_2=unova_dex if REGIONAL_DEX2=="Unova"
end

# Gen 5 V2 Dex.
if REGIONAL_DEX=="Unova2" || REGIONAL_DEX2=="Unova2"
unova2_dex=[495,496,497,498,499,500,501,502,503,504,505,509,
510,519,520,521,540,541,542,191,192,506,507,508,179,180,181,54,55,298,183,184,
447,448,206,531,511,512,513,514,515,516,543,544,545,109,110,81,82,462,58,59,
240,126,467,239,125,466,19,20,41,42,169,88,89,527,528,524,525,526,95,208,532,
533,534,529,530,300,301,427,428,546,547,548,549,517,518,173,35,36,133,134,135,
136,196,197,470,471,551,552,553,554,555,550,568,569,572,573,627,628,629,630,27,
28,557,558,559,560,556,561,328,329,330,562,563,564,565,566,567,599,600,601,406,
315,407,574,575,576,577,578,579,415,416,587,214,127,522,523,418,419,570,571,580,
581,588,589,616,617,585,586,590,591,351,299,476,304,305,306,343,344,636,637,595,
596,597,598,602,603,604,592,593,594,610,611,612,335,336,605,606,607,608,609,631,
632,613,614,615,641,642,645,451,452,227,322,323,325,326,425,426,353,354,278,279,
337,338,359,114,465,619,620,207,472,624,625,638,639,640,535,536,537,618,213,458,
226,223,224,222,120,121,320,321,131,363,364,365,333,334,37,38,436,437,215,461,
225,582,583,584,220,221,473,132,374,375,376,86,87,538,539,626,621,622,623,633,
634,635,287,288,289,341,342,174,39,40,108,463,193,469,357,455,453,454,246,247,
248,643,644,646,647,648,649]
$regional_dex_1=unova2_dex if REGIONAL_DEX=="Unova2"
$regional_dex_2=unova2_dex if REGIONAL_DEX2=="Unova2"
end

# Custom Dex.
if REGIONAL_DEX=="Custom" || REGIONAL_DEX2=="Custom"
$regional_dex_1=CUSTOM_DEX if REGIONAL_DEX=="Custom"
$regional_dex_2=CUSTOM_DEX if REGIONAL_DEX2=="Custom"
end

# Method which creates an array for the National Dex.
def pbNationalDex
national_dex=[]
for dex_num in 1..PBSpecies.maxValue
national_dex.insert(national_dex.length,dex_num)
end
return national_dex
end
#===============================================================================
# * Updating existing methods to work with the new way of Regional Dex'es.
#===============================================================================

class PokeBattle_Trainer

def pokedexSeen(region=-1) # Number of Pok?mon seen
ret=0
if region==-1
for i in 0..PBSpecies.maxValue
ret+=1 if @seen
end
else
if pbGetMetadata($game_map.map_id,MetadataMapPosition)[0]==0
regionlist=$regional_dex_1 # Region A
else
regionlist=$regional_dex_2 # Region B
end
regionlist=pbAllRegionalSpecies(region)
for i in regionlist
ret+=1 if @seen
end
end
return ret
end

def pokedexOwned(region=-1) # Number of Pok?mon owned
ret=0
if region==-1
for i in 0..PBSpecies.maxValue
ret+=1 if @owned
end
else
if pbGetMetadata($game_map.map_id,MetadataMapPosition)[0]==0
regionlist=$regional_dex_1 # Region A
else
regionlist=$regional_dex_2 # Region B
end
for i in regionlist
ret+=1 if @owned
end
return ret
end
end
end

def pbSetSpritePositionToMiddle(sprite)
sprite.x=Graphics.width/2-(sprite.bitmap.width/2)
sprite.y=Graphics.height/2-(sprite.bitmap.height/2)
end
#===============================================================================
# * Starting the Pok?dex.
#===============================================================================
class StartPokedex

def initialize
if !$Trainer.pokedex
p "Pok?dex isn't obtained yet. The game will return." if $DEBUG
return
end
@bg=Sprite.new
@bg.z=999999
if $Trainer.isFemale?
@bg.bitmap=Bitmap.new("Graphics/Pictures/Pokedex/StartPokedex/OpenDex_f")
else
@bg.bitmap=Bitmap.new("Graphics/Pictures/Pokedex/StartPokedex/OpenDex")
end
@load=Sprite.new
@load.bitmap=Bitmap.new("Graphics/Pictures/Pokedex/StartPokedex/load2")
@load.y= -384
@load.z=999999
@black_bitmap=Bitmap.new(512,384)
@black_sprite=Sprite.new
@black_sprite.bitmap=@black_bitmap
@black_sprite.z=999999
@black_sprite.opacity=0
@black_bitmap.fill_rect(0,0,512,384,Color.new(0,0,0))
update
end

def update(frame=0)
loop do
Graphics.update
Input.update
frame+=1
break if Input.trigger?(Input::B)
break if Input.trigger?(Input::C)
if defined?($mouse)
break if $mouse.inAreaLeft?(0,0,512,384)
end
break if frame>=120
end
startMainPokedex
end

def startMainPokedex
20.times do
@load.y+=384/20
Graphics.update
pbWait(1)
end
10.times do
@black_sprite.opacity+=255/10
@[email protected]/20
@[email protected]/20
@load.zoom_x+=0.1
@load.zoom_y+=0.1
Graphics.update
pbWait(1)
end
pbWait(25)
@bg.dispose
@load.dispose
@black_sprite.dispose
MainPokedex.new(0,0,-46,nil)
end
end
#===============================================================================
# * Main Pok?dex Window.
#===============================================================================
class MainPokedex

def initialize(dex_index,panel_y,panel_sel_y,pokedex) # 0,0,-46
$pokedex=currentDex if panel_sel_y<0
$pokedex=pokedex if (pokedex != nil)# <--Only used because of search function.
@dex_index=dex_index
@index=0
@viewport=Viewport.new(0,0,Graphics.width,Graphics.height)
@viewport.z=99999
@sprites={}
@sprites["bg"]=Sprite.new(@viewport)
@sprites["bg"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/bg")
@main_bitmap=Bitmap.new(302,2+$pokedex.length*48)
@sprites["panels"]=Sprite.new(@viewport)
@sprites["panels"].x=192
@sprites["panels"].y=panel_y
@sprites["panel_sel"]=Sprite.new(@viewport)
@sprites["panel_sel"].y=panel_sel_y
drawDexPanels
drawPanels
@sprites["scroll_bar"]=IconSprite.new(502,18,@viewport)
@sprites["scroll_bar"].setBitmap("Graphics/Pictures/Pokedex/scroll_bar")
@sprites["slider"]=IconSprite.new(500,16,@viewport)
@sprites["slider"].setBitmap("Graphics/Pictures/Pokedex/slider")
@sprites["undiscovered"]=IconSprite.new(34,82,@viewport)
@sprites["undiscovered"].setBitmap("Graphics/Pictures/Pokedex/undiscovered")
@sprites["undiscovered"].visible=false
@sprites["pkmn_info"]=IconSprite.new(12,0,@viewport)
@sprites["pkmn_info"].setBitmap("Graphics/Pictures/Pokedex/pkmn_info")
@sprites["pkmn_info"].visible=false
@sprites["pkmn_info"].z+=1
@sprites["pkmn_sprite"]=BitmapSprite.new(Graphics.width,Graphics.height,@viewport)
@sprites["pkmn_sprite"].x=96
@sprites["pkmn_sprite"].y=96
@sprites["down_bg"]=Sprite.new(@viewport)
@sprites["down_bg"].bitmap=Bitmap.new("Graphics/Pictures/Universal/down_bg")
@sprites["down_bg"].y=336
@sprites["select"]=IconSprite.new(10,340,@viewport)
@sprites["select"].setBitmap("Graphics/Pictures/Pokedex/select")
@sprites["start"]=IconSprite.new(142,340,@viewport)
@sprites["start"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/start")
@sprites["leftright"]=IconSprite.new(278,346,@viewport)
@sprites["leftright"].setBitmap("Graphics/Pictures/Pokedex/leftright")
@sprites["exit"]=IconSprite.new(426,346,@viewport)
@sprites["exit"].setBitmap("Graphics/Pictures/Universal/exit")
@sprites["return"]=IconSprite.new(474,346,@viewport)
@sprites["return"].setBitmap("Graphics/Pictures/Universal/return")
@sprites["leftright2"]=IconSprite.new(278,346,@viewport)
@sprites["leftright2"].setBitmap("Graphics/Pictures/Pokedex/leftright4")
updateLeftRight2Sprite
@sprites["overlay"]=BitmapSprite.new(Graphics.width,Graphics.height,@viewport)
pbSetSystemFont(@sprites["overlay"].bitmap)
update
end

# Method which returns an array of the current dex.
def currentDex
if $PokemonGlobal.pokedexUnlocked[0] && pbGetMetadata($game_map.map_id,MetadataMapPosition)[0]==0
p "Your Regional Dex is empty. Please edit it in the Script-Editor." if REGIONAL_DEX.empty? && $DEBUG
return $regional_dex_1 if !REGIONAL_DEX.empty?
elsif $PokemonGlobal.pokedexUnlocked[1] && pbGetMetadata($game_map.map_id,MetadataMapPosition)[0]==1
p "Your Regional Dex is empty. Please edit it in the Script-Editor." if REGIONAL_DEX2.empty? && $DEBUG
return $regional_dex_2
elsif $PokemonGlobal.pokedexUnlocked[0] && !REGIONAL_DEX.empty?
return $regional_dex_1
elsif $PokemonGlobal.pokedexUnlocked[1] && !REGIONAL_DEX2.empty?
return $regional_dex_2
elsif $PokemonGlobal.pokedexUnlocked[-1]
return pbNationalDex
else
p "None of the Dex'es is unlocked yet." if $DEBUG
return nil
end
end

# Method for drawing the panels.
def drawPanels
@main_bitmap=Bitmap.new(302,2+$pokedex.length*48)
@main_bitmap.clear
@sprites["panels"].bitmap=@main_bitmap
for i in 0..$pokedex.length-1
species=PokeBattle_Pokemon.new($pokedex,1)
# Drawing panels.
panel=Sprite.new
if $Trainer.seen[$pokedex]
panel.bitmap=Bitmap.new("Graphics/Pictures/Pokedex/panel_pkmn")
@main_bitmap.blt(0,2+i*48,panel.bitmap,Rect.new(0,0,panel.bitmap.width,
panel.bitmap.height))
# Drawing little Pok?mon icon.
icon=Sprite.new
icon.bitmap=Bitmap.new(sprintf("Graphics/Icons/icon%03d",$pokedex))
# icon.src_rect.width=64
@main_bitmap.blt(2,i*48-18,icon.bitmap,Rect.new(0,0,
icon.bitmap.width/2,icon.bitmap.height))
icon.dispose
else
panel.bitmap=Bitmap.new("Graphics/Pictures/Pokedex/panel")
@main_bitmap.blt(64,2+i*48,panel.bitmap,Rect.new(0,0,panel.bitmap.width,
panel.bitmap.height))
end
panel.dispose
# Drawing little caught icon.
if $Trainer.owned[$pokedex]
owned=Sprite.new(@viewport)
owned.bitmap=Bitmap.new("Graphics/Pictures/Pokedex/caught")
@main_bitmap.blt(82,10+i*48,owned.bitmap,Rect.new(0,0,owned.bitmap.width,
owned.bitmap.height))
owned.dispose
end
# Drawing text.
text=BitmapSprite.new(Graphics.width, Graphics.height)
pbSetSystemFont(text.bitmap)
dex_number=(i+1).to_s
if dex_number.length==1
dex_number.insert(0,"0")
end
if dex_number.length==2
dex_number.insert(0,"0")
end
textpos=[]
textpos.push([dex_number,0,0,0,Color.new(222,222,222),
Color.new(132,132,132)])
if $Trainer.seen[$pokedex]
pkmn_name=species.name
else
pkmn_name="?????"
end
textpos.push([pkmn_name,56,0,0,Color.new(222,222,222),
Color.new(132,132,132)])
pbDrawTextPositions(text.bitmap,textpos)
@main_bitmap.blt(112,6+48*i,text.bitmap,Rect.new(0,0,190,32))
text.dispose
end
end

# Method for drawing the Dex Panels.
def drawDexPanels
num=0
num+=1 if $PokemonGlobal.pokedexUnlocked[0] # Regional Dex 1
num+=1 if $PokemonGlobal.pokedexUnlocked[1] # Regional Dex 2
num+=1 if $PokemonGlobal.pokedexUnlocked[-1]# National Dex
for i in 1..num
@sprites["dex_panel#{i}"]=IconSprite.new(0,290-46*i+46,@viewport)
@sprites["dex_panel#{i}"].setBitmap("Graphics/Pictures/Pokedex/leftpanel")
end
dexnames=pbDexNames
base=Color.new(255,255,255)
shadow=Color.new(165,165,173)
textos=[]
if num==3 && pbGetMetadata($game_map.map_id,MetadataMapPosition)[0]==0
@dexes=[2,1,0]
elsif num==3 && pbGetMetadata($game_map.map_id,MetadataMapPosition)[0]==1
@dexes=[2,0,1]
elsif num==3 && pbGetMetadata($game_map.map_id,MetadataMapPosition)[0]>1
@dexes=[1,0,2]
elsif num==2
if pbGetMetadata($game_map.map_id,MetadataMapPosition)[0]==0 && $PokemonGlobal.pokedexUnlocked[0]
@dexes=[1,0] if $PokemonGlobal.pokedexUnlocked[1]
@dexes=[2,0] if $PokemonGlobal.pokedexUnlocked[-1]
elsif pbGetMetadata($game_map.map_id,MetadataMapPosition)[0]==1 && $PokemonGlobal.pokedexUnlocked[1]
@dexes=[0,1] if $PokemonGlobal.pokedexUnlocked[0]
@dexes=[2,1] if $PokemonGlobal.pokedexUnlocked[-1]
elsif $PokemonGlobal.pokedexUnlocked[0]
textos.push([_INTL("{1}", dexnames[0]),4,252,false,base,shadow])
@dexes=[1,0] if $PokemonGlobal.pokedexUnlocked[1]
@dexes=[2,0] if $PokemonGlobal.pokedexUnlocked[-1]
elsif $PokemonGlobal.pokedexUnlocked[1]
@dexes=[0,1] if $PokemonGlobal.pokedexUnlocked[0]
@dexes=[2,1] if $PokemonGlobal.pokedexUnlocked[-1]
end
elsif num==1
@dexes=[0] if $PokemonGlobal.pokedexUnlocked[0]
@dexes=[1] if $PokemonGlobal.pokedexUnlocked[1]
@dexes=[2] if $PokemonGlobal.pokedexUnlocked[-1]
end
textos.push([_INTL("{1}", dexnames[@dexes[0]]),4,298,false,base,shadow])
if num>=2
textos.push([_INTL("{1}", dexnames[@dexes[1]]),4,252,false,base,shadow])
end
if num==3
textos.push([_INTL("{1}", dexnames[@dexes[2]]),4,206,false,base,shadow])
end
normal_dexes=[$regional_dex_1,$regional_dex_2,pbNationalDex]
y=5000
y=290 if num==3 && $pokedex==normal_dexes[@dexes[0]]
y=244 if num==3 && $pokedex==normal_dexes[@dexes[1]]
y=198 if num==3 && $pokedex==normal_dexes[@dexes[2]]
y=290 if num==2 && $pokedex==normal_dexes[@dexes[0]]
y=244 if num==2 && $pokedex==normal_dexes[@dexes[1]]
y=290 if num==1
@sprites["dex_panel_sel"]=IconSprite.new(0,y,@viewport)
@sprites["dex_panel_sel"].setBitmap("Graphics/Pictures/Pokedex/leftpanel2")
@sprites["dexnames"]=BitmapSprite.new(Graphics.width,Graphics.height,@viewport)
pbSetSystemFont(@sprites["dexnames"].bitmap)
pbDrawTextPositions(@sprites["dexnames"].bitmap,textos)
end

# Method for checking and updating if a species is in the dex and the
# dex has changed.
def updateDexIndexIfDexHasChanged(species)
return if @dex_index<1
#if @dex_index<1
# @sprites["panels"].y=0
# @sprites["panel_sel"].y= -46
# return
#end
for i in 0...$pokedex.length
if $pokedex==species
@dex_index=i+1
if @dex_index<8
@sprites["panels"].y=0
@sprites["panel_sel"].y=@dex_index*48-46
elsif @dex_index>$pokedex.length-8
@sprites["panels"].y= -48*($pokedex.length-7)
@sprites["panel_sel"].y=290-($pokedex.length-@dex_index)*48
else
@sprites["panels"].y= -48*(@dex_index-1)
@sprites["panel_sel"].y=2
end
return
end
end
@sprites["panels"].y=0
@sprites["panel_sel"].y=2
@dex_index=1
end

# Updates the leftright2 sprite.
def updateLeftRight2Sprite
@sprites["leftright2"].x=278
if @dex_index<8 && (@dex_index>($pokedex.length-7))
@sprites["leftright2"].src_rect.x=0
@sprites["leftright2"].src_rect.width=96
elsif @dex_index<8
@sprites["leftright2"].src_rect.x=0
@sprites["leftright2"].src_rect.width=48
elsif (@dex_index>($pokedex.length-7))
@sprites["leftright2"].src_rect.x=48
@sprites["leftright2"].src_rect.width=48
@sprites["leftright2"].x=278+50
else
@sprites["leftright2"].src_rect.x=0
@sprites["leftright2"].src_rect.width=0
end

end

# Method which checks whether you can scroll down or not.
def canScrollDown
return (@dex_index>7 && @sprites["panel_sel"].y==290 && ((@sprites["panels"].bitmap.height+@sprites["panels"].y)>338))
end

# Method which checks whether you can scroll up or not.
def canScrollUp
return (@dex_index>0 && @sprites["panel_sel"].y==2 )
end

# This method updates the position of the slider.
def updateSliderPosition
pos=16
pos+=300*@dex_index/$pokedex.length
@sprites["slider"].y=pos
end

# Method returning the number of the current selected Pok?mon.
def currentPokemon
return ($pokedex[@dex_index-1])
end

# Method for updating the background.
def updateBackground
return if !@sprites["bg"]
@sprites["bg"].x-=2
@sprites["bg"].x=0 if @sprites["bg"].x <= -512
end

# Method which is basically pbWait(x) but with a background update added.
def waitAndUpdate(x)
x.times do
updateBackground
pbWait(1)
end
end

# Method for scrolling 7 Pok?mon up.
def scrollToLeft
return if @dex_index<8
@sprites["leftright"].setBitmap("Graphics/Pictures/Pokedex/leftright2")
7.times do
@dex_index-=1
if @sprites["panel_sel"].y>10
@sprites["panel_sel"].y-=48
else
@sprites["panels"].y+=48
end
updatePokemonSprite
updateSliderPosition
waitAndUpdate(1)
end
waitAndUpdate(3)
@sprites["leftright"].setBitmap("Graphics/Pictures/Pokedex/leftright")
end

# Method for scrolling 7 Pok?mon down.
def scrollToRight
return if (@dex_index>($pokedex.length-7))
@sprites["leftright"].setBitmap("Graphics/Pictures/Pokedex/leftright3")
7.times do
@dex_index+=1
if @sprites["panel_sel"].y<280
@sprites["panel_sel"].y+=48
else
@sprites["panels"].y-=48
end
updatePokemonSprite
updateSliderPosition
waitAndUpdate(1)
end
waitAndUpdate(3)
@sprites["leftright"].setBitmap("Graphics/Pictures/Pokedex/leftright")
end

# updates the Pokemon Sprite when called.
def updatePokemonSprite
@sprites["pkmn_sprite"].bitmap.clear
if $Trainer.seen[currentPokemon]
@sprites["panel_sel"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/panel_sel_pkmn")
@sprites["panel_sel"].x=192
if USING_BITMAP_WRAPPER==true && defined?(AnimatedBitmapWrapper)
pkmnbitmap=AnimatedBitmapWrapper.new(pbPokemonBitmapFile(currentPokemon,false))
else
pkmnbitmap=AnimatedBitmap.new(pbPokemonBitmapFile(currentPokemon,false))
end
@sprites["pkmn_sprite"].bitmap.blt(0,0,
pkmnbitmap.bitmap,Rect.new(0,0,pkmnbitmap.bitmap.width,pkmnbitmap.bitmap.height))
@sprites["pkmn_sprite"].ox=pkmnbitmap.bitmap.width/2
@sprites["pkmn_sprite"].oy=pkmnbitmap.bitmap.height/2
@sprites["pkmn_info"].visible=true
@sprites["undiscovered"].visible=false
else
@sprites["panel_sel"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/panel_sel")
@sprites["panel_sel"].x=256
@pokemon_sprite.visible=false if @pokemon_sprite
@sprites["pkmn_info"].visible=false
@sprites["undiscovered"].visible=true
end
end

# Function for using the mouse for the scrolling bar.
def mouseScrollBar
if $mouse.inAreaPress?(494,10,18,315)#16, 300
if $mouse.y>316
@sprites["slider"].y=316
elsif $mouse.y<16
@sprites["slider"].y=16
else
@sprites["slider"].y=$mouse.y
end
@dex_index=(@sprites["slider"].y-16)*$pokedex.length/300
@dex_index=1 if @dex_index<1
if @sprites["slider"].y>16
@sprites["panels"].y= -48*($pokedex.length-7)
@sprites["panels"].y= -48*(@dex_index-1) if @dex_index<($pokedex.length-5)
@sprites["panels"].y=0 if ($pokedex.length<7)
@sprites["panel_sel"].y=48*(@dex_index-1)+@sprites["panels"].y+2
else
@sprites["panels"].y=0
end
end
end

# Method for updating the Dex Panels.
def mouseDexPanels
update=false
current= -1
if @nextDex
current=(@sprites["dex_panel_sel"].y-198)/48
max=0
for i in 0...3
max+=1 if @sprites["dex_panel#{i}"]
end
if max==current
current=4-max
else
current+=1
end
end
if $mouse.leftClick?(@sprites["dex_panel1"]) || current==1
return if @sprites["dex_panel_sel"].y==@sprites["dex_panel1"].y
pkmn=currentPokemon
if @dexes[0]==0
$pokedex=$regional_dex_1
elsif @dexes[0]==1
$pokedex=$regional_dex_2
else
$pokedex=pbNationalDex
end
@sprites["dex_panel_sel"].y=@sprites["dex_panel1"].y
update=true
end
if @sprites["dex_panel2"]
if $mouse.leftClick?(@sprites["dex_panel2"]) || current==2
return if @sprites["dex_panel_sel"].y==@sprites["dex_panel2"].y
pkmn=currentPokemon
if @dexes[1]==0
$pokedex=$regional_dex_1
elsif @dexes[1]==1
$pokedex=$regional_dex_2
else
$pokedex=pbNationalDex
end
@sprites["dex_panel_sel"].y=@sprites["dex_panel2"].y
update=true
end
end
if @sprites["dex_panel3"]
if $mouse.leftClick?(@sprites["dex_panel3"]) || current==3
return if @sprites["dex_panel_sel"].y==@sprites["dex_panel3"].y
pkmn=currentPokemon
if @dexes[2]==0
$pokedex=$regional_dex_1
elsif @dexes[2]==1
$pokedex=$regional_dex_2
else
$pokedex=pbNationalDex
end
@sprites["dex_panel_sel"].y=@sprites["dex_panel3"].y
update=true
end
end
return if !update
@black=Sprite.new(@viewport)
@black.z=9999999
black_bitmap=Bitmap.new(512,384)
black_bitmap.fill_rect(0,0,512,384,Color.new(0,0,0))
@black.bitmap=black_bitmap
@black.opacity=0
$pokedex2=$pokedex
10.times do
@black.opacity+=255/10
waitAndUpdate(1)
end
@sprites["dex_panel_sel"].visible=false
updateDexIndexIfDexHasChanged(pkmn)
drawPanels
updateSliderPosition
updatePokemonSprite if @dex_index>0
@sprites["dex_panel_sel"].visible=true
10.times do
@black.opacity-=255/10
waitAndUpdate(1)
end
@black.dispose
@nextDex=false
end

# If a Panel was being pressed this will return the current clicked Pok?mon.
def mousePanelInput
return if !$mouse.leftPressed?(@sprites["panels"])
# when clicking on a panel and no panel is selected yet.
if @sprites["panel_sel"].y<0
for i in 0..6
if $mouse.inArea?(192,i*48+2,302,42) && Input.releaseex?(Input::Mouse_Left)
@sprites["panel_sel"].y+=48*(i+1)
@dex_index+=i+1
@sprites["panel_sel"].x=192
@sprites["panel_sel"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/panel_sel_pkmn")
updatePokemonSprite
waitAndUpdate(5)
@sprites["panel_sel"].visible=false
waitAndUpdate(5)
@sprites["panel_sel"].visible=true
@scene=2 if $Trainer.seen[currentPokemon]
return
end
end
end
# when clicking on the selected panel.
if $mouse.leftPressed?(@sprites["panel_sel"])
updatePokemonSprite
@sprites["panel_sel"].visible=true
waitAndUpdate(5)
@sprites["panel_sel"].visible=false
waitAndUpdate(5)
@sprites["panel_sel"].visible=true
@scene=2 if $Trainer.seen[currentPokemon]
return
end
# when clicking on a panel which is not the selected panel.
subtract=(@sprites["panel_sel"].y-2)/48
for i in 0..6
if $mouse.inArea?(192,i*48+2,302,42) && $mouse.leftPressed?(@sprites["panels"])
addition=i
end
end
return if !addition
species=currentPokemon+addition-subtract
@dex_index+=addition-subtract
graphic_change=(addition-subtract)*48
@sprites["panel_sel"].y+=graphic_change
@sprites["panel_sel"].visible=true
updatePokemonSprite
waitAndUpdate(5)
@sprites["panel_sel"].visible=false
waitAndUpdate(5)
@sprites["panel_sel"].visible=true
@scene=2 if $Trainer.seen[currentPokemon]
end

# Method for ending the scene.
def pbEndScene
pbFadeOutAndHide(@sprites)
pbDisposeSpriteHash(@sprites)
@viewport.dispose
end

def update(current_dex_index=0,current_index=0)
@scene= -1 # 0=exit , 1=Search Function , 2=Pok?mon information
@nextDex=false
while @scene<0
Graphics.update
Input.update
# Animating background.
updateBackground
# Inputs
if Input.trigger?(Input::DOWN) && @index==0
if @dex_index<$pokedex.length
@dex_index+=1
if @sprites["panel_sel"].y<290
@sprites["panel_sel"].y+=48
else
@sprites["panels"].y-=48 if canScrollDown
end
end
end
if Input.trigger?(Input::UP) && @index==0
if @dex_index>1
@dex_index-=1
if @sprites["panel_sel"].y>2
@sprites["panel_sel"].y-=48
else
@sprites["panels"].y+=48 if canScrollUp
end
end
end
if Input.trigger?(Input::C)
case @index
when 0
@scene=2
end
end

if Input.trigger?(Input::B)
pbShowAnimation("exit")
@scene=0
end
if defined?($mouse)
mousePanelInput
mouseScrollBar
mouseDexPanels
if $mouse.inAreaLeft?(278,346,34,28)
scrollToLeft
end
if $mouse.inAreaLeft?(328,346,34,28)
scrollToRight
end
if $mouse.leftClick?(@sprites["exit"])
pbShowAnimation("exit")
@scene=0
end
if $mouse.leftClick?(@sprites["return"])
@sprites["return"].setBitmap("Graphics/Pictures/Universal/return2")
pbWait(10)
@sprites["return"].setBitmap("Graphics/Pictures/Universal/return")
pbWait(5)
@scene=0
$MenuClose=true
end
if $mouse.leftClick?(@sprites["start"])
@sprites["start"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/start2")
waitAndUpdate(10)
@sprites["start"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/start")
waitAndUpdate(5)
@scene=1
end
if $mouse.leftClick?(@sprites["select"])
@sprites["select"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/select2")
waitAndUpdate(10)
@sprites["select"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/select")
waitAndUpdate(5)
@nextDex=true
mouseDexPanels
end
end
# updating if index has changed.
if @index != current_index
if !@sprites["cursor_1"]
drawBW2Cursor(469,339,23,25) if @index==1
end
current_index=@index
end
# updating if dex index has changed.
if @dex_index != current_dex_index
updatePokemonSprite
updateSliderPosition
current_dex_index=@dex_index
updateLeftRight2Sprite
end


end
a=@sprites["panels"].y if @scene==2
b=@sprites["panel_sel"].y if @scene==2
pbEndScene
PokedexSearch.new if @scene==1
if a && b && @dex_index && currentPokemon
PokedexPages.new(@dex_index,a,b) if $Trainer.seen[currentPokemon] && @scene==2
end

end

end


#===============================================================================
# * Four Pok?dex Pages
#===============================================================================
class PokedexPages
def initialize(dex_index,panel_y,panel_sel_y)
@dex_index=dex_index
@old_dex_index=dex_index
@species=$pokedex[@dex_index-1]
@panel_y=panel_y
@panel_sel_y=panel_sel_y
@pokemon=PokeBattle_Pokemon.new(@species,1)
@viewport=Viewport.new(0,0,Graphics.width,Graphics.height)
@viewport.z=99999
@sprites={}
@sprites["bg"]=Sprite.new(@viewport)
@sprites["bg"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Pages/bg1")
@sprites["down_bg"]=IconSprite.new(0,336,@viewport)
@sprites["down_bg"].bitmap=Bitmap.new("Graphics/Pictures/Universal/down_bg")
@sprites["updown"]=IconSprite.new(10,342,@viewport)
@sprites["updown"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Pages/updown")
@sprites["info"]=IconSprite.new(96,340,@viewport)
@sprites["info"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Pages/info")
@sprites["area"]=IconSprite.new(160,340,@viewport)
@sprites["area"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Pages/area")
@sprites["forms"]=IconSprite.new(224,340,@viewport)
@sprites["forms"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Pages/forms")
@sprites["exit"]=IconSprite.new(426,346,@viewport)
@sprites["exit"].bitmap=Bitmap.new("Graphics/Pictures/Universal/exit")
@sprites["return"]=IconSprite.new(474,346,@viewport)
@sprites["return"].bitmap=Bitmap.new("Graphics/Pictures/Universal/return")
@page=1
@sel=0
update
end

# Method for updating the background.
def updateBackground
return if !@sprites["bg"]
@sprites["bg"].x-=2
@sprites["bg"].x=0 if @sprites["bg"].x <= -512
end

# Method which is basically pbWait(x) but with a background update added.
def waitAndUpdate(x)
x.times do
updateBackground
pbWait(1)
end
end

# Method for disposing all necessary sprites if the page changes.
def disposeSprites
# Page 1 Sprites
@sprites["overlay"].dispose if @sprites["overlay"]
@sprites["page1"].dispose if @sprites["page1"]
@sprites["owned"].dispose if @sprites["owned"]
@sprites["pokemon"].dispose if @sprites["pokemon"]
@sprites["dexentry"].dispose if @sprites["dexentry"]
# Page 2 Sprites
@sprites["map"].dispose if @sprites["map"]
@sprites["map2"].dispose if @sprites["map2"]
@sprites["mapbottom"].dispose if @sprites["mapbottom"]
# Page 3 Sprites
@sprites["formname_bg"].dispose if @sprites["formname_bg"]
@sprites["front"].dispose if @sprites["front"]
@sprites["back"].dispose if @sprites["back"]
@sprites["select"].dispose if @sprites["select"]
@sprites["start"].dispose if @sprites["start"]
@sprites["text"].dispose if @sprites["text"]
@sprites["leftarrow"].dispose if @sprites["leftarrow"]
@sprites["rightarrow"].dispose if @sprites["rightarrow"]
end

# Method which checks whether you can scroll down or not.
def canScrollDown
return (@dex_index != ($pokedex.length))
end

# Method which checks whether you can scroll up or not.
def canScrollUp
return (@dex_index != 1)
end

# Method for pressing exit.
def pressedExit
@sprites["exit"].bitmap=Bitmap.new("Graphics/Pictures/Universal/exit2")
waitAndUpdate(10)
@sprites["exit"].bitmap=Bitmap.new("Graphics/Pictures/Universal/exit")
waitAndUpdate(5)
end

# Method for ending the scene.
def pbEndScene
pbFadeOutAndHide(@sprites)
pbDisposeSpriteHash(@sprites)
@viewport.dispose
end


# Method for getting the next seen Pok?mon in the dex. Will return 0
# if there if there is no next seen Pok?mon.
def searchNextSeenPokemon(dir)
if dir==2 # DOWN
for i in @dex_index...$pokedex.length
return (i+1) if $Trainer.seen[$pokedex]
end
return 0
elsif dir==8 # UP
i=@dex_index-2
while !$Trainer.seen[$pokedex]
i-=1
return 0 if i==0
end
return (i+1)
end
end

def changePokemon(dir)
new_index=searchNextSeenPokemon(dir)
if dir==2 # DOWN
return if !canScrollDown
if new_index != @dex_index && new_index != 0 && new_index
@dex_index=new_index
else
return
end
@sprites["updown"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Pages/updown3")
elsif dir==8 # UP
return if !canScrollUp
if new_index != @dex_index && new_index != 0 && new_index
@dex_index=new_index
else
return
end
@sprites["updown"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Pages/updown2")
end
waitAndUpdate(10)
@sprites["updown"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Pages/updown")
waitAndUpdate(5)
disposeSprites
@species=$pokedex[@dex_index-1]
@pokemon=PokeBattle_Pokemon.new(@species,1)
drawPageOne if @page==1
drawPageTwo if @page==2
@backSprite=nil if @page==3
@frontSprite=nil if @page==3
drawPageThree if @page==3
end

# Method for updating Page 2.
def updatePage2
@numpoints.times {|i|
@sprites["point#{i}"].opacity=[64,96,128,160,128,96][(Graphics.frame_count/4)%6] if @sprites["point#{i}"]
}
end

def update
@animSprite=false # For Page 3 whether the Pok?mon sprite is animated or not.
page=0
@spriteIsFrontSprite=true
loop do
Graphics.update
Input.update
updateBackground
updatePage2 if @page==2
updatePage3 if @page==3
if !@sprites
break
end
# Inputs
if Input.trigger?(Input::DOWN)
if @sel==0
changePokemon(2)
end
end
if Input.trigger?(Input::UP)
if @sel==0
changePokemon(8)
end
end
if Input.trigger?(Input::RIGHT)
@page+=1 if @page<3
end
if Input.trigger?(Input::LEFT)
@page-=1 if @page>1
end
if Input.trigger?(Input::B)
pressedExit
break
end
if defined?($mouse)
if $mouse.inAreaLeft?(10,342,28,34) # up arrow
changePokemon(8)
end
if $mouse.inAreaLeft?(58,344,28,34) # down arrow
changePokemon(2)
end
if $mouse.leftClick?(@sprites["exit"])
pressedExit
break
end
if $mouse.leftClick?(@sprites["info"])
@page=1
end
if $mouse.leftClick?(@sprites["area"])
@page=2
end
if $mouse.leftClick?(@sprites["forms"])
@page=3
end
if @page==3
if @sprites["leftarrow"]
if !@sprites["leftarrow"].disposed?
if $mouse.leftClick?(@sprites["leftarrow"])
switchFormToLeft
end
end
end

if @sprites["rightarrow"]
if !@sprites["rightarrow"].disposed?
if $mouse.leftClick?(@sprites["rightarrow"])
switchFormToRight
end
end
end
if @sprites["select"]
if !@sprites["select"].disposed?
if $mouse.leftClick?(@sprites["select"])
@sprites["select"].setBitmap("Graphics/Pictures/Pokedex/Pages/turn_sprite2")
waitAndUpdate(10)
@sprites["front"].visible=@sprites["back"].visible
@spriteIsFrontSprite=@sprites["front"].visible
@sprites["back"].visible=(@sprites["front"].visible)? false : true
@sprites["select"].setBitmap("Graphics/Pictures/Pokedex/Pages/turn_sprite")
waitAndUpdate(5)
end
end
end

if @sprites["start"]
if !@sprites["start"].disposed?
if $mouse.leftClick?(@sprites["start"])
@sprites["start"].setBitmap("Graphics/Pictures/Pokedex/Pages/start_sprite2")
waitAndUpdate(10)
if @animSprite
@animSprite=false
else
@animSprite=true
end
@sprites["start"].setBitmap("Graphics/Pictures/Pokedex/Pages/start_sprite")
end
end
end
end
end
# If the page changes.
if @page != page
@sprites["info"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Pages/info") if page==1
@sprites["area"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Pages/area") if page==2
@sprites["forms"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Pages/forms") if page==3
@sprites["info"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Pages/info2") if @page==1
@sprites["area"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Pages/area2") if @page==2
@sprites["forms"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Pages/forms2") if @page==3
disposeSprites
drawPageOne if @page==1
drawPageTwo if @page==2
drawPageThree if @page==3
page=@page
end
end
pbEndScene
if @dex_index<8
@panel_y=0
@panel_sel_y=@dex_index*48-46
elsif @dex_index>$pokedex.length-8
@panel_y= -48*($pokedex.length-7)
@panel_sel_y=290-($pokedex.length-@dex_index)*48
else
@panel_y= -48*(@dex_index-1)
@panel_sel_y=2
end
MainPokedex.new(@dex_index,@panel_y,@panel_sel_y,$pokedex)
end
#===============================================================================
# * Pok?dex INFO
#===============================================================================
def drawPageOne
@sprites["bg"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Pages/bg1")
@sprites["page1"]=Sprite.new(@viewport)
@sprites["page1"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Pages/page1")
@sprites["overlay"]=BitmapSprite.new(Graphics.width,Graphics.height,@viewport)
@sprites["dexentry"]=BitmapSprite.new(Graphics.width,Graphics.height,@viewport)
pbSetSystemFont(@sprites["overlay"].bitmap)
pbSetSystemFont(@sprites["dexentry"].bitmap)
baseColor=Color.new(90,82,82)
baseColor2=Color.new(255,255,255)
shadowColor=Color.new(165,165,173)
textpos=[
[sprintf(_INTL("HT")),288,152,0,baseColor,shadowColor],
[sprintf(_INTL("WT")),288,184,0,baseColor,shadowColor]
]
dex_num=@dex_index.to_s
if dex_num.length==1
dex_num.insert(0,"0")
end
if dex_num.length==2
dex_num.insert(0,"0")
end
textpos.push([_INTL("#{dex_num}"),272,26,0,baseColor,shadowColor])
textpos.push([_INTL("#{@pokemon.name}"),352,26,0,baseColor,shadowColor])
if $Trainer.owned[@species]
@sprites["owned"]=IconSprite.new(204,16,@viewport)
@sprites["owned"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Pages/owned")
dexdata=pbOpenDexData
pbDexDataOffset(dexdata,@species,8)
type1=dexdata.fgetb
type2=dexdata.fgetb
pbDexDataOffset(dexdata,@species,33)
height=dexdata.fgetw
weight=dexdata.fgetw
dexdata.close
kind=pbGetMessage(MessageTypes::Kinds,@species)
dexentry=pbGetMessage(MessageTypes::Entries,@species)
inches=(height/0.254).round
pounds=(weight/0.45359).round
textpos.push([_ISPRINTF("{1:s} Pok?mon",kind),376,60,2,baseColor,shadowColor])
if pbGetCountry()==0xF4 # If the user is in the United States
textpos.push([_ISPRINTF("{1:d}'{2:02d}"",inches/12,inches%12),490,152,1,baseColor,shadowColor])
textpos.push([_ISPRINTF("{1:4.1f} lbs.",pounds/10.0),490,184,1,baseColor,shadowColor])
else
textpos.push([_ISPRINTF("{1:.1f} m",height/10.0),490,152,1,baseColor,shadowColor])
textpos.push([_ISPRINTF("{1:.1f} kg",weight/10.0),490,184,1,baseColor,shadowColor])
end
drawTextEx(@sprites["dexentry"].bitmap,
36,234,Graphics.width-36,3,dexentry,baseColor2,shadowColor)
footprintfile=pbPokemonFootprintFile(@species)
if footprintfile
footprint=BitmapCache.load_bitmap(footprintfile)
@sprites["overlay"].bitmap.blt(225,116,footprint,footprint.rect)
footprint.dispose
end
typebitmap=AnimatedBitmap.new(_INTL("Graphics/Pictures/types"))
type1rect=Rect.new(0,type1*24,64,24)
type2rect=Rect.new(0,type2*24,64,24)
@sprites["overlay"].bitmap.blt(304,108,typebitmap.bitmap,type1rect)
@sprites["overlay"].bitmap.blt(384,108,typebitmap.bitmap,type2rect) if type1!=type2
typebitmap.dispose
else
# if $Trainer.seen[@species]
# typebitmap=AnimatedBitmap.new(_INTL("Graphics/Pictures/types"))
# type1rect=Rect.new(0,type1*24,64,24)
# type2rect=Rect.new(0,type2*24,64,24)
# @sprites["overlay"].bitmap.blt(304,108,typebitmap.bitmap,type1rect)
# @sprites["overlay"].bitmap.blt(384,108,typebitmap.bitmap,type2rect) if type1!=type2
# typebitmap.dispose
# end

textpos.push([_INTL("????? Pok?mon"),376,60,2,baseColor,shadowColor])
if pbGetCountry()==0xF4 # If the user is in the United States
textpos.push([_INTL("???'??""),490,152,1,baseColor,shadowColor])
textpos.push([_INTL("????.? lbs."),490,184,1,baseColor,shadowColor])
else
textpos.push([_INTL("????.? m"),490,152,1,baseColor,shadowColor])
textpos.push([_INTL("????.? kg"),490,184,1,baseColor,shadowColor])
end
end
pbDrawTextPositions(@sprites["overlay"].bitmap,textpos)
if USING_BITMAP_WRAPPER && defined?(AnimatedBitmapWrapper)
pkmnbitmap=AnimatedBitmapWrapper.new(pbPokemonBitmapFile(@species,false))
else
pkmnbitmap=AnimatedBitmap.new(pbPokemonBitmapFile(@species,false))
end
@sprites["pokemon"]=BitmapSprite.new(pkmnbitmap.bitmap.width,
pkmnbitmap.bitmap.height,@viewport)
@sprites["pokemon"].bitmap.blt(0,0,
pkmnbitmap.bitmap,pkmnbitmap.bitmap.rect)
@sprites["pokemon"].mirror=true
@sprites["pokemon"].ox=pkmnbitmap.width/2
@sprites["pokemon"].oy=pkmnbitmap.height/2
@sprites["pokemon"].x=96
@sprites["pokemon"].y=96
pkmnbitmap.dispose
pbPlayCry(@species)
end
#===============================================================================
# * Pok?dex AREA
#===============================================================================
def drawPageTwo
regionmap= -1
pbRgssOpen("Data/townmap.dat","rb"){|f|
@mapdata=Marshal.load(f)
}
mappos=!$game_map ? nil : pbGetMetadata($game_map.map_id,MetadataMapPosition)
region=regionmap
if region<0 # Use player's current region
region=mappos ? mappos[0] : 0 # Region 0 default
end
@sprites["map"]=IconSprite.new(0,0,@viewport)
@sprites["map"].setBitmap("Graphics/Pictures/#{@mapdata[region][1]}")
@sprites["map"].x+=(Graphics.width-@sprites["map"].bitmap.width)/2
for hidden in REGIONMAPEXTRAS
if hidden[0]==region && hidden[1]>0 && $game_switches[hidden[1]]
if !@sprites["map2"]
@sprites["map2"]=BitmapSprite.new(480,320,@viewport)
@sprites["map2"].x=@sprites["map"].x; @sprites["map2"].y=@sprites["map"].y
end
pbDrawImagePositions(@sprites["map2"].bitmap,[
["Graphics/Pictures/#{hidden[4]}",
hidden[2]*PokemonRegionMapScene::SQUAREWIDTH,
hidden[3]*PokemonRegionMapScene::SQUAREHEIGHT,0,0,-1,-1]
])
end
end
@point=BitmapWrapper.new(PokemonRegionMapScene::SQUAREWIDTH+4,
PokemonRegionMapScene::SQUAREHEIGHT+4)
@point.fill_rect(0,0,
PokemonRegionMapScene::SQUAREWIDTH+4,
PokemonRegionMapScene::SQUAREHEIGHT+4,Color.new(255,0,0))
@point2=BitmapWrapper.new(PokemonRegionMapScene::SQUAREWIDTH+4,
PokemonRegionMapScene::SQUAREHEIGHT+4)
@point2.fill_rect(4,0,
PokemonRegionMapScene::SQUAREWIDTH,
PokemonRegionMapScene::SQUAREHEIGHT+4,Color.new(255,0,0))
@point3=BitmapWrapper.new(PokemonRegionMapScene::SQUAREWIDTH+4,
PokemonRegionMapScene::SQUAREHEIGHT+4)
@point3.fill_rect(0,4,
PokemonRegionMapScene::SQUAREWIDTH+4,
PokemonRegionMapScene::SQUAREHEIGHT,Color.new(255,0,0))
@point4=BitmapWrapper.new(PokemonRegionMapScene::SQUAREWIDTH+4,
PokemonRegionMapScene::SQUAREHEIGHT+4)
@point4.fill_rect(4,4,
PokemonRegionMapScene::SQUAREWIDTH,
PokemonRegionMapScene::SQUAREHEIGHT,Color.new(255,0,0))
encdata=load_data("Data/encounters.dat")
points=[]
mapwidth=1+PokemonRegionMapScene::RIGHT-PokemonRegionMapScene::LEFT
for enc in encdata.keys
enctypes=encdata[enc][1]
if pbFindEncounter(enctypes,@species)
mappos=pbGetMetadata(enc,MetadataMapPosition)
if mappos && mappos[0]==region
showpoint=true
for loc in @mapdata[region][2]
showpoint=false if loc[0]==mappos[1] && loc[1]==mappos[2] &&
loc[7] && !$game_switches[loc[7]]
end
if showpoint
mapsize=pbGetMetadata(enc,MetadataMapSize)
if mapsize && mapsize[0] && mapsize[0]>0
sqwidth=mapsize[0]
sqheight=(mapsize[1].length*1.0/mapsize[0]).ceil
for i in 0...sqwidth
for j in 0...sqheight
if mapsize[1][i+j*sqwidth,1].to_i>0
points[mappos[1]+i+(mappos[2]+j)*mapwidth]=true
end
end
end
else
points[mappos[1]+mappos[2]*mapwidth]=true
end
end
end
end
end
i=0
for j in 0...points.length
if points[j]
s=SpriteWrapper.new(@viewport)
s.x=(j%mapwidth)*PokemonRegionMapScene::SQUAREWIDTH-2
s.x+=(Graphics.width-@sprites["map"].bitmap.width)/2
s.y=(j/mapwidth)*PokemonRegionMapScene::SQUAREHEIGHT-2
s.y+=(Graphics.height-@sprites["map"].bitmap.height)/2
if j>=1 && points[j-1]
if j>=mapwidth && points[j-mapwidth]
s.bitmap=@point4
else
s.bitmap=@point2
end
else
if j>=mapwidth && points[j-mapwidth]
s.bitmap=@point3
else
s.bitmap=@point
end
end
@sprites["point#{i}"]=s
i+=1
end
end
@numpoints=i
return true
end
#===============================================================================
# * Pok?dex FORMS
#===============================================================================
def drawPageThree
species=@species
@gender=$Trainer.formlastseen[species][0]
@form=$Trainer.formlastseen[species][1]
@available=pbGetAvailable # [name, gender, form]
@sprites["bg"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Pages/bg3")
@sprites["formname_bg"]=IconSprite.new(130,6,@viewport)
@sprites["formname_bg"].setBitmap("Graphics/Pictures/Pokedex/Pages/formname")
@sprites["text"]=BitmapSprite.new(Graphics.width,Graphics.height,@viewport)
@sprites["front"]=PokemonSprite.new(@viewport)
@sprites["back"]=PokemonSprite.new(@viewport)
if @spriteIsFrontSprite
@sprites["back"].visible=false
else
@sprites["front"].visible=false
end
@sprites["icon"]=PokemonSpeciesIconSprite.new(@species,@viewport)
@sprites["icon"].gender=@gender
@sprites["icon"].form=@form
@sprites["icon"].x=52
@sprites["icon"].y=290
@sprites["icon"].visible=false
@sprites["select"]=IconSprite.new(130,306,@viewport)
@sprites["select"].setBitmap("Graphics/Pictures/Pokedex/Pages/turn_sprite")
@sprites["start"]=IconSprite.new(258,306,@viewport)
@sprites["start"].setBitmap("Graphics/Pictures/Pokedex/Pages/start_sprite")

@sprites["leftarrow"]=IconSprite.new(8,0,@viewport)
@sprites["leftarrow"].setBitmap("Graphics/Pictures/Pokedex/Pages/arrow_left")

@sprites["rightarrow"]=IconSprite.new(484,0,@viewport)
@sprites["rightarrow"].setBitmap("Graphics/Pictures/Pokedex/Pages/arrow_right")
@frontSprite=nil; @backSprite=nil; @formNeedsRefresh=false
end

# Updating Page 3. Will be called every frame.
def updatePage3
@sprites["text"].bitmap.clear
pbSetSystemFont(@sprites["text"].bitmap)
name=""
for i in @available
if i[1]==@gender && i[2]==@form
name=i[0]
break
end
end
text=[
[_INTL("{1}",name),
256,44,2,
Color.new(255,255,255),Color.new(165,165,173)],
]
pbDrawTextPositions(@sprites["text"].bitmap,text)
frontBitmap=pbCheckPokemonBitmapFiles([@species,false,(@gender==1),false,@form,false])
if (frontBitmap && !@frontSprite) || @formNeedsRefresh
frontSprite=AnimatedBitmap.new(frontBitmap)
if USING_BITMAP_WRAPPER && defined?(AnimatedBitmapWrapper)
frontSprite=AnimatedBitmapWrapper.new(frontBitmap)
else
frontSprite=AnimatedBitmap.new(frontBitmap)
end
@sprites["front"].bitmap=frontSprite.bitmap
end
backBitmap=pbCheckPokemonBitmapFiles([@species,true,(@gender==1),false,@form,false])
if (backBitmap && !@backSprite) || @formNeedsRefresh
if USING_BITMAP_WRAPPER && defined?(AnimatedBitmapWrapper)
backSprite=AnimatedBitmapWrapper.new(backBitmap)
else
backSprite=AnimatedBitmap.new(backBitmap)
end

@sprites["back"].bitmap=backSprite.bitmap
end
metrics=load_data("Data/metrics.dat")
backMetric=metrics[0][@species]
pbSetSpritePositionToMiddle(@sprites["front"])
pbSetSpritePositionToMiddle(@sprites["back"])
@sprites["icon"].update
if Input.trigger?(Input::C)
pbChooseForm
end
if (!@frontSprite || !@backSprite) || @formNeedsRefresh
@frontSprite=frontSprite
@backSprite=backSprite
@formNeedsRefresh=false
end
animateSprite
end

# Checking for available forms.
def pbGetAvailable
available=[] # [name, gender, form]
dexdata=pbOpenDexData
pbDexDataOffset(dexdata,@species,18)
genderbyte=dexdata.fgetb
dexdata.close
formnames=pbGetMessage(MessageTypes::FormNames,@species)
if !formnames || formnames==""
formnames=[""]
else
formnames=strsplit(formnames,/,/)
end
@gender=0 if genderbyte==0 || genderbyte==255 # Always male or genderless
@gender=1 if genderbyte==254 # Always female
if formnames && formnames[0]!=""
for j in 0...2
if $Trainer.formseen[@species][j][0] || ALWAYSSHOWALLFORMS # That gender/form has been seen
if pbResolveBitmap(sprintf("Graphics/Battlers/%sf",getConstantName(PBSpecies,@species))) ||
pbResolveBitmap(sprintf("Graphics/Battlers/%03df",@species))
available.push([_INTL("{1} Male",formnames[0]),j,0]) if j==0
available.push([_INTL("{1} Female",formnames[0]),j,0]) if j==1
else
gendertopush=(genderbyte==254) ? 1 : 0
available.push([formnames[0],gendertopush,0])
break
end
end
end
else
if $Trainer.formseen[@species][0][0] || ALWAYSSHOWALLFORMS # Male/form 0 has been seen
if genderbyte!=254 && genderbyte!=255 # Not always female & not genderless
available.push([_INTL("Male"),0,0])
end
end
if $Trainer.formseen[@species][1][0] || ALWAYSSHOWALLFORMS # Female/form 0 has been seen
if genderbyte!=0 && genderbyte!=255 # Not always male & not genderless
available.push([_INTL("Female"),1,0])
end
end
if $Trainer.formseen[@species][0][0] || ALWAYSSHOWALLFORMS # Genderless/form 0 has been seen
if genderbyte==255 # Genderless
if formnames && formnames.length>1
available.push([_INTL("One Form"),0,0])
else
available.push([_INTL("Genderless"),0,0])
end
end
end
end
for i in 1...formnames.length
for j in 0...2
if $Trainer.formseen[@species][j] || ALWAYSSHOWALLFORMS # That gender/form has been seen
if pbResolveBitmap(sprintf("Graphics/Battlers/%sf_%d",getConstantName(PBSpecies,@species),i)) ||
pbResolveBitmap(sprintf("Graphics/Battlers/%03df_%d",@species,i))
available.push([_INTL("{1} Male",formnames),j,i]) if j==0
available.push([_INTL("{1} Female",formnames),j,i]) if j==1
else
available.push([formnames,j,i])
break
end
end
end
end
return available
end

# Checking for commands.
def pbGetCommands
commands=[]
for i in @available
commands.push(i[0])
end
return commands
end

# Animates the Sprite. Thanks Luka for his BitmapWrapper class.
def animateSprite
if !defined?(AnimatedBitmapWrapper)
p "Animation can only be played when using AnimatedBitmapWrapper." if $DEBUG
return
end
if @animSprite
if @frontSprite.finished?
@frontSprite.toFrame(0)
@backSprite.toFrame(0)
end
@frontSprite.play
@backSprite.play
@sprites["front"][email protected]
@sprites["back"][email protected]
end
end

# Switches the form to the left.
def switchFormToLeft
@sprites["leftarrow"].setBitmap("Graphics/Pictures/Pokedex/Pages/arrow_left2")
x=@sprites["front"].x
10.times do
@sprites["front"].x-=(x+@sprites["front"].bitmap.width/2)/10
@sprites["back"].x=@sprites["front"].x
updateBackground
animateSprite
pbWait(1)
end
@sprites["leftarrow"].setBitmap("Graphics/Pictures/Pokedex/Pages/arrow_left")
minForm=0
for i in [email protected]
if @gender==@available[1] && @form==@available[2]
currentForm=i
break
end
end
if currentForm==minForm
[email protected]
else
nextForm=currentForm-1
end
@gender=@sprites["icon"].gender=@available[nextForm][1]
@form=@sprites["icon"].form=@available[nextForm][2]
@formNeedsRefresh=true
updatePage3
@sprites["front"].x=512+(@sprites["front"].bitmap.width/2)
x=@sprites["front"].x/2
10.times do
@sprites["front"].x-=(x+@sprites["front"].bitmap.width/2)/10
@sprites["back"].x=@sprites["front"].x
updateBackground
animateSprite
pbWait(1)
end
end

# Switches the form to the right.
def switchFormToRight
@sprites["rightarrow"].setBitmap("Graphics/Pictures/Pokedex/Pages/arrow_right2")
x=@sprites["front"].x
10.times do
@sprites["front"].x+=(x+@sprites["front"].bitmap.width/2)/10
@sprites["back"].x=@sprites["front"].x
updateBackground
animateSprite
pbWait(1)
end
@sprites["rightarrow"].setBitmap("Graphics/Pictures/Pokedex/Pages/arrow_right")
[email protected]
for i in [email protected]
if @gender==@available[1] && @form==@available[2]
currentForm=i
break
end
end
if currentForm==maxForm
nextForm=0
else
nextForm=currentForm+1
end
@gender=@sprites["icon"].gender=@available[nextForm][1]
@form=@sprites["icon"].form=@available[nextForm][2]
@formNeedsRefresh=true
updatePage3
@sprites["front"].x=0-(@sprites["front"].bitmap.width/2)
x=256-(@sprites["front"].bitmap.width/2)
10.times do
@sprites["front"].x+=(x+@sprites["front"].bitmap.width/2)/10
@sprites["back"].x=@sprites["front"].x
updateBackground
animateSprite
pbWait(1)
end
end

# Choosing the form manually by pressing enter.
def pbChooseForm
oldgender=@gender
oldform=@form
commands=pbGetCommands
using(cmdwindow=Window_CommandPokemon.new(commands)) {
cmdwindow.height=128 if cmdwindow.height>128
[email protected]+1
pbBottomRight(cmdwindow)
for i in [email protected]
if @available[1]==@gender && @available[2]==@form
cmdwindow.index=i
break
end
end
loop do
updateBackground
oldindex=cmdwindow.index
Graphics.update
Input.update
cmdwindow.update
@sprites["icon"].update
if cmdwindow.index!=oldindex
@gender=@sprites["icon"].gender=@available[cmdwindow.index][1]
@form=@sprites["icon"].form=@available[cmdwindow.index][2]
@formNeedsRefresh=true
updatePage3
end
if Input.release?(Input::B)
pbPlayCancelSE()
@gender=@sprites["icon"].gender=oldgender
@form=@sprites["icon"].form=oldform
break
end
if Input.trigger?(Input::C)
pbPlayDecisionSE()
break
end
end
}
end
end
#===============================================================================
# Pok?dex Search
#===============================================================================
class PokedexSearch
def initialize
@options=["ORDER","NAME","TYPE","COLOR"]
@order=["NUMBER","A to Z","Heavy to Light","Light to Heavy",
"Tall to Short","Short to Tall"]
@name=["--","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P",
"Q","R","S","T","U","V","W","X","Y","Z"]
@type=["-","Normal","Fighting","Flying","Poison","Ground","Rock","Bug",
"Ghost","Steel","Fire","Water","Grass","Electric","Psychic",
"Ice","Dragon","Dark"]
@color=["-","Red","Blue","Yellow","Green","Black","Brown","Purple","Gray",
"White","Pink"]
@stuff=[@order,@name,@type,@color]
@viewport=Viewport.new(0,0,Graphics.width,Graphics.height)
@viewport.z=99999
@sprites={}
@sprites["bg"]=Sprite.new(@viewport)
@sprites["bg"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/bg")
for i in [email protected]
@sprites["index_panel#{i+1}"]=IconSprite.new(8,4+50*i,@viewport)
@sprites["index_panel#{i+1}"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Search/index_panel")
end
drawPanels
@sprites["check0"]=IconSprite.new(262,0,@viewport)
@sprites["check0"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Search/checked")
@sprites["check0"].visible=false
@sprites["check1"]=IconSprite.new(262,0,@viewport)
@sprites["check1"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Search/checked")
@sprites["check1"].visible=false
@sprites["down_bg"]=Sprite.new(@viewport)
@sprites["down_bg"].bitmap=Bitmap.new("Graphics/Pictures/Universal/down_bg")
@sprites["down_bg"].y=Graphics.height-@sprites["down_bg"].bitmap.height
@sprites["functions"]=IconSprite.new(0,288,@viewport)
@sprites["functions"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Search/functions")
@sprites["exit"]=IconSprite.new(426,346,@viewport)
@sprites["exit"].setBitmap("Graphics/Pictures/Universal/exit")
@sprites["return"]=IconSprite.new(474,346,@viewport)
@sprites["return"].setBitmap("Graphics/Pictures/Universal/return")
@sprites["index_panel_sel"]=IconSprite.new(262,-5000,@viewport)
@sprites["index_panel_sel"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Search/index_panel_sel")
@sprites["panel_sel"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Search/panel_sel")
@sprites["panel_sel"].visible=false
@sprites["sort"]=IconSprite.new(8,124,@viewport)
@sprites["overlay"]=BitmapSprite.new(Graphics.width, Graphics.height, @viewport)
@sprites["overlay2"]=BitmapSprite.new(Graphics.width, Graphics.height, @viewport)
@sprites["scroll_bar"]=IconSprite.new(502,18,@viewport)
@sprites["scroll_bar"].setBitmap("Graphics/Pictures/Pokedex/scroll_bar")
@sprites["scroll_bar"].visible=false
@sprites["slider"]=IconSprite.new(500,16,@viewport)
@sprites["slider"].setBitmap("Graphics/Pictures/Pokedex/slider")
@sprites["slider"].visible=false
update
end

# Method for updating the background.
def updateBackground
return if !@sprites["bg"]
@sprites["bg"].x-=2
@sprites["bg"].x=0 if @sprites["bg"].x <= -512
end

# Method which is basically pbWait(x) but with a background update added.
def waitAndUpdate(frames)
frames.times do
updateBackground
pbWait(1)
end
end

# Method for ending the scene.
def pbEndScene
pbFadeOutAndHide(@sprites)
pbDisposeSpriteHash(@sprites)
@viewport.dispose
end

# Method for updating the Index panel.
def updateIndexPanel
@sprites["index_panel_sel"].y= 2+50*(@index-1)
end

# Method for the action which happens when pressing exit.
def exitPressed
@sprites["exit"].setBitmap("Graphics/Pictures/Universal/exit2")
waitAndUpdate(10)
@sprites["exit"].setBitmap("Graphics/Pictures/Universal/exit")
waitAndUpdate(5)
end

# Method for drawing the second page.
def drawPageTwo
@index2=0
@sprites["scroll_bar"].visible=true
@sprites["slider"].visible=true
@sprites["panel_sel"].y=2
@sprites["panel_sel"].visible=true
@sprites["panel_#{@index}"].visible=true
@sprites["overlay_#{@index}"].visible=true
@sprites["overlay2"].visible=true
@sprites["functions"].visible=false
@sprites["exit"].visible=false
@sprites["overlay"].visible=false
@sprites["check0"].visible=true if $searchSettings[@index][0]>(-1)
if ($searchSettings[2][1]>(-1)) && @index==2
@sprites["check1"].visible=true
end
updateCheckSprite
updateSliderPosition
index2Text
for i in [email protected]
@sprites["index_panel#{i+1}"].visible=false
end
@sprites["sort"].visible=true
@sprites["sort"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Search/sort")
@sprites["sort"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Search/sort2") if @index==2
end

# Method for drawing the first page.
def drawPageOne
@sprites["scroll_bar"].visible=false
@sprites["slider"].visible=false
@sprites["panel_sel"].visible=false
@sprites["panel_#{@index}"].visible=false
@sprites["overlay_#{@index}"].visible=false
@sprites["sort"].visible=false
@sprites["panel_#{@index}"].y=2
@sprites["panel_#{@index}"].visible=false
@sprites["overlay_#{@index}"].y=@sprites["panel_#{@index}"].y
@sprites["overlay_#{@index}"].visible=false
@sprites["overlay2"].visible=false
@sprites["check0"].visible=false
@sprites["check1"].visible=false
@sprites["functions"].visible=true
@sprites["exit"].visible=true
@sprites["overlay"].visible=true
@sprites["index_panel_sel"].visible=true
indexText
for i in [email protected]
@sprites["index_panel#{i+1}"].visible=true
end
@index+=1
end

# Method for drawing panels.
def drawPanels
@count=0 if !@count
@count+=1
panel=Sprite.new
panel.bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Search/panel")
baseColor = Color.new(255,255,255)
shadowColor = Color.new(165,165,173)
for i in [email protected]
@sprites["panel_#{i}"]=Sprite.new(@viewport)
@sprites["panel_#{i}"].bitmap=Bitmap.new(240,48*@stuff.length-1)
@sprites["panel_#{i}"].x=258
@sprites["panel_#{i}"].y=2
@sprites["panel_#{i}"].visible=false
end
@sprites["panel_sel"]=IconSprite.new(256,2,@viewport)
for i in [email protected]
@sprites["overlay_#{i}"]=BitmapSprite.new(240,48*@stuff.length-1,@viewport)
@sprites["overlay_#{i}"].visible=false
@sprites["overlay_#{i}"].x=258
@sprites["overlay_#{i}"].y=2
pbSetSystemFont(@sprites["overlay_#{i}"].bitmap)
textpos=[]
for u in 0...@stuff.length
if u != @stuff.length
textpos.push([_INTL("#{@stuff[u+1]}"),120,8+48*u,2,baseColor,shadowColor])
end
@sprites["panel_#{i}"].bitmap.blt(0,u*48,panel.bitmap,Rect.new(
0,0,panel.bitmap.width,panel.bitmap.height))
end
pbDrawTextPositions(@sprites["overlay_#{i}"].bitmap,textpos)
end
panel.dispose
@sprites["panel_0"].src_rect.height-=48
end

# Method for drawing the text of the index Page.
def indexText
@sprites["overlay"].bitmap.clear
baseColor = Color.new(255,255,255)
shadowColor = Color.new(165,165,173)
pbSetSystemFont(@sprites["overlay"].bitmap)
textpos=[]
for i in [email protected]
textpos.push([_INTL("#{@options}"),98,8+50*i,false,baseColor,shadowColor])
textpos.push([_INTL("#{@stuff[0]}"),385,8+50*i,2,baseColor,shadowColor]) if !$searchSettings
end
if $searchSettings
for i in [email protected]
if i ==2
if $searchSettings[2][0]>(-1) && $searchSettings[2][1]>(-1) # Two types are selected.
v=$searchSettings[2][0]+1; v2=$searchSettings[2][1]+1
txt="#{@stuff[2][v]}/#{@stuff[2][v2]}"
elsif $searchSettings[2][0]>(-1)
v=$searchSettings[2][0]+1
txt="#{@stuff[2][v]}"
elsif $searchSettings[2][1]>(-1)
v=$searchSettings[2][1]+1
txt="#{@stuff[2][v]}"
else
txt="#{@stuff[2][0]}"
end
elsif $searchSettings>(-1)
v=$searchSettings+1
txt="#{@stuff[v]}"
else
txt="#{@stuff[0]}"
end
textpos.push([_INTL("#{txt}"),385,8+50*i,2,baseColor,shadowColor])
end
end
pbDrawTextPositions(@sprites["overlay"].bitmap,textpos)
end

# Method for drawing the text of the second Page (does not include
# the text on the panels).
def index2Text
@sprites["overlay2"].bitmap.clear
baseColor = Color.new(255,255,255)
shadowColor = Color.new(165,165,173)
pbSetSystemFont(@sprites["overlay2"].bitmap)
textpos=[]
textpos.push([_INTL("#{@options[@index]}"),128,128,2,baseColor,shadowColor])
if @index==2
if $searchSettings[2][0]>(-1) && $searchSettings[2][1]>(-1) # Two types are selected.
v=$searchSettings[2][0]+1; v2=$searchSettings[2][1]+1
txt="#{@stuff[2][v]}"
txt2="#{@stuff[2][v2]}"
elsif $searchSettings[2][0]>(-1)
v=$searchSettings[2][0]+1
txt="#{@stuff[2][v]}"
txt2="#{@stuff[2][0]}"
elsif $searchSettings[2][1]>(-1)
v=$searchSettings[2][1]+1
txt2="#{@stuff[2][v]}"
txt="#{@stuff[2][0]}"
else
txt="#{@stuff[2][0]}"
txt2="#{@stuff[2][0]}"
end
elsif $searchSettings[@index]>(-1)
v=$searchSettings[@index]+1
txt="#{@stuff[@index][v]}"
else
txt="#{@stuff[@index][0]}"
end
textpos.push([_INTL("#{txt}"),128,176,2,baseColor,shadowColor])
if txt2
textpos.push([_INTL("#{txt2}"),128,224,2,baseColor,shadowColor])
end
pbDrawTextPositions(@sprites["overlay2"].bitmap,textpos)
end


# Method for scrolling down.
def scrollDownPanel
return if currentIndex<7
return if @sprites["panel_sel"].y<290
if ((maxIndex)>=currentIndex)
@sprites["panel_#{@index}"].y-=48
@sprites["overlay_#{@index}"].y-=48
end
updateSliderPosition
end

# Method for scrolling up.
def scrollUpPanel
@sprites["panel_#{@index}"].y+=48
@sprites["overlay_#{@index}"].y+=48
end

# Method which checks if you can scroll down.
def canScrollDown
return (@index2.length-2-@index2)>0
end

# Method which checks if you can scroll up.
def canScrollUp
return (@index2>0)
end

# Method which will return the current Index.
def currentIndex
return @index2
end

# Method which will current the maximum reachable Index.
def maxIndex
return (@stuff[@index].length-2)
end

# This method updates the position of the slider.
def updateSliderPosition
pos=16
pos+=300*currentIndex/maxIndex
@sprites["slider"].y=pos
end

# This method updates the little checked sprite in the second page
# when a panel was selected.
def updateCheckSprite
if @index==2
if $searchSettings[2][0]>(-1)
y=14+@sprites["panel_#{@index}"].y+$searchSettings[2][0]*48
@sprites["check0"].y=y
@sprites["check0"].visible=true
else
@sprites["check0"].visible=false
end
if $searchSettings[2][1]>(-1)
y=14+@sprites["panel_#{@index}"].y+$searchSettings[2][1]*48
@sprites["check1"].y=y
@sprites["check1"].visible=true
else
@sprites["check1"].visible=false
end
elsif $searchSettings[@index]>(-1)
y=14+@sprites["panel_#{@index}"].y+$searchSettings[@index]*48
@sprites["check0"].y=y
@sprites["check0"].visible=true
else
@sprites["check0"].visible=false
end
end

# Will return true if it's the first side. the method is using the visibility
# of the object @sprites["exit"] to check.
def firstPage
return (@sprites["exit"].visible==true)
end

# Will return true if it's the second side. the method is using the visibility
# of the object @sprites["exit"] to check.
def secondPage
return (@sprites["exit"].visible==false)
end

# Function which will return the index.
def mousePanelClick
for i in 0..6
if $mouse.inAreaLeft?(256,2+i*48,240,44)
val=i
end
end
return if !val
val-= (@sprites["panel_#{@index}"].y-2)/48
return val
end

# Function for saving the setting when clicking on on a panel with the mouse.
def mousePanelClickUpdate
val=mousePanelClick
if val
# Lines which are handling the Types since you can select two types.
if @index==2
if $searchSettings[2][0]==val
$searchSettings[2][0]= -1
elsif $searchSettings[2][1]==val
$searchSettings[2][1]= -1
elsif $searchSettings[2][0]== -1
$searchSettings[2][0]=val
elsif $searchSettings[2][0]>(-1)
$searchSettings[2][1]=val
end
# Lines which are handling everything except the Types.
elsif $searchSettings[@index]==val
$searchSettings[@index]= -1
else
$searchSettings[@index]=val
end
end
updateCheckSprite
index2Text
end

# Function for using the mouse for the scrolling bar.
def mouseScrollBar
return if @sprites["exit"].visible
return if !$mouse.inAreaPress?(494,10,18,315)
# Updating slider.
if $mouse.y>316
@sprites["slider"].y=316
elsif $mouse.y<16
@sprites["slider"].y=16
else
@sprites["slider"].y=$mouse.y
end
# Updating index.
@index2= (@sprites["slider"].y-16)*maxIndex/300
@index2=0 if @index2<0
# Updating panel position.
y_pos=@sprites["panel_#{@index}"].y
@sprites["panel_#{@index}"].y= -48*(currentIndex-6)+2 if @sprites["panel_sel"].y>=290
@sprites["panel_#{@index}"].y= -48*currentIndex+2 if @sprites["panel_sel"].y<=2
if y_pos<@sprites["panel_#{@index}"].y && @sprites["panel_sel"].y>10
@sprites["panel_#{@index}"].y=y_pos
end
# Updating overlay.
@sprites["overlay_#{@index}"].y=@sprites["panel_#{@index}"].y
# Updating selected panel.
@sprites["panel_sel"].y=2+48*currentIndex+@sprites["panel_#{@index}"].y
end

# Update Method
def update
index= -1 ; index2=0
@index=0 ; @index2=0;
@searchStarted=false; returnpressed=false
if !$searchSettings
$searchSettings=[]
@options.length.times do
$searchSettings.push(-1)
end
$searchSettings[2]=[-1,-1] # 2 Types can be choosen.
end
loop do
Graphics.update
Input.update
updateBackground
updateIndexPanel
if @newDex
if @newDex.empty?
@sprites["search"].dispose
@newDex=nil
else
break
end
end
if Input.trigger?(Input::B)
if firstPage
exitPressed
break
elsif secondPage
@sprites["return"].bitmap=Bitmap.new("Graphics/Pictures/Universal/return2")
waitAndUpdate(10)
@sprites["return"].bitmap=Bitmap.new("Graphics/Pictures/Universal/return")
waitAndUpdate(5)
drawPageOne
end
end
# Scrolling down.
if Input.trigger?(Input::DOWN) && @index<@options.length
if secondPage
if currentIndex<maxIndex
@index2+=1
scrollDownPanel if @sprites["panel_sel"].y>=290
@sprites["panel_sel"].y+=48 if @sprites["panel_sel"].y<290
updateSliderPosition
end
else
@index+=1
end
end
# Scrolling up.
if Input.trigger?(Input::UP) && @index>0
if secondPage
if currentIndex>0
@index2-=1
scrollUpPanel if @sprites["panel_sel"].y<10
@sprites["panel_sel"].y-=48 if @sprites["panel_sel"].y>5
updateSliderPosition
end
else
@index-=1
end
end
if Input.trigger?(Input::C)
if firstPage
waitAndUpdate(10)
@sprites["index_panel_sel"].visible=false
waitAndUpdate(5)
drawPageTwo
elsif secondPage
if ($searchSettings[3][0]>(-1)) && @index==2
$searchSettings[3][1]=@index2
else
$searchSettings[@index]=@index2
end
updateCheckSprite
index2Text
end
end
if defined?($mouse)
for i in [email protected]
if firstPage && $mouse.inAreaLeft?(262,4+50*i,
@sprites["index_panel#{i+1}"].bitmap.width,
@sprites["index_panel#{i+1}"].bitmap.height)
@index=i
@sprites["index_panel_sel"].y=2+50*i
waitAndUpdate(10)
@sprites["index_panel_sel"].visible=false
waitAndUpdate(5)
drawPageTwo
end
end
if firstPage && $mouse.leftClick?(@sprites["exit"])
exitPressed
break
end
if firstPage && $mouse.inAreaLeft?(4,299,98,36)
pbReset
end
if firstPage && $mouse.inAreaLeft?(226,294,286,46)
pbStartSearch
end
if secondPage && $mouse.leftClick?(@sprites["panel_#{@index}"])
mousePanelClickUpdate
end
if $mouse.leftPressed?(@sprites["return"])
@sprites["return"].bitmap=Bitmap.new("Graphics/Pictures/Universal/return2")
waitAndUpdate(10)
@sprites["return"].bitmap=Bitmap.new("Graphics/Pictures/Universal/return")
waitAndUpdate(5)
returnpressed=true if firstPage
break if firstPage
drawPageOne if secondPage
end
mouseScrollBar
end
# Index Index changes.
if @index != index
indexText
index=@index
end
# if panel index changes.
if @index2 != index2
updateCheckSprite
index2=@index2
end
end
pbEndScene
if @newDex
MainPokedex.new(0,0,-46,@newDex)
elsif !returnpressed
MainPokedex.new(0,0,-46,nil)
end
end

# Will return the pokedex without species which the trainer didn't see.
def convertDex(dex)
ret=[]
for i in 0...dex.length
ret.push(dex) if $Trainer.seen[dex]
end
return ret
end

# Method will return the number of total search criteria (created for the
# search bar).
def totalCriteria
ret=0
ret+=1 if $searchSettings[0]>(-1)
ret+=1 if $searchSettings[1]>(-1)
ret+=1 if $searchSettings[2][0]>(-1) || $searchSettings[2][1]>(-1)
ret+=1 if $searchSettings[3]>(-1)
return ret
end

# Method which will reset all the settings.
def pbReset
@sprites["reset2"]=IconSprite.new(4,300,@viewport)
@sprites["reset2"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Search/reset2")
waitAndUpdate(10)
@sprites["reset2"].dispose
$searchSettings=[]
@options.length.times do
$searchSettings.push(-1)
end
$searchSettings[2]=[-1,-1] # Creating a 2nd option for the Type.
indexText
end

# This method is basically the core of the class. It will sort out every
# Pok?mon which has the choosen settings.
def pbStartSearch
@sprites["start2"]=IconSprite.new(226,294,@viewport)
@sprites["start2"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Search/start2")
waitAndUpdate(10)
@sprites["start2"].dispose
waitAndUpdate(5)
@sprites["search"]=Sprite.new(@viewport)
@sprites["search"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Search/pkmn_search")
@sprites["search"].y=DEFAULTSCREENHEIGHT-@sprites["search"].bitmap.height
@sprites["search_bar"].dispose if @sprites["search_bar"]
@sprites["search_bar"]=Sprite.new(@viewport)
@sprites["search_bar"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Search/search_bar")
@sprites["search_bar"].x=18
bar_width=@sprites["search_bar"].bitmap.width
@sprites["search_bar"].y=@sprites["search"].y+58
@sprites["search_bar"].src_rect.width=0
wasNoScanBefore=true
criteria=totalCriteria
if !$pokedex2
$pokedex2=$pokedex
end
$pokedex=$pokedex2
newDex=[]
# Searching Pok?mon by name.
if $searchSettings[1]>(-1)
alphabet="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
letter=alphabet[$searchSettings[1],1]
letter2=letter.downcase
oldDex=$pokedex.clone
for i in 0...oldDex.length
pokemon=PokeBattle_Pokemon.new(oldDex,1)
if pokemon.name[0,1]==(letter || letter2)
newDex.push(oldDex)
end
end
wasNoScanBefore=false
end
# Searching Pok?mon by type.
if $searchSettings[2][0]>(-1) || $searchSettings[2][1]>(-1) ||
($searchSettings[2][0]>(-1) && $searchSettings[2][1]>(-1))
type=$searchSettings[2][0] if $searchSettings[2][0]>(-1)
type2=$searchSettings[2][1] if $searchSettings[2][1]>(-1)
# Since the 9th type is "???" we need to adapt the variable type.
if ($searchSettings[2][0])>8
type+=1
end
if ($searchSettings[2][1])>8
type2+=1
end
oldDex=newDex
oldDex=$pokedex.clone if wasNoScanBefore
newDex=[]
for i in 0...oldDex.length
pokemon=PokeBattle_Pokemon.new(oldDex,1)
if pokemon.hasType?(type) && !type2
newDex.push(oldDex)
elsif pokemon.hasType?(type2) && !type
newDex.push(oldDex)
elsif pokemon.hasType?(type) && pokemon.hasType?(type2)
newDex.push(oldDex)
end
end
wasNoScanBefore=false
end
# Searching Pok?mon by color.
if $searchSettings[3]>(-1)
color=$searchSettings[3]
oldDex=newDex
oldDex=$pokedex.clone if wasNoScanBefore
newDex=[]
for i in 0...oldDex.length
pokemon=PokeBattle_Pokemon.new(oldDex,1)
if pokemon.hasColor?(color)
newDex.push(oldDex)
end
end
end
# Sorting Pok?mon from A to Z.
if $searchSettings[0] == 0
wasAlreadyOneOption=true
oldDex=newDex
oldDex=$pokedex.clone if wasNoScanBefore
oldDex2=oldDex.clone
newDex=[]
for i in 0...oldDex2.length
pokemon=PokeBattle_Pokemon.new(oldDex2,1)
oldDex=[pokemon.name,oldDex]
oldDex2=pokemon.name
end
oldDex2=oldDex2.sort
for i in 0...oldDex2.length
pokemon=oldDex2
for i in 0...oldDex.length
if pokemon==oldDex[0]
newDex.push(oldDex[1])
break
end
end
end
wasNoScanBefore=false
end
# Sorting Pok?mon from Heavy to Light and from Light to Heavy.
if $searchSettings[0]==1 || $searchSettings[0]==2
oldDex=newDex
oldDex=$pokedex.clone if wasNoScanBefore
oldDex2=oldDex.clone
newDex=[]
for i in 0...oldDex2.length
pokemon=PokeBattle_Pokemon.new(oldDex2,1)
oldDex=[pokemon.weight,oldDex]
oldDex2=pokemon.weight
end
oldDex2=oldDex2.sort
oldDex2=oldDex2.reverse if $searchSettings[0]==1
for i in 0...oldDex2.length
weight=oldDex2
for i in 0...oldDex.length
if weight==oldDex[0]
newDex.push(oldDex[1]) if oldDex[1] != newDex[newDex.length-1]
break
end
end
end
wasNoScanBefore=false
end
# Sorting Pok?mon from Tall to Short and from Short to Tall.
if $searchSettings[0]==3 || $searchSettings[0]==4
wasAlreadyOneOption=true
oldDex=newDex
oldDex=$pokedex.clone if wasNoScanBefore
oldDex2=oldDex.clone
newDex=[]
for i in 0...oldDex2.length
dexdata=pbOpenDexData
pbDexDataOffset(dexdata,oldDex2,33)
height=dexdata.fgetb
dexdata.close
pokemon=PokeBattle_Pokemon.new(oldDex2,1)
oldDex=[height,oldDex]
oldDex2=height
end
oldDex2=oldDex2.sort
oldDex2.reverse! if $searchSettings[0]==3
for a in 0...oldDex2.length
height=oldDex2[a]
for b in 0...oldDex.length
if height==oldDex[0]
check=true
if !newDex.empty?
for c in 0...newDex.length
check=false if newDex[c]==oldDex[1]
end
end
if check==true
newDex.push(oldDex[1])
break
end
end
end
@sprites["search_bar"].src_rect.width+=(bar_width/criteria)/oldDex2.length
end
end
# Finished search.
frames=40
frame=0
frames.times do
frame+=1
waitAndUpdate(1)
@sprites["search_bar"].src_rect.width=(bar_width*frame)/frames
end
waitAndUpdate(20)
@sprites["search_bar"].dispose
newDex=convertDex(newDex)
newDex=$pokedex if totalCriteria==0
if newDex.empty?
@sprites["search"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Search/no_pkmn_found")
else
@sprites["search"].bitmap=Bitmap.new("Graphics/Pictures/Pokedex/Search/pkmn_found")
end
loop do
waitAndUpdate(1)
break if Input.trigger?(Input::C)
if defined?($mouse)
if $mouse.inAreaLeft?(0,0,Graphics.width,Graphics.height)
break
end
end
end
@searchStarted=true
@newDex=newDex
end
end

Click to expand...

M3rein said:

# Change to false if you don't use Luka S.J's Elite Battle 2015.
USING_BITMAP_WRAPPER = false

Right at the top.

Click to expand...