Simple mouse Starter selection

[linkthehero]

Hi hmm
i don't like the starter selection of pokemon essentials .
I created a simple starter selection for Pokemon essentials ds
Or essentils with this mouse script : http://www.pokecommunity.com/showthread.php?t=319562

The script for pokemon essentials ds:

Spoiler:

class PokemonStarterSelectScene

def update
pbUpdateSpriteHash(@sprites)
end


STARTER_1=1#first id of starter
STARTER_2=4#second
STARTER_3=7#third
LEVEL=5#level ofstarters
STARTER_1_GRAPHIC="001"
STARTER_2_GRAPHIC="004"
STARTER_3_GRAPHIC="007"


def pbStartScene
@sprites={}
@viewport=Viewport.new(0,0,Graphics.width,Graphics.height)
@viewport.z=99999
@select=0
pbSprite("bg","starterbg",0,0)
pbSprite("choose1",STARTER_1_GRAPHIC,40,532,155)
pbSprite("choose2",STARTER_2_GRAPHIC,180,532,155)
pbSprite("choose3",STARTER_3_GRAPHIC,320,532,155)
end

def pbEndScene
pbDisposeSpriteHash(@sprites)
@viewport.dispose
end

def pbSprite(name,bitmap,x,y,opacity=255)
@sprites["#{name}"]=Sprite.new(@viewport)
@sprites["#{name}"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/#{bitmap}")
@sprites["#{name}"].x=x
@sprites["#{name}"].y=y
@sprites["#{name}"].opacity = opacity
end

def pbStarterSelect
loop do
Graphics.update
Input.update
self.update
case @select
when 0#choose1
@sprites["choose1"].opacity=255
@sprites["choose2"].opacity=155
@sprites["choose3"].opacity=155
when 1#choose2
@sprites["choose1"].opacity=155
@sprites["choose2"].opacity=255
@sprites["choose3"].opacity=155
when 3#choose2
@sprites["choose1"].opacity=155
@sprites["choose2"].opacity=155
@sprites["choose3"].opacity=255
when 2 #not selected
@sprites["choose1"].opacity=155
@sprites["choose2"].opacity=155
@sprites["choose3"].opacity=155
end
if not $mouse.pbMouseOver?(@sprites["choose1"]) or $mouse.pbMouseOver?(@sprites["choose2"]) or $mouse.pbMouseOver?(@sprites["choose3"])
@select=2
end
if $mouse.pbMouseOver?(@sprites["choose1"])
@select=0
end
if $mouse.pbMouseOver?(@sprites["choose2"])
@select=1
end
if $mouse.pbMouseOver?(@sprites["choose3"])
@select=3
end
if $mouse.pbMouseLeftClick?(@sprites["choose1"])
pbAddPokemon(STARTER_1,LEVEL)
$game_variables[7]=0
break
end
if $mouse.pbMouseLeftClick?(@sprites["choose2"])
pbAddPokemon(STARTER_2,LEVEL)
$game_variables[7]=1
break
end
if $mouse.pbMouseLeftClick?(@sprites["choose3"])
pbAddPokemon(STARTER_3,LEVEL)
$game_variables[7]=3
break
end
end
end

end

class PokemonStarterSelect

def initialize(scene)
@scene=scene
end

def pbStartScreen
@scene.pbStartScene
@scene.pbStarterSelect
@scene.pbEndScene
end

end

def pbCallStarterSelect
scene=PokemonStarterSelectScene.new
screen=PokemonStarterSelect.new(scene)
screen.pbStartScreen
end

the script for pokemon essentials with the mouse script:

Spoiler:

class PokemonStarterSelectScene

def update
pbUpdateSpriteHash(@sprites)
end


STARTER_1=1#first id of starter
STARTER_2=4#second
STARTER_3=7#third
LEVEL=5#level ofstarters
STARTER_1_GRAPHIC="001"
STARTER_2_GRAPHIC="004"
STARTER_3_GRAPHIC="007"


def pbStartScene
@sprites={}
@viewport=Viewport.new(0,0,Graphics.width,Graphics.height)
@viewport.z=99999
@select=0
pbSprite("bg","starterbg",0,0)
pbSprite("choose1",STARTER_1_GRAPHIC,40,132,155)
pbSprite("choose2",STARTER_2_GRAPHIC,180,132,155)
pbSprite("choose3",STARTER_3_GRAPHIC,320,132,155)
end

def pbEndScene
pbDisposeSpriteHash(@sprites)
@viewport.dispose
end

def pbSprite(name,bitmap,x,y,opacity=255)
@sprites["#{name}"]=Sprite.new(@viewport)
@sprites["#{name}"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/#{bitmap}")
@sprites["#{name}"].x=x
@sprites["#{name}"].y=y
@sprites["#{name}"].opacity = opacity
end

def pbStarterSelect
loop do
Graphics.update
Input.update
self.update
case @select
when 0#choose1
@sprites["choose1"].opacity=255
@sprites["choose2"].opacity=155
@sprites["choose3"].opacity=155
when 1#choose2
@sprites["choose1"].opacity=155
@sprites["choose2"].opacity=255
@sprites["choose3"].opacity=155
when 3#choose2
@sprites["choose1"].opacity=155
@sprites["choose2"].opacity=155
@sprites["choose3"].opacity=255
when 2 #not selected
@sprites["choose1"].opacity=155
@sprites["choose2"].opacity=155
@sprites["choose3"].opacity=155
end
if not $mouse.over?(@sprites["choose1"]) or $mouse.over?(@sprites["choose2"]) or $mouse.over?(@sprites["choose3"])
@select=2
end
if $mouse.over?(@sprites["choose1"])
@select=0
end
if $mouse.over?(@sprites["choose2"])
@select=1
end
if $mouse.over?(@sprites["choose3"])
@select=3
end
if $mouse.leftClick?(@sprites["choose1"])
pbAddPokemon(STARTER_1,LEVEL)
$game_variables[7]=0
break
end
if $mouse.leftClick?(@sprites["choose2"])
pbAddPokemon(STARTER_2,LEVEL)
$game_variables[7]=1
break
end
if $mouse.leftClick?(@sprites["choose3"])
pbAddPokemon(STARTER_3,LEVEL)
$game_variables[7]=3
break
end
end
end

end

class PokemonStarterSelect

def initialize(scene)
@scene=scene
end

def pbStartScreen
@scene.pbStartScene
@scene.pbStarterSelect
@scene.pbEndScene
end

end

def pbCallStarterSelect
scene=PokemonStarterSelectScene.new
screen=PokemonStarterSelect.new(scene)
screen.pbStartScreen
end

you will also need this pack:
http://www.mediafire.com/download/hytjocs4v0u4973/Starter.rar
yust paste the stuff in the folder into your game =)

Picture:

Spoiler:

ok if you want to open the script ,make a new event ,insert a script( on the last page ) and write this : pbCallStarterSelect

Spoiler:

don't forget to credit me

Special thank to venom 12 for the idea to use Variables,that it is much simpler

 

[venom12]

You could make something like that to be simpler to noob users.

before pbStartScene

add four lines

STARTER_1=1#first id of starter
STARTER_2=4#second
STARTER_3=7#third
LEVEL=5#level ofstarters
STARTER_1_GRAPHIC="001"
STARTER_2_GRAPHIC="004"
STARTER_3_GRAPHIC="007"

The graphics.

pbSprite("choose1",STARTER_1_GRAPHIC,40,532,155)
pbSprite("choose2",STARTER_2_GRAPHIC,200,532,155)
pbSprite("choose3",STARTER_3_GRAPHIC,320,532,155)

Then replace mouse with taht and you wouldnt need to edit bunch of lines

if $mouse.pbMouseLeftClick?(@sprites["choose1"])
pbAddPokemon(STARTER_1,LEVEL)
$game_variables[7]=0
break
end
if $mouse.pbMouseLeftClick?(@sprites["choose2"])
pbAddPokemon(STARTER_2,LEVEL)
$game_variables[7]=1
break
end
if $mouse.pbMouseLeftClick?(@sprites["choose3"])
pbAddPokemon(STARTER_3,LEVEL)
$game_variables[7]=3
break
end

 

[Nickalooose]

I too prefer to use variables, I hate specifics, making things more noob friendly is the best option... Can I have some pictures in the OP so I can see how it looks.

 

[Luka S.J.]

I'd just like to make an extra statement that this Pokemon Selection script will only work with Essentials DS and not just my original script. This is not because of the difference in screen resolutions from original Essentials, but because the defs in my Mouse class have been renamed in Essentials DS.

Just for those who were wondering to adapt it to a single screen layout.

 

[linkthehero]

oh ♥♥♥♥ i forgot it i will make tomorow it for your script

 

[joeyhugg]

If you can get this working with regular Essentials and someone else confirms this, you will be a saint.

 

[linkthehero]

If you can get this working with regular Essentials and someone else confirms this, you will be a saint.

now it should work ,
but you should change the background
or go to line 23 and replace the secund 0 with -400

 

[linkthehero]

deos it work ?becouse if not i will fix it
and what do you think about at

 

[joeyhugg]

I get this error:

Spoiler:

---------------------------
Pokemon Essentials
---------------------------
Exception: RuntimeError

Message: Script error within event 31, map 2 (Eden Town):

Exception: NoMethodError

Message: Section168:65:in `pbStarterSelect'undefined method `over?' for nil:NilClass

***Full script:

pbCallStarterSelect


Interpreter:243:in `pbExecuteScript'

Mouse Starter Selection | linkthehero:43:in `loop'

Mouse Starter Selection | linkthehero:92:in `pbStarterSelect'

Mouse Starter Selection | linkthehero:105:in `pbStartScreen'

Mouse Starter Selection | linkthehero:114:in `pbCallStarterSelect'

(eval):1:in `pbExecuteScript'

Interpreter:1600:in `eval'

Interpreter:243:in `pbExecuteScript'

Interpreter:1600:in `command_355'

Interpreter:494:in `execute_command'



Interpreter:276:in `pbExecuteScript'

Interpreter:1600:in `command_355'

Interpreter:494:in `execute_command'

Interpreter:193:in `update'

Interpreter:106:in `loop'

Interpreter:198:in `update'

Scene_Map:103:in `updateold'

Scene_Map:101:in `loop'

Scene_Map:114:in `updateold'

Time System | FL:151:in `updateOldFL'



This exception was logged in

C:\Users\Joeyhugg\Saved Games/Pokemon Essentials/errorlog.txt.

Press Ctrl+C to copy this message to the clipboard.
---------------------------
OK
---------------------------

What I do see is that the background and all three starter images load, but after they load, the game breaks.

 

[linkthehero]

do you use the mouse script ?

 

[joeyhugg]

Yes, I did. when i followed the instructions in the mouse script, I saved it and loaded the game and it worked. Let me fiddle with it.

Edit: It turns out I installed the mouse script wrong. It works, thanks! I will definitely have to use this. Question, is there a way to use this twice for multiple different selections? Say, one with Kanto starters and another with Johto starters?

 

[Luka S.J.]

Yes, I did. when i followed the instructions in the mouse script, I saved it and loaded the game and it worked. Let me fiddle with it.

You haven't followed the instructions correctly if you're getting that error. The error is saying that your $mouse variable doesn't exist, meaning you haven't declared it as instructed in my thread :) You need to have $mouse = Game_Mouse.new initialized before the game starts.

 

[joeyhugg]

Yeah, I fixed that, as stated in the Edit. I looked back after I posted it and saw that part. I thought that was for writing a script, as opposed to basic installation. Anyway, my question still remains unanswered. Is there a way to use this twice for multiple different selections? Say, one with Kanto starters and another with Johto starters?

 

[Luka S.J.]

Yeah, I fixed that, as stated in the Edit. I looked back after I posted it and saw that part. I thought that was for writing a script, as opposed to basic installation. Anyway, my question still remains unanswered. Is there a way to use this twice for multiple different selections? Say, one with Kanto starters and another with Johto starters?

Yeah of course. Just change the image files, and the number of species you get from the selection. He made it super easy for you.

STARTER_1=1#first id of starter
STARTER_2=4#second
STARTER_3=7#third
LEVEL=5#level ofstarters
STARTER_1_GRAPHIC="001"
STARTER_2_GRAPHIC="004"
STARTER_3_GRAPHIC="007"

EDIT: I should also state (which should go without saying), that you can make two instances of this script, with different names.

 

[joeyhugg]

Yeah of course. Just change the image files, and the number of species you get from the selection. He made it super easy for you.

STARTER_1=1#first id of starter
STARTER_2=4#second
STARTER_3=7#third
LEVEL=5#level ofstarters
STARTER_1_GRAPHIC="001"
STARTER_2_GRAPHIC="004"
STARTER_3_GRAPHIC="007"

EDIT: I should also state (which should go without saying), that you can make two instances of this script, with different names.

Yeah, it was having a second set that I was asking. That part was extremely obvious. But, making a second instance never even occurred to me.

 

[linkthehero]

ok
do you want use it two times with other pokemon or do you want more than two times with other pokemon ?

 

[joeyhugg]

I was hoping for more than two, but I'd settle with two.

Also, how do I make it so:
A) It plays the Pokemon's cry when I mouse over the Pokemon.
B) Displays the message "Would you like to obtain <Insert Pokemon here>?" before it automatically gives me the pokemon?

 

[linkthehero]

ok i will make it for you i think it is very simplei will make it for more than 3 ( using a variable)


the other stuff too

 

[joeyhugg]

Cool, thanks! I will definitely credit you.

 

[linkthehero]

Cool, thanks! I will definitely credit you.

ok it is finish =)
i hope you like it
first i wanted to use an variable but i get allway an undefinded method error bu the code was not wrong but never mind
hear is the script for the first selection:

Spoiler:

class PokemonStarterSelectScene

def update
pbUpdateSpriteHash(@sprites)
end


STARTER_1=1#first id of starter
STARTER_2=4#second
STARTER_3=7#third
LEVEL=5#level ofstarters
STARTER_1_GRAPHIC="001"
STARTER_2_GRAPHIC="004"
STARTER_3_GRAPHIC="007"
Sound_1='001Cry'
Sound_2='004Cry'
Sound_3='007Cry'

def pbStartScene
@sprites={}
@viewport=Viewport.new(0,0,Graphics.width,Graphics.height)
@viewport.z=99999
@select=0
pbSprite("bg","starterbg",0,0)
pbSprite("choose1",STARTER_1_GRAPHIC,40,132,155)
pbSprite("choose2",STARTER_2_GRAPHIC,180,132,155)
pbSprite("choose3",STARTER_3_GRAPHIC,320,132,155)
end

def pbEndScene
pbDisposeSpriteHash(@sprites)
@viewport.dispose
end

def pbSprite(name,bitmap,x,y,opacity=255)
@sprites["#{name}"]=Sprite.new(@viewport)
@sprites["#{name}"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/#{bitmap}")
@sprites["#{name}"].x=x
@sprites["#{name}"].y=y
@sprites["#{name}"].opacity = opacity
end

def pbStarterSelect
loop do
Graphics.update
Input.update
self.update
case @select
when 0#choose1
@sprites["choose1"].opacity=255
@sprites["choose2"].opacity=155
@sprites["choose3"].opacity=155
when 1#choose2
@sprites["choose1"].opacity=155
@sprites["choose2"].opacity=255
@sprites["choose3"].opacity=155
when 3#choose2

@sprites["choose1"].opacity=155
@sprites["choose2"].opacity=155
@sprites["choose3"].opacity=255
when 2 #not selected
@sprites["choose1"].opacity=155
@sprites["choose2"].opacity=155
@sprites["choose3"].opacity=155
end
if not $mouse.over?(@sprites["choose1"]) or $mouse.over?(@sprites["choose2"]) or $mouse.over?(@sprites["choose3"])
@select=2
end
if $mouse.over?(@sprites["choose1"])
@select=0
end
if $mouse.over?(@sprites["choose2"])
@select=1
end
if $mouse.over?(@sprites["choose3"])
@select=3
end
if $mouse.leftClick?(@sprites["choose1"])
pbSEPlay(Sound_1,100,100)
cmd=Kernel.pbMessage(_INTL("Do you want this pokemon ?"),
[_INTL("Yes"),_INTL("No")],2)
if cmd==0 || cmd==1
if cmd==0
pbAddPokemon(STARTER_1,LEVEL)
$game_variables[7]=0
break
end

elsif cmd==1
return
end
end

if $mouse.leftClick?(@sprites["choose2"])
pbSEPlay(Sound_2,100,100)
cmd=Kernel.pbMessage(_INTL("Do you want this pokemon ?"),
[_INTL("Yes"),_INTL("No")],2)
if cmd==0 || cmd==1
if cmd==0
pbAddPokemon(STARTER_2,LEVEL)
$game_variables[7]=1
break
end

elsif cmd==1
return
end
end

if $mouse.leftClick?(@sprites["choose3"])
pbSEPlay(Sound_3,100,100)
cmd=Kernel.pbMessage(_INTL("Do you want this pokemon ?"),
[_INTL("Yes"),_INTL("No")],2)
if cmd==0 || cmd==1
if cmd==0
pbAddPokemon(STARTER_3,LEVEL)
$game_variables[7]=3
break
end

elsif cmd==1
return
end
end

end
end

end

class PokemonStarterSelect

def initialize(scene)
@scene=scene
end

def pbStartScreen
@scene.pbStartScene
@scene.pbStarterSelect
@scene.pbEndScene
end

end

def pbCallStarterSelect
scene=PokemonStarterSelectScene.new
screen=PokemonStarterSelect.new(scene)
screen.pbStartScreen
end

and this is the secund (open it with pbCallStarterSelect2)

Spoiler:

class PokemonStarterSelectScene2

def update
pbUpdateSpriteHash(@sprites)
end


STARTER_1=1#first id of starter
STARTER_2=4#second
STARTER_3=7#third
LEVEL=5#level ofstarters
STARTER_1_GRAPHIC="001"
STARTER_2_GRAPHIC="004"
STARTER_3_GRAPHIC="007"
Sound_1='001Cry'
Sound_2='004Cry'
Sound_3='007Cry'

def pbStartScene
@sprites={}
@viewport=Viewport.new(0,0,Graphics.width,Graphics.height)
@viewport.z=99999
@select=0
pbSprite("bg","starterbg",0,0)
pbSprite("choose1",STARTER_1_GRAPHIC,40,132,155)
pbSprite("choose2",STARTER_2_GRAPHIC,180,132,155)
pbSprite("choose3",STARTER_3_GRAPHIC,320,132,155)
end

def pbEndScene
pbDisposeSpriteHash(@sprites)
@viewport.dispose
end

def pbSprite(name,bitmap,x,y,opacity=255)
@sprites["#{name}"]=Sprite.new(@viewport)
@sprites["#{name}"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/#{bitmap}")
@sprites["#{name}"].x=x
@sprites["#{name}"].y=y
@sprites["#{name}"].opacity = opacity
end

def pbStarterSelect2
loop do
Graphics.update
Input.update
self.update
case @select
when 0#choose1
@sprites["choose1"].opacity=255
@sprites["choose2"].opacity=155
@sprites["choose3"].opacity=155
when 1#choose2
@sprites["choose1"].opacity=155
@sprites["choose2"].opacity=255
@sprites["choose3"].opacity=155
when 3#choose2

@sprites["choose1"].opacity=155
@sprites["choose2"].opacity=155
@sprites["choose3"].opacity=255
when 2 #not selected
@sprites["choose1"].opacity=155
@sprites["choose2"].opacity=155
@sprites["choose3"].opacity=155
end
if not $mouse.over?(@sprites["choose1"]) or $mouse.over?(@sprites["choose2"]) or $mouse.over?(@sprites["choose3"])
@select=2
end
if $mouse.over?(@sprites["choose1"])
@select=0
end
if $mouse.over?(@sprites["choose2"])
@select=1
end
if $mouse.over?(@sprites["choose3"])
@select=3
end
if $mouse.leftClick?(@sprites["choose1"])
pbSEPlay(Sound_1,100,100)
cmd=Kernel.pbMessage(_INTL("Do you want this pokemon ?"),
[_INTL("Yes"),_INTL("No")],2)
if cmd==0 || cmd==1
if cmd==0
pbAddPokemon(STARTER_1,LEVEL)
$game_variables[7]=0
break
end

elsif cmd==1
return
end
end

if $mouse.leftClick?(@sprites["choose2"])
pbSEPlay(Sound_2,100,100)
cmd=Kernel.pbMessage(_INTL("Do you want this pokemon ?"),
[_INTL("Yes"),_INTL("No")],2)
if cmd==0 || cmd==1
if cmd==0
pbAddPokemon(STARTER_2,LEVEL)
$game_variables[7]=1
break
end

elsif cmd==1
return
end
end

if $mouse.leftClick?(@sprites["choose3"])
pbSEPlay(Sound_3,100,100)
cmd=Kernel.pbMessage(_INTL("Do you want this pokemon ?"),
[_INTL("Yes"),_INTL("No")],2)
if cmd==0 || cmd==1
if cmd==0
pbAddPokemon(STARTER_3,LEVEL)
$game_variables[7]=3
break
end

elsif cmd==1
return
end
end

end
end

end

class PokemonStarterSelect2

def initialize(scene)
@scene=scene
end

def pbStartScreen
@scene.pbStartScene
@scene.pbStarterSelect2
@scene.pbEndScene
end

end

def pbCallStarterSelect2
scene=PokemonStarterSelectScene2.new
screen=PokemonStarterSelect2.new(scene)
screen.pbStartScreen
end