Results 1 to 2 of 2

Thread: Clarion Version 0.6 By n3ss3s

  1. #1
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default Clarion Version 0.6 By n3ss3s

    Finally , the script is complete.
    I made there a rockcolor update procedure and "FindRock".
    FindRock doesnt work so i use object and sometime ill fix the findrock.
    This script worked for me overnight, at morning still mining.
    Report bugs and post progress reports.

    p.s. next time i appeal for Srl membership i will use this script as the test thing or whatever it is. If this script sucks tell me to do better for the appeal.

    edit: oops forgot to post script.
    SCAR Code:
    {.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(loggedin = False) 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.
    And forgot to say this is an ironminer. Iron is the best powermining ore.

  2. #2
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    i had to do system recovery so i lost link to my app. can someone member post the link?

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Which version do you use?
    By Peanuts in forum News and General
    Replies: 3
    Last Post: 04-01-2008, 12:36 AM
  2. Clarion
    By shadowblade in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 11-29-2006, 09:48 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •