Zufallskämpfe vermeiden

**Pray** · 25.08.2008, 06:10

@e.hoff : Ich habt geplant

Fast 3 Wochen lang

Das ich den überblickt verliere kommt davon das ich in der Liste alles mit Abürzungen schreibe sonst passen die Namen nicht ins Feld rein ^^

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

**cilence** · 25.08.2008, 15:44

Zitat von Pray

@e.hoff : Ich habt geplant

Fast 3 Wochen lang

Das ich den überblickt verliere kommt davon das ich in der Liste alles mit Abürzungen schreibe sonst passen die Namen nicht ins Feld rein ^^

Letzlich egal, ein treffendes Wort reicht doch für einen Switch. Wobei ich sagen muss, dass ich selbst bei den Switches nicht durcheinander kommen kann. Es sind ja nur 12 belegte, dafür aber mehrere hundert Varis. Die Variablen sind natürlich alle schön ordentlich gelistet, ebenso wie die Events am Anfang des Codes von mir eine Kurzbeschreibung bekommen, damit ich auf den ersten Blick sehe was es bewirkt.

Btw. sind 3 Wochen Planung imo nicht viel. *hust*

**~Jack~** · 25.08.2008, 15:57

Nur 12 Switches? Ist dein Spiel so klein oder benutzt du fast nur Variablen? xD
Bei VC3 hab ich mittlerweile fast 3000 Switches und 1000 Variablen und fast keine davon sind geordnet

Zum Glück find ich mich trotzdem zurecht.

**Pray** · 25.08.2008, 16:13

@Cherry : Danke, ich werd es mal ausprobieren erstmal an einem testprojekt XD
@e.hoff : Hast du überhaupt ein Projekt am laufen? Ich hab noch eins von dir gesehen/gehört.

**Cherry** · 25.08.2008, 16:20

Zitat von Pray

@Cherry : Danke, ich werd es mal ausprobieren erstmal an einem testprojekt XD

Das bringt nichts, diese Änderung ist global, sie verändert den Maker, nicht das Spiel

**cilence** · 25.08.2008, 17:03

Zitat von ~Jack~

Nur 12 Switches? Ist dein Spiel so klein oder benutzt du fast nur Variablen? xD
Bei VC3 hab ich mittlerweile fast 3000 Switches und 1000 Variablen und fast keine davon sind geordnet

Zum Glück find ich mich trotzdem zurecht.

Nee, ich hab vor ein paar Wochen neu angefangen, Switches brauch ich neuerdings fast keine mehr. Vor allem deshalb, weil zur Zeit nur SKS Entwicklung ansteht. Deshalb auch die vielen Varis. Im alten Projekt waren es aber auch ne Menge Switches mehr.

Zitat von Pray

@e.hoff : Hast du überhaupt ein Projekt am laufen? Ich hab noch eins von dir gesehen/gehört.

Steht doch in meiner Sig. Aber vorgestellt wirds erst, wenn was Handfestes vorhanden ist. Eine Vorabvorstellung wäre im Moment total sinnlos, da ich noch mit 2 Jahren Bearbeitungszeit für die Demo rechne. Grafiken rippen und selber pixeln sowie die ganzen Skripte zusammen klicken dauert halt seine Zeit.

Aber wo ich grad nochmals lese: Noch nie gesehen sicher, aber noch nie gehört bzw. besser gelesen? Liest du eigentlich PNs, die man dir schreibt?

Thema: Zufallskämpfe vermeiden

Themen-Optionen

Anzeige

Hybrid-Darstellung

Berechtigungen