Need help with right and left clicking

[Jokester]

I am trying to edit a script to customize it before actually trying to script myself. I can't figure out how to change a right click to a left click. Can anyone help me with this>

[shadowmarkus]

I am trying to edit a script to customize it before actually trying to script myself. I can't figure out how to change a right click to a left click. Can anyone help me with this>

Depends what kind of method you use for clicking, can you show me? Or the script itself.

[Jokester]

I am editing TooMuchTabbage and it clicks the lectern then right clicks the varrock teleport tab but it will not do anything else. It is actually faster to just make them one by one and left click, but i don't know how to change the clicking.

[RISK]

program new;
{$i SRL/SRL.simba}

procedure Example;
begin
Mouse(770, 341, 0, 0, True); // Left clicks
Mouse(770, 341, 0, 0, False); // Right clicks
end;

begin
end.

[Jokester]

program TooMuchTabbage;//by PatDuffy
{$DEFINE SRL5}
{$DEFINE SMART}

{$i SRL/srl.simba}
//{$i SRL/srl.scar}
{$i SPS/sps.simba}
// {$include SRL/SRL/misc/smart.simba}
{$i SRL/SRL/misc/paintsmart.simba}

const
World = 89;//89,47,83(my lowest ping worlds), 0 for random
Members = true;
Signed = true;

CPrice = 444;//price of soft clay
TPrice = 1336;//price of tab
LPrice = 328;//price of law runes
Version = '1_1';

SRLStats_Username ='Anonymous';
SRLStats_Password ='anon1337';

Style = 'fast';
Tab_Make = 'varrock';
Butler = 'demon';//demon or butler
//valid tab types are: (house, varrock, falador,
// lumb, cammy, ardy, watch
//Note, only hybrid tested, others should work
{hybrid = mix of fast making and few slow
slow = Make-All option, lots of humans do it
fast = Make 1-by-1, saves 26 seconds per inv}

{==============================================]
[ For 'Loc' Valid Locs are.... ]
[ 'ready': standing next to the lectern ]
[ with inventory full ]
[ ]
[ 'refill': standing next to the lectern ]
[ without soft clay, but with noted ]
[ soft clay and runes ]
[==============================================}

//the other Loc's I use you won't need to worry about

var
certs,TabNum:Integer;
First,Long:Boolean;
Loc,Ver: String;

Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

with Players[0] do
begin
Name := '';
Pass := '';
Pin := '';
Loc := 'ready';
BoxRewards := ['XP','xp','lamp'];
LampSkill := 'Slayer';
Active := True;
end;
end;

//By Benland100, modified to paint mouse movements
procedure WindMouse2(xs, ys, xe, ye, gravity, wind, minWait, maxWait, maxStep, targetArea: extended);
var
veloX, veloY, windX, windY, veloMag, dist, randomDist, lastDist, step: extended;
lastX, lastY: integer;
sqrt2, sqrt3, sqrt5: extended;
begin
sqrt2:= sqrt(2);
sqrt3:= sqrt(3);
sqrt5:= sqrt(5);
while hypot(xs - xe, ys - ye) > 1 do
begin
dist:= hypot(xs - xe, ys - ye);
wind:= minE(wind, dist);
if dist >= targetArea then
begin
windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
end else
begin
windX:= windX / sqrt2;
windY:= windY / sqrt2;
if (maxStep < 3) then
begin
maxStep:= random(3) + 3.0;
end else
begin
maxStep:= maxStep / sqrt5;
end;
end;
veloX:= veloX + windX;
veloY:= veloY + windY;
veloX:= veloX + gravity * (xe - xs) / dist;
veloY:= veloY + gravity * (ye - ys) / dist;
if hypot(veloX, veloY) > maxStep then
begin
randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
veloMag:= sqrt(veloX * veloX + veloY * veloY);
veloX:= (veloX / veloMag) * randomDist;
veloY:= (veloY / veloMag) * randomDist;
end;
lastX:= Round(xs);
lastY:= Round(ys);
xs:= xs + veloX;
ys:= ys + veloY;
if (lastX <> Round(xs)) or (lastY <> Round(ys)) then
MoveMouse(Round(xs), Round(ys));
step:= hypot(xs - lastX, ys - lastY);
wait(round((maxWait - minWait) * (step / maxStep) + minWait));
lastdist:= dist;
SMART_DrawDotsEx(False, [Point(lastX, lastY)], 65280);
end;
if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
MoveMouse(Round(xe), Round(ye));

end;

{************************************************* ******************************
Procedure HumanMMouse(eX, eY: Integer);
By: Flight
Description: Human-like miss-and-correct mouse movement
************************************************** *****************************}
Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
var
randSpeed: extended;
X,Y,X2,Y2,A,Dist,MP: integer;
begin
A := MouseSpeed;
GetMousePos(X, Y);
Dist := Distance(X, Y, eX, eY);
MP := Round(Dist/150);
if MP < 0 then
MP := 1;

randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
X2 := RandomRange(eX-(A*MP), eX+(A*MP));
Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
WindMouse2(X, Y, X2, Y2, 9.0, 3.0, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
GetMousePos(X, Y);
MMouse(eX, eY, ranX, ranY);
MouseSpeed := A;
end;

{************************************************* ******************************
Procedure HumanRandomMouse;
By: Flight
Description: Random human-like mouse movement
************************************************** *****************************}
Procedure HumanRandomMouse;
var
randSpeed: extended;
x, y, firstSpeed: integer;
begin
case(Random(10)) of
2..8:
begin
firstSpeed := mouseSpeed;

mouseSpeed := RandomRange(5,10);
randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
GetMousePos(x, y);
WindMouse2(x, y, RandomRange(x - 75, x + 75), RandomRange(y - 75, y + 75),
30, 55, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);

mouseSpeed := firstSpeed;
//ClearSmartCanvas;
end;
end;
end;

function CountNotes:Integer;
var
Box: TBox;
begin
Box := InvBox(25);
Result:=GetAmountBox(Box);
Writeln(IntToStr(Result)+' Noted clay found');
Exit;
end;

procedure SetUpPlayers;
begin
if not LoggedIn then
Exit;
If FindNormalRandoms then
if not LoggedIn then
Exit;
MakeCompass('S');
SetAngle(SRL_ANGLE_HIGH);
certs :=CountNotes;
end;

function FindThing(var X,Y:Integer; what:string; DeBug:Boolean):Boolean;
var
TPA,LPA,LPB: TPointArray;
ATPA: T2DPointArray;
I,H: Integer;
Box:TBox;
begin
if Loc = 'clicked' then
Result:=True;
case what of
'lectern':begin
Writeln('searching for lectern');
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(MSCX,MSCY,LPA,11383733,M SX1,MSY1,MSX2,MSY2,10);
FindColorsSpiralTolerance(MSCX,MSCY,LPB,11515318,M SX1,MSY1,MSX2,MSY2,7);
TPA:=CombineTPA(LPA,LPB);
end;
'demon','first':begin
Writeln('Searching for demon');
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(MSCX,MSCY,LPA,13948638,M SX1,MSY1,MSX2,MSY2,21);
FindColorsSpiralTolerance(MSCX,MSCY,LPB,7829628,MS X1,MSY1,MSX2,MSY2,10);
TPA:=CombineTPA(LPA,LPB);
end;
'butler','reg':begin
Writeln('Searching for butler');
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(MSCX,MSCY,LPA,1382727,MS X1,MSY1,MSX2,MSY2,12);
FindColorsSpiralTolerance(MSCX,MSCY,LPB,1448265,MS X1,MSY1,MSX2,MSY2,12);
TPA:=CombineTPA(LPA,LPB);
end;
end;
ATPA := TPAtoATPA(TPA,25);
if Length(ATPA) = 0 then
Exit;
SortATPAFrom(ATPA, Point(MSCX,MSCY));
H :=High(ATPA);
SMART_DrawDotsMulti(True,ATPA);
For I:=0 to H do
begin
Box := GetTPABounds(ATPA[I]);
if DeBug then
SMART_DrawBoxEx(False, IntToBox(Box.X1,Box.Y1,Box.X2,Box.Y2),65280);
MiddleTPAEx(ATPA[I],X,Y);
HumanMMouse(X,Y,5,5);
Wait(500);
case what of
'lectern':begin
if IsUpTextMultiCustom(['tudy','ectern']) then
begin
Mouse(X,Y,0,0,true);
Writeln('Found lectern');
Result:=True;
Loc:='clicked';
Exit;
end else
Result:=False;
end;

'demon','butler':begin
Mouse(X,Y,1,1,false);
if OptionsExist(['etch','rom'],false) then
begin
if ChooseOption('etch') then
begin
Wait(1500+Random(500));
Writeln('Found butler');
Result:=True;
Exit;
end;
end else
Result:=False;
end;

'first','reg':begin
if IsUpTextMultiCustom(['emon','utler']) then
begin
Mouse(X,Y,1,1,True);
Wait(1500+Random(500));
Result:=True;
Writeln('clicked butler');
Exit;
end else
Writeln('Failed to find butler');
Result:=False;
end;
end;
end;
end;

function FindClay:Boolean;
var
ClayDTM,x,y:Integer;
begin
ClayDTM := DTMFromString('78DA636C67626058CDC8800CC2EC7818348 03' +
'44C94710250CD7A54350C0C4C1039989AA940FE72026ADA80 FCCD04D' +
'4F410A1A601C8DF845F0D002FC70848');

if FindDTM(ClayDTM,x,y,MIX1,MIY1,MIX2,MIY2) or InvFull then
begin
Result:=True;
FreeDTM(ClayDTM);
Exit;
end else
begin
Writeln('did not find soft clay');
FreeDTM(ClayDTM);
Result:=False;
Exit;
end;
end;

procedure UpdateScript;
var
Script:String;
begin
Script:=GetPage('http://pastebin.com/raw.php?i=754W7J02');
if (CreateFile('C:\Simba\Script\TooMuchTabbageV'+Ver+ '.simba')=-1) then
begin
ClearDebug;
WriteLn('Sorry I was not able to auto update this script, you can update it manually')
WriteLn('Opening the web page for you to update')
OpenWebPage('http://villavu.com/forum/showthread.php?t=71103');
TerminateScript;
end;
CloseFile(0);
If((FileExists('C:\Simba\Scripts\TooMuchTabbageV'+ Ver+'.simba'))) then
begin
ClearDebug;
WriteLn('Updated The Script, new version stored at "C:\Simba\Scripts\TooMuchTabbageV'+Ver+'.simba"')
TerminateScript;
end;
end;

procedure CheckVersion;
begin
Ver:=GetPage('http://pastebin.com/raw.php?i=zgXxN1QG');
if (Ver='') then
begin
WriteLn('There was an error connecting to the Update Server so I will assume that you have the most up to date Version')
Exit;
end;
if (Version = Ver) then
begin
Writeln('You are using the most up to date version');
Exit;
end else
begin
Writeln('You are not using the latest version');
Writeln('Updating now');
UpdateScript;
end;
end;



procedure FindStage;
begin
if not LoggedIn then
Players[CurrentPlayer].Loc:='end';
if FindNormalRandoms then
If not LoggedIn then
begin
Players[CurrentPlayer].Loc:='end';
Exit;
end;
if FindClay then
Players[CurrentPlayer].Loc:='ready';
Players[CurrentPlayer].Loc:='refill';
end;

function PayDamThing:Boolean;
var
x,y,Derps:Integer;
begin
if ClickContinue(true,true) then
begin
Writeln('Demon must be payed');
Wait(1000);
repeat
Wait(Random(500));
if FindText(x,y,'servant',UpChars,69,364,478,480) then
begin
Writeln('payed demon');
mouse(x,y,1,1,true);
Derps:=0;
Result:=True;
Exit;
end else
Inc(Derps);
until (Derps >2);
end else
Writeln('demon did not require pay');
Derps:=0;
Result:=False;
end;

procedure ChooseTab;
begin
case Tab_Make of
'varrock': MouseBox(229,242,264,272,0);
end;
end;

function FindTab(Var Q,T:Integer; thing:string):Boolean;
var
cmount:Integer;
begin
if IsMoving then
Wait(2000+Random(500));
Wait(600+Random(200));
case thing of
'fast':begin
case Random(100) of
0..98:begin
ChooseTab;
Wait(500+Random(100));
Long:=True;
Result:=True;
Inc(TabNum);
Writeln('Made Tab #'+IntToStr(TabNum));
Exit;
end;
99..100:begin
case Tab_Make of
'house': MouseBox(397,79,435,109,0);
'watch': MouseBox(312,77,342,110,0);
'ardy' : MouseBox(308,158,348,187,0);
'cammy': MouseBox(314,243,349,272,0);
'falador': MouseBox(232,154,263,189,0);
'varrock': MouseBox(229,242,264,272,0);
'lumb' : MouseBox(148,77,181,109,0);
end;
if OptionsExist(['ouse','use'],false) then
if ChooseOption('ll') then
begin
cmount := InvCount-4;
IncEx(TabNum,cmount);
Wait(500+Random(50));
Writeln('Clicked Tab');
Long:=True;
Writeln('making all');
Result:=True;
Exit;
end else
Result:=False;
end;
end;
end;

'fast':begin
case Tab_Make of
'house': MouseBox(397,79,435,109,0);
'watch': MouseBox(312,77,342,110,0);
'ardy' : MouseBox(308,158,348,187,0);
'cammy': MouseBox(314,243,349,272,0);
'falador': MouseBox(232,154,263,189,0);
'varrock': MouseBox(229,242,264,272,0);
'lumb' : MouseBox(148,77,181,109,0);
end;
if OptionsExist(['ouse','use'],false) then
if ChooseOption('ll') then
begin
cmount := InvCount-4;
Wait(500+Random(50));
IncEx(TabNum,cmount);
Writeln('Clicked Tab');
Result:=True;
Exit;
end else
Result:=False;
end;

'fast':begin
ChooseTab;
Wait(500+Random(100));
Long:=False;
Inc(TabNum);
Writeln('Made Tab#'+IntToStr(TabNum));
Result:=True;
Exit;
end;
end;
end;

procedure Statty;
var
exp: Integer;
begin
exp:=24*30;

Stats_IncVariable('Magic EXP (Gained)',exp);
case Tab_Make of
//'house':can't fill this in due to variables
'varrock': Stats_IncVariable('Varrock Tablets (Made)',22);
//'falador':
//'lumb':
//'cammy':
//'ardy':
//'watch':
end;
Stats_Commit;
end;

procedure Proggy;
var
Mage, Profit: Integer;
begin
Mage:= 30*TabNum;
Profit:=(TabNum*TPrice)-(TabNum*LPrice+TabNum*CPrice);
ClearDebug;
Writeln('=+=+=+=+=+=+=+==+=+=+=+=+=+=+==+=+=+=+=+= +=+=');
Writeln('=+=+=+ TooMuchTabbage '+ Version+' by PatDuffy');
Writeln('=+=+=+=+=+=+=+==+=+=+=+=+=+=+==+=+=+=+=+= +=+=');
Writeln(' Time Running: '+TimeRunning);
Writeln(' Tablets Made: '+IntToStr(TabNum));
Writeln(' Magic Exp Gained: '+IntToStr(Mage));
Writeln(' Profit Made: '+IntToStr(Profit));
Writeln(' Profit/Hour: '+IntToStr((Profit*60/((GetTimeRunning/60000)+1))));
Writeln('=+=+=+=+=+=+=+==+=+=+=+=+=+=+==+=+=+=+=+= +=+=');
end;


function UseNotes:Boolean;//uses the notes on the butler during the first run-through
var
NoteDTM,x,y:Integer;
begin
NoteDTM :=DTMFromString('78DA638C676260F8C4C8800C426CB8193 4803' +
'44C943112A8E637AA1A06062654352940357F09A8C906AAF9 4A404D0' +
'E50CD5B026AFC816A7EE0570300BEB009BA');

Statty;

if FindDTM(NoteDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
begin
HumanMMouse(x,y,5,5);
Mouse(x,y,0,0,true);
case Butler of
'demon':begin
if FindThing(x,y,'first',true) then
begin
if PayDamThing then
Exit;
if FindText(x,y, 'cert', UpChars, 69, 364, 478, 480) then
begin
Mouse(x,y,0,0,true);
Wait(1000+Random(100));
TypeSend('24');
Result:=True;
Exit;
end;
end;
end;
'butler':begin
if FindThing(x,y,'reg',true) then
begin
if PayDamThing then
Exit;
if FindText(x,y, 'cert', UpChars, 69, 364, 478, 480) then
begin
Mouse(x,y,0,0,true);
Wait(1000+Random(100));
TypeSend('24');
Result:=True;
Exit;
end;
end;
end;
end;
end else
Result:=False;
end;

procedure WasteTime;
var
Tim:Integer;
begin
MarkTime(Tim);
repeat
Wait(10000+Random(10000));
case Random(100) of
0..20: HumanRandomMouse;
21..50: Wait(10000+Random(10000));
51..76: BoredHuman;
77..85: RandomRClick;
86..93: PickUpMouse;
94..100: ExamineInv;
end;
until not FindClay or (TimeFromMark(Tim)> 180000);
if not FindClay then
Players[CurrentPlayer].Loc:='refill';
Exit;
end;


procedure BackBone;
var
x,y,Q,Z,Fails,Derps:Integer;
begin
if FindNormalRandoms then
if not LoggedIn then
exit;
if not FindClay then
begin
Players[CurrentPlayer].Loc:='refill';
Exit;
end;
repeat
if FindThing(x,y,'lectern',true) then
begin
Wait(1000);
case Style of
'hybrid':begin
Writeln('Looking for tabs');
Fails:=0;
repeat
if FindTab(Q,Z,'hybrid') then
begin
Loc:='not';
Derps:=0;
if Long then
begin
WasteTime;
Exit;
end;
Wait(500+Random(200));
Exit;
end else
Wait(1000);
Inc(Derps);
until(Derps>2);
if not FindClay then
Players[CurrentPlayer].Loc:='refill';
end;

'fast':begin
Fails:=0;
if FindTab(Q,Z,'fast') then
// begin
Wait(500);
// end;
if not FindClay then
Players[CurrentPlayer].Loc:='refill';
end;
'slow':begin
Fails:=0;
if FindTab(Q,Z,'slow') then
begin
WasteTime;
Exit;
end;
end;
end;
end else
Inc(Fails);
If (Fails>5) then
begin
Players[CurrentPlayer].Loc:='lost';
Exit;
end;
until not FindClay;
end;

procedure Interact;
var
x,y,Derps:Integer;
begin
If FindNormalRandoms then
If not LoggedIn then
Exit;
Statty;
if FindClay then
begin
Players[CurrentPlayer].Loc:='ready';
Exit;
end;
if First then
begin
// repeat
if UseNotes then
begin
Writeln('sent the demon to get more clay');
case Butler of
'demon': Wait(7500+Random(1000));
'regular': Wait(12000+Random(1000));
end;
if FindClay then
begin
First:=False;
Writeln('Ready for more tab-making');
Players[CurrentPlayer].Loc:='ready';
Derps:=0;
Exit;
end else
Players[CurrentPlayer].Loc:='ready';
First:=False;
Exit;
end else
Inc(Derps);
//until (Derps>2);
end;
case Butler of
'demon':begin
if FindThing(x,y,'demon',true) then
begin
Wait(500);
if PayDamThing then
begin
Writeln('I hate that demon');
Exit;
end;
if FindText(x,y, 'cert', UpChars, 69, 364, 478, 480) then
Mouse(x,y,1,1,true);
Wait(7000+Random(2000));
if FindClay then
begin
Players[CurrentPlayer].Loc:='ready';
Exit;
end;
end else
Players[CurrentPlayer].Loc:='lost';
end;
'butler':begin
if FindThing(x,y,'demon',true) then
begin
Wait(500);
if PayDamThing then
begin
Writeln('I hate that demon');
Exit;
end;
if FindText(x,y, 'cert', UpChars, 69, 364, 478, 480) then
Mouse(x,y,1,1,true);
Wait(12000+Random(2000));
if FindClay then
begin
Players[CurrentPlayer].Loc:='ready';
Exit;
end;
end else
Players[CurrentPlayer].Loc:='lost';
end;
end;
end;



procedure MainLoop;
begin
if not LoggedIn then
Exit;
repeat
if FindNormalRandoms then
If not LoggedIn then
Exit;
Proggy;
case Players[CurrentPlayer].Loc of
'ready': BackBone;
'refill': Interact;
'lost': FindStage;
'end': NextPlayer(False);
end;
until AllPlayersInactive;
end;

begin
ClearDebug;
CheckVersion;
Smart_Signed := Signed;
Smart_Server := World
Smart_SuperDetail := False;
Smart_Members := Members;
SetupSRLStats(454,SRLStats_Username,SRLStats_Passw ord);
SetupSRL;
DeclarePlayers;
First:=True;
SetUpPlayers;
AddOnTerminate('Proggy');
repeat
MainLoop;
until AllPlayersInactive;
end.

[Jokester]

program new;
{$i SRL/SRL.simba}

procedure Example;
begin
Mouse(770, 341, 0, 0, True); // Left clicks
Mouse(770, 341, 0, 0, False); // Right clicks
end;

begin
end.

Yeah that's the problem... i'm not finding anything that relates to mouse clicking.

[Flight]

Actually I believe in SRL5 we've switched over to "mouse_left" and "mouse_right".

ClickMouse2 will still use the same boolean; True for left-click, False for right click, but things like 'Mouse' (Mouse(770, 341, 0, 0, True)) should now by like, for example:

Mouse(770, 341, 0, 0, mouse_left); //Left click

[Jokester]

Awesome! Thanks guys i really appreciate it! I figured out how to get it to left click and it works flawlessly! One step closer to developing my first script!