Log in

View Full Version : Not doing all the procedures?


John
02-11-2012, 01:58 AM
this script shows no errors but it won't do all the procedures..
It is supposed to find oen the door then walk towards the altar, light the right burner, then the left, then it is supposed to use the d bones on the altar.

what it does:
opens the door, walks towards the altar and totally skips lighting the burners and try's using the bones but never uses them on the altar....




program Gilded_Altar;
{$i srl/srl/misc/smart.simba}
{$DEFINE CRASHSMART}
{$i SRL\SRL.simba}
{$i SPS\SPS.simba}



procedure DeclarePlayers;
begin
HowManyPlayers := 1; // Number of Players to use
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; // Player to start with, first one is 0
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Active := True; // TruiBox := InvBox;
Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
Players[0].Integers[1] := 10000; // Number of loads
end;


procedure AntiRandoms;
begin
FindNormalRandoms;
LevelUp;
end;


function UseBankNPC: Boolean;
var
bx, by, Speed, ColFace, ColGrey, ColBlue, ColHair, t: Integer;
begin
Result := (LoggedIn) and (BankScreen or PinScreen);
if (Result) then exit;
Speed := GetColorToleranceSpeed;
ColorToleranceSpeed(1);
ColFace := 7513036;
ColGrey := 4995649;
ColBlue := 4336690;
ColHair := 2506053;
if (FindObjThroughMM(bx, by, 'npc', [ColFace, ColBlue, ColGrey, ColHair], [5, 5, 5, 5],
['ounter', 'se Co', 'anke', 'to B', 'Banker', 'nker'], 2, 2)) then
begin
Mouse(bx, by, 0, 0, False);
if (WaitOptionMulti(['kly Co', 'se-qu', 'ank B', 'Bank Banker', 'ank', 'nker'], 750)) then
begin
t := (GetSystemTime + 5000);
repeat
if (BankScreen) or (PinScreen) then
begin
Result := true;
Break;
end;
Wait(50);
until(GetSystemTime > t);
if (Length(Players) > 0) then
if ((PinScreen) and (Players[CurrentPlayer].Pin <> '')) then
InPin(Players[CurrentPlayer].Pin);
Result := (BankScreen) or (PinScreen);
end;
end;
ColorToleranceSpeed(Speed);
end;


procedure TeleToBank;
var
x, y, N: Integer;
begin
if (N > 3) then
begin
Exit;
end;
ClickNorth(SRL_Angle_High);
AntiRandoms;
begin
repeat
Inc(N);
//if FindObjTPA(x, y, 6982558, 10, 2, 25, 20, w, ['mulet']) then
if FindObjCustom(X, Y, ['mulet','et Gl','lory'], [7114144,6982558], 3) then
GetMousePos(X, Y);
Mouse(x, y, 0, 0, false);
AntiRandoms;
until ChooseOption('Rub') or (N > 5);
end;
if (N > 5) then
begin
Exit;
end;
FFlag(0);
N:=0;
repeat
Inc(N);
Wait(500);
until FindNpcChatText('dgev', ClickLeft);
Wait(4912 + Random(957));
begin
SPS_Setup(RUNESCAPE_SURFACE, ['10_6']);
SPS_Continue := true;
SPS_WalkPath([Point(4214, 2686)]);
FFlag(0);
Wait(2500 + Random(200));
AntiRandoms;
N:=0;
end;
end;


Procedure OpenDoor;
var
x, y : integer;

begin
KeyUp(VK_F1);
Wait(5500 + Random(200));
begin
repeat
if FindObjCustom(X, Y, ['oor','Doo'], [4807789,5268855,5137269,5466749], 2) then
GetMousePos(X, Y);
Mouse(x, y, 10, 10, false);
AntiRandoms;
until ChooseOption('Open');
end;
end;



procedure RBurner;
var
Rburn,x,y:integer;
aFound:extended;
begin
SetupSRL;
RBurn := DTMFromString('mlwAAAHicY2dgYHjAyMBwF4hfA/FzIL4GxG+A+A4QtwDlC6B4IhTXAHE1EF88u4/BTl+ZwVpXkcHXSpshxF6fIcbNBExLAuVxYUY8GAoA7xYQ8A==' );
if FindDTMRotated(RBurn, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
Begin
writeln('Found Right Burner, Lighting it.')
MMouse(x, y, 7, 7);
Mouse(x, y, 0, 0, True);
end else
if not FindDTMRotated(Rburn, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
writeln('Found no burner');
FreeDTM(RBurn);
end;


procedure LBurner;
var
Lburn,x,y:integer;
aFound:extended;
begin
SetupSRL;
LBurn := DTMFromString('mggAAAHicY2NgYNgGxIeAeD8QrwPixUC8FY iXA/ECIN4AxXOAuB+I79+7waAiI8Lga6XNEOFsyBBir89gravIIAmU w4YZcWAIAAD6+Q5k');
if FindDTMRotated(LBurn, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
Begin
writeln('Found Right Burner, Lighting it.')
MMouse(x, y, 7, 7);
Mouse(x, y, 0, 0, True);
end else
if not FindDTMRotated(Lburn, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
writeln('Found no burner');
FreeDTM(LBurn);
end;


procedure GAltar;
var
Altar,x,y:integer;
aFound:extended;
begin
SetupSRL;
Altar := DTMFromString('mlwAAAHicY2dgYLjEyMDwGYjXAfFaIH4PxO eA+AoQLwPK90DxFiDeCsUgvr+NDoOHuQaDl4UWQ4i9PoObqTpD qq8FmC8JlMeFGfFgKAAAiiEP4g==');
if FindDTMRotated(Altar, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
Begin
writeln('Found Right Burner, Lighting it.')
MMouse(x, y, 7, 7);
Mouse(x, y, 0, 0, True);
end else
if not FindDTMRotated(Altar, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
writeln('Found no burner');
FreeDTM(Altar);
end;



procedure Useing;
begin
InvMouse(5, 2);
if isuptext('Bury') then
ClickMouse2(False);
wait(200);
ChooseOption('Use');
FFlag(0);
Wait(600 + Random(250));
GAltar;
MouseBox(227, 405, 284, 435, 1);
end;

begin
NumberOfPlayers(1);
CurrentPlayer := 0;
Players[0].Active:= True;
Smart_Server := 15;
Smart_Signed := True;
Smart_Members := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
OpenDoor;
Wait(3000 + random(75));
MouseBox(214, 40, 268, 73, 1);
Wait(750 + random(75));
RBurner;
Wait(2575 + random(75));
LBurner;
Wait(3500 + random(88));
Useing;
Wait(43000 + random(125));
end.
bg5
02-11-2012, 06:56 AM
Uhm...does 'Found no burner' message apears in debux box?

Also:

if FindDTMRotated(Altar, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
Begin
writeln('Found Right Burner, Lighting it.')
MMouse(x, y, 7, 7);
Mouse(x, y, 0, 0, True);
end else
if not FindDTMRotated(Altar, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
writeln('Found no burner');
FreeDTM(Altar);
end;

1. Second FindDTMRotated search for DTM in minimap (MMX1,MMY2...) ,I think you missed it.

2. Anyway repeating FindDTMRotated second time in this case is redundant. This will have same effect:

if FindDTMRotated(Altar, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
Begin
writeln('Found Right Burner, Lighting it.')
MMouse(x, y, 7, 7);
Mouse(x, y, 0, 0, True);
end else
writeln('Found no burner');
FreeDTM(Altar);
end;