SCAR Code:
program New;
{.include SRL\SRL.scar}
const
UserName = '';// only supports one username at the time
Password = '';
Procedure RandomClothes;
var i,x,y,z,zz: integer;
begin
i:=0;
repeat
i:=i+1;
if i=1 then
begin
z:=random(5);
x:=167;
y:=89;
MMouse(x, y, 1, 1);
21: case z of;
1:= Mouse(x,y,1,1,true);
2:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
3:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
4:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
5:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
end;
if i=2 then
begin
x:=167;
y:=124;
MMouse(x, y, 1, 1);
case z of
1:= Mouse(x,y,1,1,true);
2:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
3:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
4:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
5:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
end;
if i=3 then
begin
x:=167;
y:=161;
MMouse(x, y, 1, 1);
case z of
1:= Mouse(x,y,1,1,true);
2:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
3:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
4:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
5:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
end;
if i=4 then
begin
x:=167;
y:=195;
MMouse(x, y, 1, 1);
case z of
1:= Mouse(x,y,1,1,true);
2:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
3:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
4:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
5:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
end;
if i=5 then
begin
x:=167;
y:=232;
MMouse(x, y, 1, 1);
case z of
1:= Mouse(x,y,1,1,true);
2:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
3:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
4:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
5:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
end;
if i=6 then
begin
x:=167;
y:=268;
MMouse(x, y, 1, 1);
case z of
1:= Mouse(x,y,1,1,true);
2:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
3:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
4:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
5:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
end;
if i=7 then
begin
x:=167;
y:=301;
MMouse(x, y, 1, 1);
case z of
1:= Mouse(x,y,1,1,true);
2:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
3:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
4:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
5:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
end;
if i=8 then
begin
x:=465;
y:=96;
MMouse(x, y, 1, 1);
case z of
1:= Mouse(x,y,1,1,true);
2:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
3:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
4:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
5:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
end;
if i=9 then
begin
x:=465;
y:=130;
MMouse(x, y, 1, 1);
case z of
1:= Mouse(x,y,1,1,true);
2:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
3:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
4:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
5:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
end;
if i=10 then
begin
x:=465;
y:=165;
MMouse(x, y, 1, 1);
case z of
1:= Mouse(x,y,1,1,true);
2:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
3:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
4:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
5:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
end;
if i=11 then
begin
x:=465;
y:=203;
MMouse(x, y, 1, 1);
case z of
1:= Mouse(x,y,1,1,true);
2:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
3:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
4:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
5:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
end;
if i=12 then
begin
x:=465;
y:=235;
MMouse(x, y, 1, 1);
case z of
1:= Mouse(x,y,1,1,true);
2:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
3:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
4:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
5:= begin
zz:=0;
repeat
zz:zz+1;
Mouse(x,y,1,1,true);
until(zz=z);
end;
until(i+12);
end;