Resource requests

###################################################################
# Generic Mission System - Written by KitsuneKouta
###################################################################
def pbMissions(text,variable)
  if $game_variables[503]==1 #this tells it that a mission is in progress
    Kernel.pbMessage("Your current mission is mission 1.")
    if $PokemonBag.pbQuantity(::PBItems::POTION)>0 #POTION should be changed to the key item you receive in the mission
      Kernel.pbMessage("Oh, you have the KEY ITEM.")
      Kernel.pbMessage("I'll take it now. Here's your reward.")
      $PokemonBag.pbDeleteItem(::PBItems::POTION)
      Kernel.pbReceiveItem(::PBItems::NUGGET)
      $game_variables[503]=0
      $game_variables[300]+=1 #this variable stores trainer points.
    else
      Kernel.pbMessage("Remember, you need to retrieve the KEY ITEM from CHARACTER.")
    end
  elsif $game_variables[503]==2
    Kernel.pbMessage("Your current mission is mission 2.")
    if $game_switches[500]==true #This switch should be turned on only after you defeat the specified trainer
      Kernel.pbMessage("Oh, you defeated TRAINER.")
      Kernel.pbMessage("Here's your reward.")
      $game_switches[500]=false #notice the 2 switches match, you can use any number switch as long as they match and the trainer event turns it on after winning
      Kernel.pbReceiveItem(::PBItems::NUGGET)
      $game_variables[503]=0
      $game_variables[300]+=1
    else
      Kernel.pbMessage("Remember, you need to defeat TRAINER.")
    end
  elsif $game_variables[503]==3
    Kernel.pbMessage("Your current mission is mission 3.")
    for i in 0...$Trainer.party.length
      if $Trainer.party[i].species==144
        hasPoke=true
      end
    end
    if hasPoke==true
      Kernel.pbMessage("Oh, you have ARCTICUNO.")
      Kernel.pbMessage("I'll take it now. Here's your reward.")
      $Trainer.party[i]=nil
      $Trainer.party.compact!
      Kernel.pbReceiveItem(::PBItems::NUGGET)
      $game_variables[503]=0
      $game_variables[300]+=1
      hasPoke=false
    else
      Kernel.pbMessage("Remember, you need to retrieve ARCTICUNO.")
    end
  elsif $game_variables[503]==4
    Kernel.pbMessage("Your current mission is mission 4.")
    if $PokemonBag.pbQuantity(::PBItems::POTION)>0 #POTION should be changed to the key item you receive in the mission
      Kernel.pbMessage("Oh, you have the KEY ITEM.")
      Kernel.pbMessage("I'll take it now. Here's your reward.")
      $PokemonBag.pbDeleteItem(::PBItems::POTION)
      Kernel.pbReceiveItem(::PBItems::NUGGET)
      $game_variables[503]=0
      $game_variables[300]+=1
    else
      Kernel.pbMessage("Remember, you need to retrieve the KEY ITEM from CHARACTER.")
    end
  elsif $game_variables[503]==5
    Kernel.pbMessage("Your current mission is mission 5.")
    if $PokemonBag.pbQuantity(::PBItems::POTION)>0 #POTION should be changed to the key item you receive in the mission
      Kernel.pbMessage("Oh, you have the KEY ITEM.")
      Kernel.pbMessage("I'll take it now. Here's your reward.")
      $PokemonBag.pbDeleteItem(::PBItems::POTION)
      Kernel.pbReceiveItem(::PBItems::NUGGET)
      $game_variables[503]=0
      $game_variables[300]+=1
    else
      Kernel.pbMessage("Remember, you need to retrieve the KEY ITEM from CHARACTER.")
    end
  elsif $game_variables[503]==6
    Kernel.pbMessage("Your current mission is mission 6.")
    if $PokemonBag.pbQuantity(::PBItems::POTION)>0 #POTION should be changed to the key item you receive in the mission
      Kernel.pbMessage("Oh, you have the KEY ITEM.")
      Kernel.pbMessage("I'll take it now. Here's your reward.")
      $PokemonBag.pbDeleteItem(::PBItems::POTION)
      Kernel.pbReceiveItem(::PBItems::NUGGET)
      $game_variables[503]=0
      $game_variables[300]+=1
    else
      Kernel.pbMessage("Remember, you need to retrieve the KEY ITEM from CHARACTER.")
    end
  elsif $game_variables[503]==7
    Kernel.pbMessage("Your current mission is mission 7.")
    if $PokemonBag.pbQuantity(::PBItems::POTION)>0 #POTION should be changed to the key item you receive in the mission
      Kernel.pbMessage("Oh, you have the KEY ITEM.")
      Kernel.pbMessage("I'll take it now. Here's your reward.")
      $PokemonBag.pbDeleteItem(::PBItems::POTION)
      Kernel.pbReceiveItem(::PBItems::NUGGET)
      $game_variables[503]=0
      $game_variables[300]+=1
    else
      Kernel.pbMessage("Remember, you need to retrieve the KEY ITEM from CHARACTER.")
    end
  else
    Kernel.pbMessage(_INTL("You currently have {1} Trainer Point(s)",$game_variables[300]))
    if Kernel.pbConfirmMessage("Would you like to start a mission?")
      choices=[]
      choices.push("MISSION 1")
      choices.push("MISSION 2")
      choices.push("MISSION 3")
      choices.push("MISSION 4")
      choices.push("MISSION 5")
      choices.push("MISSION 6")
      choices.push("MISSION 7")
      choices.push(_INTL("CANCEL"))
      command=Kernel.pbMessage(text,choices,choices.length)
      $game_variables[variable]=(command==7) ? -1 : command
    end
    if command==0 #mission 1 was selected
      if $game_variables[300]<0
        Kernel.pbMessage("You need to unlock this mission.")
      else
        Kernel.pbMessage("Requirements: BULBASAUR must be in the party")
        Kernel.pbMessage("Description: Retrieve the KEY ITEM from CHARACTER")
        if Kernel.pbConfirmMessage("Will you take this mission?")
          for i in 0...$Trainer.party.length
            if $Trainer.party[i].species==1
              hasPoke=true
            end
          end
          if hasPoke==true
            Kernel.pbMessage("You're all set. Return here with the KEY ITEM for your reward")
            $game_variables[503]=1
            hasPoke=false
          else
            Kernel.pbMessage("It appears that you don't have a BULBASAUR. Please bring one with you to start this mission.")
          end
        end
      end
      elsif command==1
        if $game_variables[300]<1
          Kernel.pbMessage("You need to unlock this mission.")
        elsif $game_switches[201]==true
          Kernel.pbMessage("You have already finished this mission.")
        else
          Kernel.pbMessage("Requirements: A lvl 50 pokemon must be in the party")
          Kernel.pbMessage("Description: Defeat TRAINER")
          if Kernel.pbConfirmMessage("Will you take this mission?")
            for i in 0...$Trainer.party.length
              if $Trainer.party[i].level==50
                hasPoke=true
              end
            end
            if hasPoke==true
              Kernel.pbMessage("You're all set. Return here after defeating TRAINER for your reward")
              $game_variables[503]=2
              hasPoke=false
            else
              Kernel.pbMessage("It appears that you don't have a lvl 50 pokemon. Please bring one with you to start this mission.")
            end
          end
        end
      elsif command==2
        if $game_variables[300]<2
          Kernel.pbMessage("You need to unlock this mission.")
        else
          Kernel.pbMessage("Requirements: A pokemon with VINEWHIP must be in the party")
          Kernel.pbMessage("Description: Retrieve an ARTICUNO")
          if Kernel.pbConfirmMessage("Will you take this mission?")
            for i in 0...$Trainer.party.length
              for j in 0...4
                if $Trainer.party[i].moves[j].id==PBMoves::VINEWHIP
                  hasPoke=true
                end
              end
            end
            if hasPoke==true
              Kernel.pbMessage("You're all set. Return here after retrieving ARTICUNO for your reward")
              $game_variables[503]=3
              hasPoke=false
            else
              Kernel.pbMessage("It appears that you don't have a pokemon with VINEWHIP. Please bring one with you to start this mission.")
            end
          end
        end
      elsif command==3
        if $game_variables[300]<3
          Kernel.pbMessage("You need to unlock this mission.")
        else
          Kernel.pbMessage("Requirements: A pokemon with VINEWHIP must be in the party")
          Kernel.pbMessage("Description: Retrieve an ARTICUNO")
          if Kernel.pbConfirmMessage("Will you take this mission?")
            for i in 0...$Trainer.party.length
              for j in 0...4
                if $Trainer.party[i].moves[j].id==PBMoves::VINEWHIP
                  hasPoke=true
                end
              end
            end
            if hasPoke==true
              Kernel.pbMessage("You're all set. Return here after retrieving ARTICUNO for your reward")
              $game_variables[503]=4
              hasPoke=false
            else
              Kernel.pbMessage("It appears that you don't have a pokemon with VINEWHIP. Please bring one with you to start this mission.")
            end
          end
        end
      elsif command==4
        if $game_variables[300]<4
          Kernel.pbMessage("You need to unlock this mission.")
        else
          Kernel.pbMessage("Requirements: A pokemon with VINEWHIP must be in the party")
          Kernel.pbMessage("Description: Retrieve an ARTICUNO")
          if Kernel.pbConfirmMessage("Will you take this mission?")
            for i in 0...$Trainer.party.length
              for j in 0...4
                if $Trainer.party[i].moves[j].id==PBMoves::VINEWHIP
                  hasPoke=true
                end
              end
            end
            if hasPoke==true
              Kernel.pbMessage("You're all set. Return here after retrieving ARTICUNO for your reward")
              $game_variables[503]=5
              hasPoke=false
            else
              Kernel.pbMessage("It appears that you don't have a pokemon with VINEWHIP. Please bring one with you to start this mission.")
            end
          end
        end
      elsif command==5
        if $game_variables[300]<5
          Kernel.pbMessage("You need to unlock this mission.")
        else
          Kernel.pbMessage("Requirements: A pokemon with VINEWHIP must be in the party")
          Kernel.pbMessage("Description: Retrieve an ARTICUNO")
          if Kernel.pbConfirmMessage("Will you take this mission?")
            for i in 0...$Trainer.party.length
              for j in 0...4
                if $Trainer.party[i].moves[j].id==PBMoves::VINEWHIP
                  hasPoke=true
                end
              end
            end
            if hasPoke==true
              Kernel.pbMessage("You're all set. Return here after retrieving ARTICUNO for your reward")
              $game_variables[503]=6
              hasPoke=false
            else
              Kernel.pbMessage("It appears that you don't have a pokemon with VINEWHIP. Please bring one with you to start this mission.")
            end
          end
        end
      elsif command==6
        if $game_variables[300]<6
          Kernel.pbMessage("You need to unlock this mission.")
        else
          Kernel.pbMessage("Requirements: A pokemon with VINEWHIP must be in the party")
          Kernel.pbMessage("Description: Retrieve an ARTICUNO")
          if Kernel.pbConfirmMessage("Will you take this mission?")
            for i in 0...$Trainer.party.length
              for j in 0...4
                if $Trainer.party[i].moves[j].id==PBMoves::VINEWHIP
                  hasPoke=true
                end
              end
            end
            if hasPoke==true
              Kernel.pbMessage("You're all set. Return here after retrieving ARTICUNO for your reward")
              $game_variables[503]=7
              hasPoke=false
            else
              Kernel.pbMessage("It appears that you don't have a pokemon with VINEWHIP. Please bring one with you to start this mission.")
            end
          end
        end
      end
    end
end