Mystery Gift System (Basic)

PokemonPlatnum · Apr 8, 2010

Mystery Gift System 2.0 for Pokémon Essentials

------------------------------------------------------------------------------------------------------------------------------------
Instructions:

To use this script simply place it above main :)
To call the script use Class_MysteryGift.new

If you can find some cool way you've used the script please post a screenshot :P
Any problems? Talk to me on this thread :D
-----------------------------------------------------------------------------------------------------------
Scripts
----------------------------------------------------------------------------------------------------------
Version 1.0 *OLD*

Spoiler:

Version 2.0 NEW*

Spoiler:

It's here.
Mystery Gift System 2.0
Whats New:

You can select between different items which is then followed by a password unlock.
Slightly easier to add more than 2 items.

Code:

#######################################################################
# Mystery Gift System 2.0                                             #
# For Pokemon Essentials                                              #
# By PokemonPlatnum and Crazyninjaguy(Most by him :L)                 #
# Using ALOT of help from Wichu                                       #
# http://www.planetdev.net                                            #
# 12/05/2010                                                          #
#If you are having trouble with this script contact me on my profile, #
#by pm or on the thread, thanks                                       #
#######################################################################
=begin

To call this script simply use this:
Class_MysteryGift.new

=end
class MysteryGift
  def initialize(menu_index = 0)
    @menu_index = menu_index
    @sprites={}
    @sprites["spriteset"]=Spriteset_Map.new
  end
  def main
    commands=[
      _INTL("Potion"),
      _INTL("Elixir"),
      _INTL("Ether"),
      _INTL("Exit")
    ]
    @command = Window_CommandPokemon.new(commands, 160)
    @text = Window_UnformattedTextPokemon.new("Which gift would you  like?")
    @text.y = Graphics.height - @text.height
    @command.x = Graphics.width - @command.width
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      update
      if $scene != self
        break
      end
    end
    Graphics.freeze
    pbDisposeSpriteHash(@sprites)
  end
  def update
    @command.update
    if @command.active
      update_command
    end
  end
  def update_command
    if Input.trigger?(Input::B)
      $scene = Scene_Map.new
    end
    if Input.trigger?(Input::C)
    case @command.index
    when 0
      password=pbEnterText(_INTL("Enter the password"),8,8)
      case password
      when "PASSWORD"
        Kernel.pbMessage(_INTL("Correct password!"))
        Kernel.pbReceiveItem(PBItems::POTION)
      else
        Kernel.pbMessage(_INTL("Incorrect password..."))
      end
      end
    when 1
      password=pbEnterText(_INTL("Enter the password"),8,8)
      case password
      when "adhosdgf"
        Kernel.pbMessage(_INTL("Correct password!"))
        Kernel.pbReceiveItem(PBItems::ELIXIR)
      else
        Kernel.pbMessage(_INTL("Incorrect password..."))
      end
      end
    when 2
      password=pbEnterText(_INTL("Enter the password"),8,8)
      case password
      when "pwnage91"
        Kernel.pbMessage(_INTL("Correct password!"))
        Kernel.pbReceiveItem(PBItems::ETHER)
      else
        Kernel.pbMessage(_INTL("Incorrect password..."))
      end
      end
    when 3
      $scene = Scene_Map.new
    end
  end
end

What's going to be in 3.0?

Mystery gift background image.
Mystery gift BGM Audio.
Access from the 'New Game' screen :)
If you would personally like any features to be added reply on this thread :P

REMEMBER TO CREDIT CRAZYNINJAGUY, ME AND WICHU FOR THIS SCRIPT.
Thank you

Credits:
-----------
CRAZYNINJAGUY : Teaching me and making the bulk of the script.
ME : I'd like to thank me fro starting this project and making version 1.0
WICHU : Giving me some scripting help :p

キラキラ · Apr 11, 2010

Would it be possible to change the amount of characters needed? I can't use a 5 character password, or else it doesn't enter.
I'm fine with making the passwords have space at the end though, I'm just curious.

Thank you so much for the script, I'll be using it. :]
Credits to yourself and Wichu.

PokemonPlatnum · Apr 11, 2010

キラキラ said:
Would it be possible to change the amount of characters needed? I can't use a 5 character password, or else it doesn't enter.
I'm fine with making the passwords have space at the end though, I'm just curious.

Thank you so much for the script, I'll be using it. :]
Credits to yourself and Wichu.

Simple :)
Go to this section of the script:

Code:

  password=pbEnterText(_INTL("Enter the password"),[B]8[/B],[U]8[/U])

This is what this can be translated as :)

Code:

def pbEnterText(helptext,[B]minlength[/B],[U]maxlength[/U],initialText="")

I used the underline and bold to help :)
So simply change the 8 to a 5 ;)
Like so:

Code:

  password=pbEnterText(_INTL("Enter the password"),[B]5,5[/B])

Done
-PP

キラキラ · Apr 11, 2010

I was looking at that, wasn't sure though. Thanks! Script works wonderfully and useful for events "pbAddForeignPokemon".

PokemonPlatnum · Apr 11, 2010

キラキラ said:
I was looking at that, wasn't sure though. Thanks! Script works wonderfully and useful for events "pbAddForeignPokemon".

I'm glad I helped and that you enjoy the script :)
-PP

Urugamosu · Apr 28, 2010

Like!

Wow.. Amazing. Thanks to you, I can do this!

PokemonPlatnum · May 1, 2010

westfieldfishblue said:
Wow.. Amazing. Thanks to you, I can do this!

Glad to help :) If you need any help please reply on this thread.
-PP

☆Rei☆ · May 5, 2010

i cant get it 2 work with 2 or more events help. well i mean i got it to work but not with more than 2 passwords it doesnt do the 2nd 1 srry this is on a psp so im lazy on it.

PokemonPlatnum · May 8, 2010

hansiec said:
i cant get it 2 work with 2 or more events help. well i mean i got it to work but not with more than 2 passwords it doesnt do the 2nd 1 srry this is on a psp so im lazy on it.

Emm...make a new event above main and put this in it :) It hasn't been tested so tell me if it works :P Remember now to call Class_MysteryGift2.new, this time :)

Code:

#######################################################################
# Mystery Gift System for Pokemon Essentials                          #
# By PokemonPlatnum for the PokeCommunity                             #
# Using ALOT of help from Wichu                                       #
# 8/04/2010                                                           #
#If you are having trouble with this script contact me on my profile, #
#by pm or on the thread, thanks                                       #
#######################################################################
=begin

To call this script simply use this:
Class_MysteryGift2.new

=end
class Class_MysteryGift2
def initialize
getPassword
end

def getPassword
  password=pbEnterText(_INTL("Enter the password"),8,8)
  case password
  when "PASSWORD" #You can choose yor password on this line
    Kernel.pbMessage(_INTL("Correct password!")) #This is the text after inputting the password.
    Kernel.pbReceiveItem(PBItems::MEMBERSPASS) #You can change this item if needed.
  when "adhosdgf" #You can choose yor password on this line
    Kernel.pbMessage(_INTL("Correct password!")) #This is the text after inputting the password.
    Kernel.pbReceiveItem(PBItems::OAKSLETTER) #You can change this item if needed.
  when "adhosdgf" #You can choose yor password on this line
    #You can insert your own items and messages here
  else
    Kernel.pbMessage(_INTL("Incorrect password..."))
  end
end
end

emm...might update this soon ;)

Blinde · May 10, 2010

how do you make it go on the start up menu?

☆Rei☆ · May 10, 2010

k it works, ty. oh and maki
g it on the titlescreen edit pokemonload script.

Blinde · May 10, 2010

ok... were on pokemonload do i put it? everyplace i put it it starts Immediately when i start the game.

PokemonPlatnum · May 12, 2010

It's here.
Mystery Gift System 2.0
Whats New:

You can select between different items which is then followed by a password unlock.
Slightly easier to add more than 2 items.

Code:

#######################################################################
# Mystery Gift System 2.0                                             #
# For Pokemon Essentials                                              #
# By PokemonPlatnum and Crazyninjaguy(Most by him :L)                 #
# Using ALOT of help from Wichu                                       #
# http://www.planetdev.net                                            #
# 12/05/2010                                                          #
#If you are having trouble with this script contact me on my profile, #
#by pm or on the thread, thanks                                       #
#######################################################################
=begin

To call this script simply use this:
Class_MysteryGift.new

=end
class MysteryGift
  def initialize(menu_index = 0)
    @menu_index = menu_index
    @sprites={}
    @sprites["spriteset"]=Spriteset_Map.new
  end
  def main
    commands=[
      _INTL("Potion"),
      _INTL("Elixir"),
      _INTL("Ether"),
      _INTL("Exit")
    ]
    @command = Window_CommandPokemon.new(commands, 160)
    @text = Window_UnformattedTextPokemon.new("Which gift would you   like?")
    @text.y = Graphics.height - @text.height
    @command.x = Graphics.width - @command.width
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      update
      if $scene != self
        break
      end
    end
    Graphics.freeze
    pbDisposeSpriteHash(@sprites)
  end
  def update
    @command.update
    if @command.active
      update_command
    end
  end
  def update_command
    if Input.trigger?(Input::B)
      $scene = Scene_Map.new
    end
    if Input.trigger?(Input::C)
    case @command.index
    when 0
      password=pbEnterText(_INTL("Enter the password"),8,8)
      case password
      when "PASSWORD"
        Kernel.pbMessage(_INTL("Correct password!"))
        Kernel.pbReceiveItem(PBItems::POTION)
      else
        Kernel.pbMessage(_INTL("Incorrect password..."))
      end
      end
    when 1
      password=pbEnterText(_INTL("Enter the password"),8,8)
      case password
      when "adhosdgf"
        Kernel.pbMessage(_INTL("Correct password!"))
        Kernel.pbReceiveItem(PBItems::ELIXIR)
      else
        Kernel.pbMessage(_INTL("Incorrect password..."))
      end
      end
    when 2
      password=pbEnterText(_INTL("Enter the password"),8,8)
      case password
      when "pwnage91"
        Kernel.pbMessage(_INTL("Correct password!"))
        Kernel.pbReceiveItem(PBItems::ETHER)
      else
        Kernel.pbMessage(_INTL("Incorrect password..."))
      end
      end
    when 3
      $scene = Scene_Map.new
    end
  end
end

What's going to be in 3.0?

Mystery gift background image.
Mystery gift BGM Audio.
Access from the 'New Game' screen :)
If you would personally like any features to be added reply on this thread :P

REMEMBER TO CREDIT CRAZYNINJAGUY, ME AND WICHU FOR THIS SCRIPT.
Thank you

Cilerba · May 12, 2010

Wow. This is really good ^_^
I had a script similar to this a while back, but your script is a lot better then mine. However, you should add comments in the lines just to maybe help people if they want to add new passwords, add new gifts, etc.

Crazyninjaguy · May 12, 2010

Yeah, i'll add that in the next version :)
Customization is always important.

PokemonPlatnum · May 12, 2010

Cilerba said:
Wow. This is really good ^_^
I had a script similar to this a while back, but your script is a lot better then mine. However, you should add comments in the lines just to maybe help people if they want to add new passwords, add new gifts, etc.

Thanks :)
Yeah I did that for Version 1 and I must of forgot :O

Lucario_XP · May 12, 2010

I get error:
? 62? SyntaxError ??????
in line 62 where it says:
When 1 #on this is the line error
password = pbEnterText (_INTL ("Enter the password"), 8,8)

Cilerba · May 12, 2010

Lucario_XP said:
I get error:
? 62? SyntaxError ??????
in line 62 where it says:
When 1 #on this is the line error
password = pbEnterText (_INTL ("Enter the password"), 8,8)

You shouldn't have a space between "pbEnterText" and "(_INTL"

Lucario_XP · May 12, 2010

Cilerba said:
You shouldn't have a space between "pbEnterText" and "(_INTL"

I'm sorry, I wrote wrong in the previous message.
but in the script so I have no spaces.
what which is not the problem.

Cilerba · May 12, 2010

Lucario_XP said:
I'm sorry, I wrote wrong in the previous message.
but in the script so I have no spaces.
what which is not the problem.

Hmm...well then I cannot help you. Ask Pokemon Platnum for help with the script. :\

Mystery Gift System (Basic)

More options

PokemonPlatnum

nomnomnom.

キラキラ

KiraKira

PokemonPlatnum

nomnomnom.

キラキラ

KiraKira

PokemonPlatnum

nomnomnom.

Urugamosu

Happy, and Searching.

PokemonPlatnum

nomnomnom.

☆Rei☆

PokemonPlatnum

nomnomnom.

Blinde

☆Rei☆

Blinde

PokemonPlatnum

nomnomnom.

Cilerba

the hearts of lonely people

Crazyninjaguy

PokemonPlatnum

nomnomnom.

Lucario_XP

Cilerba

the hearts of lonely people

Lucario_XP

Cilerba

the hearts of lonely people