the auto responder doesnt work. gets this error
Code:
[Runtime Error] : Out Of Range in line 135 in script C:\Documents and Settings\Owner\Desktop\powercutt0rpl0xrevisedV1.4.scar
Line 135 in your aresponder procedure
Code:
Procedure ARespond;
Var
WCLvl, i : Integer;
Finds, Responds, Chats : TStringArray;
Begin
WCLvl := GetSkillLevel('woodcutting'); //Get WC level
Finds := ['wc lvl', 'lvl', 'wc', 'woodcutting level', 'level']; //What to search for in chat
SetLength(Responds, Length(Finds)); //Make length of searches & responds the same
For i := 0 To 7 Do
Chats[i] := GetChatBoxText(i, clBlue); //Get all chat box text
For i := 0 To High(Responds) Do
Begin
Responds[i] := IntToStr(WCLvl); //Set the responds to say current WC lvl
If Pos(Finds[i], Chats[i]) > 0 Then //If one of the searches is found in the chat box,
TypeSend(Responds[i]); //type a response
End;
End;
is this line.
Code:
Chats[i] := GetChatBoxText(i, clBlue); //Get all chat box text
i kno u said it might not work but i thought id let you know