Timothegreat
2007-08-09 22:22:05
Timothegreat - SRL Member Application Form
What is the meaning to life?
To make scripts!!!!! :D
Where you Referred to SRL? If yes, by whom?
No but i have referred someone
Programming Knowledge
html, some php
Other Communitys
None
How Long have You Played Runescape
5+ years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Almost everyday I either test or create a script. I love srl and I know that I can work hard to help the community with the knowledge i have already or gained knowledge. I am not in the autoing "business" for money, I just love scripting and feeling proud of myself after creating a good script that works. I hate people who think autoing is just for monetary gain. I have gained so much knowledge already and that makes me feel good. I take a lot of pride in scripting standards. If i become an srl member, I will gain even more knowledge, help the community, and help others script or learn to become better scripters. Thank you to everyone who has pushed me to become a better scripter and to those who have helped me out on my journey to success. Thanks Dan Cardin, JAD, Yohojo, Hugolord, SantaClause :) and many more for helping me out.
Thank you for your time,
Timothegreat
——————————————————
My autofighter with forms which i made myself!
And this is my beta autowoodcutter and banker
if you wish to see my unreleased autocooker for draynor or my powerminer then just ask. :)
——————————————————
What is the meaning to life?
To make scripts!!!!! :D
Where you Referred to SRL? If yes, by whom?
No but i have referred someone
Programming Knowledge
html, some php
Other Communitys
None
How Long have You Played Runescape
5+ years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Almost everyday I either test or create a script. I love srl and I know that I can work hard to help the community with the knowledge i have already or gained knowledge. I am not in the autoing "business" for money, I just love scripting and feeling proud of myself after creating a good script that works. I hate people who think autoing is just for monetary gain. I have gained so much knowledge already and that makes me feel good. I take a lot of pride in scripting standards. If i become an srl member, I will gain even more knowledge, help the community, and help others script or learn to become better scripters. Thank you to everyone who has pushed me to become a better scripter and to those who have helped me out on my journey to success. Thanks Dan Cardin, JAD, Yohojo, Hugolord, SantaClause :) and many more for helping me out.
Thank you for your time,
Timothegreat
——————————————————
My autofighter with forms which i made myself!
program Fighter;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\Fighting.scar}
{.include SRL\SRL\misc\trade.scar}
{.include SRL\SRL\misc\form.scar}
{be sure to put the form.scar file into your srl/srl/misc includes folder
or else this script will not run the form or the script
And also, the form takes about 10 seconds to load so give it a sec
before you quit on my script, and thank you to everyone who has
supported me and my efforts
You can fight men,old guards,moss giants, and many more!
This script will work on other monsters just say its ur own
color and pick the colors for your monster }
////////////////////////////////////////////////////////////////////////
/// This is TFighter brought to you by Timothegreat ///
/// setup lines 31-39, 45-70 for player array then run the program ///
/// (you fill out a form for everything else) ///
////////////////////////////////////////////////////////////////////////
var
totalkill,recentexp,totalexp,Health,runtime,thesettime,logouttime,totaltime:integer;
eat,Bones,ate,found,melee,range,mage,accurate,rapid,longrange,staffdef,staff,attack,strength,defence:boolean;
cookedtroutDTM,ShrimpsDTM,sardineDTM,herringDTM,lobbyDTM,notfound:integer;
const
UrOwnColors = false; // use your own colors for monster?
UrOwnColor1 = 0; // if u are using your own colors fill in
UrOwnColor2 = 0; // if u are using your own colors fill in
Montol = 20; // tolerance (DO NOT TOUCH unless it messes up)
numtimes = 25; // If it does not find the monster this many times, it will logout
settrips = 10; // number of trips will do
killnum = 50; // number of monsters to kill per trip
settime = 30; // (IN MINUTES) Total Amount of minutes for user to be logged in each trip. (IN MINUTES)
waitlogtime = 15; // (IN MINUTES) Time to wait before it logs back in (IN MINUTES)
//========== Set up this player array below ==============//
procedure DeclarePlayers;
begin
NumberOfPlayers( 4 ); // DO NOT TOUCH!
CurrentPlayer :=( 0 ); // DO NOT TOUCH!
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active := true;
Players[0].Integer1 := 10; // hp to eat at (0 if not eating)
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active := true;
Players[1].Integer1 := 10; // hp to eat at (0 if not eating)
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active := true;
Players[2].Integer1 := 10; // hp to eat at (0 if not eating)
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active := true;
Players[3].Integer1 := 10; // hp to eat at (0 if not eating)
NickNameBMP:=CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, upchars);
end;
// DO NOT EDIT ANYTHING BELOW THIS POINT //
const
TimBoneColor =14211292; // DO NOT EDIT!
InvBoneColor =14211292; // DO NOT EDIT!
Cow1Color =4673114;
Cow2Color =8752015;
Cow3Color =5265509;
Rat1Color =8029060;
Rat2Color =8950419;
SeagullColor1 =10135206;
SeagullColor2 =15067368;
Skeleton1 =8358281;
Skeleton2 =6581356;
Wizard1Color =10184209;
Wizard2Color =9132817;
Dark1Wizard =1383709;
Dark2Wizard =858136;
GiantSpider1 =3432816;
GiantSpider2 =875376;
ScorpionColor =3816522;
JailGuard1 =1126542;
JailGuard2 =5995399;
Blackknight1 =1118485;
Blackknight2 =2236964;
Old1Guard =1122460;
Old2Guard =6579308;
New1Guard =879492;
New2Guard =1616336;
Man1Color =5070925;
Man2Color =5390914;//4741960;
Mossy1Color =5272949;
Mossy2Color =2703176;
Lesser1Color =1385564;
Lesser2Color =3950979;
Deadredcolor =2755968;
KaridWarrior =7409010;
FeatherColor =12764106;
CookedChicken =872838;
SalmonColor =1723103;
PikeColor =6921080;
KebabColor =1413393;
ApplePieColor =4485265;
LobsterColor =1666249;
var
Mon1Color,Mon2Color,Food1DTM,Food2DTM,trips,Items,Buried:Integer;
SalmonDTM,PikeDTM,TunaDTM,KebabDTM,ChickenDTM:integer;
//==============DO NOT EDIT BELOW THIS POINT!!!===============//
procedure setup1;
begin
ChickenDTM := DTMFromString('78DA631461606090604001ED41BC609A11CA6' +
'7140012F20C688011550D17901025A04609488813502346845DDC' +
'44A8910312D204D4B0030949FC6A00DF720269');
KebabDTM := DTMFromString('78DA63E465606010614001B39BC318B880342' +
'310FF0702466120439C010D302291409A0748481150C30A24F809' +
'A8910512DC04D4C800090122EC1221A086134870E25703003EAB0' +
'696');
ShrimpsDTM := DTMFromString('78DA63E467606090624001CB0A4519B880342' +
'310FF0702464E204392010D302291405A1048C81050238E691786' +
'1A903D2204D480DC2C4E400D3B9010C5AF060027B6065F');
CookedTroutDTM := DTMFromString('78DA6314666060106140019D85B90C5C409A1' +
'188FF0301A3149021C88006189148202D0A24C408A801D9254940' +
'0D3F909026A006E43859026A5880840C0135EC404294801A5E202' +
'140400D0711EE61051212F8D50000417D0723');
SardineDTM := DTMFromString('78DA63E4616060E0654001731A6A18B880342' +
'310FF07024610878B010D302291409A1548F011A14698801A6E20' +
'2148400D3F906021A0460C4870125023002438F0AB01002A6C067' +
'4');
HerringDTM := DTMFromString('78DA63E463606010604001FD65450C5C409A1' +
'188FF030123489E93010D302291409A0348F01050C302248409A8' +
'01592C4E408D3011E64801093E026A2480042B01353240821DBF1' +
'A000F9406A9');
SalmonDTM := DTMFromString('78DA6314646060106540012F036419B880342' +
'310FF0702460E204398010D302291401A24CF4B400D3F909026A0' +
'460648701150C30E246409A86101129204D43013E11E3E20C1875' +
'F0D000D6906A3');
PikeDTM := DTMFromString('78DA6314666060106540016D6B4A19B880342' +
'310FF0702464120439A010D302291401AA48687801A903DBC04D4' +
'C801092E026A3881842C01356C404282801A903DC204D44810F61' +
'7007C810708');
TunaDTM := DTMFromString('78DA631460606010674005B20C0C5C408A118' +
'8FF030123485E0C4D0D58164602691920214C841A5E026A406670' +
'1250C306244408A86101129204D4803C2943400D3F613500B5000' +
'58E');
LobbyDTM := DTMFromString('78DA631465606010614001BB924419B880342' +
'310FF07024619204382010D302291405A1848C81050230D247809' +
'A81102120204D47011A1861548881350230624148970B31C116A5' +
'809A85100121CF8D500000931071C');
case LowerCase(eatorno) of
'yes' : eat:=true;
'no' : eat:=false;
end;
case LowerCase(buryorno) of
'yes' : Bones:=true;
'no' : Bones:=false;
end;
mage:=false;
melee:=false;
range:=false;
attack:=false;
strength:=false;
defence:=false;
staffdef:=false;
staff:=false;
accurate:=false;
rapid:=false;
longrange:=false;
case LowerCase(combat) of
'mage' : mage:=true;
'melee' : melee:=true;
'range' : range:=true;
end;
if mage then
begin
case LowerCase(magetype) of
'staff with defence' : staffdef:=true;
'staff with defense' : staffdef:=true;
'staff' : staff:=true;
end;
end;
if melee then
begin
case LowerCase(meleetype) of
'attack' : attack:=true;
'strength' : strength:=true;
'defence' : defence:=true;
end;
end;
if range then
begin
case LowerCase(rangetype) of
'accurate' : accurate:=true;
'rapid' : rapid:=true;
'longrange' : longrange:=true;
end;
end;
if UrOwnColors then
begin
Mon1Color:=UrOwnColor1;
Mon2Color:=UrOwnColor2;
end else
begin
case LowerCase(monster) of
'cow' : Mon1Color:=Cow1Color; // DO NOT TOUCH!
'man' : Mon1Color:=Man1Color; // DO NOT TOUCH!
'scorpion' : Mon1Color:=ScorpionColor; // DO NOT TOUCH!
'moss giant' : Mon1Color:=Mossy1Color; // DO NOT TOUCH!
'old guard' : Mon1Color:=Old1Guard; // DO NOT TOUCH!
'deadly red' : Mon1Color:=Deadredcolor; // DO NOT TOUCH!
'kharid warrior':Mon1Color:=KaridWarrior; // DO NOT TOUCH!
'rat' : Mon1Color:=Rat1Color; // DO NOT TOUCH!
'seagull' : Mon1Color:=SeagullColor1; // DO NOT TOUCH!
'giant spider': Mon1Color:=GiantSpider1; // DO NOT TOUCH!
'wizard' : Mon1Color:=Wizard1Color; // DO NOT TOUCH!
'dark wizard' : Mon1Color:=Dark1Wizard; // DO NOT TOUCH!
'black knight': Mon1Color:=Blackknight1; // DO NOT TOUCH!
'skeleton' : Mon1Color:=Skeleton1; // DO NOT TOUCH!
'new guard' : Mon1Color:=New1Guard; // DO NOT TOUCH!
'lesser demon': Mon1Color:=Lesser1Color; // DO NOT TOUCH!
end;
case LowerCase(monster) of
'cow' : Mon2Color:=Cow2Color; // DO NOT TOUCH!
'man' : Mon2Color:=Man2Color; // DO NOT TOUCH!
'scorpion' : Mon2Color:=ScorpionColor; // DO NOT TOUCH!
'moss giant' : Mon2Color:=Mossy2Color; // DO NOT TOUCH!
'old guard' : Mon2Color:=Old2Guard; // DO NOT TOUCH!
'deadly red' : Mon2Color:=Deadredcolor; // DO NOT TOUCH!
'kharid warrior':Mon2Color:=KaridWarrior; // DO NOT TOUCH!
'rat' : Mon2Color:=Rat2Color; // DO NOT TOUCH!
'seagull' : Mon2Color:=SeagullColor2; // DO NOT TOUCH!
'giant spider': Mon2Color:=GiantSpider2; // DO NOT TOUCH!
'wizard' : Mon2Color:=Wizard2Color; // DO NOT TOUCH!
'dark wizard' : Mon2Color:=Dark2Wizard; // DO NOT TOUCH!
'black knight': Mon2Color:=Blackknight2; // DO NOT TOUCH!
'skeleton' : Mon2Color:=Skeleton2; // DO NOT TOUCH!
'new guard' : Mon2Color:=New2Guard; // DO NOT TOUCH!
'lesser demon': Mon2Color:=Lesser2Color; // DO NOT TOUCH!
end;
end;
case LowerCase(monster) of
'cow' : Health:=8; // DO NOT TOUCH!
'man' : Health:=7; // DO NOT TOUCH!
'scorpion' : Health:=17; // DO NOT TOUCH!
'moss giant' : Health:=60; // DO NOT TOUCH!
'old guard' : Health:=22; // DO NOT TOUCH!
'deadly red' : Health:=35; // DO NOT TOUCH!
'kharid warrior':Health:=19; // DO NOT TOUCH!
'giant rat' : Health:=10; // DO NOT TOUCH!
'seagull' : Health:=6; // DO NOT TOUCH!
'giant spider': Health:=5; // DO NOT TOUCH!
'wizard' : Health:=14; // DO NOT TOUCH!
'dark wizard' : Health:=12; // DO NOT TOUCH!
'black knight': Health:=42; // DO NOT TOUCH!
'skeleton' : Health:=15; // DO NOT TOUCH!
'new guard' : Health:=22; // DO NOT TOUCH!
'lesser demon': Health:=80; // DO NOT TOUCH!
end;
case Lowercase(Food1) of
'shrimp' : Food1DTM:=ShrimpsDTM; // DO NOT TOUCH!
'chicken' : Food1DTM:=ChickenDTM; // DO NOT TOUCH!
'sardine' : Food1DTM:=SardineDTM; // DO NOT TOUCH!
'herring' : Food1DTM:=HerringDTM; // DO NOT TOUCH!
'trout' : Food1DTM:=CookedtroutDTM; // DO NOT TOUCH!
'salmon' : Food1DTM:=SalmonDTM; // DO NOT TOUCH!
'pike' : Food1DTM:=PikeDTM; // DO NOT TOUCH!
'lobster' : Food1DTM:=LobbyDTM; // DO NOT TOUCH!
'kebab' : Food1DTM:=KebabDTM; // DO NOT TOUCH!
'tuna' : Food1DTM:=TunaDTM; // DO NOT TOUCH!
end;
case Lowercase(Food2) of
'shrimp' : Food2DTM:=ShrimpsDTM; // DO NOT TOUCH!
'chicken' : Food2DTM:=ChickenDTM; // DO NOT TOUCH!
'sardine' : Food2DTM:=SardineDTM; // DO NOT TOUCH!
'herring' : Food2DTM:=HerringDTM; // DO NOT TOUCH!
'trout' : Food2DTM:=CookedtroutDTM; // DO NOT TOUCH!
'salmon' : Food2DTM:=SalmonDTM; // DO NOT TOUCH!
'pike' : Food2DTM:=PikeDTM; // DO NOT TOUCH!
'lobster' : Food2DTM:=LobbyDTM; // DO NOT TOUCH!
'kebab' : Food2DTM:=KebabDTM; // DO NOT TOUCH!
'tuna' : Food2DTM:=TunaDTM; // DO NOT TOUCH!
end;
end;
// Antirandoms //
function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
for i := 1 to 8 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: RC;
end;
wait(1);
end;
end;
// Sets chats //
procedure DoMyChats;
begin
if (not(LoggedIn))then
exit;
SetChat('On', 1);
SetChat('On', 1);
SetChat('Friends', 2);
SetChat('Friends', 2);
SetChat('On', 3);
SetChat('On', 3);
end;
////// Sets up character for meleeing /////
procedure meleesetup;
begin
gametab(1);
if (not(LoggedIn))then
exit;
if melee then
begin
if attack then
begin
Mouse(606,270,2,2,true);
end;
if strength then
begin
Mouse(689,270,2,2,true);
end;
if defence then
begin
Mouse(689,325,2,2,true);
end;
end;
end;
////// Sets up character for ranging /////
procedure rangesetup;
begin
gametab(1);
if (not(LoggedIn))then
exit;
if range then
begin
Mouse(545,186,1,1,true);
if accurate then
begin
Mouse(599,271,5,5,true);
end;
if rapid then
begin
Mouse(684,271,5,5,true);
end;
if longrange then
begin
Mouse(605,322,5,5,true);
end;
end;
end;
//////// Chooses the spell to use //////
procedure choosespell;
begin
case LowerCase(spell) of
'wind strike' : Mouse(583,227,1,1,true);
'water strike': Mouse(624,229,1,1,true);
'earth strike': Mouse(664,228,1,1,true);
'fire strike' : Mouse(703,228,1,1,true);
'wind bolt' : Mouse(583,270,1,1,true);
'water bolt' : Mouse(624,269,1,1,true);
'earth bolt' : Mouse(663,269,1,1,true);
'fire bolt' : Mouse(704,270,1,1,true);
'wind blast' : Mouse(582,310,1,1,true);
'water blast' : Mouse(622,313,1,1,true);
'earth blast' : Mouse(664,314,1,1,true);
'fire blast' : Mouse(703,313,1,1,true);
end;
end;
////// Sets up character for ranging /////
procedure magesetup;
begin
gametab(1);
if (not(LoggedIn))then
exit;
if mage then
begin
if staffdef then
begin
Mouse(688,270,1,1,true);
end;
if staff then
begin
Mouse(686,333,1,1,true);
end;
choosespell;
end;
end;
////////////////////////
procedure FindtheMonster(color1, color2 : integer);
var
tries:integer;
begin
if (not(LoggedIn))then
exit;
Findfastrandoms;
For tries:=0 to 10 do
begin
case Random(2) of
0: begin
x:=x+random(25)
y:=y+random(25)
end;
1: begin
x:=x-random(25)
y:=y-random(25)
end;
2: begin
x:=x+random(50)
y:=y+random(50)
end;
3: begin
x:=x-random(50)
y:=y-random(50)
end;
end;
if (FindColorTolerance(x,y,color1,MSX1,MSY1,MSX2,MSY2,10)) or
(FindColorTolerance(x,y,color2,MSX1,MSY1,MSX2,MSY2,10)) then
begin
MMouse(x,y,0,0);
end else
begin
notfound:= notfound + 1;
writeln('could not find monster');
end;
if isuptext('ttack')then
begin
found:=true;
break;
end;
end;
end;
////////////////////////
procedure FindtheItem(color1, color2 : integer);
var
i:integer;
begin
if (not(LoggedIn))then
exit;
Findfastrandoms;
For i:=0 to 40 do
begin
case Random(2) of
0: begin
x:=x+random(25)
y:=y+random(25)
end;
1: begin
x:=x-random(25)
y:=y-random(25)
end;
2: begin
x:=x+random(50)
y:=y+random(50)
end;
3: begin
x:=x-random(50)
y:=y-random(50)
end;
end;
if (FindColorTolerance(x,y,color1,MSX1,MSY1,MSX2,MSY2,i)) or
(FindColorTolerance(x,y,color2,MSX1,MSY1,MSX2,MSY2,i)) then
begin
MMouse(x,y,0,0);
end;
if bones then
begin
if isuptext('Take Bones')then
begin
found:=true;
break;
end;
end;
end;
end;
// Eating // works well
procedure eatup;
var
tx,ty:integer;
begin
if (not(LoggedIn))then
exit;
if eat then
begin
GameTab(2);
if (GetHp <= (Players[CurrentPlayer].Integer1))then
begin
GameTab(4);
Wait(10 + Random(20));
if(FindDTM(Food1DTM, tx, ty, MIX1, MIY1, MIX2, MIY2))then
begin
MMouse(tx,ty,0,0);
end;
if (IsUpText('Eat')) then
begin
GetMousePos(x, y);
Mouse(x, y, 1, 1, True);
ate:=true;
end;
if not ate then
begin
if(FindDTM(Food2DTM, tx, ty, MIX1, MIY1, MIX2, MIY2))then
begin
MMouse(x,y,0,0);
end;
if (IsUpText('Eat')) then
begin
GetMousePos(x, y);
Mouse(x, y, 1, 1, True);
ate:=true;
end;
end;
if not ate then
begin
logout;
terminatescript;
end;
end;
end;
if (GetHp <= 7)then
begin
typesend('ahhh!');
RunAwayDirection('N');
FFlag(0);
Wait(10500 + random(3500)); //
logout;
end;
end;
///////////////////
procedure OutFightO;
var
mytries: integer;
begin
if (not(LoggedIn))then
exit;
FFlag(0);
for mytries:= 1 to 5 do
begin
if(InFight)then
begin
repeat
FTWait(2);
eatup;
until(not(InFight));
exit;
end else
wait(300);
end;
end;
// Fail proggy // (if it didnt find monster enough times)
procedure failproggy;
begin
Writeln('=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=')
Writeln('')
Writeln('Thank you for using TFighter Created by Timothegreat.')
Writeln('Version: Members application')
Writeln('')
Writeln('Items picked up:'+IntToStr(items)+'(Will be more for feathers)')
Writeln('Bones picked up and buried:'+IntToStr(buried));
Writeln('Monsters killed:'+IntToStr(Totalkill));
Writeln('Could not find monster most of the time...Needs to be fixed')
Writeln('')
Writeln('=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=')
end;
// Melee Fighting //
procedure MeleeFight;
begin
if (not(LoggedIn))then
exit;
if melee then
begin
FindFastRandoms;
FindNormalRandoms;
found:=false;
FindtheMonster(Mon1Color,Mon2Color)
if found then
begin
Mouse(x,y,1,1,false)
ChooseOption(x,y,'ttack');
FFlag(0);
wait(3750+random(500));
if(InFight)then
begin
found:=false;
OutFightO;
TotalKill:= TotalKill + 1;
recentexp:= Health * 4;
totalexp:=totalexp + recentexp;
end;
end;
end;
end;
// Range Fighting //
procedure RangeFight;
begin
if (not(LoggedIn))then
exit;
if range then
begin
FindFastRandoms;
FindNormalRandoms;
found:=false;
FindtheMonster(Mon1Color,Mon2Color)
if found then
begin
Mouse(x,y,1,1,false)
ChooseOption(x,y,'ttack');
FFlag(0);
wait(3750+random(500));
if(InFight)then
begin
found:=false;
OutFightO;
TotalKill:= TotalKill + 1;
recentexp:= Health * 4;
totalexp:=totalexp + recentexp;
end;
end;
end;
end;
// Mage Fighting //
procedure MageFight;
begin
if (not(LoggedIn))then
exit;
if mage then
begin
FindFastRandoms;
FindNormalRandoms;
found:=false;
FindtheMonster(Mon1Color,Mon2Color)
if found then
begin
Mouse(x,y,1,1,false)
ChooseOption(x,y,'ttack');
FFlag(0);
wait(3750+random(500));
if(InFight)then
begin
found:=false;
OutFightO;
TotalKill:= TotalKill + 1;
recentexp:= Health * 4;
totalexp:=totalexp + recentexp;
end;
end;
end;
end;
// Pickup and Bury Bones //
procedure BuryBones;
begin
if (not(LoggedIn))then
exit;
If Bones then
begin
FindtheItem(TimBonecolor,TimBonecolor)
if found then
begin
Mouse(x,y,1,1,false);
Chooseoption(x,y,'ake');
gametab(4);
FFlag(0);
wait(random(1500));
if (FindColorTolerance(x,y,InvBoneColor,MIX1,MIY1,MIX2,MIY2,10))then
begin
Mouse(x,y,0,0,true);
Writeln('Bones Found and buried');
Buried:= Buried + 1;
end;
end else
begin
Writeln('Bones Not Found');
end;
end;
end;
// Progress Report //
procedure proggy;
begin
totaltime:= thesettime * settrips;
Writeln('=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=')
Writeln('Thank you for using TFighter Created by Timothegreat.')
Writeln('Version: 1.5')
Writeln('')
Writeln('Player number: '+IntToStr(CurrentPlayer));
Writeln('Worked for: '+IntToStr(totaltime)+' seconds')
Writeln('Items picked up: '+IntToStr(items)+'(Will be more for feathers)')
Writeln('Bones picked up and buried: '+IntToStr(buried));
Writeln('Monsters killed: '+IntToStr(Totalkill));
Writeln('Exp gained: '+IntToStr(totalexp));
Writeln('=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=')
end;
// My world switcher, it picks a random free world //
procedure switchworlds;
begin
Mouse(66,476,1,1,true);
wait(1000+random(500));
case random(19)+1 of
0: Mouse(734,10,2,2,true);
1: Mouse(121,364,1,1,true);
2: Mouse(121,389,1,1,true);
3: Mouse(121,411,1,1,true);
4: Mouse(121,457,1,1,true);
5: Mouse(121,481,1,1,true);
6: Mouse(211,44,1,1,true);
7: Mouse(214,137,1,1,true);
8: Mouse(579,343,1,1,true);
9: Mouse(581,364,1,1,true);
10: Mouse(582,388,1,1,true);
11: Mouse(671,43,1,1,true);
12: Mouse(676,67,1,1,true);
13: Mouse(671,90,1,1,true);
14: Mouse(673,203,1,1,true);
15: Mouse(677,226,1,1,true);
16: Mouse(673,249,1,1,true);
17: Mouse(675,275,1,1,true);
18: Mouse(683,340,1,1,true);
19: Mouse(675,365,1,1,true);
end;
end;
////////////////
procedure logitout;
begin
gametab(10);
Mouse(659,380,1,1,true);
end;
// Main Loop //
begin
Setupsrl;
MouseSpeed := 6;
DeclarePlayers;
setup1;
runform;
thesettime:= settime * 60000;
logouttime:= waitlogtime * 60000;
loginplayer;
DoMyChats;
setrun(true);
meleesetup;
rangesetup;
magesetup;
repeat
if (trips = settrips)then
begin
Nextplayer(true);
trips:=0;
notfound:=0;
HighestAngle;
DoMyChats;
setrun(true);
meleesetup;
rangesetup;
magesetup;
writeln('switched players...');
end;
MarkTime(runtime);
repeat
if (not(LoggedIn))then
begin
Nextplayer(false);
notfound:=0;
trips:=0;
DoMyChats;
MakeCompass('W')
HighestAngle;
setrun(true);
meleesetup;
rangesetup;
magesetup;
end;
if (notfound >= numtimes)then //switches if doesnt find monster
begin
Nextplayer(false);
DoMyChats;
notfound:=0;
trips:=0;
MakeCompass('W')
HighestAngle;
setrun(true);
meleesetup;
rangesetup;
magesetup;
end;
if (not(FindFight))then
begin
MeleeFight;
RangeFight;
MageFight;
Eatup;
BuryBones;
end else
begin
Writeln('Already in fight.')
end;
until((Totalkill >= killnum) or (runtime >= thesettime));
totalkill:= 0;
case random(2) of
1: typesend('bye');
2: wait(1);
end;
trips:= trips + 1;
wait(10000+random(2500));
Logitout;
wait(5000+random(1000));
wait(logouttime);
switchworlds;
wait(3000+random(1000));
until(false);
Proggy;
FreeDTM(ChickenDTM);
FreeDTM(KebabDTM);
FreeDTM(ShrimpsDTM);
FreeDTM(CookedTroutDTM);
FreeDTM(SardineDTM);
FreeDTM(HerringDTM);
FreeDTM(SalmonDTM);
FreeDTM(PikeDTM);
FreeDTM(TunaDTM);
FreeDTM(LobbyDTM);
end.
And this is my beta autowoodcutter and banker
program Beta;
{.include SRL\SRL.scar}
{.include SRL\SRL\misc\trade.scar}
{.include SRL\SRL\Skill\Woodcutting.SCAR}
// Version: Multi-player Beta / Pre-release by Timothegreat
// Even though this is Beta/Pre-release axe finding works well
// Credit to Fourscape for axe head finding
// Credit to Yohojo for ent finding procedure.
// Credit to Jad for axe dtms
// THIS SCRIPT WORKS IN DRAYNOR AND EDGEVILLE ONLY //
{ 1. Setup lines 26-29, setup players in lines 51-67
2. Make sure they have axes in first slot of inventory (not wielded)
3. Make sure players are in first slot of draynor bank
4. Hit run. }
const
YourSRLSTATSID = ''; // Stats ID.
YourSRLSTATSPASS = ''; // Stats Pass.
tol = 10; // this is perfect
settrip = 50; // how many loads to do
/////////DO NOT EDIT BELOW THIS///////////////////
oakcolor1 = 1990736;
oakcolor2 = 2771008; //2900024 alternate
willowcolor1 = 3432536;
willowcolor2 = 3500128;
yewcolor1 = 1724480;
yewcolor2 = 2254936; // 3440752 alternate
willowbankcolor = 2183257;
BankerColor = 7631997;
var
num,mx,my,timeswaited,tried,normallogs,oaks,willows,yews:integer;
banked,running:boolean;
AxeDTM,BrokenAxeDTM, AxeHandleDTM, AxeHeadDTM, RegularAxeDTM,
SardineDTM:Integer;
BrokenAxe,normal,oak,willow,yew,draynor,edgeville:Boolean;
timesbanked,timesbanked0,timesbanked1,timesbanked2,timesbanked3,timesbanked4,timesbanked5,
timesbanked6,timesbanked7,timesbanked8,timesbanked9,timesbanked10:Integer;
/////////////////////////
Procedure DeclarePlayers;
var x:integer;
Begin
HowManyPlayers := 4;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 1;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :=''; //3-4 letters from name
Players[0].Active:= True;
Players[0].String1:= 'Willow'; // type of log (CAPITALIZED!!!!)
Players[0].String2:= ''; // PIN number (only enter if u have 1)
Players[0].String3:= 'draynor'; // city to cut in
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :=''; //3-4 letters from name
Players[1].Active:= True;
Players[1].String1:= 'Yew'; // type of log (CAPITALIZED!!!!)
Players[1].String2:= ''; // PIN number (only enter if u have 1)
Players[1].String3:= 'draynor'; // city to cut in
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :=''; //3-4 letters from name
Players[2].Active:= True;
Players[2].String1:= 'Oak'; // type of log (CAPITALIZED!!!!)
Players[2].String2:= ''; // PIN number (only enter if u have 1)
Players[2].String3:= 'draynor'; // city to cut in
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :=''; //3-4 letters from name
Players[3].Active:= True;
Players[3].String1:= 'Oak'; // type of log (CAPITALIZED!!!!)
Players[3].String2:= ''; // PIN number (only enter if u have 1)
Players[3].String3:= 'draynor'; // city to cut in
{Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :=''; //3-4 letters from name
Players[3].Active:= True;
Players[3].String1:= 'Normal'; // type of log (CAPITALIZED!!!!)
Players[3].String2:= ''; // PIN number (only enter if u have 1)
Players[3].String3:= 'draynor'; // city to cut in}
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, upchars);
for x:=0 to HowManyPlayers-1 do
begin
Players[x].Loc := 'bank';
end
End;
///////////////// DO NOT TOUCH ANYTHING BELOW THIS //////////////////
procedure SetUp;
begin
setupsrl;
ScriptID := '233';
SRLID := YourSRLStatsID;
SRLPassword := YourSRLStatsPASS;
end;
///////////////////
procedure setitup;
begin
case Lowercase(Players[CurrentPlayer].String1)of
'normal': normal:= true;
'oak' : oak:= true;
'willow': willow:= true;
'yew' : yew:= true;
end;
case Lowercase(Players[CurrentPlayer].String3)of
'draynor': draynor:= true;
'edgeville': edgeville:= true;
end;
if draynor then
begin
ReportVars[5] := ReportVars[5] + 1;
end;
if edgeville then
begin
ReportVars[6] := ReportVars[6] + 1;
end;
end;
///////////////////
procedure LoadDTMs;
begin
Status('Loading all DTMs');
AxeDTM := DTMFromString('78DA633CCEC4C0D0CBC800021012C2E247E23' +
'39E02AA994840CD11A09A7904D45C07AAE926A0E602504D2B0135' +
'97F1ABF90F04002C1A0CA1');
BrokenAxeDTM := DTMFromString('78DA637CC7C4C0308F910104202484C58FC46' +
'7FC0854D34340CD0FA09A2E026AFE03D5F41250C3C0CCC0D04E40' +
'CD6FA039AD04D47C05AA69C1ADE63F100000CD040E2F');
AxeHandleDTM := DTMFromString('78DA63D46162601066640001080961F123F11' +
'915816AF408A8D100AA5124A0469508357A40352204D42800D568' +
'E256F31F08000D2D0629');
AxeHeadDTM := DTMFromString('78DA637CC2C0C050C5C800021012C2E241E23' +
'3BE02127504D480CCA927A0E62590A824A0E60190A825A0E63590' +
'A8C6ADE63F10000036F00CB1');
RegularAxeDTM := DTMFromString('78DA637461626060676440060DF1BC0CFF813' +
'448F43F10300601D5FC6740038C482490F604AAF94D408D13500D' +
'2B237E35F640358204D4F813618E1F50CD1F02EE0906AA61C26F0' +
'E0099720B7E');
SardineDTM := DTMFromString('78DA63E4616060E0654001731A6A18B880342' +
'310FF07024610878B010D302291409A1548F011A14698801A6E20' +
'2148400D3F906021A0460C4870125023002438F0AB01002A6C067' +
'4');
end;
////////////////////////
procedure FindTree(color1, color2 : integer);
var i:integer;
begin
For i:=0 to 10 do
begin
case Random(2) of
0: begin
x:=x+random(25)
y:=y+random(25)
end;
1: begin
x:=x-random(25)
y:=y-random(25)
end;
2: begin
x:=x+random(50)
y:=y+random(50)
end;
3: begin
x:=x-random(50)
y:=y-random(50)
end;
end;
if Findcolorspiral(x,y,color1,MSX1,MSY1,MSX2,MSY2) or
Findcolorspiral(x,y,color2,MSX1,MSY1,MSX2,MSY2) then
begin
MMouse(x,y,2,2);
end;
if isuptext('hop down')then
begin
break;
end;
end;
end;
///////////////////////
procedure draynortowillow;
begin
if (Players[CurrentPlayer].Loc ='bank') then
begin
if willow then
begin
setrun(true);
Mouse(634,148,0,0,true);
FFlag(0);
Players[CurrentPlayer].Loc:='tree';
end;
end;
end;
//////////////////////
procedure draynortoyew;
begin
if (Players[CurrentPlayer].Loc ='bank') then
begin
if yew then
begin
setrun(true);
RadialRoadWalk(FindRoadColor, 300, 320, 57, 0, 0);
FFlag(0);
if findsymbol(x,y,'Quest')then
begin
Mouse(x,y,4,4,true);
writeln('quest symbol found...');
FFlag(0);
end;
Mouse(652,41,4,4,true);
FFlag(0);
if findsymbol(x,y,'dungeon')then
begin
Mouse(x,y,4,4,true);
writeln('dungeon symbol found...');
FFlag(0);
end;
RadialRoadWalk(FindRoadColor, 253, 300, 57, 0, 0);
FFlag(0);
RadialRoadWalk(FindRoadColor, 260, 293, 63, 0, 0);
FFlag(0);
if findsymbol(x,y,'tree')then
begin
Mouse(x,y,4,4,true);
writeln('yew found...');
FFlag(0);
end;
Players[CurrentPlayer].Loc:='tree';
end;
end;
end;
////////////////////
procedure draynortooak;
begin
if (Players[CurrentPlayer].Loc ='bank') then
begin
if oak then
begin
setrun(true);
Mouse(689,95,0,0,true);
FFlag(0);
Players[CurrentPlayer].Loc:='tree';
makecompass('W');
end;
if normal then
begin
setrun(true);
Mouse(689,95,0,0,true);
FFlag(0);
Players[CurrentPlayer].Loc:='tree';
makecompass('S');
end;
end;
end;
///////////////////////////
procedure Edgevilletowillow;
begin
if (Players[CurrentPlayer].Loc ='bank') then
begin
if willow then
begin
setrun(true);
Mouse(703,72,0,0,true);
FFlag(0);
Players[CurrentPlayer].Loc:='tree';
end;
end;
end;
////////////////////////
procedure Edgevilletoyew;
begin
if (Players[CurrentPlayer].Loc ='bank') then
begin
if yew then
begin
setrun(true);
Mouse(609,127,1,1,true)
FFlag(0);
if findsymbol(x,y,'tree')then
begin
Mouse(x,y,4,4,true);
writeln('yew found...');
wait(15000);
FFlag(0);
end;
Players[CurrentPlayer].Loc:='tree';
end;
end;
end;
///////////////////////
procedure Edgevilletooak;
begin
if (Players[CurrentPlayer].Loc ='bank') then
begin
if oak then
begin
setrun(true);
Mouse(703,72,0,0,true);
wait(5000);
FFlag(0);
Mouse(661,87,1,1,true);
FFlag(0);
if findsymbol(x,y,'transportation')then
begin
Mouse(x,y,1,1,true);
end;
wait(15000);
FFlag(0);
if Findcolorspiral(x,y,5927838,MSX1,MSY1,MSX2,MSY2) or
Findcolorspiral(x,y,12895692,MSX1,MSY1,MSX2,MSY2) then
begin
MMouse(x,y,0,0);
if isuptext('se')then
begin
Mouse(x,y,0,0,true);
FFlag(0);
end;
end;
Mouse(671,136,1,1,true);
wait(1000);
FFlag(0);
Players[CurrentPlayer].Loc:='tree';
makecompass('W');
end;
if normal then
begin
setrun(true);
Mouse(628,56,0,0,true);
FFlag(0);
Players[CurrentPlayer].Loc:='tree';
makecompass('S');
end;
end;
end;
{**************************************************************************
------> All functions related to the axe/axe head here <------
**************************************************************************}
procedure withdrawaxe;
var TheAxeDTM:integer;
begin
TheAxeDTM := DTMFromString('78DA63E46360601060400175097C0C5C409A1' +
'188FF030123379021CC800618914820CD0B242408A8E100127204' +
'D47013A1461048F011500392E726A006E46F56026A8409AB01008' +
'56B0622');
if not LoggedIn then
exit;
if draynor then
begin
MakeCompass('N');
if oak or normal then
begin
Mouse(615,71,1,1,true);
flag;
end;
if willow then
begin
Mouse(640,33,1,1,true);
flag;
end;
if yew then
begin
Mouse(716,84,1,1,true);
flag;
if findsymbol(x,y,'dungeon')then
begin
Mouse(x,y,4,4,true);
writeln('dungeon symbol found...');
flag;
end;
Mouse(629,111,1,1,true);
flag;
Mouse(649,143,1,1,true);
if findsymbol(x,y,'bank')then
begin
Mouse(x,y,4,4,true);
writeln('bank symbol found...');
flag;
end else
begin
if not bankscreen then
OpenBankQuiet('db');
end;
end;
flag;
If PinScreen Then InPin(Players[CurrentPlayer].String3);
flag;
if not bankscreen then
begin
if findsymbol(x,y,'bank')then
begin
Mouse(x,y,1,1,true);
flag;
end;
end;
wait(500+random(100));
flag;
if not bankscreen then
begin
if findsymbol(x,y,'bank')then
begin
Mouse(x,y,1,1,true);
flag;
end;
end;
flag;
if not bankscreen then
begin
openbankglass('db',True,False);
end;
if PinScreen then InPin(Players[CurrentPlayer].String2);
if BankScreen then
begin
fixbank;
if not running then
begin
if (FindDTM(AxeDTM, x, y, MSX1, MSY1, MSX2, MSY2)) then
begin
Mouse(x,y,2,2,true);
end;
end;
if running then
begin
if (FindDTM(SardineDTM, x, y, MSX1, MSY1, MSX2, MSY2)) then
begin
Mouse(x,y,2,2,true);
end;
closebank;
if (FindDTM(SardineDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
Mouse(x,y,2,2,true);
end;
end;
running:=false;
wait(500+random(100));
if bankscreen then closebank;
end;
MakeCompass('N');
HighestAngle;
end;
if edgeville then
begin
if oak then
begin
Mouse(647,67,1,1,true);
FFlag(0);
if findsymbol(x,y,'transportation')then
begin
Mouse(x,y,1,1,true);
end;
wait(1000+random(1000));
FFlag(0);
Mouse(582,71,1,1,true);
wait(20000+random(1000));
FFlag(0);
Mouse(582,73,1,1,true);
findbank('eb');
end;
if normal then
begin
findbank('eb');
end;
if willow then
begin
Mouse(586,77,1,1,true);
FFlag(0);
findbank('eb');
end;
if yew then
begin
Mouse(716,84,1,1,true);
wait(15000+random(1000));
FFlag(0);
if findsymbol(x,y,'bank')then
begin
Mouse(x,y,4,4,true);
writeln('bank symbol found...');
flag;
end else
begin
findbank('eb');
end;
end;
FFlag(0);
if not bankscreen then
begin
openbankglass('eb',True,False);
end;
if PinScreen then InPin(Players[CurrentPlayer].String2);
if BankScreen then
begin
fixbank;
if not running then
begin
if (FindDTM(AxeDTM, x, y, MSX1, MSY1, MSX2, MSY2)) then
begin
Mouse(x,y,2,2,true);
end;
end;
if running then
begin
if (FindDTM(SardineDTM, x, y, MSX1, MSY1, MSX2, MSY2)) then
begin
Mouse(x,y,2,2,true);
end;
closebank;
if (FindDTM(SardineDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
Mouse(x,y,2,2,true);
end;
end;
running:=false;
wait(500+random(100));
if bankscreen then closebank;
end;
end;
Players[CurrentPlayer].Loc :='bank';
Draynortowillow;
Draynortoyew;
Draynortooak;
Edgevilletowillow;
Edgevilletoyew;
Edgevilletooak;
end;
//->Get Axe Colors<-// by Fourscape
Procedure GetAxeColors;
Begin
Wait(100)
MakeCompass('S');
GameTab(4)
FindAxeHeadColor;
MakeCompass('N')
end;
//->Ent Checker<-// by yohojo
Var
FX, FY : integer;
Procedure CheckforEnt;
Begin
Status('Checking For Ent')
Flag;
MMouse(mx,my,2,2);
If FindColorTolerance( FX, FY, 55769, 85, 15, 115, 15, 20) then
Begin
Status('Ent Found');
MouseFindFlag(648,83,5,5);
Wait(15000+Random(5000));
EntsAvoided := EntsAvoided + 1
end;
end;
//->Check for Broken Axe<-// by fourscape
Var
BX, BY, NX, NY : integer;
Procedure IsAxeBroken;
Begin
Status('Checking for broken axe')
GameTab(4)
Wait(400 + Random (100))
If (Not(FindDTM(BrokenAxeDTM, BX, BY, MIX1, MIY1, MIX2, MIY2 ))) then
Begin
Status('Axe Not Broken')
Exit;
end;
Begin
If (FindDTM(BrokenAxeDTM, BX, BY, MIX1, MIY1, MIX2, MIY2 )) and
(Not(FindDTM(RegularAxeDTM, NX, NY, MIX1, MIY1, MIX2, MIY2))) then
Begin
Status('Broke an Axe, and you have no more.')
brokenaxe:=true;
withdrawaxe;
end;
end;
end;
//->Axe Head Finder<-//
Procedure TheFindAxe;
Begin
Status ('Looking For Axe')
FindHead;
end;
////////////////////// my made up procedure for handling mods :p
procedure handlethemod;
begin
writeln('logging out for 10-20 minutes to wait for mod to leave')
DisguiseScar('10-20 minutes wait 4 mod')
logout;
wait(random(1200000));
loginplayer;
writeln('played that mod like a fiddle...lol')
end;
////////////////////////
procedure deathwalk;
begin
makecompass('N');
mouse(693,42,1,1,true);
flag;
RadialRoadWalk(FindRoadColor, 310, 331, 64, 1, 1);
flag;
end;
////////////////////////
Function FindFastRandoms: Boolean; // By WT-Fakawi.
var
i: Integer;
begin
for i:=1 to 10 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
handlethemod;
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 : if RC Then Result := True
10: If FindTalk Then Result := True;
End;
Wait(1);
end;
end;
////////////////
procedure runaway;
begin
running:=true;
withdrawaxe;
running:=false;
end;
/////////////////
procedure antirandoms;
var i:integer;
begin
SRL_ScapeRune := CreateBitmapMaskFromText('ScapeRune', SmallChars);
for i:= 1 to 17 do
begin
if not(loggedin)then
exit;
if FindFight then
begin
runaway;
end;
gametab(4);
case i of
1: FindNormalRandoms;
2: FindFastRandoms;
3: LoraxFTW:=false;
4: FindTalk;
5: LoraxFTW:=true;
6: FindTalk;
7: FindTrade;
8: SolvePinball;
9: FindScapeRune;
10: FindLamp('woodcutting');
11: DwarfItem;
12: FixChat;
13: if FindFight then
runaway;
14: SRLRandomsReport;
15: Isaxebroken;
16: CheckForEnt;
17: if FindNewBox then
solvebox;
end;
if ( not ( UseBoxSolver )) then
if FindNewBox and
not ( GambleNewBox ) then
begin
Players[CurrentPlayer].loc := 'NewBox';
Logout;
Exit;
end;
wait(1);
end;
end;
///////////////////// Credit to pentti for this and the autoresponder
Function ChatBoxRespond(TheText,FromText,SayText:String):Boolean;
var GetName:String;
begin
if(TheText='')then
Exit;
if(pos(lowerCase(FromText),LowerCase(Trim(TheText)))<>0)then
begin
GetName:=Trim(GetTextAtEx(20,412,45,SmallChars,False,False,0,2,0,40,True,tr_NormalChars));
if(pos(LowerCase(Players[Currentplayer].Name),LowerCase(GetName))<>0)then
Exit;
Result:=True;
wait(500+random(2000))
TypeSend(SayText)
writeln('| - - - - RESPOND - - - - -')
Writeln('|'+GetName+': '+FromText)
Writeln('|'+Players[CurrentPlayer].Name+': '+SayText)
writeln('| - - - - - - - - - - - - -')
Wait(500+random(1000))
end;
end;
// Auto Responder //
procedure AutoResponder;
var thechattext:string;
begin
if(IsTextInAreaEx(40,412,130,412,x,y,':',0,smallchars,False,True,0,0,0))then //SRL: GetLastChatText
TheChatText:=Trim(GetTextAtEx(x+8,412,0,SmallChars,False,False,0,1,16711680,40,False,tr_allChars))
ChatBoxRespond(TheChatText,'Wc lvls',IntToStr(GetSkillLevel('woodcutting')))
ChatBoxRespond(TheChatText,'W/c lvls',IntToStr(GetSkillLevel('woodcutting')))
ChatBoxRespond(TheChatText,'W/c lvls?',IntToStr(GetSkillLevel('woodcutting')))
ChatBoxRespond(TheChatText,'W/c lvl?',IntToStr(GetSkillLevel('woodcutting')))
ChatBoxRespond(TheChatText,'Wc lvl?',IntToStr(GetSkillLevel('woodcutting')))
ChatBoxRespond(TheChatText,'Wc lvl',IntToStr(GetSkillLevel('woodcutting')))
ChatBoxRespond(TheChatText,'Wc lvls?',IntToStr(GetSkillLevel('woodcutting')))
ChatBoxRespond(TheChatText,'Woodcutting lvls',IntToStr(GetSkillLevel('woodcutting')))
ChatBoxRespond(TheChatText,'Woodcutting lvl?',IntToStr(GetSkillLevel('woodcutting')))
ChatBoxRespond(TheChatText,'Woodcutting lvl',IntToStr(GetSkillLevel('woodcutting')))
ChatBoxRespond(TheChatText,'Woodcutting lvls?',IntToStr(GetSkillLevel('woodcutting')))
ChatBoxRespond(TheChatText,'Defenc lvls',IntToStr(GetSkillLevel('Defence')))
ChatBoxRespond(TheChatText,'Def lvl',IntToStr(GetSkillLevel('Defence')))
ChatBoxRespond(TheChatText,'Def lvl?',IntToStr(GetSkillLevel('Defence')))
ChatBoxRespond(TheChatText,'Defence lvl',IntToStr(GetSkillLevel('Defence')))
ChatBoxRespond(TheChatText,'Defence lvl?',IntToStr(GetSkillLevel('Defence')))
ChatBoxRespond(TheChatText,'Defenc lvls?',IntToStr(GetSkillLevel('Defence')))
ChatBoxRespond(TheChatText,'Defence lvls',IntToStr(GetSkillLevel('Defence')))
ChatBoxRespond(TheChatText,'Defence lvls?',IntToStr(GetSkillLevel('Defence')))
ChatBoxRespond(TheChatText,'Hp lvl',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hp lvl?',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hitpoint lvl',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hitpoint lvl?',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hitpoints lvl?',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hp lvls',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hp lvls?',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hitpoint lvls',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hitpoint lvls?',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hitpoints lvls',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hitpoints lvls?',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hit lvl',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hit lvl?',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hit lvls',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Hit lvls?',IntToStr(GetSkillLevel('Hitpoints')))
ChatBoxRespond(TheChatText,'Pray lvls',IntToStr(GetSkillLevel('Prayer')))
ChatBoxRespond(TheChatText,'Prayer lvls',IntToStr(GetSkillLevel('Prayer')))
ChatBoxRespond(TheChatText,'Pray lvl',IntToStr(GetSkillLevel('Prayer')))
ChatBoxRespond(TheChatText,'Pray lvl?',IntToStr(GetSkillLevel('Prayer')))
ChatBoxRespond(TheChatText,'Prayer lvl',IntToStr(GetSkillLevel('Prayer')))
ChatBoxRespond(TheChatText,'Prayer lvl?',IntToStr(GetSkillLevel('Prayer')))
ChatBoxRespond(TheChatText,'Pray lvls?',IntToStr(GetSkillLevel('Prayer')))
ChatBoxRespond(TheChatText,'Prayer lvls?',IntToStr(GetSkillLevel('Prayer')))
ChatBoxRespond(TheChatText,'Hi','Wazzup')
ChatBoxRespond(TheChatText,'Hey','Wazzup')
ChatBoxRespond(TheChatText,'Hello','Wazzup')
ChatBoxRespond(TheChatText,'Hello','Wazzup')
ChatBoxRespond(TheChatText,'Sup','Not much')
ChatBoxRespond(TheChatText,'Sup?','Not much')
ChatBoxRespond(TheChatText,'Wassup','Not much')
ChatBoxRespond(TheChatText,'Wasup','Not much')
ChatBoxRespond(TheChatText,'Wassup?','Not much')
ChatBoxRespond(TheChatText,'Wasup?','Not much')
ChatBoxRespond(TheChatText,'Max hit','Idk')
ChatBoxRespond(TheChatText,'Max hit?','Idk')
ChatBoxRespond(TheChatText,'Max hit','Idk')
ChatBoxRespond(TheChatText,'Max?','Idk')
ChatBoxRespond(TheChatText,'Max','Idk')
ChatBoxRespond(TheChatText,'Bye','later dude')
ChatBoxRespond(TheChatText,'See ya','later dude')
ChatBoxRespond(TheChatText,'C ya','later dude')
ChatBoxRespond(TheChatText,'Cya','later dude')
ChatBoxRespond(TheChatText,'C ya later','later dude')
ChatBoxRespond(TheChatText,'C ya l8ter','later dude')
ChatBoxRespond(TheChatText,'See ya later','later dude')
ChatBoxRespond(TheChatText,'See ya l8ter','later dude')
ChatBoxRespond(TheChatText,'C ya l8er','later dude')
ChatBoxRespond(TheChatText,'See ya l8er','later dude')
ChatBoxRespond(TheChatText,'C you later','later dude')
ChatBoxRespond(TheChatText,'See you later','later dude')
ChatBoxRespond(TheChatText,'See u l8ter','later dude')
ChatBoxRespond(TheChatText,'C u l8ter','later dude')
ChatBoxRespond(TheChatText,'See u later','later dude')
ChatBoxRespond(TheChatText,'C u later','later dude')
ChatBoxRespond(TheChatText,'lol','rofl')
ChatBoxRespond(TheChatText,'lolz','hehe')
ChatBoxRespond(TheChatText,'killed','hmm...')
ChatBoxRespond(TheChatText,'noob','who me?')
ChatBoxRespond(TheChatText,'Not much','cool')
ChatBoxRespond(TheChatText,'Lol','rofl')
end;
//////////////////
procedure Autoresponder2;
begin
if (InChat('Attack lvls')or
InChat('Attack lvl?')or
InChat('Attack lvl')or
InChat('Attack lvls?')or
InChat('Atack lvls')or
InChat('Atack lvls?')or
InChat('Attac lvls')or
InChat('Atk lvls?')or
InChat('Atk lvls')or
InChat('Atk lvl')or
InChat('Attac lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('attack')))
end;
if (InChat('Strength lvl' + Players[CurrentPlayer].Name)or
InChat('Strength lvls')or
InChat('Strength lvls?')or
InChat('Strength lvl')or
InChat('Strength lvl?')or
InChat('Str lvls')or
InChat('Str lvls?')or
InChat('Str lvl')or
InChat('Str lvl?'))then
begin
TypeSend(IntToStr(GetSkillLevel('strength')))
end;
if (InChat('Defenc lvls')or
InChat('Def lvl')or
InChat('Def lvl?')or
InChat('Defence lvl')or
InChat('Defence lvl?')or
InChat('Defenc lvls?')or
InChat('Defence lvls')or
InChat('Defence lvls?'))then
begin
TypeSend(IntToStr(GetSkillLevel('defence')))
end;
if (InChat('Hp lvl')or
InChat('Hp lvl?')or
InChat('Hitpoint lvl')or
InChat('Hitpoint lvl?')or
InChat('Hitpoints lvl?')or
InChat('Hp lvls')or
InChat('Hp lvls?')or
InChat('Hitpoint lvls')or
InChat('Hitpoint lvls?')or
InChat('Hitpoints lvls')or
InChat('Hitpoints lvls?')or
InChat('Hit lvl')or
InChat('Hit lvl?')or
InChat('Hit lvls')or
InChat('Hit lvls?'))then
begin
TypeSend(IntToStr(GetSkillLevel('hitpoints')))
end;
if (InChat('Range lvls')or
InChat('Range lvls?')or
InChat('Rnge lvls')or
InChat('Rnge lvls?')or
InChat('Rng lvls')or
InChat('Rng lvls?')or
InChat('Range lvl')or
InChat('Range lvl?')or
InChat('Ranged lvl')or
InChat('Ranged lvl?')or
InChat('Ranged lvls')or
InChat('Ranged lvls?')or
InChat('Ranging lvls')or
InChat('Ranging lvls?'))then
begin
TypeSend(IntToStr(GetSkillLevel('panged')))
end;
if (InChat('Pray lvls')or
InChat('Prayer lvls')or
InChat('Pray lvl')or
InChat('Pray lvl?')or
InChat('Prayer lvl')or
InChat('Prayer lvl?')or
InChat('Pray lvls?')or
InChat('Prayer lvls?'))then
begin
TypeSend(IntToStr(GetSkillLevel('prayer')))
end;
if (InChat('Wc lvls')or
InChat('Wc lvls?')or
InChat('Wc lvl')or
InChat('Wc lvl?')or
InChat('Wc lvl')or
InChat('Wc lvl?')or
InChat('Wc lvls')or
InChat('Woodcutting')or
InChat('Wc lvls?'))then
begin
TypeSend(IntToStr(GetSkillLevel('woodcutting')))
end;
if (InChat('Hi' + Players[CurrentPlayer].Name)or
InChat('Hi')or
InChat('Hey' + Players[CurrentPlayer].Name)or
InChat('Hey')or
InChat('Hello' + Players[CurrentPlayer].Name)or
InChat('Hello'))then
begin
TypeSend('Hi')
end;
if (InChat('Sup' + Players[CurrentPlayer].Name)or
InChat('Sup')or
InChat('Sup?')or
InChat('Wassup')or
InChat('Wasup')or
InChat('Wassup?')or
InChat('Wasup?'))then
begin
TypeSend('zup')
end;
if (InChat('e didnt')or
InChat('We didnt')or
InChat('o one did')or
InChat('No one did')or
InChat('Who did'))then
begin
TypeSend('yea u did')
end;
if (InChat('Max hit' + Players[CurrentPlayer].Name)or
InChat('Max hit?')or
InChat('Max hit')or
InChat('Max?')or
InChat('Max'))then
begin
TypeSend('Idk')
end;
if (InChat('Bye' + Players[CurrentPlayer].Name)or
InChat('See ya')or
InChat('C ya')or
InChat('Cya')or
InChat('C ya later')or
InChat('C ya l8ter')or
InChat('See ya later')or
InChat('See ya l8ter')or
InChat('C ya l8er')or
InChat('See ya l8er')or
InChat('C you later')or
InChat('See you later')or
InChat('See u l8ter')or
InChat('C u l8ter')or
InChat('See u later')or
InChat('C u later')or
InChat('Bye'))then
begin
TypeSend('Bye')
end;
if (InChat(Players[CurrentPlayer].Name)or
InChat('autoing')or
InChat('utoing')or
InChat('Autoing')or
InChat('Macroing')or
InChat('acroing')or
InChat('oob'))then
begin
TypeSend('what???')
end;
if (InChat('Nub')or
InChat('Noob')or
InChat('u are the noob')or
InChat('u noob')or
InChat('wtf'))then
begin
TypeSend('wow')
end;
end;
//////////////
procedure Bonkers;
begin
if invfull then exit;
MMouse(random(200),random(200),0,0);
FTWait(1);
if invfull then exit;
MMouse(random(400),random(400),0,0);
FTWait(1);
if invfull then exit;
MMouse(random(300),random(300),0,0);
FTWait(1);
if invfull then exit;
MMouse(random(500),random(500),0,0);
FTWait(1);
if invfull then exit;
MMouse(random(550),random(550),0,0);
FTWait(1);
if invfull then exit;
MMouse(random(200),random(200),0,0);
end;
///////////////////
procedure Bonkers2;
var i: Integer;
begin
if invfull then exit;
for i := 1 to (3 + Random(11)) do
begin
if invfull then exit;
MMouse(Random(MSX2), Random(MSY2), 0, 0);
FTWait(1);
end;
MakeCompass('N');
antirandoms;
end;
//////////////////////
procedure Checkfriends;
begin
if invfull then exit;
gametab(8);
MMouse(606+random(5),237+random(5),2,2);
wait(500+random(100));
MMouse(593+random(5),252+random(5),2,2);
wait(500+random(100));
MMouse(602+random(5),269+random(5),2,2);
wait(500+random(100));
MMouse(586+random(5),285+random(5),2,2);
end;
/////////////////////
procedure askhowdoin;
begin
if invfull then exit;
Typesend('Hows everyone doin tonight')
wait(10000)
typesend('im doing well')
end;
///////////////////
procedure Danceoff;
begin
if invfull then exit;
case random(5) of
0: Typesend('dancing is fun')
1: Typesend('danceoff.. u now')
2: Typesend('danceoff??')
3: Typesend('i challenge thee to a danceoff')
4: Typesend('i rock at dancing')
5: Typesend('watch me bust a move...oldschool')
end;
RandomEmote;
wait(250+random(100));
RandomEmote;
wait(250+random(100));
RandomEmote;
wait(250+random(100));
RandomEmote;
wait(250+random(100));
RandomEmote;
wait(250+random(100));
case random(5) of
0: Typesend('wow im smoking hot')
1: Typesend('i got skill')
2: Typesend('ive got mad skilz')
3: Typesend('i am the best dancer')
4: Typesend('im with dancing with the stars')
5: Typesend('i can breakdance')
end;
wait(250+random(100));
end;
//////////////////////
procedure boredtyping;
begin
if invfull then exit;
if FindFight then
begin
runaway;
end;
case random(70)+1 of
1: Typesend('why does it have to take so long')
2: Typesend(inttostr(NextLevelAt('woodcutting'))+' exp to go')
3: Typesend('im only '+inttostr(GetSkillLevel('woodcutting'))+' wc')
4: if draynor then Typesend('okay 3 minutes past an noone asked for wc lvls...noooo')
5: askhowdoin;
6: Typesend('wc lvls???? im '+inttostr(GetSkillLevel('woodcutting'))+' wc')
7: Typesend('mmmmmmmmmmmm.......bark')
8: Typesend('ive been here soo long')
9: Typesend('this takes forever...lol')
10: Typesend('Wc lvls??')
11: Typesend('lalalallla')
12: Typesend('im chopping the best i can...lol')
13: Typesend('im no noob im a skilla')
14: Typesend('anyone enjoying this lol??')
15: Typesend('how long has everyone been here?')
16: Typesend('i love woodcutting =)')
17: Typesend('stop in the name of...')
18: if draynor then Typesend('stop asking for wc lvls!!!!!!!!!')
19: Typesend('why are you guys asking for wc lvls every sec')
20: Danceoff;
21: Typesend('i ate your momma')
22: Typesend('boom headshot!')
23: Typesend('pwnage in halo 2')
24: Typesend('what now im rick james')
25: Typesend('sizzle my nizzle...')
26: Typesend('say hello to my little friend')
27: Typesend('im detective john kimble')
28: Typesend('its not a tumor!')
29: Typesend('howdy stranger')
30: Danceoff;
31: Typesend('Buck malonoma!')
32: Typesend('take this quarter go downtown...')
33: Typesend('im ur uncle buck')
34: Typesend('il be back!')
35: Danceoff;
36: Typesend('yakity yak dont come back...')
37: Typesend('i like you')
38: Typesend('my name is borat')
39: Typesend('i dont know, i dont wanna know, im out')
40: Typesend('ur momma is so fat she ate peter griffin')
41: Typesend('take that badge and shove it up ur *beep* im lapd')
42: Typesend('rush hour 2 is sweet')
43: Typesend('geico...so easy a caveman can do it')
44: Typesend('cat ate dog')
45: Typesend('i get it cats...beef')
46: Typesend('Call of duty rockz')
47: Typesend('ur mom rokz my sox')
48: Typesend('negative')
49: Typesend('whos your daddy and what does he do?')
50: Typesend('stop whining!')
51: Typesend('vroooooooom.....chainsaw')
52: Typesend('gears of war is a sweet game')
53: Typesend('wtf mate?')
54: Typesend('what about the kangaroos? wtf mate?')
55: Typesend('the end of ze world')
56: Typesend('fire ze missiles....')
57: Danceoff;
58: Typesend('ps3 eats dust')
59: Typesend('im a little teapot...')
60: Danceoff;
61: Typesend('puff the magic dragon...')
62: Typesend('lose yourself in the music')
63: Typesend('byaww!!!!!')
64: Typesend('schools out forever!')
65: Typesend('poopy mc poopy pants')
66: Typesend('the beat goes on.........')
67: Typesend('i have a dogpile in my backyrd')
68: Typesend('bust a cap in ur...')
69: Typesend('i love being random =)')
70: Typesend('im sooo random sometimes =)')
end;
end;
/////////////////
procedure bored;
begin
if invfull then exit;
antirandoms;
if FindFight then
begin
runaway;
end;
AutoResponder;
AutoResponder2;
Isaxebroken;
CheckForEnt;
case random(20)+1 of
1: Bonkers;
2: Checkfriends;
3: HoverSkill('woodcutting',false);
4: antirandoms;
5: CheckForEnt;
6: Bonkers2;
6: FTWait(8);
7: Wait2(2000,true);
8: CheckForEnt;
9: Bonkers2;
10: FindTalk;
11: antirandoms;
12: boredtyping;
13: Wait2(2000,true);
14: CheckForEnt;
15: Bonkers2;
16: Bonkers;
end;
if invfull then exit;
wait(random(100));
antirandoms;
if FindFight then
begin
runaway;
end;
gametab(4);
MMouse(mx,my,1,1);
antirandoms;
if isuptext ('hop down '+Players[CurrentPlayer].string1)then
Mouse(mx,my,0,0,true);
end;
//////////////////////
procedure Ownthewillow;
begin
if (Players[CurrentPlayer].Loc ='tree') then
begin
if willow then
begin
repeat
repeat
if not LoggedIn then exit;
IsAxeBroken;
CheckForEnt;
timeswaited:=0;
if brokenaxe then
exit;
if (Players[CurrentPlayer].Loc ='bank') then
exit;
if (invfull) then
exit;
findtree(willowcolor1,willowcolor2);
if (invfull) then
exit;
if not LoggedIn then
exit;
if FindFight then
exit;
if isuptext('hop down Willow')then
GetMousepos(mx,my);
if isuptext('hop down Willow')then
begin
Mouse(mx,my,0,0,true);
end;
Flag;
tried:=tried + 1;
until(isuptext('hop down')or (tried >= 5)); //failsafe
repeat
if (invfull) then exit;
if not LoggedIn then exit;
bored;
timeswaited:=timeswaited + 1;
until(isuptext('Walk')or (timeswaited >= 2)); //failsafe
wait(1000+random(500));
until(invfull);
tried:=0;
end;
end;
end;
///////////////////
procedure Owntheyew;
var dx,dy:integer;
begin
if (Players[CurrentPlayer].Loc ='tree') then
begin
if yew then
begin
repeat
repeat
if not LoggedIn then
exit;
AutoResponder;
IsAxeBroken;
CheckForEnt;
timeswaited:=0;
if brokenaxe then
exit;
if (Players[CurrentPlayer].Loc ='bank') then //failsafe
exit;
if (invfull) then exit;
if (FindObj(Dx, Dy, 'hop down Yew', yewcolor1, Tol)) or
(FindObj(Dx, Dy, 'hop down Yew', yewcolor2, Tol)) then
begin
if (invfull) then exit;
if not LoggedIn then exit;
if FindFight then exit;
MMouse(Dx,Dy,2,2)
GetMousepos(mx,my);
if isuptext('hop down')then
begin
Mouse(mx,my,0,0,true);
end;
end else
begin
writeln('Could not find it...might be respawning')
tried:=tried + 1;
case random(4) of
1: Makecompass('W');
2: Makecompass('S');
3: Makecompass('E');
4: Makecompass('N');
end;
end;
Flag;
until(isuptext('hop down Yew')or (tried >= 5)); //failsafe
repeat
if (invfull) then exit;
if not LoggedIn then exit;
bored;
timeswaited:=timeswaited + 1;
until(isuptext('Walk')or (timeswaited >= 4)); //failsafe
AutoResponder;
bored;
wait(10000+random(500));
bored;
wait(10000+random(500));
bored;
until(invfull);
tried:=0;
end;
end;
end;
///////////////////
procedure Owntheoak;
var dx,dy:integer;
begin
if (Players[CurrentPlayer].Loc ='tree') then
begin
if oak then
begin
repeat
repeat
if not LoggedIn then
exit;
AutoResponder;
IsAxeBroken;
CheckForEnt;
timeswaited:=0;
if brokenaxe then
exit;
if (Players[CurrentPlayer].Loc ='bank') then //failsafe
exit;
if (invfull) then exit;
if (FindObj(Dx, Dy, 'hop down Oak', oakcolor1, Tol)) or
(FindObj(Dx, Dy, 'hop down Oak', oakcolor2, Tol)) Then
begin
if (invfull) then exit;
if not LoggedIn then exit;
if FindFight then exit;
MMouse(Dx,Dy,2,2)
GetMousepos(mx,my);
if isuptext('hop down')then
begin
Mouse(mx,my,0,0,true);
end;
end else
begin
writeln('Could not find it...might be respawning')
tried:=tried + 1;
case random(2) of
1: Makecompass('W');
2: Makecompass('S');
end;
end;
FFlag(0);
until(isuptext('hop down Oak')or (tried >= 5)); //failsafe
repeat
if (invfull) then exit;
if not LoggedIn then exit;
bored;
timeswaited:=timeswaited + 1;
until(isuptext('Walk')or (timeswaited >= 2)); //failsafe
wait(3000+random(500));
until(invfull);
tried:=0;
end;
end;
end;
/////////////////////
procedure Ownthenormal;
var dx,dy:integer;
begin
if (Players[CurrentPlayer].Loc ='tree') then
begin
if normal then
begin
repeat
repeat
if not LoggedIn then
exit;
AutoResponder;
IsAxeBroken;
CheckForEnt;
timeswaited:=0;
if brokenaxe then
exit;
if (Players[CurrentPlayer].Loc ='bank') then //failsafe
exit;
if (invfull) then exit;
If (FindObj(Dx, Dy, 'hop down Tree', oakcolor1, Tol)) or
(FindObj(Dx, Dy, 'hop down Tree', oakcolor2, Tol)) Then
begin
if (invfull) then exit;
if not LoggedIn then exit;
if FindFight then exit;
MMouse(Dx,Dy,2,2)
GetMousepos(mx,my);
if isuptext('hop down')then
begin
Mouse(mx,my,0,0,true);
end;
end else
begin
writeln('Could not find it...might be respawning')
tried:=tried + 1;
case random(4) of
1: Makecompass('W');
2: Makecompass('S');
3: Makecompass('E');
4: Makecompass('N');
end;
end;
Flag;
until(isuptext('hop down Tree')or (tried >= 5)); //failsafe
repeat
if (invfull) then exit;
if not LoggedIn then exit;
bored;
timeswaited:=timeswaited + 1;
until(isuptext('Walk')or (timeswaited >= 4)); //failsafe
bored;
wait(5000+random(500));
bored;
wait(7500+random(1000));
until(invfull);
tried:=0;
end;
end;
end;
/////////////////
procedure countlogs;
begin
if normal then
begin
normallogs:=normallogs+27;
ReportVars[0] := ReportVars[0] + 27;
end;
if oak then
begin
oaks:=oaks+27;
ReportVars[1] := ReportVars[1] + 27;
end;
if willow then
begin
willows:=willows+27;
ReportVars[2] := ReportVars[2] + 27;
end;
if yew then
begin
yews:=yews+27;
ReportVars[3] := ReportVars[3] + 27;
end;
end;
////////////////////////////////////////////
//////////////// DRAYNOR ///////////////////
////////////////////////////////////////////
procedure DraynorBanking;
begin
AutoResponder;
if not LoggedIn then
exit;
if (Players[CurrentPlayer].Loc ='tree') then
begin
writeln('banking...')
MakeCompass('N');
if normal or oak then
begin
Mouse(615,71,1,1,true);
FFlag(0);
end;
if willow then
begin
setrun(true)
Mouse(652,46,1,1,true);
FFlag(0);
findbank('db');
end;
if yew then
begin
Mouse(716,84,1,1,true);
FFlag(0);
Mouse(703,84,1,1,true);
FFlag(0);
if findsymbol(x,y,'dungeon')then
begin
Mouse(x,y,4,4,true);
writeln('dungeon symbol found...');
FFlag(0);
end;
Mouse(629,111,1,1,true);
FFlag(0);
Mouse(649,143,1,1,true);
FFlag(0);
Mouse(705,102,1,1,true);
FFlag(0);
if findsymbol(x,y,'bank')then
begin
Mouse(x,y,4,4,true);
writeln('bank symbol found...');
FFlag(0);
end else
begin
findbank('db');
end;
end;
FFlag(0);
if not bankscreen then
begin
OpenBankquiet('db');
end;
FFlag(0);
If PinScreen Then InPin(Players[CurrentPlayer].String3);
if not bankscreen then openbankglass('db',True,False);
FFlag(0);
if not bankscreen then
begin
openbankglass('db',True,False);
end;
If PinScreen Then InPin(Players[CurrentPlayer].String2);
If BankScreen then
Begin
FixBank;
wait(1000+random(250));
countlogs;
Mouse(620,230,4,4,false);
ChooseOption(x,y,'Store All');
wait(500+random(50));
if brokenaxe then
begin
Mouse(94,74,4,4,true);
writeln('withdrew new axe...')
Players[CurrentPlayer].Boolean2:=False;
Brokenaxe:=False;
end;
Mouse(486+random(4),41+random(3),0,0,true);
banked:=true;
MakeCompass('N');
HighestAngle
end;
Players[CurrentPlayer].Loc:='bank';
end;
end;
///////////////
procedure draynorit;
begin
if draynor then
begin
timeswaited:=0;
Draynortowillow;
Draynortoyew;
Draynortooak;
Ownthewillow;
Owntheyew;
Owntheoak;
Ownthenormal;
DraynorBanking;
end;
end;
////////////////////////////////////////////
/////////////// Edgeville //////////////////
////////////////////////////////////////////
procedure EdgevilleBanking;
begin
AutoResponder;
if not LoggedIn then
exit;
if (Players[CurrentPlayer].Loc ='tree') then
begin
MakeCompass('N');
if oak then
begin
Mouse(647,67,1,1,true);
FFlag(0);
if findsymbol(x,y,'transportation')then
begin
Mouse(x,y,1,1,true);
end;
wait(1000+random(1000));
FFlag(0);
Mouse(582,71,1,1,true);
wait(20000+random(1000));
FFlag(0);
Mouse(582,73,1,1,true);
findbank('eb');
end;
if normal then
begin
findbank('eb');
end;
if willow then
begin
Mouse(586,77,1,1,true);
FFlag(0);
findbank('eb');
end;
if yew then
begin
Mouse(716,84,1,1,true);
wait(15000+random(1000));
FFlag(0);
if findsymbol(x,y,'bank')then
begin
Mouse(x,y,4,4,true);
writeln('bank symbol found...');
flag;
end else
begin
findbank('eb');
end;
end;
FFlag(0);
if not bankscreen then
begin
OpenBankquiet('eb');
end;
FFlag(0);
If PinScreen Then InPin(Players[CurrentPlayer].String3);
if not bankscreen then openbankglass('eb',True,False);
FFlag(0);
if not bankscreen then
begin
openbankglass('eb',True,False);
end;
If PinScreen Then InPin(Players[CurrentPlayer].String2);
If BankScreen then
Begin
FixBank;
wait(1000+random(250));
countlogs;
Mouse(620,230,4,4,false);
ChooseOption(x,y,'Store All');
wait(500+random(50));
if brokenaxe then
begin
Mouse(94,74,4,4,true);
writeln('withdrew new axe...')
Players[CurrentPlayer].Boolean2:=False;
Brokenaxe:=False;
end;
Mouse(486+random(4),41+random(3),0,0,true);
banked:=true;
MakeCompass('N');
HighestAngle
end;
Players[CurrentPlayer].Loc:='bank';
end;
end;
//////////////////////
procedure edgeit;
begin
if edgeville then
begin
timeswaited:=0;
Edgevilletowillow;
Edgevilletoyew;
Edgevilletooak;
Ownthewillow;
Owntheyew;
Owntheoak;
Ownthenormal;
EdgevilleBanking;
end;
end;
/////////////////
procedure reportit;
begin
if CurrentPlayer = 0 then
begin
timesbanked0:= timesbanked0 + 1;
num:= timesbanked0;
ReportVars[4] := ReportVars[4] + 1;
end;
if CurrentPlayer = 1 then
begin
timesbanked1:= timesbanked1 + 1;
num:= timesbanked1;
ReportVars[4] := ReportVars[4] + 1;
end;
if CurrentPlayer = 2 then
begin
timesbanked2:= timesbanked2 + 1;
num:= timesbanked2;
ReportVars[4] := ReportVars[4] + 1;
end;
if CurrentPlayer = 3 then
begin
timesbanked3:= timesbanked3 + 1;
num:= timesbanked3;
ReportVars[4] := ReportVars[4] + 1;
end;
if CurrentPlayer = 4 then
begin
timesbanked4:= timesbanked4 + 1;
num:= timesbanked4;
ReportVars[4] := ReportVars[4] + 1;
end;
if CurrentPlayer = 5 then
begin
timesbanked5:= timesbanked5 + 1;
num:= timesbanked5;
ReportVars[4] := ReportVars[4] + 1;
end;
if CurrentPlayer = 6 then
begin
timesbanked6:= timesbanked6 + 1;
num:= timesbanked6;
ReportVars[4] := ReportVars[4] + 1;
end;
if CurrentPlayer = 7 then
begin
timesbanked7:= timesbanked7 + 1;
num:= timesbanked7;
ReportVars[4] := ReportVars[4] + 1;
end;
if CurrentPlayer = 8 then
begin
timesbanked8:= timesbanked8 + 1;
num:= timesbanked8;
ReportVars[4] := ReportVars[4] + 1;
end;
if CurrentPlayer = 9 then
begin
timesbanked9:= timesbanked9 + 1;
num:= timesbanked9;
ReportVars[4] := ReportVars[4] + 1;
end;
if CurrentPlayer = 10 then
begin
timesbanked10:= timesbanked10 + 1;
num:= timesbanked10;
ReportVars[4] := ReportVars[4] + 1;
end;
timesbanked:= timesbanked0+timesbanked1+timesbanked2+timesbanked3+timesbanked4+timesbanked5+timesbanked6+timesbanked7+timesbanked8+timesbanked9+timesbanked10;
end;
/////////////////
procedure proggy;
begin
writeln(' _________________________ ')
writeln('| |')
writeln('| Thanks for using alpha! |')
writeln('| Script by: Timothegreat |')
writeln('| Logs chopped: '+inttostr(normallogs)+' |')
writeln('| Oaks chopped: '+inttostr(oaks)+' |')
writeln('| Willows chopped: '+inttostr(willows)+' |')
writeln('| Yews chopped: '+inttostr(yews)+' |')
writeln('| Times banked: '+inttostr(timesbanked)+' |')
writeln('|_________________________|')
end;
///////////
begin
SetUp;
mx:=340;
my:=240;
declareplayers;
LoadDTMs;
DisguiseScar('YouTube - Broadcast Yourself. - Mozilla Firefox');
setitup;
ReportVars[8] := ReportVars[8] + 1;
NickNameBMP:=CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, upchars);
loginplayer;
wait(1000+random(500));
repeat
if not LoggedIn then
begin
num:=0;
NextPlayer(false);
setitup;
NickNameBMP:=CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, upchars);
makecompass('N');
highestangle;
end;
repeat
Draynorit;
Edgeit;
Reportit;
proggy;
SRLRandomsReport;
DisguiseScar(Players[CurrentPlayer].Name + ':'+inttostr(num)+'/'+inttostr(settrip))
until(num = settrip);
logout;
proggy;
nextplayer(true);
setitup;
NickNameBMP:=CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, upchars);
until(false);
proggy;
SRLRandomsReport;
end.
if you wish to see my unreleased autocooker for draynor or my powerminer then just ask. :)
——————————————————