If your going to do the tut runner, you can have a look/use some code/ideas, from my attempt.
It gets to about the stage where you have to cook the fish, but doesent always work. It just pissed me off to much, so im trying other scripts.
//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.