[XP] def richtig aufrufen

Servus, ich hab mal wieder eine Frage.

In einem der Script die ich nutze findet sich dieser Abschnitt hier, der den Spieler vermutlich die Waffe wechseln lässt.

Code:

---

def change_weapon(id=2)
  unless @waffe_aktuell.nil?
    spezab = @waffen_atr[@waffe_aktuell['Name']]['Spezial_Ablegen']
    eval(spezab) unless spezab.nil?
  end
  if @waffe[id].nil?
    $game_actors[@actor].set_graphic(@actor_graphic, 0, '', 0)
    else
    $game_actors[@actor].set_graphic(@waffen_atr[@waffe[id]['Name']]['Spielergrafik'], 0, '', 0)
    spezan = @waffen_atr[@waffe[id]['Name']]['Spezial_Anlegen']
    eval(spezan) unless spezan.nil?
  end
  $game_system.se_play(@waffenwechselsound)
  @waffe[0] = id
  @waffe_aktuell = @waffe[@waffe[0]]
  @hud.refresh
  $game_player.refresh
 end

---

An einer anderen Stelle in einem anderen Script zuvor, wird der Waffenwechsel glaube ich ausgelöst.

Code:

---

  if @option_allow_weapon_change
    for taste in 0..@waffe.size - 2
      if @key.getkey_id(49+taste) and @waffe[0] != taste+1
      change_weapon(taste+1)
    end
  end
  end

---

Nun habe ich versucht den Waffenwechsel über ein Menü zu ermöglichen, dessen Script wiederum denen vorangestellt ist.
Ich habe dazu die Zeile: " change_weapon(x) " eingefügt, wobei x für 0,1,2,3,49,50,51 steht. Leider bekomme ich immer den
NoMethod-Fehler. Ich rufe die Funktion also scheinbar nicht richtig auf. Kann da jemand vielleicht etwas Licht ins Dunkel bringen?

Ich nehme einmal stark an, dass die Methode "change_weapon" nicht global ist, sondern in einer Klasse vorhanden ist.
Es könnte sein, dass du versuchst diese Methode global auf zu rufen und daher die NoMethodException geworfen bekommst.

Näheres könnte ich dir aber nur sagen, falls du mehr von dem Script zeigen würdest.

Leider ist das Script ziemlich groß. Ich glaube kaum, dass jemand nach dem Fehler suchen würde.

Tatsächlich befinden sich beide Codeteile zwar in unterschiedlichen Scripts, aber sind beide Teil der selben Klasse.
Ich nehme an, dass es nicht so einfach ist, dass ich die Klasse in einem anderen Script einfach aufrufen kann?

Du kannst den Code nicht auf einer Klasse aufrufen, dieser Code muss auf einem Objekt aufgerufen werden. Dementsprechend bräuchtest du ersteinmal ein Objekt.
Ich nehme an es handelt sich um Game_Actor, oder eine von diesen Klassen. In diesem Fall würde es sehr einfach sein über die globalen Variablen an ein Objekt zu kommen.

Ich verstehe genau was du meinst, fühle mich aber außer Stande das ohne Anleitung hin zu bekommen.
Ich poste jetzt einfach mal den meiner Meinung nach relevanten Code. Wäre genial wenn du mir da auf die Sprünge helfen könntest.

Das ist die Update-Funktion in der weiter unten der Waffenwechsel initiiert wird.

Code:

---

class Scene_Map
  alias :mss_map_ini_original :initialize if $MSS.nil?
  def initialize
    mss_map_ini_original
    $MSS.ini_hud
  end

  alias :mss_map_update_original :update if $MSS.nil?
  def update
    $MSS.update if $MSS.active
    mss_map_update_original
  end
end

class Window_Message
  alias :mss_dispose_original :dispose if $MSS.nil?
  def dispose
    mss_dispose_original
    $MSS.dispose
  end
end

class MSS
  def update
  return if $game_temp.message_window_showing
  $game_player.direction_fix = @key.getkey_id(@key_strafe) unless @key_strafe.nil?
  if @wait > 0
      @wait -= 1
      @hud_laden.refresh unless @hud_laden.nil?
      if @wait == 0
        $game_system.menu_disabled = false
        @hud_laden.dispose unless @hud_laden.nil?
        @hud_laden = nil
      end
      return
  end
  if @schussrate > 0
    @schussrate -= 1
    return
  end

  # Sprinten
  if @sprinten_akt == true and @key.getkey_id(@key_sprinten) and @sprinten > 0
    @sprinten -= 1
    @hud_energie.refresh(@sprinten) if Graphics.frame_count % 2 == 0
    return
  elsif @sprinten_akt == true
    $game_player.move_speed -= 1
    @sprinten_akt = false
  end
 
  if @key.getkey_id(@key_sprinten) and @sprinten > 20
    @sprinten_akt = true
    $game_player.move_speed += 1
    @hud_energie = MSS_HUD_ENERGIE.new(@sprinten_max) if @sprinten == @sprinten_max
  elsif @sprinten < @sprinten_max
    if Graphics.frame_count % ($game_player.moving? ? 6 : 3) == 0
    @sprinten += 1
    @hud_energie.refresh(@sprinten)
    end
  elsif @sprinten == @sprinten_max and !@hud_energie.nil?
    @hud_energie.dispose
    @hud_energie = nil
  end
  # /
 
  use_medikit if @key.getkey_id(@key_medikit)
  granate_wefen if @key.getkey_id(@key_granate)
  mine_legen if @key.getkey_id(@key_mine)
 
  if @key.getkey_id(69) # E
    granate_wefen(4,2)
    granate_wefen(4,4)
    granate_wefen(4,6)
    granate_wefen(4,8)
  end
 
  if @waffe_aktuell != nil
    if @waffen_atr[@waffe_aktuell['Name']]['Schussrate'].nil?
    schuss if Input.trigger?(Input::C)
  elsif @key.getkey_id(13) or @key.getkey_id(32)
    schuss
    @schussrate = @waffen_atr[@waffe_aktuell['Name']]['Schussrate']
  end
  end

  if @option_allow_weapon_change
    for taste in 0..@waffe.size - 2
      if @key.getkey_id(49+taste) and @waffe[0] != taste+1
      change_weapon(taste+1)
    end
  end
  end
 
  for taste in @nachladetasten
    nachladen if @key.getkey_id(taste)
  end
 end

 def dispose
  if @hud.is_a?(MSS_HUD)
      @hud.dispose
      @hud = nil
  end
  if @hud_laden.is_a?(MSS_HUD_LADEN)
      @hud_laden.dispose
      @hud_laden = nil
  end
  if @hud_boss.is_a?(MSS_HUD_BOSS)
      @hud_boss.dispose
      @hud_boss = nil
  end
   
  if !@hud_energie.nil?
      @hud_energie.dispose
      @hud_energie = nil
  end
 end
 
 def ini_hud
  @hud = @option_hud_sichtbar[0] ? MSS_HUD.new : MSS_HUD_Dummy.new
  boss(true,@hud_boss_active[0],@hud_boss_active[1],true) if @hud_boss_active.is_a?(Array)
  @hud_energie = MSS_HUD_ENERGIE.new(@sprinten_max, false) unless @sprinten == @sprinten_max
 end
end

---

Und hier das Script in dem die def steht, auf die ich zugreifen möchte. Die Stelle ist etwas über der Mitte.

Code:

---

class MSS
  attr_accessor :waffen_atr, :waffe_aktuell, :gegner_atr, :active,
  :statistik, :waffe, :events, :actor, :key, :hud, :wait, :ziel,
  :hud, :hud_laden, :hud_boss, :hud_boss_active, :option_events_aktivieren,
  :option_allow_weapon_change, :option_quake_sounds, :option_automatisches_nachladen,
  :items, :actor_graphic, :heal_power, :sprinten_max, :granate_power, :mine_power,
  :movement_8_way, :skills
  def schuss(taeter=$game_player,ziel='Events',abfrage=false,spezial=true)
  @taeter = taeter; @ziel = ziel
  @taeter = $game_map.events[@taeter] if @taeter.is_a?(Integer)
  @hx = @taeter.x
  @hy = @taeter.y
  @hd = @taeter.direction
 
  if @ziel == 'Events'
    if not @waffe_aktuell['Magazin'] > 0
    $game_system.se_play(@leere_waffe_sound)
    return
  end
    spezschuss = @waffen_atr[@waffe_aktuell['Name']]['Spezial_Schuss']
    eval(spezschuss) unless spezschuss.nil?
    $game_system.se_play(@waffen_atr[@waffe_aktuell['Name']]['Schusssound'])
    @statistik['Schuesse'] += 1
    @waffe_aktuell['Magazin'] -= 1
    @hud.refresh
    if @waffen_atr[@waffe_aktuell['Name']]['Mündungsfeuer'] != nil
      $game_player.animation_id = @waffen_atr[@waffe_aktuell['Name']]['Mündungsfeuer'][$game_player.direction / 2 - 1]
    end
    @killed = 0; @int = 0
    treffer?
    quake_sound
    nachladen if @waffe_aktuell['Magazin'] == 0 and @option_automatisches_nachladen
    elsif @ziel == 'Player'
      treffer?
    end
  end
 
  def quake_sound
  @statistik['Multikill'] = @killed if @killed > @statistik['Multikill']
  if @killed > 1 and @option_quake_sounds[0]
    if @killed > @option_quake_sounds.size then sound = @option_quake_sounds.size else sound = @killed end
    $game_system.se_play(@option_quake_sounds[sound-1])
  end
  end
 
  def treffer?
    case @hd
    when 2 # Runter
      start = @hy + 1
      ende = $game_map.height
      counter = 1
      vari = 1 # Y
    when 4 # Links
      start = @hx - 1
      ende = -1
      counter = -1
      vari = 0 # X
    when 6 # Rechts
      start = @hx + 1
      ende = $game_map.width
      counter = 1
      vari = 0
    when 8 # Hoch
      start = @hy - 1
      ende = -1
      counter = -1
      vari = 1
    end
    x, y = @hx, @hy
    tile = start
    while tile != ende
      if vari == 0
        x = tile
      else
        y = tile
      end
      break if $game_map.passable?(x,y,0) == false and @undurchlässiges_terrain.include?($game_map.terrain_tag(x,y)) == false
      @id = $game_map.id_coordinates(x,y)
      break if @events['Hindernis'].include?(@id)
      if @ziel == 'Player'
      if @id == 0
        getroffen
        return
      end
      tile += counter
      next
      end
      @int = id_to_int(@id)
      if @id > 0 and @int != nil and @events['Gegner'][@int] != nil and
      $game_self_switches[[$game_map.map_id, @id, 'A']] == false
        getroffen
        break if @events['Gegner'][@int]['HP'] != nil and
        not @gegner_atr[@events['Gegner'][@int]['Klasse']]['Kugeldurchlässig']
      end
      tile += counter
    end
  end
 
  def getroffen
    if @ziel == 'Player'
      gegner_schlag(@taeter.id)
      return
    end

    spezial = @events['Gegner'][@int]['Spezial']
    unless spezial.nil?
      eval(spezial)
      return
    end
   
    spezial = @gegner_atr[@events['Gegner'][@int]['Klasse']]['Spezial']
    if !spezial.nil?
    aftereval = spezial.include?('!A!')
    eval(spezial) unless aftereval
    end
 
  schaden = @waffen_atr[@waffe_aktuell['Name']]['Schaden']
 
  make_damage(@id,schaden,blut_animation(@id,@hd))
  @store_direction #ssssssssssssssssssssssss
  eval(spezial.gsub('!A!','')) if aftereval
  @restore_direction #ssssssssssssssssssssssss
  end
 
  def nachladen
    return if @waffe_aktuell.nil?
    magazin_max = @waffen_atr[@waffe_aktuell['Name']]['Magazin']
    magazin = @waffe_aktuell['Magazin']
    munition = @waffe_aktuell['Munition']
    noetig = magazin_max - magazin
    return if magazin == magazin_max
    return if munition == 0
    if munition == '/'
      magazin = magazin_max
    else
      if munition + magazin >= magazin_max
      munition -= noetig
      magazin = magazin_max
    else
      magazin += munition
      munition = 0
    end
    end
    @waffe_aktuell['Magazin'] = magazin
    @waffe_aktuell['Munition'] = munition
    $game_system.se_play(@waffen_atr[@waffe_aktuell['Name']]['Nachladesound'])
    wait_balken(@waffen_atr[@waffe_aktuell['Name']]['Nachladezeit'])
    @hud.refresh
  end
 
  def gegner_schlag(id)
int = id_to_int(id)
    schaden = @gegner_atr[@events['Gegner'][int]['Klasse']]['Schaden']
    $game_actors[@actor].hp -= schaden
    @statistik['Verlorene HP'] += schaden
    $game_player.animation_id =
    @gegner_atr[@events['Gegner'][int]['Klasse']]['Trefferanimation']
  end
 
  def dead?(id)
    return true if @events['Gegner'][id_to_int(id)]['HP'] == 0
    return false
  end
 
  def all_dead?
    ins = 0;@events['Gegner'].each { |g| ins += g['HP'] if !g['HP'].nil?}
    return true if ins == 0
    return false
  end
 
  def kill(id)
    id = [id] if id.is_a?(Numeric)
    for i in id
    @events['Gegner'][id_to_int(i)]['HP'] = 0
    change_local_switch(i)
    end
  end
 
  def kill_all
  @events['ID'].each_index {|i|int = id_to_int(i);kill(i) if !int.nil? and !@events['Gegner'][int]['HP'].nil?}
  end
 
  def heal(id)
    id = [id] if id.is_a?(Numeric)
    for i in id
    int = id_to_int(i)
    @events['Gegner'][int]['HP'] =
    @gegner_atr[@events['Gegner'][int]['Klasse']]['HP']
    change_local_switch(i,false)
    end
  end
 
  def heal_all
    @events['ID'].each_index {|i|int = id_to_int(i);heal(i) if !int.nil? and !@events['Gegner'][int]['HP'].nil?}
  end
 
  def add_ammo(name,ammo)
    @waffe[find_weapon_slot(name)]['Munition'] += ammo
  end
 
  def add_weapon(name,munition=300,magazin=30,id=0,double=false)
    return if !double and find_weapon_slot(name) != @waffe.size
    hash = {'Name' => name, 'Munition' => munition, 'Magazin' => magazin}
    if id == 0 then @waffe << hash else @waffe[id] = hash ;end
  end
 
  def remove_weapon(name)
    if name.is_a?(String)
    @waffe.delete_at(find_weapon_slot(name))
  else
    @waffe.delete_at(name)
    end
  end
 
  def find_weapon_slot(name='')
    name.to_s
    @waffe.each_with_index do |waffe,index|
      next if index < 2
      return index if name == waffe['Name']
    end
    return @waffe.size
  end
 
  def boss(show=true,id=1,name='',menu=false)
    @hud_boss.dispose if @hud_boss_active.is_a?(Array) and menu == false
    if show
    @hud_boss = MSS_HUD_BOSS.new(id,name)
    @hud_boss_active = [id,name]
    else
    @hud_boss.dispose
    @hud_boss = nil
    @hud_boss_active = nil
  end
 end
 
  def change_weapon(id=2)
  unless @waffe_aktuell.nil?
    spezab = @waffen_atr[@waffe_aktuell['Name']]['Spezial_Ablegen']
    eval(spezab) unless spezab.nil?
  end
  if @waffe[id].nil?
    $game_actors[@actor].set_graphic(@actor_graphic, 0, '', 0)
    else
    $game_actors[@actor].set_graphic(@waffen_atr[@waffe[id]['Name']]['Spielergrafik'], 0, '', 0)
    spezan = @waffen_atr[@waffe[id]['Name']]['Spezial_Anlegen']
    eval(spezan) unless spezan.nil?
  end
  $game_system.se_play(@waffenwechselsound)
  @waffe[0] = id
  @waffe_aktuell = @waffe[@waffe[0]]
  @hud.refresh
  $game_player.refresh
 end
 
 def change_local_switch(id,value=true,switch='A',map=$game_map.map_id)
  for i in id.to_a
  $game_self_switches[[map, i, switch]] = value
  end
  $game_map.need_refresh = true
 end

  def option_hud_sichtbar(hud=true,balken=true)
    @option_hud_sichtbar = [hud,balken]
    @hud.dispose
    if hud
      @hud = MSS_HUD.new
    else
      @hud = MSS_HUD_Dummy.new
    end
  end
 
  def make_saveable
    dispose
    @key = nil
  end
 
  def make_playable
    @key = Keys.new
  end
 
  def make_damage(id,schaden,ani=0)
    return if $game_self_switches[[$game_map.map_id, id, 'A']]
    int = id_to_int(id)
    @events['Gegner'][int]['HP'] -= schaden
    @statistik['Zugefuegter Schaden'] += schaden
    $game_map.events[id].animation_id = ani
    if @events['Gegner'][int]['HP'] <= 0
    @statistik['Zugefuegter Schaden'] += @events['Gegner'][int]['HP']
    @events['Gegner'][int]['HP'] = 0
    change_local_switch(id)
    @statistik['Gegner'] += 1
    @killed += 1
  end
  @hud_boss.refresh if @hud_boss_active.is_a?(Array) and @hud_boss_active[0] == id
 end
 
  def wait_balken(wait)
    return if @wait > 0
    @wait = wait
    $game_system.menu_disabled = true
    @hud_laden = @option_hud_sichtbar[1] ? MSS_HUD_LADEN.new(wait) : MSS_HUD_Dummy.new
  end
 
  def items_add(wert, key)
    $MSS.items[key] += wert
    @hud.refresh
  end
 
  def direction(x1,y1,x2,y2)
    x, y = x2 - x1, y2 - y1
    return -1 if x == 0 and y == 0
    if x.abs > y.abs
    return x > 0 ? 4 : 6
    else
    return y > 0 ? 8 : 2
  end
  end
 
  def blut_animation(id,d)
  blut = @gegner_atr[@events['Gegner'][id_to_int(id)]['Klasse']]['Blut']
  return blut.nil? ? 0 : blut[d / 2 - 1]
  end
 
  def id_to_int(id)
    return @events['ID'][id]
  end
 
  def garbage_collector
  $game_map.events.each{|e|$game_map.events.delete(e[1].id) if $game_self_switches[[$game_map.map_id, e[1].id, 'A']]}
  end
 
  def debug
  File.open('MSS.txt','w') {|f|f.write($MSS.inspect)}
  end
end

class Game_Map
  attr_reader  :map
  alias :mss_original_setup :setup if $MSS.nil?
  def setup(map_id)
    mss_original_setup(map_id)
    $MSS.ini_events
  end
 
  def id_coordinates(x=0,y=0)
    @events.each {|e|return e[1].id if e[1].x == x and e[1].y == y}
    return 0 if $game_player.x == x and $game_player.y == y
    return -1
  end
 
  def id_coordinates_mine(x=0,y=0,id=0)
    @events.each {|e|return e[1].id if e[1].x == x and e[1].y == y and e[1].id != id}
    return -1
  end
 
  def id_coordinates_array(x=0,y=0)
    array = []
    @events.each {|e|array << e[1].id if e[1].x == x and e[1].y == y}
    array << 0 if $game_player.x == x and $game_player.y == y
    return array
  end
 
  def id_rect(rect)
    ev = []
    @events.each {|e|ev << e[1].id if rect.inside?(e[1])}
    return ev
  end
end

class Game_Character
 attr_accessor :flat
 alias :mss_original_initialize :initialize if $MSS.nil?
 alias :mss_original_screen_z :screen_z if $MSS.nil?
 def initialize
  @flat = false
  mss_original_initialize
 end
 def screen_z(height = 0)
    return 0 if @flat
    mss_original_screen_z(height)
  end
end

class Keys
  def initialize
    @GetAsyncKeyState = Win32API.new('user32', 'GetAsyncKeyState', 'l','l')
    @keybd_event = Win32API.new('user32', 'keybd_event', %w(l l l l), '')
  end
  def getkey
    for i in 0..255
      if @GetAsyncKeyState.call(i) != 0
        return i
      end
    end
    return 0
  end
  def getkey_id(id)
    if @GetAsyncKeyState.call(id) != 0
      return true
    end
    return false
  end
  def setkey_id_down(id)
    @keybd_event.call(id,0,0,0)
  end
    def setkey_id_up(id)
    @keybd_event.call(id,0,2,0)
  end
end

class Game_Player < Game_Character
  def update
    last_moving = moving?
    unless moving? or $game_system.map_interpreter.running? or
          @move_route_forcing or $game_temp.message_window_showing
    #==========EDIT===========#
    if $MSS.movement_8_way
      case Input.dir8
      when 1
        move_lower_left
      when 2
        move_down
      when 3
        move_lower_right
      when 4
        move_left
      when 6
        move_right
      when 7
        move_upper_left
      when 8
        move_up
      when 9
        move_upper_right
      end
    else
      case Input.dir4
      when 2
        move_down
      when 4
        move_left
      when 6
        move_right
      when 8
        move_up
      end
    end
    #==========EDIT===========#
    end
    last_real_x = @real_x
    last_real_y = @real_y
    super
    if @real_y > last_real_y and @real_y - $game_map.display_y > CENTER_Y
      $game_map.scroll_down(@real_y - last_real_y)
    end
    if @real_x < last_real_x and @real_x - $game_map.display_x < CENTER_X
      $game_map.scroll_left(last_real_x - @real_x)
    end
    if @real_x > last_real_x and @real_x - $game_map.display_x > CENTER_X
      $game_map.scroll_right(@real_x - last_real_x)
    end
    if @real_y < last_real_y and @real_y - $game_map.display_y < CENTER_Y
      $game_map.scroll_up(last_real_y - @real_y)
    end
    unless moving?
      if last_moving
        result = check_event_trigger_here([1,2])
        if result == false
          unless $DEBUG and Input.press?(Input::CTRL)
            if @encounter_count > 0
              @encounter_count -= 1
            end
          end
        end
      end
    #==========EDIT===========#
    if $MSS.active == false or $MSS.waffe_aktuell == nil or $MSS.option_events_aktivieren
      if Input.trigger?(Input::C)
        check_event_trigger_here([0])
        check_event_trigger_there([0,1,2])
        end
      end
    #==========EDIT===========#
    end
  end
end

class Game_System
  attr_accessor :mss_save
end

class Game_Character
  attr_accessor :direction_fix
end

class Rect
  def each
    for xx in x..x + width
      for yy in y..y + height
        yield xx, yy
      end
    end
  end
 
  def inside?(ox,oy=0)
  ox, oy = ox.x, ox.y unless ox.is_a?(Integer)
  return (ox.between?(x, x + width)) && (oy.between?(y, y + height))
  end
end

class Game_SelfSwitches
  def delete(key)
    @data.delete(key)
  end
end

class Game_Battler
  alias :mss_hpchange_original :hp= if $MSS.nil?
  def hp=(hp)
    mss_hpchange_original(hp)
    return unless self.is_a?(Game_Actor)
    $MSS.hud.refresh
    $game_temp.gameover = true if @hp == 0
  end
end

class Scene_Save < Scene_File
  alias :mss_write_save_data_original :write_save_data if $MSS.nil?
  def write_save_data(file)
    $MSS.make_saveable
    $game_system.mss_save = $MSS
    mss_write_save_data_original(file)
    $MSS.make_playable
  end
end


class Scene_Load < Scene_File
  alias :mss_read_save_data_original :read_save_data if $MSS.nil?
  def read_save_data(file)
    mss_read_save_data_original(file)
    $MSS = $game_system.mss_save
    $MSS.make_playable
  end
end

class Scene_Title
  alias :mss_title_ini_original :initialize if $MSS.nil?
  def initialize
  $MSS = MSS.new
  mss_title_ini_original
 end
end

---

Nein, tut mir Leid, das ist keine der Standardklassen.

Was du versuchen könntest wäre:
$MSS.change_weapon(x)

Aber ich kann dir nicht sagen, ob das funktionieren wird; das ist hier nur geraten.

Jemand vielleicht noch eine Idee?

Idee: Poste mal den gesamten Code der Scripts, die du eingefügt hast, nicht nur das was du für relevant hältst.

MSS: Initialize

Code:

---

class MSS # Monsta's Shoot System
 
  def initialize

    #===Optionen===#
    @active = false # Ist das Schusssystem von Anfang an aktiv
    @undurchlässiges_terrain = [7]  # Alle Zahlen von 0-7 können im Array verwendet werden. Einzelne Terrain ID's werden wie im Array gewohnt durch ein Komma getrennt
    @option_events_aktivieren = false # Mit dieser Option braucht man nicht immer die Waffe zu wechseln um ein "Push Key" Event zu starten. [x]
    @option_allow_weapon_change = true # Gibt an, ob die Waffe gewechselt werden darf
    @option_quake_sounds = [true,
    RPG::AudioFile.new('double',100,100),
    RPG::AudioFile.new('multi',100,100),
    RPG::AudioFile.new('ultra',100,100),
    RPG::AudioFile.new('monster',100,100)]
    @option_automatisches_nachladen = true # Gibt an, ob automatisch nachgeladen werden soll, wenn das Magazin leer ist.
    @option_hud_sichtbar = [false,true] # Gibt an, ob der HUD mit HP und Ammo Anzeige Sichtbar sein soll. Der 2. Wert steht für den Nachladebalken
    # Die Waffenzusammenstellung die man am Anfang des Spiels hat. Der nil wert ist für Waffe wegstecken.
    @waffe = [1,nil,
    {'Name' => 'Pistole', 'Munition' => '/', 'Magazin' => 15},
  # {'Name' => 'Deagle', 'Munition' => 30, 'Magazin' => 7},
    {'Name' => 'Shotgun', 'Munition' => 300, 'Magazin' => 1}
    ]
    @actor = 1 # Heldennummer (für z.B. HP Berechnung)
    @actor_graphic = 'player_normal_SICHERUNG' # Heldengrafik, als Figur ohne Waffe
    @waffenwechselsound = RPG::AudioFile.new('Waffe_wechsel',100,100)
    @leere_waffe_sound = RPG::AudioFile.new('leer',100,100)
    @standard_blut = [25,26,27,28]
    @spinne_blut = [109,109,109,109]
    @robospinne_blut = [33,33,33,33]
   
    @nachladetasten = [0,0,0]  # "R" - "Alt" - "Shift"
   
    @key_strafe = 65 # Strafelauf ist auf Taste A. Um Strafen zu deaktivierten nil nehmen
    @key_medikit = 0 # Medikit benutzen ist auf Taste S.
    @key_granate = 68 # Granate werfen ist auf Taste D.
    @key_mine = 0 # Mine legen ist auf Taste Q.
    @key_sprinten = 0 # Sprinten auf STRG.
   
    @sprinten_max = 100
    @sprinten = @sprinten_max
    @heal_power = 50
    @granate_power = [12,2] # Schaden, Radius
    @mine_power = [19,3] # Schaden, Radius
    @items = Hash.new(0) # Speichert zusätzliche Items. zB Medikits
    @event_database = 134 # Die Map wo Events wie Granaten gespeichert sind
    @movement_8_way = true
   
    @skills = [ ['HP','$game_actors[$MSS.actor].maxhp',100,50],  # Name, Wert, Preis, Steigerung
    ['Sprinten','$MSS.sprinten_max',50,20],
    ['Granatenschaden','$MSS.granate_power[0]',50,1],
    ['Minenschaden','$MSS.mine_power[0]',50,1] ]
    #===Ini===# (Hier bitte nichts verändern, wenn ihr euch nicht mit RGSS auskennt^^
    ini_waffen
    ini_gegner
    ini_statistik
    @waffe_aktuell = @waffe[@waffe[0]]
    @events = {'Gegner' => [],'Hindernis' => [], 'ID' => []}
    @key = Keys.new
    @wait = 0
    @schussrate = 0
    @hud_boss = nil
    @hud_boss_active = nil
  end
      attr_accessor :option_hud_sichtbar
  # VORSICHT!
  # Diese Daten werden beim Spielstand mitgespeichert (Da man diese Werte ja auch
  # während des Spiels verändern (Pimpen =) ) kann. Also Änderungen wirken sich
  # nur auf Neue Spiele aus
 
  def ini_waffen
    @waffen_atr = {
    'Pistole' => {
      'Schaden' => 1,
      'Schusssound' => RPG::AudioFile.new('Pistole',100,100),
      'Nachladesound' => RPG::AudioFile.new('Pistole Nachladen',100,100),
      'Nachladezeit' => 80,        # Nachladezeit in Frames. Bei 40 Frames pro Sekunde also hier 2 Sekunden.
      'Magazin' => 15,
      'Schussrate' => nil,          # Bei nicht automatischen Waffen "nil" hinschreiben. Ansonsten die Frame Wartezeit
      'Spielergrafik' => 'player_pistole',
      'Mündungsfeuer' => [1,2,3,29]  # Wenn keine Animation sein soll einfach "nil" (ohne Anführungszeichen) schreiben! Die Zahlen im Array stehen für die Animations ID in dieser Reihenfolge: [Unten, Links, Rechts, Oben]. Die ID "0" steht für keine Animation!
    },
   
    'Deagle' => {
      'Schaden' => 4,
      'Schusssound' => RPG::AudioFile.new('Deagle',100,100),
      'Nachladesound' => RPG::AudioFile.new('Deagle Nachladen',100,100),
      'Nachladezeit' => 75,
      'Magazin' => 7,
      'Schussrate' => nil,
      'Spielergrafik' => 'Deagle',
      'Mündungsfeuer' => [5,6,7,0]
    },
   
    'MP5' => {
      'Schaden' => 2,
      'Schusssound' => RPG::AudioFile.new('MP5',100,100),
      'Nachladesound' => RPG::AudioFile.new('MP5 Nachladen',100,100),
      'Nachladezeit' => 90,
      'Magazin' => 30,
      'Schussrate' => 3,
      'Spielergrafik' => 'MP5',
      'Mündungsfeuer' => [8,9,10,0]
    },
   
    'Colt' => {
      'Schaden' => 7,
      'Schusssound' => RPG::AudioFile.new('Colt',100,100),
      'Nachladesound' => RPG::AudioFile.new('Colt Nachladen',100,100),
      'Nachladezeit' => 125,
      'Magazin' => 6,
      'Schussrate' => nil,
      'Spielergrafik' => 'Colt',
      'Mündungsfeuer' => [11,12,13,0]
    },
   
    'M4' => {
      'Schaden' => 4,
      'Schusssound' => RPG::AudioFile.new('M4',100,100),
      'Nachladesound' => RPG::AudioFile.new('M4 Nachladen',100,100),
      'Nachladezeit' => 75,
      'Magazin' => 30,
      'Schussrate' => 4,
      'Spielergrafik' => 'M4',
      'Mündungsfeuer' => [14,15,16,0]
    },
   
    'Dual' => {
      'Schaden' => 1,
      'Schusssound' => RPG::AudioFile.new('Pistole',100,100),
      'Nachladesound' => RPG::AudioFile.new('Dual Nachladen',100,100),
      'Nachladezeit' => 135,
      'Magazin' => 30,
      'Schussrate' => nil,
      'Spielergrafik' => 'Dual',
      'Mündungsfeuer' => [40,41,42,43],
      'Spezial_Schuss' => 'dual_feuerwechsel'
    },
   
    'MG' => {
      'Schaden' => 6,
      'Schusssound' => RPG::AudioFile.new('MG',100,100),
      'Nachladesound' => RPG::AudioFile.new('MG Nachladen',100,100),
      'Nachladezeit' => 233,
      'Magazin' => 100,
      'Schussrate' => 5,
      'Spielergrafik' => 'MG',
      'Mündungsfeuer' => [17,18,19,0],
      'Spezial_Anlegen' => 'schwere_waffe',
      'Spezial_Ablegen' => 'schwere_waffe(false)'
    },
   
    'Shotgun' => {
      'Schaden' => 50,
      'Schusssound' => RPG::AudioFile.new('Shotgun',100,100),
      'Nachladesound' => RPG::AudioFile.new('Shotgun Nachladen',100,100),
      'Nachladezeit' => 65,
      'Magazin' => 1,
      'Schussrate' => nil,
      'Spielergrafik' => 'player_shotgun',
      'Mündungsfeuer' => [20,21,22,23]
    }
    }
   
  end
 
  def ini_gegner
    @gegner_atr = {
    'Bandit' => {
      'Schaden' => 15,
      'HP' => 10,
      'Trefferanimation' => 4,
      'Spezial' => nil,            # Dieser String wird beim Treffen des Eventes mit "eval" ausgeführt
      'Blut' => @standard_blut,    # Ein Array mit den Blutanimationen, ähnlich dem Mündungsfeuer bei den Waffen. Weil ich oft das gleiche Blut benutze, hab ich oben einen Array mit dem Standardblut gemacht
      'Kugeldurchlässig' => true
      },
    'Biene' => {
      'Schaden' => 20,
      'HP' => 4,
      'Trefferanimation' => 4,
      'Spezial' => '!A! hitsound("089-Attack01","089-Attack01")',
      'Blut' => @spinne_blut,
      'Kugeldurchlässig' => false
      },
    'Robospinne' => {
      'Schaden' => 20,
      'HP' => 4,
      'Trefferanimation' => 4,
      'Spezial' => '!A! hitsound("089-Attack01","089-Attack01")',
      'Blut' => @robospinne_blut,
      'Kugeldurchlässig' => false
      },     
      'Glas' => {
      'Schaden' => 0,
      'HP' => 1,
      'Trefferanimation' => 4,
      'Spezial' => nil,
      'Blut' => nil,
      'Kugeldurchlässig' => true
      },
      'Schiessender Gegner' => {
      'Schaden' => 100,
      'HP' => 10,
      'Trefferanimation' => 4,
      'Spezial' => nil, #"print ('Hey, du sollst mich nicht abschiessen! Ich bin nur ein Beispiel für einen Schiessenden Gegner und das Spezial Attribut ;-)');return",
      'Blut' => @standard_blut, #nil,
      'Kugeldurchlässig' => true
      },
      'Goblin' => {
      'Schaden' => 1,
      'HP' => 9999,
      'Trefferanimation' => 4,
      'Spezial' => nil,
      'Blut' => @standard_blut,
      'Kugeldurchlässig' => true
      },
     
    'Endgegner' => {
      'Schaden' => 100,
      'HP' => 300,
      'Trefferanimation' => 4,
      'Spezial' => nil,
      'Blut' => @standard_blut,
      'Kugeldurchlässig' => false
      },
     
    'Stampfi' => {
      'Schaden' => 100,
      'HP' => 1500,
      'Trefferanimation' => 4,
      'Spezial' => nil,
      'Blut' => [48,49,50,51],
      'Kugeldurchlässig' => false
      }
    }
  end
 
  def ini_statistik
    @statistik = {
    'Schuesse' => 0,
    'Treffer' => 0,  # Noch nicht programmiert!
    'Gegner' => 0,
    'Multikill' => 0,
    'Verlorene HP' => 0,
    'Zugefuegter Schaden' => 0
    }
  end
 
  def ini_events # Event erkennung. Bitte nur Ändern wenn ihr euch mit RGSS auskennt^^
    @events = {'Gegner' => [],'Hindernis' => [], 'ID' => []}
    begin
    for ev in $game_map.events.values
      case $game_map.map.events[ev.id].name.downcase
        when 'gegner'
          if ev.list[0].code == 108
          komm = $game_map.events[ev.id].list[0].parameters.pop
          if @gegner_atr[komm] == nil
              print ("Bei dem Gegner mit der ID #{ev.id} wurde eine Monsterklasse angegeben, die nicht existiert.") if $DEBUG
              next
            end
        else return
        end
          @events['Gegner'].push({'id' => ev.id, 'Klasse' => komm,
          'HP' => @gegner_atr[komm]['HP']})
          @events['ID'][ev.id] = @events['Gegner'].size - 1
         
        when 'spezial'
          if ev.list[0].code == 108
          komm = $game_map.events[ev.id].list[0].parameters.pop
        else
          print ("Bei dem Spezialevent mit der ID #{ev.id} wurde kein Spezialaufruf gefunden.") if $DEBUG
          next
        end
        @events['Gegner'] << {'id' => ev.id, 'Spezial' => komm}
        @events['ID'][ev.id] = @events['Gegner'].size - 1
       
        when 'hindernis'
          @events['Hindernis'].push(ev.id)
         
        when 'flaches event'
          $game_map.events[ev.id].flat = true
      end
    end
  rescue StandardError, SyntaxError
    p ev
    end
  end
 end

---

MSS: Update (Hier wird change_weapon standardmäßig aufgerufen)

Code:

---

class Scene_Map
  alias :mss_map_ini_original :initialize if $MSS.nil?
  def initialize
    mss_map_ini_original
    $MSS.ini_hud
  end

  alias :mss_map_update_original :update if $MSS.nil?
  def update
    $MSS.update if $MSS.active
    mss_map_update_original
  end
end

class Window_Message
  alias :mss_dispose_original :dispose if $MSS.nil?
  def dispose
    mss_dispose_original
    $MSS.dispose
  end
end

class MSS
  def update
  return if $game_temp.message_window_showing
  $game_player.direction_fix = @key.getkey_id(@key_strafe) unless @key_strafe.nil?
  if @wait > 0
      @wait -= 1
      @hud_laden.refresh unless @hud_laden.nil?
      if @wait == 0
        $game_system.menu_disabled = false
        @hud_laden.dispose unless @hud_laden.nil?
        @hud_laden = nil
      end
      return
  end
  if @schussrate > 0
    @schussrate -= 1
    return
  end

  # Sprinten
  if @sprinten_akt == true and @key.getkey_id(@key_sprinten) and @sprinten > 0
    @sprinten -= 1
    @hud_energie.refresh(@sprinten) if Graphics.frame_count % 2 == 0
    return
  elsif @sprinten_akt == true
    $game_player.move_speed -= 1
    @sprinten_akt = false
  end
 
  if @key.getkey_id(@key_sprinten) and @sprinten > 20
    @sprinten_akt = true
    $game_player.move_speed += 1
    @hud_energie = MSS_HUD_ENERGIE.new(@sprinten_max) if @sprinten == @sprinten_max
  elsif @sprinten < @sprinten_max
    if Graphics.frame_count % ($game_player.moving? ? 6 : 3) == 0
    @sprinten += 1
    @hud_energie.refresh(@sprinten)
    end
  elsif @sprinten == @sprinten_max and !@hud_energie.nil?
    @hud_energie.dispose
    @hud_energie = nil
  end
  # /
 
  use_medikit if @key.getkey_id(@key_medikit)
  granate_wefen if @key.getkey_id(@key_granate)
  mine_legen if @key.getkey_id(@key_mine)
 
  if @key.getkey_id(69) # E
    granate_wefen(4,2)
    granate_wefen(4,4)
    granate_wefen(4,6)
    granate_wefen(4,8)
  end
 
  if @waffe_aktuell != nil
    if @waffen_atr[@waffe_aktuell['Name']]['Schussrate'].nil?
    schuss if Input.trigger?(Input::C)
  elsif @key.getkey_id(13) or @key.getkey_id(32)
    schuss
    @schussrate = @waffen_atr[@waffe_aktuell['Name']]['Schussrate']
  end
  end

  if @option_allow_weapon_change
    for taste in 0..@waffe.size - 2
      if @key.getkey_id(49+taste) and @waffe[0] != taste+1
      change_weapon(taste+1)
    end
  end
  end
 
  for taste in @nachladetasten
    nachladen if @key.getkey_id(taste)
  end
 end

 def dispose
  if @hud.is_a?(MSS_HUD)
      @hud.dispose
      @hud = nil
  end
  if @hud_laden.is_a?(MSS_HUD_LADEN)
      @hud_laden.dispose
      @hud_laden = nil
  end
  if @hud_boss.is_a?(MSS_HUD_BOSS)
      @hud_boss.dispose
      @hud_boss = nil
  end
   
  if !@hud_energie.nil?
      @hud_energie.dispose
      @hud_energie = nil
  end
 end
 
 def ini_hud
  @hud = @option_hud_sichtbar[0] ? MSS_HUD.new : MSS_HUD_Dummy.new
  boss(true,@hud_boss_active[0],@hud_boss_active[1],true) if @hud_boss_active.is_a?(Array)
  @hud_energie = MSS_HUD_ENERGIE.new(@sprinten_max, false) unless @sprinten == @sprinten_max
 end
end

---

MSS: HUD

Code:

---

class MSS_HUD < Window_Base
 def initialize
  super(0, 0, 220, 85)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.back_opacity = 155

    refresh
  end
 
  def refresh
    self.contents.clear
    actor = $game_actors[$MSS.actor]
    self.contents.font.color = Color.new (200, 204, 300, 255)
    self.contents.draw_text(-1, -7, 180, 32, "HP: #{actor.hp} | #{actor.maxhp}")
    if $MSS.waffe_aktuell == nil
      muni = '/'
    else
      muni = "#{$MSS.waffe_aktuell['Magazin']} | #{$MSS.waffe_aktuell['Munition']}"
    end
    self.contents.draw_text(-1, 25, 180, 32, "Munition: #{muni}")

  end
 
 # def dispose
  # @items.dispose
  # super
 # end
end



class MSS_HUD_LADEN < Window_Base
  def initialize(max)
    @farbe_hintergrund = Color.new(155,155,155,100)
    @farbe_balken_innen = Color.new(0,0,255,160)
    @farbe_balken_rand = Color.new(20,20,20,200)
    super(-17, 70, 160, 50)
    self.contents = Bitmap.new(width-32, height-32)
    self.opacity = 0
    self.contents.clear
    self.contents.fill_rect(11, 2, 110, 15, @farbe_hintergrund)
    @max = max
    refresh
  end
  def refresh
    lo = 100 - $MSS.wait * 100 / @max
    self.contents.fill_rect(16, 4, lo, 10, @farbe_balken_innen)
    self.contents.fill_rect(15, 4, 1, 11, @farbe_balken_rand)
    self.contents.fill_rect(16, 4, lo, 1, @farbe_balken_rand)
    self.contents.fill_rect(16, 14, lo, 1, @farbe_balken_rand)
    self.contents.fill_rect(16 + lo, 4, 2, 11, @farbe_balken_rand)
  end
 
  def dispose
    super unless self.disposed?
  end
end

class MSS_HUD_ENERGIE < Window_Base
  def initialize(max, new=true)
    @farbe_hintergrund = Color.new(155,155,155,155)
    @farbe_balken_innen = Color.new(0,0,255,255)
    @farbe_balken_rand = Color.new(0,0,0,255)
    super(470, 105, 160, 50)
    self.contents = Bitmap.new(width-32, height-32)
    self.opacity = 0
    self.contents.clear
    @max = max
    refresh(max) if new
  end
  def refresh(value)
    lo = value * 100 / @max
    self.contents.clear
    self.contents.fill_rect(11, 2, 110, 15, @farbe_hintergrund)
    self.contents.fill_rect(16, 4, lo, 10, @farbe_balken_innen)
    self.contents.fill_rect(15, 4, 1, 11, @farbe_balken_rand)
    self.contents.fill_rect(16, 4, lo, 1, @farbe_balken_rand)
    self.contents.fill_rect(16, 14, lo, 1, @farbe_balken_rand)
    self.contents.fill_rect(16 + lo, 4, 2, 11, @farbe_balken_rand)
  end
 
  def dispose
    super unless self.disposed?
  end
end

class MSS_HUD_BOSS < Window_Base
  def initialize(id,name)
    super(175, 420, 360, 100)
    self.contents = Bitmap.new(width-32, height-32)
    self.opacity = 0
    @farbe_hintergrund = Color.new(155,155,155,155)
    @farbe_balken_rand = Color.new(0,0,0,255)
    $MSS.hud_boss_active = [id,name]
    @name = name
    @int = $MSS.id_to_int(id)
    refresh
  end
  def refresh
    @lo = $MSS.events['Gegner'][@int]['HP'] * 300 /
    $MSS.gegner_atr[$MSS.events['Gegner'][@int]['Klasse']]['HP']
    ecolor = Color.new(10, 255, 10, 255)  if @lo > 139  # Grün
    ecolor = Color.new(250, 250, 10, 255) if @lo < 140  # Gelb
    ecolor = Color.new(255, 10, 10, 255)  if @lo < 60    # Rot
    if @lo == 0
    $MSS.boss(false,0,"",true)
    return
    end
    self.contents.clear
    self.contents.fill_rect(11, 2, 310, 25, @farbe_hintergrund)
    self.contents.fill_rect(16, 4, @lo, 20, ecolor)
    self.contents.fill_rect(15, 4, 1, 21, @farbe_balken_rand)
    self.contents.fill_rect(16, 4, @lo, 1, @farbe_balken_rand)
    self.contents.fill_rect(16, 24, @lo, 1, @farbe_balken_rand)
    self.contents.fill_rect(16+@lo, 4, 1, 21, @farbe_balken_rand)
    self.contents.draw_text(0, -3, 330, 32,@name,1)
  end
end

class MSS_HUD_Dummy
  def update  ;end
  def refresh ;end
  def dispose ;end
end

---

MSS: Code (Hier befindet sich die def change_weapon)

Code:

---

class MSS
  attr_accessor :waffen_atr, :waffe_aktuell, :gegner_atr, :active,
  :statistik, :waffe, :events, :actor, :key, :hud, :wait, :ziel,
  :hud, :hud_laden, :hud_boss, :hud_boss_active, :option_events_aktivieren,
  :option_allow_weapon_change, :option_quake_sounds, :option_automatisches_nachladen,
  :items, :actor_graphic, :heal_power, :sprinten_max, :granate_power, :mine_power,
  :movement_8_way, :skills
  def schuss(taeter=$game_player,ziel='Events',abfrage=false,spezial=true)
  @taeter = taeter; @ziel = ziel
  @taeter = $game_map.events[@taeter] if @taeter.is_a?(Integer)
  @hx = @taeter.x
  @hy = @taeter.y
  @hd = @taeter.direction
 
  if @ziel == 'Events'
    if not @waffe_aktuell['Magazin'] > 0
    $game_system.se_play(@leere_waffe_sound)
    return
  end
    spezschuss = @waffen_atr[@waffe_aktuell['Name']]['Spezial_Schuss']
    eval(spezschuss) unless spezschuss.nil?
    $game_system.se_play(@waffen_atr[@waffe_aktuell['Name']]['Schusssound'])
    @statistik['Schuesse'] += 1
    @waffe_aktuell['Magazin'] -= 1
    @hud.refresh
    if @waffen_atr[@waffe_aktuell['Name']]['Mündungsfeuer'] != nil
      $game_player.animation_id = @waffen_atr[@waffe_aktuell['Name']]['Mündungsfeuer'][$game_player.direction / 2 - 1]
    end
    @killed = 0; @int = 0
    treffer?
    quake_sound
    nachladen if @waffe_aktuell['Magazin'] == 0 and @option_automatisches_nachladen
    elsif @ziel == 'Player'
      treffer?
    end
  end
 
  def quake_sound
  @statistik['Multikill'] = @killed if @killed > @statistik['Multikill']
  if @killed > 1 and @option_quake_sounds[0]
    if @killed > @option_quake_sounds.size then sound = @option_quake_sounds.size else sound = @killed end
    $game_system.se_play(@option_quake_sounds[sound-1])
  end
  end
 
  def treffer?
    case @hd
    when 2 # Runter
      start = @hy + 1
      ende = $game_map.height
      counter = 1
      vari = 1 # Y
    when 4 # Links
      start = @hx - 1
      ende = -1
      counter = -1
      vari = 0 # X
    when 6 # Rechts
      start = @hx + 1
      ende = $game_map.width
      counter = 1
      vari = 0
    when 8 # Hoch
      start = @hy - 1
      ende = -1
      counter = -1
      vari = 1
    end
    x, y = @hx, @hy
    tile = start
    while tile != ende
      if vari == 0
        x = tile
      else
        y = tile
      end
      break if $game_map.passable?(x,y,0) == false and @undurchlässiges_terrain.include?($game_map.terrain_tag(x,y)) == false
      @id = $game_map.id_coordinates(x,y)
      break if @events['Hindernis'].include?(@id)
      if @ziel == 'Player'
      if @id == 0
        getroffen
        return
      end
      tile += counter
      next
      end
      @int = id_to_int(@id)
      if @id > 0 and @int != nil and @events['Gegner'][@int] != nil and
      $game_self_switches[[$game_map.map_id, @id, 'A']] == false
        getroffen
        break if @events['Gegner'][@int]['HP'] != nil and
        not @gegner_atr[@events['Gegner'][@int]['Klasse']]['Kugeldurchlässig']
      end
      tile += counter
    end
  end
 
  def getroffen
    if @ziel == 'Player'
      gegner_schlag(@taeter.id)
      return
    end

    spezial = @events['Gegner'][@int]['Spezial']
    unless spezial.nil?
      eval(spezial)
      return
    end
   
    spezial = @gegner_atr[@events['Gegner'][@int]['Klasse']]['Spezial']
    if !spezial.nil?
    aftereval = spezial.include?('!A!')
    eval(spezial) unless aftereval
    end
 
  schaden = @waffen_atr[@waffe_aktuell['Name']]['Schaden']
 
  make_damage(@id,schaden,blut_animation(@id,@hd))
  @store_direction #ssssssssssssssssssssssss
  eval(spezial.gsub('!A!','')) if aftereval
  @restore_direction #ssssssssssssssssssssssss
  end
 
  def nachladen
    return if @waffe_aktuell.nil?
    magazin_max = @waffen_atr[@waffe_aktuell['Name']]['Magazin']
    magazin = @waffe_aktuell['Magazin']
    munition = @waffe_aktuell['Munition']
    noetig = magazin_max - magazin
    return if magazin == magazin_max
    return if munition == 0
    if munition == '/'
      magazin = magazin_max
    else
      if munition + magazin >= magazin_max
      munition -= noetig
      magazin = magazin_max
    else
      magazin += munition
      munition = 0
    end
    end
    @waffe_aktuell['Magazin'] = magazin
    @waffe_aktuell['Munition'] = munition
    $game_system.se_play(@waffen_atr[@waffe_aktuell['Name']]['Nachladesound'])
    wait_balken(@waffen_atr[@waffe_aktuell['Name']]['Nachladezeit'])
    @hud.refresh
  end
 
  def gegner_schlag(id)
int = id_to_int(id)
    schaden = @gegner_atr[@events['Gegner'][int]['Klasse']]['Schaden']
    $game_actors[@actor].hp -= schaden
    @statistik['Verlorene HP'] += schaden
    $game_player.animation_id =
    @gegner_atr[@events['Gegner'][int]['Klasse']]['Trefferanimation']
  end
 
  def dead?(id)
    return true if @events['Gegner'][id_to_int(id)]['HP'] == 0
    return false
  end
 
  def all_dead?
    ins = 0;@events['Gegner'].each { |g| ins += g['HP'] if !g['HP'].nil?}
    return true if ins == 0
    return false
  end
 
  def kill(id)
    id = [id] if id.is_a?(Numeric)
    for i in id
    @events['Gegner'][id_to_int(i)]['HP'] = 0
    change_local_switch(i)
    end
  end
 
  def kill_all
  @events['ID'].each_index {|i|int = id_to_int(i);kill(i) if !int.nil? and !@events['Gegner'][int]['HP'].nil?}
  end
 
  def heal(id)
    id = [id] if id.is_a?(Numeric)
    for i in id
    int = id_to_int(i)
    @events['Gegner'][int]['HP'] =
    @gegner_atr[@events['Gegner'][int]['Klasse']]['HP']
    change_local_switch(i,false)
    end
  end
 
  def heal_all
    @events['ID'].each_index {|i|int = id_to_int(i);heal(i) if !int.nil? and !@events['Gegner'][int]['HP'].nil?}
  end
 
  def add_ammo(name,ammo)
    @waffe[find_weapon_slot(name)]['Munition'] += ammo
  end
 
  def add_weapon(name,munition=300,magazin=30,id=0,double=false)
    return if !double and find_weapon_slot(name) != @waffe.size
    hash = {'Name' => name, 'Munition' => munition, 'Magazin' => magazin}
    if id == 0 then @waffe << hash else @waffe[id] = hash ;end
  end
 
  def remove_weapon(name)
    if name.is_a?(String)
    @waffe.delete_at(find_weapon_slot(name))
  else
    @waffe.delete_at(name)
    end
  end
 
  def find_weapon_slot(name='')
    name.to_s
    @waffe.each_with_index do |waffe,index|
      next if index < 2
      return index if name == waffe['Name']
    end
    return @waffe.size
  end
 
  def boss(show=true,id=1,name='',menu=false)
    @hud_boss.dispose if @hud_boss_active.is_a?(Array) and menu == false
    if show
    @hud_boss = MSS_HUD_BOSS.new(id,name)
    @hud_boss_active = [id,name]
    else
    @hud_boss.dispose
    @hud_boss = nil
    @hud_boss_active = nil
  end
 end
 
 def change_weapon(id=2)
  unless @waffe_aktuell.nil?
    spezab = @waffen_atr[@waffe_aktuell['Name']]['Spezial_Ablegen']
    eval(spezab) unless spezab.nil?
  end
  if @waffe[id].nil?
    $game_actors[@actor].set_graphic(@actor_graphic, 0, '', 0)
    else
    $game_actors[@actor].set_graphic(@waffen_atr[@waffe[id]['Name']]['Spielergrafik'], 0, '', 0)
    spezan = @waffen_atr[@waffe[id]['Name']]['Spezial_Anlegen']
    eval(spezan) unless spezan.nil?
  end
  $game_system.se_play(@waffenwechselsound)
  @waffe[0] = id
  @waffe_aktuell = @waffe[@waffe[0]]
  @hud.refresh
  $game_player.refresh
 end
 
 def change_local_switch(id,value=true,switch='A',map=$game_map.map_id)
  for i in id.to_a
  $game_self_switches[[map, i, switch]] = value
  end
  $game_map.need_refresh = true
 end

  def option_hud_sichtbar(hud=true,balken=true)
    @option_hud_sichtbar = [hud,balken]
    @hud.dispose
    if hud
      @hud = MSS_HUD.new
    else
      @hud = MSS_HUD_Dummy.new
    end
  end
 
  def make_saveable
    dispose
    @key = nil
  end
 
  def make_playable
    @key = Keys.new
  end
 
  def make_damage(id,schaden,ani=0)
    return if $game_self_switches[[$game_map.map_id, id, 'A']]
    int = id_to_int(id)
    @events['Gegner'][int]['HP'] -= schaden
    @statistik['Zugefuegter Schaden'] += schaden
    $game_map.events[id].animation_id = ani
    if @events['Gegner'][int]['HP'] <= 0
    @statistik['Zugefuegter Schaden'] += @events['Gegner'][int]['HP']
    @events['Gegner'][int]['HP'] = 0
    change_local_switch(id)
    @statistik['Gegner'] += 1
    @killed += 1
  end
  @hud_boss.refresh if @hud_boss_active.is_a?(Array) and @hud_boss_active[0] == id
 end
 
  def wait_balken(wait)
    return if @wait > 0
    @wait = wait
    $game_system.menu_disabled = true
    @hud_laden = @option_hud_sichtbar[1] ? MSS_HUD_LADEN.new(wait) : MSS_HUD_Dummy.new
  end
 
  def items_add(wert, key)
    $MSS.items[key] += wert
    @hud.refresh
  end
 
  def direction(x1,y1,x2,y2)
    x, y = x2 - x1, y2 - y1
    return -1 if x == 0 and y == 0
    if x.abs > y.abs
    return x > 0 ? 4 : 6
    else
    return y > 0 ? 8 : 2
  end
  end
 
  def blut_animation(id,d)
  blut = @gegner_atr[@events['Gegner'][id_to_int(id)]['Klasse']]['Blut']
  return blut.nil? ? 0 : blut[d / 2 - 1]
  end
 
  def id_to_int(id)
    return @events['ID'][id]
  end
 
  def garbage_collector
  $game_map.events.each{|e|$game_map.events.delete(e[1].id) if $game_self_switches[[$game_map.map_id, e[1].id, 'A']]}
  end
 
  def debug
  File.open('MSS.txt','w') {|f|f.write($MSS.inspect)}
  end
end

class Game_Map
  attr_reader  :map
  alias :mss_original_setup :setup if $MSS.nil?
  def setup(map_id)
    mss_original_setup(map_id)
    $MSS.ini_events
  end
 
  def id_coordinates(x=0,y=0)
    @events.each {|e|return e[1].id if e[1].x == x and e[1].y == y}
    return 0 if $game_player.x == x and $game_player.y == y
    return -1
  end
 
  def id_coordinates_mine(x=0,y=0,id=0)
    @events.each {|e|return e[1].id if e[1].x == x and e[1].y == y and e[1].id != id}
    return -1
  end
 
  def id_coordinates_array(x=0,y=0)
    array = []
    @events.each {|e|array << e[1].id if e[1].x == x and e[1].y == y}
    array << 0 if $game_player.x == x and $game_player.y == y
    return array
  end
 
  def id_rect(rect)
    ev = []
    @events.each {|e|ev << e[1].id if rect.inside?(e[1])}
    return ev
  end
end

class Game_Character
 attr_accessor :flat
 alias :mss_original_initialize :initialize if $MSS.nil?
 alias :mss_original_screen_z :screen_z if $MSS.nil?
 def initialize
  @flat = false
  mss_original_initialize
 end
 def screen_z(height = 0)
    return 0 if @flat
    mss_original_screen_z(height)
  end
end

class Keys
  def initialize
    @GetAsyncKeyState = Win32API.new('user32', 'GetAsyncKeyState', 'l','l')
    @keybd_event = Win32API.new('user32', 'keybd_event', %w(l l l l), '')
  end
  def getkey
    for i in 0..255
      if @GetAsyncKeyState.call(i) != 0
        return i
      end
    end
    return 0
  end
  def getkey_id(id)
    if @GetAsyncKeyState.call(id) != 0
      return true
    end
    return false
  end
  def setkey_id_down(id)
    @keybd_event.call(id,0,0,0)
  end
    def setkey_id_up(id)
    @keybd_event.call(id,0,2,0)
  end
end

class Game_Player < Game_Character
  def update
    last_moving = moving?
    unless moving? or $game_system.map_interpreter.running? or
          @move_route_forcing or $game_temp.message_window_showing
    #==========EDIT===========#
    if $MSS.movement_8_way
      case Input.dir8
      when 1
        move_lower_left
      when 2
        move_down
      when 3
        move_lower_right
      when 4
        move_left
      when 6
        move_right
      when 7
        move_upper_left
      when 8
        move_up
      when 9
        move_upper_right
      end
    else
      case Input.dir4
      when 2
        move_down
      when 4
        move_left
      when 6
        move_right
      when 8
        move_up
      end
    end
    #==========EDIT===========#
    end
    last_real_x = @real_x
    last_real_y = @real_y
    super
    if @real_y > last_real_y and @real_y - $game_map.display_y > CENTER_Y
      $game_map.scroll_down(@real_y - last_real_y)
    end
    if @real_x < last_real_x and @real_x - $game_map.display_x < CENTER_X
      $game_map.scroll_left(last_real_x - @real_x)
    end
    if @real_x > last_real_x and @real_x - $game_map.display_x > CENTER_X
      $game_map.scroll_right(@real_x - last_real_x)
    end
    if @real_y < last_real_y and @real_y - $game_map.display_y < CENTER_Y
      $game_map.scroll_up(last_real_y - @real_y)
    end
    unless moving?
      if last_moving
        result = check_event_trigger_here([1,2])
        if result == false
          unless $DEBUG and Input.press?(Input::CTRL)
            if @encounter_count > 0
              @encounter_count -= 1
            end
          end
        end
      end
    #==========EDIT===========#
    if $MSS.active == false or $MSS.waffe_aktuell == nil or $MSS.option_events_aktivieren
      if Input.trigger?(Input::C)
        check_event_trigger_here([0])
        check_event_trigger_there([0,1,2])
        end
      end
    #==========EDIT===========#
    end
  end
end

class Game_System
  attr_accessor :mss_save
end

class Game_Character
  attr_accessor :direction_fix
end

class Rect
  def each
    for xx in x..x + width
      for yy in y..y + height
        yield xx, yy
      end
    end
  end
 
  def inside?(ox,oy=0)
  ox, oy = ox.x, ox.y unless ox.is_a?(Integer)
  return (ox.between?(x, x + width)) && (oy.between?(y, y + height))
  end
end

class Game_SelfSwitches
  def delete(key)
    @data.delete(key)
  end
end

class Game_Battler
  alias :mss_hpchange_original :hp= if $MSS.nil?
  def hp=(hp)
    mss_hpchange_original(hp)
    return unless self.is_a?(Game_Actor)
    $MSS.hud.refresh
    $game_temp.gameover = true if @hp == 0
  end
end

class Scene_Save < Scene_File
  alias :mss_write_save_data_original :write_save_data if $MSS.nil?
  def write_save_data(file)
    $MSS.make_saveable
    $game_system.mss_save = $MSS
    mss_write_save_data_original(file)
    $MSS.make_playable
  end
end


class Scene_Load < Scene_File
  alias :mss_read_save_data_original :read_save_data if $MSS.nil?
  def read_save_data(file)
    mss_read_save_data_original(file)
    $MSS = $game_system.mss_save
    $MSS.make_playable
  end
end

class Scene_Title
  alias :mss_title_ini_original :initialize if $MSS.nil?
  def initialize
  $MSS = MSS.new
  mss_title_ini_original
 end
end

---

MSS: Spezial

Code:

---

# Hier kann man die Methoden reinschreiben, die bei einem beschossenem
# Spezialevent aufgerufen werden sollen. Dies dient ausschließlich der Übersicht.
# Die hier vorgegebenen Codes sind nur Beispiele und können verändert oder gelöscht
# werden, dürfen aber natürlich auch einfach benutzt werden :D

class MSS 
  def licht_ausschießen
    change_local_switch(@id)
    Audio.se_play('Audio/SE/glassbreak', 85, 100)
    c = $game_screen.tone
    $game_screen.start_tone_change(Tone.new(c.red-10,c.green-10,c.blue-10,c.gray),0)
  end
 
  def hitsound(sound,kill=nil)
    if dead?(@id)
      $game_system.se_play(RPG::AudioFile.new(kill,100,100)) unless kill.nil?
    else
      $game_system.se_play(RPG::AudioFile.new(sound,100,100))
    end
  end
 
  def explosives_fass
    change_local_switch(@id)
    $game_map.events[@id].animation_id = 29
    explosion(@id,2)
  end
 
  def explosion(id,rad,damage=9)
    @killed = 0
    ev = $game_map.events[id]
    rect = Rect.new(ev.x - rad, ev.y - rad, rad * 2 + 1,rad * 2) # Explosionsradius - Rechteck
    $game_map.id_rect(rect).each do |e|
      next if e == id
    case $game_map.map.events[e].name.downcase
      when 'gegner'
        make_damage(e,damage,blut_animation(e,direction($game_map.map.events[e].x,$game_map.map.events[e].y,ev.x,ev.y))) # id, schaden, animation
      when 'spezial'

      end
    end
    quake_sound
  end
 
  def create_rect(rad)
    return
  end
 
  def schwere_waffe(status=true)
    $game_player.move_speed = status ? $game_player.move_speed - 1 : $game_player.move_speed + 1
  end
 
  def dual_feuerwechsel
    f = @waffen_atr[@waffe_aktuell['Name']]['Mündungsfeuer']
    f = f[0] == 40 ? [44,45,46,47] : [40,41,42,43]
    @waffen_atr[@waffe_aktuell['Name']]['Mündungsfeuer'] = f
  end
 
  def granate_wefen(wurfweite=8,d=$game_player.direction)
    if $MSS.items['Granate'] < 1
    $game_system.se_play($data_system.buzzer_se)
    @wait = 10
    return
    end
    $MSS.items['Granate'] -= 1
    $game_system.se_play(RPG::AudioFile.new('016-Jump02',70,100))
    id = $game_map.add_event(134,1,$game_player.x,$game_player.y)
    $game_map.need_refresh = true
    $scene.spriteset.refresh
    x,y = granate_entfernung(wurfweite,d)
    $game_map.events[id].jump(x,y)
    wait_balken(40)
    @hud.refresh
  end
 
  def granate_entfernung(wurfweite,d)
    vari = [2,8].include?(d) ? 1 : 0
    counter = [2,6].include?(d) ? 1 : -1
    x,y = $game_player.x, $game_player.y
    while $game_map.passable?(x,y,0)
      if vari == 0 then x += counter else y += counter end
      wurfweite -= 1
      break if wurfweite == 0
    end
    x = vari == 0 ? x - ($game_player.x + counter) : 0
    y = vari == 1 ? y - ($game_player.y + counter) : 0
    return x, y
  end
 
  def use_medikit
    if $MSS.items['Medikit'] < 1 or $game_actors[@actor].hp == $game_actors[@actor].maxhp
    $game_system.se_play($data_system.buzzer_se)
    @wait = 10
    return
    end
    $game_actors[@actor].hp += @heal_power
    $game_player.animation_id = 31
    $MSS.items['Medikit'] -= 1
    @hud.refresh
    wait_balken(20)
  end
 
  def mine_legen
    return if $game_map.id_coordinates_mine($game_player.x,$game_player.y) > 0
    if $MSS.items['Mine'] < 1
    $game_system.se_play($data_system.buzzer_se)
    @wait = 10
    return
    end
    $MSS.items['Mine'] -= 1
    $game_system.se_play(RPG::AudioFile.new('005-System05',70,100))
    id = $game_map.add_event(@event_database,6,$game_player.x,$game_player.y)
    $game_map.need_refresh = true
    $scene.spriteset.refresh
    wait_balken(20)
    @hud.refresh
  end
end

---

Und welcher Teil davon ist das Menü, wo du das eingefügt hast?

Danke fürs drüber schaun.
Ganz unten, letzte def:

Code:

---

class Scene_waffen
  def main
    @actor= $game_party.actors[0]
    $data_weapons[@actor.weapon_id]
    @data= []
    @icon_name = []
    @name= []
    @description=[]
   
  get_equip
      @status = Window_status_ausrüstung.new(@actor)
    #  @status.active=false
    @command_window = Window_Ring_Command.new(1,$game_player.screen_x-30, $game_player.screen_y-50, @icon_name, 60)
    @beschreibung_window = Window_beschreibung.new(@name,@description)
    @beschreibung_window.z = 400
    @spriteset = Spriteset_Map.new
    # Main loop
    Graphics.transition
    loop do
      # Update game screen
      Graphics.update
      # Update input information
      Input.update
      # Frame update
      update
      # Abort loop if screen is changed
      if $scene != self
        break
      end
    end
        Graphics.freeze
    # Dispose of command window
    @command_window.dispose
    @beschreibung_window.dispose
    @spriteset.dispose
    @status.dispose
 
  end
  def update
    @command_window.update
    @beschreibung_window.update
  if Input.trigger?(Input::B)
      # Play cancel SE
      $game_system.se_play($data_system.cancel_se)
      # Switch to map screen
      $scene = Scene_Map.new
      return
    end
ausrüsten(0)
if Input.repeat?(Input::        LEFT )
  @command_window.move_left
    $game_system.se_play($data_system.cursor_se)
unless @command_window.index == 0
    equip
    end
   
  end
  if @command_window.index == 0
    @status.set_new_parameters(nil, nil, nil)
    end
if Input.repeat?(Input::RIGHT)
 @command_window.move_right
    $game_system.se_play($data_system.cursor_se)
  unless @command_window.index == 0
    equip
    end
  end
  if Input.trigger? (Input::UP)
  $scene = Scene_ausrüstung_body.new
end
if Input.trigger? (Input::DOWN)
      $scene = Scene_Menu.new
  end
 #      case Input.dir4
#  when 4 then @command_window.move_left
 #  $game_system.se_play($data_system.cancel_se)
 # when 6 then @command_window.move_right
 #  $game_system.se_play($data_system.cancel_se)

#end
#@index = 0
#while @command_window.index != @index and @command_window.index !=0
 # @index= @command_window.index
end   
 def equip
  item1=@data[0]
    item2 = @data[@command_window.index]
      @actor.equip(0, @data[@command_window.index].id)
      # Get parameters for after equipment change
      new_atk = @actor.atk
      new_pdef = @actor.pdef
      new_mdef = @actor.mdef
      # Return equipment
      if @data[0] == "nix"
        @actor.equip(2,0)
      else
      @actor.equip(2,item1.id)
     
      end
      # Draw in left window
      @status.set_new_parameters(new_atk, new_pdef, new_mdef)
    #@item1=$data_weapons[@actor.weapon_id]
    #
      #@actor.equip(0, @data[@command_window.index].id)
   
#    end
     
    end
    def update_icons
      @data.clear
    @icon_name.clear   
    @name.clear
    @description.clear
    get_equip
    @command_window.update_icons(@icon_name)
    end
    def get_equip
      if $data_weapons[@actor.weapon_id] == nil
        @data.push("nix")
    @icon_name.push("nix")
    @name.push("")
    @description.push("")
    else
    @data.push($data_weapons[@actor.weapon_id])
    @icon_name.push($data_weapons[@actor.weapon_id].icon_name)
    @name.push($data_weapons[@actor.weapon_id].name)
    @description.push($data_weapons[@actor.weapon_id].description)
    end
    weapon_set = $data_classes[@actor.class_id].weapon_set
    for i in 1...$data_weapons.size
        if $game_party.weapon_number(i) > 0 and weapon_set.include?(i) and $data_weapons[i] != $data_weapons[@actor.weapon_id]
          @data.push($data_weapons[i])
          @icon_name.push($data_weapons[i].icon_name)
          @name.push($data_weapons[i].name)
          @description.push($data_weapons[i].description)   
        end
      end

     
 
    end
    def ausrüsten(type)
      if Input.trigger?(Input::C)
        $MSS.change_weapon(1)
        $game_system.se_play($data_system.equip_se)
        @actor.equip(type, @data[@command_window.index].id)
      update_icons
      @status.refresh
    end
    end
  end

---

Im Endeffekt möchte ich abhängig von der ausgerüsteten Waffe $MSS.change_weapon(ausgerüstete Waffe) aufrufen.
Ginge also auch über ein Common Event, nicht nur über dieses Menü.

1. Bitte bitte bitte hör auf, Methoden als "defs" zu bezeichnen, nur weil def das Keyword ist. Danke,

2. Hast du $MSS.change_weapon denn schon mal einzeln getestet? Sprich du packst es in ein Event auf der Map (Scriptbefehl) und laberst das an.
2a. Wieso hast du da überhaupt noch ein se_play in ausrüsten (Umlaute in Methodennamen, urgh.), change_weapon sollte doch eh schon einen Sound abspielen, wenn du es aufrufst (was gleichzeitig ein guter Check ist, ob es überhaupt aufgerufen wurde).

1. Wenn man nicht weiß, dass das Keyword für eine Methode "def" ist, wie soll man es dann richtig bezeichnen? ;)
Danke, danke, danke fürs Verständnis :P

2. Hätte man echt auch selbst drauf kommen können das zu probieren, aber jedenfalls klappt es als Script im Event aufgerufen wunderbar.
Danke vielmals für deine Hilfe!