SRL Archive - Help

Help fix my error on this bot?

erm

2012-11-18 18:58:43

http://villavu.com/forum/showthread.php?t=83957 So I tried to run this script but I keep getting this error : Invalid number of parameters at line 19
how do I fix this? any help would be greatly appreciated!

Roflme

2012-11-18 20:40:35

procedure SendKeys(const s: string; keywait, keymodwait: integer);

You're missing a modifier. You have the string and the wait, but no modwait.

You'll need to add the third parameter for each sendkeys.

erm

2012-11-18 20:46:29

whre do I add the parameter and hwo do I find out what it is

erm

2012-11-18 21:00:21

I went and put in the numbers for that missing modifier and nwo im getting this error " Variable 'WORLDSWITCHERENABLED' never used at line 54"

riwu

2012-11-18 21:01:44

From: erm
I went and put in the numbers for that missing modifier and nwo im getting this error " Variable 'WORLDSWITCHERENABLED' never used at line 54"

That is not an error.

Ian

2012-11-18 21:35:06

From: erm
I went and put in the numbers for that missing modifier and nwo im getting this error " Variable 'WORLDSWITCHERENABLED' never used at line 54"

That's more of a suggestion, it doesn't affect the script.

erm

2012-11-18 21:48:52

its not letting it run though can someone quick edit it so it works?

Ian

2012-11-18 21:49:40

could you post what you have so far?

erm

2012-11-18 22:04:30

I used Romy's bot as a source

///////////////////////////////////////////////////
///////Auto Talker/////////BY ROMY/////////////////
///////////////////////////////////////////////////
/////if using in a script then go to line 1021/////
///////////////////////////////////////////////////
////Do not touch the rest of the script!!!!!!!!////
///////////////////////////////////////////////////

program Auto_Talker;

{$i srl/srl.simba}
//////////////////////////////////////////////////////////
///copy everything below, if using in a script, not above/
//////////////////////////////////////////////////////////
procedure hello;
Begin
If (inchat('ello')) Then
begin
sendkeys('heyy',10, 200);
KeyDown(13);
KeyUp(13);
end;
end;

procedure lvl_response;
Begin
If (inchat('Lvl')) Then
begin
If (inchat('g lvl')) Then
begin
end else
sendkeys('in what?',1, 200);
KeyDown(13);
KeyUp(13);
end;
end;

procedure lvl_response2;
Begin
If (inchat('Level')) Then
begin
If (inchat('evel is')) Then
begin
end else
begin
sendkeys('in what?',1, 200);
KeyDown(13);
KeyUp(13);
end;
end;
end;

procedure hi;
Begin
If (inchat('hi')) Then
begin
If (inchat('hing')) Then
begin
end else
begin
If (inchat('hiev')) Then
begin
end else
sendkeys('yo',1, 200);
KeyDown(13);
KeyUp(13);
end;
end;
end;

procedure Sup;
Begin
If (inchat('Sup')) Then
begin
sendkeys('yo',1, 200);
KeyDown(13);
KeyUp(13);
end;
end;

procedure botter;
Begin
If (inchat('otter')) Then
begin
sendkeys('lol, no',1, 200);
KeyDown(13);
KeyUp(13);
end;
end;

procedure bot;
Begin
If (inchat('Bot')) Then
begin
sendkeys('get a life',1, 200);
KeyDown(13);
KeyUp(13);
end;
end;

procedure hey;
Begin
If (inchat('ell')) Then
begin
If (inchat('ell')) Then
begin
end else
begin
sendkeys('yo',1, 200);
KeyDown(13);
KeyUp(13);
end;
end;
end;

procedure bye;
Begin
If (inchat('Bye')) Then
begin
If (inchat('ye m8')) Then
begin
end else
begin
sendkeys('bye m8',1, 200);
KeyDown(13);
KeyUp(13);
end;
end;
end;

procedure Cya;
Begin
If (inchat('Cya')) Then
begin
If (inchat('ya man')) Then
begin
end else
begin
sendkeys('cya man',1, 200);
KeyDown(13);
KeyUp(13);
end;
end;
end;

procedure bb;
Begin
If (inchat('Bb')) Then
begin
If (inchat('b dude')) Then
begin
end else
begin
sendkeys('bb dude',1, 200);
KeyDown(13);
KeyUp(13);
end;
end;
end;

procedure name;
Begin
If (inchat('name')) Then
begin
If (inchat('hady')) Then
begin
sendkeys('so',1, 200);
KeyDown(13);
KeyUp(13);
end else
begin
sendkeys('shady',1, 200);
KeyDown(13);
KeyUp(13);
end;
end;
end;

procedure talker;
var
a : integer;
begin
Repeat
hello;
wait(500)
wait(500)
hi;
wait(500)
Sup;
wait(500)
botter;
wait(500)
bot;
wait(500)
hey;
wait(500)
bye;
wait(500)
cya;
wait(500)
bb;
wait(500)
name;
until(a = 99)
end;

BEGIN
ActivateClient;
SetUpSRL;
talker;
hello;
Hi;
sup;
end.

EDIT: this is what I've done to the script the original is on this thread http://villavu.com/forum/showthread.php?t=83957

Roflme

2012-11-19 06:47:44

From: erm
I used Romy's bot as a source

///////////////////////////////////////////////////
///////Auto Talker/////////BY ROMY/////////////////
///////////////////////////////////////////////////
/////if using in a script then go to line 1021/////
///////////////////////////////////////////////////
////Do not touch the rest of the script!!!!!!!!////
///////////////////////////////////////////////////

program Auto_Talker;

{$i srl/srl.simba}
//////////////////////////////////////////////////////////
///copy everything below, if using in a script, not above/
//////////////////////////////////////////////////////////
procedure hello;
Begin
  If (inchat('ello')) Then
    begin
      sendkeys('heyy',10, 200);
      KeyDown(13);
      KeyUp(13);
    end;
end;

procedure lvl_response;
Begin
  If (inchat('Lvl')) Then
    begin
      If (inchat('g lvl')) Then
      begin
      end else
      sendkeys('in what?',1, 200);
      KeyDown(13);
      KeyUp(13);
    end;
end;

procedure lvl_response2;
Begin
  If (inchat('Level')) Then
    begin
      If (inchat('evel is')) Then
      begin
      end else
      begin
        sendkeys('in what?',1, 200);
        KeyDown(13);
        KeyUp(13);
      end;
   end;
end;



procedure hi;
Begin
  If (inchat('hi')) Then
    begin
      If (inchat('hing')) Then
      begin
      end else
      begin
      If (inchat('hiev')) Then
      begin
      end else
        sendkeys('yo',1, 200);
        KeyDown(13);
        KeyUp(13);
      end;
   end;
end;

procedure Sup;
Begin
  If (inchat('Sup')) Then
    begin
      sendkeys('yo',1, 200);
      KeyDown(13);
      KeyUp(13);
    end;
end;

procedure botter;
Begin
  If (inchat('otter')) Then
    begin
      sendkeys('lol, no',1, 200);
      KeyDown(13);
      KeyUp(13);
    end;
end;

procedure bot;
Begin
  If (inchat('Bot')) Then
    begin
      sendkeys('get a life',1, 200);
      KeyDown(13);
      KeyUp(13);
    end;
end;

procedure hey;
Begin
  If (inchat('ell')) Then
    begin
    If (inchat('ell')) Then
    begin
    end else
      begin
        sendkeys('yo',1, 200);
        KeyDown(13);
        KeyUp(13);
      end;
   end;
end;

procedure bye;
Begin
  If (inchat('Bye')) Then
    begin
    If (inchat('ye m8')) Then
      begin
      end else
      begin
        sendkeys('bye m8',1, 200);
        KeyDown(13);
        KeyUp(13);
      end;
   end;
end;

procedure Cya;
Begin
  If (inchat('Cya')) Then
    begin
    If (inchat('ya man')) Then
      begin
      end else
      begin
        sendkeys('cya man',1, 200);
        KeyDown(13);
        KeyUp(13);
      end;
   end;
end;

procedure bb;
Begin
  If (inchat('Bb')) Then
    begin
    If (inchat('b dude')) Then
      begin
      end else
      begin
        sendkeys('bb dude',1, 200);
        KeyDown(13);
        KeyUp(13);
      end;
   end;
end;

procedure name;
Begin
  If (inchat('name')) Then
    begin
    If (inchat('hady')) Then
      begin
        sendkeys('so',1, 200);
        KeyDown(13);
        KeyUp(13);
      end else
      begin
        sendkeys('shady',1, 200);
        KeyDown(13);
        KeyUp(13);
      end;
   end;
end;

procedure talker;
var
a : integer;
begin
Repeat
hello;
wait(500)
wait(500)
hi;
wait(500)
Sup;
wait(500)
botter;
wait(500)
bot;
wait(500)
hey;
wait(500)
bye;
wait(500)
cya;
wait(500)
bb;
wait(500)
name;
until(a = 99)
end;

BEGIN
ActivateClient;
SetUpSRL;
talker;
hello;
Hi;
sup;
end.

EDIT: this is what I've done to the script the original is on this thread http://villavu.com/forum/showthread.php?t=83957

Please use Simba tags like I just did above.

And I just was able to run that script. No compiling errors or anything.

Ixilisi

2012-11-19 07:09:22

Update SRL perhaps? Override you plugin's/includes updates see if that works. Make sure you have SRL