SRL Archive - Outdated / Broken

hey im trying to finsish this noob death buyer that switches worlds using the client SwiftSwitch ;) i have little of it done. I have given up on it considering i sawk at pascal lol if anyone finishes it plz credit me and send me a copy ;)

~aztek

program AzteksDeathBuyer;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\BuySell.scar}


//Use SwiftSwitch, go to...
//SHOW INTERNAL UTILITIES> SWIFT UTILITES> [change Color themes to Stormy Grey]
//SHOW INTERNAL UTILITIES> SWIFT UTILITES> [change Button Style to Office XP]


//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
//SETUP\\ LINES 15-17
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\

const buttoncolor    = 14737632; //unused world button color
const buttoncover    = 12829635; //world button color when mouse is over it
const buttonused     = 4210752;  //used world button color
const bettyshirt     = 8388608; //Betty's shirt [purple on shoulder]

const username       = 'username';
const password       = 'password';
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\

procedure start;
begin
  MoveMouse(453, 299: integer);
  ClickMouse(100, 30, True);
  sendkeys(username+chr(13));
  sendkeys(password);
  movemouse(282, 322);
  Clickmouse(282, 322, true);
  end;
  
procedure buyit;

You'll get banned if your using movemouse and clickmouse in RS.

cool i wanted this badly.