Johura
2007-04-22 09:34:58
Hi. I need testers to test this test. It Should walk to the duke ready to start the rune mysteries quest. The reason why i need testers is because it uses a special type of walking. Finding fixed objects, then useing the walk option. Tell me if you think its a waste of time making a rune quest and using some of the walking fixed objects stuff. Thanks.
Program RuneMysteriesQuest;
{.include SRL/SRL.scar}
{By Jahuro}
{Start in lumbrige at bottom of stairs}
{Run on - has to be like that for first minute}
{Start with compass southwest}
procedure opendoor;
begin
Writeln('Opening the Lumbrige Castle door');
//FindCompassAngle 225; Add for srl 4.0
if (FindObj(x, y, 'Open', 1680860, 5)) then
begin
MMouse(x, y, 0, 0);
Wait(100 + random(50));
Mouse(x, y, 0, 0, true);
Writeln('Succesfully Opened Lumbrige Castle door');
end else
begin
Writeln('Lumbrige Castle door already opened');
end
end;
procedure walktoquestsymbol;
begin
wait (1000);
writeln('Looking for quest symbol');
if (FindSymbol(x, y, 'quest')) then
begin
writeln('Found quest symbol, walking');
Mouse(x, y, 5, 5, true)
wait(5000 + random(50));
Flag;
end
end;
procedure walktoroomcenter;
begin
makecompass('W')
if (FindObj(x, y, 'Bowl', 938606, 5)) then
begin
MMouse(x, y, 0, 0);
Mouse(x, y, 5, 5, false)
ChooseOption(x, y, 'alk');
flag;
writeln('Now in middle of the cooks room');
end else
begin
if (FindObj(x, y, 'Pot', 2311526, 5)) then
begin
MMouse(x, y, 0, 0);
Mouse(x, y, 5, 5, false)
ChooseOption(x, y, 'alk');
flag;
writeln('Now in middle of the cooks room');
end else
begin
writeln('Got lost. Logging out');
// Next player
end
end
end;
procedure walkupstairs;
begin
wait (3000);
if (FindObj(x, y, 'Stair', 1381912, 5)) then
begin
MMouse(x, y, 0, 0);
Mouse(x, y, 5, 5, true)
writeln('Walking up the staircase');
end else
begin
makecompass('S')
if (FindObj(x, y, 'Stair', 1381912, 5)) then
begin
MMouse(x, y, 0, 0);
Mouse(x, y, 5, 5, true)
writeln('Walking up the staircase');
end else
begin
writeln('We got lost, next player');
//nextplayer
end
end
end;
procedure walktostartquestplace;
begin
writeln('Trying to walk to the Duke');
makecompass('N')
if (FindObj(x, y, 'alk', 1394775, 5)) then
begin
MMouse(x, y, 0, 0);
Mouse(x, y, 5, 5, true)
flag;
end
begin
makecompass('E');
if (FindObj(x, y, 'alk', 7344397, 5)) then
begin
MMouse(x, y, 0, 0);
Mouse(x, y, 5, 5, true)
flag;
end
begin
makecompass('N');
LowestAngle;
if (FindObj(x, y, 'tair', 7344397, 5)) then
begin
MMouse(x, y, 0, 0);
Mouse(x, y, 5, 5, false)
highestangle;
ChooseOption(x, y, 'alk');
flag;
end
end
end;
begin
SetupSrl;
cleardebug;
opendoor;
walktoquestsymbol;
walktoroomcenter;
walkupstairs;
walktostartquestplace;
end.