SRL Archive - First Scripts

need Some help


Sokil59

2013-02-25 21:17:33

Alright so I came from powerbot to Simba for the 07 servers I'm making a bot for it but I keep getting stuck on this error can someone help me out?
Code:

program Silkthiever;
{$I SRL\SRL.Simba}
{$I P07Include.Simba}
var x, y: integer;
procedure SilkTheiver;
begin
repeat
Here till [ if (FindColorTolerance(x, y, 5410684, 4, 4, 515, 337)) then ] here is where the yellow error area is.
MoveMouse(x, y, 2, 2);
wait(100)
if (P07_GetUpText = 'Steal-from Silk Stall')then
ClickMouse (x,y,);
Wait(2000)


until(P07_InvFull)


end;

Not I haven't done banking yet so this isn't the full script

Sjoe

2013-02-25 21:20:37

Could use
 [/SIMBA [COLOR="#FFFFFF"].[/COLOR]] tags please around your script

[SIMBA]
program Silkthiever;
{$I SRL\SRL.Simba}
{$I P07Include.Simba}

procedure SilkTheiver;
var
x, y: integer; //declare them locally

begin

repeat
if FindColorTolerance(x, y, 5410684, 4, 4, 515, 337, tol) then // u forgot the tolerance parameter( it's an integer)
begin //use begin end for multiple actions
MMouse(x, y, 2, 2); //use MMouse instead of move mouse
Wait(100)

if (P07_IsUptextMultiCustom(['Ste', 'eal', 'Sil', 'Tea']) then // I think that's the right function, just search it yourself
begin //use begin end for multiple actions
ClickMouse2(Mouse_left);
Wait(2000)
end;
end;
until(P07_InvFull)
end;


// this is the mainloop, call your functions/procedure here, so the script plays it.
begin
Setup07Include; // or whatever it is called
SilkTheiver;
end.


Smthing like that u want

Sokil59

2013-02-25 21:21:14

From: Sjoekeloe
Could use
 [/SIMBA [COLOR="#FFFFFF"]./COLOR]] tags please around your script
Sorry I'm kind of new but do you know where the problem is?
Added it btw

Sjoe

2013-02-25 21:28:06

From: Sokil59
Sorry I'm kind of new but do you know where the problem is?
Added it btw


Editted my post :)