Error :(

[.BlinX.]

Anybody can help me that would be great. I have SRL i dont know whats wrong

this is my error message

Line 137: [Error] (16349:1): Duplicate identifier 'HeadColor' in script C:\DOCUME~1\Jay\LOCALS~1\Temp\SL Port Sarim Willow Whacker v0.97x.scar

 

[Town]

Use Scar 2.03 from www.freddy1990.com and SRL 3.6b from http://rapidshare.com/files/14478545/PowerSkills_and_SRL.rar for this script.

 

[.BlinX.]

ok dled the scar and that srl but i got this new error when i click 'start script'

[Runtime Error] : Out Of Range in line 472 in script C:\DOCUME~1\Jay\LOCALS~1\Temp\SL Port Sarim Willow Whacker v0.97.scar

 

[Town]

Hmmm, post it.

 

[.BlinX.]

[Runtime Error] : Out Of Range in line 472 in script C:\DOCUME~1\Jay\LOCALS~1\Temp\SL Port Sarim Willow Whacker v0.97.scar

 

[Town]

I meant the script.

 

[.BlinX.]

oh ok lol

heres the place were i got the script it used to work for me

http://www.srl-forums.com/forum/sl-port-sarim-t6373.html

 

[Town]

I can't download it atm, just post lines 450-550 or so and I should be able to figure it out.

 

[.BlinX.]

ok here you go

bReportBug.Parent := SLPSWWForm;
  bReportBug.Left := 30;
  bReportBug.Top := 90;
  bReportBug.Width := 83;
  bReportBug.Height := 25;
  bReportBug.Caption := 'Report Bug';
  bReportBug.TabOrder := 2;
  bReportBug.OnClick := @ButtonClick;
  bBestReport := TButton.Create(SLPSWWForm);
  bBestReport.Parent := SLPSWWForm;
  bBestReport.Left := 30;
  bBestReport.Top := 125;
  bBestReport.Width := 83;
  bBestReport.Height := 25;
  bBestReport.Caption := 'Best Report';
  bBestReport.TabOrder := 3;
  bBestReport.OnClick := @ButtonClick;
end;

procedure ShowFormModal;
begin
  SLPSWWForm.ShowModal;
end;

procedure Signature; forward;
procedure ShowNormalForm;
var
  v: TVariantArray;
begin
  Signature;
  SetArrayLength(V, 0);
  ThreadSafeCall('LoadSLPSWWForm', v);
  SetArrayLength(v, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

//------------------------------------------------------------------------\\
{              LoadChatArray - Loads Chat text in the memory.             ||
\\------------------------------------------------------------------------//}

procedure LoadChatArray;
begin
  SetArrayLength(arChatLines, 20);
    //b
  SetArrayLength(arChatLines[0].Question, 1);
  arChatLines[0].Question[0] := 'ban';
  arChatLines[0].Answer   := 2;
    //c
  SetArrayLength(arChatLines[1].Question, 1);
  arChatLines[1].Question[0] := 'cheat';
  arChatLines[1].Answer   := 2;
    //g
  SetArrayLength(arChatLines[2].Question, 1);
  arChatLines[2].Question[0] := 'gf';
  arChatLines[2].Answer   := 3;
  SetArrayLength(arChatLines[3].Question, 1);
  arChatLines[3].Question[0] := 'girl friend';
  arChatLines[3].Answer   := 3;
    //h
  SetArrayLength(arChatLines[4].Question, 1);
  arChatLines[4].Question[0] := 'hi';
  arChatLines[4].Answer   := 0;
  SetArrayLength(arChatLines[5].Question, 1);
  arChatLines[5].Question[0] := 'hey';
  arChatLines[5].Answer   := 0;
  SetArrayLength(arChatLines[6].Question, 1);
  arChatLines[6].Question[0] := 'hello';
  arChatLines[6].Answer   := 0;
  SetArrayLength(arChatLines[7].Question, 1);
  arChatLines[7].Question[0] := 'how are';
  arChatLines[7].Answer   := 1;
    //r
  SetArrayLength(arChatLines[8].Question, 1);
  arChatLines[8].Question[0] := 'report';
  arChatLines[8].Answer   := 2;
    //w
  SetArrayLength(arChatLines[9].Question, 3);
  arChatLines[9].Question[0] := 'wc';
  arChatLines[9].Question[1] := '+level';
  arChatLines[9].Question[2] := '+lvl';
  arChatLines[9].Answer   := 4;
  SetArrayLength(arChatLines[10].Question, 3);
  arChatLines[10].Question[0] := 'woodcut';
  arChatLines[10].Question[1] := '+level';
  arChatLines[10].Question[2] := '+lvl';
  arChatLines[10].Answer   := 4;
end;

//------------------------------------------------------------------------\\
{                 LoadAnswer - Loads answers in the memory.               ||
\\ 0: begin
         case Random(5) of
           0: Result := 'hi';
           1: Result := 'hey';
           2: Result := 'whats up?';
           3: Result := 'hello';------------------------------------------------------------------------//}

function LoadAnswer(AnswerType: Integer): string;
begin
  case AnswerType of

           4: Result := 'hey you';

 

[Town]

Oh, you may have done something wrong with the form, just try it again. If an error message comes up while you are in the form then you will get that error.

 

[dontpanic]

To fix the first error, just delete the declaration of HeadColor in the script, as it is already declared in srl. (so delete where it says var HeadColor:integer

 

[.BlinX.]

i deleted head color integer in the script but go ANOTHER one...

Line 1364: [Error] (20495:1): Unknown identifier 'HeadColor' in script C:\DOCUME~1\Jay\LOCALS~1\Temp\SL Port Sarim Willow Whacker v0.97.scar