ericjzhang
2008-04-24 22:00:18
Intro:
This is basiclly KoolDude's fletcher, expect I modified DTM's, added DTM's, changed the banking system, and made it fletch mage longbows. It took me about 4 hours to tweak it, since his script had lots of bugs.
Features:
-Lots of DTM's
-Very fast cutting
-When entering "X" amount, it waits for the "Enter Amount:" to come up so it doesn't matter if your computer is laggy or not.
-Very flawless clicking
-Can be used in all F2P banks and pest control (fwb)
-ONLY WORKING MAGE LONG CUTTER
Known Bugs:
-Sometimes messes up the banking in Pest Control
-Sometimes the DTM for magic logs are not recongized, so you might have to restart scar and RuneScape, or contact me.
USED TO SCAR 3.15 and SRL 4 #15.
Regular Version:
SMART Version:
Please rep+ me and KoolDude :) :) :)
This is basiclly KoolDude's fletcher, expect I modified DTM's, added DTM's, changed the banking system, and made it fletch mage longbows. It took me about 4 hours to tweak it, since his script had lots of bugs.
Features:
-Lots of DTM's
-Very fast cutting
-When entering "X" amount, it waits for the "Enter Amount:" to come up so it doesn't matter if your computer is laggy or not.
-Very flawless clicking
-Can be used in all F2P banks and pest control (fwb)
-ONLY WORKING MAGE LONG CUTTER
Known Bugs:
-Sometimes messes up the banking in Pest Control
-Sometimes the DTM for magic logs are not recongized, so you might have to restart scar and RuneScape, or contact me.
USED TO SCAR 3.15 and SRL 4 #15.
Regular Version:
{=========================================================================]
[ NAME : ChaosDestany's Mage Longbow Maker ]
[ WRITER : ChaosDestany, aka Eric Zhang ]
[ CATEGORY : Fletching ]
[ DESCRIPTION : Cuts and banks Magic Longbow (u)'s ]
[ USAGE : To Raise Your Fletching Level ]
[ AUTOCOLOR : Yes ]
[ CONTACT : [email]Chaosdestany@runescape.com[/email] ]
[=========================================================================]
[ Instructions. ]
[=========================================================================]
[ 1. USE Runescape With Low Detail, Very Bright. ]
[ 2. Set your Screen To 32 bit TRUE color. ]
[ 3. Position Players In Bank ]
[ 4. Set Playernames And Passwords / SRL Id And Pass in Player Setup ]
[ 5. Have Magic Logs in top section of your bank. ]
[ 6. Have Knife in inventory. ]
[ 7. Have Scar 3.15 and SRL 4.15 installed ]
[=========================================================================}
Program ChaosDestanys_Mage_Long_Fletcher_v_1;
{.Include SRL\SRL.scar}
Var
x, y, TimesBank, Log,
Knife, StartXP, EndXP, TotalXP, EnterAmount,
LongBow: Integer;
Const
Bank = 'pc'; // feb,fwb,veb,vwb,db,eb,akb, pc
Numberoftimes = 10000; //Loads to Fletch
Pin = ''; //Bankpin number
{------------------------------}
{ Declaring Players }
{------------------------------}
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''username; // Username
Players[0].Pass := 'password'; // Password
Players[0].Nick := 'sern'; // 3-4 letters of your Username
Players[0].Active := True; // Auto with this char?
SRLId:= '3050'; // Srl Stats Id Not Username
SRLPassword:= 'newhaven'; // Srl Password
End;
function OpenBankFast2(Location: String): Boolean;
var
x, y, i, l, c, z: Integer;
Info: TIntegerArray;
Booths, t: TPointArray;
begin
If BankScreen Or PinScreen Then
Begin
Result := True;
Exit;
End;
Wait(400);
case LowerCase(Location) of
'akb', 'al kharid': Info := [MSCX, MSCY, 606291, 4, 1];
'lb', 'lumbridge': Info := [MSCX, MSCY, 6196388, 9, 1];
'veb', 'varrock east': Info := [MSCX, MSCY, 2971236, 10, 1];
'vwb', 'varrock west': Info := [270, 270, 5689318, 25, 1];
'feb', 'falador east': Info := [MSCX, MSCY + 50, 4612728, 14, 1];
'pc', 'falador west': Info := [MSCX, MSCY + 50, 4612728, 14, 1];
'fwb', 'falador west': Info := [MSCY, MSCY, 4612728, 14, 1];
'db', 'draynor': Info := [MSCX, MSCY, 605006, 4, 1];
'eb', 'edgeville bank': Info := [MSCX + 50, MSCY, 3230295, 9, 2];
else
begin
WriteLn('Unknown bank: '+Location);
Exit;
end;
end;
MakeCompass('n');
z := GetColorToleranceSpeed;
ColorToleranceSpeed(Info[4]);
FindColorsSpiralTolerance(Info[0], Info[1], Booths, Info[2], MSX1, MSY1, MSX2, MSY2, Info[3]);
ColorToleranceSpeed(z);
SetArrayLength(t, 0);
t := Booths;
SetArrayLength(Booths, 0);
Booths := ReArrangeAndShortenArray(t, 14);
l := GetArrayLength(Booths) -1;
for i := 0 to l do
begin
if (not LoggedIn) or BankScreen or PinScreen then
Break;
if (LowerCase(Location) = 'vwb') or (LowerCase(Location) = 'varrock west') then
begin
Booths[i].X := Booths[i].X + 5;
Booths[i].Y := Booths[i].Y - 20;
end;
MMouse(Booths[i].X, Booths[i].Y, 3, 3);
Wait(75 + Random(15));
if IsUpText('ooth') Then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, False);
Wait(30 + Random(15));
if ChooseOption('uickly') then
begin
FFLag(0);
MarkTime(c);
repeat
Wait(80);
until (BankScreen) or (PinScreen) or (TimeFromMark(c) > 3000);
end;
end;
end;
Result := (BankScreen) or (PinScreen);
end;
Function FixBank2: Boolean;
var
x, y: Integer;
begin
if (GetColor(475, 75) = 1777699) and (BankScreen) then
begin
Result := True;
MMouse(475, 65, 3, 3)
GetMousePos(x, y);
HoldMouse(x + Random(1), y + Random(1), True);
while (GetColor(475, 75) = 1777699) do
Wait(73);
Wait(100 + Random(100));
GetMousePos(x, y);
ReleaseMouse(x, y, True);
end;
end;
Procedure DTMs;
Begin
Log := DTMFromString('78DA632C666660506664400665394E601A26C' +
'A9887A9A628C304554D01508D2CAA1A982C5C0DC82E75026A4A81' +
'6A5450D568AD9C83698E0C7E3500A43908AD');
Knife := DTMFromString('78DA637460626078CE8002C2ADB919FE03694' +
'620FE0F048C9E4035D718D000231209A42D806A3E1150E30854F3' +
'8A801A27A09A9704D480DCFC18BF1A0065470C9F');
LongBow := DTMFromString('78DA637466626078C88002A4D2E2C0342394C' +
'F0852F300558D4A6F13AA1A27A09AFBA86AA4B39250D5B860DAA5' +
'D2558F69D7230634C088AAC603A8E619AA0AC9A428143500966E0' +
'BF4');
EnterAmount := DTMFromString('78DA63FCC3C0C03089910119DC39B5124CC34' +
'4196F038909A86A6E9F5882A9661201359A40561FAA1A1880ABD1' +
'02B2261330E737038639186E06A99981DF1C00A7ED16C8');
End;
Procedure Banking;
Var
Tries: Integer;
Begin
If Not LoggedIn Then Exit;
If OpenBankFast2(Bank) Then
Begin
Wait(2000 + Random(100));
If (Pinscreen) Then
InPin(Pin);
If BankScreen Then
Begin
If FixBank2 Then
Wait(100 + Random(100));
Repeat
If FindDTM(Log, x, y, MSX1, MSY1, MSX2, MSY2) Then
Break;
Wait(242 + Random(23));
Tries := Tries + 1
If (Tries >= 5) Then
Begin
Writeln('Magic Logs Not Found');
CloseBank;
Wait(100 + Random(500));
Logout;
End;
Until(FindDTM(Log, x, y, MSX1, MSY1, MSX2, MSY2));
End;
Mouse(x + Random(13), y + Random(4), 1, 1, False);
Wait(40 + Random(50));
ChooseOption('All');
Writeln('Withdrew Magic Logs');
Closebank;
Wait(100 + Random(70));
Gametab(4);
Wait(70 + Random(14));
End;
End;
Procedure Depositing;
Var
Tries: integer;
begin
If Not LoggedIn Then Exit;
If InvFull Then
Begin
If OpenBankFast2(bank) Then
begin
Mouse(622, 230, 3, 3, false);
Wait(99 + Random(33))
ChooseOption('All');
Timesbank :=Timesbank+1
End;
End;
End;
Procedure Fletching;
Var
FletchingFailSafe: Integer;
Begin
If Not LoggedIn Then Exit;
CloseBank;
Gametab(4);
Wait(100 + Random(300));
If Not FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2) Then
Begin
Writeln('Didnt Withdraw logs.');
Banking;
End;
If FindDTM(Knife, x, y, MIX1, MIY1, MIX2, MIY2) Then
Begin
Writeln('Knife Found');
Mouse(x, y, 1, 1, True);
Wait(20 + Random(100));
If FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2) Then
Begin
MMouse(x, y, 1, 1);
If (IsUpText('se')) Then
Begin
GetMousePos(x,y);
Mouse(x, y, 0, 0, True);
Writeln('Found Magic Log');
Wait(230 + Random(10));
Mouse(354+random(21),424+random(20),0,0,false);
Wait(100 + Random(30));
ChooseOption('X');
wait(1000)
end;
if FindDTM(EnterAmount, x, y, 104, 361, 357, 447) then
begin
Writeln('Entering');
Wait(100 + Random(22));
TypeSend('33');
MarkTime(FletchingFailSafe);
end;
Repeat
Wait(245 + Random(22));
If Not FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2) Then
Break;
If (CountItemsDtm('inv', LongBow) > 27) Then
Break;
If (TimeFromMark(FletchingFailSafe) > 60000) Then
Break;
If FindFight Then
Begin
RunAway('S', True, 1, (5000 + Random(2000)));
Fletching;
End;
If FindNormalRandoms Then
Fletching;
Until(Not LoggedIn);
End;
End;
End;
{------------------------------}
{ Rays Special Antiban }
{------------------------------}
Procedure RayBan;
Begin
If Not LoggedIn Then Exit;
Case Random(11) Of
1: MakeCompass('S');
2: MakeCompass('W');
3: MakeCompass('E');
4: MakeCompass('N');
End;
End;
Procedure MouseAntiBan;
Begin
If Not LoggedIn Then Exit;
If Not (LoggedIn) Then
Exit;
Case Random(10) Of
0 : PickupMouse;
1 : IdleTime(9567 + Random(359), 1000, 1.0);
2 : SleepAndMoveMouse(1343 + Random(2500));
3 : RandomRClick;
5 : HoverSkill('Mining', False);
End;
End;
Procedure Progress(Way: Integer);
Begin
End;
Procedure Report;
Begin
SRLRandomsReport;
ClearDebug;
Writeln('[]=======================================[]')
Writeln('[]ChaosDestanys AKA Eric Zhang[]')
Writeln('[]-Magic Longbow (u) Fletcher-[]')
Writeln('[] Banked: ' + IntToStr (Timesbank+1) + '[]')
Writeln('[] XP Gained: ' + IntToStr(Timesbank*27*91+2457) + '[]' )
Writeln('[] Worked for '+ TimeRunning);
End;
procedure Siggy;
begin
ClearDebug;
Writeln('ChaosDestanys Mage Longbow Fletcher v 1.0')
Writeln('Thanks to KoolDude for the source, I just edited. ')
Wait(1000 + Random(750));
end;
Begin
SRLId := SRLId;
SRLPassword:= SRLPassword;
SetTargetDC(SmartGetDC);
Declareplayers;
SetupSRL;
ScriptId:= '808';
Siggy;
Report;
ActivateClient;
Progress(1);
LoginPlayer;
SetAngle(True);
Dtms;
Repeat
If Not Loggedin Then
TerminateScript;
FindNormalRandoms;
Banking;
Fletching;
Progress(2);
Report;
Rayban;
MouseAntiBan;
Depositing;
Until(Timesbank >= NumberOfTimes);
Progress(2);
Report;
End.
SMART Version:
{=========================================================================]
[ NAME : ChaosDestany's Mage Longbow Maker ]
[ WRITER : ChaosDestany, aka Eric Zhang ]
[ CATEGORY : Fletching ]
[ DESCRIPTION : Cuts and banks Magic Longbow (u)'s ]
[ USAGE : To Raise Your Fletching Level ]
[ AUTOCOLOR : Yes ]
[ CONTACT : [email]Chaosdestany@runescape.com[/email] ]
[=========================================================================]
[ Instructions. ]
[=========================================================================]
[ 1. USE Runescape With Low Detail, Very Bright. ]
[ 2. Set your Screen To 32 bit TRUE color. ]
[ 3. Position Players In Bank ]
[ 4. Set Playernames And Passwords / SRL Id And Pass in Player Setup ]
[ 5. Have Magic Logs in top section of your bank. ]
[ 6. Have Knife in inventory. ]
[ 7. Have Scar 3.15 and SRL 4.15 installed ]
[=========================================================================}
Program ChaosDestanys_Mage_Long_Fletcher_v_1;
{.Include SRL\SRL.scar}
{.include SRL/SRL/Misc/Smart.scar}
Var
x, y, TimesBank, Log,
Knife, StartXP, EndXP, TotalXP, EnterAmount,
LongBow: Integer;
Const
Bank = 'pc'; // feb,fwb,veb,vwb,db,eb,akb, pc
Numberoftimes = 10000; //Loads to Fletch
Pin = ''; //Bankpin number
{------------------------------}
{ Declaring Players }
{------------------------------}
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'username'; // Username
Players[0].Pass := 'password'; // Password
Players[0].Nick := 'sern'; // 3-4 letters of your Username
Players[0].Active := True; // Auto with this char?
SRLId:= '3050'; // Srl Stats Id Not Username
SRLPassword:= 'newhaven'; // Srl Password
End;
function OpenBankFast2(Location: String): Boolean;
var
x, y, i, l, c, z: Integer;
Info: TIntegerArray;
Booths, t: TPointArray;
begin
If BankScreen Or PinScreen Then
Begin
Result := True;
Exit;
End;
Wait(400);
case LowerCase(Location) of
'akb', 'al kharid': Info := [MSCX, MSCY, 606291, 4, 1];
'lb', 'lumbridge': Info := [MSCX, MSCY, 6196388, 9, 1];
'veb', 'varrock east': Info := [MSCX, MSCY, 2971236, 10, 1];
'vwb', 'varrock west': Info := [270, 270, 5689318, 25, 1];
'feb', 'falador east': Info := [MSCX, MSCY + 50, 4612728, 14, 1];
'pc', 'falador west': Info := [MSCX, MSCY + 50, 4612728, 14, 1];
'fwb', 'falador west': Info := [MSCY, MSCY, 4612728, 14, 1];
'db', 'draynor': Info := [MSCX, MSCY, 605006, 4, 1];
'eb', 'edgeville bank': Info := [MSCX + 50, MSCY, 3230295, 9, 2];
else
begin
WriteLn('Unknown bank: '+Location);
Exit;
end;
end;
MakeCompass('n');
z := GetColorToleranceSpeed;
ColorToleranceSpeed(Info[4]);
FindColorsSpiralTolerance(Info[0], Info[1], Booths, Info[2], MSX1, MSY1, MSX2, MSY2, Info[3]);
ColorToleranceSpeed(z);
SetArrayLength(t, 0);
t := Booths;
SetArrayLength(Booths, 0);
Booths := ReArrangeAndShortenArray(t, 14);
l := GetArrayLength(Booths) -1;
for i := 0 to l do
begin
if (not LoggedIn) or BankScreen or PinScreen then
Break;
if (LowerCase(Location) = 'vwb') or (LowerCase(Location) = 'varrock west') then
begin
Booths[i].X := Booths[i].X + 5;
Booths[i].Y := Booths[i].Y - 20;
end;
MMouse(Booths[i].X, Booths[i].Y, 3, 3);
Wait(75 + Random(15));
if IsUpText('ooth') Then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, False);
Wait(30 + Random(15));
if ChooseOption('uickly') then
begin
FFLag(0);
MarkTime(c);
repeat
Wait(80);
until (BankScreen) or (PinScreen) or (TimeFromMark(c) > 3000);
end;
end;
end;
Result := (BankScreen) or (PinScreen);
end;
Function FixBank2: Boolean;
var
x, y: Integer;
begin
if (GetColor(475, 75) = 1777699) and (BankScreen) then
begin
Result := True;
MMouse(475, 65, 3, 3)
GetMousePos(x, y);
HoldMouse(x + Random(1), y + Random(1), True);
while (GetColor(475, 75) = 1777699) do
Wait(73);
Wait(100 + Random(100));
GetMousePos(x, y);
ReleaseMouse(x, y, True);
end;
end;
Procedure DTMs;
Begin
Log := DTMFromString('78DA632C666660506664400665394E601A26C' +
'A9887A9A628C304554D01508D2CAA1A982C5C0DC82E75026A4A81' +
'6A5450D568AD9C83698E0C7E3500A43908AD');
Knife := DTMFromString('78DA637460626078CE8002C2ADB919FE03694' +
'620FE0F048C9E4035D718D000231209A42D806A3E1150E30854F3' +
'8A801A27A09A9704D480DCFC18BF1A0065470C9F');
LongBow := DTMFromString('78DA637466626078C88002A4D2E2C0342394C' +
'F0852F300558D4A6F13AA1A27A09AFBA86AA4B39250D5B860DAA5' +
'D2558F69D7230634C088AAC603A8E619AA0AC9A428143500966E0' +
'BF4');
EnterAmount := DTMFromString('78DA63FCC3C0C03089910119DC39B5124CC34' +
'4196F038909A86A6E9F5882A9661201359A40561FAA1A1880ABD1' +
'02B2261330E737038639186E06A99981DF1C00A7ED16C8');
End;
Procedure Banking;
Var
Tries: Integer;
Begin
If Not LoggedIn Then Exit;
If OpenBankFast2(Bank) Then
Begin
Wait(2000 + Random(100));
If (Pinscreen) Then
InPin(Pin);
If BankScreen Then
Begin
If FixBank2 Then
Wait(100 + Random(100));
Repeat
If FindDTM(Log, x, y, MSX1, MSY1, MSX2, MSY2) Then
Break;
Wait(242 + Random(23));
Tries := Tries + 1
If (Tries >= 5) Then
Begin
Writeln('Magic Logs Not Found');
CloseBank;
Wait(100 + Random(500));
Logout;
End;
Until(FindDTM(Log, x, y, MSX1, MSY1, MSX2, MSY2));
End;
Mouse(x + Random(13), y + Random(4), 1, 1, False);
Wait(40 + Random(50));
ChooseOption('All');
Writeln('Withdrew Magic Logs');
Closebank;
Wait(100 + Random(70));
Gametab(4);
Wait(70 + Random(14));
End;
End;
Procedure Depositing;
Var
Tries: integer;
begin
If Not LoggedIn Then Exit;
If InvFull Then
Begin
If OpenBankFast2(bank) Then
begin
Mouse(622, 230, 3, 3, false);
Wait(99 + Random(33))
ChooseOption('All');
Timesbank :=Timesbank+1
End;
End;
End;
Procedure Fletching;
Var
FletchingFailSafe: Integer;
Begin
If Not LoggedIn Then Exit;
CloseBank;
Gametab(4);
Wait(100 + Random(300));
If Not FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2) Then
Begin
Writeln('Didnt Withdraw logs.');
Banking;
End;
If FindDTM(Knife, x, y, MIX1, MIY1, MIX2, MIY2) Then
Begin
Writeln('Knife Found');
Mouse(x, y, 1, 1, True);
Wait(20 + Random(100));
If FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2) Then
Begin
MMouse(x, y, 1, 1);
If (IsUpText('se')) Then
Begin
GetMousePos(x,y);
Mouse(x, y, 0, 0, True);
Writeln('Found Magic Log');
Wait(230 + Random(10));
Mouse(354+random(21),424+random(20),0,0,false);
Wait(100 + Random(30));
ChooseOption('X');
wait(1000)
end;
if FindDTM(EnterAmount, x, y, 104, 361, 357, 447) then
begin
Writeln('Entering');
Wait(100 + Random(22));
TypeSend('33');
MarkTime(FletchingFailSafe);
end;
Repeat
Wait(245 + Random(22));
If Not FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2) Then
Break;
If (CountItemsDtm('inv', LongBow) > 27) Then
Break;
If (TimeFromMark(FletchingFailSafe) > 60000) Then
Break;
If FindFight Then
Begin
RunAway('S', True, 1, (5000 + Random(2000)));
Fletching;
End;
If FindNormalRandoms Then
Fletching;
Until(Not LoggedIn);
End;
End;
End;
{------------------------------}
{ Rays Special Antiban }
{------------------------------}
Procedure RayBan;
Begin
If Not LoggedIn Then Exit;
Case Random(11) Of
1: MakeCompass('S');
2: MakeCompass('W');
3: MakeCompass('E');
4: MakeCompass('N');
End;
End;
Procedure MouseAntiBan;
Begin
If Not LoggedIn Then Exit;
If Not (LoggedIn) Then
Exit;
Case Random(10) Of
0 : PickupMouse;
1 : IdleTime(9567 + Random(359), 1000, 1.0);
2 : SleepAndMoveMouse(1343 + Random(2500));
3 : RandomRClick;
5 : HoverSkill('Mining', False);
End;
End;
Procedure Progress(Way: Integer);
Begin
End;
Procedure Report;
Begin
SRLRandomsReport;
ClearDebug;
Writeln('[]=======================================[]')
Writeln('[]ChaosDestanys AKA Eric Zhang[]')
Writeln('[]-Magic Longbow (u) Fletcher-[]')
Writeln('[] Banked: ' + IntToStr (Timesbank+1) + '[]')
Writeln('[] XP Gained: ' + IntToStr(Timesbank*27*91+2457) + '[]' )
Writeln('[] Worked for '+ TimeRunning);
End;
procedure Siggy;
begin
ClearDebug;
Writeln('ChaosDestanys Mage Longbow Fletcher v 1.0')
Writeln('Thanks to KoolDude for the source, I just edited. ')
Wait(1000 + Random(750));
end;
Begin
SRLId := SRLId;
SRLPassword:= SRLPassword;
SetTargetDC(SmartGetDC);
Declareplayers;
smartSetup('ny10', False, True);
While Not (SmartReady) Do
Wait(100);
SetTargetDC(SmartGetDC);
If Not (LoggedIn) Then
While Not (SmartGetColor(386, 249) = 65535) Do
Wait(100);
SetupSRL;
ScriptId:= '808';
Siggy;
Report;
ActivateClient;
Progress(1);
LoginPlayer;
SetAngle(True);
Dtms;
Repeat
If Not Loggedin Then
TerminateScript;
FindNormalRandoms;
Banking;
Fletching;
Progress(2);
Report;
Rayban;
MouseAntiBan;
Depositing;
Until(Timesbank >= NumberOfTimes);
Progress(2);
Report;
End.Please rep+ me and KoolDude :) :) :)