Zufallskämpfe vermeiden

**makenshi** · 25.08.2008, 08:49

Dann solltest du in den Listen mit Überschriften und sinnvollen Abkürzungen arbeiten. Zusätzlich dazu kann eine Liste aller Abkürzungen inklusive ihrer Bedeutung helfen.

An sich ist der Sinn einer Abkürzung jedoch verfehlt wenn du irgendwann nicht mehr weisst wozu sie da ist.

**Cherry** · 25.08.2008, 10:38

Du kannst auch die maximale Länge der Bezeichnung hochpatchen:

1. Die RPG2000.EXE im Resource Hacker öffnen
2. Zu RCData\TFORMSELSWITCH\0 gehen
3. Vorhandenen Text löschen und durch folgenden ersetzen:

Code:

object FormSelSwitch: TFormSelSwitch
  Left = 70
  Top = 136
  BorderStyle = bsDialog
  Caption = 'Schalter wählen'
  ClientHeight = 361
  ClientWidth = 568
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -10
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object TabControl1: TTabControl
    Left = 8
    Top = 8
    Width = 552
    Height = 313
    TabOrder = 0
    TabStop = False
    object DeluxeLabel1: TDeluxeLabel
      Left = 12
      Top = 12
      Width = 121
      Height = 21
      Caption = 'Schalter'
    end
    object GroupList: TListBox
      Left = 12
      Top = 38
      Width = 121
      Height = 232
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -10
      Font.Name = 'Tahoma'
      Font.Style = []
      IntegralHeight = True
      ItemHeight = 12
      ParentFont = False
      TabOrder = 0
      OnClick = GroupListClick
    end
    object ButtonMax: TButton
      Left = 12
      Top = 276
      Width = 121
      Height = 25
      Caption = 'Datenmaximum festlegen'
      TabOrder = 1
      OnClick = ButtonMaxClick
    end
    object DataList: TSmartListBox
      Left = 140
      Top = 12
      Width = 400
      Height = 244
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -10
      Font.Name = 'Tahoma'
      Font.Style = []
      IntegralHeight = True
      ItemHeight = 12
      ParentFont = False
      PopupMenu = DataListPopupMenu
      TabOrder = 2
      OnClick = DataListClick
      OnDblClick = DataListDblClick
    end
    object GroupBox1: TFakeGroupBox
      Left = 140
      Top = 260
      Width = 400
      Height = 41
      Caption = 'Name'
      TabOrder = 3
      object Label1: TLabel
        Left = 8
        Top = 19
        Width = 30
        Height = 12
        Caption = '0000:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -10
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object OverEdit1: TOverEdit
        Left = 40
        Top = 15
        Width = 352
        Height = 20
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -10
        Font.Name = 'Tahoma'
        Font.Style = []
        MaxLength = 100
        ParentFont = False
        TabOrder = 0
        OnChange = OverEdit1Change
      end
    end
  end
  object ButtonOk: TButton
    Left = 56
    Top = 328
    Width = 89
    Height = 25
    Caption = '&Ok'
    Default = True
    ModalResult = 1
    TabOrder = 1
    OnClick = ButtonOkClick
  end
  object ButtonCancel: TButton
    Left = 152
    Top = 328
    Width = 89
    Height = 25
    Cancel = True
    Caption = 'Abbruch'
    ModalResult = 2
    TabOrder = 2
  end
  object ButtonApply: TButton
    Left = 248
    Top = 328
    Width = 89
    Height = 25
    Cancel = True
    Caption = '&Übernehmen'
    Enabled = False
    TabOrder = 3
    OnClick = ButtonApplyClick
  end
  object DataListPopupMenu: TPopupMenu
    Images = DataModule1.ImageListEx1
    OnPopup = DataListPopupMenuPopup
    Left = 160
    Top = 32
    object Menu_DataCopy: TMenuItem
      Caption = '&Kopieren'
      ImageIndex = 35
      ShortCut = 16451
      OnClick = Menu_DataCopyClick
    end
    object Menu_DataPaste: TMenuItem
      Caption = '&Einfügen'
      ImageIndex = 36
      ShortCut = 16470
      OnClick = Menu_DataPasteClick
    end
    object Menu_DataClear: TMenuItem
      Caption = '&Löschen'
      ImageIndex = 37
      ShortCut = 46
      OnClick = Menu_DataClearClick
    end
  end
  object ActionList1: TActionList
    Left = 8
    Top = 328
    object Action_CtrlF4: TAction
      Caption = 'Action_F4'
      ShortCut = 16499
      OnExecute = Action_F4Execute
    end
    object Action_CtrlF5: TAction
      Caption = 'Action_F5'
      ShortCut = 16500
      OnExecute = Action_F5Execute
    end
    object Action_F4: TAction
      Caption = 'Action_F4'
      ShortCut = 115
      OnExecute = Action_F4Execute
    end
    object Action_F5: TAction
      Caption = 'Action_F5'
      ShortCut = 116
      OnExecute = Action_F5Execute
    end
  end
end

4. Auf "Compile Script" klicken
5. Zu RCData\TFORMSELVARIABLE\0 gehen
6. Vorhandenen Text löschen und durch folgenden ersetzen:

Code:

object FormSelVariable: TFormSelVariable
  Left = 244
  Top = 107
  BorderStyle = bsDialog
  Caption = 'Variable wählen'
  ClientHeight = 361
  ClientWidth = 568
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -10
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object TabControl1: TTabControl
    Left = 8
    Top = 8
    Width = 552
    Height = 313
    TabOrder = 0
    TabStop = False
    object DeluxeLabel1: TDeluxeLabel
      Left = 12
      Top = 12
      Width = 121
      Height = 21
      Caption = 'Variable'
    end
    object GroupList: TListBox
      Left = 12
      Top = 38
      Width = 121
      Height = 232
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -10
      Font.Name = 'Tahoma'
      Font.Style = []
      IntegralHeight = True
      ItemHeight = 12
      ParentFont = False
      TabOrder = 0
      OnClick = GroupListClick
    end
    object ButtonMax: TButton
      Left = 12
      Top = 276
      Width = 121
      Height = 25
      Caption = 'Datenmaximum festlegen'
      TabOrder = 1
      OnClick = ButtonMaxClick
    end
    object DataList: TSmartListBox
      Left = 140
      Top = 12
      Width = 400
      Height = 244
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -10
      Font.Name = 'Tahoma'
      Font.Style = []
      IntegralHeight = True
      ItemHeight = 12
      ParentFont = False
      PopupMenu = DataListPopupMenu
      TabOrder = 2
      OnClick = DataListClick
      OnDblClick = DataListDblClick
    end
    object GroupBox1: TFakeGroupBox
      Left = 140
      Top = 260
      Width = 400
      Height = 41
      Caption = 'Name:'
      TabOrder = 3
      object Label1: TLabel
        Left = 8
        Top = 19
        Width = 20
        Height = 12
        Caption = '0000:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -10
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object OverEdit1: TOverEdit
        Left = 40
        Top = 15
        Width = 352
        Height = 20
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -10
        Font.Name = 'Tahoma'
        Font.Style = []
        MaxLength = 100
        ParentFont = False
        TabOrder = 0
        OnChange = OverEdit1Change
      end
    end
  end
  object ButtonOk: TButton
    Left = 56
    Top = 328
    Width = 89
    Height = 25
    Caption = '&Ok'
    Default = True
    ModalResult = 1
    TabOrder = 1
    OnClick = ButtonOkClick
  end
  object ButtonCancel: TButton
    Left = 152
    Top = 328
    Width = 89
    Height = 25
    Cancel = True
    Caption = 'Abbruch'
    ModalResult = 2
    TabOrder = 2
  end
  object ButtonApply: TButton
    Left = 248
    Top = 328
    Width = 89
    Height = 25
    Cancel = True
    Caption = '&Übernehmen'
    Enabled = False
    TabOrder = 3
    OnClick = ButtonApplyClick
  end
  object DataListPopupMenu: TPopupMenu
    Images = DataModule1.ImageListEx1
    Left = 160
    Top = 32
    object Menu_DataCopy: TMenuItem
      Caption = '&Kopieren'
      ImageIndex = 35
      ShortCut = 16451
      OnClick = Menu_DataCopyClick
    end
    object Menu_DataPaste: TMenuItem
      Caption = '&Einfügen'
      ImageIndex = 36
      ShortCut = 16470
      OnClick = Menu_DataPasteClick
    end
    object Menu_DataClear: TMenuItem
      Caption = '&Löschen'
      ImageIndex = 37
      ShortCut = 46
      OnClick = Menu_DataClearClick
    end
  end
  object ActionList1: TActionList
    Left = 8
    Top = 328
    object Action_CtrlF4: TAction
      Caption = 'Action_F4'
      ShortCut = 16499
      OnExecute = Action_F4Execute
    end
    object Action_CtrlF5: TAction
      Caption = 'Action_F5'
      ShortCut = 16500
      OnExecute = Action_F5Execute
    end
    object Action_F4: TAction
      Caption = 'Action_F4'
      ShortCut = 115
      OnExecute = Action_F4Execute
    end
    object Action_F5: TAction
      Caption = 'Action_F5'
      ShortCut = 116
      OnExecute = Action_F5Execute
    end
  end
end

7. Auf "Compile Script" klicken
8. Auf File->Save klicken
9. Schließen und fertig.

Dadurch wurde das Fenster, das Eingabefeld und die Liste um ca. 220 Pixel verbreitert und die max. Länge der Bezeichnung auf 100 hochgesetzt.

mfG Cherry

EDIT: @~Jack~: Gratz zu den 2222 Posts.

**V-King** · 25.08.2008, 11:27

Ich würde eher mit nem anderen Schritt 1 anfangen, der ungefähr so geht wie "Sicherheitskopie der RPG2000.exe anfertigen".

Wer weiß, wieviel mit dem Zeug schief gehen kann.
Einfach vorsichtshalber.

Thema: Zufallskämpfe vermeiden

Themen-Optionen

Anzeige

Hybrid-Darstellung

Berechtigungen