Help please

[big mac]

i get this error: [Error] (27:32): Type mismatch at line 26
Compiling failed.

begin
MoveMouse(x-258+x1, y);
Wait(70);
LINE 26 ========> ClickMouse(x-258+x1, y, Left);
Wait(70);
end;

I am sorry if it is a dumb question but i really dont know anything about this, im just trying to run a simple bot on a private server

[BraK]

Can you post the rest of it. It'll greatly improve our chances of helping you.

~BraK

E: Nevermind The problem it you put Left as the click Type. Clicktype is an integer which means 123 etc... They are as seen below iirc.

const mouse_Right = 0 mouse_Left = 1 mouse_Middle = 2
http://wizzup.org/simbadoc/scriptref/mouseandkeyboard.html

[big mac]

program Crafter;
var
x1, ShopX, ShopY: Integer;


procedure FindClient;
var
I: Integer;
begin
for I := 0 to 600 do
begin
if (GetColor(I, 420) = 2437688) then x1 := I;
if x1 > 0 then
begin
WriteLn('Clientti loyty (X='+IntToStr(x1)+')');
Exit;
end;
end;
end;


procedure C(x, y: Integer; Left: Boolean);
begin
MoveMouse(x-258+x1, y);
Wait(70);
********(LINE 26)ClickMouse(x-258+x1, y, Left);
Wait(70);
end;

function ShopScreen: Boolean;
begin
Result := (GetColor(222+x1, 41) = 2070783);
end;


procedure CloseShop;
var
I: Integer;
begin
while ShopScreen do
begin
MoveMouse(697-258+X1, 37);
Wait(30);
ClickMouse(697-258+X1, 37, True);
while ShopScreen and (I < 350) do
begin
Wait(10);
Inc(I);
end;
if I < 350 then Exit;
I := 0;
end;
end;



function OpenShop: Boolean;
var
x, y, I, II, III, A: Integer;
NewX: Integer;
begin
repeat
if IsFKeyDown(10) then TerminateScript;
MoveMouse(ShopX-257+X1, ShopY);
while (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) < 7) do
begin
Wait(10);
A := A + 1;
if A = 150 then
begin
ClickMouse(790-258+X1, 263, True);
Wait(80);
ClickMouse(790-258+X1, 263, True);
Wait(80);
MoveMouse(ShopX-257+X1, ShopY);
end;
if A = 300 then
begin
for A := 300 to 400 do
begin
NewX := ShopX+A-300;
MoveMouse(NewX-257+X1, ShopY);
Wait(100);
if (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) > 6) then Break;
NewX := ShopX-A+300;
MoveMouse(NewX-257+X1, ShopY);
Wait(100);
if (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) > 6) then Break;
end;
if A < 400 then ShopX := NewX
else TerminateScript;
end;
end;
ClickMouse(ShopX-257+X1, ShopY, False);
III := 0;
while (III < 50) do
begin
if FindColor(x, y, 65535, ShopX-280+X1, ShopY-30, ShopX-255+X1, ShopY+80) then
begin
ClickMouse(ShopX, Y+20, True);
Break;
end;
Inc(III);
Wait(5)
end;
if III > 49 then Continue;
//Wait(100);
//ClickMouse(ShopX-258+X1, ShopY+42, True);
I := 0;
repeat
Wait(10);
I := I+1;
until(ShopScreen or (I > 200));
until(ShopScreen);
MoveMouse(445-258+X1, 130);
Wait(50);
ClickMouse(445-258+X1, 130, False);
while not FindColor(x, y, 65536, 445-258+X1, 130, 450-257+X1, 135) do Wait(5);
ClickMouse(435-258+X1, 216, True);
Wait(50);
CloseShop;
repeat
Wait(10);
II := II+1
until(((GetColor(960-258+X1, 450) <> 3357765) and (GetColor(920-258+X1, 450) <> 3357765))) or (II > 200);
end;


procedure Clicks;
var
x, y: Integer;
begin
MoveMouse(970, 445);
Wait(50);
repeat
if IsFKeyDown(10) then TerminateScript;
MoveMouse(953-258+X1, 445);
Wait(10);
ClickMouse(953-258+X1, 445, True);
Wait(40);
MoveMouse(931-258+X1, 445);
Wait(10);
ClickMouse(931-258+X1, 445, True);
Wait(40);
until(GetColor(960-258+X1, 450) = 3357765) or (GetColor(920-258+X1, 450) = 3357765);
ClickMouse(790-258+X1, 263, True);
Wait(10);
ClickMouse(790-258+X1, 263, True);
Wait(10);
ClickMouse(790-258+X1, 263, True);
Wait(15);
end;

begin
Wait(3000);
FindClient;
//GetMousePos(ShopX, ShopY);
ShopX := 517;
ShopY := 167;
repeat
Clicks;
OpenShop;
until(false);
end.

[Naum]

ClickMouse(x-258+x1, y, Left);

To:

ClickMouse(x-258+x1, y, True);

To fix the immediate error

EDIT: Don't use that above posted script if it is for runescape. It uses old detectable methods and is not reliable enough, it seems like a really outdated script anyhow.

[BraK]

ClickMouse(x-258+x1, y, Left);

To:

ClickMouse(x-258+x1, y, True);

To fix the immediate error

EDIT: Don't use that above posted script if it is for runescape. It uses old detectable methods and is not reliable enough, it seems like a really outdated script anyhow.


Lol he said it's for private :P


const mouse_Right = 0 mouse_Left = 1 mouse_Middle = 2http://wizzup.org/simbadoc/scriptref/mouseandkeyboard.html

[NCDS]

ClickMouse(x-258+x1, y, Left);

To:

ClickMouse(x-258+x1, y, True);

To fix the immediate error

EDIT: Don't use that above posted script if it is for runescape. It uses old detectable methods and is not reliable enough, it seems like a really outdated script anyhow.

Say's he's using for a private server anyway, so I don't think it should be a big deal.


@Big Mac, Please use [simba] [./simba] or [scar] [./scar] tags (without the '.' of course) when posting code from now on.

[big mac]

ClickMouse(x-258+x1, y, Left);

To:

ClickMouse(x-258+x1, y, True);

To fix the immediate error

EDIT: Don't use that above posted script if it is for runescape. It uses old detectable methods and is not reliable enough, it seems like a really outdated script anyhow.

i tried this and it still gives the same error

[BraK]

i tried this and it still gives the same error

Are you using simba? if yes then see one of my above post.

[Naum]

Lol he said it's for private :P



Say's he's using for a private server anyway, so I don't think it should be a big deal.


Hence why I said 'If' lol :p

[big mac]

i fixed that error, ty for the help, now i have this one

[Error] (64:4): Unknown identifier 'IsFKeyDown' at line 63
Compiling failed.

if IsFKeyDown(10) then TerminateScript;

[big mac]

i just deleted that, the script worked, but all it did was move back and forth very fast, is that because i have to set where the mouse is?

[Zyt3x]

Try making your own script :)
There are lots of scripting tutorials out there

[big mac]

i tried using it with scar and it works, when i compile it says this:

Successfully compiled (43 ms)
Line 57: [Hint] (57:10): Variable 'Result' never used in script
Line 131: [Hint] (131:1): Variable 'X' never used in script
Line 131: [Hint] (131:1): Variable 'Y' never used in script

and it dont even work, all it does is move back and forth fast..

[Naum]

i tried using it with scar and it works, when i compile it says this:

Successfully compiled (43 ms)
Line 57: [Hint] (57:10): Variable 'Result' never used in script
Line 131: [Hint] (131:1): Variable 'X' never used in script
Line 131: [Hint] (131:1): Variable 'Y' never used in script

and it dont even work, all it does is move back and forth fast..

I would hazard a guess that there is a problem with the script then (the actual code)

[big mac]

I would hazard a guess that there is a problem with the script then (the actual code)

Maybe, but the guy that made it said it worked for him, on battlescape..
I wonder if anyone else knows how to make a script maybe someone will make me one.