SuperScripter
2007-11-07 02:58:05
<!– BEGIN TEMPLATE: formanswers –>
SuperScripter - SRL Member Application Form
SuperScripter
What is the meaning to life?
The meaning of life is to m4k3 1337 5cr1p75.
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
S.C.A.R , HTML a lil bit of Pascal
Other Communitys
Sythe(scammers),Moparisthebest,SRL e.t.c
How Long have You Played Runescape
7 months
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I'm 15 yrs old and i used to script in squig i had applied before. I have made a few scripts before and i would like to paste 2 scripts, The latter one 'SWill0wz_' is one that i havent updated yet.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
The Next One
——————————————————
<!– END TEMPLATE: formanswers –>
SuperScripter - SRL Member Application Form
SuperScripter
What is the meaning to life?
The meaning of life is to m4k3 1337 5cr1p75.
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
S.C.A.R , HTML a lil bit of Pascal
Other Communitys
Sythe(scammers),Moparisthebest,SRL e.t.c
How Long have You Played Runescape
7 months
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I'm 15 yrs old and i used to script in squig i had applied before. I have made a few scripts before and i would like to paste 2 scripts, The latter one 'SWill0wz_' is one that i havent updated yet.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program AutoYewz; // Updated :p
{.include srl/srl.scar}
{.include SRL/SRL/skill/WoodCutting.scar}
//----------------------------------------------------------------------------//
//---> Variables //
//----------------------------------------------------------------------------//
var
BrokenAxeMask, AxeMask, x, y, Yew_LogMask, Tries: integer;
LoadsB, LogsChopped, DeathsAvoided, lol: integer;
Steel_Axe, Rune_Axe, Addy_Axe, Mith_Axe: integer;
Chat, Axe, position: string;
procedure LoadVars;
begin;
AxeMask := DTMFromString('78DA635465606058CA800618914820AD09245' +
'613500332671D01350A4062150135D244B84703482C23A0461248' +
'ACC5AF06001A0805A5');
BrokenAxeMask := DTMFromString('78DA6354616060906040038C0CFFC12403C37' +
'F20605407326430D52048200D52A348400DC82E79026A1480842C' +
'01359A404212BF1A005BE90697');
Rune_Axe := DTMFromString('78DA639CCEC4C0F09401051485F1318800694' +
'620FE0F048C4B806AEEA2AA718E4864E082AA0101C6C54035F751' +
'D5D887C6A1AA590A547313558D4B740A8A1A00CFA10E03');
Addy_Axe := DTMFromString('78DA6374606060686440014D497C0C22409A1' +
'188FF0301A337905187AAC6C6D786810BAA0604187D804415AA1A' +
'7B7F7B5435BE40A21C558D73B0338A1A00C1660AA8');
Mith_Axe := DTMFromString('78DA633CC4C4C010C0C8800C5A53F81852803' +
'448F43F10309E05AAF14155636111CCC0055503028CE7816A5C51' +
'D5D839C4A2AA3981A9C6C52D0D450D0061FC0C64');
Steel_Axe := DTMFromString('78DA63CC636260D8C3C8800C5A53F81852803' +
'448F43F10305602D5EC4055939B9ACAC0055503028CD540351B51' +
'D594E5E5A2AA29C154D3545989A20600C3BC0E32');
Yew_logMask := DTMFromString('78DA63CC656260E0646440063E969C601A26C' +
'A98C284C483014654352540357F19F0ABA900AA1120604E1A508D' +
'280135B14035BC04D49403D5B0E1570300088D04EC');
end;
//----------------------------------------------------------------------------//
//---> Setup //
//----------------------------------------------------------------------------//
const
Direction = 'W'; // direction to run if in case of fight?
Mask = 'Norton Anti-Virus'; //what you want scar to desguise it's self as?
Loads = 2; //how many loads for each player?
GetBesAxe = 'Rune'; // case of losing your axe :P must have axe on you in bank
// Choose from : Addy, Rune, Mith, Steel.
//-----------------------------------------------------------------------//
//---> Version Number No touching //
//-----------------------------------------------------------------------//
VersionNumber = '0.1'; //leave this alone!
//----------------------------------------------------------------------------//
//---> Setup Players //
//----------------------------------------------------------------------------//
procedure DeclarePlayers;
begin
Disguise(Mask);
getapplication.MINIMIZE;
HowManyPlayers := 2;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'Sammy '; //Your Username.
Players[0].Pass := 'Witch9'; // Your Password.
Players[0].Nick := 'ammy'; // 3-4 letters from your name.
Players[0].Active := True; //True = Use player, False = Don't use.
Players[0].pin := 0000; //pin in here if you dont have dont touch!
Players[1].Name := ''; //Your Username.
Players[1].Pass := ''; // Your Password.
Players[1].Nick := ''; // 3-4 letters from your name.
Players[1].Active := True; //True = Use player, False = Don't use.
Players[1].pin := 0000; //pin in here if you dont have dont touch!
writeln(inttostr(HowManyPlayers) + ' Players');
end;
//----------------------------------------------------------------------------//
//---> SuperScripter's Auto Responder //
//----------------------------------------------------------------------------//
procedure SSAutoRespond;
begin
if InChat('lol') then
begin
case Random(19) of
2: TypeSend('...')
5: TypeSend('Lil')
8: TypeSend('contento')
13: TypeSend('Hehe')
15: TypeSend('funy')
17: TypeSend(':)')
19: TypeSend('wave:zzzzzz')
end;
if InChat(Players[CurrentPlayer].Nick) then
begin
case Random(7) of
2: TypeSend('!!!');
5: TypeSend('No me gusta ingles'); // <-- SPanish :p
7: TypeSend('Estoy Trieste'); // some more spanish :D
9: Typesend('chicos verqueros')
end;
end;
end;
end;
//----------------------------------------------------------------------------//
//---> Find Fast Randoms!!!! //
//----------------------------------------------------------------------------//
function FindFastRandoms: Boolean; //By Wt-Fakawi
var
i: Integer;
begin
for i := 1 to 11 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: begin
if FindFight then
begin
RunTo(Direction, False);
Wait(5000 + random(3000));
Runback;
DeathsAvoided := DeathsAvoided + 1;
end;
end;
10: if FindTalk then
Result := True;
11: if ClickToContinue then
Result := True;
end;
end;
end;
//----------------------------------------------------------------------------//
//---> Different Cutting Ways //
//----------------------------------------------------------------------------//
function DifferentTechniques: Boolean;
begin
case Random(6) of
1: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
2: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
3: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
4: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
5: begin
Mouse(x, y, 1 + Random(6), 5 - Random(4), false)
wait(200 + Random(234))
ChooseOption('Chop')
end;
end;
end;
//----------------------------------------------------------------------------//
//---> AntiBan //
//----------------------------------------------------------------------------//
procedure AntiBan;
begin
case Random(30) of
1: HoverSkill('Random', false);
5: AlmostLogout;
9: HoverSkill('woodcutting', false);
19: BoredHuman;
25: RandomMovement;
30: RandomRClick;
27: PerfectNorth;
end;
end;
//----------------------------------------------------------------------------//
//---> Banking Procedure //
//----------------------------------------------------------------------------//
Procedure NOpenBank;
Begin;
If FindObj(x,y,'Bank',7042941,5) or
FindObj(x,y,'booth',2900815,5) or
FindObj(x,y,'ank boo',7767438,5) then
Begin
Mmouse(x,y,0,0)
If IsUpText('Use') then
Begin
Mouse(x,y,0+Random(3),3-Random(2),false)
ChooseOption('uickly')
wait(1000+Random(3450))
end;
Writeln('Bank Found')
end;
end;
//----------------------------------------------------------------------//
//---> Depositing.. //
//----------------------------------------------------------------------//
Procedure NDeposit;
Begin
If finddtm(Yew_LogMask,x,y,MIX1,MIY1,MIX2,MIY2) then
writeln('found')
Begin
mouse(x,y,2,0+Random(2),false)
ChooseOption('All')
wait(300+Random(700))
end;
end;
//----------------------------------------------------------------------//
//---> Get Axe Head //
//----------------------------------------------------------------------//
procedure GetAxeHead;
begin
if (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin;
writeln('Found An Axe!!')
Axe := 'Present'
end;
if (not (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2))) then
begin
Axe := 'Absent';
writeln('Axe Absent')
end;
end;
//------------------------------------------------------------------//
//---> Get Best Axe --> Will Get axes Up to Steel <-- //
//------------------------------------------------------------------//
procedure GetBestAxe;
begin
if Axe = 'Absent' then
begin
wait(100 + Random(200))
NOpenBank;
if (bankScreen) then
FixBank;
begin
case GetBesAxe of
'Rune': begin
if (findDTM(Rune_Axe, x, y, MSX1, MSY1, MSX2, MSY2)) then
mouse(x, y, 0, 2, true)
end;
'Addy': begin
if (findDTM(Addy_Axe, x, y, MSX1, MSY1, MSX2, MSY2)) then
mouse(x, y, 0, 2, true)
end;
'Mith': begin
if (findDTM(Mith_Axe, x, y, MSX1, MSY1, MSX2, MSY2)) then
mouse(x, y, 0, 2, true)
end;
'Steel': begin
if (findDTM(Steel_Axe, x, y, MSX1, MSY1, MSX2, MSY2)) then
mouse(x, y, 0, 2, true)
end;
end;
CloseBank;
end;
end;
end;
//----------------------------------------------------------------------------//
//---> Waiting Procedure //
//----------------------------------------------------------------------------//
procedure WaitWhileCutting;
begin
repeat
FindEnt(x, y, true);
AntiBan;
FindFastRandoms;
GetAxeHead;
GetBestAxe;
SSAutoRespond;
until (not (IsUpText('Chop')))
end;
//----------------------------------------------------------------------------//
//---> Chop Function!!!!!!!! //
//----------------------------------------------------------------------------//
function Chop: boolean;
begin
if FindObj(x, y, 'Yew', 1855816, 5) then
begin
FindFastRandoms;
if isuptext('Chop') then
begin
FindEnt(x, y, true)
mouse(x, y, 2, 2, true)
wait(30 + Random(290))
DifferentTechniques;
WaitWhileCutting;
end;
end;
end;
//----------------------------------------------------------------------------//
//---> The walking to yewz! //
//----------------------------------------------------------------------------//
procedure WalktoYewz;
begin;
if (not (LoggedIn)) then LoginPlayer;
HighestAngle;
wait(200 + Random(340))
Makecompass('N')
SetRun(True)
Gametab(4);
GetAxeHead;
mmouse(x,y,0,2)
GetBestAxe;
wait(200 + Random(200))
mouse(646, 124,0+Random(2),5-Random(4),true)
Flag;
If findsymbol(x,y,'Tree')then
Begin
mouse(x,y+10,0,0,true)
if (flagpresent) then
Flag;
end;
end;
//--------------------------------------------------//
//---> Get Position //
//---> Switch Position //
//--------------------------------------------------//
procedure getposition;
begin
if findsymbol(x, y, 'water') then
begin
position := 'North'
end else
begin
position := 'South'
end;
end;
function switchposition: boolean;
begin
getposition;
if position = 'South' then
begin
if findcolorspiraltolerance(x, y, 91905, 630, 20, 672, 67, 50) then
begin
mouse(x + 6, y + 5, 2, 2, true)
flag;
result := true
end else
result := false
end;
if position = 'North' then
begin
if findcolorspiraltolerance(x, y, 91905, 610, 96, 661, 150, 50) then
begin
mouse(x + 6, y - 5, 2, 2, true)
flag;
result := true
end else
result := false
end;
end;
{-------------------------------------------------------------------------------}
//------------------------------------------------------------------------//
//---> The Main Bits!!! //
//------------------------------------------------------------------------//
procedure ChopDown;
begin;
if not (loggedin) then
Nextplayer(true);
SetRun(false);
gametab(4);
HighestAngle;
begin
repeat
Chop;
if not FindObj(x, y, 'Yew', 1855816, 5) then
if (not IsUpText('Yew'))then
SwitchPosition;
AntiBan;
wait(5000 + Random(1000))
until (invfull)
logschopped := logschopped + 27;
end;
end;
//--------------------------------------------------------------//
//---> Banking //
//--------------------------------------------------------------//
procedure Bank;
begin;
if (not(loggedin))then
NextPlayer(false);
if (invfull) then
begin
GetPosition;
if position = 'North' then
SwitchPosition;
if findsymbol(x, y, 'dungeon') then
Makecompass('N');
Mouse(x, y, 0 + Random(3), 1 - Random(1), true);
if (FlagPresent) then
Flag;
SetRun(True);
mouse(641, 32, 0, 0, true)
if (flagpresent) then
Flag;
if findsymbol(x, y, 'Bank') then
mouse(x, y, 2 + Random(1), 3 - Random(2), true);
if (flagpresent) then
repeat
wait(6000 + Random(4000))
until not (flagpresent)
MakeCompass('E')
LowestAngle;
NOpenBank;
if (PinScreen) then
begin
InPin(IntToStr(Players[CurrentPlayer].Pin));
if (bankScreen) then
begin
Deposit(2,28,2);
wait(1000 + Random(200))
CloseBank
LoadsB := LoadsB + 1;
end;
end;
nd;
end;
//-------------------------------------------------------------------//
//---> My Proggie //
//-------------------------------------------------------------------//
procedure Proggie;
var
PActive: string;
begin
SRLRandomsReport;
if Players[CurrentPlayer].Active then PActive := 'True' else PActive := 'False';
Writeln('//=============== Auto ================\\');
Writeln('\\======== -' + VersionNumber + '- Progress Report ========//');
Writeln('/==========================================\');
Writeln('| Worked for ' + TimeRunning);
Writeln('| Chopped ' + IntToStr(LogsChopped) + (' logs.'));
Writeln('| Banked ' + IntToStr(LoadsB) + (' times.'));
writeln('| DeathsAvoided ' + IntToStr(Deathsavoided) + (' times.'));
Writeln('\==========================================/');
end;
//----------------------------------------------------------------------------//
//---> The magical Main Loop //
//----------------------------------------------------------------------------//
begin
SetupSRL
DeclarePlayers;
LoadVars
proggie;
repeat
walktoyewz;
proggie;
chopdown;
proggie;
Bank;
proggie;
until (LoadsB = Loads)
if (LoadsB = Loads) then
begin
writeln('Loads Done Logging out!')
Logout;
Nextplayer(true);
end;
end.
{--------Main Loop Ends----------}
{-Script Ends Here :(-}
The Next One
program SWill0wz_;
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}
//----------------------------------------------------------------------------//
//---> Variables //
//----------------------------------------------------------------------------//
var
x, y, Cutn: integer;
DeathsAvoided: integer;
Loads, AxeMask: integer;
W0ot: integer;
Axe:string;
//----------------------------------------------------------------------------//
//---> Setup //
//----------------------------------------------------------------------------//
Const
HowManyToCut=3; // How many Loads to bank;
VersionNumber='1.0'; //Do Not Touch!!!
procedure DeclarePlayers;
begin
HowManyPlayers := 2;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='potno'; //UserName in here
Players[0].Pass :='prator'; //Password here
Players[0].Nick :='otno'; // 3-4 letters of ure username e.g hobjob = obj
Players[0].Active := True; // Use The player? True=Use, False=Dont Use
Players[0].Pin := 0000; //PinNumber
Players[1].Name :='naumkhlaq';
Players[1].Pass :='elgoog';
Players[1].Nick :='sern';
Players[0].Active := True;
Players[1].Pin := 0000;
writeln(inttostr(HowManyPlayers) + ' Players');
end;
Procedure LoadVarz;
Begin
AxeMask := DTMFromString('78DA635465606058CA800618914820AD09245' +
'613500332671D01350A4062150135D244B84703482C23A0461248' +
'ACC5AF06001A0805A5');
end;
//----------------------------------------------------------------------------//
//---> Find Fast Randoms!!!! //
//----------------------------------------------------------------------------//
function FindFastRandoms: Boolean; //By Wt-Fakawi
var
i: Integer;
begin
for i := 1 to 12 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: begin
if FindFight then
begin
RunTo('N', False);
Wait(5000 + random(3000));
Runback;
DeathsAvoided:=DeathsAvoided+1;
end;
end;
10: if FindTalk then
Result := True;
11: if ClickToContinue then
Result := True;
end;
end;
end;
//----------------------------------------------------------------------------//
//---> GetAxeHead Procedure //
//----------------------------------------------------------------------------//
procedure GetAxeHead;
begin
if (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin;
writeln('Found An Axe!!')
Axe := 'Present'
end;
if (not (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2))) then
begin
Axe := 'Absent';
writeln('Axe Absent')
end;
end;
//----------------------------------------------------------------------------//
//---> Script Setup //
//----------------------------------------------------------------------------//
procedure setup;
Begin
HighestAngle;
SetRun(True);
GameTab(4);
GetAxeHead
Mmouse(x,y,3,3)
end;
//----------------------------------------------------------------------------//
//---> My OpenBank Procedure //
//----------------------------------------------------------------------------//
Procedure NOpenBank;
Begin;
If FindObj(x,y,'Bank',5994891,5) or
FindObj(x,y,'booth',539728,5) or
FindObj(x,y,'ank boo',5461593,5) then
Begin
Mmouse(x,y,0,0)
If IsUpText('Use') then
Begin
Mouse(x,y,0+Random(3),3-Random(2),false)
ChooseOption('uickly')
repeat
wait(1000+Random(3450))
Until(BankScreen)
end;
Writeln('Bank Found')
end;
end;
//----------------------------------------------------------------------------//
//---> ANTI BANNAGE!!! //
//----------------------------------------------------------------------------//
procedure AntiBan;
begin
case Random(40) of
1: HoverSkill('Random', false);
5: AlmostLogout;
9: HoverSkill('woodcutting', false);
19: BoredHuman;
25: RandomMovement;
30: RandomRClick;
27: PerfectNorth;
end;
end;
//----------------------------------------------------------------------------//
//---> Waiting...... //
//----------------------------------------------------------------------------//
Procedure NWait;
Begin
MarkTime(W0ot)
repeat
FindEnt(x, y, true);
AntiBan;
FindFastRandoms;
If FindChatText('wc') then
SayCurrentLevels('woodcutting');
until(not(IsUpText('Chop'))) or (TimeFromMark(W0ot) > 60000)
end;
//----------------------------------------------------------------------------//
//---> Different Cutting Ways //
//----------------------------------------------------------------------------//
Procedure Cut;
begin
Case Random(4) of
1:Mouse(x,y,0,2,true)
2:Mouse(x+1,y-1,2-Random(2),6,true)
3:Begin
MMouse(x,y,1,1+Random(4))
wait(200+Random(350))
mouse(x,y,1,1,true)
end;
4:Begin
Mouse(x,y,0,0,false);
ChooseOption('hop')
wait(20+Random(234))
end;
end;
end;
//----------------------------------------------------------------------------//
//---> Walking To the Willow //
//----------------------------------------------------------------------------//
Procedure Walk2Willows;
Begin
if not loggedin then LoginPlayer
Setup;
MakeCompass('W')
mouse(614+Random(10), 60-Random(10),1+Random(10),11-Random(10),true)
Wait(7000+Random(3000))
If (FindSymbol(x,y,'Fishing Spot')) then
Begin
Mouse(x,y,2,0+Random(3),true)
wait(7000+Random(2000))
If (FlagPresent) then
Begin
repeat
Wait(1200+Random(200))
until(not(Flagpresent))
FindFastRandoms;
SetChat('On',1);
SetChat('Off',2);
end;
end;
end;
//----------------------------------------------------------------------------//
//---> Chopping Down The Tree //
//----------------------------------------------------------------------------//
procedure CutWillows;
Begin
MakeCompass('N')
If FindObj(x,y,'Willow',2055256,2)or
FindObj(x,y,'Chop',1716782,3)or
FindObj(x,y,'Down',5344643,4) then
If IsUpText('hop') then
Begin
Repeat
Cut;
FindEnt(x,y,true);
NWait
until(invfull)
end;
Cutn:=Cutn+27;
end;
//----------------------------------------------------------------------------//
//---> Banking Procedure //
//----------------------------------------------------------------------------//
Procedure Bank;
begin
If (invfull) then
Begin
If findsymbol(x,y,'Bank') then
mouse(x,y,1,1,true)
If (FlagPresent) then
Flag;
MakeCompass('W')
LowestAngle;
wait(200+Random(300))
NOpenBank;
Deposit(2,28,2);
wait(1000 + Random(200))
CloseBank
loads:=Loads+1;
end;
writeln('Desposited a full load of Bull')
end;
//-------------------------------------------------------------------//
//---> My Proggie :) //
//-------------------------------------------------------------------//
procedure Proggie;
begin
ClearDebug;
SRLRandomsReport;
Writeln('//=============== N Will0wz_ ================\\');
Writeln('\\======== -' + VersionNumber + '- Progress Report ========//');
Writeln('/==========================================\');
Writeln('| Worked for ' + TimeRunning);
Writeln('| Chopped ' + IntToStr(Cutn) + (' Logz_. |'));
Writeln('| Loads Banked ' + IntToStr(Loads) + (' Yay! |'));
writeln('| DeathsAvoided ' + IntToStr(Deathsavoided) + (' times.|'));
Writeln('\==========================================/');
end;
//--------------------------------------------------------------------//
//---> The Main Loop //
//--------------------------------------------------------------------//
begin
SetupSRL;
LoadVarz;
DeclarePlayers;
GetApplication.Minimize;
repeat
Walk2Willows;
proggie;
CutWillows;
Proggie;
Bank;
Proggie;
until(HowManyToCut=Loads);
If HowManyToCut=Loads then
Begin
Writeln('Loads Done Switching..');
NextPlayer(True);
end;
end.
{Script End © Super Scripter §§}
//---------------------------------//——————————————————
<!– END TEMPLATE: formanswers –>