SRL Archive - Reflection Development

function RClickPlayer: Boolean;
var tp:array of tplayer;
i:integer;
bb:tpoint;
begin
  writeln('Right clickign a player');
  if not loggedin then exit;
  TP := GetPlayers;
  for i:=0 to high(tp) do
  begin
    bb:=tp[i].ms;
    if (bb.x) and (bb.y) <> 0 then
    Mouse(bb.x,bb.y,4,4,false);
    wait(1200+random(4000));
    sleepandmovemouse(777+random(555));
    gametab(1+random(12));
    result := true;
    exit;
  end;
end;

Right clicks a player on the MainScreen.

Looking at the standards, it's like a 1 min crap from scratch?

It gets the job done.

Ok :), I am not that reflection fan ;).

i wouldnt make it switch tab after clicking every player
also if your in a crowded place then it can go on for ages clicking people which by that time they would have moved so you might be clicking on nothing

~shut

function RClickPlayer: Boolean;
var tp:array of tplayer;
i:integer;
bb:tpoint;
begin
  writeln('Right clickign a player');
  if not loggedin then exit;
  TP := GetPlayers;
  for i:=0 to high(tp) do
  begin
    bb:=tp[i].ms;
    if (bb.x) and (bb.y) <> 0 then
    Begin
      Mouse(bb.x,bb.y,4,4,false);
      wait(1200+random(4000));
      sleepandmovemouse(777+random(555));
      gametab(1+random(12));
      result := true;
      exit;
    end;
  end;
end;

Didn't have the nest originally, so would have returned true every single time you call this function.

Also, why the waiting? And perhaps not change gametab, or do a choose option so the user can do things with the player.

function RClickPlayer(OptionChoose: TStringArray): Boolean;
var tp:array of tplayer;
i:integer;
bb:tpoint;
begin
  writeln('Right clickign a player');
  if not loggedin then exit;
  TP := GetPlayers;
  for i:=0 to high(tp) do
  begin
    bb:=tp[i].ms;
    if (bb.x) and (bb.y) <> 0 then
    Begin
      Mouse(bb.x,bb.y,4,4,false);
      result := true;
    end;
  end;
  If Result then
    ChooseOptionMulti(OptionChoose);
end;

writeln('Right clickign a player'); > writeln('Right clicking a player');

From: Richard


Also, why the waiting? And perhaps not change gametab, or do a choose option so the user can do things with the player.

function RClickPlayer(OptionChoose: TStringArray): Boolean;
var tp:array of tplayer;
i:integer;
bb:tpoint;
begin
  writeln('Right clickign a player');
  if not loggedin then exit;
  TP := GetPlayers;
  for i:=0 to high(tp) do
  begin
    bb:=tp[i].ms;
    if (bb.x) and (bb.y) <> 0 then
    Begin
      Mouse(bb.x,bb.y,4,4,false);
      result := true;
    end;
  end;
  If Result then
    ChooseOptionMulti(OptionChoose);
end;

that will do the chooseoption on the last player only

~shut

Oh yeah, forgot it clicked multiple players, I'll make a param for it:

function RClickPlayer(OnePlayer: Boolean; OptionChoose: TStringArray): Boolean;
var tp:array of tplayer;
i:integer;
bb:tpoint;
begin
  writeln('Right clickign a player');
  if not loggedin then exit;
  TP := GetPlayers;
  for i:=0 to high(tp) do
  begin
    bb:=tp[i].ms;
    if (bb.x) and (bb.y) <> 0 then
    Begin
      Mouse(bb.x,bb.y,4,4,false);
      result := true;
      If OnePlayer then 
        Break;
    end;
  end;
  If Result then
    ChooseOptionMulti(OptionChoose);
end;

From: Richard
Oh yeah, forgot it clicked multiple players, I'll make a param for it:

function RClickPlayer(OnePlayer: Boolean; OptionChoose: TStringArray): Boolean;
var tp:array of tplayer;
i:integer;
bb:tpoint;
begin
  writeln('Right clickign a player');
  if not loggedin then exit;
  TP := GetPlayers;
  for i:=0 to high(tp) do
  begin
    bb:=tp[i].ms;
    if (bb.x) and (bb.y) <> 0 then
    Begin
      Mouse(bb.x,bb.y,4,4,false);
      result := true;
      If OnePlayer then 
        Break;
    end;
  end;
  If Result then
    ChooseOptionMulti(OptionChoose);
end;

guys my original function was not supposed to be clicking multiplayer players, it was supposed to be like

in an antiban procedure

or if random(20) = 4 then rclick

Yeah, very good for anti ban, but, a multiple option is good. Make options, -examine
-close…………….I'm not a reflection fan but, this would be great if we had it in color.