Programmwunsch und -erstellungsthread #2

[Cherry]

Noch mehr Wünsche für Ultimate:
Mausrad support für den Mapeditor

...

Inwiefern? Scrollen nach unten/oben oder Zoom?

Eventuell eher als Erweiterung:
Mehr als 99 Levels mit funktionierender EXP-Kurve.

...

Das wird eher nicht gehen.

Wäre es möglich eine Patch zu machen die Events eine bestimmten Variablenraum als lokale Variablen verwenden können? Sprich: Jedes Event hat da seine eigene Variable?

...

Das spukt mir schon sehr lange im Kopf herum, als CGSS-Skript wird das sehr einfach umzusetzen sein (man braucht im Prinzip nur Game_SelfSwitches vom RMXP übernehmen und etwas ändern natürlich^^)

Man kann sehr wohl prüfen, ob Events existieren, mit "Store Event ID". Zum Glück kann man damit direkte Positionen abfragen und auch über Variablen. So kann man zum einen Abfragen, ob an einer bestimmten Position ein Event existiert (Event ID dieser Position ungleich 0), aber auch, ob das Event mit der ID X existiert (einfach eine Schleife schreiben, die jedes Feld überprüft, bis die Event ID = X oder eben nicht ist). Allerdings fällt mir doch gerade ein, dass die Sache einen Haken hat. Wenn man im Maker Events per "Erase Event" löscht, werden diese ja nicht wirklich gelöscht. Wenn man die Event ID der Position, auf der dieses Event stand, abfragt, ist die Event ID nicht gleich 0, sondern gleich der ID des Events, das da vorher stand. Ist zwar ziemlich hirnrissig, aber ist nunmal so. Das zieht mir dann wohl doch einen Strich durch die Rechnung für meine Idee.

EDIT:


Hmmm... Sowas wäre in der Tat super, super, super nützlich. Bei einem AKS z.B. Nicht immer X Variablen für die HP von X Gegnern reservieren und diese dann auf die Gegner auf einer Karte verteilen, sondern einfach die Variable des jeweiligen Events nutzen. Das würde in der Tat vieles sehr viel erleichtern und man könnte sich Pointer fast vollkommen sparen. Gerade für Neulinge wäre sowas toll, aber auch anderen würde es die Arbeit erleichtern.

...

Ja, da hast du aber zwei Probleme: Wenn du ein Event ansprichst, von dem du nicht weißt, wo es ist, müsstest du die ganze Map abgrasen (wobei du da wieder nicht weißt, wie groß sie eigentlich ist!), und dabei kann das Event sogar übersehen werden, wenn mehrere Events an der selben Stelle sind.

mfG Cherry

[R.D.]

Ich sagte doch, dazu nimmt man ein Event daher, das sich von mir aus auf jeder Map automatisch aktiviert und alle Events die angesprochen werden können speichert. Das ist übrhaupt kein großer Aufwand:

- SCRIPT -
<> Comment: CALL_INFO_ID's
<> Call Event: Map Event #20, Page #1
<> Change Variable: [34] += 1
<> Call Event: Map Event #21, Page #1
<> Change Variable: [34] += 1
<> Call Event: Map Event #22, Page #1
<> Change Variable: [34] += 1
<> Call Event: Map Event #23, Page #1
<> Change Variable: [34] += 1
<> Call Event: Map Event #24, Page #1
<> Change Variable: [34] += 1
<> Call Event: Map Event #49, Page #1
<> Change Variable: [34] += 1
<> Call Event: Map Event #32, Page #1
<> Change Variable: [34] += 1

...

Hier, das wäre für 6 Events, hab ich in 1 Minute gemacht o.o

[elvissteinjr]

Inwiefern? Scrollen nach unten/oben oder Zoom?

...

Jetzt wo du es sagts....beides? Scrollen normal, Zoom wenn STRG gedrückt wird? Müsste ja eigentlich möglich sein, wenn nicht dann eher Scrollen. Rauszoomen tu ich eher weniger.

...4x Zoom wäre für den Mapeditor auch ganz nett, sofern möglich.

[goldenroy]

Inwiefern? Scrollen nach unten/oben oder Zoom?
Das spukt mir schon sehr lange im Kopf herum, als CGSS-Skript wird das sehr einfach umzusetzen sein (man braucht im Prinzip nur Game_SelfSwitches vom RMXP übernehmen und etwas ändern natürlich^^
mfG Cherry

...

Wenn du das schaffst dann Oo
Das war immer die einzige Sache die ich am XP besser fand als am 2k(3)

[MagicMaker]

Mehr als 99 Levels mit funktionierender EXP-Kurve.

...

Das wird eher nicht gehen.

...

Braucht eh keine Sao.

...4x Zoom wäre für den Mapeditor auch ganz nett, sofern möglich.

...

Eigentlich würde ich ja meinen der Doppelzoom den RPG2000 als 1/1 tituliert,
würde zureichen. Das wären doch dann verdammt grosse Pixel und man hat
keine Übersicht mehr. :'D

Mir wäre es noch am liebsten wenn er externe Sprachmanipulierer im vollen
Umfang unterstützt, wie ich feststellen musste hat das ja nicht bei allen
Elementen funktioniert was ich so in die INI geschrieben habe.

[Cherry]

Da sind wir ja schon fast beim Thema, wo ich grade hinwill:

R.D. hat sich eben per ICQ beschwert, dass die Common-Event-Liste bei "Call Event" so klein ist und er ewig scrollen muss...

Hier kommt Abhilfe:

1. RPG2000.exe/RPG2003.exe im Resource Hacker öffnen
2. Zu RCDATA -> TFORMEVCMD12330 -> 0 gehen
3. Skript rechts durch das hier ersetzen:

Code:

inherited FormEvCmd12330: TFormEvCmd12330
  Top = 105
  Caption = 'Call Event'
  ClientHeight = 449
  ClientWidth = 337
  OldCreateOrder = True
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object TabControl1: TTabControl
    Left = 8
    Top = 8
    Width = 321
    Height = 401
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    TabStop = False
    object GroupBox1: TFakeGroupBox
      Left = 8
      Top = 8
      Width = 305
      Height = 385
      Caption = 'Call Event (as an interrupt)'
      TabOrder = 0
      object Label1: TLabel
        Left = 254
        Top = 288
        Width = 30
        Height = 12
        Caption = 'Page'
      end
      object Label2: TLabel
        Left = 206
        Top = 336
        Width = 68
        Height = 12
        Caption = 'Event Number'
      end
      object Label3: TLabel
        Left = 206
        Top = 360
        Width = 30
        Height = 12
        Caption = 'Page'
      end
      object RadioButton1: TRadioButton
        Left = 8
        Top = 16
        Width = 185
        Height = 17
        Caption = 'Common Events'
        TabOrder = 0
        OnClick = RadioButtonClick
      end
      object RadioButton2: TRadioButton
        Tag = 1
        Left = 8
        Top = 264
        Width = 185
        Height = 17
        Caption = 'Map Event (Direct designation)'
        TabOrder = 1
        OnClick = RadioButtonClick
      end
      object ComboBox1: TComboBox
        Left = 24
        Top = 36
        Width = 270
        Height = 220
        Style = csSimple
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Arial'
        Font.Style = []
        ItemHeight = 9
        ParentFont = False
        TabOrder = 2
        OnChange = ComboBox1Change
      end
      object ComboBox2: TComboBox
        Left = 24
        Top = 284
        Width = 153
        Height = 20
        Style = csDropDownList
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Serif'
        Font.Style = []
        ItemHeight = 12
        ParentFont = False
        TabOrder = 3
        OnChange = ComboBox2Change
        Items.Strings = (
          'this Event')
      end
      object DialEdit1: TDialEdit
        Left = 184
        Top = 284
        Width = 65
        Height = 20
        MaxValue = 1
        MinValue = 1
        TabOrder = 4
        Value = 1
        OnChange = DialEdit1Change
      end
      object RadioButton3: TRadioButton
        Tag = 2
        Left = 8
        Top = 312
        Width = 185
        Height = 17
        Caption = 'Map Event (Variable Designation)'
        TabOrder = 5
        OnClick = RadioButtonClick
      end
      object DashBox1: TDashBox
        Left = 24
        Top = 332
        Width = 177
        Height = 20
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 6
        TabStop = True
        OnClick = DashBoxClick
      end
      object DashBox2: TDashBox
        Tag = 1
        Left = 24
        Top = 356
        Width = 177
        Height = 20
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 7
        TabStop = True
        OnClick = DashBoxClick
      end
    end
  end
  object ButtonOk: TButton
    Left = 48
    Top = 416
    Width = 89
    Height = 25
    Caption = '&Ok'
    Default = True
    ModalResult = 1
    TabOrder = 1
    OnClick = ButtonOkClick
  end
  object ButtonCancel: TButton
    Left = 144
    Top = 416
    Width = 89
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
  end
  object ButtonHelp: TButton
    Left = 240
    Top = 416
    Width = 89
    Height = 25
    Cancel = True
    Caption = '&Help'
    TabOrder = 3
    OnClick = ButtonHelpClick
  end
end

4. "Compile Script" anklicken
5. File -> Save und beenden

Danach sieht das "Call Event"-Fenster so aus:



- 200 Pixel höher
- kleinere Schrift
- keine Dropdownbox mehr, sondern eine Liste
- man kann oben auch einfach den Beginn des Namens vom Event eintippen und er scrollt da hin
- breiter (aber nur aus Layoutgründen, die CE-Namen haben ja eine Längenbeschränkung)

mfG Cherry

[elvissteinjr]

Funktioniert bestens. Erleichtert und beschleunigt das Ganze enorm.
Mehr gibts nicht zu sagen, so wie man's vom Cherry erwartet: Top.

[MagicMaker]

Willst du die Sache mit der Liste auch im Ultimate unterbringen?

Find ich ziemlich brauchbar diese Variante.

[Cherry]

das kann man sogar jetzt schon, dank INI.

Musst nur die Combobox höher machen und ".Style = 0" setzen (oder 1? probiers^^)

Natürlich muss dann auch das Fenster größer werden und die anderen Elemente runterrücken.

[Cazic]

Hier kommt Abhilfe:

1. RPG2000.exe/RPG2003.exe im Resource Hacker öffnen
2. Zu RCDATA -> TFORMEVCMD12330 -> 0 gehen
3. Skript rechts durch das hier ersetzen:

Code:

inherited FormEvCmd12330: TFormEvCmd12330
  Top = 105
  Caption = 'Call Event'
  ClientHeight = 449
  ClientWidth = 337
  OldCreateOrder = True
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object TabControl1: TTabControl
    Left = 8
    Top = 8
    Width = 321
    Height = 401
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    TabStop = False
    object GroupBox1: TFakeGroupBox
      Left = 8
      Top = 8
      Width = 305
      Height = 385
      Caption = 'Call Event (as an interrupt)'
      TabOrder = 0
      object Label1: TLabel
        Left = 254
        Top = 288
        Width = 30
        Height = 12
        Caption = 'Page'
      end
      object Label2: TLabel
        Left = 206
        Top = 336
        Width = 68
        Height = 12
        Caption = 'Event Number'
      end
      object Label3: TLabel
        Left = 206
        Top = 360
        Width = 30
        Height = 12
        Caption = 'Page'
      end
      object RadioButton1: TRadioButton
        Left = 8
        Top = 16
        Width = 185
        Height = 17
        Caption = 'Common Events'
        TabOrder = 0
        OnClick = RadioButtonClick
      end
      object RadioButton2: TRadioButton
        Tag = 1
        Left = 8
        Top = 264
        Width = 185
        Height = 17
        Caption = 'Map Event (Direct designation)'
        TabOrder = 1
        OnClick = RadioButtonClick
      end
      object ComboBox1: TComboBox
        Left = 24
        Top = 36
        Width = 270
        Height = 220
        Style = csSimple
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Arial'
        Font.Style = []
        ItemHeight = 9
        ParentFont = False
        TabOrder = 2
        OnChange = ComboBox1Change
      end
      object ComboBox2: TComboBox
        Left = 24
        Top = 284
        Width = 153
        Height = 20
        Style = csDropDownList
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Serif'
        Font.Style = []
        ItemHeight = 12
        ParentFont = False
        TabOrder = 3
        OnChange = ComboBox2Change
        Items.Strings = (
          'this Event')
      end
      object DialEdit1: TDialEdit
        Left = 184
        Top = 284
        Width = 65
        Height = 20
        MaxValue = 1
        MinValue = 1
        TabOrder = 4
        Value = 1
        OnChange = DialEdit1Change
      end
      object RadioButton3: TRadioButton
        Tag = 2
        Left = 8
        Top = 312
        Width = 185
        Height = 17
        Caption = 'Map Event (Variable Designation)'
        TabOrder = 5
        OnClick = RadioButtonClick
      end
      object DashBox1: TDashBox
        Left = 24
        Top = 332
        Width = 177
        Height = 20
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 6
        TabStop = True
        OnClick = DashBoxClick
      end
      object DashBox2: TDashBox
        Tag = 1
        Left = 24
        Top = 356
        Width = 177
        Height = 20
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 7
        TabStop = True
        OnClick = DashBoxClick
      end
    end
  end
  object ButtonOk: TButton
    Left = 48
    Top = 416
    Width = 89
    Height = 25
    Caption = '&Ok'
    Default = True
    ModalResult = 1
    TabOrder = 1
    OnClick = ButtonOkClick
  end
  object ButtonCancel: TButton
    Left = 144
    Top = 416
    Width = 89
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
  end
  object ButtonHelp: TButton
    Left = 240
    Top = 416
    Width = 89
    Height = 25
    Cancel = True
    Caption = '&Help'
    TabOrder = 3
    OnClick = ButtonHelpClick
  end
end

4. "Compile Script" anklicken
5. File -> Save und beenden

...

Sehr cool, danke.