SRL Archive - Outdated / Broken

please tell me what you think and rep me.

/////////////////////////////////////////////////////////////////
//                   Death Rune Buyer                          //
//                    By: Whitevans1                           //
/////////////////////////////////////////////////////////////////
//                     Instructions:                           //
// 1. Start In Betty's Rune Shop                               //
// 2. Get Betty's Unique Color                                 //
// 3. Fill In Username,Password, and Betty's Unique Color      //
// 4. Drag CrossHairs to Runescape Client                      //
// 5. Hit Run                                                  //
// 6. Hit Ctrl+Alt+S to stop after you bought all runes        //
/////////////////////////////////////////////////////////////////

program MyAmazingPowerMiner;
{.include SRL/SRL.scar}

//---------------------------------------------------------------------\\
const
Username='';//Your username
Password='';//Your password
Betty =5835098;//Betty's Color(A Unique One)
//---------------------------------------------------------------------\\

var
welcome: Integer;
firstlogin: Integer;
secondlogin: Integer;
thirdlogin: Integer;
fourthlogin: Integer;
finallogin: Integer;
Chat: Integer;
Chat1: Integer;
Chat2: Integer;
i: Integer;

//----------------------------------------------------------------------\\
function LoginScreenDetection: boolean;
var
  x, y: integer;
begin
  welcome := BitmapFromString(13, 13, 'z78DA9D93CD0E80200C835' +
       'F09B39AC8117F78FF47D2300F25B344EDA18705BE6CA36041990D' +
       '1B8E3977EE75E5130CFB83474E64F2F956A997527207F7F3AB07A' +
       '6B9BED26CB78AECFE401B7388C61C49A33DC46DB033474E2AB6CA' +
       '52CCAF34D583A259B115166F4567F9ADF734A5F1A44C1BBFC29D5' +
       '27A5FB58198F3341477C875954F95B198932E99ED2F9CE800DF4B' +
       '');
  if(FindBitmap(welcome, x, y))then
    begin
      WriteLn('At the login screen');
      Result:= True;
    end else
    begin
      WriteLn('Not at the login screen');
      Result:= False;
    end;
end;

Procedure Login;
begin
SetupSRL;
  firstlogin := BitmapFromString(17, 10, 'z78DA8D52410AC0200C' +
       'FB92CC08DB5198FEFF4903DD21254B590F456A4D93D43AEAC4850' +
       '3C0C089DE801BB3F5F7BCEB92EB7AC5D975DABCF1D3293CEBD7AD' +
       '62B2A2952705D7C35BC74D6E039A702B148C36D350E41D014D701' +
       'CAB9286EBE4CD6A0FBB9AAB705A7483F9947D76CC73C79CF3ECA4' +
       'DB7EEEA42A725AB49EEF373017EDF68F99FA07F2EA79000394E77' +
       '4');
  repeat
    Wait(100);
     until(FindBitmap(firstlogin,x,y))
      MoveMouse(x,y);
  ClickMouse(x,y, true);
Wait(500);
secondlogin := BitmapFromString(20, 10, 'z78DABD933B0E80300' +
       'C43AF048A91602CBFFB1F09A9ED90C84955C4278307E3E6A551C1' +
       '08C18E6E955D4E2C3D8A19691247A98FA1A88C4926592155DB67A' +
       '30E34DBD951CC2D3DA33C6FACFA441C72B51DEEA393EDBCDEC95D' +
       '6E71A2B3D13CDF71B9F4065EE36E38A625A21822BDB1E75CA63BA' +
       'F4B718D939527344EEEEFDCA2287D756ECD7FD9EF7A01BC4C129D' +
       '');
  repeat
    Wait(100);
     until(FindBitmap(secondlogin,x,y))
   MoveMouse(x,y);
  ClickMouse(x,y, true);
Wait(2000);
SendKeysSilent(username);
    Wait(1000);
thirdlogin := BitmapFromString(17, 5, 'z78DA737343000324606' +
       '268626CE20221DD30D4608A183B1A3B99181BBB18BB9958229B03' +
       '11C169BE8589A3A9B11B0E3760B1056C1A84447621B23B31DD8FC' +
       'B17F8C5719103600B3894304937BC0097EDC8B600006C1D7452');
  repeat
    Wait(100);
     until(FindBitmap(thirdlogin,x,y))
   MoveMouse(x,y);
  ClickMouse(x,y, true);
 SendKeysSilent(password)
Wait(704);
fourthlogin := BitmapFromString(12, 7, 'z78DA9591410AC0200C' +
       '04BF24660BED51C1FCFF49051370254D69F73087A8434C5457CA0' +
       'C2A808113ED8073566488E2F2D3407DF790C1D9A403910F1E3244' +
       '6E862A22DD98F6C36FA913FD10F36CBF480C859279FE4E32F5F0A' +
       '688D94DABDCA53C746D');
  repeat
   Wait(100);
    until(FindBitmap(fourthlogin,x,y))
  MoveMouse(x,y);
 ClickMouse(x,y, true);
Wait(6000);
finallogin := BitmapFromString(39, 10, 'z78DA8D954B8EC3300C' +
       '43AF242775DA2EA79FDCFF4803985A3C8391512F8C4026F597723' +
       'FF76DDB8EDE22FAF16AEF78EABBF738A2A5FCBB45EBFABE3D628B' +
       '48E4B853026472A14D98FED77A3C241766D23690F7E10F6FBED2C' +
       'F0B245ED3A279324547B9B1269D60251739A106C5A8FBF9BE9DFB' +
       '47F2FD157BC4A413B99A22B55BAF6E57726916322D8ED7D38EC77' +
       '2F16AB5D67D16A7CAA12325CF48879549CF90E8D5E5CAA7770B91' +
       '314E65D191CA1B2B2E2B55A462FD6E9DB55E2303473E783F3B529' +
       'E3BD735674FA2E729A93CF13A4EB6069712AFE99AEBB3468BF461' +
       'EA1CCC451529319C9A8B6A62222EB481EBBBE89718739AB001DCA' +
       '2F0CC404681FD50FA56ECC62AD26A16A60DC68D54E4CDB3C79C73' +
       'D7D1226BEA3D29D6BA46DC84556698F32A6FDE7555F7B2F7C8E54' +
       '6626F784D3971B2524D16BD22B7AADA7ABF91CB1E5EEF73B7EB33' +
       'E835F54CAE23ADF457F875A4E4AEFF5CD53F82FA39A792FC03E7B' +
       'F057B');
 if(FindBitmap(finallogin, x, y))then
  ClickMouse(x,y, true);
  Wait(5000);
   end;
Procedure TurnOffChat;
begin
Wait(2000);
chat := BitmapFromString(33, 8, 'z78DAA594C10AC3300C437F69' +
       '38CE588FD958FFFF9356AA8B8AAAE0301F44116EA287EB66B4117' +
       'B9E8A7A9C95057FAEEDD522367E37BE31229D6A279CF95BD07C1F' +
       '7776E8252D3978BEF125B9FA5AA06375145075F4CC9E39DA87B37' +
       '169FE1B5E64363E3B28C75299053B7C2628A07AA3F6B8A9552874' +
       '468E62CEA5D379C691AE2B052757759DEE9B5C9D5A9D8B29A0DCC' +
       '33EEB5F148B53AB70415729B45FB78CE97653978D2B53300B9766' +
       'AB5370BFDB23E6D2E2E920B96E90FBC3F3393F5592606B');
 if(FindBitmap(chat, x, y))then
    For i := 1 To 2 Do
      begin
        MoveMouse(x,y);
        Wait(1000);
        ClickMouse(x,y, true);
      end;
chat1 := BitmapFromString(22, 10, 'z78DAAD93410E80201003BF8' +
       '405133DA291FF3F49C35E6A9A1A23F6B09A80DDA1AC3850513050' +
       '5B17867DC61952D73787BC64608DFA1B03304DC77B87825C11368' +
       'D79A236916318D9C30C7116A54A2475E06F593A2DCE27DEA32F33' +
       '30894ABBB879D0554E98796EDDB7EB392B9BEE57379D2B770A4E3' +
       '83A3A0697CC33834E54326292B9949AF7E8CEF5F92EDCF4EABFE6' +
       '7C3867C7C029A9381FBD3526D155D609CCAB26E8');
 if(FindBitmap(chat1, x, y))then
    For i := 1 To 2 Do
      begin
        MoveMouse(x,y);
        Wait(1000);
        ClickMouse(x,y, true);
      end;
chat2 := BitmapFromString(21, 7, 'z78DA8D92510AC0200C43AF24' +
       'B58EEDD30DBCFF9126465820AB988F22B5F8D2DAD63EF9ED964B1' +
       '49B280DF5BB6A2DAAC96736BB34F20B1032C5BDE687237BE3CA49' +
       '272E9CE89BC82B3DEA88B9382B2BCC601A23EEE4B5A3C33AB3A81' +
       'F76A574154F83B93883A2AC7DBA6654737FA4EB68F2EA6AFD47EC' +
       'E16702B2BD6929A623EE54F2868413A0ED7D011C3DC6EB');
 if(FindBitmap(chat2, x, y))then
    For i := 1 To 2 Do
      begin
        MoveMouse(x,y);
        Wait(1000);
        ClickMouse(x,y, true);
      end;
      end;
Procedure Findbetty;
begin
FindObj(x, y, 'Trade', Betty, 5)
Mouse(x, y, 1, 1, false);
if (ClickOption('Trade', 1))then
Wait(5000);
end;
Procedure TradeBetty;
begin
wait(700);
MoveMouseSmooth(421, 86);
wait(500);
ClickMouse(421, 86, false);
Random(10);
wait(900);
ClickMouse(379, 155, true);
wait(900);
end;
begin
LoginScreenDetection;
Login;
Findbetty;
repeat
TradeBetty;
until (false);
end.

does it change worlds?

whoa.. standards.. really not SRL script.. clickmouse and movemouse are detectable.. man, so many problems..

use MMouse to move the mouse humanly, CMouse to click the mouse humanly, and Mouse to move the mouse and click humanly.. please please read the srl manual and use functions there that are already there..

you should do if(not(LoggedIn))then Login;
this will log you in if you arent already.. so you can delete the logindetection

i highly recommend you read, in detail, the srl manual and try to understand each function you can use..

i also recommend you try doing a non-runescape script, as this can get you EASILY banned..

All of what phantom said and Do not beg for rep it is against rules. Rep will come when it comes

hmmm,

Both of you guys are correct. Although… it looks as though some of it was taken from my super unfinished death buyer…

sorry and no none of this was taken from your super unfinished death buyer never even heard of the shit.. this was my first ever script… and sorry for asking about rep it won't happen again.

aww its ok white, its pretty cool that u know enough to make 1, give some of the resources on this site a look over and keep improving ur materials, but its still really cool that ur done ur first 1, u can only go up from here:)

I haven't seen a death buyer on here it was my first script i thought it was ok didn't think it was a great script… My better work is here my 2nd script http://www.villavu.com/forums/showthread.php?t=1149