How to become A Respected SRL Member
DISCLAIMER!!
This will only work if you have read the begginer and some of the intermidiate stuff.
I am not responsible for any denied appeals!
Intro
Ok So you want to be an srl Member.
Your just dying to reap the rewards of becoming an established scripter among the ranks of the second elite.
(Behind the devs, Of course ).
Read this Tutorial and Find Out how you may achive this...
Links- Might want to visit before reading!
Try Boreas Tut
JAD's Tut
n33ss3ss3sss3s3333ssssss's Tut
Anyothers {Search Button}
-----------------------------------------------------------------------
STUFF YOU N33D!!!
*=Not required
The Criteria Of your Script Must Contain;
Failsafes <-- Very Useful!!
Cases <-- Must know these
Dtm's/DDTM's <--- DTM=Nessesity
Bitmaps*<---Conditional
Arrays*+ Mapwalking<--- Mapwalking= Nessesity
SetupPlayers<--- Need this!
MultiPlayers<--- Helps alot!
RaidalWalk/RadialRoadWalk* <--- ++Chances of you getting in
^^^^^^^^^See Bobbohobbo's Tut^^^^^^^^^^
Forms*<--Help alot!
UsingColours*<--English Spelling
--------------------------------------------------------------------------
Prologue
Ok So you got that covered Chances are that you will fail the first time you apply.
Thats why waiting is the key! I know this from past expeience i have Applied Eight Times Before.
Two times on a different account .
After around 2-3 appleals you should be in.
When you read this tutorial DO NOT Cram yourself to the over-limit with knowledge just learn 1-2 new functions each day.
Hell DO Test it out if all means so. If you are impatient then DO NOT continue.
If You are a L33cher looking to exploit some of these scripts DO NOT waste time posting them up..
Ok if you are ready, take a few pills have a cup of tea. And your ready to Begin...
__________________________________________________ _____________
Table Of Contents:
0: What Type?
1: Examples
2:Attitude
3:Facts/Credits
What Types?
I recommend Walking script i.e woodcutter and banker. AutoFighter.
Miners? And if your really ambitious> Tut Runners
EXAMPLES
Ok they are 3 types of scripts that you can apply with.
( NB: This is MY Way of doing them use them as a guidline not all members agree)
They Are classified as so#:
1>The 'Bad' Script 1-50 lines:
Example:
SCAR Code:
Program New;
Begin
Writeln('Hello World')
end.
As you can see this is what would not get you into members.
As everyone knows you will be classed 'as the person who looks up Pascal in wikipedia and copies examples'.
This will NOT damage your chances for members but it might take some time for you to get the right image into their heads.
2>The 'Alright/Ok' Script 200-450 lines#:
Example:
SCAR Code:
program AutoYewz;
{.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 := 'tttttt'; //Your Username.
Players[0].Pass := 'ttttt'; // Your Password.
Players[0].Nick := 'ttt'; // 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;
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;
procedure WaitWhileCutting;
begin
repeat
FindEnt(x, y, true);
AntiBan;
FindFastRandoms;
GetAxeHead;
GetBestAxe;
SSAutoRespond;
until (not (IsUpText('Chop')))
end;
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;
Result:=True;
end;
end;
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))
// FIX!!!!!
Flag;
If findsymbol(x,y,'Tree')then
Begin
mouse(x,y+10,0,0,true)
if (flagpresent) then
Flag;
end;
end;
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;
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;
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;
end;
end;
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;
//------------------//
//Edited Out;
//Credit me for any uses you might need ;p//
{--------Main Loop Ends----------}
{-Script Ends Here :(-}
Another Primitive Example:
SCAR Code:
{.Script Info:
# ScriptName = PwrMiner
# Author = ->(Nauman)<-
# Description = Mines The Selected Ore then DROPS!! IT.
# Version = 0.1 BETA
# Date = 23rd October 2007
# Comments = Use this well!
# Instructions= 1.Have Your Axe Weilded
2.Stand Next to the Ore you want to PwrMine.
3.Fill Out the form 48-89.
4.Specify The Window Press Play
5.Enjoi!
/Script Info}
{ ------------------------------------------------------------------
| /-------------\ /--------- |
| / \ / \ |
| / \ / \ |
| | | | | | | |
| | | | | | | |
| | | | | | | |
| |________| | |______ | | |
| / / / / |
| / / / / |
| / / / / SCRIPT |
| / / UPER / /_____ |
| / / |/ |/ | |
| / / | | | |
| / / | | | |
| / / | | | |
| / /________ \ / |
| | | | \ / |
| | | | \------------/ |
| | | | |
| | | | Version Info: |
| \ / Version 0.0001 Test <- Just a Test Ver|
| \ / Version 0.001<-- Current Version |
| \ / Updates! |
| \---------/ Version 0.1<-- Should Be Banking Soon! |
------------------------------------------------------------------
}
program PowerMiner;
{.include srl/srl.scar}
{.include srl/srl/skill/mining.scar}
var
Oremask, AxeMask, LoadsB, fx, fy: integer;
OresMined, DeathsAvoided, x, y: integer;
BrokenPickAxe, PickAxeHandle: integer;
Mark:integer;
AxeLost: Boolean;
Axe: string;
const
What_To_Mine = 'Copper'; //What rock to mine Choose between:Clay,Copper,Tin,Iron,Silver//
{ Note: This is powerminer it will drop the ore not bank it}
Loads = 10; // How many Loads or inventoryfull's to drop!!!
What_To_Disguise_Scar_As = 'Deezer | Music on demand, f...'; //you got it :)
//-----------------------------------------------------------------------//
//---> Version Number No touching //
//-----------------------------------------------------------------------//
VersionNumber = '0.1 BETA'; // dont touch!
//----------------------------------------------------------------------------//
//---> Setup Players //
//----------------------------------------------------------------------------//
procedure DeclarePlayers;
begin
GetApplication.MINIMIZE;
Disguise(What_To_Disguise_Scar_As);
HowManyPlayers := 3;
CurrentPlayer := 0;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := 'srl';
Players[0].Pass := 'poo';
Players[0].Nick := 'rlco'; //3 Lowercase Letters of your username//
Players[0].Active := True; //player active?
Players[1].Name := 'Srl';
Players[1].Pass := 'poo';
Players[1].Nick := 'rlco'; //3 Lowercase Letters of your username//
Players[1].Active := True;
Players[2].Name := 'srlc';
Players[2].Pass := 'po';
Players[2].Nick := 'rlco'; //3 Lowercase(aai not AAI)<-- Letters of your username//
Players[2].Active := True;
end;
//------------------------------------------------------//
//---> Load DTM's + Bitmap's! //
//------------------------------------------------------//
procedure LoadVars;
begin
OreMask := BitmapFromString(11, 11, 'z78DA73730301033070436' +
'2238B60024C35B84CC0A5923C13F0BB937813F0EB22DE04CC5022' +
'CF04CADD404CC890EA0BFCE2F85D4E4C6A212FF470998FCC0600F' +
'B599CC1');
AxeMask := DTMFromString('78DA63BCCFC0C010CAC8800A1819FE8349068' +
'6FF40C0F800C888C554832081F47520114D40CD2320114940CD33' +
'20114F40CD2B20914040CD25C2EE01001A130DB2');
BrokenPickAxe:= BitmapFromString(37, 36,
'z78DAED97C11580200CC556EA14EE3F1213D4E7A32DF697E4EAC5' +
'180A680600A0CAE330C36BEF699F0AEFF4B7AB789319765E47753' +
'BC5F59935779D7798EF5F20B7751FBB887BD6AA38E995DBEBA463' +
'7C6FAC98E8BFAA29DE246FF0A21AD5A88657FC0CA51AD5A846B58' +
'81DD514FFB567786137CFD100CA58F61718BB');
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;
//--------------------------------------------------------------------//
//---> Broken Pic Checker //
//--------------------------------------------------------------------//
procedure Check;
Begin
If FindBitmap(BrokenPickAxe,x,y)then
begin
mouse(x,y,2,3,false)
ChooseOption('Drop')
Writeln('Gas Got us Terminating Script!')
LogOut;
NextPlayer(true);
end;
end;
//------------------------------------------------------------------------//
//---> Pic Axe Handle Checker //
//------------------------------------------------------------------------//
Function PickChecker:boolean;
begin
PickAxeHandle := BitmapFromString(37, 36,
'z78DAEDD8B10940211044C196AE0AFB2FC954102E5E9679A1D15F' +
'C69F382349CAED3CF5EDDA4FACCB5FD77D33A9F9D7A851A3468D5' +
'AFEAEEE75D4A851A3466DFFFED675D4A851A366DDBFA5F59D5C69' +
'5DF233F830');
if (not(FindBitmap(PickAxeHandle,x,y)))then
Begin;
AxeLost := False;
Exit;
If FindBitmap(PickAxeHandle,x,y) then
Begin
AxeLost := True;
FindPick;
end;
end;
end;
//------------------------------------------------------------------------//
//---> NAuto Responder! //
//------------------------------------------------------------------------//
Procedure NAutoRespond;
begin // _!_!_!_
if FindChatText('Mining lvl') then //Auto Responder by me!!! |*_* |
SayCurrentLevels('Mining'); // |""" |
If FindChatText('lol')then // | " |
Begin // -----
Case Random(7) of
1:TypeSend ('^-^')
2:TypeSend ('Lawl')
3:TypeSend ('l0l')
4:TypeSend ('Hehe')
5:TypeSend ('Whats it is this time? :P')
6:TypeSend ('Yawn!')
7:TypeSend ( 'red:scroll:##########.......~~~~~~~~')
end;
if FindChatText(Players[CurrentPlayer].Nick)then
Begin
Case Random(3) of
1:TypeSend ('!!!');
2:TypeSend ('Sorry No english');
3:TypeSend ('From English Not me no');
end;
end;
end;
end;
//------------------------------------------------------------------------//
//---> My Ubber Sigggy! //
//------------------------------------------------------------------------//
procedure sig;
begin;
cleardebug;
writeln(' ######## ######### Super ')
wait(750)
writeln(' # # Script ')
writeln(' # # ')
wait(750)
writeln(' # # # # # # # # # B ')
wait(750)
writeln(' # # Y ')
wait(750)
writeln(' # # ->[Nauman]<- ')
wait(750)
writeln('##### ### ######## Yakman rulz !! ')
wait(1000)
end;
//----------------------------------------------------------------------//
//---> Get Axe Head //
//----------------------------------------------------------------------//
procedure GetAxeHead; // Adapted from my Yew Script
begin;
if (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin;
Mmouse(x, y, 2 - Random(2), 2)
if isuptext('Wield') then
writeln('Found An Axe!!')
mouse(x,y,0,0,true)
Axe := 'Present'
end;
if (not (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2))) then
begin
Axe := 'Absent';
writeln('Axe Absent')
end;
end;
//----------------------------------------------------------------------------//
//---> AntiBan //
//----------------------------------------------------------------------------//
procedure AntiBan;
begin
case Random(30) of
0: gametab(1+Random(5))
1: HoverSkill('Random', false);
5: Mmouse(882+Random(100), 323+Random(122),100-Random(99+1),999-Random(198));
9: HoverSkill('Mining', false);
19: BoredHuman;
25: RandomMovement;
30: RandomRClick;
27: PerfectNorth;
end;
end;
//----------------------------------------------------------------------------//
//--->Waiting.. //
//----------------------------------------------------------------------------//
procedure WaitWhileMining;
begin
MarkTime(mark)
repeat
NAutoRespond;
FindFastRandoms;
PickChecker
Check;
if GasFound(fx, fy) then
begin
RunTo('E', False)
wait(7000 + Random(3000))
writeln('We avoided Gas!!! :P')
RunBack;
end;
NAutoRespond;
AntiBan;
until (FindBlackChatMessage('You manage to mine some')) or (TimeFromMark(mark)>20000)
end;
//-------------------------------------------------------------------//
//---> Setup Procedure //
//-------------------------------------------------------------------//
procedure Setup;
begin
if (not (LoggedIn)) then LoginPlayer;
begin
SetRun(True);
GameTab(4);
SetChat('on',1);
SetChat('off', 2);
wait(234 + Random(1000));
GetAxeHead;
wait(2 + Random(3));
MakeCompass('N');
end;
end;
//-------------------------------------------------------------------//
//---> Mining Procedure //
//-------------------------------------------------------------------//
procedure Mining;
begin;
HighestAngle;
case what_to_mine of
'Clay': begin
repeat
if FindObjOre(x, y, 'Mine', 6989253, 5, 2) then
mmouse(x, y, 2, 2)
if IsUpTextMulti('min', 'ne', 'rocks') then
wait(100 + Random(300))
mouse(x, y, 0, 2, true)
WaitWhileMining;
OresMined := OresMined + 1;
until (invcount = 28)
end
'Copper': begin
repeat
if FindObjOre(x, y, 'Rock', 2902115, 5, 2) then
mmouse(x, y, 0, 2)
if IsUpTextMulti('Min', 'ne', 'Rocks') then
wait(100 + Random(300))
mouse(x, y, 0, 2, true)
WaitWhileMining;
OresMined := OresMined + 1;
until (invcount = 28)
end;
'Iron': begin
repeat
if FindObjOre(x, y, 'Mine', 610943, 5, 2) then
mmouse(x, y, 0, 2)
if IsUpTextMulti('min', 'ne', 'rocks') then
wait(100 + Random(300))
mouse(x, y, 0, 2, true)
WaitWhileMining;
OresMined := OresMined + 1;
until (invcount = 28)
end;
'Silver': begin
repeat
if FindObjOre(x, y, 'Mine', 10724528, 5, 2) then
mmouse(x, y, 0, 2)
if IsUpTextMulti('min', 'ne', 'rocks') then
wait(100 + Random(300))
mouse(x, y, 0, 2, true)
WaitWhileMining;
OresMined := OresMined + 1;
until (invcount = 28)
end;
end;
end;
//-------------------------------------------------------------------//
//--->Dropping... //
//-------------------------------------------------------------------//
procedure DropOres;
begin
if not (loggedin) then NextPlayer(True);
if (invcount = 28) then
begin
MmouseItem(28)
if isuptext('Use') then
begin
DropToPosition(2, 28)
LoadsB := LoadsB + 1;
end;
end;
end;
//-------------------------------------------------------------------//
//---> My Proggie //
//-------------------------------------------------------------------//
procedure Proggie;
var
PActive: string;
begin
SRLRandomsReport;
if Players[CurrentPlayer].Active then PActive := 'True' else PActive := 'False';
Writeln('//=============== Auto PwrMiner ================\\');
Writeln('\\======== -' + VersionNumber + '- Progress Report ========//');
Writeln('/==========================================\');
Writeln('| Worked for ' + TimeRunning); //|
Writeln('| Mined ' + IntToStr(OresMined) + (' Ore$. |'));
Writeln('| Load Dropped ' + IntToStr(LoadsB) + (' Yay! |'));
writeln('| DeathsAvoided ' + IntToStr(Deathsavoided) + (' times.|'));
Writeln('\==========================================/');
end;
//----------------------------------------------------------------------------//
//---> The magical Main Loop //
//----------------------------------------------------------------------------//
begin
MarkTime(mark)
SetupSRL;
Sig;
DeclarePlayers;
LoadVars;
Setup;
Proggie;
repeat
Mining;
DropOres;
Proggie;
until (LoadsB = Loads);
if LoadsB = Loads then
begin;
Writeln('Loads Done and Dusted')
NextPLayer(true);
if timefrommark(mark) >40000 then
TerminateScript;
end;
end.
{--------Main Loop Ends----------}
{-Script Ends Here :(-}
The Top was my Yew cutter that ive applied with a few times a script with criteria similar to this will get you a 'head just over/below water' votings.
This one i applied with a few times before. The PwrMiner you can use to learn from. But its been realeased officially so im letting you use it.
With this pwrminer you can excpect your voting will be good or alright depending on the members m00ds
.
If you post these in your App you will get caught and have a damaged reputation<--Just to make it clear
3: The 'Uber 1337' Script 450-1000+lines#:
Example
Here
This Type will boost your chances of getting In.
Believe me you need lots of experience.
=================================================
ATTITUDE
When you go into the battlefield(;P) then you MUST take these on board
1; Always DO listen to critisism. Most members have first hand experience at this.. Except Fakawi.. And Maybe...Kaitneiks
2;DO NOT Hate someone just because they have voted no. They will have a very good reason for this. And will explain in thier posts.
3;Always DO ask where you went wrong and how to improve so you stand a better chance next time.
4;DO NOT post your Next Appeal after 3 weeks. There is a reason for this. Firstly it takes 2 weeks to make a new script and a few days to test it.
5;Always laugh at members jokes ;p. Even if they don't make sense just laugh due to good manners.
++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++
Facts!!!
Fact Number 1: Did you know that only 2 out of 10 (per average) people get chosen for an srl member every month!
Fact Number 2: Did you know that the members appliances forum gets around 5-10 app's a month.
Fact Number 3: Did you know that they are numerous projects in srl that you could be in?
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''
Credit List / Ty's
Firstly I want to say thank-you to Fakawi and Wizzup for giving me a second Chance .
Secondly I want to say another thank-you to RickJess and P1nky for there effort to support me.
Thridly I want to say a 'furthermore' thank-you to the SRL Dev's and Members who made this possible.
Fourthly I want to say thanks to the people who voted yes and no in my poll. Who made me correct my script as much as possible Thank-You.
<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>> >>
->{Nauman}<-