Okay thanks man! ='D
Thanks, I had formal experience with pascal from a class but this has taught me how to utilize it for my purpose.
When do you have time to make the walking tutorial? :')
Hey, I am running into this error:
Exception in Script: Unable to find file 'srl/srl.simba'
With this line: {$i srl/srl.simba}
I don't seem to have the files that are used for srl.simba or something
What should I do?
Have you fully installed SRL and Simba? Follow this guide: http://villavu.com/forum/forumdisplay.php?f=351
Ultimate Guide to Making a Superb Guide | Guide to the New Forum Layout | Guide to Simba's Features!
| Ranks and Cups | Info & Requirements!| Guide to Reputation! | Guide to Posting GOOD Bug ReportsCheck out the Ultimate Guide Directory! It contains every guide ever posted on the forums.
added basic walking
What does this do? Is it a failsafe?
If (TimeFromMark(Counter) > 5000) Then
Hello, I am trying to get your program to click a large piece of grey ground just for a test but when I do this nothing happens at all
Code:Program ChopTree; {$i srl/srl.simba} Procedure ClickTree; var X,Y:Integer; begin if FindColorTolerance(X, Y, 5395034, 217, 128, 217, 128, 5) then begin mmouse(x, y,1,1); wait(1000); ClickMouse(X, Y, mouse_Left) // mmouse(x, y,1,1); // wait(1000); // ClickMouse(X, Y, mouse_Left) end; end; Begin MouseSpeed := 15; SetupSRL; end.
Just to clarify:The 217 & 128 are where I want the mouse to clickCode:X, Y, 5395034, 217, 128, 218, 127, 5
& the 218 & 127 are like the peramiters of the 'box' that I want the mouse to click in? Right?
Sorry for the noob questions.
Other than that.. What am I doing wrong?
Thanks for the help.
You didn't call your procedure ClickTree; in your mainloop.
Give this a whirl:
Simba Code:
Program ChopTree; {$i srl/srl.simba} Procedure ClickTree; var X,Y:Integer; begin if FindColorTolerance(X, Y, 5395034, 217, 128, 217, 128, 5) then begin mmouse(x, y,1,1); wait(1000); ClickMouse(X, Y, mouse_Left) end; end; begin SetupSRL; ClickTree; end.
Ultimate Guide to Making a Superb Guide | Guide to the New Forum Layout | Guide to Simba's Features!
| Ranks and Cups | Info & Requirements!| Guide to Reputation! | Guide to Posting GOOD Bug ReportsCheck out the Ultimate Guide Directory! It contains every guide ever posted on the forums.
Ah yes, Thanks. I did try calling the ClickTree process but it was in the wrong place.
I tried your code, it still did the same thing. But now knowing that it should work I tried something else. (This is what I get for having a old crappy computer D
I noticed that the game would freeze as the script was being compiled, so it was starting to run the script as the game was frozen, that was making that stuff up.
Anywho, I just added another wait(2000); above the mmouse and now it works! (With your help too!)
Thanks once again Chris!
When I use something like this:
Then it won't click it. It doesn't give errors or something. What am I doing wrong?If (P06_IsUpTextMultiCustom(['Harpoon','arpoon', 'rpoon'])) Then
begin
mouse(x,y,1,1,mouse_left);
end;
Last edited by Dormik; 02-12-2013 at 09:57 PM.
Program DeskThiever;
{$i srl/srl.simba}
Procedure ClickDesk;
var
X,Y: Integer;
begin
if FindColorTolerance(X, Y, 1356303, 363, 121, 363, 121, 5) then
begin
mmouse(x, y, 1,1);
wait(250);
ClickMouse(X, Y, mouse_Left)
end;
end;
begin
SetupSRL;
ClickDesk;
end.
__________________________________________________ ___________
It is successfully executing but not doing anything, could someone please tell me what is wrong?
I'm rather new to Simba and I'm wondering how I can check if the inventory is full or not when scripting for RSPS's? (do you have some sort of tip?)
Also, many of the functions are only usable when scripting for RS right? For example OpenBank etc.
Thanks in advance!
You can us count colors
Simba Code:Procedure InterfaceReady;
var
X, Y,Count: Integer;
begin
Count := CountColorTolerance(128, 6, 345, 496, 458, 15);
Writeln('Interface:' + IntToStr(Count));
End;
Begin
InterfaceReady;
End.
@ rjj95
I want to click a bank booth and I have this code
THe problem is the script does not click the bank booth, idk whyCode:Program SmithingRune2h; {$i srl/srl.simba} Procedure ClickBank; var X,Y:Integer; begin if FindColorTolerance(X, Y, 1065811, 256, 155, 256, 155, 5) then begin mmouse(x, y,1,1); wait(250); ClickMouse(X, Y, mouse_Left) end; end; Begin MouseSpeed := 15; SetupSRL; end.
Last edited by Kozs; 03-03-2013 at 04:15 AM.
There are currently 1 users browsing this thread. (0 members and 1 guests)