Save-Point

Multi Lootscript for Charlie Lees CBS (2.13)
This is a request for a new script, an edit or debug of an existing script. What ever it should work with the After battlescene of the CTB. I looking for that for Years, but nothing. But it would be cool if it works like this:

Himas Drop script

Code:
#==============================================================================

# * Hima's Monster Drop Item v. 1.2

#------------------------------------------------------------------------------

# This script will allow you to create a monster that drop various item with

# different rarity. You can do this by naming the monster with special pattern

#                     "Monstername-spdrop-(rate)(type)(id)-(rate)(type)(id)-(rate)(type)(id)"

#    (rate)    =     Insert r,u or c in here. r = rare, u = uncommon, c = common.

#    (type)    =    Insert w,a or i in here. w = weapon, a = armor, i = item.

#    (id)        =    Insert the id of item/weapon/armor that the monster will drop here.

# So if you want the rare item to be weapon id 1, uncommon item to be armor id 1

#    and common item to be item id 1, this is how you name the monster

#    (assuming the monster's name is Ghost)

#

#                            "Ghost-spdrop-rw1-ua1-ci1"

#

#    If you want a monster to drop item like what RMXP default, then just don't name

# them in this special pattern :)

# contact : [email]ninomiya_mako@hotmail.com[/email]

#==============================================================================

module HIMA_MONSTERDROP

  #--------------------------------------------------------------------------

  # - Customize Point -

  # SPDROP_KEYWORD  - This will be your keyword to tell the script that the monster will drop sp item

  # RARE_RATE -  The chance for dropping a rare item. 

  # UNCOMMON_RATE - The chance for dropping an uncommon item. 

  #  COMMON_RATE - The chance for dropping an common item. 

  #--------------------------------------------------------------------------

    SPDROP_KEYWORD    =    "sp"

    EPIC_RATE        =    5

    RARE_RATE                =    10

    UNCOMMON_RATE        =    30

    COMMON_RATE        =    60

  VERYCOMMON_RATE        =    75

  TOO_RATE        =    100

    STATS_AT_NAME = true # if false you can use ccoas Status Effect Icons

end

class Scene_Battle

    def monster_drop_item(monster)

  name = monster.name.clone

  if name.include?(HIMA_MONSTERDROP::SPDROP_KEYWORD)  

      text=name.scan(/([a-z])([a-z])([0-9]+)/)

      temp = 0

      item = []

      text.each_index { |i|

      item[i]={}

      case text[i][0]

      when 'e'

    item[i]['rate']=HIMA_MONSTERDROP::EPIC_RATE

      when 'r'

    item[i]['rate']=HIMA_MONSTERDROP::RARE_RATE

      when 'u'

    item[i]['rate']=HIMA_MONSTERDROP::UNCOMMON_RATE

      when 'c'

    item[i]['rate']=HIMA_MONSTERDROP::COMMON_RATE

      when 'v'

    item[i]['rate']=HIMA_MONSTERDROP::VERYCOMMON_RATE

      when 't'

    item[i]['rate']=HIMA_MONSTERDROP::TOO_RATE

      end

      temp+=item[i]['rate']

      item[i]['typ']=text[i][1]

      item[i]['id']=text[i][2].to_i

      }

      get = rand(temp)

      item.each { |value| 

    if get > value['rate']

        get-=value['rate']

    else

        return get_item(value['typ'],value['id'])

    end

      }

        else

      if monster.item_id > 0

    return $data_items[monster.item_id]

      end

      if monster.weapon_id > 0

    return $data_weapons[monster.weapon_id]

      end

      if monster.armor_id > 0

    return $data_armors[monster.armor_id]

      end

        end

    end #method

    def get_item(type,id)

        if id > 0

            case type

            when "w"

                return $data_weapons[id]

            when "a"

                return $data_armors[id]

            when "i"

                return $data_items[id]

            end #case

        else

            return nil

        end

    end

  #--------------------------------------------------------------------------

  # - After battle phase start

  #--------------------------------------------------------------------------

  def start_phase5

    # It moves to phase 5

    @phase = 5

    # Performing battle end ME

    $game_system.me_play($game_system.battle_end_me)

    # You reset to BGM before the battle starting

    $game_system.bgm_play($game_temp.map_bgm)

    # Initializing EXP, the gold and the treasure

    exp = 0

    gold = 0

    treasures = []

    # Loop

    for enemy in $game_troop.enemies

      # When the enemy hides and it is not state

      unless enemy.hidden

        # Adding acquisition EXP and the gold

        exp += enemy.exp

        gold += enemy.gold

        # Treasure appearance decision

        if rand(100) < enemy.treasure_prob

          item = monster_drop_item(enemy)

          treasures.push(item) unless item.nil?

        end

      end

    end

    # It limits the number of treasures up to 6

    treasures = treasures[0..6]

    # EXP acquisition

    for i in 0...$game_party.actors.size

      actor = $game_party.actors[i]

      if actor.cant_get_exp? == false

        last_level = actor.level

        actor.exp += exp

        if actor.level > last_level

          @status_window.level_up(i)

        end

      end

    end

    # Gold acquisition

    $game_party.gain_gold(gold)

    # Treasure acquisition

    for item in treasures

      case item

      when RPG::Item

        $game_party.gain_item(item.id, 1)

      when RPG::Weapon

        $game_party.gain_weapon(item.id, 1)

      when RPG::Armor

        $game_party.gain_armor(item.id, 1)

      end

    end

    # Drawing up the battle result window

    @result_window = Window_BattleResult.new(exp, gold, treasures)

    # Setting weight count

    @phase5_wait_count = 100

  end

end    #class

#==============================================================================

# * Window_Help

#------------------------------------------------------------------------------

# Well we need to do something with showing Enemy's name, don't we?

#==============================================================================

class Window_Help < Window_Base

  #--------------------------------------------------------------------------

  # - Enemy setting

  #     enemy : The enemy which indicates name and the state

  #--------------------------------------------------------------------------

  def set_enemy(enemy)

    text = enemy.name.clone

    text = text.split('-')[0] if text.include?(HIMA_MONSTERDROP::SPDROP_KEYWORD)

    states = make_battler_state_text(enemy, 112, false)

    if HIMA_MONSTERDROP::STATS_AT_NAME

  if states != ""

      text += "  " + states

  end

  set_text(text, 1)

    else

  for state in states

      text += "   "

  end

  set_text(text, 1, states)

    end

  end

end

Detailed Description (mostlikely...):The Discription in the Script tell how it should work. Or not. Just 2 thinks should work: Mops drops multi- Loot, and it works with Charlie Lees CBS. Specially with the Scene_Afterbattle and with the newest SLS from Charlie Lee. Other Scripts I am using (in order): So much scripts, but all are compatible with with The Battlesystem and the SLS... expect the Drop Script. and thats the problem.

I hope someone can help me

Looks like it IS compatible? Only thing is the names of the enemies. I tried it with his demo. And they do drop the items specified. Does it give you an error or anything?

Acctualy, it have errors with the After battle Scene and the SLS.
With SLS = Broke Down. I can fix it by put the script above the SLS.
But whene i do this, one Part of the afterbattle SCene dissapperars. Thats the problem.

I'll test it out now. Yeah, I see the level up window doesn't appear. Well, I've been messing around with making things compatible with this battle system for my game and this looks like a pretty useful script. Now, I'm not a a scripter, but I'll see what I can do. I still recommend you ask someone else just in case I'm not able to do the job.
EDIT:
OK I think I made it work together! Let me just check a few more times. The only thing is getting the black box out of the way... Unless I move the equipment skills result window over. Ok, it seems to work correctly. Try it out and let me know. Here it is.
http://www.sendspace.com/file/ohphtm

Okey thatks. It works nearly perfect. Just one thing.
The items should have the possiblety of not beein droped.
It like i can set the droprate to rare (equal to 25%) but it still drops every time i fight.
Can someone fix this?

Hmm, maybe I have to mess around with the probability. I'll see.
EDIT:
Ok, this is the best I could do without messing it up. Replace the scene battle in the demo that I gave you with this.

Ok, it appears that the code is too long for this message so, I'll send it in a txt file.
Here http://www.sendspace.com/file/01kt93

And online 706, which should be this
if rand(300) < enemy.treasure_prob
You can mess around with the probability by changing the 300. More means less probable and less means more probable.

Hmm, well actually, I don't think that fixes it either...

No... it not fixed...
Or i do something wrong? I put the new script above main.
Wrong?
Cauz, he didnt loot this time.

You were only supposed to replace it, however, I am aware that it's not fixed... I realized I just lowered the probability of ANY item showing up at all. I will try to mess with it some more and see what I can come up with.
EDIT: Hmm, looks like this is out of my hands, but to be honest, it's working the way it's supposed to. I got the best results with this setup,

Code:
SPDROP_KEYWORD      =    "sp"

   EPIC_RATE           =    5

   RARE_RATE           =    10

   UNCOMMON_RATE       =    20

   COMMON_RATE         =    35

   VERYCOMMON_RATE     =    50

   TOO_RATE            =    80

and

Code:
if rand(300) < enemy.treasure_prob

The rares don't drop too much and the common items drop a good amount of times, but still leaves room for the enemy dropping nothing. But I don't know how you want it set up for your game, just keep messing with those values until you find a good pattern for your game.

you mean i have to replace the Himas Lootscript with the new script?
I dont know it dont really works.... It just keep loot all the time, still no possibllity of get no loot

Sorry, haven't been able to reply, just got my internet back on.
The configuration is moved to the top of the CTB by Charlie - Scene_Battle. You can change everything there. Also, where I said to put the 300, do a search for this line
if rand(xxx) < enemy.treasure_prob
xxx should be either the number 100 or 300 depending on which on I gave you to us, I can't really remember. And if it is not 300 then put 300 in there or ust mess around with it until you find something that you like.

And to use this, you replace the scene battle and the drop script with the ones that I gave you.

Again, my bad no internet is like sudden death.

Save-Point

Save-Point

Razziel

Yin

Razziel

Yin

Razziel

Yin

Razziel

Yin

Razziel

Yin