PicPointerPatch - Bild-ID durch Variable angeben

[Cherry]

Ich glaube, ich sagte schon, dass das behoben wird. Die neue Version ist dann im Hyper Patcher 2 enthalten

[Orange4]

Also brauch ich vorher noch Mirokus Patcher.
Ok danke, dann schau ich mich danach um und versuchs nochmal

(*Tüte hinterm Rücken versteck* Die Kekse gibts erst wenns geklappt hat )

[Cherry]

...oder du nimmst meinen BetterAEP, da gibts all die Probleme nicht...

[Orange4]

... den ich auf der Hauptseite nicht finden kann. Hast du nen Link für mich?
Wäre natürlich gut wenn ich nicht Patches von x Personen drin hab und am Ende nicht mehr weiß, an wen ich mich wenden muss
Dann würde ich es mal mit deinem probieren.

[cilence]

Der Patch ist doch auf der Hauptseite: [RM200x] BetterAEP

*schauste hier*

€:

Das gibts nicht xD
Ich bin über Suchen gegangen und hab keinen Bindestrich gesetzt xD

Danke dir ^^

...

Bittesehr, ich helf doch immer gern.

[Orange4]

Das gibts nicht xD
Ich bin über Suchen gegangen und hab keinen Bindestrich gesetzt xD

Danke dir ^^

edit
Nanu das ist der von Miroku?
Egal ich probiers einfach mal ^^

[Cherry]

nein, nicht der von Miroku. Weiter unten, BetterAEP von Cherry.

Oder hier suchen: http://www.multimediaxis.de/showthread.php?t=105858 <<< immer einen Blick wert.

Direktlink hier: http://www.multimediaxis.de/showthread.php?t=107421

[Orange4]

Achso der heißt auch so.
Vielen Dank, ich werd mich am Wochenende wieder dransetzen

[lokipoki]

Doch hab ich gemacht. Alle auf 100000 gestellt...

[Cherry]

Ganz offensichtlich nicht die richtige. Kuck nochmal - die, die bei "MaxValue = " unter "Transparency" steht.

[lokipoki]

Ganz offensichtlich nicht die richtige. Kuck nochmal - die, die bei "MaxValue = " unter "Transparency" steht.

...

Ich habs nochmal ueberprueft. Alle drei Werte sind auf 100000!!! Wie du es beschrieben hast.

Kannst du mir vielleicht eine RPG.exe Kopie schicken?

[Cherry]

Hier einfach die Ressourcen:

Code:

inherited FormEvCmd11110: TFormEvCmd11110
  Caption = 'Show Picture'
  ClientHeight = 361
  ClientWidth = 353
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object TabControl1: TTabControl
    Left = 8
    Top = 8
    Width = 337
    Height = 313
    TabOrder = 0
    TabStop = False
    object GroupBox1: TFakeGroupBox
      Left = 8
      Top = 8
      Width = 89
      Height = 41
      Caption = 'Pic. Number'
      TabOrder = 0
      object DialEdit1: TDialEdit
        Left = 8
        Top = 15
        Width = 73
        Height = 20
        MaxValue = 100000
        MinValue = 1
        TabOrder = 0
        Value = 1
        OnChange = DialEdit1Change
      end
    end
    object GroupBox2: TFakeGroupBox
      Left = 104
      Top = 8
      Width = 225
      Height = 41
      Caption = 'Select Picture'
      TabOrder = 1
      object DashBox1: TDashBox
        Left = 8
        Top = 15
        Width = 209
        Height = 20
        ParentColor = False
        TabOrder = 0
        TabStop = True
        OnClick = DashBox1Click
      end
    end
    object GroupBox3: TFakeGroupBox
      Left = 8
      Top = 56
      Width = 321
      Height = 153
      Caption = 'Show Position (Centre Coord.)'
      TabOrder = 2
      object LabelA1X: TLabel
        Left = 104
        Top = 20
        Width = 13
        Height = 12
        Caption = 'X :'
      end
      object LabelA1Y: TLabel
        Left = 104
        Top = 44
        Width = 13
        Height = 12
        Caption = 'Y :'
      end
      object LabelA2X: TLabel
        Left = 104
        Top = 72
        Width = 13
        Height = 12
        Caption = 'X :'
      end
      object LabelA2Y: TLabel
        Left = 104
        Top = 96
        Width = 13
        Height = 12
        Caption = 'Y :'
      end
      object Bevel1: TBevel
        Left = 8
        Top = 112
        Width = 305
        Height = 9
        Shape = bsBottomLine
      end
      object RadioButtonA1: TRadioButton
        Left = 8
        Top = 18
        Width = 85
        Height = 17
        Caption = 'Position'
        TabOrder = 0
        OnClick = RadioButtonAClick
      end
      object RadioButtonA2: TRadioButton
        Tag = 1
        Left = 8
        Top = 70
        Width = 85
        Height = 17
        Caption = 'By Variable'
        TabOrder = 1
        OnClick = RadioButtonAClick
      end
      object DialEditA1X: TDialEdit
        Left = 128
        Top = 16
        Width = 73
        Height = 20
        MaxValue = 960
        MinValue = -640
        TabOrder = 2
        Value = 160
        OnChange = DialEditA1XChange
      end
      object DialEditA1Y: TDialEdit
        Left = 128
        Top = 40
        Width = 73
        Height = 20
        MaxValue = 720
        MinValue = -480
        TabOrder = 3
        Value = 120
        OnChange = DialEditA1YChange
      end
      object DashBoxA2X: TDashBox
        Left = 128
        Top = 68
        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 = 4
        TabStop = True
        OnClick = DashBoxA2XClick
      end
      object DashBoxA2Y: TDashBox
        Left = 128
        Top = 92
        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 = 5
        TabStop = True
        OnClick = DashBoxA2YClick
      end
      object CheckBox1: TCheckBox
        Left = 8
        Top = 128
        Width = 305
        Height = 17
        Caption = 'Move with Map'
        TabOrder = 6
        OnClick = CheckBox1Click
      end
    end
    object GroupBox6: TFakeGroupBox
      Left = 216
      Top = 216
      Width = 113
      Height = 41
      Caption = 'Transparent Colour'
      TabOrder = 3
      object RadioButtonB1: TRadioButton
        Left = 8
        Top = 17
        Width = 45
        Height = 17
        Caption = 'Stir'
        TabOrder = 0
        OnClick = RadioButtonBClick
      end
      object RadioButtonB2: TRadioButton
        Tag = 1
        Left = 60
        Top = 17
        Width = 45
        Height = 17
        Caption = 'None'
        TabOrder = 1
        OnClick = RadioButtonBClick
      end
    end
    object GroupBox7: TFakeGroupBox
      Left = 8
      Top = 264
      Width = 321
      Height = 41
      Caption = 'Additional Effect:'
      TabOrder = 4
      object DashBox2: TDashBox
        Left = 8
        Top = 15
        Width = 305
        Height = 20
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 0
        TabStop = True
        OnClick = DashBox2Click
      end
    end
    object GroupBox4: TFakeGroupBox
      Left = 8
      Top = 216
      Width = 97
      Height = 41
      Caption = 'Magnification'
      TabOrder = 5
      object Label1: TLabel
        Left = 77
        Top = 20
        Width = 12
        Height = 12
        Caption = '%'
      end
      object DialEdit2: TDialEdit
        Left = 8
        Top = 15
        Width = 65
        Height = 20
        Increment = 5
        MaxValue = 100000
        MinValue = 0
        TabOrder = 0
        Value = 100
        OnChange = DialEdit2Change
      end
    end
    object GroupBox5: TFakeGroupBox
      Left = 112
      Top = 216
      Width = 97
      Height = 41
      Caption = 'Transparency'
      TabOrder = 6
      object Label2: TLabel
        Left = 77
        Top = 20
        Width = 12
        Height = 12
        Caption = '%'
      end
      object DialEdit3: TDialEdit
        Left = 8
        Top = 15
        Width = 65
        Height = 20
        Increment = 5
        MaxValue = 100000
        MinValue = 0
        TabOrder = 0
        Value = 0
        OnChange = DialEdit3Change
      end
    end
  end
  object ButtonOk: TButton
    Left = 64
    Top = 328
    Width = 89
    Height = 25
    Caption = '&Ok'
    Default = True
    ModalResult = 1
    TabOrder = 1
    OnClick = ButtonOkClick
  end
  object ButtonCancel: TButton
    Left = 160
    Top = 328
    Width = 89
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
  end
  object ButtonHelp: TButton
    Left = 256
    Top = 328
    Width = 89
    Height = 25
    Cancel = True
    Caption = '&Help'
    TabOrder = 3
    OnClick = ButtonHelpClick
  end
end

Code:

inherited FormEvCmd11120: TFormEvCmd11120
  Caption = 'Move Picture'
  ClientHeight = 377
  ClientWidth = 353
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object TabControl1: TTabControl
    Left = 8
    Top = 8
    Width = 337
    Height = 329
    TabOrder = 0
    TabStop = False
    object GroupBox1: TFakeGroupBox
      Left = 8
      Top = 8
      Width = 89
      Height = 41
      Caption = 'Pic. Number'
      TabOrder = 0
      object DialEdit1: TDialEdit
        Left = 8
        Top = 15
        Width = 73
        Height = 20
        MaxValue = 100000
        MinValue = 1
        TabOrder = 0
        Value = 1
        OnChange = DialEdit1Change
      end
    end
    object GroupBox2: TFakeGroupBox
      Left = 104
      Top = 8
      Width = 225
      Height = 41
      TabOrder = 1
    end
    object GroupBox3: TFakeGroupBox
      Left = 8
      Top = 56
      Width = 321
      Height = 121
      Caption = 'Place Position (Centre Coord.)'
      TabOrder = 2
      object LabelA1X: TLabel
        Left = 104
        Top = 20
        Width = 13
        Height = 12
        Caption = 'X :'
      end
      object LabelA1Y: TLabel
        Left = 104
        Top = 44
        Width = 13
        Height = 12
        Caption = 'Y :'
      end
      object LabelA2X: TLabel
        Left = 104
        Top = 72
        Width = 13
        Height = 12
        Caption = 'X :'
      end
      object LabelA2Y: TLabel
        Left = 104
        Top = 96
        Width = 13
        Height = 12
        Caption = 'Y :'
      end
      object RadioButtonA1: TRadioButton
        Left = 8
        Top = 18
        Width = 85
        Height = 17
        Caption = 'Position'
        TabOrder = 0
        OnClick = RadioButtonAClick
      end
      object RadioButtonA2: TRadioButton
        Tag = 1
        Left = 8
        Top = 70
        Width = 85
        Height = 17
        Caption = 'By Variable'
        TabOrder = 1
        OnClick = RadioButtonAClick
      end
      object DialEditA1X: TDialEdit
        Left = 128
        Top = 16
        Width = 73
        Height = 20
        MaxValue = 960
        MinValue = -640
        TabOrder = 2
        Value = 160
        OnChange = DialEditA1XChange
      end
      object DialEditA1Y: TDialEdit
        Left = 128
        Top = 40
        Width = 73
        Height = 20
        MaxValue = 720
        MinValue = -480
        TabOrder = 3
        Value = 120
        OnChange = DialEditA1YChange
      end
      object DashBoxA2X: TDashBox
        Left = 128
        Top = 68
        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 = 4
        TabStop = True
        OnClick = DashBoxA2XClick
      end
      object DashBoxA2Y: TDashBox
        Left = 128
        Top = 92
        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 = 5
        TabStop = True
        OnClick = DashBoxA2YClick
      end
    end
    object GroupBox4: TFakeGroupBox
      Left = 8
      Top = 184
      Width = 97
      Height = 41
      Caption = 'Magnification'
      TabOrder = 3
      object Label6: TLabel
        Left = 77
        Top = 20
        Width = 12
        Height = 12
        Caption = '%'
      end
      object DialEdit2: TDialEdit
        Left = 8
        Top = 15
        Width = 65
        Height = 20
        Increment = 5
        MaxValue = 100000
        MinValue = 0
        TabOrder = 0
        Value = 100
        OnChange = DialEdit2Change
      end
    end
    object GroupBox5: TFakeGroupBox
      Left = 112
      Top = 184
      Width = 97
      Height = 41
      Caption = 'Transparency'
      TabOrder = 4
      object Label14: TLabel
        Left = 77
        Top = 20
        Width = 12
        Height = 12
        Caption = '%'
      end
      object DialEdit3: TDialEdit
        Left = 8
        Top = 15
        Width = 65
        Height = 20
        Increment = 5
        MaxValue = 100000
        MinValue = 0
        TabOrder = 0
        Value = 0
        OnChange = DialEdit3Change
      end
    end
    object GroupBox6: TFakeGroupBox
      Left = 216
      Top = 184
      Width = 113
      Height = 41
      TabOrder = 5
    end
    object GroupBox7: TFakeGroupBox
      Left = 8
      Top = 232
      Width = 321
      Height = 41
      Caption = 'Additional Effect:'
      TabOrder = 6
      object DashBox2: TDashBox
        Left = 8
        Top = 15
        Width = 305
        Height = 20
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 0
        TabStop = True
        OnClick = DashBox2Click
      end
    end
    object GroupBox8: TFakeGroupBox
      Left = 8
      Top = 280
      Width = 137
      Height = 41
      Caption = 'Movement Time'
      TabOrder = 7
      object Label1: TLabel
        Left = 85
        Top = 19
        Width = 42
        Height = 12
        Caption = 'x0.1 Sec'
      end
      object DialEdit4: TDialEdit
        Left = 8
        Top = 15
        Width = 73
        Height = 20
        MaxValue = 1000
        MinValue = 0
        TabOrder = 0
        Value = 10
        OnChange = DialEdit4Change
      end
    end
    object GroupBox9: TFakeGroupBox
      Left = 152
      Top = 280
      Width = 177
      Height = 41
      Caption = 'Options'
      TabOrder = 8
      object CheckBox1: TCheckBox
        Left = 8
        Top = 16
        Width = 161
        Height = 17
        Caption = 'Wait Until Done'
        TabOrder = 0
        OnClick = CheckBox1Click
      end
    end
  end
  object ButtonOk: TButton
    Left = 64
    Top = 344
    Width = 89
    Height = 25
    Caption = '&Ok'
    Default = True
    ModalResult = 1
    TabOrder = 1
    OnClick = ButtonOkClick
  end
  object ButtonCancel: TButton
    Left = 160
    Top = 344
    Width = 89
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
  end
  object ButtonHelp: TButton
    Left = 256
    Top = 344
    Width = 89
    Height = 25
    Cancel = True
    Caption = '&Help'
    TabOrder = 3
    OnClick = ButtonHelpClick
  end
end

Code:

inherited FormEvCmd11130: TFormEvCmd11130
  Caption = 'Erase Pic'
  ClientHeight = 105
  ClientWidth = 313
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object TabControl1: TTabControl
    Left = 8
    Top = 8
    Width = 297
    Height = 57
    TabOrder = 0
    TabStop = False
    object GroupBox1: TFakeGroupBox
      Left = 8
      Top = 8
      Width = 89
      Height = 41
      Caption = 'Pic. Number'
      TabOrder = 0
      object DialEdit1: TDialEdit
        Left = 8
        Top = 15
        Width = 73
        Height = 20
        MaxValue = 100000
        MinValue = 1
        TabOrder = 0
        Value = 1
        OnChange = DialEdit1Change
      end
    end
    object GroupBox2: TFakeGroupBox
      Left = 104
      Top = 8
      Width = 185
      Height = 41
      TabOrder = 1
    end
  end
  object ButtonOk: TButton
    Left = 24
    Top = 72
    Width = 89
    Height = 25
    Caption = '&Ok'
    Default = True
    ModalResult = 1
    TabOrder = 1
    OnClick = ButtonOkClick
  end
  object ButtonCancel: TButton
    Left = 120
    Top = 72
    Width = 89
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
  end
  object ButtonHelp: TButton
    Left = 216
    Top = 72
    Width = 89
    Height = 25
    Cancel = True
    Caption = '&Help'
    TabOrder = 3
    OnClick = ButtonHelpClick
  end
end

[lokipoki]

Habs hin bekommen. Sorry nochmal, wegen der Fragerei. Hab mir auch gleich ne Kopie angelegt.8)

[makenshi]

Ich habs nochmal ueberprueft. Alle drei Werte sind auf 100000!!! Wie du es beschrieben hast.

Kannst du mir vielleicht eine RPG.exe Kopie schicken?

...

Da du die EXE nicht eindeutig benennst: Schau auch das du auf jeden Fall die RPG2000.exe bzw. RPG2003.exe modifiziert. Nicht die RPG_RT.exe.
Ersteres ist der Editor. Letzteres ist nur die EXE eines Makerprojekts.

[cilence]

Vielleicht sollte man das mal in eine ips Datei packen. Wäre sicherlich hilfreich.

€:

Wäre es nicht, wegen den vielen verschiedenen Editorversionen und Deutsch- oder sonstwas-Patches, die es gibt. Da schrottet sonst jeder zweite dabei seinen Maker.

...

Ändert die IPS nicht nur die entsprechenden Speicheradressen in der .exe; btw. sind die an der Stelle so unterschiedlich?

xD, der Post ist ja schon wieder ewig her.

[Cherry]

Wäre es nicht, wegen den vielen verschiedenen Editorversionen und Deutsch- oder sonstwas-Patches, die es gibt. Da schrottet sonst jeder zweite dabei seinen Maker.

[Cherry]

Ändert die IPS nicht nur die entsprechenden Speicheradressen in der .exe; btw. sind die an der Stelle so unterschiedlich?

xD, der Post ist ja schon wieder ewig her.

...

Ja, nur sind die verschiedenen Texte in deutsch und englisch ja nicht gleich lang, wodurch sich natürlich alles verschiebt. Außerdem gibt es ja auch noch einige im Programmcode verschiedene Versionen.

[cilence]

Das leuchtet mir ein, danke für die Erläuterung.

[lokipoki]

Ich bins mal wieder.

Sagt mal, besteht die Moeglichkeit zwei Bilder gleichzeitig, mit dieser Methode, anzeigen zu lassen?

[makenshi]

Wäre durchaus möglich. Für genauere Infos bräuchte man wiederum von dir eben Informationen darüber inwiefern diese gleichzeitig angezeigt werden sollen.