2.1 have problems with altar detection but burners works perfect just replace the lburn and rburn functions from 1.x with the from 2.1
For these DTM's i cannot make them work for every one.
couple questions:
does it only work with marble burners? i got mahogany ones
and does it have to be exact set-up? i got my altar on my west :3
is ther a tutorial to make own dtms?
@saul goodman
altar must be north an glory west of altar else u must change the script code but you will ne to change it anyways to make it work for you
btw already made pray 87 to 90 with that script n d bones
Last edited by killer06; 03-22-2012 at 09:50 PM.
double post, sorry lagged somehow
#remove pls
I re-edited this whole script :P took me like 1-2 hours but it paid off I guess lol. Got it running stable for 1 1/2 hours as of now.
Your all starting to script, funny thing is that i started scripting via trying to fix aegis altar script xD
(---Evlins Gilded Altar`---)
Time Running 1:45:49
Current Process: Useing
Runs Done:52
Small proggy hehe
Do you have a updated version without summoning? D: please?
Sorry mate, i have no time to update it, maybe ask the others on this thread how to fix the none summoning script?
And thanks for the proggy![]()
Very sweet!Good job man, trying to fix some of the errors myself as practice.
![]()
jep fixing your script was the first simba script i ever worked on :P
btw never coded with pascal befor but i have alot knowlegs in langs like c++
pascal sucks like visual basic :/
my version of the script
-made it a bid more stable & faster
-no more door detection just clicks
-no more altar detection just clicks
i ran the script for like 3hrs without problems (while playing bf3) 40laps per hour
(without summo)Code:program Gilded_Altar; //By Evlin {$i srl/srl/misc/smart.simba} {$DEFINE CRASHSMART} {$i SRL\SRL.simba} {$i SPS\SPS.simba} var Clock: TIntegerArray; ActionText: TStringArray; Runs,Used:Integer; 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; // just leave it as is. Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one. Players[0].Integers[1] := 10000; // Number of loads end; /////////////////////////////////////////////////////////////////////////////// ///////////////No Further Than Here(Unless Permission Was granted)///////////// /////////////////////////////////////////////////////////////////////////////// procedure SmallReport(Action: Integer); begin ClearDebug; ActionText := ['BankandTele','Useing','UseBankNPC']; Clock := [0,0,0]; ConvertTime(GetTimeRunning,Clock[0],Clock[1],Clock[2]); writeln('(---Evlins Gilded Altar`---)'); Writeln('Time Running ' +tostr(Clock[0])+':'+tostr(Clock[1])+':'+tostr(Clock[2])); writeln('Current Process: '+ActionText[Action]); Writeln('Runs Done:' +IntToStr(runs)); end; function UseBankNPC: Boolean; var bx, by, Speed, ColFace, ColGrey, ColBlue, ColHair, t: Integer; begin If FindNormalRandoms then Begin Logout; TerminateScript; End else 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 FindNormalRandoms then Begin Logout; TerminateScript; End else if (N > 3) then begin Exit; end; ClickNorth(SRL_Angle_High); 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); 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(3500 + Random(957)); begin SPS_Setup(RUNESCAPE_SURFACE, ['10_6']); SPS_Continue := true; SPS_WalkPath([Point(4210, 2682)]); FFlag(0); Wait(1500 + Random(200)); N:=0; end; end; Procedure OpenDoor; var x, y : integer; begin If FindNormalRandoms then Begin Logout; TerminateScript; End else KeyUp(VK_F1); Wait(5500 + Random(250)); begin if FindObjCustom(X, Y, ['oor','Doo'], [4807789,5268855,5137269,5466749], 2) then GetMousePos(X, Y); Mouse(260, 66, 30, 30, false); if ChooseOption('Open') then begin end else begin Mouse(260, 66, 30, 30, false); if ChooseOption('Open') then begin end else begin Mouse(260, 66, 30, 30, false); if ChooseOption('Open') then begin end else begin Wait(300 + Random(100)) KeyUp(VK_F1); InvMouse(1, 1); OpenDoor; end; end; end; end; end; procedure RBurner; var Rburn,x,y:integer; aFound:extended; begin If FindNormalRandoms then Begin Logout; TerminateScript; End else RBurn := DTMFromString('mggAAAHicY2NgYFBjZGDQAmIVINYDYg0gVgTiHqBcAxBXA3EzEE8F4glA/PTJQ4YnWxUYnI1VGTzMNBi+f//G8O7NMwZ+oBw2zIgDQwAAkjMPzw=='); 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); if isuptext('burner') then begin Mouse(x, y, 0, 0, True); end else if isuptext('2 more') then begin end else begin RBurner; end 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 If FindNormalRandoms then Begin Logout; TerminateScript; End else LBurn := DTMFromString('mrAAAAHic42BgYOCEYn4gZgdiISBmZYAALiAWBmIZIJYEYnEgFgBiNqg8ExA/f/6MIdzRgOHbl08MX169ZJg0oY3h3gZ5BnsDZTCWhOrFhRkJYBgAAIBxDzE='); if FindDTMRotated(LBurn, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then Begin writeln('Found Left Burner, Lighting it.') MMouse(x, y, 7, 7); if isuptext('burner') then begin Mouse(x, y, 0, 0, True); end else if isuptext('2 more') then begin end else begin LBurner; end 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 BankandTele; begin //Marrentil := DTMFromString('mggAAAHicY2NgYJjOyMCwGIjnAfEEIG4H4olAnA2USwXiQiAuAOIsIM4AYp5gPiDJhIFFGLADRhwYAgCsawah'); //DragonBones := DTMFromString('mggAAAHicY2NgYOBlgAAQLQPEbEAsBcRMQMwB5XMBMSNU3fIFC6CyqJifATtgxIEhAADMUAJ+'); begin repeat UseBankNPC; until BankScreen; end; begin //if WithdrawItem(Marrentil, 'dtm', 1, 'lean', []) then //if WithdrawItem(Marrentil, 'dtm', 1, 'lean', []) then //WithdrawItem(DragonBones, 'dtm', 25, 'ragon', []) then if Withdraw(8, 0, 1) then if Withdraw(8, 0, 1) then if Withdraw(9, 0, 25) then if BankScreen then CloseBank; Wait(1000 + Random(350)) KeyDown(VK_F1); Wait(300 + Random(100)) KeyUp(VK_F1); InvMouse(1, 1); //FreeDTM(Marrentil); //FreeDTM(DragonBones); SmallReport(1); end; end; procedure GAltar; var Altar,x,y:integer; aFound:extended; begin If FindNormalRandoms then Begin Logout; TerminateScript; End else // Altar := DTMFromString('mggAAAHicY2NgYIhjZGBIB+JQKE4DYlsgbgDKVUJxCxSD2CtXbmR4v1+ZYdXqTQw7dhxkmD59HpgvApTDhhlxYAgAACzOETk='); //if FindDTMRotated(Altar, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then Begin Mouse(320, 120, 30, 30, false); if ChooseOption('> Altar') then Begin writeln('Found The GAltar Using bones.') Wait(3000 + random(75)); MouseBox(227, 405, 284, 435, 1); Wait(43000 + random(3225)); End else begin Mouse(320, 120, 30, 30, false); if ChooseOption('> Altar') then Begin writeln('Found The GAltar Using bones.') Wait(3000 + random(75)); MouseBox(227, 405, 284, 435, 1); Wait(43000 + random(3225)); End else Begin Mouse(320, 120, 30, 30, false); if ChooseOption('> Altar') then Begin writeln('Found The GAltar Using bones.') Wait(3000 + random(75)); MouseBox(227, 405, 284, 435, 1); Wait(43000 + random(3225)); End end; end; Begin If FindNormalRandoms then Begin Logout; TerminateScript; End else InvMouse(9, 3); wait(1500 + random(100)); if isuptext('Bury') then Begin ClickMouse2(False); wait(200 + Random(50)); ChooseOption('Use'); FFlag(0); Wait(600 + Random(250)); GAltar; End else Begin writeln('Something went wrong there was no bones or no altar found') //TeleToBank; End; End; //ClickMouse2(True); // end else // if not FindDTMRotated(Altar, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then // writeln('Found No GAltar'); // FreeDTM(Altar); end; end; procedure Useing; begin If FindNormalRandoms then Begin Logout; TerminateScript; End else InvMouse(9, 3); if isuptext('Bury') then ClickMouse2(False); wait(200 + Random(50)); ChooseOption('Use'); FFlag(0); Wait(600 + Random(250)); GAltar; SmallReport(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; LogInPlayer; Writeln('Gilded Altar By Evlin updated by killer06'); Writeln('Version 2.13'); repeat BankandTele; OpenDoor; Wait(2500 + random(230)); MouseBox(250, 40, 268, 73, 1); Wait(3000 + random(275)); RBurner; Wait(3300 + random(175)); LBurner; Wait(3000 + random(188)); Useing; // Wait(35000 + random (200)); //TakeBoB; TeleToBank; Inc(Runs); IncEx(Used,25); Until(Not Loggedin) end.
hope this is going to work for ya guys
start at bank have your camera to north and up
altar must be north and glory west of it
Last edited by killer06; 03-23-2012 at 03:38 PM.
nah not better it misclicks the burners all the time![]()
Use this 1 my versionCode:program Gilded_Altar; //By Evlin Edited by Pkownage135 {$i srl/srl/misc/smart.simba} {$DEFINE CRASHSMART} {$i SRL\SRL.simba} {$i SPS\SPS.simba} var Clock: TIntegerArray; ActionText: TStringArray; Runs,Used:Integer; 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; // just leave it as is. Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one. Players[0].Integers[1] := 10000; // Number of loads end; /////////////////////////////////////////////////////////////////////////////// ///////////////No Further Than Here(Unless Permission Was granted)///////////// /////////////////////////////////////////////////////////////////////////////// procedure SmallReport(Action: Integer); begin ClearDebug; ActionText := ['BankandTele','Useing','UseBankNPC']; Clock := [0,0,0]; ConvertTime(GetTimeRunning,Clock[0],Clock[1],Clock[2]); writeln('(---Evlins Gilded Altar`---)'); Writeln('Time Running ' +tostr(Clock[0])+':'+tostr(Clock[1])+':'+tostr(Clock[2])); writeln('Current Process: '+ActionText[Action]); Writeln('Runs Done:' +IntToStr(runs)); end; function UseBankNPC: Boolean; var bx, by, Speed, ColFace, ColGrey, ColBlue, ColHair, t: Integer; begin If FindNormalRandoms then Begin Logout; TerminateScript; End else 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 + 3000); 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 FindNormalRandoms then Begin Logout; TerminateScript; End else if (N > 3) then begin Exit; end; ClickNorth(SRL_Angle_High); 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); 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(3000 + Random(957)); begin SPS_Setup(RUNESCAPE_SURFACE, ['10_6']); SPS_Continue := true; SPS_WalkPath([Point(4214, 2686)]); FFlag(0); Wait(2000 + Random(200)); N:=0; end; end; Procedure OpenDoor; var x, y : integer; begin If FindNormalRandoms then Begin Logout; TerminateScript; End else 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); until ChooseOption('Open'); end; end; procedure RBurner; var Rburn,x,y:integer; aFound:extended; begin If FindNormalRandoms then Begin Logout; TerminateScript; End else RBurn := DTMFromString('mlwAAAHicY2dgYDjKyMCwG4hPQ/F+ID4GxIeBeCJQfi4QzwPiTiDuAOJGqNib168Ywp0MGPystRkSvcwYQh30GX4cVQKLSQLlcWFGPBgKAFYAEqk='); 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 If FindNormalRandoms then Begin Logout; TerminateScript; End else LBurn := DTMFromString('mrAAAAHic42BgYOBlZGBgBuIfQDYTkBYBYnEg5oKK7waKrwLijUB8BIq3AvESIN4HxMFBgQxTy0QYMgOsGCKdDRl8rbQZbPQUwTjM0YBBDqgGH2YkgGEAAAYzDmM='); if FindDTMRotated(LBurn, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then Begin writeln('Found Left 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 If FindNormalRandoms then Begin Logout; TerminateScript; End else Altar := DTMFromString('mggAAAHicY2NgYHjIyMDwD4hPAPF9IH4MxNeAeAtQbh0QbwLiA0C8AohXAnGkixHDtePyDHdvnWUIsNVlWD9dkiEjRI9BBCiHDTPiwBAAAB4tEgE='); if FindDTMRotated(Altar, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then Begin writeln('Found The GAltar Using bones.') MMouse(x, y, 7, 7); Wait(250); ClickMouse2(True); end else if not FindDTMRotated(Altar, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then writeln('Found No GAltar'); FreeDTM(Altar); end; procedure Useing; begin If FindNormalRandoms then Begin Logout; TerminateScript; End else InvMouse(9, 3); if isuptext('Bury') then ClickMouse2(False); wait(200); ChooseOption('Use'); FFlag(0); Wait(600 + Random(250)); GAltar; Wait(4000 + random(75)); MouseBox(227, 405, 284, 435, 1); SmallReport(1); end; procedure BankandTele; begin //Marrentil := DTMFromString('mggAAAHicY2NgYJjOyMCwGIjnAfEEIG4H4olAnA2USwXiQiAuAOIsIM4AYp5gPiDJhIFFGLADRhwYAgCsawah'); //DragonBones := DTMFromString('mggAAAHicY2NgYOBlgAAQLQPEbEAsBcRMQMwB5XMBMSNU3fIFC6CyqJifATtgxIEhAADMUAJ+'); begin repeat UseBankNPC; until BankScreen; end; begin //if WithdrawItem(Marrentil, 'dtm', 1, 'lean', []) then //if WithdrawItem(Marrentil, 'dtm', 1, 'lean', []) then //WithdrawItem(DragonBones, 'dtm', 25, 'ragon', []) then if Withdraw(8, 0, 1) then if Withdraw(8, 0, 1) then if Withdraw(9, 0, 25) then if BankScreen then CloseBank; Wait(1000 + Random(350)) KeyDown(VK_F1); Wait(300 + Random(100)) KeyUp(VK_F1); InvMouse(1, 1); //FreeDTM(Marrentil); //FreeDTM(DragonBones); SmallReport(1); end; end; begin NumberOfPlayers(1); CurrentPlayer := 0; Players[0].Active:= True; Smart_Server := 15; Smart_Signed := True; Smart_Members := True; Smart_SuperDetail := False; SetupSRL; DeclarePlayers; LogInPlayer; Writeln('Gilded Altar By Evlin /Edited By Pkownage135'); Writeln('Version 1.50'); repeat BankandTele; OpenDoor; Wait(2200 + random(75)); MouseBox(250, 40, 268, 73, 1); Wait(6200 + random(75)); RBurner; Wait(5000 + random(75)); LBurner; Wait(5100 + random(88)); Useing; Wait(41000 + random(125)); TeleToBank; Inc(Runs); IncEx(Used,25); Until(Not Loggedin) end.![]()
If you guys wanna send me your versions as .Simba files, i'll add it to the main thread for you.
Got it to work
Last edited by Incanumix; 03-24-2012 at 05:25 AM.
i also added now a check so no more burner missclicks + a check if he didnt tele somehow and another check if he didnt take bones.
in v2.13 updated by killer06
This is the updated version with an xp/hour Progress ReportCode:program Gilded_Altar; //By Evlin Edited By Pkownage135 {$i srl/srl/misc/smart.simba} {$DEFINE CRASHSMART} {$i SRL\SRL.simba} {$i SPS\SPS.simba} var Clock: TIntegerArray; ActionText: TStringArray; Runs,Used:Integer; 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; // just leave it as is. Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one. Players[0].Integers[1] := 10000; // Number of loads end; /////////////////////////////////////////////////////////////////////////////// ///////////////No Further Than Here(Unless Permission Was granted)///////////// /////////////////////////////////////////////////////////////////////////////// procedure SmallReport(Action: Integer); begin ClearDebug; ActionText := ['BankandTele','Useing','UseBankNPC']; Clock := [0,0,0]; ConvertTime(GetTimeRunning,Clock[0],Clock[1],Clock[2]); writeln('(---Evlins Gilded Altar`---)'); Writeln('Time Running ' +tostr(Clock[0])+':'+tostr(Clock[1])+':'+tostr(Clock[2])); writeln('Current Process: '+ActionText[Action]); Writeln('Runs Done:' +IntToStr(runs)); end; function XPPerHour : integer; Begin Result:= Round((XPPerhour / (GetTimeRunning / 1000)) * 3600); end; function UseBankNPC: Boolean; var bx, by, Speed, ColFace, ColGrey, ColBlue, ColHair, t: Integer; begin If FindNormalRandoms then Begin Logout; TerminateScript; End else 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 FindNormalRandoms then Begin Logout; TerminateScript; End else if (N > 3) then begin Exit; end; ClickNorth(SRL_Angle_High); 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); 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(3500 + Random(957)); begin SPS_Setup(RUNESCAPE_SURFACE, ['10_6']); SPS_Continue := true; SPS_WalkPath([Point(4210, 2682)]); FFlag(0); Wait(1500 + Random(200)); N:=0; end; end; Procedure OpenDoor; var x, y : integer; begin If FindNormalRandoms then Begin Logout; TerminateScript; End else KeyUp(VK_F1); Wait(5500 + Random(250)); begin if FindObjCustom(X, Y, ['oor','Doo'], [4807789,5268855,5137269,5466749], 2) then GetMousePos(X, Y); Mouse(260, 66, 30, 30, false); if ChooseOption('Open') then begin end else begin Mouse(260, 66, 30, 30, false); if ChooseOption('Open') then begin end else begin Mouse(260, 66, 30, 30, false); if ChooseOption('Open') then begin end else begin Wait(300 + Random(100)) KeyUp(VK_F1); InvMouse(1, 1); OpenDoor; end; end; end; end; end; procedure RBurner; var Rburn,x,y:integer; aFound:extended; begin If FindNormalRandoms then Begin Logout; TerminateScript; End else RBurn := DTMFromString('mggAAAHicY2NgYFBjZGDQAmIVINYDYg0gVgTiHqBcAxBXA3EzEE8F4glA/PTJQ4YnWxUYnI1VGTzMNBi+f//G8O7NMwZ+oBw2zIgDQwAAkjMPzw=='); 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); if isuptext('burner') then begin Mouse(x, y, 0, 0, True); end else if isuptext('2 more') then begin end else begin RBurner; end 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 If FindNormalRandoms then Begin Logout; TerminateScript; End else LBurn := DTMFromString('mrAAAAHic42BgYOCEYn4gZgdiISBmZYAALiAWBmIZIJYEYnEgFgBiNqg8ExA/f/6MIdzRgOHbl08MX169ZJg0oY3h3gZ5BnsDZTCWhOrFhRkJYBgAAIBxDzE='); if FindDTMRotated(LBurn, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then Begin writeln('Found Left Burner, Lighting it.') MMouse(x, y, 7, 7); if isuptext('burner') then begin Mouse(x, y, 0, 0, True); end else if isuptext('2 more') then begin end else begin LBurner; end 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 BankandTele; begin //Marrentil := DTMFromString('mggAAAHicY2NgYJjOyMCwGIjnAfEEIG4H4olAnA2USwXiQiAuAOIsIM4AYp5gPiDJhIFFGLADRhwYAgCsawah'); //DragonBones := DTMFromString('mggAAAHicY2NgYOBlgAAQLQPEbEAsBcRMQMwB5XMBMSNU3fIFC6CyqJifATtgxIEhAADMUAJ+'); begin repeat UseBankNPC; until BankScreen; end; begin //if WithdrawItem(Marrentil, 'dtm', 1, 'lean', []) then //if WithdrawItem(Marrentil, 'dtm', 1, 'lean', []) then //WithdrawItem(DragonBones, 'dtm', 25, 'ragon', []) then if Withdraw(8, 0, 1) then if Withdraw(8, 0, 1) then if Withdraw(9, 0, 25) then if BankScreen then CloseBank; Wait(1000 + Random(350)) KeyDown(VK_F1); Wait(300 + Random(100)) KeyUp(VK_F1); InvMouse(1, 1); //FreeDTM(Marrentil); //FreeDTM(DragonBones); SmallReport(1); end; end; procedure GAltar; var Altar,x,y:integer; aFound:extended; begin If FindNormalRandoms then Begin Logout; TerminateScript; End else // Altar := DTMFromString('mggAAAHicY2NgYIhjZGBIB+JQKE4DYlsgbgDKVUJxCxSD2CtXbmR4v1+ZYdXqTQw7dhxkmD59HpgvApTDhhlxYAgAACzOETk='); //if FindDTMRotated(Altar, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then Begin Mouse(320, 120, 30, 30, false); if ChooseOption('> Altar') then Begin writeln('Found The GAltar Using bones.') Wait(3000 + random(75)); MouseBox(227, 405, 284, 435, 1); Wait(43000 + random(3225)); End else begin Mouse(320, 120, 30, 30, false); if ChooseOption('> Altar') then Begin writeln('Found The GAltar Using bones.') Wait(3000 + random(75)); MouseBox(227, 405, 284, 435, 1); Wait(43000 + random(3225)); End else Begin Mouse(320, 120, 30, 30, false); if ChooseOption('> Altar') then Begin writeln('Found The GAltar Using bones.') Wait(3000 + random(75)); MouseBox(227, 405, 284, 435, 1); Wait(43000 + random(3225)); End end; end; Begin If FindNormalRandoms then Begin Logout; TerminateScript; End else InvMouse(9, 3); wait(1500 + random(100)); if isuptext('Bury') then Begin ClickMouse2(False); wait(200 + Random(50)); ChooseOption('Use'); FFlag(0); Wait(600 + Random(250)); GAltar; End else Begin writeln('Something went wrong there was no bones or no altar found') //TeleToBank; End; End; //ClickMouse2(True); // end else // if not FindDTMRotated(Altar, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then // writeln('Found No GAltar'); // FreeDTM(Altar); end; end; procedure Useing; begin If FindNormalRandoms then Begin Logout; TerminateScript; End else InvMouse(9, 3); if isuptext('Bury') then ClickMouse2(False); wait(200 + Random(50)); ChooseOption('Use'); FFlag(0); Wait(600 + Random(250)); GAltar; SmallReport(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; LogInPlayer; Writeln('Gilded Altar By Evlin updated by Pkownage135/Killer06'); Writeln('Version 2.13'); WriteLn('XP Per Hour: '+IntToStr(XPPerHour)) repeat BankandTele; OpenDoor; Wait(2500 + random(230)); MouseBox(250, 40, 268, 73, 1); Wait(3000 + random(275)); RBurner; Wait(3300 + random(175)); LBurner; Wait(3000 + random(188)); Useing; // Wait(35000 + random (200)); //TakeBoB; TeleToBank; Inc(Runs); IncEx(Used,25); Until(Not Loggedin) end.
The bot doesn't log in for me or run![]()
Last edited by Pendulum_From_Rid; 03-24-2012 at 05:55 PM.
There are currently 1 users browsing this thread. (0 members and 1 guests)