Results 1 to 9 of 9

Thread: Making an old script compatable with SRL

  1. #1
    Join Date
    Jun 2006
    Posts
    250
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Making an old script compatable with SRL

    Im working on making Strangeessminer work with SRL, and this is the code so far:
    Code:
    [tt]program StrangeEssMiner;
    {.include Srl\SRL.scar}
    
     /////////////////////////////////////////////////////////////////////
      //                                                                 //
     //             VARROK ESSENCE MINER BY SOLEMN WISHES               //
     //                     TWEAKED BY M0U53M4T                         //
     //                                                                 //
     /////////////////////////////////////////////////////////////////////
     /////////////////////////////////////////////////////////////////////
     //     SETUP-READ BEFORE USING THIS SCRIPT FOR BEST RESULTS!       //
     //                                                                 //
     /////////////////////////////////////////////////////////////////////
     /////////////////////////////////////////////////////////////////////
     //Setup:                                                           //
     //·Need scar 2.03 (reccomended)                                    //
     //.LOW detail                                                      //
     //·V bright brightness                                             //
     //.Have map facing pretty much north and the highest point of view //
     //.start in varrok bank (recomended near middle banker)            //
     //.fill in the two (optional) color's bellow                       //
     /////////////////////////////////////////////////////////////////////
    const
    ////////////////////////////////////////////////////////////////////////
                                                                          //
                                                                          //
    getbankcolor=982782;//Highly Reccomended if varrok bank is crowded    //
    floorcolor=5692;  //Reccomended but not needed, used as a backup      //
                                                                          //
                                                                          //
    ////////////////////////////////////////////////////////////////////////
    //REMEMBER THE FOLLOWING...                                           //
    //1)The first letter in  the chat box starts with a capital, if my    //
    //anti-ban is not working this could be why.                          //
    //2)leave feedback and comments pl0z :)                               //
    ////////////////////////////////////////////////////////////////////////
    TrialTimes= 10;                                                       //                                         //
    ////////////////////////////////////////////////////////////////////////
    
    
    var
    frmDesign : TForm;
    usernamepanel : TPanel;
    usernameenter : TEdit;
    passwordtag : TPanel;
    passwordenter : TEdit;
    startbutton : TButton;
    tripstodo : TPanel;
    numberoftrips : TEdit;
    tripsyouset,SWUsername,SWPassword:string;
    UseQuicky,UseQuick,Handle:integer;
    c,arrow,clickhere,timestalked,play,bankcolor,tried:integer;
    runeshop,teleportbackup,teleport,login,logged: Integer;
    magicthingy,randomfight,mined,exp,report, report2:integer;
    bmpNecklace,bmpSword,bmpShears,bmpRing,bmpHelmet,bmpCerterAxe,bmpSpade,
    bmpFish,bmpShield,Pixels,CerterUpChars,CerterChatChars,Certers2:integer;
    
    
    procedure walktoaubury;
    begin
    if(bankcolor=0)then
    BankColor:=GetSymbolColor(x,'bank');
    writeln('BankColor:'+inttostr(BankColor));
    begin
    mouse(664,131,4,3,true)
    wait(12000+random(2000))
    flag;
    begin
    magicthingy:=GetSymbolColor('magic shop');
    writeln('magic shop color:'+inttostr(magicthingy));
    if(findcolorspiraltolerance(x,y,floorcolor,576,10,718,159,5))or
    (findcolorspiraltolerance(x,y,magicthingy,576,10,718,159,5))then
    begin
    mouse(x,y,1,2,true)
    walkingrandoms;
    flag;
    end;
    end;
    end;
    end;
    
    
    
    
    procedure walktoauburyrandom;
    begin
    if(bankcolor=0)then
    BankColor:=GetSymbolColor('bank');
    writeln('BankColor:'+inttostr(BankColor));
    begin
    mouse(610,88,4,3,true)
    flag;
    mouse(644,144,4,3,true)
    flag;
    begin
    magicthingy:=GetSymbolColor('magic shop');
    writeln('magic shop color:'+inttostr(magicthingy));
    begin
    if(findcolorspiraltolerance(x,y,floorcolor,546,1,750,159,5))or
    (findcolorspiraltolerance(x,y,magicthingy,546,1,750,159,5))then
    mouse(x,y,1,2,true)
    walkingrandoms;
    flag;
    end;
    end;
    end;
    end;
    
    
    
    procedure Randomwalkselecter;
    var b:integer;
    Begin
      b:= random(2)+1
      begin
      If(b= 1)then
      walktoauburyrandom;
      If(b= 2)then
      walktoaubury;
       end;
    end;
    
    
    
    
    procedure findandtalk;
    begin
    walkingrandoms;
    repeat
    FindObj('Talk',1914942,12)
    wait(200+random(100))
    mouse(x,y,1,1,false)
    wait(1000+Random(500))
    until(FindBitmapToleranceIn(teleport,x,y,5,5,512,334,50))or
    (FindBitmapToleranceIn(teleportbackup,x,y,5,5,512,334,50))
    mouse(x,y,1,1,true)
    flag;
    wait(4000+random(2000))
    end;
    
    
    
    
    
    procedure detectroom2;
    begin
    if(findcolorspiraltolerance(x,y,10855856,561,4,719,167,14))then
    begin
    mouse(x,y,1,1,true)
    wait(random(1000+800))
    flag;
    writeln('We have been teleported to the middle-room')
    end;
    end;
    
    
    
    
    function detectrooms:boolean;
    begin
    walkingrandoms;
    result:=false;
    if(findbitmaptolerancein(arrow, x, y, 543, 3, 760, 165, 50))then
    result:=true;
    if(result= false)then
    detectroom2;
    end;
    
    
    
    
    procedure backtoshop;
    begin
    walkingrandoms;
    repeat
    wait(random(500+500))
    until(findbitmaptolerancein(arrow,x,y,543,3,760,165,50))
    begin
    Mouse(x,y,1,2,true)
    flag;
    repeat
    FindObj('Use',11332846,80)
    Mouse(x,y,3,2,true)
    flag;
    wait(2500+random(1000))
    until(findcolorspiraltolerance(x,y,floorcolor,546,1,750,159,5))or
    (findcolorspiraltolerance(x,y,magicthingy,546,1,750,159,5))
    wait(1000+random(1000));
    end;
    end;
    
    
    
    
    
    procedure backtobank;
    begin
    writeln('should scroll down')
    SendArrowSilentWait(0, 1200 + random(300));
    mouse(677,56,1,2,true)
    flag;
    begin
    bankcolor := 4703204
    SendArrowSilentWait(0, 1200 + random(300));
    if(bankcolor=0)then
    BankColor:=GetSymbolColor('bank');
    writeln('BankColor:'+inttostr(BankColor));
    begin
    if(FindColorSpiralTolerance(x,y,BankColor,561,4,719,167,5))or
    FindColorSpiralTolerance(x,y,getbankcolor,561,4,719,167,5)then
    Mouse(x,y,1,1,true)
    wait(4500+random(500))
    SendArrowSilentWait(0, 1200 + random(300));
    flag;
    repeat
    tried := tried +1
    if tried = 15 then
    begin;
    if(FindColorSpiralTolerance(x,y,BankColor,561,4,719,167,5))or
    FindColorSpiralTolerance(x,y,getbankcolor,561,4,719,167,5)then
    Mouse(x,y,1,1,true)
    wait(4500+random(500))
    end;
    SendArrowSilentWait(0, 1200 + random(300));
    FindObj('Use',609125,12)
    Mouse(x,y,1,1,false)
    wait(600+random(500))
    if(FindbitmapspiralTolerance(UseQuick,x,y,5,5,757,491,50))or
    (FindbitmapspiralTolerance(UseQuicky,x,y,5,5,757,491,50))then
    mouse(x,y,1,1,true)
    flag;
    wait(1000+random(500))
    until(IsTextAtEx(185,34,'The Bank of',30,UpChars,True,False,0,0,-1))
    begin
    wait(700+random(600))
    Deposit(2,28,2);
    mined:=mined+27
    timestalked:=timestalked+1
    exp:=exp+135
    c:=0;
    end;
    end;
    end;
    end;
    
    
    
    
    procedure Start(sender: TObject);
    begin
    frmDesign.Caption:= frmDesign.Caption + '.';
    frmDesign.ModalResult:= mrOk;
    writeln('///////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\')
    writeln(' //YOU ARE USING SOLEMN WISHES ESSENCE MINER 3.1\\')
    writeln(' /////////THE DAWN OF AUTOING IS APON US\\\\\\\\\')
    writeln(' /////////ANY PROBLEMS OR QUESTIONS PM ME\\\\\\\\\\')
    writeln('//////I HOPE YOU ENJOY YOUR AUTOING EXPERIENCE\\\\\\\')
    SWusername:= usernameenter.text;
    SWpassword:= passwordenter.text;
    tripsyouset:= numberoftrips.text;
    end;
    
    
    
    
    procedure initform;
    begin
    frmDesign := CreateForm;
    frmDesign.Left := 266;
    frmDesign.Top := 277;
    frmDesign.Width := 228;
    frmDesign.Height := 259;
    frmDesign.Caption := 'Solemn Wishes ess miner';
    frmDesign.Color := clBtnFace;
    frmDesign.Font.Color := clWindowText;
    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 := 25;
    usernamepanel.Width := 78;
    usernamepanel.Height := 28;
    usernamepanel.Caption := 'Username';
    usernamepanel.Enabled := False;
    usernamepanel.TabOrder := 8;
    usernameenter := TEdit.Create(frmDesign);
    usernameenter.Parent := frmDesign;
    usernameenter.Left := 95;
    usernameenter.Top := 26;
    usernameenter.Width := 121;
    usernameenter.Height := 21;
    usernameenter.TabOrder := 9;
    passwordtag := TPanel.Create(frmDesign);
    passwordtag.Parent := frmDesign;
    passwordtag.Left := 10;
    passwordtag.Top := 68;
    passwordtag.Width := 81;
    passwordtag.Height := 27;
    passwordtag.Caption := 'Password';
    passwordtag.TabOrder := 10;
    passwordenter := TEdit.Create(frmDesign);
    passwordenter.Parent := frmDesign;
    passwordenter.Left := 94;
    passwordenter.Top := 68;
    passwordenter.Width := 122;
    passwordenter.Height := 21;
    passwordenter.TabOrder := 11;
    tripstodo := TPanel.Create(frmDesign);
    tripstodo.Parent := frmDesign;
    tripstodo.Left := 66;
    tripstodo.Top := 106;
    tripstodo.Width := 80;
    tripstodo.Height := 24;
    tripstodo.Caption := 'Trips To Do';
    tripstodo.TabOrder := 13;
    numberoftrips := TEdit.Create(frmDesign);
    numberoftrips.Parent := frmDesign;
    numberoftrips.Left := 36;
    numberoftrips.Top := 130;
    numberoftrips.Width := 141;
    numberoftrips.Height := 21;
    numberoftrips.TabOrder := 14;
    startbutton := TButton.Create(frmDesign);
    startbutton.Parent := frmDesign;
    startbutton.OnClick:= @Start;
    startbutton.Left := 62;
    startbutton.Top := 169;
    startbutton.Width := 75;
    startbutton.Height := 25;
    startbutton.Caption := 'Start';
    startbutton.TabOrder := 12;
    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 progressReport;
    var
     RHours,Minutes,Seconds,RMinutes,RSeconds:LongInt;
     Time:String;
    begin
    if(GetSystemTime-report2 > report*60000)then
    begin
    Seconds:=(GetSystemTime) div 1000;
    Minutes:=Seconds div 60;
    RHours:=Minutes div 60;
    Time:=inttostr(Seconds)+' Seconds';
    if Minutes<>0 then
    begin
    RSeconds:=Seconds Mod (Minutes*60);
    Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
    end;
    if RHours<>0 then
    begin
    RMinutes:=Minutes Mod (RHours*60);
    RSeconds:=Seconds Mod (Minutes*60);
    Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
    end;
    begin
    writeln('');
    writeln('');
    writeln('     WORKED FOR '+(TIME));
    writeln('  ');
    writeln('         TALKED TO THE AUBURY '+inttostr(timestalked)+' TIMES SO FAR');
    writeln('            MINED '+inttostr(mined)+ ' ESSENCE ROCKS SO FAR');
    writeln('            GAINED AROUND '+inttostr(exp)+' EXP SO FAR')
    writeln('       FOUND AND RAN AWAY FROM '+inttostr(randomfight)+' RANDOM EVENTS ')
    writeln('');
    writeln('');
    Report2:=GetSystemTime;
    end;
    end;
    end;
    
    
    
    
    Procedure LoadDTM;
    Begin
    
      logged := DTMFromString('78DA63DCCCC8C0A008C448E0FFFFFF601A26C' +
           'A780CC8FAC18015C0D52C05B27E31A09983A6A601D31C47675F54' +
           '35FB812C1502EE5981A9C6C32B04450D00F097111D');
    
      login := DTMFromString('78DA635465646070026224F0FFFF7F300D136' +
           '5DC0564391050530364DD61C00AE06AF881AC5B0C68E6A0A93107' +
           'B2EE12501301643D4055E3E1158CA20600DD4710DE');
    
      runeshop:= DTMFromString('78DA6364C004C91136609A1188FF03010018E' +
           '604F6');
    
    end;
    
    
    
    
    procedure loadbitmaps;
    begin
      teleport := BitmapFromString(10, 15, 'z78DA3330182CC00D0720' +
           '5E1731E2C3492FB5C28AD4D8192A7A870A00000D1EB9C5');
    
      teleportbackup := BitmapFromString(29, 17, 'z78DA33301805A3' +
           '60700137208091A3AE1D58D722AB27462FF1EA8951499E69B4162' +
           '7D50D03EB5ACA53C2A86BE9E35A5AE732525D325A328FBA7678B8' +
           '76A80000F0D74AB7');
    
      play := BitmapFromString(8, 12, 'z78DA33302007B8110170A927D' +
           '57C5AAB2746EF60763F2DE28B780000AAE17B79');
    
      clickhere := BitmapFromString(10, 16, 'z78DA3330185EC0CD8D1' +
           'CF5A4EAA2C4C6C1A31793A4C45E624C187E7A2989056A0000A02B' +
           'B79D');
    
      arrow := BitmapFromString(4, 2, 'C5BAC9C5BAC9C5BAC9C5BAC9E2' +
           '6225E26225E26225E26225');
    
    
      Handle := BitmapFromString(15, 27,
           '564D41595145564D41544A3C544A3C595145564D41564D41564D41' +
           '564D41595145000001000001544A3C4F4538544A3C595145564D41' +
           '544A3C544A3C544A3C5951455951455951455951450000012F2000' +
           '362400000001544A3C564D41544A3C544A3C564D41564D41564D41' +
           '5951455951455951450000012F20002F2000362400000001302020' +
           '564D41544A3C544A3C595145564D41595145564D41595145595145' +
           '0000012F2000362400362400000001302020564D41564D41564D41' +
           '564D41564D41544A3C544A3C544A3C0000012F20002F2000362400' +
           '362400000001302020544A3C544A3C544A3C544A3C544A3C544A3C' +
           '544A3C544A3C0000012F2000362400362400362400000001302020' +
           '544A3C564D41564D41564D41544A3C564D41564D410000012F2000' +
           '2F2000362400362400000001302020302020564D41564D41564D41' +
           '595145564D41564D41564D410000012F2000362400362400000001' +
           '302020302020544A3C544A3C544A3C544A3C595145544A3C544A3C' +
           '0000012F2000362400362400362400000001302020564D41564D41' +
           '544A3C544A3C544A3C564D41544A3C4F45380000012F2000362400' +
           '362400000001302020302020564D41564D41544A3C544A3C595145' +
           '595145564D410000012F2000362400362400362400000001302020' +
           '564D41564D41544A3C544A3C564D41564D41595145595145000001' +
           '2F20002F20002F2000000001302020302020564D41564D41544A3C' +
           '564D41564D41544A3C564D410000012F20002F20002F2000362400' +
           '000001302020564D41544A3C544A3C544A3C595145544A3C544A3C' +
           '564D410000012F20002F20002F2000000001302020302020544A3C' +
           '544A3C564D41564D41595145544A3C544A3C0000012F20002F2000' +
           '2F2000000001302020302020595145544A3C564D41595145595145' +
           '595145564D41564D410000012F20002F20002F2000000001302020' +
           '595145595145564D41564D41595145595145595145595145000001' +
           '2F20002F20002F2000000001302020302020595145595145595145' +
           '595145564D41564D41564D41564D410000012F20002F20002F2000' +
           '000001302020564D41595145595145595145595145564D41564D41' +
           '544A3C0000012F20002F20002F2000000001302020302020564D41' +
           '595145595145544A3C544A3C564D41595145564D410000012F2000' +
           '2F20002F2000000001302020544A3C564D41595145595145544A3C' +
           '544A3C564D41564D41564D410000012F20002F2000000001302020' +
           '302020544A3C564D41595145595145564D41544A3C544A3C4F4538' +
           '000001271B002F20002F2000000001302020595145544A3C564D41' +
           '595145595145595145544A3C544A3C544A3C0000011D1500271B00' +
           '000001302020302020595145544A3C564D41595145595145595145' +
           '564D41564D41564D410000011D15001D1500000001302020595145' +
           '544A3C544A3C564D41595145595145595145595145595145544A3C' +
           '0000011D15001D1500000001302020564D41595145595145595145' +
           '595145564D41595145595145564D41544A3C564D41000001000001' +
           '302020302020595145595145595145595145544A3C564D41595145' +
           '544A3C544A3C4F4538564D41595145302020302020564D41595145' +
           '564D41564D41564D41544A3C544A3C564D41544A3C544A3C544A3C' +
           '');
    
    UseQuick := BitmapFromString(16, 6,
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
            '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
            '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
            '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
            '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
            '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000000005D5447' +
            'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
            '000000000000000000FFFFFFFFFFFFFFFFFF');
    
    UseQuickY := BitmapFromString(17, 5,
            'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
            '000000000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF00' +
            'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
            '000000000000FFFF00FFFF00000000000000000000FFFF00FFFF00' +
            '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
            '000000FFFF00FFFF00000000000000000000FFFF00FFFF00000000' +
            '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
            'FFFF00FFFF00000000000000000000FFFF00FFFF00000000000000' +
            'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
            'FFFF00000000000000000000');
    
    bmpNecklace := BitmapFromString(30, 1, 'z78DA7332B17433B734363' +
           '17235347002B39149A8B891A58BB9053289294EBC4A5C24F16602' +
           '004B97286E');
    bmpSword := BitmapFromString(30, 2, 'z78DA7332B27431B730363172' +
           '35347002B37191986AC8137132B0743637838A83D9C8242E71141' +
           '2BFF9785D8E8B4D6B370300B2B65059');
    bmpShears := BitmapFromString(30, 2, 'z78DA3336317235347032B07' +
           '436378390C64488D042252EBDC8B2C86A88514F0B97E0720F7EBB' +
           '00EC754F5D');
    bmpRing := BitmapFromString(30, 2, 'z78DA7332B27431B7303631723' +
           '5347002B37191B8D4902A4E892E52550E949B2122C8E20009EF50' +
           'B3');
    bmpHelmet := BitmapFromString(30, 2, 'z78DA3336317235347032B27' +
           '431B740268D31C48D69A0923C1328318772B7916732008DB8502F' +
           '');
    bmpCerterAxe := BitmapFromString(30, 2, 'z78DA7332B27431B770C24B1A9B' +
           '18B91A1A404862543A19583A9B9BE12231D510A30B8524C60D186' +
           'C6AB919BF7A94B042120700F0A05073');
    bmpSpade := BitmapFromString(30, 2, 'z78DA7332B17433B734363172' +
           '35347002B33149A8AC91A58BB90532894B1C599612BD384530DD4' +
           '6B19B91C569E16600F6AC50A3');
    bmpFish := BitmapFromString(30, 2, 'z78DA7332B27431B770C2411A9' +
           'B18B91A1A505796787188087E5B2877157922A4BA190004CE5092' +
           '');
    bmpShield := BitmapFromString(30, 2, 'z78DA3336317235347032B17' +
           '433B78490C64488381959BA985B40C5C16CE24528D78BD355986E' +
           'A692BD9498062101C5625087');
    end;
    
    
    
    
    
    
     ////////////////////////////////////////////////////
     //       AUTO RESPONDER BY SOLEMN WISHES          //
     //  THIS IS THE NEW WAVE OF ANTIBAN FEATURES      //
     ////////////////////////////////////////////////////
     //UNDER CONSTRUCTION* started work on the 21st of //
     //december this is a working version but not yet  //
     //complete.                                       //
     ////////////////////////////////////////////////////
    
    
    procedure respond;
    begin
     writeln('Responding to the question')
      sendkeyssilent(respondwith)
        wait(100+random(50))
     sendkeys(chr(13));
    end;
    
    
    
    procedure createtext;
    var s:integer;
    begin
      s:=CreateBitmapMaskFromText(messages,ChatChars);
        if(FindBitmapMaskTolerance(s,x,y,8,346,211,477,10,85))then
          begin
        FreeBitmap(s);
           writeln('succesfully found a possible question')
       respond;
     end;
    end;
    
    
    
    
    
    procedure RandomTalk;
    var b:integer;
    Begin
    if(randomwords='1') then
      b:= random(100) + 1;
      begin
      If(b= 1)then
       sendkeyssilent('mining lvls');
      If(b= 2)then
       sendkeyssilent('dam i really want a random event'+chr(13))
      If(b= 3)then
       sendkeyssilent('i cant wait till next xmas'+chr(13))
      If(b= 4)then
       sendkeyssilent('im saving for full rune'+chr(13))
      If(b= 5)then
       sendkeyssilent('cool'+chr(13))
      If(b= 6)then
       sendkeyssilent('how long have you been playing'+chr(13))
      If(b= 7)then
       sendkeyssilent('mining essence is slow for me'+chr(13))
      If(b= 8)then
       sendkeyssilent('allmost at my next lvl yay'+chr(13))
      If(b= 9)then
       sendkeyssilent('nice pick'+chr(13))
      If(b= 10)then
       sendkeyssilent('dam this is boring'+chr(13))
       end;
    end;
    
    
    
    
    procedure minethatess;
    begin
    repeat
    FindObj('Mine',8553104,10)
    if(IsTextAt2(9,9,'Mine',100))then
    getmousepos(x,y)
    Mouse(x,y,2,3,true)
    if (antibantrue='true')then
    begin
    createtext;
    RandomTalk;
    wait(8000+2000)
    end;
    solemnrandoms;
    c:=c+1
    until(c=15)or(inventoryfull= true)
    end;
    
    
    
    
    procedure SetupSSIcustom;
    begin
    activateclient
    LoadChars('');
    DisguiseScar(MaskName);
    UpChars:= LoadChars2(AppPath + 'CharsRS22\');
    ChatChars:= LoadChars2(AppPath + 'CharsChat2\');
    StatChars:= LoadChars2(AppPath + 'CharsChat2\fontsmall\');
    CWindow := BitmapFromString(66, 8, 'z78DA33304000372460' +
           '800170890F1420C63DB473333D4D264664342E06CACCE11117D4F' +
           '2C5E08C0BFC251BA61A4ACCA145BE20C66DD4F205EDFC4EAD928D' +
           '76BA06BF083DE382F8D432506963A04488610FCE5C408C69F87D3' +
           '454E28276651D754B636A95F994E76E5AD49E002F369293');
    MarkTime(LogOutMark);
    MarkTime(RandomChatMark);
    MarkTime(RotateMark);
    MarkTime(KillScriptMark);
    MarkTime(LeaveScreenMark);
    GasColor:=8100004;//Reference color of gas.
    LoadSSIBmps;
    ST:=GetSystemTime;
    SetMouseMode(false);
    if(SetCamera='')then
      SetCamera:='N';
    if(LoggedIn)then
    begin
      {Face(SetCamera);
      SendArrowSilentWait(0,1400+random(100)); }
    end;
    end;
    
    
    
    
    begin;
    SafeInitForm;
    SafeShowFormModal;
    activateclient;
    SetupSSIcustom;
    loaddtm;
    loadbitmaps;
    FindPickHeadColor;
    repeat
    Randomwalkselecter;
    findandtalk;
    detectrooms;
    minethatess;
    backtoshop;
    backtobank;
    progressReport;
    until(false)
    end.
    [/tt]
    Im working my way through editing the script as I go down, to see the errors it produces. This is the first error I've got that I dont know how to fix:
    Failed when compiling
    Line 438: [Error] (11006:1): Unknown identifier 'ProcessPicture' in script \\CHS-SVR-001\3TJS$\SCAR 2.03\includes\srl\srl\core\AntiRandoms.scar
    What do I do?

  2. #2
    Join Date
    Feb 2006
    Posts
    1,022
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You need to put the plugins came with SRL into the SCAR plugin folder.

  3. #3
    Join Date
    Jun 2006
    Posts
    250
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I was doing it in school on a win98 machine. I had installed SLR. Could it be win98 that did it?

  4. #4
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    13,692
    Mentioned
    146 Post(s)
    Quoted
    130 Post(s)

    Default

    Quote Originally Posted by m0u53m4t
    I was doing it in school on a win98 machine. I had installed SLR. Could it be win98 that did it?
    The Un-named just told you what to do.



    The best way to contact me is by email, which you can find on my website: http://wizzup.org
    I also get email notifications of private messages, though.

    Simba (on Twitter | Group on Villavu | Website | Stable/Unstable releases
    Documentation | Source | Simba Bug Tracker on Github and Villavu )


    My (Blog | Website)

  5. #5
    Join Date
    Jun 2006
    Posts
    250
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Gah! Why didn't I think of that! Thanks!

  6. #6
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    13,692
    Mentioned
    146 Post(s)
    Quoted
    130 Post(s)

    Default

    Quote Originally Posted by m0u53m4t
    Gah! Why didn't I think of that! Thanks!
    :-)



    The best way to contact me is by email, which you can find on my website: http://wizzup.org
    I also get email notifications of private messages, though.

    Simba (on Twitter | Group on Villavu | Website | Stable/Unstable releases
    Documentation | Source | Simba Bug Tracker on Github and Villavu )


    My (Blog | Website)

  7. #7
    Join Date
    Feb 2006
    Location
    L.A, USA
    Posts
    1,632
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Just in case you don't know Solewn Wishes released his newer Ess Miner.

  8. #8
    Join Date
    Feb 2006
    Location
    With mooncow on the moon
    Posts
    292
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    hehe, i seriously for the life of me cant beleive that that script has still survived to this very day. Its had over 3k downloads and been around since kaitnieks met its peak. And the enw version attracted only leechers (as all my new scripts do).
    ~ Solemn Wishes

  9. #9
    Join Date
    Jun 2006
    Posts
    250
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well if I can get it going again with all new SRL stuff, it should be pretty good.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Vista compatable firewalls?
    By Mr.Klean in forum News and General
    Replies: 10
    Last Post: 09-05-2007, 01:22 PM

Posting Permissions

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