Ive started to make one of these in reflection but my membership ran out before I could finish it.
program TabCreate;
{.include SRL\SRL\Misc\Smart.scar}
{.include SRL\SRL.scar}
{.include SRL\SRL\Reflection\Reflection.scar}
var
x, y: Integer;
StudyPos: TPoint;
const
SmartWorld = 115;
Signed = True;
procedure DeclarePlayers;
begin
HowManyPlayers:= 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name:= ' ';
Players[0].Pass:= ' ';
Players[0].Nick:= ' ';
Players[0].Active:= True;
end;
procedure MoveBehindLecturn;
var
NewTile: TPoint;
begin
if(FindObject(NewTile, 13644))then
begin
NewTile.y := NewTile.y - 1;
NewTile := TileToMS(NewTile, Random(5));
Mouse(NewTile.x,NewTile.y, 2, 2, True);
end;
end;
procedure SetupPlayer;
var
Lecturn: UID;
begin
StudyPos:= GetMyPos;
SetAngle(True);
MakeCompass('n');
Lecturn := GetObjectAt(StudyPos.x, StudyPos.y+1);
if not (Lecturn.ObjType = 13644) then
begin
Writeln('Not behind lecturn, moving...');
Status('Moving Behing Lecturn');
MoveBehindLecturn;
end;
end;
procedure MakeTab;
var
LecturnPos: TPoint;
TabsMade, Time: Integer;
begin
Status('Making Tabs');
LecturnPos.y:= StudyPos.y + 1;
LecturnPos.x:= StudyPos.x;
LecturnPos:= TileToMS(LecturnPos, Random(5));
repeat
case Random(2) of
0:
begin
Mouse(LecturnPos.x, LecturnPos.y, 5, 5, false);
Wait(RandomRange(300, 600));
ChooseOption('Study');
end;
1: Mouse(LecturnPos.x, LecturnPos.y, 5, 5, true);
end;
Wait(RandomRange(1950, 2050));
Mouse(250, 254, 20, 20, true);
WaitForAnim(1500);
while CharacterAnimating do wait(10);
until (TabsMade = 24);
end;
procedure MainLoop;
begin
SetupPlayer;
repeat
MakeTab;
until (not LoggedIn);
end;
begin
Smart_Server:= SmartWorld;
Smart_Signed:= Signed;
SetupSRL;
DeclarePlayers;
LoginPlayer;
Wait(RandomRange(2000, 3000));
MainLoop;
end.
I still had a lot of work to do…