SRL Archive - Outdated / Broken

Can someone plz make me a simple script that would pick a clam at random???

case random(3) of
0:mouse(clam1)
1:mouse(clam2)
2:mouse(clam3)
end;

whew

lol treasure troopers, could you explain how to use the case (array, is it called)?

Heres a quick script I whipped up. Doesn't use case but its just as good ;).[shame] I forgot how to use case [/shame]

here ya go

//Fill out the const.

program ClamPickerbyPali;

const

Clam1X =100 ;     //Clam 1 Coord X
Clam1Y =100 ;     //Clam 1 Coord Y

Clam2X =200 ;     //Clam 2 Coord X
Clam2Y =200 ;     //Clam 2 Coord Y

Clam3X =300 ;     //Clam 3 Coord X
Clam3Y =300 ;     //Clam 3 Coord Y

var
a,b,r : integer;

procedure mouse(x,y : integer);
begin;
movemousesmooth(x,y)
holdmouse(x,y,true)
wait(50)
releasemouse(x,y,true)
wait(50)
end;

procedure click;
begin;
r:=random(3)
if(r=0) then
begin;
a:=Clam1X
b:=Clam1Y
end;
if(r=1) then
begin;
a:=Clam2X
b:=Clam2Y
end;
if(r=2) then
begin;
a:=Clam3X
b:=Clam3Y
end;
mouse(a,b);
end;

begin
click;
end.

Treasuretrooper deleted my account.. I had 80 fucking dollars and I didn't even do anything ;D

ouch, i just wanted one becuase i hate choosing my self and then i can blame the script for messing up

And, it's not that hard to click a random clam.. I bet it's more of a hassle to open scar and click the play button.

Make sure you fill in the co-ords. (I'd use constants, But they're a bitch).

procedure MoveClick(x, y: Integer);
begin
  MoveMouseSmooth(x, y);
  Wait(50);
  ClickMouse(x, y, True);
end;

var
  Clam: TPointarray;
  i: Integer;
begin
  Setarraylength(Clam, 3);
 //[First Clam Co-ords]
 Clam[0].x:= 0;
 Clam[0].y:= 0;
 //[Second Clam Co-ords]
 Clam[1].x:= 0;
 Clam[1].y:= 0;
 //[Third Clam Co-ords]
 Clam[2].x:= 0;
 Clam[2].y:= 0;
  i:= Random(3);
   MoveClick(Clam[i].x, Clam[i].y);
end.

:)