SRL Archive - OSR Help

program Auto_Talker;
{$DEFINE SMART}
{$i srl-6/srl.simba}

Const
Message1=('Text');

procedure SendMessage;
Begin
   Wait(10000+Random(250));    //1000=1000ms=1second; Adjust for you own need
   TypeSend(Message1,True)
End;

Begin
  SetupSRL;
  ActivateClient;
Repeat
SendMessage;
Until(False)
End.      

I tried this but doesnt work. It doesnt write my text? Why? + dont say TypeSendEx plz. Tried and it doesnt work :S

What happens when you press run?
Well when I run the script, its all good, load the client and stuff but it doesnt say anything … just stays there until log out for inactive :S

also tried that but doesnt say anything:

program AutoTyper;
{$define SMART}
{$i srl-6/srl.simba}

procedure autoType;
begin
  repeat
    wait(10000 + random(500));
    typeByte(VK_ENTER);
    wait(1000 + random(300));
    typeSend('TEXT GOES HERE',true);
  until(false)
end;

begin
  setupSRL;
  autoType;
end.                      

More info would be nice. For example, what happens when you press run?

Also considering that you said that you need it, what do you need it for? :)

Well when I run the script, its all good, load the client and stuff but it doesnt say anything … just stays there until log out for inactive :S

also tried that but doesnt say anything:

program AutoTyper;
{$define SMART}
{$i srl-6/srl.simba}

procedure autoType;
begin
  repeat
    wait(10000 + random(500));
    typeByte(VK_ENTER);
    wait(1000 + random(300));
    typeSend('TEXT GOES HERE',true);
  until(false)
end;

begin
  setupSRL;
  autoType;
end.                      

What debug does Simba give you?

Does this ever type the text in your chat box or nothing at all gets typed/sent?

From: BMWxi
What debug does Simba give you?

Compiled successfully in 1451 ms.
– setupSRL()
—- Setting up SRL…
—- initSmart():
—— Attempting to pair to a previously spawned client
—— smartPairToExistingClient():
——– Found no free clients to pair to
—— smartPairToExistingClient(): result = false
—— Attempting to spawn a new client..
—— smartCreateClient():
———- smartGetParameters(): Succesfully grabbed paramters
——– getJavaPath():
———- Attempting to search for your Java path
———- Found your java path @ C:\Program Files (x86)\Java\jre7\bin\java.exe
——– getJavaPath()
——– Using parameters [http://world18.runescape.com/, f2334178742722166756]
——– Using plugins "OpenGL32.dll"
——– Succesfully spawned a client, attempting to target
———- smartSetAsTarget(): Succesfully set SMART[6044] as Simba's target
—— smartCreateClient(): result = true
—— Succesfully initialized via spawning a new client
—- initSmart()
—- Waiting up to 5 minutes for RS to load…
—— __setInputBoxes(): Set username and password boxes
—- Client is ready.
—- Setup SRL in 21918ms.
– setupSRL(): True

wow nvm it works now 0.0 idk why but for some reason, its now working

Edit: NVM! Stopped working again -.-

You running this on OSR or EOC?

From: Rules of Joe
You running this on OSR or EOC?

In his code he has: {$i srl-6/srl.simba}
So it must be EOC.
@OP, are you sure the account isn't muted?

Sorry! New kids might put SRL-6 and be running it for old school or Private Server you will never know!

From: The Killer
In his code he has: {$i srl-6/srl.simba}
So it must be EOC.
@OP, are you sure the account isn't muted?

nope not muted and doesnt work

nobody can help?

Ever tried setting a string and calling the string with

SendKeys('TEXT HERE');
KeyDown(VK_Enter);
KeyUp(VK_Enter);

Granted this requires more work, but it will get your job done right :)

From: VillaVuFTW
Ever tried setting a string and calling the string with

SendKeys('TEXT HERE');
KeyDown(VK_Enter);
KeyUp(VK_Enter);

Granted this requires more work, but it will get your job done right :)

idk what u mean. :( like this?

program Auto_Talker;
{$DEFINE SMART}
{$i SRL-6/srl.simba}

procedure SendMessage;
Begin
SendKeys('TEXT HERE');
KeyDown(VK_Enter);
KeyUp(VK_Enter);
End;

Begin
  SetupSRL;
Repeat
SendMessage;
Until(False)
End.                         

it doesnt work

Try this:

program Auto_Talker;
{$DEFINE SMART}
{$i SRL-6/srl.simba}

procedure sendMessage();
begin
  sendKeys('Sending...', 100, 30);
  keyDown(VK_ENTER);
  keyUp(VK_ENTER);
end;


begin

 activateClient();
 setupSRL();

 wait(3000);
 sendMessage();

end.  

Also, make sure your SMART is enabled.

EDIT:
Pretty sure you're only real issue is not calling activateClient(); in the mainloop before the procedure.

From: abu_jwka
Try this:

program Auto_Talker;
{$DEFINE SMART}
{$i SRL-6/srl.simba}

procedure sendMessage();
begin
  sendKeys('Sending...', 100, 30);
  keyDown(VK_ENTER);
  keyUp(VK_ENTER);
end;


begin

 activateClient();
 setupSRL();

 wait(3000);
 sendMessage();

end.  

Also, make sure your SMART is enabled.

EDIT:
Pretty sure you're only real issue is not calling activateClient(); in the mainloop before the procedure.

its still doesnt do anything (and yes my smart is enabled)

Honestly I am new to this, but there is nothing nicer than to see others helping out others!
Loving the forums already :)

From: SimbaGod
its still doesnt do anything (and yes my smart is enabled)

Ok, just try your original procedure instead, but this time add activateClient(); in your mainloop before setupSRL as I'm sure that's where your problem lies.

If that still doesn't work maybe you'll have to create a function which clicks the chat box where you type to kind of 'get it ready' for typing, if you know what I mean..

From: abu_jwka
Ok, just try your original procedure instead, but this time add activateClient(); in your mainloop before setupSRL as I'm sure that's where your problem lies.

If that still doesn't work maybe you'll have to create a function which clicks the chat box where you type to kind of 'get it ready' for typing, if you know what I mean..

Already tried the activateclient thing + even if I would add this function, it wont solve the problem because if it would already be able to write and click enter to send, it would get it "ready for typing" after the first message sent. (if you know what i mean). SO what do i do? :S