freedox
2007-11-25 13:25:53
<!– BEGIN TEMPLATE: formanswers –>
freedox - SRL Member Application Form
freedox
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
negaal
Programming Knowledge
VisualBasic:)
Other Communitys
None
How Long have You Played Runescape
four years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I live in Estonia and i have played runescape like 4 years.My frined told me that other ppl's play runescape with programs and i was interested in it.I spoked with my friend "Negaal" and he talked about scar.My first script was autotalker which you can find in "First Script" topic.Then i studied more about scar and now i have made PowerChopper whic i would like to use to get in members;)
Now i like to use scar all time time playing runescape because i think that it's the best way to play runescape.:)
I like spending time in forums and be active and whats the best thing-i like to do is to test other ppl's scripts and post all the problems or good thing about that script.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
freedox - SRL Member Application Form
freedox
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
negaal
Programming Knowledge
VisualBasic:)
Other Communitys
None
How Long have You Played Runescape
four years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I live in Estonia and i have played runescape like 4 years.My frined told me that other ppl's play runescape with programs and i was interested in it.I spoked with my friend "Negaal" and he talked about scar.My first script was autotalker which you can find in "First Script" topic.Then i studied more about scar and now i have made PowerChopper whic i would like to use to get in members;)
Now i like to use scar all time time playing runescape because i think that it's the best way to play runescape.:)
I like spending time in forums and be active and whats the best thing-i like to do is to test other ppl's scripts and post all the problems or good thing about that script.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{===================================================================]
[ Freedox Auto Woodcutter! ]
[ ]
[ NAME : Woodcutter ]
[ WRITER : Freedox ]
[ CATEGORY : Chopper ]
[ DESCRIPTION : Powerchopper ]
[ USAGE : Start near a tree(Dont Use it on NORMAL TREES! ]
[ AUTOCOLOR : Partically ]
[ SRL Used : #7 ]
[ Scar User : Scar DIVI 3.13 ]
[ ]
[ More Scripts can be found at ]
[ [url]www.SRL-Forums.com[/url] ]
[===================================================================]
[ Instructions. ]
[===================================================================]
[ 1. USE Runescape with Low Detail, Very Bright. ]
[ 2. Set your Screen to 32 bit TRUE color. ]
[ 3. Setup lines below ]
[ 4. Set Playernames and Passwords below. ]
[ 5. Start script Logged Out / Logged in ]
[ 6. Leave Your player near to tree. ]
[===================================================================}
{.include SRL\SRL.SCAR}
{.include SRL\SRL\Skill\Woodcutting.SCAR}
const
RunDirec = 'W'; //Run away direction from fights, ents, etc.
AmountofLoads = 5; //How many loads per player
Treecolor = 1929057; // Color of the tree you're chopping
Treename = 'Oak'; // Name of the tree you're chopping
CutTime = 10000; //Interval between Clicikng on trees
var
Loads, LogsCut: Integer;
Log, BrokenAxe, AxeHandle, RegularAxe,
Axecolor, Axecolor2, Axecolor3,
FX, FY, TX, TY,X ,Y : Integer;
procedure DeclarePlayers;
begin
Status('Loading Players')
HowManyPlayers := 8; // How many players are you using?
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Runescape username
Players[0].Pass := ''; // Runescape password
Players[0].Nick := 'ate'; // 2-4 letters of your Runescape username (No capitals or spaces)
Players[0].Active := True; //Are you using this player?
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := False;
Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Active := False;
Players[3].Name := '';
Players[3].Pass := '';
Players[3].Nick := '';
Players[3].Active := False;
Players[4].Name := '';
Players[4].Pass := '';
Players[4].Nick := '';
Players[4].Active := False;
Players[5].Name := '';
Players[5].Pass := '';
Players[5].Nick := '';
Players[5].Active := False;
Players[6].Name := '';
Players[6].Pass := '';
Players[6].Nick := '';
Players[6].Active := False;
Players[7].Name := '';
Players[7].Pass := '';
Players[7].Nick := '';
Players[7].Active := False;
end;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
{
-------------------------------
// \\
|| DTM'S ||
\\ //
------------------------------
}
procedure LoadDTMs;
begin
Log := DTMFromString('78DA632C666260E0646440067921460CFF813' +
'448F43F103066314179C880118904D2354035FF19F0AB2905AA11' +
'22604E23500D0F0135C94035DCF8D50000507909F5');
BrokenAxe := DTMFromString('78DA633CCAC4C090C1C8800C9A127919FE036' +
'990E87F2060BC0C54938CAA06220B2381F445A09A04026A8E01D5' +
'C41050B31FA8A698809AB384CD0100CBBD0D20');
AxeHandle := DTMFromString('78DA637CCFC4C0E0C6C8800CCA227819FE036' +
'990E87F2060FC06546389AA06220B2381F473A09A00026ADE00D5' +
'F81350F316A8C685809A97403541F8D50000D0090D3C');
RegularAxe := DTMFromString('78DA637461626060676440060DF1BC0CFF813' +
'448F43F10300601D5FC6740038C482490F604AAF94D408D13500D' +
'2B237E35F640358204D4F813618E1F50CD1F02EE0906AA61C26F0' +
'E0099720B7E');
end;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Procedure Responder;
begin
if inchat('lvl') then saycurrentlevels('Woodcutting');
wait(10);
if inchat('Hi') then typesend ('Hello');
wait(10);
if inchat('Nice') then typesend ('ty');
end;
{ ------------------------------
// \\
|| Anti Ban ||
\\ //
------------------------------- }
procedure MyAntiBan;
begin
if (not (LoggedIn)) then
Exit;
case Random(40) of
0: SetRun(true);
1: begin
HoverSkill('Woodcutting', false);
Wait(992 + random(213));
GameTab(4);
end;
2: begin
HoverSkill('Firemaking', false);
Wait(892 + random(113));
GameTab(4);
end;
3: begin
GameTab(5)
Wait(889 + random(852));
GameTab(4)
end;
4: PickUpMouse;
5: begin
Hoverskill('random', false);
gametab(4);
end;
6: begin
case random(5) of
0: begin
TypeSend('Woodcutting lvls ppl?')
Wait(2458 + random(1438));
TypeSend('Mines 48');
end;
1: TypeSend('Yay only 200k more exp to go... -.-');
2: TypeSend('Omg Woodcutting is so lame and boring..');
3: TypeSend('Boredd..');
4: TypeSend('Well only 20 more levels to go..');
5: begin
TypeSend('Cant wait till im lvl 70 wc');
Wait(2438 + random(1589));
TypeSend('Cutting yews is so much faster =]');
end;
6: TypeSend('These guys are autoers.. Or are they? X[)');
7: begin
TypeSend('Well you ppl are lame..');
Wait(1135 + random(895));
TypeSend('Jk =P');
end;
8: TypeSend('Hmm.. am i bored, or am i bored? =[]');
9: begin
TypeSend('Anyone see family guy last night?')
Wait(1184 + random(854));
TypeSend('Well i didnt X[) lol');
end;
end;
end;
7: begin
HoverSkill('Mining', false);
Wait(792 + random(121));
GameTab(4);
end;
8: begin
GameTab(1);
Wait(500 + random(98))
GameTab(2);
Wait(698 + random(87))
GameTab(3);
Wait(410 + random(110))
GameTab(4);
Wait(619 + random(54))
GameTab(5);
Wait(742 + random(67))
GameTab(6);
Wait(355 + random(69))
GameTab(4);
end;
9: MMouse(Random(MSX2), Random(MSY2), 0, 0);
10: HoverSkill('random', false);
end;
end;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
procedure EntFinder;
var
EX, EY: integer;
FX, FY: integer;
SafeEntWait: LongInt;
begin
Status('Checking For Ent')
if (FindObjCustom(EX, EY, [Treename], [Treecolor],5)) then
begin
MMouse(EX, EY, 0, 0)
if FindColorTolerance(FX, FY, 55769, 85, 15, 115, 15, 20) then
begin
Status('Ent Found');
MouseFindFlag(645, 83, 2, 2);
MarkTime(SafeEntWait)
repeat
FTWait(5)
FindNormalRandoms;
if not (LoggedIn) then
NextPlayer(False);
until TimeFromMark(SafeEntWait) > 29000 + Random(10000)
EntsAvoided := EntsAvoided + 1
end;
end;
end;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
procedure FindRandoms;
begin
FindNormalRandoms;
Wait(20)
FindTalk;
Wait(20)
EntFinder;
if (FindFight) then
begin
RunAwayDirection(RunDirec);
Wait(8000 + Random(2000));
RunBack;
end;
end;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
procedure AxeHeadColors;
begin
GameTab(4)
Axecolor := Getcolor(583, 218);
wait(50);
Axecolor2:= Getcolor(585,220);
wait(50);
AxeColor3:= Getcolor(584, 222);
wait(50);
end;
procedure IsAxeBroken;
begin
GameTab(4)
Wait(450 + random(130))
if (FindDTM(RegularAxe, FX, FY, MIX1, MIY1, MIX2, MIY2)) and
(not(FindDTM(BrokenAxe, TX, TY, MIX1, MIY1, MIX2, MIY2))) then
begin
Exit;
end;
begin
if (FindDTM(BrokenAxe, TX, TY, MIX1, MIY1, MIX2, MIY2)) and
(not(FindDTM(RegularAxe, FX, FY, MIX1, MIY1, MIX2, MIY2))) then
begin
Writeln('Axe Broken, Switiching Players.')
NextPlayer(False)
end;
end;
end;
procedure FindAxeHead;
begin
Status('finding the axe head colors')
gametab(4);
if not(FindDTM(RegularAxe, FX, FY, MIX1, MIY1, MIX2, MIY2)) and
not(FindDTM(BrokenAxe, TX, TY, MIX1, MIY1, MIX2, MIY2)) then
if FindObjCustom(X, Y, ['ead'], [axecolor, axecolor2, axecolor3], 6) then
begin
mouse(x,y,0,0,true);
gametab(4);
ClickAllItemsColorTolWait('ield', Axecolor, 9, 1000);
end;
if not FindDTM(RegularAxe, FX, FY, MIX1, MIY1, MIX2, MIY2) then nextplayer(false);
end;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
{ =============================
Tree Chopping
============================= }
procedure ChopTree;
var
TimeMarker: Integer;
TriesToFindTree: Integer;
TreeFound: Boolean;
Result1 : Boolean;
begin
If InvFull then Exit;
If not LoggedIn then Exit;
AxeHeadColors;
Repeat
Result1 := False;
Wait(50+Random(25));
IsAxeBroken;
Wait(100+Random(25));
EntFinder;
Wait(50+Random(25));
if FindObjCustom(X, Y, [Treename, Treename, Treename], [TreeColor], 6) then
begin
Wait(20 + Random(20))
Mouse(x, y, 2, 2, True);
Wait(100+Random(50))
FindRandoms;
FtWait(2 + random(5));
responder;
MyAntiBan;
FtWait(2 + random(10));
FindAxeHead;
FtWait(2 + random(10));
TreeFound := True;
end Else writeln (' Did not find tree')
Wait(100+random(100));
if treefound then
begin
TriesToFindTree := 0;
MarkTime (TimeMarker);
Repeat
Wait(200+random(100))
FindRandoms;
EntFinder;
Until (InvFull) or (TimeFromMark (TimeMarker) > CutTime) // Add here time to wait till clicking tree again
end Else
begin
Wait(100+random(100)); //waits for tree to come back
TriesToFindTree := TriesToFindTree + 1;
end;
until (InvFull) or (TriesToFindTree > 8);
if(TriesToFindTree > 9)then
begin
Writeln('Tree not found 10 times! logging out');
Logout;
end;
end;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
procedure DroppingLogs;
var
bx, by: Integer;
begin
if (InvFull) then
begin
GameTab(4);
repeat
if (FindDTM(Log, bx, by, MIX1, MIY1, MIX2, MIY2)) then
Mouse(bx, by, 4, 4, false)
ChooseOption('Drop')
Wait(1000+Random(120))
LogsCut := LogsCut + 1;
until (not (FindDTM(Log, bx, by, MIX1, MIY1, MIX2, MIY2)))
Loads := Loads + 1;
end;
end;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
procedure ProgressReport;
begin
ClearDebug;
Writeln('<<=================================================>>')
Writeln('<< Power Cutter ')
Writeln('<< Worked For: ' + TimeRunning)
Writeln('<< Chopped: ' + IntToStr(LogsCut) + ' Logs ')
Writeln('<< Total load made: ' + IntToStr(Loads) + ' Loads ')
Writeln('<< ')
Writeln('<<=================================================>>')
SRLRandomsReport;
end;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
procedure Setup;
begin
SetupSRL;
DeclarePlayers;
LoadDTMs;
ActivateClient;
end;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
begin
Wait(2000)
Setup;
begin
if (not (LoggedIn)) then Loginplayer;
HighestAngle;
MakeCompass('N')
repeat
Wait(2000 + Random(1000))
ChopTree;
DroppingLogs;
ProgressReport;
if (Loads = AmountofLoads) then
begin
HighestAngle;
MakeCompass('N');
LogOut;
NextPlayer(True);
Loads := 0
end;
until not(Players[CurrentPlayer].Active)
end;
end.
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~——————————————————
<!– END TEMPLATE: formanswers –>