Burt
2007-09-08 23:08:37
<!– BEGIN TEMPLATE: formanswers –>
Burt - SRL Member Application Form
Burt
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Java, VB
Other Communitys
Rune-server.org cheatengine.org moparisthebest.com
How Long have You Played Runescape
5 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Iam just a kid i love basketball and lacross. iam on my town pride league for lacross and i code scar for fun. i dont have too much time for runescape so auto botting is good for me :) Iam not a noob that always wines and flames on peoples scripts when they dont work, i try to help the people that do wine and flame…
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
Burt - SRL Member Application Form
Burt
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Java, VB
Other Communitys
Rune-server.org cheatengine.org moparisthebest.com
How Long have You Played Runescape
5 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Iam just a kid i love basketball and lacross. iam on my town pride league for lacross and i code scar for fun. i dont have too much time for runescape so auto botting is good for me :) Iam not a noob that always wines and flames on peoples scripts when they dont work, i try to help the people that do wine and flame…
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program TreeMuncher;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/WoodCutting.scar}
const
//Type of tree you want to munch. Tree, Oak, Willow and Yew.
Treetype = 'Willow';
Talking = 'False'; //False not to auto talk.
//Tree Colors no need to change, change only when needed
OakColor = 4881568;
TreeColor = 3440752;
WillowColor = 2582616;
YewColor = 2582616;
// How many loads to do before next player?
loads = 99;
Procedure DeclarePlayers;
Begin
HowManyPlayers:=5; //Don't Change if you want more players just fill in their info and set their active to: True/False
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //Player to start on
Players[0].Name :=''; //Fill in your username
Players[0].Pass :=''; //Fill in your password
Players[0].Nick :=''; //3-4 letters of your username
Players[0].Active :=True; //Set true if you want to use this player
Players[0].Boolean1 := False; //Axe Settings: True=Equiped False=InventoryFirstSlot
Players[1].Name :='Name'; //Fill in your username
Players[1].Pass :='Password'; //Fill in your password
Players[1].Nick :='Nick'; //2-3 letters of your username
Players[1].Active :=True; //Set true if you want to use this player
Players[1].Boolean1 := False; //Axe Settings: True=Equiped False=InventoryFirstSlot
Players[2].Name :='Name'; //Fill in your username
Players[2].Pass :='Password'; //Fill in your password
Players[2].Nick :='Nick'; //2-3 letters of your username
Players[2].Active :=True; //Set true if you want to use this player
Players[2].Boolean1 := False; //Axe Settings: True=Equiped False=InventoryFirstSlot
Players[3].Name :='Name'; //Fill in your username
Players[3].Pass :='Password'; //Fill in your password
Players[3].Nick :='Nick'; //2-3 letters of your username
Players[3].Active :=True; //Set true if you want to use this player
Players[3].Boolean1 := False; //Axe Settings: True=Equiped False=InventoryFirstSlot
Players[4].Name :='Name'; //Fill in your username
Players[4].Pass :='Password'; //Fill in your password
Players[4].Nick :='Nick'; //2-3 letters of your username
Players[4].Active :=True; //Set true if you want to use this player
Players[4].Boolean1 := False; //Axe Settings: True=Equiped False=InventoryFirstSlot
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
End;
var
BadAxeDTM, xx, yy, logs, loadscompleted, woodclvl: Integer;
Const VersionNum = '1.8';
Procedure LoadDTMs;
Begin
Status('Loading DTMs')
BadAxeDTM := DTMFromString('78DA633CCEC4C0D0CBC800021012C2E247E23' +
'39E02AA994840CD11A09A7904D45C07AAE926A0E602504D2B0135' +
'97F1ABF90F04002C1A0CA1');
end;
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;
7: Begin
if InBlack then
Begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;
procedure FindRandoms;
Begin
FindFastRandoms;
FindNormalRandoms;
If (FindFight) Then RunAwayDirection('N');
end;
Procedure Talk;
Begin
if Talking = 'False' then
Exit;
else
case random(44) of
0: TypeSend('Most of you are marcoers...');
1: TypeSend('Wc levels? =[)');
2: TypeSend('This is boring but iam going for 99 wc!');
3: TypeSend('I hope you marcoers get banned');
4: TypeSend('Chop chop chop *yawn*');
5: TypeSend('peanut butter jelly time w00t!!!');
6: TypeSend('I dont know about you guys but wcing is so boring..');
7: TypeSend('no, IAM NOT A AUTO BOT!!!');
8: TypeSend('Burt is teh pwnage remember the name :P');
9: TypeSend('.');
10: TypeSend('...3.');
11: TypeSend('w0wza');
12: TypeSend('=p');
13: TypeSend(';p');
14: TypeSend(':p');
15: TypeSend('willows look like mage trees');
16: TypeSend('hella bord');
17: TypeSend('skiller ftw');
18: TypeSend('CS 1.6 stinks');
19: TypeSend('.');
20: TypeSend('..');
21: TypeSend('...');
22: TypeSend('eye of the tiga....');
23: TypeSend('pga tour ftw!');
24: TypeSend('i 8 u');
25: TypeSend('why was 6 afraid of 7? cus 7,8,9 =0!!!');
26: TypeSend('Superman!');
27: TypeSend('the sandwich ldy is evil');
28: TypeSend('mr bojangles oooo');
29: TypeSend('I watch youtube when i train wc :)');
30: TypeSend('i like my meat kentucky frieeed');
31: TypeSend('badabuhbuhbuh iam lovin it');
32: TypeSend('the JAD monster is the coolest thing i know');
33: TypeSend('I watch youtube when i train wc :)');
34: TypeSend('Stanley Stemas');
35: TypeSend('1800 mastress giant oooh yea');
36: TypeSend('Exp, sooo slow...');
37: TypeSend('..33.......');
38: TypeSend('red sox ftw');
39: TypeSend('scoobydoobydooo');
40: TypeSend('*yawn....*');
41: TypeSend('.............................');
42: TypeSend('.');
43: TypeSend('.');
end;
end;
Procedure AntiBan;
Begin
if(not(LoggedIn))then
Exit;
case Random(5) of
0: Begin
GameTab(2);
HoverSkill('Woodcutting', false);
GameTab(4);
End;
1: PickUpMouse;
2: GameTab(1 + Random(12));
3: MouseBox(MSX1,MMY1,MMX2,MMY2,5);
4: SleepAndMoveMouse(3000+random(2000));
end;
end;
function FindObjMultiText2(var cx, cy: Integer; Ut1, UT2, UT3: string; color,
tolerance: Integer): Boolean;
var
x, y, a, c, i, x1, y1, x2, y2: Integer;
Begin
Color := Color;
if (FindColorTolerance(x, y, color, msx1, msy1, msx2, msy2, tolerance)) then
Begin
x1 := 245;
y1 := 165;
x2 := 277;
y2 := 185;
repeat
if (not (Loggedin)) then
Break;
a := a + 1;
if (a = 1) or (a = 3) then
c := c + 1;
for i := 1 to c do
Begin
if (a = 1) then
Begin
x1 := x1 + 30;
x2 := x2 + 30;
end
else if (a = 2) then
Begin
y1 := y1 - 20;
y2 := y2 - 20;
end
else if (a = 3) then
Begin
x1 := x1 - 30;
x2 := x2 - 30;
end
else if (a = 4) then
Begin
y1 := y1 + 20;
y2 := y2 + 20;
end;
if (x1 = 485) and (x2 = 517) then
x2 := x2 - 2;
if (y1 = 325) and (y2 = 345) then
y2 := y2 - 7;
if (x2 > 515) then
Break;
if (FindColorTolerance(x, y, Color, x1, y1, x2, y2, tolerance)) then
Begin
MMouse(x, y, 0, 0)
Wait(10);
cx := x;
cy := y;
if (IsUpTextMulti(UT1, UT2, UT3)) then
Begin
Result := True;
Break;
end;
end;
end;
if (a = 4) then
a := 0;
until (x2 > 515) or (Result = True);
end;
end;
Procedure Proggy;
Begin
Cleardebug;
woodclvl:= Getskilllevel ('Woodcutting')
logs:= logs;
Writeln('^>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>')
Writeln('^ Burts Tree Muncher');
Writeln('^ Version: '+VersionNum);
Writeln('^ Log Type '+Treetype+'.');
Writeln('^ Logs cut '+IntToStr(logs)+'.');
Writeln('^ Loads done '+IntToStr(loadscompleted)+'.');
Writeln('^ Worked For '+TimeRunning);
Writeln('^>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>')
SRLRandomsReport;
end;
Procedure Drop;
Begin
If(Players[CurrentPlayer].Boolean1 = True)Then
Begin
DropTo(1,28);
loadscompleted := loadscompleted+1;
logs := logs+28;
end;
If(Players[CurrentPlayer].Boolean1 = False)Then
Begin
DropTo(2,28);
loadscompleted := loadscompleted+1;
logs := logs+27;
end;
Proggy;
end;
//Ent finder //TY Fourscape
Var
EX, EY : integer;
FX, FY : integer;
Procedure EntChecker;
Begin
Status('Checking For Ent')
Flag;
If (FindObjMultiText(EX, EY, TreeType, TreeType, TreeType, Treecolor, 4)) then
Begin
MMouse(Ex, EY, 0, 0)
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;
end;
Procedure Axecheck;
var x, y: Integer;
Begin
Wait(250+random(55));
if((Players[CurrentPlayer].Boolean2)) = true then
Gametab(5) else
Gametab(4);
If FindDTM(BadAxeDTM,x,y,MIX1,MIY1,MIX2,MIY2) Then
Begin
Writeln('Your axe is dead :(');
TerminateScript;
end else
Begin
Writeln('Your Axe is A okay :)');
end;
end;
Procedure TreecheckT;
Begin
If FindObjMultiText2(xx, yy, 'Tre', 'ree', 'ee', TreeColor, 5) Then
Begin
Writeln('Your by the right tree');
end else
Begin
Writeln('Your not by the tree, script stopped.');
TerminateScript;
end;
end;
Procedure TreecheckO;
Begin
If FindObjMultiText2(xx, yy, 'Oa', 'ak', 'Oak', OakColor, 5) Then
Begin
Writeln('Your by the right tree');
end else
Begin
Writeln('Your not by the tree, script stopped.');
TerminateScript;
end;
end;
Procedure TreecheckW;
Begin
If FindObjMultiText2(xx, yy, 'wil', 'ill', 'low', TreeColor, 5) Then
Begin
Writeln('Your by the right tree');
end else
Begin
Writeln('Your not by the tree, script stopped.');
TerminateScript;
end;
end;
Procedure TreecheckY;
Begin
If FindObjMultiText2(xx, yy, 'Ye', 'ew', 'Yew', TreeColor, 5) Then
Begin
Writeln('Your by the right tree');
end else
Begin
Writeln('Your not by the tree, Script stopped.');
TerminateScript;
end;
end;
Procedure Tree;
Begin
GameTab(4);
Repeat
If FindObjMultiText2(xx, yy, 'Tre', 'ree', 'ee', TreeColor, 5) Then
Mouse(xx, yy, 5, 6, true);
Wait(100 + random(200));
EntChecker;
FindRandoms;
AntiBan;
Axecheck;
wait(1000 + random(500));
TreecheckT;
Talk;
wait(3000 + random(400));
Until (invcount = 28);
Drop;
End;
Procedure Oak;
Begin
GameTab(4);
Repeat
If FindObjMultiText2(xx, yy, 'Oa', 'ak', 'Oak', OakColor, 5) Then
Mouse(xx, yy, 5, 6, true);
Wait(700 + random(200));
EntChecker;
FindRandoms;
AntiBan;
Axecheck;
wait(5000 + random(500));
TreecheckO;
Talk;
wait(3000 + random(400));
Until (invcount = 28);
Drop;
End;
Procedure Willow;
Begin
GameTab(4);
Repeat
If FindObjMultiText2(xx, yy, 'wil', 'ill', 'low', TreeColor, 5) Then
Mouse(xx, yy, 5, 6, true);
Wait(700 + random(200));
EntChecker;
FindRandoms;
AntiBan;
Axecheck;
TreecheckW;
Talk;
wait(3000 + random(400));
Until (invcount = 28);
Drop;
End;
Procedure Yew;
Begin
GameTab(4);
Repeat
If FindObjMultiText2(xx, yy, 'Ye', 'ew', 'Yew', TreeColor, 5) Then
Mouse(xx, yy, 5, 6, true);
Wait(700 + random(200));
EntChecker;
FindRandoms;
AntiBan;
Axecheck;
wait(30000 + random(5000));
TreecheckY;
Talk;
wait(3000 + random(400));
Until (invcount = 28);
Drop;
End;
Begin
SetupSRL;
activateclient;
ClearDebug;
Proggy;
DeclarePlayers;
loadscompleted := 0;
makecompass('N')
highestangle;
If(not(LoggedIn)) Then
LoginPlayer;
Repeat
If(loadscompleted = loads)Then
Begin
NextPlayer(True);
End;
Case Treetype of
'Tree': Tree;
'Oak': Oak;
'Willow': Willow;
'Yew': Yew;
End;
Until(False);
end.——————————————————
<!– END TEMPLATE: formanswers –>