SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
n3ss3s - SRL Member Application Form
n3ss3s

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
Bit java(Like autoclicker :D) bit VB6 and ofcourse i know scar.

Other Communitys
Sythe.org

How Long have You Played Runescape
about 2

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

I know SRL enough to make a nice overnightworking powerminer.
(Worked for me).
I know SCAR enough to make a nice overnightworking powerminer.

U want to know something else?

And Hey!! Where do i edit that meaning of life thing?
And the meaning of life is to have no life because ppl born live n' die

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

{.Script Info:
# ScriptName  = clarion 
# Author      = Sythe.org 1337Snak3 / villu-reborn.com n3ss3s
# Description = powerminer[srl][rs2]
# Version     = 0.6
# Date        = 2. Of March.2007!
# Comments    = NOTE: For the "level", enter the level when you want script to stop.
/Script Info}

//////////////////////////////////////////////////////////////////////
//// INSTRUCTIONS : Start near the rock /////////////////////////////
//// Pick in inventory and AUTORETALIATE OFF!!!! ///////////////////
///////////////////////////////////////////////////////////////////
//// Clarion v0.5 was made by me(macrowave). After they loaded ///
//// The old backup, my acc didnt work, and i made new one //////
//// called 1337Snak3(in sythe.org) from villu-reborn you'll ///
//// find me as n3ss3s . Thank you.////////////////////////////
//////////////////////////////////////////////////////////////
//// I made a function there(FindRock) which doesnt atm work/
//// But for next clarion i will try to get other of these//
//// : findrock or loadorecolors to work.//////////////////
//// Ill leave em there for future use. //////////////////
//// Currently NOT AutoColor. ///////////////////////////
//// Made a poor const for setting the color. //////////
//// Dang It! Shoulda make TextBox for it. ////////////
//////////////////////////////////////////////////////
////Umm, when picking the rockcolor , if its iron ///
////make sure it does not match copper! Thank you //
///////////////////////////////////////////////////
///I Decided to use SRL's DropAll; but i left my//
///Own drop all kind procedure.It has bugs.//////


program Clarion;
{.include srl/srl.scar}
{.include srl/srl/skill/mining.scar}

var ores,loads,playtime,stime,rtime,ltime:integer;
    rockcolor,rx,ry,scriptsleep,scriptbreak:integer;
    LUC,RRockColor,playertime:integer;



    
frmdesign: tform;

passwordpanel: TPanel;
passwordenter: TEdit;

usernamepanel: TPanel;
usernameenter: TEdit;

nicknamepanel: TPanel;
nicknameenter: TEdit;

stoplevelpanel:TPanel;
stoplevelenter:TEdit;

Image1: TImage;
C: TCanvas;
clr: Integer;

button1: tbutton;
// End Of Variables.
{**********************************************************************}
const
RRColor      = 2371664; //Current is a working ironcolor.
startplayer  = 0;
runawaydir   ='N';
ClarionVers  ='0.6'; // Dont change this.
{**********************************************************************}
procedure declareplayers;
begin
     HowManyPlayers  := 1;
     NumberOfPlayers(howmanyplayers);
     CurrentPlayer := StartPlayer;

     Players[0].Name :=usernameenter.text;//name
     Players[0].Pass :=passwordenter.text;//pass
     Players[0].Nick :=NickNameEnter.text;// about 3 letters of ur name
     Players[0].Integer1 := 3600;//time to stay in (in sec).
     Players[0].Integer2 := 600;//random time to stay in(seconds).
     Players[0].Active := true;
          Writeln('Using '+inttostr(HowManyPlayers)+' Player[s]');
     
     end;
{**********************************************************************}
procedure DeclareVar;
begin
RRockColor := RRColor;
ltime      :=players[currentplayer].integer1 *1000;
rtime      :=players[currentplayer].integer2 *1000;
scriptbreak:=10*1000*60;
scriptsleep:=1*1000*60*60;
playtime   :=Ltime + random(rtime);
end;
///////////////////////////////////////////////////////////////////////////
Procedure ModAlarm;
{ Auth : Sythe.org 1337Snak3 / villu-reborn.com n3ss3s }
{ Desc : If finds mod it makes an alarm and logs for a }
{ moment. I h0pe it w0rks g00d! ********************** }
var bmpmod,x,y,g:integer;
begin
  bmpMod := BitmapFromString(9, 6, 'z78DA733472A41B74350041' +
    '08DB0009E012B13407414C5DF8D994E8220F0200F59E4633');
if(findbitmapspiral(bmpmod,x,y,6,351,480,433)) then
begin
g:=0;
Writeln('O-M-F-G-!!!A MOD!');
Writeln('***Mod : Drop your script FFS***');
Writeln('***User : You´ll never get me KINDERGARTEN COP!***');
repeat
begin
PlaySound('C:\WINDOWS\Media\Windows XP Shutdown.wav');
Writeln('Warning with sound. logging out.');
logout;
wait(scriptbreak);
loginplayer;
wait(2000+random(100));
end;
g:=g+1;
until(g=20);
end;
wait(100+random(20));
end;
{***********************************************************************}
function FindRock(Rock:string):boolean;
var RText:string;
rockcolor1,rockcolor2,rockcolor3:integer;
begin
case rock of
'iron':begin
RockColor1:=2437714;
RockColor2:=2305870;
RockColor3:=2174282;
RText:='mine';
end;
'coal':begin
RockColor1:=2175538;
RockColor2:=2570810;
RockColor3:=2438711;
RText:='mine';
end;
'copper':begin
RockColor1:=4615834;
RockColor2:=3758974;
RockColor3:=4615834;
RText:='mine';
end;
'iron':begin
RockColor1:=7105910;
RockColor2:=8027012;
RockColor3:=7434618;
RText:='mine';
end;
end;
if(findmscolortol(x,y,rockcolor1,20))
or(findmscolortol(x,y,rockcolor2,20))
or(findmscolortol(x,y,rockcolor3,20)) then
begin
Writeln('Found the rock color, checking does IsUpText match.');
mmouse(x,y,0,0);
wait(200+random(50));
if(isuptext(RText)) then
begin
result:=true;
writeln(' RockColor[1..3] and RText matches!Rock found.');
end;
end;
end;
{***********************************************************************}
procedure responds;
begin
if(ischatmessage('mining')) and
(ischatmessage('lvl')) or
(ischatmessage('lwl')) or
(ischatmessage('level')) then

saycurrentlevels('mining');

if(findname=true) then
typesend('ye?'+chr(13));
if(ischatmessage('hi')) then
typesend('hi'+chr(13));
end;
{***********************************************************************}
procedure randoms;
begin
findtalk;
findpick;
solvebox;
if(findfight) then
begin
runawaydirection(runawaydir);
wait(8500+random(400));
runback;
end;
if(not(loggedin)) then
loginplayer;
wait(100+random(20));
end;
{***********************************************************************}
procedure SleepyOrNot; // z0mG :D
begin
ores:=Loads*27;
If ores > 500   then
begin
if random(8) < (3) then
logout;
wait(500+random(20));
writeln('HoaAaH!');
writeln('zZzZzZ');
wait(500+random(20));
wait(scriptsleep*6+random(1));
writeln('Script woke up!');
wait(20000+random(888));
end;
If ores > 400  then
begin
if random(8) < (3) then
logout;
wait(500+random(20));
writeln('HoaAaH!');
writeln('zZzZzZ');
wait(500+random(20));
wait(scriptsleep*5+random(1));
writeln('Script woke up!');
wait(20000+random(888));
end;
If ores > 300  then
begin
if random(8) < (3) then
logout;
wait(500+random(20));
writeln('HoaAaH!');
writeln('zZzZzZ');
wait(500+random(20));
wait(scriptsleep*4+random(1));
writeln('Script woke up!');
wait(20000+random(888));
end;
If ores > 200  then
begin
if random(8) < (3) then
logout;
wait(500+random(20));
writeln('HoaAaH!');
writeln('zZzZzZ');
wait(500+random(20));
wait(scriptsleep*3+random(1));
writeln('Script woke up!');
wait(20000+random(888));
end;
If ores > 100  then
begin
if random(8) < (3) then
logout;
wait(500+random(20));
writeln('HoaAaH!');
writeln('zZzZzZ');
wait(500+random(20));
wait(scriptsleep*2+random(1));
writeln('Script woke up!');
wait(20000+random(888));
end;
if ores < 100  then
begin
if random(8) < (3) then
logout;
wait(500+random(20));
writeln('Less than 100 yews chopped. Using coffeebreak instead of sleeping.');
wait(scriptbreak);
wait(20000+random(888));
end;
loginplayer;
wait(1000+random(50));
end;
{***********************************************************************}
procedure DropAllInvStuffExceptTool;
{Auth: Sythe.org 1337snak3 / villu-reborn.com n3ss3s
{Desc: Drops all the stuff in inventory except the skill tool.Ex.Pickaxe.
{***********************************************************************}
var CurPos:integer;
begin
mousespeed:=7;
MouseItem(2,false);
wait(30+random(20));
PopUp('rop');
CurPos:=2;
repeat
CurPos:=CurPos+1;
MouseItem(curpos,false);
wait(30+random(20));
PopUp('rop');
if(CurPos = 4)
or (CurPos = 9)
or (CurPos = 15)
or (CurPos = 21)
or (CurPos = 25) then
begin
FindNormalRandoms;
end;

until(InvCount=1);
wait(100+random(20));
mousespeed:=10;
end;
//////////////////////////////////////////////////////////////////////////
function IsAreaOfIron:boolean;
var IBX1,IBY1,IBX2,IBY2:integer; // IB(x/y)= IronBox (x/y). i hope you got it.
begin
if(findobj(x,y,'ine',RRockColor,10)) then
begin
mmouse(x,y,0,0);
getmousepos(x,y);
IBX1:=x-13;
IBY1:=y+13;
IBX2:=x;
IBY2:=y;
if(findcolortolerance(x,y,2174537,IBX1,IBY1,IBX2,IBY2,10)) and
(findcolortolerance(x,y,1976901,IBX1,IBY1,IBX2,IBY2,10)) or
(findcolortolerance(x,y,2635093,IBX1,IBY1,IBX2,IBY2,10)) or
(findcolortolerance(x,y,2437457,IBX1,IBY1,IBX2,IBY2,10)) then
begin
result:=true;
end;
end;
end;
procedure MakeIronColorCorrect;
var Cpc1,cpc2,cpc3:integer;
begin
Cpc1:=3834593;
Cpc2:=3504592;
Cpc3:=3834079;
if(findobjore(x,y,'ine',RRockColor,10,3)) then
begin
mmouse(x,y,0,0);
Luc:=getcolor(x,y);
if(IsAreaOfIron) then
begin
writeln('IsAreaOfIron resulted true. Rock color shall stay same.');
end else
writeln('IsAreaOfIron was not true. Getting new iron color. ');
if(not(luc=RRockColor)) then
begin
RRockColor:=Luc;
writeln('Changed iron color to '+ IntToStr(LUC));
end;
end;
end;
function RockExists:boolean;
begin
if(findobjore(x,y,'ine',RRockColor,10,3)) then
begin
mmouse(x,y,0,0);
getmousepos(rx,ry);
if(getcolor(rx,ry)=RRockColor) then
begin
result:=true;
end;
end;
end;
{***********************************************************************}
procedure NesBored;
{ Auth : Sythe.org 1337Snak3 / villu-reborn.com n3ss3s }
{ Performs random mousemoving and rotation             }
{ *****************************************************}
begin
repeat
begin
case random(3) of
1: begin KeyDown(VK_Left); wait(250+random(30)); KeyUp(VK_Left); end;
2: begin KeyDown(VK_Up); wait(250+random(30)); KeyUp(VK_Up);   end;
3: begin KeyDown(Vk_Down); wait(250+random(30)); KeyUp(VK_Down); end;
end;
begin
MMouse(mscx,mscy,mscx,mscy);
end;
end;
until(not(rockexists));
end;
{ **********************************************************************}
procedure buttonclick(sender: TObject);
begin
  frmDesign.Caption:= frmDesign.Caption + '.';
  frmDesign.ModalResult:= mrOk;
end;

procedure initform;
begin
frmDesign:= CreateForm;
frmDesign.Left := 600;
frmDesign.Top := 600;
frmDesign.Width := 400;
frmDesign.Height := 600;
frmDesign.Caption := 'Clarion v0.6 [SRL] AutoMiner With Antirandoms,Antibans';
frmDesign.Color := 304955;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := false;
frmDesign.PixelsPerInch := 96;

image1 := TImage.Create(frmDesign);
image1.Parent:=frmDesign;
image1.Left:=5;
image1.Top:=0;
image1.Width:=388;
image1.Height:=28;

clr := BitmapFromString(388, 28, 'z78DAED5D5B96A4200CDD922F' +
       '5E9F28E5FE973498806377294405CB2EF9E1F499E9AE5202B921B' +
       '9B954669046558BB1AED56078AD1B318C3F46D9B5A6AEDE7E7F65' +
       '7C0D95FD9C46F686D58C57A6C5BFAD55DB98CA7E5A0F9FA9ED88F' +
       'F82FF8BBF59ABDAD81F8626FA2DEF4FFEFECCFB477CAA6A7AAAF6' +
       '6547CEA469EA56B68655AF7E3432ED93EC7DC7C8F7CAAEB133F9F' +
       'E5D60D3B4DFB57B7CF5BD9176263BBB2A38537656EDA4DA19568D' +
       '81E7546F33AFEDEF3492C3CC1BDACCEFB5C287E724F35866E0096' +
       '35DE9CA08EB3FE5C2D356E069255879DA5FB8D7BC8FBD8137983C' +
       'BCDDDD0ABCC1E46355AB16E880DEA0067460800EBD69AB512B233' +
       'E36CF05199F8A8C023E81AD7E422B06D345BEBD91D25A5CB52D58' +
       'F9B815708FD44AEDD9BF49AC1F7E2A619FAAD222B6373F66FD56F' +
       '4A65BDDB90C76AEB8DC9FB4F6A93AD1C0530D27667EDA8FB8074B' +
       '545066A08CAF5ED9530667ADC5A6637B8A33661AFB39AFFD278E9' +
       '3D185B0D105FAD2FD4F3E457A1D7FD918E95A6F5690F1B1C86867' +
       '9BADC6C3F89C63DF6DEF208B7DEDEAF79E1B1544741D6D0D64B7B' +
       'E5F03DC5498FDB89BF5AD8D5AEB2DB7BE11EC7B6976487462D593' +
       '9C191957E0154B545066E09911918D64EC997D3C89B0388A6E005' +
       'CE82E588D181BF82CD6D927EFF840F3034962B9828C8F4546BB47' +
       'D42A8A89AEDFCE13D6951AB7D74C92D96E62B37DA9F5DDAE9C56F' +
       'BEDACEFEDA837ECA889F9DE736307CF209347443FCE68F1DC5189' +
       '0ACA0C7CA14D1917A64DBD9B848C653C4E56FA9811AE1693F6C92' +
       'BDDE4AFAC15647C263262062CB06B4CE04D39E38773B97B76EE18' +
       'CD555E697DA857DED4FA90D7DD3EDDE4ADD1A38FCD7F366946FB2' +
       'E504D285141191F9229D270E60D4717FD7CFEF51C1E1DCDD220C2' +
       '1EE2AE10F168889E92186F4D8BEF68470E55C22E8A2CC072C91AD' +
       '115647C2C32626D221093F36D2475EC38BA0561B756635F4D7516' +
       '5613578EE85EB15CC7E1391773DDA713828CE9FDB6ED3E6C7D7F3' +
       'ADBCA3FF799F2CF13AB504E110B713D70D65B9F06194EF7B7AD0D' +
       '72F664DA81B954E2A2323E2253842CE5587421D77677CDD818F5B' +
       '43B592BB4FA85D6015FE491B402DFCEDE6A1FF5EC4FE0771C5E40' +
       '0465F77E677D35CC49D6EC5C41C66722A3000BF2550B02DFD5FE0' +
       'E0FCEF9407ED3EE6DE537F30908D73F3E896C07D80B13871C2B32' +
       '9C89D8B920C19CE309EB8F5B1F3DCC667C021CB91CAC45EBA386A' +
       '8DFFED9C1C1362AF215610F0E105905564592F967C02E680CB71E' +
       'B2B31E1257A36ABB45FF889CCFE9BE8BA482153B9D169DC7EB872' +
       '4FD1ACCED5C36B3D9FD93E8B9E768C1BB48BC028147E1F281A21B' +
       '611EF8FCEDBE6365FA17F0D5F609997DF7518F7BF2933B701FF32' +
       '71D1FA7BE1EC7B7012B342FC08BA9F6E1715364C881C42BC59E21' +
       '7C1C793DF629E84BEAA2BF09ACE655864C1DADE9044F19874FE83' +
       'ABA9701736F188B16647C2E328E7A084450E0DB0F76C06D551EE1' +
       '04B18589B9D914AB73CEE6289DE2A31CB24F7EF8B6D68F6671AD1' +
       '55EA9AB69AE9F94F2EEC0C00CE0EFE413D00F60C74D276A381B8E' +
       'F6AF466DE0C97956760DA0B9EB934DC404B0D8D4C7CEE394B8C88' +
       'DDB7B76F47B36C90A9CD86280EF87F921725125194F7221B01BBD' +
       'D2D25A47B58C781E679CA5CE91BA6EEB989730DB5E62CE2AA8E85' +
       'BC0CAA744629B51E8A8FB68DE06F6DA955E281CCB7D782CC8F860' +
       '649CABCF5BF6EAA2B5CBAD0E38CA791F7950E8757D4DBC3ADA377' +
       'A2DBB2CD40D710BEB87FB2020B7935C23821845A0CFB929EB18F3' +
       'C647FB88C39C2813ED5E21740F45EA8C8B6A48821322667ED2710' +
       'F3A5387D5A828D87DB0DFB9563229FEB610D534B1279923F977E4' +
       '55D158057B7CDC3937BE2637E7D67393C28836C4A2B8FD3E01B46' +
       'E28F333F60CF0975B2CF06FFA3F03093577546ABAAC6A5990F1B1' +
       'C818890369E8D904B41DF68FBD67D3C12EE0B7B3FE7974BBC6FAE' +
       '1F32C4BCF329AD5E4E26F4DD601BB3E2E9AD596F2F98D3185DF58' +
       'C550E631F47C5C6457489DBCEFC9C736FA5CF5F3F0F7F6C9F3219' +
       '49AEF86BE0DA94361D129E6141AF7566496515CB49721795C44F1' +
       '09D06F4EF71E33F266D52F2AC8F864648C740A54BA23C6E74EAF8' +
       '6CC16DBE3CD06D01F1B6FD08DA861173727AB21D758BFD26DE034' +
       '6A8F3BA97BF69DAA06EDAD2FD0643B1817C9B68FFA67CC8CF91EE' +
       '116B22B3511E96457A7E8D7A09CD40ECE4078E52CAB63702276EC' +
       '29D4D569C50B6640123AACEB35DF92B353A6D5A9717FD64591C12' +
       'CDF7A17704CDDABFFD9714999D5C0CE1284B955C9F5F4283E41C5' +
       'E3BDD58C4D9D555BA020E38391D17144B715ABDA03F72FA00AD6C' +
       '4CC6C92A97879FD3176B9F5A7E717AC81289DB817EE60FD889255' +
       '109D0FFBC0FEEFC745CE8FC189CC9E2C3AC8A96A38418C33E31AF' +
       '82DABB5A79AF0BDE779890A4EAC064EACADE742BC9FD40EC64514' +
       '7E2FE4490259943A1A1F32DEAC764ED179FBC07C709D8C9467860' +
       'A4526C6020BA29E840847CFD679F5321A4D41BEEED7CCE8AF8C8B' +
       '4E8CF954470A323E191937F9F6BEDED19FAC77A007F037C270B81' +
       '106F38A47F64B50CD2F9F7696F5F31C50A0C9CC73CBA17612E62D' +
       'A4CD99B7D43ADA744FD017A81A7673EF672B948D04E80CAB332B0' +
       '7F651D68CD9709833E39933AF7877F63A9B85C814FACD604776CA' +
       'A7FA7F81B914E54ECF1DE5F66711E56CBFDDAA40E9FB0ED4D1BAC' +
       'FD4D1269D31D22D3FB5E260D3FF7B8A92B925EF8503DEAC20E363' +
       '91317CC6CFA7F4E56ED0C3CA32BDEB0732CF49E6FC7F2F1E9D590' +
       'AB9504ABFC03DAC1FE9ACEC939F0DC9B77EA03249C46340D5C3B1' +
       '5CB07F2D6DC7377DFE514705D563506DD87706F587CFB967560E9' +
       '93F7C302EA2E525BA68C418FB76B3F1ED147EDA3BBB587C54B14A' +
       '442BB00B05C24897D656DD8D12AF6EE135CC583452ED33F0AEE3B' +
       '14D2BEB354CC70E82F31D7F39B2DF0519BF1B19C31A0B117D06CE' +
       '8CDDDDC22EE9C62185CF4129D05B687C4F01225D0477C85CFDC47' +
       '38E1EC3EBC09CD439BF91F5B187E5C29A02764313913D70B38FEB' +
       '4A0EB28B5D7F4A23D9B9535240C3FF05196F91E7369353CF1C643' +
       '6DE242E6A8FD613CFD4613FCC5B00F5E3082B15B85811659B46AD' +
       'B26A29B7C46E767AA2EEC46985C0FD672502AF66EBBE515A55DA6' +
       '4CA0116647C303246B38581DB96B1EB96A8E719BA7198D243BAF4' +
       '2D19E67CE68B12D91DE1DCC54DB28526982D14C9CF86F64389F70' +
       '1853B9290C9B3A7B69E322AA8D5006F21E3B57550DBC35E5AA7AD' +
       '14AC5CA78A8B5E29B3D6C7CEF8D13A9A21D4D1CCD13ADA4D15CE9' +
       '19916CE2262C524B62B37F44E275E7DF4C4D16CE83AB2E8DE24DF' +
       'C89CAC27DAC7456C632DB51F8C8B0A323E1819A3ECB2E04DC14EE' +
       'D8DCA57C735E0236436FBCF3D9AE732D3DD2BD84D834AB9348E87' +
       'B8B74A835327BE9077EDFA5283FE6445E7163D0C9EA3694AD7CB0' +
       'C7C973A5FB479B720E5B64ACAAD0729905D648D8B80117DEA0616' +
       '0A1A0253FAABE222DAECC9204AAAC0AC626D2536ABD5FA3D20707' +
       '7462CA60A747F1FEE6DACA33B62E3AD497FEB95F3AFE75D1764FC' +
       '62640C9FCD6705CEAD53216AA8CACC3D80D14A74AA39DFA1EAA95' +
       'D567C55452DF73C24B8992843CE7CAE8231E26D20E7587FDD7497' +
       '7488BF7DB88A14670D35F235F782E1E9036A1F2436C585C89E11C' +
       'B901D0A67C939B21DE186BB1AAC1F57C63ED1A77FEBB8287C0753' +
       'AC2B5F877877EEDC11D6F9913FD727FE1C65F39A98AAD8E1B905E' +
       '615604DB8728119D7457F25492F3AC3DD2594AC7541C6EF46461B' +
       'D99AC0FB0679203BBA7A5328E5E2DD825DD6DAA5AFC253D7F3966' +
       '2DB0DAC1FA96A81DD337250095C8853A3F7A2E9A3027A3DFD53FC' +
       'A24B98E7789F48267DC5579E5BEDEE7353F06E66DA866A414215E' +
       '5C31AC509EC4261501F53117CF53C8F426C41C6272323AAA01CCB' +
       'EBFE60C76563A8DA9790A6725A259770BAACDFEE8888003CBA773' +
       'EC02DAC1FD618F427CA7C35DC297B40B95B73BF9E1BF18478B88A' +
       '244F7833ED3D55F47B9B7BC745F3BE36092D088CACF08D065F121' +
       '7856F9158CB9E4972AF2573D98C14512BB2BC826C995473BBBB4A' +
       '4ED63DC864C1828CCF45C6709FC2E20ECA280EBE405D0D6BEBE7F' +
       '38712BEDD809EA74AD77D43B23EA8A3ECBA77E9575DFE16D6C79E' +
       '88BDF74BE6601CA12EE2198537BC01B9917C8F273C554FDFEBCDF' +
       'CCDB0DAAE1C82EA3566DA6F1D172DB9AF1ED18E5950CD9C5E0263' +
       'FC3BE2A2996B17BD3D2DDC3B10E9E6C6AECCA331AA86BBEA78CED' +
       'EC6555452B096F4313F903F222275F015647C00326EF2228EDD24' +
       '885D39C863E74CD967C013B4AF8CABD9BEA8008FBA1C188BB6424' +
       'F370BF707EEC84B387B949A78406FE4E3D617419BA24A89B8041D' +
       '7EB3DDB09719F55BD0EE9ED12767ED08EC6675EBC12E03E66E9AB' +
       '856D77152E041B60CDE08B05CBDF83332B471C52E756328ECEB8D' +
       'ACD70DE3A2A587E760C109D79011FA53034DCF2A0AAE460F9A6F6' +
       '1ADAAEF8D8BB0163312D8CEF5B9DB6C9DA60422AFF3B4EE668DA5' +
       '8F1D410DAC827B48F1FE7A71E16E5AF706D079E1560BAE1C1F2F6' +
       '9CF2174FFEB7799CA7FAF22A937B320E30390319CE1B4B668AE5D' +
       '8D653C198184542F32DF2B54C63296B18CDF3116647C34328675F' +
       'B77D62FCAF8E1BD1CEC08BBAC8256C63296B18C7F1C490B323E1D' +
       '1937D512160AF665FC03D6E74CACDAD1ABB597592A6319CB58C6B' +
       '3AADD05191F808C0156954E72535E19738F5E1F556F301986734C' +
       '863296B18C657C1C9E16647C3C32BADB0DD694A39A9233BCF9FEF' +
       '5AA7AEBFDD1D773ADCB58C63296F14BB24605199F8B8CAEBB614D' +
       '3F8AE551482E6342ED7AB6BA73C1A6657ECA58C63296F154DF5F4' +
       '1C60720E33F244E91EC');
       C:= GetBitmapCanvas(clr);
       copycanvas(c,image1.canvas,0,0,388,28,0,0,388,28);

usernamepanel := TPanel.Create(frmDesign);
usernamepanel.Parent := frmDesign;
usernamepanel.Left := 12;
usernamepanel.Top := 100;
usernamepanel.Width := 78;
usernamepanel.Height := 28;
usernamepanel.Caption := 'Enter Username';
usernamepanel.Color := 9999933;
usernamepanel.Enabled := False;
usernamepanel.TabOrder := 4;
usernameenter := TEdit.Create(frmDesign);
usernameenter.Parent := frmDesign;
usernameenter.Left := 95;
usernameenter.Top := 100;
usernameenter.Width := 121;
usernameenter.Height := 21;
usernameenter.TabOrder := 5;
passwordpanel := TPanel.Create(frmDesign);
passwordpanel.Parent := frmDesign;
passwordpanel.Left := 12;
passwordpanel.Top := 153;
passwordpanel.Width := 81;
passwordpanel.Height := 27;
passwordpanel.Caption := 'Enter Password';
passwordpanel.TabOrder := 6;
passwordenter := TEdit.Create(frmDesign);
passwordenter.Parent := frmDesign;
passwordenter.Left := 95;
passwordenter.Top := 153;
passwordenter.Width := 122;
passwordenter.Height := 21;
passwordenter.TabOrder := 7;

stoplevelpanel := TPanel.Create(frmDesign);
stoplevelpanel.Parent := frmDesign;
stoplevelpanel.Left := 12;
stoplevelpanel.top := 195;
stoplevelpanel.width := 80;
stoplevelpanel.height := 26;
stoplevelpanel.Caption := 'Level';
stoplevelpanel.TabOrder := 8;
stoplevelenter := TEdit.Create(frmDesign);
stoplevelenter.Parent :=frmDesign;
stoplevelenter.Left :=95;
stoplevelenter.Top := 195;
stoplevelenter.Width := 123;
stoplevelenter.Height :=21;
stoplevelenter.TabOrder:=9;

nicknamepanel := TPanel.Create(frmDesign);
nicknamepanel.Parent := frmDesign;
nicknamepanel.Left := 12;
nicknamepanel.top := 238;
nicknamepanel.width := 80;
nicknamepanel.height := 26;
nicknamepanel.Caption := 'NickName';
nicknamepanel.TabOrder := 10;
nicknameenter := TEdit.Create(frmDesign);
nicknameenter.Parent :=frmDesign;
nicknameenter.Left :=95;
nicknameenter.Top := 238;
nicknameenter.Width := 123;
nicknameenter.Height :=21;
nicknameenter.TabOrder:=11;


  Button1 := TButton.Create(frmDesign);
  Button1.OnClick:= @buttonclick;
  Button1.Parent := frmDesign;
  Button1.Left := 12;
  Button1.Top := 320;
  Button1.Width := 75;
  Button1.Height := 25;
  Button1.Caption := 'Run';
  Button1.TabOrder := 14;
  
end;
procedure safeinitform;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;
{***********************************************************************}
procedure GasKiller;
begin
      mouse(648,93,3,0,true);
      case random(5) of
      1: begin typesend('z0mg that gas almost killd my pikc!'+chr(13)); end;
      2: begin typesend('phew, that wuz close....'+chr(13)); end;
      3: begin typesend('i hate gas..'+chr(13));end;
      4: begin typesend('they try to blow up my pick!'+chr(13));end;
      5: begin typesend('almost broke the pickk'+chr(13)); end;
      end;
     boredhuman;
     FTWait(2);
     wait(15000+random(1000));
end;
{***********************************************************************}
function GasDetect:boolean;
{ Auth : sythe.org 1337Snak3 / villu-reborn n3ss3s }
{ Desc : If gas is found then gets away from it and}
{ Waits until its gone.                            }
begin
if(findobjore(x,y,'ine',rockcolor,10,3)) then
begin
mmouse(x,y,0,0);
getmousepos(x,y);
 if (FindColorTolerance(x, y, 11056825,x-110,y+200,x+110,y, 10))
    or
    (FindColorTolerance(x, y, 9281445,x-110,y+200,x+110,y, 10))
      or
    (FindColorTolerance(x, y, 8492186,x-110,y+200,x+110,y, 10))
      or
    (FindColorTolerance(x, y, 7767947,x-110,y+200,x+110,y, 10))
      then
      begin
      result:=true;
      writeln('Gas Found!');
      end
      else
      result:=false;
      end;
      wait(100+random(20));
      end;

{**********************************************************************}
function Mine:boolean;
var mining:boolean;
InventoryNumber:integer;
begin
repeat
InventoryNumber:=InvCount;
if(findobj(x,y,'ine',RRockColor,10))then
begin
x := x+random(3);
y := y+random(3);
if (not(FindGas(x,y))) then
begin
Mouse(x,y,0,0,true);
end;
mining:=true;
if (FindGas(x,y)) then
begin
Writeln('Gas Detected!');
end;
if mining then
begin
repeat
randoms;
wait(100+random(20));
nesbored;
wait(100+random(20));
until(not(rockexists));
end;
if(invcount=inventorynumber+1)then
begin
result:=true;
if(result=true)then
begin
writeln('Succesfully mined a rock!');
end;
end;
end;
until(invfull);
end;

{***********************************************************************}
procedure setup;
begin
if not loggedin then
begin
loginplayer;
end;
declarevar;
marktime(playertime);
highestangle;
perfectnorth;
setchat('on',3);
setchat('friends',3);
setchat('off',3);
if not findpickheadcolor then
begin
writeln('didnt find pick,changing player.');
nextplayer(true);
end;
wait(100+random(20));
end;
{***********************************************************************}
procedure progressreport;
begin
writeln('Dropped/Mined'+inttostr(loads)+',loads');
writeln('Thanks for using Clarion v0.6');
srlrandomsreport;
end;
Procedure Introduction;
begin
ClearDebug;
Writeln('You are using "Clarion" powerminer Version '+ClarionVers);
Writeln('This is one of the many SRL Antirandom/Antiban scripts');
Writeln('I have weird rockcolor backup system in this script.');
Writeln('If it doesnt work, please pm me in one of :');
Writeln('A: Sythe.org 1337Snak3 ');
Writeln('B: villu-reborn.com n3ss3s');
Writeln('And I will return this script to Ye ol powerminer.');
Writeln('Any Ideas / Suggestions to a or b.');
Writeln(' ');
Writeln(' ');
Writeln(' ');
Writeln(' ');
end;
begin
Introduction;
setupsrl;
setupsrlmining;
safeinitform;
safeshowformmodal;
activateclient;
declareplayers;
marktime(stime);
repeat
setup;
repeat
if not loggedin then
begin
 loginplayer;
end;
mine;
DropAll;
if not loggedin then
begin
loginplayer;
wait(500+random(20));
progressreport;
srlrandomsreport;
end;
if(timefrommark(stime)> playertime) then
begin
logout;
wait(scriptbreak);
end;
if not loggedin then
begin
loginplayer;
end;
until(false);
until(getskilllevel('mining')=strtoint(stoplevelenter.text));
end.

——————————————————
<!– END TEMPLATE: formanswers –>

Use proper standards, bitmap is WAY to large and things like if(loggedin = False) then only need to be if(not(LoggedIn))then

I'm going to wait for some other people to vote before I decide myself.

Oops. Ill fix em right away. And the bitmap is for the forms.
It doesnt cause lag / ban.

Whoops :) my bad about the bitmap. If you fix that now and standardize your script, you will have better odds of getting some yes's :)

What do you mean by standardazing?
I cant understand all english things so… Can u explain more?
And what kinda needs fixing? It worked for me perfect overnight.

I just meant the if(not(loggedin)) like that. if you use not's its better then =false :p and standardizing, I mean proper standards for your scripts. 2 spaces after a begin..etc. there is an auto standardizer that hey321 posted somewhere on the forums which will automatically put spaces, but I prefer to learn them and do em myself :p

mmouse(x,y,0,0);
getmousepos(x,y);

Waste of time, x,y wouldn't change at all.

writeln('didnt find pick,changing player.');
nextplayer(true);

You have to logout first, I think.

until(false);
until(getskilllevel('mining')=strtoint(stoplevelenter.text));

Until(false) would go on forever so it would never get to that last part.

I read through it fast, that is all I picked up. You are a better scripter than many other SRL members. I'll give it a yes.

Sorry to correct you town, but I don't want him to be confused :p he used it right. its just NextPlayer(False) or NextPlayer(True) I've seen it done both ways.. both work (I think :p)

It's a good solid script and so I am going to give it a yes even though standards are bad because standards are easy to fix.

Hmm the code is a bit dirty for me.
Can someone maybe test this and tell me how it runs?
(I actually might vote yes!

From: Town
Waste of time, x,y wouldn't change at all.

You have to logout first, I think.

Yes, i think it would, maybe not though.

Nope, thanks SRL XD.


Also, i'm agreeing with Yohojo if someone tests it then i'll vote yes, not sure if it works though.

Thx guys , alot of positive comment.
But this isnt clear to me yet:
What is the effect of the "standardazing" thing?
That you add spaces and so on.
And , after i've been Srl member for some time and learned more , do i stand a chance to become dev?

Its YES from me!!! :D
But theres still something that needs fixing in the script…

Standardizing makes your code easier to read instead of it all being on the first line. it helps more then you'd think for other scripters to read through. And SRL devs become a dev by writing a lot of good functions/commands that may get put into the next version of SRL. (pretty sure I got that right :p)

OK thx JAD. How many votes does it take for the poll to end?

Once its pretty clear theres not going to be more no's they yes's, usually WT-Fakawi will make a post on this that just says something like "in!" and then your in :)

I hope that happens :)
I cant find this in srl anymore:
FindText uses font selected by number so what are the font options by numbers?
case font of
1: blabla
2: blabla
3: blabla

Edit: roflmao i was stupid.Solved

Ill vote yes.. Good enough script for me (not a boneburier/autotyper/stolen script)

Yahoo ! Ty GoF.
BTW are u gofezor from sythe?

Nice decent script, find Hey321's PASCAL 'standardizer' use it on your script, use more proper english instead of 1337 speak in your scripts (it just proves you have some decentsy. i vote yes.

Ok ty blood.
My next script has too much 1337 speak so ill fix that in future scripts.

Good script, better attitude.. :) No from me

:p I m joking yes

Okay i made a new script which is standardized . Or atleast indented.
However here it is:

{.Script Info:
# ScriptName  = LumberJack
# Author      = n3ss3s
# Description = Chops oaks and sells to general store in lumby.
# Version     = 1
# Date        = 2.4.07
# Comments    = 31337
/Script Info}
program LumberJack;
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}

{Instructions: Start in lumbridge general store axe in inventory 1 slot.}
{ P.S: I didnt make it change players cuz i wanted to make forms. }
{ Request player changing vers by pm.}


var
  frmdesign: tform;

  passwordpanel: TPanel;
  passwordenter: TEdit;

  usernamepanel: TPanel;
  usernameenter: TEdit;

  nicknamepanel: TPanel;
  nicknameenter: TEdit;

  button1: tbutton;

  Close, i: integer;
  TreeDown: boolean;

const
  startplayer = 0; // StartPlayer

{**********************************************************************}

procedure declareplayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(howmanyplayers);
  CurrentPlayer := StartPlayer;

  Players[0].Name := usernameenter.text; //name
  Players[0].Pass := passwordenter.text; //pass
  Players[0].Nick := NickNameEnter.text; // about 3 letters of ur name
  Players[0].Active := true;
  Writeln('Using ' + inttostr(HowManyPlayers) + ' Player[s]');

end;
{**********************************************************************}

procedure buttonclick(sender: TObject);
begin
  frmDesign.Caption := frmDesign.Caption + '.';
  frmDesign.ModalResult := mrOk;
end;

procedure initform;
begin
  frmDesign := CreateForm;
  frmDesign.Left := 400;
  frmDesign.Top := 400;
  frmDesign.Width := 400;
  frmDesign.Height := 400;
  frmDesign.Caption := 'LumberJack v1[SRL]';
  frmDesign.Color := 33333333;
  frmDesign.Font.Color := 777777777;
  frmDesign.Font.Height := -11;
  frmDesign.Font.Name := 'MS Sans Serif';
  frmDesign.Font.Style := [];
  frmDesign.Visible := false;
  frmDesign.PixelsPerInch := 96;
  usernamepanel := TPanel.Create(frmDesign);
  usernamepanel.Parent := frmDesign;
  usernamepanel.Left := 12;
  usernamepanel.Top := 100;
  usernamepanel.Width := 78;
  usernamepanel.Height := 28;
  usernamepanel.Caption := 'Enter Username';
  usernamepanel.Color := 9999933;
  usernamepanel.Enabled := False;
  usernamepanel.TabOrder := 4;
  usernameenter := TEdit.Create(frmDesign);
  usernameenter.Parent := frmDesign;
  usernameenter.Left := 95;
  usernameenter.Top := 100;
  usernameenter.Width := 121;
  usernameenter.Height := 21;
  usernameenter.TabOrder := 5;
  passwordpanel := TPanel.Create(frmDesign);
  passwordpanel.Parent := frmDesign;
  passwordpanel.Left := 12;
  passwordpanel.Top := 153;
  passwordpanel.Width := 81;
  passwordpanel.Height := 27;
  passwordpanel.Caption := 'Enter Password';
  passwordpanel.TabOrder := 6;
  passwordenter := TEdit.Create(frmDesign);
  passwordenter.Parent := frmDesign;
  passwordenter.Left := 95;
  passwordenter.Top := 153;
  passwordenter.Width := 122;
  passwordenter.Height := 21;
  passwordenter.TabOrder := 7;
  nicknamepanel := TPanel.Create(frmDesign);
  nicknamepanel.Parent := frmDesign;
  nicknamepanel.Left := 12;
  nicknamepanel.top := 238;
  nicknamepanel.width := 80;
  nicknamepanel.height := 26;
  nicknamepanel.Caption := 'NickName';
  nicknamepanel.TabOrder := 10;
  nicknameenter := TEdit.Create(frmDesign);
  nicknameenter.Parent := frmDesign;
  nicknameenter.Left := 95;
  nicknameenter.Top := 238;
  nicknameenter.Width := 123;
  nicknameenter.Height := 21;
  nicknameenter.TabOrder := 11;

  Button1 := TButton.Create(frmDesign);
  Button1.OnClick := @buttonclick;
  Button1.Parent := frmDesign;
  Button1.Left := 12;
  Button1.Top := 320;
  Button1.Width := 75;
  Button1.Height := 25;
  Button1.Caption := 'Start!';
  Button1.TabOrder := 14;
  UserNameEnter.Color := 333333333;
  PassWordEnter.Color := 333333333;
  NickNameEnter.Color := 333333333;

end;

procedure LoadBmps;
begin
  Close := BitmapFromString(21, 20, 'z78DACD945B0EC2201045B7C43C29' +
    '9F2276FF4BB2E9988841C8684B948F93A6DCE14C1F9910B605A92' +
    '488D70761615DCFE5A231EB1283026BD88DE1B920C365496986BD' +
    'F6CA2A48D7D66E5ECBCCA0242E948439517C63DFFB9C67E71B0B9' +
    '1B167D72C85A966958476D79F3C6EEF9DECC98CEDF66F789EAB3E' +
    'DFE3FDC0CE12197A6C5D2FDE61ED717BAF074FD5F6AFAFB81A7B7' +
    '666C110C66CED9E2A26CA988D3DBB4D831EC76F7E5C3BB66F9366' +
    '1B097E6F753F787A70D96D22557CE3FD2A73DCDEEEFA932EFB3E8' +
    '767902E84A8C6BFB393AAF0443B6341ECD92D63DFA5EEF304EE5E' +
    'CCA850ECBAB5FF883F5E7774AB0460');
end;

procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

procedure MouseTPoint(Point: TPoint; RandomX, RandomY: integer; Left: boolean);
{ Description : Moves mouse to TPoint and clicks.}
{ Author : n3ss3s }
{ Comments : Plz put this to srl!}
begin
  Mouse(Point.x, Point.y, RandomX, RandomY, left);
end;

procedure MMouseTPoint(Point: TPoint; RandomX, RandomY: integer);
{ Description : Moves mouse to TPoint.}
{ Author : n3ss3s }
{ Comments : Plz put this to srl!}
begin
  MMouse(Point.x, Point.y, RandomX, RandomY);
end;


procedure NesRunOn;
begin
  gametab(11);
  if (findtext(x, y, '100', smallchars, 618, 406, 671, 452)) then
  begin
    setrun(true);
  end;
  gametab(4);
end;

procedure Randoms;
begin
  FindHead;
  FindNormalRandoms;
  wait(100 + random(25));
  clicktocontinue;
  SolveSandWich;
  if (FindFight) then
  begin
    RunAwayDirection('W');
    wait(8000 + random(1500));
    runback;
  end;
  SolveBox;
  wait(100 + random(25));
end;

procedure ToTrees;
begin
  NesRunOn;
  mouse(MMcX - 35, MMcY + 5, 3, 2, true);
  flag;
  wait(100 + random(25));
end;

function FindTextChatBoxMulti(T1, T2, T3: string): boolean;
begin
  if (FindText(x, y, T1, SmallChars, MCX1, MCY1, MCX2, MCY2)) then
  begin
    result := true;
    writeln('Found ' + T1 + ' in chatbox using FindTextChatBoxMulti');
  end;
  if (FindText(x, y, T2, SmallChars, MCX1, MCY1, MCX2, MCY2)) then
  begin
    result := true;
    writeln('Found ' + T2 + ' in chatbox using FindTextChatBoxMulti');
  end;
  if (FindText(x, y, T3, SmallChars, MCX1, MCY1, MCX2, MCY2)) then
  begin
    result := true;
    writeln('Found ' + T3 + ' in chatbox using FindTextChatBoxMulti');
  end;
  wait(100 + random(25));
end;

function SuccesfullySwinged: boolean;
begin
  if (FindTextChatBoxMulti('swi', 'win', 'wing')) then
  begin
    writeln('Succesfully started whacking oak.');
    result := true;
  end;
  wait(100 + random(25));
end;

function SuccesfullyOaked: boolean;
begin
  if (FindTextChatBoxMulti('Logs', 'ogs', 'log')) then
  begin
    result := true;
    writeln('Succesfully got one pile of logs.');
  end;
  wait(100 + random(25));
end;

function FindOak: boolean;
begin
  if (findcolor(x, y, 1982520, MSX1, MSY1, MSX2, MSY2))
    or (findcolor(x, y, 4485224, MSX1, MSY1, MSX2, MSY2)) then
  begin
    mmouse(x, y, 0, 0);
    if (isuptext('ak')) then
    begin
      result := true;
    end;
  end;
end;

procedure DetectTreeStump;
begin
  if (findcolor(x, y, 5145513, MSX1, MSY1, MSX2, MSY2)) then
  begin
    mouse(x, y, 0, 0, false);
    if (FindText(x, y, 'stump', UpChars, MSX1, MSY1, MSX2, MSY2)) then
    begin
      TreeDown := true;
    end;
  end;
end;

function NesInvFull: boolean;
begin
  if (FindTextChatBoxMulti('inventory', 'vento', 'entor')) then
    result := true;
  writeln('Inventory is full');
end;

procedure ChopOak;
var WhackMark: integer;
begin
  if (FindOak) then
  begin
    Mouse(x, y, 0, 0, false);
    PopUp('own');
    randoms;
  end;
  FindHead;
  if (SuccesfullySwinged) then
  begin
    MarkTime(WhackMark);
    repeat
      begin
        Randoms;
        ClickToContinue;
        FindHead;
        if (succesfullyoaked) then
          logs := logs + 1;
        if (random(40) < (6)) then
        begin
          GhostSpeak('woodcutting');
        end;
        RandomMovement;
        DetectTreeStump;
      end;
    until (TreeDown = true) or (TimeFromMark(WhackMark) > 8000) or (NesInvFull);
    wait(100 + random(25));
  end;
end;

procedure ChopOaks; // Note the "s" :D
begin
  repeat
    ChopOak;
  until (NesInvFull);
  wait(100 + random(25));
end;

procedure ToStore;
begin
  NesRunOn;
  if (FindSymbol(x, y, 'shop')) then
  begin
    mouse(x, y, 2, 3, true);
  end
  else
  begin
    mouse(MMCX + 25 + random(10), MMCY - 3 + random(4), 2, 2, true);
  end;
  flag;
  wait(100 + random(25));
end;


function StoreScreen: Boolean;
begin
  Result := FindText(x, y, 'Lumbridge', upchars, 161, 28, 350, 49);
end;

function QuickUpText(text: string): boolean;
begin
  getmousepos(x, y);
  mmouse(x, y, 0, 0);
  if (isuptext(text)) then
  begin
    result := true;
  end;
end;

function FindAssistant: boolean;
begin
  if (findobj(x, y, 'eep', 5926276, 20))
    or (findobj(x, y, 'ssi', 5926276, 20))
    or (QuickUpText('eeper'))
    or (QuickUpText('ssist')) then
    result := true;
  wait(100 + random(25));
end;

procedure TradeAssistant;
begin
  repeat
    if (FindAssistant) then
    begin
      mouse(x, y, 0, 0, false);
      PopUp('rade');
    end;
  until (StoreScreen);
end;

procedure SellOaks;
var Item: integer;
begin
  Item := 28;
  if (StoreScreen) or (i > 5) then
  begin
    MMouseTPoint(ItemCoords(Item), 0, 0);
    if (IsUpText('ak')) then
    begin
      repeat
        MouseTPoint(ItemCoords(Item), 0, 0, false);
        wait(50 + random(25));
        ChooseOption(x, y, 'ell 10');
        MMouseTPoint(ItemCoords(Item), 0, 0);
        wait(750 + random(50));
      until (not (QuickUpText('ak')));
    end;
    mouse(486, 40, 1, 1, true);
    wait(100 + random(25));
    randoms;
    wait(500 + random(20));
  end;
end;

function GetCashCollected: integer;
var a: string;
begin
  a := GetTextAtEx(604, 207, 100, StatChars, False, False, 0, 0, -1, 20, false, tr_AlphaNumericChars);
  result := StrToInt(a);
end;

procedure ProgressReport;
begin
  SRLRandomsReport;
  writeln('Total logs chopped: ' + IntToStr(logs));
  if (LoggedIn) then
  begin
    writeln('Cash collected: ' + IntToStr(GetCashCollected));
  end;
  writeln('Woodcutting XP gained :' + FloatToStr(GetTreeExp('oak')));
end;
begin
  LoadBmps;
  setupsrl;
  safeinitform;
  safeshowformmodal;
  activateclient;
  declareplayers;
  SetChat('on', 1);
  SetChat('off', 3);
  FindAxeHeadColor;
  repeat
    ToTrees;
    ChopOaks;
    ToStore;
    TradeAssistant;
    SellOaks;
  until (false);
end.

It has few issues so i will not release this version to the public.
But however it succesfully chops and sells.
One of the issues: It completes antiban actions too long before chopping again. Plz pr0z make a function to srl that detects if the tree has been cut down. I made one but it doesnt work.

Read more about standards!!

begin
  stuff
  stuff
  repeat
    stuff
    if stuff then
    begin
      stuff
      stuff
    end;
    stuff;
  until stuff
  if stuff then
    stuff
  stuff
  stuff
end;

Edit: Ah now that's better. Yes from me, but get more familiar with player switching.

ty plox.

In.