Public feed
#726970
{.Script Info:
# ScriptName = Auto Edgy Yewz
# Author = ->[Nauman]<-
# Description = Chops yewz then banks then in Edgeville bank
# Version = 0.1
#Instructions = 1.Start in edgeville bank
2.Only axes you can use are Rune and addy. Dont wield
3.Specify client window
4.logged in or logged out
5.Post Proggies
6.Enjoy!!!
}
{ /-------------\ /---------
/ \ / \
/ \ / \
| | | | | |
| | | | | |
| | | | | |
|________| | |______ | |
/ / / /
/ / / /
/ / / / SCRIPT
/ / UPER / /_____
/ / |/ |/ |
/ / | | |
/ / | | |
/ / | | |
/ /________ \ /
| | | \ /
| | | \------------/
| | |
| | |
\ /
\ /
\ /
\---------/ }
program AutoYewz;
{.include srl/srl.scar}
{.include SRL/SRL/skill/WoodCutting.scar}
var
x,y,Rune,Addy,Loads,LoadsB,LogsChopped,DeathsAvoided:integer;
Axe,position:string;
procedure loadvars;
begin
Rune := DTMFromString('78DA639CCEC4C0F09401051485F1318800694' +
'620FE0F048C4B806AEEA2AA718E4864E082AA0101C6C54035F751' +
'D5D887C6A1AA590A547313558D4B740A8A1A00CFA10E03'); //rune
Addy := DTMFromString('78DA6374606060686440014D497C0C22409A1' +
'188FF0301A337905187AAC6C6D786810BAA0604187D804415AA1A' +
'7B7F7B5435BE40A21C558D73B0338A1A00C1660AA8'); //addy
end;
const
Direction='W'; // direction to run if in case of fight
Mask='Norton-Anti-Virus'; //what you want scar to desguise it's self as?
LoadsD=23;//how many loads
VersionNumber='0.1';//leave it alone!
Procedure DeclarePlayers;
Begin
Disguise(Mask);
getapplication.MINIMIZE;
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';//Your Username.
Players[0].Pass :=''; // Your Password.
Players[0].Nick :=''; // 3-4 letters from your name.
Players[0].Active := True; //True = Use player, False = Don't use.
Players[0].pin :=0000; //pin in here if you dont have dont touch!
writeln(inttostr(HowManyPlayers)+' Players');
end;
procedure sig;
begin;
cleardebug;
writeln(' ######## ######### Super ')
wait(750)
writeln(' # # Script ')
writeln(' # # ')
wait(750)
writeln(' # # # # # # # # # B ')
wait(750)
writeln(' # # Y ')
wait(750)
writeln(' # # ->[Nauman]<- ')
wait(750)
writeln('##### ### ######## ')
wait(1000)
end;
Function FindFastRandoms: Boolean; //By Wt-Fakawi
var
i: Integer;
begin
for i:=1 to 11 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: begin
if FindFight then
begin
RunTo(Direction,False);
Wait(5000 +random(3000));
Runback;
DeathsAvoided:=DeathsAvoided+1;
end;
end;
10: If FindTalk Then
Result := True;
11: If ClickToContinue Then
Result := True;
end;
end;
end;
Procedure AntiBannage;
begin
Case Random (30) of
0:Typesend('....')
5:AlmostLogout;
9:HoverSkill ('woodcutting',false);
19:BoredHuman;
25:RandomMovement;
30:RandomRClick;
end;
end;
Procedure WaitWhileCutting;
begin
repeat
FindFastRandoms;
FindEnt(x,y,true)
AntiBannage
until(not isuptext('Chop'))
end;
Procedure WalktoYewz;
Begin;
If(not(LoggedIn))then LoginPlayer;
HighestAngle;
Makecompass('N')
SetRun(True)
Gametab(4);
mouse(647, 137,0+Random(1),1-Random(1),true)
if(flagpresent)then
Flag;
if findsymbol(x,y,'dungeon') then
mouse(x,y,0+Random(1*3),4-Random(2*2),true)
if(flagpresent)then
Flag;
if findsymbol(x,y,'Tree') then
begin;
mouse(x+10,y-3,3,3,true)
wait(8000+Random(2000))
end;
end;
Procedure ChopDown;
begin;
if not(loggedin) then Exit;
SetRun(false);
gametab(4);
HighestAngle;
Begin
repeat
if FindObj(x,y,'Yew',1855816,5) then
FindFastRandoms;
FindEnt(x,y,true);
if isuptext('Chop') then
mouse(x,y,0+Random(1),3+Random(2),true);
WaitWhileCutting;
until(invfull)
logschopped:=logschopped+27;
End;
end;
procedure Bank;
begin;
if not(loggedin) then Exit;
if(invcount=28) then
If findsymbol(x,y,'dungeon')then
Makecompass('N');
Mouse(x,y,0+Random(3),1-Random(1),true);
if (FlagPresent) then Flag;
SetRun(True);
Mouse(656, 40,1+Random(2),0+Random(1),true);
if findsymbol(x,y,'Bank')then
Mouse(x,y,0+Random(3),1-Random(1),true);
OpenBankFast('eb')
if(PinScreen) then
InPin(IntToStr(Players[CurrentPlayer].Pin));
if (bankScreen) then
Deposit(2,28,2)
wait(300+Random(200))
CloseBank
LoadsB:=LoadsB+1;
end;
procedure Proggie;
var
PActive: string;
begin
cleardebug;
SRLRandomsReport;
If Players[CurrentPlayer].Active then PActive:='True' else PActive:='False';
Writeln('//=============== Auto Yewz ================\\');
Writeln('\\======== -'+VersionNumber+'- Progress Report ========//');
Writeln('/==========================================\');
Writeln('| Worked for '+ TimeRunning);
Writeln('| Chopped '+ IntToStr(LogsChopped)+(' logs.'));
Writeln('| Banked '+ IntToStr(LoadsB)+(' times.'));
writeln('| DeathsAvoided '+IntToStr(Deathsavoided)+(' times.'));
Writeln('\==========================================/');
end;
begin
SetupSRL
Sig;
LoadVars;
DeclarePlayers;
proggie;
repeat
walktoyewz;
proggie;
chopdown;
proggie;
Bank;
proggie;
until(LoadsD=Loads)
end.