Ruby Quellcode

=begin
Haupt- und Minispielverwaltung
von Hüpfende Kokosnuss und Leonheart
v0.9 5th of June 2008
 
  Features:
   - Endlos viele Minispiele, können nur aus Hauptgame gestartet werden
   - So lange Minispiel läuft, gehts im Hauptgame nicht weiter
   - Möglichkeit, aus einem Game den Schalter eines anderen Games umzustellen
 
  Zum Einbau:
  Es sind 2 Skripts. Einmal den Manage-Part und dann noch der Main-Part.
  Schritt-für-Schritt Anleitung:
 
  1  Die Hauptordner der Minispiele müssen im Hauptordner des Haupspiels liegen
     (also auf der selben Ebene, auf der die Game.exe des Hauptspiels liegt).
     Die Datei, um ein Minispiel zu starten, muss immer Game.exe heißen uns sich
     im Hauptordner des Minispiels befinden.
 
  2  Editiert im Manage-Part die Zeilen unter "@minispiel = []". (Zeile 86)
     Geht nach folgedem Muster vor: 
     @minispiel[Nummer des Minispiels] = "Ordnername des Minispiels"
     Ihr könnt endlos viele Minispiele einbauen.
 
  3  Kopiert den Manage-Part in euer Hauptspiel und jedes eurer Minispiele.
     Der Manage-Part ist für jedes der Games gleich.
 
  4  Kopiert den Main-Part und fügt ihn in euer Hauptspiel ein, löscht den
     alten Main-Part eures Hauptspieles. Tragt in Zeile 8 "spielnr = 0" ein. 
     Ohne die ". Das bedeutet, dass dieses Spiel das Hauptgame ist.
     Nun kopiert ihr den Main-Part des Hauptspiels in jedes eurer Minispiele,
     aber bei jedem eurer Minispiele müsst ihr noch in Zeile 8 die Spielnummer
     eintragen. Bei Minispiel 1 tragt ihr also in Zeile 8 des dortigen Main-Parts
     "spielnr = 1" ein.
 
  Verwendung:
 
  Um ein Minispiel zu starten, gebt einfach den Callscript-Befehl
 
  minispiel_aufrufen(Nummer des Minispiels)
 
  ein. Die Minispielnummern habt ihr ja vorher im Manage-Part des Skriptes fest-
  gelegt, und ihr habt natürlich im Main-Part jedes Minispiels nicht vergessen,
  die Nummer des Minispiels einzutragen.
 
  Ferner gibt es 3 Befehle, die dazu dienen, Schalter spieleübergreifend 
  umzustellen.
  Spieleübergreifend?
  Das bedeutet, dass ihr zum Beispiel aus eurem Hauptgame heraus den Schalter 3
  des Minispiels 1 an - oder ausstellen könnt.
  Jetzt zu den 3 Methoden, einen Schalter umzustellen:
  Schalter umstellen:
 
    fremder_schalter_ausstellen(schalter, ziel)
    oder
    fremder_schalter_anstellen(schalter, ziel)
 
  Statt "schalter" müsst ihr die Schalter-ID angeben, statt "ziel" gebt ihr die 
  ID des Spiels an... das Hauptspiel hat die ID 0, die anderen IDs
  habt ihr im Manage-Part festgelegt.
  Achtung! Ein Schalter, der so umgestellt wurde, steht jedesmal, wenn das Spiel 
  gestartet wird, auf der Position, die ihr angegeben habt. Setzt ihr einmal
  einen Schalter auf diese Art, bleibt er immer und in allen Spielständen so.
  Auch wenn ihr das Spiel neu startet.
  Solltet ihr einen Schalter im Spiel ändern, der vorher auf diese weise
  "festgesetzt" wurde, so wird das kurzfristig funktionieren, doch wenn ihr 
  das Spiel dann speichert und neu ladet, hat der Schalter wieder seinen alten
  Wert.
  Eine Festsetzung des Schalters kann nur durch den Befehl, den Schalter
  frei zu setzen, aufgehoben werden. Dieser Befehl ändert den Status des Schalters
  in bereits vorhandenen Spielständen nicht, aber es sorgt dafür, dass das Spiel,
  dem der Schalter gehört, wieder selbst über seinen Schalter bestimmen darf.
  Der Befehl hierzu ist:
 
    fremder_schalter_freisetzen(schalter, ziel)    
 
 
 
Ich hoffe, dieses Skript wird euch nützlich sein. Bitte um Creditseintrag.
Huepfende_Kokosnuss@gmx.de
=end
 
class Interpreter
 
  alias mg_initialize initialize
    def initialize(depth = 0, main = false)
      mg_initialize(depth, main)
      @minispiel = []
      # HIER JETZT DIE MINISPIELE REGISTRIEREN
      @minispiel[1] = "Minispiel1" #Minispiel mit der ID 1 hat den Ordnernamen "Minispiel1"
      @minispiel[2] = "Minispiel2" #Minispiel mit der ID 2 hat den Ordnernamen "Minispiel2"
    end
 
 
  def minispiel_aufrufen(id)
    $manage[id] = true
    save_data($manage, "manage.rxdata")
      system("start #{@minispiel[id]}/Game.exe")
    loop do
      p "Schließe erst das Minispiel!" 
      fremde_schalter_akzeptieren
      $manage = load_data("manage.rxdata")
      break if $manage[id] == false
    end
    $game_map.need_refresh = true
  return true
  end
 
  def fremder_schalter_anstellen(schalter, ziel)
    $manage2[schalter] = 1
    if ziel == 0
      save_data($manage2, "../schalter.rxdata")
    elsif ziel != nil
      save_data($manage2, "#{@minispiel[ziel]}/schalter.rxdata")
    end
    return true
  end
 
  def fremder_schalter_ausstellen(schalter, ziel)
    $manage2[schalter] = 2
    if ziel == 0
      save_data($manage2, "../schalter.rxdata")
    elsif ziel != nil
      save_data($manage2, "#{@minispiel[ziel]}/schalter.rxdata")
    end
    return true
  end
 
  def fremder_schalter_freisetzen(schalter, ziel)
    $manage2[schalter] = 0
    if ziel == 0
      save_data($manage2, "../schalter.rxdata")
    elsif ziel != nil
      save_data($manage2, "#{@minispiel[ziel]}/schalter.rxdata")
    end
    return true
  end
 
  def fremde_schalter_akzeptieren
    if FileTest.exist?("schalter.rxdata")
    $manage2 = load_data("schalter.rxdata")
    for i in 1..5000
      if $manage2[i] == 1
        $game_switches[i] = true
      elsif $manage2[i] == 2
        $game_switches[i] = false
      end
    end
    save_data($manage2,"schalter.rxdata")
    end
  return true
  end
 
end
 
class Manage
  def initialize
    @data = []        
  end
  def [](switch_id)
    if @data[switch_id] != nil
      return @data[switch_id]
    else
      return false
    end
  end
  def []=(switch_id, value)
    @data[switch_id] = value
  end
end
 
class Manage2
  def initialize
    @data = []        
  end
  def [](variable_id)
    if @data[variable_id] != nil
      return @data[variable_id]
    else
      return 0
    end
  end
  def []=(variable_id, value)
      @data[variable_id] = value
  end
end