Hey, I was doing some quick autoing with your fletcher. It worked very well.
Here is my proggy:
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 39 Minutes and 14 Seconds
Gained 68850 Exp
Fletched 918 yew Longbows(u)
Did 34 Loads
Performed Anti Ban 28 Times
Responded 11 Times
==========================================
16
[Runtime Error] : Out Of Range in line 577 in script C:\Documents and Settings\Dad\Desktop\UltimateFletcher[.7].scar
The only reason it stopped was because of that
This is the procedure it is located in:
SCAR Code:
procedure Responds;
Var
Chats, Responce : TStringArray;
I : Integer;
begin
if not (Players[CurrentPlayer].Booleans[1]) then EXIT;
Chats := ['respond', 'hi', 'auto'];
Responce := ['why, "Hello there", :p', 'hello loser :D', 'gah, shut up?'];
for I := 0 to 2 do
begin
if InChat(Chats[i]) then
begin
inc(Responded);
case Random(4) of
0: TypeSend('hi?');
1: TypeSend('OK...');
2: TypeSend('yes...?');
3: begin
TypeSend(Responce[rspnce]);
inc(rspnce);
end;
end;
wait(1000 + Random(500));
Exit;
end;
end;
end;
Line 577 is:
SCAR Code:
typeSend(Rsponce[rspnce]);
Any idea why this happened and how to fix it.
Hope this is of some help?