Ho-oh 112's Mystery gift system

def pbMysteryGift
  message=nil
  type=nil
  species=nil
  level=nil
  form=nil
  shiny=nil 
  move1=nil 
  move2=nil 
  move3=nil 
  move4=nil 
  ot=nil 
  id=nil 
  nature=nil 
  abillity=nil 
  item=nil 
  ribbon=nil 
  iv1=nil 
  iv2=nil 
  iv3=nil 
  iv4=nil 
  iv5=nil 
  iv6=nil
  switchvar = "Switch" # Var/Variable if it's a variable
  switchvarnum = 50 # switch/var number
  switchvarvalue = false
  #second value: If a var it can be string/number/ or bool switches only bool
  badgecount = 0 # Number of badges needed to get pokemon
link="[URL]http://rmxpmysterygift.webs.com/Gifts/Gift.txt[/URL]"
code=pbDownloadToString(link)
if code == ""
  return false
end
file = File.open('text.txt', 'wb'){|f|
f.write(code)
}
array = IO.readlines('text.txt')
message=array[0]
type=array[1]
type = type.to_i + 1 - 1
if type == 3
  Kernel.pbMessage(_INTL("There are no gifts avaible."))
  return true
else
  Kernel.pbMessage(_INTL("A gift was found!"))
  if $game_variables[6] == message && $DEBUG == false
  Kernel.pbMessage(_INTL("You already got the gift!"))
  return true
  end
end
  Kernel.pbMessage(_INTL(message)) # displays custom message
$game_variables[6] = message # The "detection code"
switchvar=array[23]
switchvarvalue=[array[24],array[25]]
badgecount=array[26]
badgecount=badgecount.to_i
pbNextCheck(switchvar,switchvarvalue,badgecount)
species=array[2]
species = species.to_i + 1 - 1
if type == 2
Kernel.pbReceiveItem(species)
$game_variables[1] = PBItems.getName(species)
return true
end
if $Trainer.party.length == 6
  Kernel.pbMessage(_INTL("Your party is full!"))
  $game_variables[1] = 0
  return true
end
  $game_variables[1] = PBSpecies.getName(species)
if type == 1
  pbGenerateEgg(species)
  $game_variables[1] = "Mystery Egg"
  return true
end
level=array[3]
level = level.to_i + 1 - 1
form=array[4]
form = form.to_i + 1 - 1
shiny=array[5]
shiny = shiny.to_i + 1 - 1
move1=array[6]
move1 = move1.to_i + 1 - 1
move2=array[7]
move2 = move2.to_i + 1 - 1
move3=array[8]
move3 = move3.to_i + 1 - 1
move4=array[9]
move4 = move4.to_i + 1 - 1
ot=array[10]
id=array[11]
id = id.to_i + 1 - 1
nature=array[12]
nature = nature.to_i + 1 - 1
ability=array[13]
ability = ability.to_i + 1 - 1
item=array[14]
item = item.to_i + 1 - 1
ribbon=array[15]
ribbon = ribbon.to_i + 1 - 1
gender=array[16]
gender = gender.to_i + 1 - 1
iv1=array[17]
iv1 = iv1.to_i + 1 - 1
iv2=array[18]
iv2 = iv2.to_i + 1 - 1
iv3=array[19]
iv3 = iv3.to_i + 1 - 1
iv4=array[20]
iv4 = iv4.to_i + 1 - 1
iv5=array[21]
iv5 = iv5.to_i + 1 - 1
iv6=array[22]
iv6 = iv6.to_i + 1 - 1
iv = [iv1, iv2, iv3, iv4, iv5, iv6]
moves=[move1, move2, move3, move4]
# Checks badge count if it's more than 0 if not it ignores this...
if badgecount > 0
  if $Trainer.badges[badgecount] != true
    Kernel.pbMessage(_INTL("You do not have enough badges to get this gift. badges required: {1}", badgecount))
    return
  end
end
if switchvar == "Switch"
  $game_switches[switchvarvalue[0]] = switchvarvalue[1]
elsif switchvar == "Variable" or switchvar == "Var"
  $game_variables[switchvarvalue[0]] = switchvarvalue[1]
end
if species == nil
  return false
end
if level == nil
  return false
end
gift = PokeBattle_Pokemon.new(species,level)
gift.trainerID = id
gift.ot = ot
gift.form = form
gift.ballused = pbGetBallType(:CHERISHBALL) # All Pokemon are in these.
if shiny == 1
  gift.makeShiny
elsif shiny == 2
  gift.makeShadow
elsif shiny == 3
  gift.makeShiny
  gift.makeShadow
end
if ribbon > 0
  gift.setRibbon(ribbon)
end
if item > 0
  gift.item = item
end
gift.setNature(nature)
gift.abilityflag=ability
# Teaches moves
for i in 0..3
  gift.moves[i]=PBMove.new(moves[i])
end
pbAddToPartySilent(gift)
pbSave
rescue
Kernel.pbMessage(_INTL("The gift is corrupted"))
return
end
 
def pbNextCheck(var1,var2,badge)
# Checks badge count if it's more than 0 if not it ignores this...
if badge > 0
  if $Trainer.badges[badge] != true
    Kernel.pbMessage(_INTL("You do not have enough badges to get this gift. badges required: {1}", badgecount))
    return
  end
end
if var1 == "Switch"
  var2[1].to_b
  $game_switches[var2[0]] = var2[1]
elsif var1 == "Variable" or var1 == "Var"
  $game_variables[var2[0]] = var2[1]
end
end

@@+4605TetHello1000000=@@