All pastes #1488223 Raw Edit

Unbenannt

public text v1 · immutable
#1488223 ·published 2009-07-08 15:02 UTC
rendered paste body
if u dont know how to insert this code DONT QRY ME!


:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:                               kb                                             :
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::


classification:string;

if classification <> '' then Result + 'Classification: '+classification +#13#10;


:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:                               rulesunit                                      :
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

    TConditionTVClassification = class(TStringCondition)
    function SupplyValue(r: TPazo): string; override;
    class function Name: string; override;
    class function Description: string; override;
  end;


  conditions.Add(TConditionTVClassification);

class function TConditionTVScripted.Description: string;
begin
  Result:= 'Returns with the Classification field parsed from tvrage. Returns a string..';
end;



function TConditionTVClassification.SupplyValue(r: TPazo): string;
begin
  Result:= 'Cant Catch!';
  if r.rls is TTVRelease then
    Result:= TTVRelease(r.rls).Classification;
end;

class function TConditionTVClassification.Description: string;
begin
  Result:= 'Returns with the Classification field parsed from tvrage.';
end;

class function TConditionTVClassification.Name: string;
begin
  Result:= 'tvclassification';
end;



:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:                          tasktvragelookup                                    :
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::


u need to change the code a bit in:


   if AnsiSameText(ss, 'Classification') then begin
//MODDED BY ****** << dont add this. its only for the founder of slftp!
     tr.classification:=s;
//ENDMOD!
    tr.scripted:= AnsiSameText(s, 'Scripted');
    end;



~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Not work? i forgot anything? let me know u know my nick!


btw all credits go to the founder of SLFTP!