Programmwunsch und -erstellungsthread #2

[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.