Log in

View Full Version : Help fix my error on this bot?


erm
11-18-2012, 11:58 PM
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
11-19-2012, 01:40 AM
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
11-19-2012, 01:46 AM
whre do I add the parameter and hwo do I find out what it is
erm
11-19-2012, 02:00 AM
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
11-19-2012, 02:01 AM
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
11-19-2012, 02:35 AM
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
11-19-2012, 02:48 AM
its not letting it run though can someone quick edit it so it works?
Ian
11-19-2012, 02:49 AM
could you post what you have so far?
erm
11-19-2012, 03:04 AM
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
11-19-2012, 11:47 AM
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
11-19-2012, 12:09 PM
Update SRL perhaps? Override you plugin's/includes updates see if that works. Make sure you have SRL