Autoresponder..

[faster789]

I was wandering if anyone can tell me the function(s) for the autoresponder.. or can anyone provide me a link with a tut for how to make an autoresponder..

P.S. I said autoresponder not autotalker

[Naum]

Here use mine;

{-------------------------------}
{   BETA Auto Responder         }
{-------------------------------}

procedure NAutoRespond;
begin
  if InChat('lol') then
  begin
    case Random(36) of
      2: TypeSend('...s');
      5: TypeSend('Lilol');
      8: TypeSend('contento');
      13: TypeSend('Hehe');
      15: TypeSend('funyy');
      17: TypeSend(':)');
      19: TypeSend('wave:zzzzzz');
    end;
    Exit;
  end;
  if InChat(Players[CurrentPlayer].Name) then
  begin
    case Random(11) of
      2: TypeSend('!!!.');
      5: TypeSend('No me gusta ingles'); // <-- SPanish :p
      7: TypeSend('Estoy Trieste'); // some more spanish :D
      9: Typesend('chicos verqueros')
    end;
  end;
end;

Just have a look trough.

[Cazax]

Here is my function InChatMulti...

function InChatMulti(text: TStringArray): boolean;
var
  i : integer;
  s: string;
begin
  for i:=0 to high(text) do
  begin
    if (not (GetLastChatText(s))) then
      LastChatter(s);
      Result := (Pos(Text[i], s) > 0);
  end;
end;

How to use it:

If InChatMulti(['Wc lvl', 'Woodcutting lvl']) then

and then you just respond...

[faster789]

Here use mine;

{-------------------------------}
{   BETA Auto Responder         }
{-------------------------------}

procedure NAutoRespond;
begin
  if InChat('lol') then
  begin
    case Random(36) of
      2: TypeSend('...s');
      5: TypeSend('Lilol');
      8: TypeSend('contento');
      13: TypeSend('Hehe');
      15: TypeSend('funyy');
      17: TypeSend(':)');
      19: TypeSend('wave:zzzzzz');
    end;
    Exit;
  end;
  if InChat(Players[CurrentPlayer].Name) then
  begin
    case Random(11) of
      2: TypeSend('!!!.');
      5: TypeSend('No me gusta ingles'); // <-- SPanish :p
      7: TypeSend('Estoy Trieste'); // some more spanish :D
      9: Typesend('chicos verqueros')
    end;
  end;
end;

Just have a look trough.

thanks a lot, I'll use this as a guide

[Naum]

No problem

[faster789]

Here is my function InChatMulti...

function InChatMulti(text: TStringArray): boolean;
var
  i : integer;
  s: string;
begin
  for i:=0 to high(text) do
  begin
    if (not (GetLastChatText(s))) then
      LastChatter(s);
      Result := (Pos(Text[i], s) > 0);
  end;
end;

How to use it:

If InChatMulti(['Wc lvl', 'Woodcutting lvl']) then

and then you just respond...

Ok thanks but now how do i make the script find the wcing level and wriite it in the ruenscape chat box?

[Cazax]

Ok thanks but now how do i make the script find the wcing level and wriite it in the ruenscape chat box?

Procedure Respond;
var
  lvl : Integer;
begin
  if InChatMulti([blablalba]) then
  begin
    lvl  := GetSkillInfo('Woodcutting', False);
    case random(5) of
      0 : TypeSend(Inttostr(lvl));
blabla

[faster789]

Procedure Respond;
var
  lvl : Integer;
begin
  if InChatMulti([blablalba]) then
  begin
    lvl  := GetSkillInfo('Woodcutting', False);
    case random(5) of
      0 : TypeSend(Inttostr(lvl));
blabla

thanks a lot..rep++

[faster789]

hmmm i have a somewat autoresponder but i keep getting an error..

this is the autoresponder part:

procedure Autoreply;
var lvl : integer;
begin
  if InChatMulti(['Mining lvl', 'Minin lvl', 'Mine lvl', 'Mining level', 'Minin level', 'Mine level']) then
  begin
  lvl  := GetSkillInfo('Mining', False);
  case random (6) of
    0: TypeSend inttostr(lvl))+' you';
    1: TypeSend inttostr(lvl));
    2: TypeSend 'almost '+inttostr(lvl+1));
    3: TypeSend'im almost'+inttostr(lvl+1));
    4: TypeSend 'kinda high..lvl '+inttostr(lvl));
    5: TypeSend 'im lvl '+inttostr(lvl));
  end;

and this is the error:

Line 190: [Error] (12918:13): Invalid number of parameters in script

anyone know wats the problem?

[Cazax]

hmmm i have a somewat autoresponder but i keep getting an error..

this is the autoresponder part:

procedure Autoreply;
var lvl : integer;
begin
  if InChatMulti(['Mining lvl', 'Minin lvl', 'Mine lvl', 'Mining level', 'Minin level', 'Mine level']) then
  begin
  lvl  := GetSkillInfo('Mining', False);
  case random (6) of
    0: TypeSend inttostr(lvl))+' you';
    1: TypeSend inttostr(lvl));
    2: TypeSend 'almost '+inttostr(lvl+1));
    3: TypeSend'im almost'+inttostr(lvl+1));
    4: TypeSend 'kinda high..lvl '+inttostr(lvl));
    5: TypeSend 'im lvl '+inttostr(lvl));
  end;

and this is the error:

Line 190: [Error] (12918:13): Invalid number of parameters in script

anyone know wats the problem?

You forgot to open a ( after 'TypeSend ...'.

[Lee Lok Hin]

Heres the fixed one

procedure Autoreply;
var lvl : integer;
begin
  if InChatMulti(['Mining lvl', 'Minin lvl', 'Mine lvl', 'Mining level', 'Minin level', 'Mine level']) then
  begin
  lvl  := GetSkillInfo('Mining', False);
  case random (6) of
    0: TypeSend( inttostr(lvl))+' you';
    1: TypeSend( inttostr(lvl));
    2: TypeSend('almost '+inttostr(lvl+1));
    3: TypeSend('im almost'+inttostr(lvl+1));
    4: TypeSend ('kinda high..lvl '+inttostr(lvl));
    5: TypeSend( 'im lvl '+inttostr(lvl));
  end;

You also need to include srl using {.include srl/srl.scar}
And secondly, i think inchatmulti is gone, so you just need to use InChat, then loop through those.

By the way, just a simple 'ining' Would suffice for Mining, mining level, and all that. Same goes for Mine. I probably woudl just do a

Inchat('evel')

[Richard]

No offence leelokin, but thats wrongs... on the first typesend the ) is before the last text

Otherwise you'll still get an error.

[faster789]

yep guys I figuredd...and also this is my autoresponder/talker in my script and it is put in my mining procedure like this but what it does is it keeps looking for the mining level and not clicking the rocks!

This is the autoresponder/talker...

function InChatMulti(text: TStringArray): boolean;
var
  i : integer;
  s: string;
begin
  for i:=0 to high(text) do
  begin
    if (not (GetLastChatText(s))) then
      LastChatter(s);
      Result := (Pos(Text[i], s) > 0);
  end;
end;

procedure AutoReply;
var lvl, lvll : integer;
begin
  if InChatMulti(['Mining lvl', 'Minin lvl', 'Mine lvl', 'Mining level', 'Minin level', 'Mine level']) then
  begin
    lvl  := GetSkillInfo('Mining', False);
    case random (6) of
      0: TypeSend (inttostr(lvl)+' you');
      1: TypeSend (inttostr(lvl));
      2: TypeSend ('almost '+inttostr(lvl+1));
      3: TypeSend ('im almost'+inttostr(lvl+1));
      4: TypeSend ('kinda high..lvl '+inttostr(lvl));
      5: TypeSend ('im lvl '+inttostr(lvl));
    end;
  end;
  begin
    if InChatMulti(['cya', 'bye', 'bye guys', 'later', 'im out', 'see ya', 'peace out']) then
    case random (6) of
      0: TypeSend ('c ya');
      1: TypeSend ('peace');
      2: TypeSend ('see ya');
      3: TypeSend ('peace out');
      4: TypeSend ('laterr');
      5: TypeSend ('byee');
    end;
  end;
  begin
    if InChatMulti(['hey', 'hi', 'helo', 'sup', 'hello', 'hey', 'wasup']) then
    case random (6) of
      0: TypeSend ('heyy');
      1: TypeSend ('sup');
      2: TypeSend ('hi');
      3: TypeSend ('heloo');
      4: TypeSend ('sup, this geting so boring..');
      5: TypeSend ('hey, im soo bored');
    end;
  end;
  begin
    if InChatMulti([Players[CurrentPlayer].Name]) then
    case random (9) of
      0: TypeSend ('yaa?? srry im busy..');
      1: TypeSend ('wat..cant talk too busy :)');
      2: TypeSend ('wat? so bord here..dont feel like tlking');
      3: TypeSend ('ye? too bord to talk sory');
      4: TypeSend ('sup? this geting so boring..');
      5: TypeSend ('ye? wat u want? sory so bordd..');
      6: TypeSend ('wat up..');
      7: TypeSend ('yep??');
      8: TypeSend ('.....what?');
    end;
  end;
  begin
    lvll := GetSkillInfo('Smithing', False);
    if InChatMulti(['Smithing lvl?', 'Smith lvl?', 'Smith level', 'Smithing level?', 'Smithing levels?']) then
    case random (6) of
      0: TypeSend (inttostr(lvll)+' you');
      1: TypeSend (inttostr(lvll));
      2: TypeSend ('almost '+inttostr(lvll+1));
      3: TypeSend ('im almost'+inttostr(lvll+1));
      4: TypeSend ('kinda  low..lvl '+inttostr(lvll));
      5: TypeSend ('im lvl '+inttostr(lvll));
    end;
  end;
end;

procedure AutoTalker;
var lvl : integer;
begin
  lvl  := GetSkillInfo('Mining', False);
  case random (90) of
      0: TypeSend ('wow, this is sooo boring..');
      1: TypeSend ('mining lvls? minez '+inttostr(lvl));
      2: TypeSend ('almost '+inttostr(lvl+1)+ ' mining lvl :)');
      3: TypeSend ('im almost'+inttostr(lvl+1)+ ' mining yay me ..lol');
      4: TypeSend ('zzzzzz');
      5: TypeSend ('*snorezz*');
  end;
end;

This is how I put it in the MindaRock procedure..but wat this does is it keeps looking for the level and keeps doing autoresponder..plz help?

procedure MinedaRock;
var x, y : integer;
begin
  MakeCompass('N');
  SetAngle(True);
  
  repeat
    if Not(LoggedIn) then exit;
   AutoTalker;
   AutoReply; 
   if FindObjCustom(x, y, ['ock', 'Mine'], [2832993], 3) then
    Makesurepick;
    FindGas;
    Leveled;
    Myrandom;
    Mouse(x, y, 1, 1, True);
    Myrandom;
    Wait(WaitPerRock +random(500));
  until InvFull;
  if InvFull then
  begin
    writeln( 'Inventory Full walking to bank.' );
    ReportVars[0] := ReportVars[0] + 1;
  end;
end;

[Timer]

First of all, these go WAY to slow, if you want a decent one, PM me!

No Offence.. To The Others

[Metagen]

Stop Quoting Big Things!!! Gaah There Should Be A Rule Against It