Code:
//Written by IronTeapot
program TutRunner;
{.include srl/srl.scar}
var i,a,iMax: Integer;
yc: Integer;
var lookMax: array [0..11] of Integer;
procedure setlookMax;//declaring the different amount of look possibilities
begin
lookMax[0]:=8
lookMax[1]:=7
lookMax[2]:=7
lookMax[3]:=5
lookMax[4]:=2
lookMax[5]:=4
lookMax[6]:=2
lookMax[7]:=11
lookMax[8]:=15
lookMax[9]:=15
lookMax[10]:=5
lookMax[11]:=8
end;
procedure makeCharacter;//randomly clicking each physical attribute
begin
setlookMax;
yc:=90
a:=0
while (a < 7) do
begin
iMax:=Random(lookMax[a])
for i:= 0 to iMax do
begin
Mouse(165,yc,2,2,true)
Wait (50 + Random (250));
end;
yc:=yc+35
a:=a+1
end;
end;
procedure colorCharacter;//randomly clicking each color attribute
begin
setlookMax;
yc:=95
for a:=7 to 11 do
begin
iMax:=Random(lookMax[a])
for i:= 0 to iMax do
begin
Mouse(467,yc,2,2,true)
Wait (50 + Random (250));
end;
yc:=yc+35
end;
end;
procedure designCharacter;//does the complete look of your character and clicks accept
begin
makeCharacter;
colorCharacter;
Mouse(260,280,5,5,true) //clicks accept
Wait(1000+Random(500))
end;
procedure guideNPC;
begin
MakeCompass('N');
HighestAngle;
SetRun(True);
repeat
FindMSColorTol(x,y,462457,5);//finds the guide
MMouse(x,y,1,1);
Wait(50+Random(50))
until (IsUpText('une'));
MouseFlag(x,y,1,1);
Wait(500+Random(500));
TalkToRand;
GameTab(11);
repeat
FindMSColorTol(x,y,462457,5);//finds him for the second time
MMouse(x,y,1,1);
Wait(50+Random(50))
until (IsUpText('une'));
MouseFlag(x,y,1,1);
Wait(500+Random(500));
TalkToRand;
SetRun(True);
end;
procedure exitDoor;
begin
repeat
FindMSColorTol(x,y,933465,5);//find the door
MMouse(x,y,1,1);
Wait(50+Random(50))
until (IsUpText('oor'));//when the door is found
Mouse(x,y,1,1,true); //click it to open
wait(5000+Random(500));//wait till your outside the house
end;
procedure survivalNPC;
begin
repeat
FindMMColorTol(x,y,1767418,1); //find the yellow arrow on the mm
MouseFlag(x,y,1,1); //click on it.
until (FindMSColorTol(x,y,6224636,2)) //until sees arrow on main screen
repeat
FindMSColorTol(x,y,2961249,5);//finds the survival guide
MMouse(x,y,1,1);
Wait(50+Random(50))
until (IsUpText('urv'));
MouseFlag(x,y,1,1);
Wait(500+Random(500));
TalkToRand;
end;
procedure cutTree;
begin
GameTab(4)
repeat
repeat
FindMSColorTol(x,y,1581621,2);
MMouse(x,y,1,1);
Wait(50+Random(50))
until (IsUpText('ree'));
MouseFlag(x,y,1,1);
Wait(2000 + Random(1000));
until(ExistsItem(3))
end;
procedure makeFire;
begin
//ClickMMColorTol(10843745,2);
UseItem(2);
UseItem(3);
Wait(5000+Random(500));
GameTab(2)
end;
procedure catchFish;
begin
GameTab(4);
ClickMMColorTol(10843745,5);
repeat
FindMSColorTol(x,y,15382664,2);
MMouse(x,y,1,1);
Wait(50+Random(50))
until (IsUpText('ish'));
MouseFlag(x,y,1,1);
repeat
wait(100);
until(ExistsItem(4))
end;
begin
SetupSRL;
//designCharacter
//guideNPC
//exitDoor;
//survivalNPC;
cutTree;
makeFire;
End.