mirror of
https://github.com/infinitefusion/infinitefusion-e18.git
synced 2025-12-10 22:54:59 +00:00
Initial commit
This commit is contained in:
Maruno17
427
Data/Scripts/016_UI/026_PScreen_MysteryGift.rb
Normal file
427
Data/Scripts/016_UI/026_PScreen_MysteryGift.rb
Normal file
@@ -0,0 +1,427 @@
|
||||
#===============================================================================
|
||||
# Mystery Gift system
|
||||
# By Maruno
|
||||
#===============================================================================
|
||||
# This url is the location of an example Mystery Gift file.
|
||||
# You should change it to your file's url once you upload it.
|
||||
# NOTE: Essentials cannot handle https addresses. You must use a http address.
|
||||
#===============================================================================
|
||||
MYSTERY_GIFT_URL = "http://images1.wikia.nocookie.net/pokemonessentials/images/e/e7/MysteryGift.txt"
|
||||
# MYSTERY_GIFT_URL = "http://pastebin.com/raw/w6BqqUsm"
|
||||
|
||||
|
||||
|
||||
class PokeBattle_Trainer
|
||||
attr_accessor(:mysterygiftaccess) # Whether MG can be used from load screen
|
||||
attr_accessor(:mysterygift) # Variable that stores downloaded MG data
|
||||
|
||||
def mysterygiftaccess
|
||||
@mysterygiftaccess = false if !@mysterygiftaccess
|
||||
return @mysterygiftaccess
|
||||
end
|
||||
|
||||
def mysterygift
|
||||
@mysterygift = [] if !@mysterygift
|
||||
return @mysterygift
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
|
||||
#===============================================================================
|
||||
# Creating a new Mystery Gift for the Master file, and editing an existing one.
|
||||
#===============================================================================
|
||||
# type: 0=Pokémon; 1 or higher=item (is the item's quantity).
|
||||
# item: The thing being turned into a Mystery Gift (Pokémon object or item ID).
|
||||
def pbEditMysteryGift(type,item,id=0,giftname="")
|
||||
begin
|
||||
if type==0 # Pokémon
|
||||
commands=[_INTL("Mystery Gift"),
|
||||
_INTL("Faraway place")]
|
||||
commands.push(item.obtainText) if item.obtainText && item.obtainText!=""
|
||||
commands.push(_INTL("[Custom]"))
|
||||
loop do
|
||||
command=pbMessage(
|
||||
_INTL("Choose a phrase to be where the gift Pokémon was obtained from."),commands,-1)
|
||||
if command<0
|
||||
return nil if pbConfirmMessage(_INTL("Stop editing this gift?"))
|
||||
elsif command<commands.length-1
|
||||
item.obtainText=commands[command]
|
||||
break
|
||||
elsif command==commands.length-1
|
||||
obtainname=pbMessageFreeText(_INTL("Enter a phrase."),"",false,32)
|
||||
if obtainname!=""
|
||||
item.obtainText=obtainname
|
||||
break
|
||||
end
|
||||
return nil if pbConfirmMessage(_INTL("Stop editing this gift?"))
|
||||
end
|
||||
end
|
||||
elsif type>0 # Item
|
||||
params=ChooseNumberParams.new
|
||||
params.setRange(1,99999)
|
||||
params.setDefaultValue(type)
|
||||
params.setCancelValue(0)
|
||||
loop do
|
||||
newtype=pbMessageChooseNumber(_INTL("Choose a quantity."),params)
|
||||
if newtype==0
|
||||
return nil if pbConfirmMessage(_INTL("Stop editing this gift?"))
|
||||
else
|
||||
type=newtype
|
||||
break
|
||||
end
|
||||
end
|
||||
end
|
||||
if id==0
|
||||
master=[]; idlist=[]
|
||||
if safeExists?("MysteryGiftMaster.txt")
|
||||
master=IO.read("MysteryGiftMaster.txt")
|
||||
master=pbMysteryGiftDecrypt(master)
|
||||
end
|
||||
for i in master; idlist.push(i[0]); end
|
||||
params=ChooseNumberParams.new
|
||||
params.setRange(0,99999)
|
||||
params.setDefaultValue(id)
|
||||
params.setCancelValue(0)
|
||||
loop do
|
||||
newid=pbMessageChooseNumber(_INTL("Choose a unique ID for this gift."),params)
|
||||
if newid==0
|
||||
return nil if pbConfirmMessage(_INTL("Stop editing this gift?"))
|
||||
else
|
||||
if idlist.include?(newid)
|
||||
pbMessage(_INTL("That ID is already used by a Mystery Gift."))
|
||||
else
|
||||
id=newid
|
||||
break
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
loop do
|
||||
newgiftname=pbMessageFreeText(_INTL("Enter a name for the gift."),giftname,false,32)
|
||||
if newgiftname!=""
|
||||
giftname=newgiftname
|
||||
break
|
||||
end
|
||||
return nil if pbConfirmMessage(_INTL("Stop editing this gift?"))
|
||||
end
|
||||
return [id,type,item,giftname]
|
||||
rescue
|
||||
pbMessage(_INTL("Couldn't edit the gift."))
|
||||
return nil
|
||||
end
|
||||
end
|
||||
|
||||
def pbCreateMysteryGift(type,item)
|
||||
gift=pbEditMysteryGift(type,item)
|
||||
if !gift
|
||||
pbMessage(_INTL("Didn't create a gift."))
|
||||
else
|
||||
begin
|
||||
if safeExists?("MysteryGiftMaster.txt")
|
||||
master=IO.read("MysteryGiftMaster.txt")
|
||||
master=pbMysteryGiftDecrypt(master)
|
||||
master.push(gift)
|
||||
else
|
||||
master=[gift]
|
||||
end
|
||||
string=pbMysteryGiftEncrypt(master)
|
||||
File.open("MysteryGiftMaster.txt","wb") { |f| f.write(string) }
|
||||
pbMessage(_INTL("The gift was saved to MysteryGiftMaster.txt."))
|
||||
rescue
|
||||
pbMessage(_INTL("Couldn't save the gift to MysteryGiftMaster.txt."))
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
#===============================================================================
|
||||
# Debug option for managing gifts in the Master file and exporting them to a
|
||||
# file to be uploaded.
|
||||
#===============================================================================
|
||||
def pbManageMysteryGifts
|
||||
if !safeExists?("MysteryGiftMaster.txt")
|
||||
pbMessage(_INTL("There are no Mystery Gifts defined."))
|
||||
return
|
||||
end
|
||||
# Load all gifts from the Master file.
|
||||
master=IO.read("MysteryGiftMaster.txt")
|
||||
master=pbMysteryGiftDecrypt(master)
|
||||
if !master || !master.is_a?(Array) || master.length==0
|
||||
pbMessage(_INTL("There are no Mystery Gifts defined."))
|
||||
return
|
||||
end
|
||||
# Download all gifts from online
|
||||
msgwindow=pbCreateMessageWindow
|
||||
pbMessageDisplay(msgwindow,_INTL("Searching for online gifts...\\wtnp[0]"))
|
||||
online=pbDownloadToString(MYSTERY_GIFT_URL)
|
||||
pbDisposeMessageWindow(msgwindow)
|
||||
if online==""
|
||||
pbMessage(_INTL("No online Mystery Gifts found.\\wtnp[20]"))
|
||||
online=[]
|
||||
else
|
||||
pbMessage(_INTL("Online Mystery Gifts found.\\wtnp[20]"))
|
||||
online=pbMysteryGiftDecrypt(online)
|
||||
t=[]
|
||||
for gift in online; t.push(gift[0]); end
|
||||
online=t
|
||||
end
|
||||
# Show list of all gifts.
|
||||
command=0
|
||||
loop do
|
||||
commands=pbRefreshMGCommands(master,online)
|
||||
command=pbMessage(_INTL("\\ts[]Manage Mystery Gifts (X=online)."),commands,-1,nil,command)
|
||||
# Gift chosen
|
||||
if command==-1 || command==commands.length-1
|
||||
break
|
||||
elsif command==commands.length-2
|
||||
begin
|
||||
newfile=[]
|
||||
for gift in master
|
||||
newfile.push(gift) if online.include?(gift[0])
|
||||
end
|
||||
string=pbMysteryGiftEncrypt(newfile)
|
||||
File.open("MysteryGift.txt","wb") { |f| f.write(string) }
|
||||
pbMessage(_INTL("The gifts were saved to MysteryGift.txt."))
|
||||
pbMessage(_INTL("Upload MysteryGift.txt to the Internet."))
|
||||
rescue
|
||||
pbMessage(_INTL("Couldn't save the gifts to MysteryGift.txt."))
|
||||
end
|
||||
elsif command>=0 && command<commands.length-2
|
||||
cmd=0
|
||||
loop do
|
||||
commands=pbRefreshMGCommands(master,online)
|
||||
gift=master[command]
|
||||
cmds=[_INTL("Toggle on/offline"),
|
||||
_INTL("Edit"),
|
||||
_INTL("Receive"),
|
||||
_INTL("Delete"),
|
||||
_INTL("Cancel")]
|
||||
cmd=pbMessage("\\ts[]"+commands[command],cmds,-1,nil,cmd)
|
||||
if cmd==-1 || cmd==cmds.length-1
|
||||
break
|
||||
elsif cmd==0 # Toggle on/offline
|
||||
if online.include?(gift[0])
|
||||
for i in 0...online.length
|
||||
online[i]=nil if online[i]==gift[0]
|
||||
end
|
||||
online.compact!
|
||||
else
|
||||
online.push(gift[0])
|
||||
end
|
||||
elsif cmd==1 # Edit
|
||||
newgift=pbEditMysteryGift(gift[1],gift[2],gift[0],gift[3])
|
||||
master[command]=newgift if newgift
|
||||
elsif cmd==2 # Receive
|
||||
replaced=false
|
||||
for i in 0...$Trainer.mysterygift.length
|
||||
if $Trainer.mysterygift[i][0]==gift[0]
|
||||
$Trainer.mysterygift[i]=gift; replaced=true
|
||||
end
|
||||
end
|
||||
$Trainer.mysterygift.push(gift) if !replaced
|
||||
pbReceiveMysteryGift(gift[0])
|
||||
elsif cmd==3 # Delete
|
||||
if pbConfirmMessage(_INTL("Are you sure you want to delete this gift?"))
|
||||
master[command]=nil
|
||||
master.compact!
|
||||
end
|
||||
break
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
def pbRefreshMGCommands(master,online)
|
||||
commands=[]
|
||||
for gift in master
|
||||
itemname="BLANK"
|
||||
if gift[1]==0
|
||||
itemname=PBSpecies.getName(gift[2].species)
|
||||
elsif gift[1]>0
|
||||
itemname=PBItems.getName(gift[2])+sprintf(" x%d",gift[1])
|
||||
end
|
||||
ontext=["[ ]","[X]"][(online.include?(gift[0])) ? 1 : 0]
|
||||
commands.push(_INTL("{1} {2}: {3} ({4})",ontext,gift[0],gift[3],itemname))
|
||||
end
|
||||
commands.push(_INTL("Export selected to file"))
|
||||
commands.push(_INTL("Cancel"))
|
||||
return commands
|
||||
end
|
||||
|
||||
#===============================================================================
|
||||
# Downloads all available Mystery Gifts that haven't been downloaded yet.
|
||||
#===============================================================================
|
||||
# Called from the Continue/New Game screen.
|
||||
def pbDownloadMysteryGift(trainer)
|
||||
sprites={}
|
||||
viewport=Viewport.new(0,0,Graphics.width,Graphics.height)
|
||||
viewport.z=99999
|
||||
addBackgroundPlane(sprites,"background","mysteryGiftbg",viewport)
|
||||
pbFadeInAndShow(sprites)
|
||||
sprites["msgwindow"]=pbCreateMessageWindow
|
||||
pbMessageDisplay(sprites["msgwindow"],_INTL("Searching for a gift.\nPlease wait...\\wtnp[0]"))
|
||||
string=pbDownloadToString(MYSTERY_GIFT_URL)
|
||||
if string==""
|
||||
pbMessageDisplay(sprites["msgwindow"],_INTL("No new gifts are available."))
|
||||
else
|
||||
online=pbMysteryGiftDecrypt(string)
|
||||
pending=[]
|
||||
for gift in online
|
||||
notgot=true
|
||||
for j in trainer.mysterygift
|
||||
notgot=false if j[0]==gift[0]
|
||||
end
|
||||
pending.push(gift) if notgot
|
||||
end
|
||||
if pending.length==0
|
||||
pbMessageDisplay(sprites["msgwindow"],_INTL("No new gifts are available."))
|
||||
else
|
||||
loop do
|
||||
commands=[]
|
||||
for gift in pending; commands.push(gift[3]); end
|
||||
commands.push(_INTL("Cancel"))
|
||||
pbMessageDisplay(sprites["msgwindow"],_INTL("Choose the gift you want to receive.\\wtnp[0]"))
|
||||
command=pbShowCommands(sprites["msgwindow"],commands,-1)
|
||||
if command==-1 || command==commands.length-1
|
||||
break
|
||||
else
|
||||
gift=pending[command]
|
||||
sprites["msgwindow"].visible=false
|
||||
isitem=false
|
||||
if gift[1]==0
|
||||
sprite=PokemonSprite.new(viewport)
|
||||
sprite.setOffset(PictureOrigin::Center)
|
||||
sprite.setPokemonBitmap(gift[2])
|
||||
sprite.x=Graphics.width/2
|
||||
sprite.y=-sprite.bitmap.height/2
|
||||
else
|
||||
sprite=ItemIconSprite.new(0,0,gift[2],viewport)
|
||||
sprite.x=Graphics.width/2
|
||||
sprite.y=-sprite.height/2
|
||||
isitem=true
|
||||
end
|
||||
distanceDiff = 8*20/Graphics.frame_rate
|
||||
begin
|
||||
Graphics.update
|
||||
Input.update
|
||||
sprite.update
|
||||
sprite.y+=distanceDiff
|
||||
end while sprite.y<Graphics.height/2
|
||||
pbMEPlay("Battle capture success")
|
||||
(Graphics.frame_rate*3).times do
|
||||
Graphics.update
|
||||
Input.update
|
||||
sprite.update
|
||||
pbUpdateSceneMap
|
||||
end
|
||||
sprites["msgwindow"].visible=true
|
||||
pbMessageDisplay(sprites["msgwindow"],_INTL("The gift has been received!")) { sprite.update }
|
||||
pbMessageDisplay(sprites["msgwindow"],_INTL("Please pick up your gift from the deliveryman in any Poké Mart.")) { sprite.update }
|
||||
trainer.mysterygift.push(gift)
|
||||
pending[command]=nil; pending.compact!
|
||||
opacityDiff = 16*20/Graphics.frame_rate
|
||||
begin
|
||||
Graphics.update
|
||||
Input.update
|
||||
sprite.update
|
||||
sprite.opacity-=opacityDiff
|
||||
end while sprite.opacity>0
|
||||
sprite.dispose
|
||||
end
|
||||
if pending.length==0
|
||||
pbMessageDisplay(sprites["msgwindow"],_INTL("No new gifts are available."))
|
||||
break
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
pbFadeOutAndHide(sprites)
|
||||
pbDisposeMessageWindow(sprites["msgwindow"])
|
||||
pbDisposeSpriteHash(sprites)
|
||||
viewport.dispose
|
||||
return trainer
|
||||
end
|
||||
|
||||
#===============================================================================
|
||||
# Converts an array of gifts into a string and back.
|
||||
#===============================================================================
|
||||
def pbMysteryGiftEncrypt(gift)
|
||||
ret=[Zlib::Deflate.deflate(Marshal.dump(gift))].pack("m")
|
||||
return ret
|
||||
end
|
||||
|
||||
def pbMysteryGiftDecrypt(gift)
|
||||
return [] if gift==""
|
||||
ret=Marshal.restore(Zlib::Inflate.inflate(gift.unpack("m")[0]))
|
||||
return ret
|
||||
end
|
||||
|
||||
#===============================================================================
|
||||
# Collecting a Mystery Gift from the deliveryman.
|
||||
#===============================================================================
|
||||
def pbNextMysteryGiftID
|
||||
for i in $Trainer.mysterygift
|
||||
return i[0] if i.length>1
|
||||
end
|
||||
return 0
|
||||
end
|
||||
|
||||
def pbReceiveMysteryGift(id)
|
||||
index=-1
|
||||
for i in 0...$Trainer.mysterygift.length
|
||||
if $Trainer.mysterygift[i][0]==id && $Trainer.mysterygift[i].length>1
|
||||
index=i
|
||||
break
|
||||
end
|
||||
end
|
||||
if index==-1
|
||||
pbMessage(_INTL("Couldn't find an unclaimed Mystery Gift with ID {1}.",id))
|
||||
return false
|
||||
end
|
||||
gift=$Trainer.mysterygift[index]
|
||||
if gift[1]==0
|
||||
pID=rand(256)
|
||||
pID|=rand(256)<<8
|
||||
pID|=rand(256)<<16
|
||||
pID|=rand(256)<<24
|
||||
gift[2].personalID=pID
|
||||
gift[2].calcStats
|
||||
time=pbGetTimeNow
|
||||
gift[2].timeReceived=time.getgm.to_i
|
||||
gift[2].obtainMode=4 # Fateful encounter
|
||||
gift[2].pbRecordFirstMoves
|
||||
if $game_map
|
||||
gift[2].obtainMap=$game_map.map_id
|
||||
gift[2].obtainLevel=gift[2].level
|
||||
else
|
||||
gift[2].obtainMap=0
|
||||
gift[2].obtainLevel=gift[2].level
|
||||
end
|
||||
if pbAddPokemonSilent(gift[2])
|
||||
pbMessage(_INTL("\\me[Pkmn get]{1} received {2}!",$Trainer.name,gift[2].name))
|
||||
$Trainer.mysterygift[index]=[id]
|
||||
return true
|
||||
end
|
||||
elsif gift[1]>0
|
||||
if $PokemonBag.pbCanStore?(gift[2],gift[1])
|
||||
$PokemonBag.pbStoreItem(gift[2],gift[1])
|
||||
item=gift[2]; qty=gift[1]
|
||||
itemname=(qty>1) ? PBItems.getNamePlural(item) : PBItems.getName(item)
|
||||
if isConst?(item,PBItems,:LEFTOVERS)
|
||||
pbMessage(_INTL("\\me[Item get]You obtained some \\c[1]{1}\\c[0]!\\wtnp[30]",itemname))
|
||||
elsif pbIsMachine?(item) # TM or HM
|
||||
pbMessage(_INTL("\\me[Item get]You obtained \\c[1]{1} {2}\\c[0]!\\wtnp[30]",itemname,PBMoves.getName(pbGetMachine(item))))
|
||||
elsif qty>1
|
||||
pbMessage(_INTL("\\me[Item get]You obtained {1} \\c[1]{2}\\c[0]!\\wtnp[30]",qty,itemname))
|
||||
elsif itemname.starts_with_vowel?
|
||||
pbMessage(_INTL("\\me[Item get]You obtained an \\c[1]{1}\\c[0]!\\wtnp[30]",itemname))
|
||||
else
|
||||
pbMessage(_INTL("\\me[Item get]You obtained a \\c[1]{1}\\c[0]!\\wtnp[30]",itemname))
|
||||
end
|
||||
$Trainer.mysterygift[index]=[id]
|
||||
return true
|
||||
end
|
||||
end
|
||||
return false
|
||||
end
|
||||
Reference in New Issue
Block a user