PicPointerPatch - Bild-ID durch Variable angeben

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

[Cherry]

Du kannst genausoviel Bilder anzeigen wie immer

[lokipoki]

Du kannst genausoviel Bilder anzeigen wie immer

...

D.h ich nehme z.B. pic 50010 und benutze die Variabel 10 in dem Fall. Sollte es so funktionieren?

[makenshi]

D.h ich nehme z.B. pic 50010 und benutze die Variabel 10 in dem Fall. Sollte es so funktionieren?

...

Ja. Du musst dann nur beachten das wenn du 50010 benutzt,
das dann sowohl die Variable 0010 als auch die Variable 0011
angesprochen werden. In 0010 muss dann die PictureID und in
0011 die Nummer stehen die an den Dateinamen angehängt wird.

[lokipoki]

Ja. Du musst dann nur beachten das wenn du 50010 benutzt,
das dann sowohl die Variable 0010 als auch die Variable 0011
angesprochen werden. In 0010 muss dann die PictureID und in
0011 die Nummer stehen die an den Dateinamen angehängt wird.

...

Kann man das dann auch auf die Transparenz usw. uebertragen?

[makenshi]

Das kann ich dir nicht sagen, hab bisher nicht auf die Transparenz gepointert.
Am einfachsten findest du es heraus, indem du es ausprobierst.

[Cherry]

Ja, da du dort aber keinen Dateinamen brauchst, verwendest du 10000+VarID, genauso wie wenn du nur die PicID pointern möchtest (und nicht die Dateinummer).

[Alan]

Hey,

echt geiler Patch. Leider gehöre ich zu den Leuten, die ihn schon vor ein paar Monaten gebraucht hätten und in der Zwischenzeit ein paar tausend Conditional Branches geschrieben haben xD

Habe den ersten Testlauf gemacht und bin sehr zufrieden - außer mit einer Sache. Ist zwar keine Katastrophe aber: Das Löschen von Pictures per "Erase Picture" fördert eine Fehlermeldung zutage wenn man einen PicPointer für die Pic-ID verwendet (bei mir 53022, also der Inhalt der Vari 3022).

Die Fehlermeldung:

Assertion failure (Dha\02rpg2000\2003\RPG_RT\LGD_Picture.pas, 526 line)


Zuerst dachte ich, dass die Fehlermeldung vielleicht kommt, weil man das Picture nicht initalisiert hat. Also hab ich vorher alle benutzten Pics einfach mit einer Transparenz von 100% anzeigen lassen. Leider änderte das nix an der Fehlermeldung. Man kann den Patch auch so SUPER gebrauchen, ich wollte es nur nicht unerwähnt lassen.


Greetz!


Alan

[makenshi]

Afaik müsstest du beim Erase Picture Befehl nicht 50000 + VariablenID benutzen, sondern 10000 + VariablenID. Dann dürfte auch diese Pointerung funktionieren.

Ansonsten schau dir mal den Inhalt der Variablen an auf die du da pointerst. Eventuell ist dort eine zu hohe BildID abgespeichert.