SRL Archive - RS3 Outdated / Broken Scripts

ok well i hope this is the right place to post this, if not could a mod move it for me:)? than you.

anyways this is a script i started today, i posted it for the srl members and they didnt like it to much so i am posting it for everyone :D.

right now all it does is create a character for stick rpg but i have started work on maxing out all skills and gaining all houses and stuff. any suggestions are appreciated.

program StickRPG;
{.include SRL/SRL.scar}
{-----------------------------------------------------------
 |***********************StickRPG***************************
 |Current features:                                        |
 |~Character Creation                                      |
 |~Changeable username                                     |
 |~Length selection                                        |
 |Working on:                                              |
 |~Raising int to 999                                      |
 |~Making $500,000 for mansion                             |
 |~Using mansion stuff to get 999 in all stats             |
 |***********************StickRPG***************************
 -----------------------------------------------------------}


 
const
user='Scar';//name u want to use
howlong='unlimited'; //short medium long unlimited(recomended)

var
s,unlim,short,medium,long,done:integer;  //dtm's


//----------------------------get in------------------------------
procedure loaddtm;    //dur....
begin
s := DTMFromString('78DA6394606460F8C28002FEFFFF0FA619A17' +
       'C4624394954A558D530605103C6F240F2376EBB9840B42890F51F' +
       'CD809A47A86A0481AC8F686A6A1FA3A8010074620D25');
short := DTMFromString('78DA63BCC2C0C0309F01054CBAF0174C3342F' +
       '98C8C40D61254350ED37F62AA5980AA267AD56F5435B780C47274' +
       '737EA1AA61226C170097F20EBE');
medium :=DTMFromString('78DA637CC7C0C0B097010594EFFD03A619A17' +
       'CC61B986A16DCFA87A206003C9007ED');
long := DTMFromString('78DA63BCC4C0C070950105AC7BF21F4C3342F' +
       '98CDF81C475026A6E00895B04D47C0212D7F0AB01001CF4113C');
unlim :=DTMFromString('78DA63BCC4C0C0F0930105FCFFFF1F4C3342F' +
       '98C8640D66F22D43032E257739381B09A2F986AE69FFA8DA20600' +
       '649F1360');
done :=DTMFromString('78DA63FCC5C0C0E0C6C8800CEA373D05D3305' +
       '1464D20CB03550D43DA1954357F80442401735481AC705435FFFF' +
       'FF4755A30D64F913B08B07D31C74350025C70F35');
end;

procedure unload;
begin
freedtm(s);
freedtm(short);
freedtm(medium);
freedtm(long);
freedtm(unlim);
freedtm(done);
end;

procedure start; //pushes start and selects lenght of play
var
x,y:integer;
begin
loaddtm;
if finddtm(s,x,y,225,225,320,260) then
   begin
   wait(100);
   mouse(x,y,2,2,true);
   wait(1000);
   end;
   
case howlong of
   'short'  :   begin
                   if finddtm(short,x,y,200,150,370,360) then
                   wait(100);
                   mouse(x,y,2,2,true);
                end;
   'medium'  :   begin
                    if finddtm(medium,x,y,200,150,370,360) then
                    wait(100);
                    mouse(x,y,2,2,true);
                    end;
   'long'  :   begin
                 if finddtm(long,x,y,200,150,370,360) then
                 wait(100);
                 mouse(x,y,2,2,true);
               end;
   'unlimited'  :   begin
                       if finddtm(unlim,x,y,200,150,370,360) then
                       wait(100);
                       mouse(x,y,2,2,true);
                    end;
end;
wait(500);
writeln('Playing stickrpg' + howlong);
wait(random(500));
if finddtm(done,x,y,200,150,370,360) then
   wait(100);
   mouse(x,y,2,2,true);
unload;
end;

procedure enteruser; //username entering
begin
wait(random(100)+1000);
mouse(250,150,2,2,true);
wait(random(50)+10);
mouse(250,150,2,2,true);
wait(1000);
typesend(user);
end;

procedure intel;//getting 10 in the intelligence
var x,y,ten:integer;
begin
ten :=DTMFromString('78DA63D4636460F8C38002D63DF90FA619A17' +
       'C463520EB3BAA9AF23DBF51D59811A9869111458DC3D41F987631' +
       'E1570300D35E0E6C');
repeat
    mouse(400,200,2,2,true);
    wait(random(50)+500);
until(finddtm(ten,x,y,285,240,315,260))
end;

procedure clear;//clearing out all the other points
var i:integer;
begin
for i:=1 to 10 do
   begin
     mouse(278,205,2,2,true);
     wait(random(50)+100);
     mouse(278,230,2,2,true);
     wait(random(50)+100);
   end;
end;

procedure IntUpAndEnter;//putting all points in int and hittin done

var x,y,i,skip:integer;

begin
skip := DTMFromString('78DA63D4626060A867644006FFFFFF07D3305' +
       '14671205149408D0D116AAC81442B01356240A20DBF1A006D8512' +
       '4B');
for i:=1 to 30 do
   begin
      mouse(325,253,2,2,true);
      wait(100);
   end;
mouse(275,335,2,2,true);

repeat
wait(1000);
until(findcolor(x,y,255,118,16,150,21))
end;

procedure createcharacter; //puts it all togeather
begin
start;
enteruser;
intel;
clear;
IntUpAndEnter;
end;
//---------------------------get in--------------------------
{
procedure gohome;
var x,y:integer;
begin
movemouse(477,28);
if findcolor(x,y,65535,467,8,495,38) then
   begin

   wait(10);
   mouse(x,y,true);
   end;
wait(random(400)+100);
if findcolor(x,y,204,450,325,460,330) then
   begin

   wait(10);
   mouse(x,y,true);
   end;
end;

procedure hometoschool;
var x,y:integer;
begin
end;





procedure getupint;

}
begin   //main thingy :P
setupsrl;
ActivateClient;
createcharacter;
end.

this should be in SCAR other scripts other than that it seems ok

From: rudeboialex
this should be in SCAR other scripts other than that it seems ok

wow, i seriously looked for that forum and i guess i missed it : / could a mod move this please :)

no point in using script to play stick rpg.I used CE and within a few minutes,i got to the max stats and castle and infinite amount of money in bank and cash.:D