Mystery Gift System (Basic)

[PokemonPlatnum]

Ok, i'm also having issues with this script :) Please do NOT use this script until CNG gets home and work on this script properly :)

 

[majorgames]

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

1. To use this script simply place it above main :)
2. 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:

#######################################################################
# Mystery Gift System v1.0 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_MysteryGift.new
 
=end
class Class_MysteryGift
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

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.

#######################################################################
# 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

Thanks dude i needed mystery gift in some way shape or form and you gave it to me, i have a request for V.3 and a question

request - would it be possible for you to make it so that mystery gift works only when i start say a particular server maby via a script or program that i start. then when the people find out about the event they can go to mystery gift and access the event without pass word but rather straight from the server that i set up.

question - when is V.3 comming out

 

[Neo-Spriteman]

What's going to be in 3.0?[/SIZE]

• 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

I personally think you should allow the use of the sprites for items (ex. Enigma Crystal, Azure Flute ect.)

 

[PokemonPlatnum]

Thanks dude i needed mystery gift in some way shape or form and you gave it to me, i have a request for V.3 and a question

request - would it be possible for you to make it so that mystery gift works only when i start say a particular server maby via a script or program that i start. then when the people find out about the event they can go to mystery gift and access the event without pass word but rather straight from the server that i set up.

question - when is V.3 comming out

1. No problem :)
2. I'll look into your request :)
3. It'll be out when it's out atm V2.0 doesn't work :L

I personally think you should allow the use of the sprites for items (ex. Enigma Crystal, Azure Flute ect.)

Yeah, good idea :) Thanks man :P

 

[nitrostarss]

I have a question how can it be done so that it can only be redeemed once, since the password can be entered infinitely and be able to receive that unlimited object?