Added decent spacing to all scripts thanks to Rubocop

This commit is contained in:
Maruno17
2021-12-18 15:25:40 +00:00
parent f7b76ae62e
commit d17fc40a47
207 changed files with 18577 additions and 18587 deletions

View File

@@ -14,104 +14,104 @@ end
#===============================================================================
# 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 = "")
def pbEditMysteryGift(type, item, id = 0, giftname = "")
begin
if type==0 # Pokémon
commands=[_INTL("Mystery Gift"),
_INTL("Faraway place")]
if type == 0 # Pokémon
commands = [_INTL("Mystery Gift"),
_INTL("Faraway place")]
commands.push(item.obtain_text) if item.obtain_text && !item.obtain_text.empty?
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
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
elsif command < commands.length - 1
item.obtain_text = commands[command]
break
elsif command==commands.length-1
obtainname=pbMessageFreeText(_INTL("Enter a phrase."),"",false,30)
if obtainname!=""
elsif command == commands.length - 1
obtainname = pbMessageFreeText(_INTL("Enter a phrase."), "", false, 30)
if obtainname != ""
item.obtain_text = 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)
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 of {1}.",
GameData::Item.get(item).name),params)
if newtype==0
newtype = pbMessageChooseNumber(_INTL("Choose a quantity of {1}.",
GameData::Item.get(item).name), params)
if newtype == 0
return nil if pbConfirmMessage(_INTL("Stop editing this gift?"))
else
type=newtype
type = newtype
break
end
end
end
if id==0
master=[]
idlist=[]
if id == 0
master = []
idlist = []
if safeExists?("MysteryGiftMaster.txt")
master=IO.read("MysteryGiftMaster.txt")
master=pbMysteryGiftDecrypt(master)
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 = 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
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
id = newid
break
end
end
end
end
loop do
newgiftname=pbMessageFreeText(_INTL("Enter a name for the gift."),giftname,false,250)
if newgiftname!=""
giftname=newgiftname
newgiftname = pbMessageFreeText(_INTL("Enter a name for the gift."), giftname, false, 250)
if newgiftname != ""
giftname = newgiftname
break
end
return nil if pbConfirmMessage(_INTL("Stop editing this gift?"))
end
return [id,type,item,giftname]
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)
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 = IO.read("MysteryGiftMaster.txt")
master = pbMysteryGiftDecrypt(master)
master.push(gift)
else
master=[gift]
master = [gift]
end
string=pbMysteryGiftEncrypt(master)
File.open("MysteryGiftMaster.txt","wb") { |f| f.write(string) }
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."))
@@ -129,85 +129,85 @@ def pbManageMysteryGifts
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
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]"))
msgwindow = pbCreateMessageWindow
pbMessageDisplay(msgwindow, _INTL("Searching for online gifts...\\wtnp[0]"))
online = pbDownloadToString(MysteryGift::URL)
pbDisposeMessageWindow(msgwindow)
if nil_or_empty?(online)
pbMessage(_INTL("No online Mystery Gifts found.\\wtnp[20]"))
online=[]
online = []
else
pbMessage(_INTL("Online Mystery Gifts found.\\wtnp[20]"))
online=pbMysteryGiftDecrypt(online)
t=[]
online = pbMysteryGiftDecrypt(online)
t = []
online.each { |gift| t.push(gift[0]) }
online=t
online = t
end
# Show list of all gifts.
command=0
command = 0
loop do
commands=pbRefreshMGCommands(master,online)
command=pbMessage(_INTL("\\ts[]Manage Mystery Gifts (X=online)."),commands,-1,nil,command)
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 # Cancel
if command == -1 || command == commands.length - 1 # Cancel
break
elsif command==commands.length-2 # Export selected to file
elsif command == commands.length - 2 # Export selected to file
begin
newfile=[]
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) }
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 # A gift
cmd=0
elsif command >= 0 && command < commands.length - 2 # A gift
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
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
elsif cmd == 0 # Toggle on/offline
if online.include?(gift[0])
online.delete(gift[0])
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
elsif cmd == 1 # Edit
newgift = pbEditMysteryGift(gift[1], gift[2], gift[0], gift[3])
master[command] = newgift if newgift
elsif cmd == 2 # Receive
if !$player
pbMessage(_INTL("There is no save file loaded. Cannot receive any gifts."))
next
end
replaced=false
replaced = false
for i in 0...$player.mystery_gifts.length
if $player.mystery_gifts[i][0]==gift[0]
$player.mystery_gifts[i]=gift
replaced=true
if $player.mystery_gifts[i][0] == gift[0]
$player.mystery_gifts[i] = gift
replaced = true
end
end
$player.mystery_gifts.push(gift) if !replaced
pbReceiveMysteryGift(gift[0])
elsif cmd==3 # Delete
elsif cmd == 3 # Delete
master.delete_at(command) if pbConfirmMessage(_INTL("Are you sure you want to delete this gift?"))
break
end
@@ -238,85 +238,85 @@ end
#===============================================================================
# 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)
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]"))
sprites["msgwindow"] = pbCreateMessageWindow
pbMessageDisplay(sprites["msgwindow"], _INTL("Searching for a gift.\nPlease wait...\\wtnp[0]"))
string = pbDownloadToString(MysteryGift::URL)
if nil_or_empty?(string)
pbMessageDisplay(sprites["msgwindow"],_INTL("No new gifts are available."))
pbMessageDisplay(sprites["msgwindow"], _INTL("No new gifts are available."))
else
online=pbMysteryGiftDecrypt(string)
pending=[]
online = pbMysteryGiftDecrypt(string)
pending = []
for gift in online
notgot=true
notgot = true
for j in trainer.mystery_gifts
notgot=false if j[0]==gift[0]
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."))
if pending.length == 0
pbMessageDisplay(sprites["msgwindow"], _INTL("No new gifts are available."))
else
loop do
commands=[]
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
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
if gift[1]==0
sprite=PokemonSprite.new(viewport)
gift = pending[command]
sprites["msgwindow"].visible = 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
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
sprite = ItemIconSprite.new(0, 0, gift[2], viewport)
sprite.x = Graphics.width / 2
sprite.y = -sprite.height / 2
end
distanceDiff = 8*20/Graphics.frame_rate
distanceDiff = 8 * 20 / Graphics.frame_rate
loop do
Graphics.update
Input.update
sprite.update
sprite.y+=distanceDiff
break if sprite.y>=Graphics.height/2
sprite.y += distanceDiff
break if sprite.y >= Graphics.height / 2
end
pbMEPlay("Battle capture success")
(Graphics.frame_rate*3).times do
(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 }
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.mystery_gifts.push(gift)
pending.delete_at(command)
opacityDiff = 16*20/Graphics.frame_rate
opacityDiff = 16 * 20 / Graphics.frame_rate
loop do
Graphics.update
Input.update
sprite.update
sprite.opacity-=opacityDiff
break if sprite.opacity<=0
sprite.opacity -= opacityDiff
break if sprite.opacity <= 0
end
sprite.dispose
end
if pending.length==0
pbMessageDisplay(sprites["msgwindow"],_INTL("No new gifts are available."))
if pending.length == 0
pbMessageDisplay(sprites["msgwindow"], _INTL("No new gifts are available."))
break
end
end
@@ -332,7 +332,7 @@ end
# Converts an array of gifts into a string and back.
#===============================================================================
def pbMysteryGiftEncrypt(gift)
ret=[Zlib::Deflate.deflate(Marshal.dump(gift))].pack("m")
ret = [Zlib::Deflate.deflate(Marshal.dump(gift))].pack("m")
return ret
end
@@ -356,63 +356,63 @@ end
#===============================================================================
def pbNextMysteryGiftID
for i in $player.mystery_gifts
return i[0] if i.length>1
return i[0] if i.length > 1
end
return 0
end
def pbReceiveMysteryGift(id)
index=-1
index = -1
for i in 0...$player.mystery_gifts.length
if $player.mystery_gifts[i][0]==id && $player.mystery_gifts[i].length>1
index=i
if $player.mystery_gifts[i][0] == id && $player.mystery_gifts[i].length > 1
index = i
break
end
end
if index==-1
pbMessage(_INTL("Couldn't find an unclaimed Mystery Gift with ID {1}.",id))
if index == -1
pbMessage(_INTL("Couldn't find an unclaimed Mystery Gift with ID {1}.", id))
return false
end
gift=$player.mystery_gifts[index]
if gift[1]==0 # Pokémon
gift = $player.mystery_gifts[index]
if gift[1] == 0 # Pokémon
gift[2].personalID = rand(2**16) | rand(2**16) << 16
gift[2].calc_stats
time=pbGetTimeNow
gift[2].timeReceived=time.getgm.to_i
time = pbGetTimeNow
gift[2].timeReceived = time.getgm.to_i
gift[2].obtain_method = 4 # Fateful encounter
gift[2].record_first_moves
if $game_map
gift[2].obtain_map=$game_map.map_id
gift[2].obtain_level=gift[2].level
gift[2].obtain_map = $game_map.map_id
gift[2].obtain_level = gift[2].level
else
gift[2].obtain_map=0
gift[2].obtain_level=gift[2].level
gift[2].obtain_map = 0
gift[2].obtain_level = gift[2].level
end
if pbAddPokemonSilent(gift[2])
pbMessage(_INTL("\\me[Pkmn get]{1} received {2}!",$player.name,gift[2].name))
$player.mystery_gifts[index]=[id]
pbMessage(_INTL("\\me[Pkmn get]{1} received {2}!", $player.name, gift[2].name))
$player.mystery_gifts[index] = [id]
return true
end
elsif gift[1]>0 # Item
item=gift[2]
qty=gift[1]
if $bag.can_add?(item,qty)
$bag.add(item,qty)
elsif gift[1] > 0 # Item
item = gift[2]
qty = gift[1]
if $bag.can_add?(item, qty)
$bag.add(item, qty)
itm = GameData::Item.get(item)
itemname=(qty>1) ? itm.name_plural : itm.name
itemname = (qty > 1) ? itm.name_plural : itm.name
if item == :LEFTOVERS
pbMessage(_INTL("\\me[Item get]You obtained some \\c[1]{1}\\c[0]!\\wtnp[30]",itemname))
pbMessage(_INTL("\\me[Item get]You obtained some \\c[1]{1}\\c[0]!\\wtnp[30]", itemname))
elsif itm.is_machine? # TM or HM
pbMessage(_INTL("\\me[Item get]You obtained \\c[1]{1} {2}\\c[0]!\\wtnp[30]",itemname,
pbMessage(_INTL("\\me[Item get]You obtained \\c[1]{1} {2}\\c[0]!\\wtnp[30]", itemname,
GameData::Move.get(itm.move).name))
elsif qty>1
pbMessage(_INTL("\\me[Item get]You obtained {1} \\c[1]{2}\\c[0]!\\wtnp[30]",qty,itemname))
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))
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))
pbMessage(_INTL("\\me[Item get]You obtained a \\c[1]{1}\\c[0]!\\wtnp[30]", itemname))
end
$player.mystery_gifts[index]=[id]
$player.mystery_gifts[index] = [id]
return true
end
end