SRL Archive - Archive

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

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
Java

Other Communitys
Scar-scripts.com

How Long have You Played Runescape
2 years

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

I am a person with intermediate programming knowledge, and writes SCAR scripts in spare time. I started out with javascript, then java, and once I discovered SCAR I learned pascal. I am currently being tought java and pascal 2-3 days a week, and voluntarily being tought an extra 4 times per week. Therefore my current knowledge will be increased and the scripts improved.

I'm only 16 (ish) but I have done alot of work with construction of computers, as well as programming, and almost have my A+ certification if that means anything to you.

I'm interested in becoming a member of the SRL community so that I can create better and more universal scripts. I'm not a leech, if I try to get my hands on a script for free it is ONLY to use it as a reference for constructing my own script. I don't steal procedures from others and I certainly do not steal scripts, I make my own. In fact, I prefer my own over most of the free scripts available.

I am not learning how to write a script, but learning how to utilize SRL specifically IN a script.

I didnt use any SRL functions in this script, decided that my first one would require only SCAR basic functions. Like the note at the top says, it is only the basic functions and will be improved later.

Don't release this script, it is not ready yet. It crafts hard leather into hard leather bodies, then banks, withdraws, and repeats. At the moment it has 7 different pairs of positions to click, to help prevent being banned. I intend (although everything works) to improve banking, mouse speed/randomness, and translate it to SRL so I can add its anti-randoms.
While the randomness and anti-randoms need to be improved/added, it has run successfully with no problems for quite a long time, and I feel that it is good enough to make me a member =).

Thanks for your consideration and I hope you come to realize I am only here to benifit the community, and from my script that I do have some knowledge of programming. (100% was written by me).

Thanks.

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

//////////////////////////////////////////////////////////////////
//                  Al-Kharid Cow Hide Crafter                 //
////////////////////////////////////////////////////////////////


        {================================================)
            This script was entirely written by myself
                  Copyright Landon Bowman 2007
            You may not alter this script in any way
           You may not sell this script or give it away
          If you know me, you can tell me any bugs and I
          will fix them, not you, so DO NOT TOUCH SCRIPT!
        (================================================)
          You DO have permission (If I gave to you or was
          released to public) to use this script for what
          it was intended for, TO CRAFT TANNED COW HIDES.
        (================================================)
            Version history:

            V 1.0   First fully functional version

        (================================================)
          There will be updates in the near future, adding
             support for other types of crafts besides
               Hard leather body ( level 28 crafting )
            I will be adding auto-logout and auto-login
          for anti-ban purposes, and add random protection
            (already written, but not yet incorporated)
        (================================================)
         Notes for current version:

         This version has to be monitored, I will add anti
         ban in the near future. All basic parts are fully
         functional.
        (================================================)
                 Instructions for Operation:

         1. Be in Al-Kharid
         2. Stand adjacent to the middle booth
         3. Have crafting needle in the bottom right inventory slot
         4. Have thread in any spot except first and last
         5. Have tanned cow hides in the first bank slot
         6. Have NubScape on very bright
         7. Set up colors and options on lines 66-71
         8. Face west, need will be removed in the future
        (================================================}

program AlKharidCowHideCrafter;

var
x,y,counter,craftswitch,Creation,TanHide,EmptyInv:Integer;
LoadsDone,LoadsToDo,RegularChars,BankWindow,BankScrollTime:Integer;
done,ready,deposited:Boolean;

{===================Set up specified variables=====================}

procedure setvariables;
begin
TanHide:=1584177;  // Color of the tanned hides in your bank (FIRST SLOT)
Creation:=3230026; // Color of object being created, taken at center
EmptyInv:=4345170; // Color of empty inventory space
LoadsToDo:=10; // How many loads to do before ending script
BankScrollTime:=1500;
BankWindow:=1591642; // color of the bank window
{=========================DO NOT TOUCH BELOW=======================}
done:=true;
ready:=false;
deposited:=false;
{==================================================================}
end;

procedure MouseCraftClicking;
begin
HoldMouse(x,y,true);
wait(150+random(150));
ReleaseMouse(x,y,true);
wait(150+random(150));
end;

procedure MouseHumanFalse;
begin
HoldMouse(x,y,false);
wait(300+random(300));
ReleaseMouse(x,y,false);
wait(200+random(250));
end;

procedure MouseHuman;
begin
HoldMouse(x,y,true);
wait(300+random(300));
ReleaseMouse(x,y,true);
wait(200+random(250));
end;

procedure CraftSelection(x1,y1,x2,y2:Integer);
begin
  MoveMouseSmooth(x1,y1);
  GetMousePos(x,y);
  wait(100+random(100));
  MouseHuman;
  MoveMouseSmooth(x2,y2);
  GetMousePos(x,y);
  wait(100+random(100));
  MouseCraftClicking;
end;

procedure OpenInv;       // Opens inventory bag
begin
MoveMouseSmooth(650,183);
GetMousePos(x,y);
wait(600+random(500));
MouseHuman;
end;

procedure scrollup;
begin
If(not(FindColorSpiralTolerance(x,y,TanHide,74,61,115,100,1)))then
 begin
  MoveMouseSmooth(475,65);
  wait(500+random(500));
  GetMousePos(x,y);
  HoldMouse(x,y,true);
  wait(BankScrollTime+random(1200));
  ReleaseMouse(x,y,true);
 end;
end;

procedure OpenBank;
begin
repeat
FindColorSpiralTolerance(x,y,BankWindow,222, 101,278, 135,5); // Finds bank window
MoveMouseSmooth(x,y);
GetMousePos(x,y);
wait(250+random(200));
MouseHumanFalse;
wait(200+random(200));
if(IsTextInAreaEx(x-100,y-50,x+100,y+100,x,y,'e-quickly',1,RegularChars,true,true,0,1,16777215))then
  begin
    y:=y+2;
    MoveMouseSmooth(x,y);
    wait(100+random(100));
    MouseHuman;
    wait(400+random(800));
    wait(1200+random(500)); // Delay for bank window to open on laggy computer
    scrollup; // Checks if scrolling up window is needed.
  end else
  begin
    OpenInv;
  end;
until(FindColorSpiralTolerance(x,y,3226698,25,80,35,95,3))
end;


procedure withdraw;   // still nooby
begin
if ( FindColorSpiralTolerance(x,y,TanHide,74,61,115,100,1))then  // Finds tan hides in first bank slot
begin
  MoveMouseSmooth(x,y);
  wait(200+random(150));
  MouseHumanFalse;  // right clicks hides
  wait(random(200));
  MoveMouseSmooth(x-64,y+67);
  GetMousePos(x,y);
  wait(200+random(150));
  MouseHuman;   // Clicks Withdrall-all
  MoveMouseSmooth(488,39);
  GetMousePos(x,y);
  wait(400+random(800));
  MouseHuman;  // Closes the bank window
  wait(1000+random(400));
  end;
end;

procedure BankCrafted;
begin
if (FindColorSpiralTolerance(x,y,Creation,550,200,670,350,3))then  // If it finds created object in the first inventory slot
begin
  MoveMouseSmooth(585,229);
  GetMousePos(x,y);
  wait(200+random(150));
  MouseHumanFalse;
  MoveMouseSmooth(x,y+70);
  GetMousePos(x,y);
  wait(100+random(200));
  MouseHuman;
end;
end;

procedure craft;
begin
counter:=0;
repeat
  craftswitch:=1+random(7);
  if ( craftswitch = 1 ) then
  begin
    CraftSelection(711,445,671,443);
  end;
  if ( craftswitch = 2 ) then
  begin
    CraftSelection(708,449,666,447);
  end;
  if ( craftswitch = 3 ) then
  begin
    CraftSelection(714,437,661,448);
  end;
  if ( craftswitch = 4 ) then         // reverse previous choices
  begin
    CraftSelection(671,443,711,445);
  end;
  if ( craftswitch = 5 ) then
  begin
    CraftSelection(666,447,708,449);
  end;
  if ( craftswitch = 6 ) then
  begin
    CraftSelection(661,448,714,437);
  end;
  if ( craftswitch = 7 ) then   // further increases anti-ban with vertical craft clicking
  begin
    If ( counter <= 21 )then
    begin
      CraftSelection(711,445,671,443);
    end;
  end;
  counter:=counter+1;  // Counts how many times you have completed an object (Theoreticaly)
until(counter >= 26 )
end;

// Main line
begin
setvariables;
LoadsDone:=0;
RegularChars:= LoadChars2(AppPath + 'CharsRS22\');
repeat
if (ready)then
begin
  if not(FindColor(x,y,TanHide,556,211,740,327))then   // Runs openinv; if the inventory is not currently open
  begin
   openinv;
  end;
  craft;    // crafts objects
  done:=true;  // Tells that procedure is done
  ready:=false;  // Tells that it is no longer ready to craft
end;
If (done)then
  begin
  OpenBank;
  BankCrafted;
  deposited:=true;  // Tells that depositing is finished
  done:=false; // Falsifies boolean
  end;
If (deposited)Then
  begin
  withdraw;
  ready:=true;  // Tells it is ready to craft again
  deposited:=false; // Falsifies boolean
  LoadsDone:=LoadsDone+1;
  end;
until(LoadsDone >= LoadsToDo )
writeln('Successfully completed '+inttostr(LoadsDone)+' loads');
writeln('Script Copyright Landon Bowman 2007');
end.

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

im sorry, but i have to say no, im missing multiplayer, randoms, and srl altogether, i would advice to not use movemousesmooth but use mouse(x, y, randomx, randomy:integer; left: boolean), it is way better:)

(Read Post Above) ((My Thoughts)) go to the link in my sig

Sorry
You did not use SRL very well.
Holdmouse, Releasemouse, MoveMousesmooth are all very detectable and can get you banned.
Try learning how to use srl's moue procedures along with antiban, antirandoms, and other helpful procedures.

Thanks,
Yohojo

Yes, I didn't use SRL very well. In fact, I didn't use it at all. I sent in the script using no includes, and I can see why everyone is giving me a 'no' on my app. I am currently converting that to SRL, almost finished. The point of that script is not to show how my final releases will work, but that I do know how to script.

Well if you all vote no I suppose I can resend my app with my SRL version. And apparently some comments in the peanut gallery suggest that I put in multiple people/anti randoms. Yes, I can insert a player array in there, and yes I can insert SRL's already made antirandoms, but like I said earlier, it is not a finished script by any means and is not written in SRL or any other include for that matter.

=\

Oh forget I'll send in another application in a few days I know this one won't go through :p

From: pwnaz0r
(Read Post Above) ((My Thoughts)) go to the link in my sig

lol, I already read through that tutorial.


REMEMBER, that I didn't use SRL to make that script. I should have put
"WARNING! Noobish script follows: " at the top so everyone would understand. The point of it was to show that I could make a script that works and does something besides autotypes or something.

All I have to do now is basic things, like replace hold/release mouse with
CMouse or MMouse then Mouse. MyOpenBank replaced by OpenBank or one of the many others. Ect.

I am already doing what was said above, and it does the exact same thing with the exception of humanlike mouse movements….which I said I was going to do on my app lol. "improve randomness" or something like that.

:)

From: iloveit8
im sorry, but i have to say no, im missing multiplayer, randoms, and srl altogether, i would advice to not use movemousesmooth but use mouse(x, y, randomx, randomy:integer; left: boolean), it is way better:)

Mouse IS way better, that's why I'm happy to start writing using SRL. That way I can kick out the semi-worthless and 'get you banned quick' procedures in that script. But if you notice, there is no {.include SRL/SRL.scar} at the top, so I couldn't add that. Thanks for your comment, I'll send in a new app with the SRL version to show I what I can do.

(h)


EDIT:

Yeah sorry about the triple post =\ , I 'll just send in my SRL script . Thanks.

Didn't see that notice about crappy scripts lol. Sorry for wasting your time.

try not to triple post^^, im happy you understand everything, and the whole idea of being srl member is knowing how to use srl

From: tylanbo
lol, I already read through that tutorial.


REMEMBER, that I didn't use SRL to make that script. I should have put
"WARNING! Noobish script follows: " at the top so everyone would understand. The point of it was to show that I could make a script that works and does something besides autotypes or something.

All I have to do now is basic things, like replace hold/release mouse with
CMouse or MMouse then Mouse. MyOpenBank replaced by OpenBank or one of the many others. Ect.

I am already doing what was said above, and it does the exact same thing with the exception of humanlike mouse movements….which I said I was going to do on my app lol. "improve randomness" or something like that.

:)

My tut (link in sig) kinda says no nooby scripts allowed, how ever it doesn't pop up when you click the apply button (hint hint Dankness). You probably would have seen it if you had posted and read around the forums for a while instead of applying right away (hint hint Dankness).