SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
rader720 - SRL Member Application Form
rader720

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
by the scripts on sythe, cant run but a few without it

Programming Knowledge
VB, SCAR

Other Communitys
sythe (rader)

How Long have You Played Runescape
5 years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

well, i have played runescape since the good ol days of rs1 back when there were only 3 worlds (thats when i started). i played legit for about 2 years on and off. then got into account scaming, lost every character i had and stoped playing for about a year or so. started back playing with my friend on members got some good characters and some bleh characters lol (this is when i first started macroing and because i took vb at school learning scar language was really easy) and then stoped playing for WoW until feb 4 i think and i decided since my membership for wow was over i'd come back and see whats changed in SCAR. ive made a few scripts of my own (all got lost when my computer got whiped in jan *cry*) nothing really extravagant, although i did have one for the game stick rpg2 beta which kicked but.

ok after i wrote that i looked down >.< so i decided to rewrite some of my old stick rpg code, havent redeamed it to its former glory but im working on it :D

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

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.

EDIT: changed the code so that it uses srl :P lol and have also started the nxt part of it


EDIT2:
jst thought i would show you guys what i have gotten so far on my tutorial script, eh its coming ok. got a few bugs to work out in it but thats programing right? lol

program TutorialHell;
{.include srl\srl.scar}
{.include srl\srl\skill\firemaking.scar}
var click,waittxt,arrowhead,find:integer;

procedure loaddtms;
begin
     click:= DTMFromString('78DA63FCC2C0C0B08F910115FC07933051C61' +
       '7406227AA9A9D4B1B51D5303112A7E630AA9A4D334B51D5BC6420' +
       'A806006AF00ECE');
     waittxt:= DTMFromString('78DA636464646028016214F01F4CC244196F0' +
       '3896C5435BB5677A1AA5103B2F251D5EC5CDA88694E1501352A8C' +
       '186AD0ED0200646B0CF1');
     arrowhead := DTMFromString('78DA638C60646078CA8002FEFE990DA619A17' +
       'CC63020EB2EAA9A7F7F37A3AA8922424D3490F51E55CDAFEF4AA8' +
       '6A4209AB0100E001125B');
     find:= DTMFromString('78DA63DCC1C0C050C2C8800C76ADEE02D3305' +
       '1C69540220755CDEE759350D51C0312B904CC590524AA08A83902' +
       '242AF0AB0100B6770F9B');
     LoadFireMakingBitmaps;
end;


procedure clickarrowed;
var x,y:integer;
begin
     wait(500+random(100));
repeat
   if finddtm(arrowhead,x,y,3,3,765,500) then
      begin
           y:=y+20
           cmouse(x,y,1,3,true);
      end;
wait(1000+random(100));
until(finddtm(click,x,y,3,3,765,500)or
      finddtm(waittxt,x,y,3,3,765,500)or
      finddtm(find,x,y,3,3,765,500))
writeln('found');
//flag;
wait(1000+random(100));

end;


procedure mmarrow;
var miniarrow:integer;
begin
   miniarrow:= DTMFromString('78DA639CCBC4C050C78002FEFCF207D38C503' +
       'EE31CA09A4A5435FFFE6E4255331FA8A68A809AD940358DA86A7E' +
       '7D974255B380B01A0070081150');
if finddtm(miniarrow,x,y,560,3,725,170) then
   cmouse(x,y,3,3,true);
   flag;
   wait(500+random(100));
end;



{procedure findrandomtlk;
var
begin
end;}

procedure talkitout;
var x,y,click:integer;
begin
     x:=0;
     y:=0;
     finddtm(click,x,y,10,345,510,470);
     x:=x+20
     //findrandomtlk;
     cmouse(x,y,2,1,true);
     wait(100+random(500));
     cmmouse(x,y+20,5,5);
     wait(random(100)+4000);
end;



procedure firstguy;
var i:integer;
begin
   clickarrowed;
   wait(random(500)+1000);
   for i:=1 to 6 do
       begin
       talkitout;
       end;
   wait(random(500)+1000);
   cmouse(683,483,5,5,true);

   wait(random(500)+500);
   cmouse(714,229,2,2,true);

   wait(random(500)+500);
   cmouse(614,265,2,2,true);

   wait(random(500)+500);
   cmouse(614,303,2,2,true);

   wait(random(500)+500);
   cmouse(614,339,2,2,true);

   wait(random(500)+1000);
   clickarrowed;
   for i:=1 to 2 do
       begin
       talkitout;
       end;
   wait(random(500)+1000);
   clickarrowed;
   wait(random(500)+1000);
end;

procedure secondguy;
var x,y,i:integer;
begin
wait(500+random(100));
clickarrowed;
for i:= 1 to 2 do
    begin
    talkitout;
    end;
cmouse(645,190,5,5,true);
wait(1000+random(500));
clickarrowed;
talkitout;
useitem(2);
wait(900+random(400));
useitem(3);
cmouse(585,190,5,5,true);
clickarrowed;
for i:=1 to 2 do
    begin
    talkitout;
    end;
clickarrowed;
wait(500+random(1000));
repeat
    finddtm(arrowhead,x,y,3,3,765,500);
    wait(500+random(100));
until(finddtm(arrowhead,x,y,3,3,765,500))
repeat
    cmouse(x,y-20,3,3,true);
until(existsitem(5))
wait(550+random(200));
repeat
    thereisfire(x,y);
    useitem(5);
    wait(500+random(250))
    cmouse(x,y,2,2,true);
until(finditemname('Shrimps'))
end;




begin
loaddtms;
activateclient;
   wait(1000);
firstguy;
mmarrow;
secondguy;
mmarrow;
clickarrowed;
mmarrow;
clickarrowed;


end.

——————————————————
<!– END TEMPLATE: formanswers –>

What's your script supposed to do????

edit: If you take a look at it you can figure out what it does, but next time make sure you make it clear what the script does :p

What does this have to do with SRL and Rs?

No from me.

====================

Make something that makes sense with SRL and RS.

heh well, like i said in my post, my rs stuff got wiped out and i just wrote that real fast to prove that i do actually know how to program with scar. and if you couldnt get it it creates a character for stick rpg, it use to go through and actuall max out the game but i lost the script when my hp got sent off to the shop. ive made rs scripts b4 but they tke a lil more time.

movemouse and clickmouse=ban on RS. try learning some more SRL before applying again if you get rejected. its a no from me though.

From: JAD
movemouse and clickmouse=ban on RS. try learning some more SRL before applying again if you get rejected. its a no from me though.

JAD, it's not an RS script though… Silly. I do belive he should learn SRL and make something for RS.

From: TheGodfather
JAD, it's not an RS script though… Silly. I do belive he should learn SRL and make something for RS.

I'm aware of that, but if he used mmouse..etc it would show he has a little knowledge using SRL commands.

True. but for falsh games to be fast and cool and effeicent MouseMove and ClickMouse rock.

But yes i do agree.
Im very sorry that your stuff got whipped.
But to get into srl member we would like to see some coding for a runescape script.

Try PowerMiner or PowerChopper.

I agree with everyone. You should try a RS script. Even if they take longer that is the whole point. This isn't supposed to be the easiest thing in the world and should take some time.

kk point/points well taken ^.^ i have started work on a tutorial island script, its coming pretty well but i probably wont get back to working on it until the weekend sooooo ill get back to ya with it.