SRL Archive - Senior News and General

Regarding smelting scripts:

rogeruk's - http://www.villavu.com/forum/showthread.php?t=51486

mine - http://www.villavu.com/forum/showthread.php?t=34507

From: Narcle
Looks like a VERY similar setup as mine… Your welcome. :P

From: rogeruk
Just looked at this smelter and doesnt look anything like mine.

Now either I'm blind or he's just playing dumb.

Note I have used bitmaps in my previous versions via SRL bitmaps which I'm going back to for next release.

I've already said enough with my last reply, I don't want to encourage further "fighting" in a public section.

I quickly looked over it, his doesn't really bear any resemblance with yours..

Though, I probably missed something.
Mind pointing out exactly what parts it is that you think he's copied from you?

From: EvilChicken!
I quickly looked over it, his doesn't really bear any resemblance with yours..

Though, I probably missed something.
Mind pointing out exactly what parts it is that you think he's copied from you?

Well he moved things around. For example look at my "SetupPlayer" and his "WhatWeSmelting." The way I setup is the first I've seen of it until I saw his smelter.

His:

   'steel':
    Begin
      SmeltX := 242;
      SmeltY := 401;
      OreOne := DTMFromString('78DA636C6264607063624006E60A120C42401' +
        'A28C3F01F08188B802C2F543510591809A46B81AC10026ADA802C' +
        '6F026AFA30DD83AE060040CE0895');
      OreTwo := DTMFromString('78DA635CC7C8C090C6C4800C5455651884803' +
        '45086E13F1030CE03B2B250D540646124905E0E64E51350B309C8' +
        'CA23A0660F9095825F0D00D56D0A04');
      OreOneQuant := 9;
      OreTwoQuant := 18;
      BarEXP := 17.5;
      MultiOre := True;
      OrePrice := (GetIDPrice(440) + (GetIDPrice(453) * 2));
      BarPrice := GetIDPrice(2353);
      Profit := BarPrice - OrePrice;
      Writeln(IntToStr(Profit));
      Exit;
    End; 

Mine: (I think this is the correct one)

    'steel':
    begin
      WithDrawMain := 9;
      WithDrawSeco := 0;
      UseSeco := true;
      MainBitmap := 1;
      SecoBitmap := 4;
      BarBitmap := 12;
      SmeltX := 256;
      SmeltRemains := 12;
      BarCount := 9;
      XPBar := 17.5;
    end;

As I said in his thread the setup and the way he executes it in a similar manner is uncanny. Yes his TPAs are different with odd code but to the same effect for walking etc, though TPAs can only be done so many ways, he seemed to almost purposely change his differently… or I'm just aggravated and making shit up. I know some things are just coincidence but from his reply he has never seen my smelter, I just can't see a coincidence as high as this.

Of course I understand it more as I've probable spent a good 30+ hours on the code so I guess the similarity is more apparent to me.

It bears some similarities to my smelter as well… but i wouldn't say it's plagiarsm, i'd say he jsut learnt from them

~RM

From: Rasta Magician
he jsut learnt from them

THATS what I'm trying to get at, according to him he has never looked at mine.

Are you referring to using a case statement to set global variables for various items/levels?

From: Boreas
Are you referring to using a case statement to set global variables for various items/levels?

Pretty much. But then again, I use with..do statements in ine, and he could've just been inspired from there, cus I actually inspired myself on yours Narcle :p And I know he's looked through mine cus he actually uses one of my procedures and credits me for it. Anyway, I don't believe this s a huge deal?

~RM

mine:

    'bronze':
      with BarInfo do
      begin
        Name := 'bronze';
        bmp := srl_GetBitmap(bmp_Bar_Bronze);
        Color := 2902367;
        Tol := 3;
        Primary := LoadOreInfo('copper');
        Q1 := 14;
        Secondary := LoadOreInfo('tin');
        Q2 := 14;
      end;
    'copper':
      with Result do
      begin
        Name := 'copper';
        UpText := 'opper ore';
        bmp := srl_GetBitmap(bmp_Ore_Copper);
        Color := 3504078;
        Tol := 20;
      end;

narcle's:

'steel':
    begin
      WithDrawMain := 9;
      WithDrawSeco := 0;
      UseSeco := true;
      MainBitmap := 1;
      SecoBitmap := 4;
      BarBitmap := 12;
      SmeltX := 256;
      SmeltRemains := 12;
      BarCount := 9;
      XPBar := 17.5;
    end;

rogeruk's:

'steel':
    Begin
      SmeltX := 242;
      SmeltY := 401;
      OreOne := DTMFromString('78DA636C6264607063624006E60A120C42401' +
        'A28C3F01F08188B802C2F543510591809A46B81AC10026ADA802C' +
        '6F026AFA30DD83AE060040CE0895');
      OreTwo := DTMFromString('78DA635CC7C8C090C6C4800C5455651884803' +
        '45086E13F1030CE03B2B250D540646124905E0E64E51350B309C8' +
        'CA23A0660F9095825F0D00D56D0A04');
      OreOneQuant := 9;
      OreTwoQuant := 18;
      BarEXP := 17.5;
      MultiOre := True;
      OrePrice := (GetIDPrice(440) + (GetIDPrice(453) * 2));
      BarPrice := GetIDPrice(2353);
      Profit := BarPrice - OrePrice;
      Writeln(IntToStr(Profit));
      Exit;
    End;

~RM

Think I have it settled now, thanks guys. I'll let him know your observations, been discussing with him via PMs.