SRL Archive - Other Scripts

Simple Request

fluffball102

2010-07-14 05:58:46

Hey Guys, I Dont Play RS Hardly Anymore, but im wondering if theres any Scar scripters here who could help me out with a Private Server Script.

If you can, could you please Pm me?

Id appreciate any help thanks :cartman:

fluffball102

2010-07-14 06:51:43

anyone? :(

Shuttleu

2010-07-14 06:53:34

2 things
1) 1 hour really isnt a long time to wait for someone to reply
2) what sort of script were you thinking of?

~shut

fluffball102

2010-07-14 07:51:39

Well ive started playing battlescape, prefferably one which theives or fishes, simple stuff really.

Also, thanks for the reply

Shuttleu

2010-07-14 08:48:48

From: fluffball102
Well ive started playing battlescape, prefferably one which theives or fishes, simple stuff really.

Also, thanks for the reply

just to make sure im correct, Battlescape is a private RS server, and it has no randoms or banning?

~shut

fluffball102

2010-07-14 18:20:13

Yes, no randoms, and banning is manual

Becks

2010-07-14 19:37:46

hmm. weird. im gonna check it out.

fluffball102

2010-07-15 05:46:21

im Hooked Tbh, But i need a scripter :)

Will Love you forever, its its awesome i may even pay!

Shuttleu

2010-07-15 07:26:36

okay, where do you want it to thieve or fish?

~shut

fluffball102

2010-07-16 05:52:26

Umm theive paladins and alch the addy plates. :)

Shuttleu

2010-07-16 06:09:42

high or low alch?

~shut

fluffball102

2010-07-16 06:20:03

High alch, using v603 at the start up menu :)

Thanks guys, Dammnn i havent been on here since like 2008 or something, Its grown laods

Frement

2010-07-16 07:08:37

From: fluffball102
High alch, using v603 at the start up menu :)

Thanks guys, Dammnn i havent been on here since like 2008 or something, Its grown laods

If you would have been here in 2006 you wouldn't say that.

fluffball102

2010-07-16 07:15:49

Although doesnt look as active as it used to be :/

Shuttleu

2010-07-16 10:51:41

From: fluffball102
High alch, using v603 at the start up menu :)

Thanks guys, Dammnn i havent been on here since like 2008 or something, Its grown laods

v603?

~shut

EDIT: i cant get on palidino.com

fluffball102

2010-07-16 13:39:16

you should now.

Shuttleu

2010-07-16 14:27:58

i can now, but i got myself stuck in the god wars dungeon, and i cant get out… help!

~shut

fluffball102

2010-07-16 16:24:54

I dont know where it is the god wars dungeon, lol :P

weequ

2010-07-16 16:39:10

Here is my like 2 months old script that buys diamonds in the crafting shop and uses chisel two times on them to make diamond bolt tips. Then you sell the tips to shop for profit. I made a couple hundred mil using this script and got 1b crafting and fletching xp. I hope it still works.
Btw start in the same tile as the shop.

program Crafter;
var
  x1, ShopX, ShopY: Integer;


procedure FindClient;
var
  I: Integer;
begin
  for I := 0 to 600 do
  begin
    if (GetColor(I, 420) = 2437688) then x1 := I;
    if x1 > 0 then
    begin
      WriteLn('Clientti loyty (X='+IntToStr(x1)+')');
      Exit;
    end;
  end;
end;


procedure C(x, y: Integer; Left: Boolean);
begin
  MoveMouse(x-258+x1, y);
  Wait(70);
  ClickMouse(x-258+x1, y, Left);
  Wait(70);
end;

function ShopScreen: Boolean;
begin
  Result := (GetColor(222+x1, 41) = 2070783);
end;


procedure CloseShop;
var
  I: Integer;
begin
  while ShopScreen do
  begin
    MoveMouse(697-258+X1, 37);
    Wait(30);
    ClickMouse(697-258+X1, 37, True);
    while ShopScreen and (I < 350) do
    begin
      Wait(10);
      Inc(I);
    end;
    if I < 350 then Exit;
    I := 0;
  end;
end;



function OpenShop: Boolean;
var
  x, y, I, II, III, A: Integer;
  NewX: Integer;
begin
  repeat
    if IsFKeyDown(10) then TerminateScript;
    MoveMouse(ShopX-257+X1, ShopY);
    while (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) < 7) do
    begin
      Wait(10);
      A := A + 1;
      if A = 150 then
      begin
        ClickMouse(790-258+X1, 263, True);
        Wait(80);
        ClickMouse(790-258+X1, 263, True);
        Wait(80);
        MoveMouse(ShopX-257+X1, ShopY);
      end;
      if A = 300 then
      begin
        for A := 300 to 400 do
        begin
          NewX := ShopX+A-300;
          MoveMouse(NewX-257+X1, ShopY);
          Wait(100);
          if (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) > 6) then Break;
          NewX := ShopX-A+300;
          MoveMouse(NewX-257+X1, ShopY);
          Wait(100);
          if (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) > 6) then Break;
        end;
        if A < 400 then ShopX := NewX
        else TerminateScript;
      end;
    end;
    ClickMouse(ShopX-257+X1, ShopY, False);
    III := 0;
    while (III < 50) do
    begin
      if FindColor(x, y, 65535, ShopX-280+X1, ShopY-30, ShopX-255+X1, ShopY+80) then
      begin
        ClickMouse(ShopX, Y+20, True);
        Break;
      end;
      Inc(III);
      Wait(5)
    end;
    if III > 49 then Continue;
    //Wait(100);
    //ClickMouse(ShopX-258+X1, ShopY+42, True);
    I := 0;
    repeat
      Wait(10);
      I := I+1;
    until(ShopScreen or (I > 200));
  until(ShopScreen);
  MoveMouse(445-258+X1, 130);
  Wait(50);
  ClickMouse(445-258+X1, 130, False);
  while not FindColor(x, y, 65536, 445-258+X1, 130, 450-257+X1, 135) do Wait(5);
  ClickMouse(435-258+X1, 216, True);
  Wait(50);
  CloseShop;
  repeat
    Wait(10);
    II := II+1
  until(((GetColor(960-258+X1, 450) <> 3357765) and (GetColor(920-258+X1, 450) <> 3357765))) or (II > 200);
end;


procedure Clicks;
var
  x, y: Integer;
begin
  MoveMouse(970, 445);
  Wait(50);
  repeat
    if IsFKeyDown(10) then TerminateScript;
    MoveMouse(953-258+X1, 445);
    Wait(10);
    ClickMouse(953-258+X1, 445, True);
    Wait(40);
    MoveMouse(931-258+X1, 445);
    Wait(10);
    ClickMouse(931-258+X1, 445, True);
    Wait(40);
  until(GetColor(960-258+X1, 450) = 3357765) or (GetColor(920-258+X1, 450) = 3357765);
  ClickMouse(790-258+X1, 263, True);
  Wait(10);
  ClickMouse(790-258+X1, 263, True);
  Wait(10);
  ClickMouse(790-258+X1, 263, True);
  Wait(15);
end;

begin
  Wait(3000);
  FindClient;
  //GetMousePos(ShopX, ShopY);
  ShopX := 517;
  ShopY := 167;
  repeat
    Clicks;
    OpenShop;
  until(false);
end.

Battle Scape has pretty sad mods though… I got banned for winning 1b in a stake… Luckily got myself unbanned though and had like over 3b at one point :D

fluffball102

2010-07-16 17:29:58

Wow Nice! i only have like 11m, started on monday seems a nice server i like it.

Shuttleu

2010-07-16 17:54:29

in 4 hours i have 72 mage and thieving :p

but yeah, i will start on it now

~shut

fluffball102

2010-07-17 14:25:55

Hows the progress shuttle?

Shuttleu

2010-07-17 16:57:09

not good because, like i said, because there is no way to tell where the palidian is because it is either off the screen or people is always onto of it, it is like a impossible script

but i will continue and see how it goes

~shut

seany

2010-07-31 16:10:13

From: Shuttleu
not good because, like i said, because there is no way to tell where the palidian is because it is either off the screen or people is always onto of it, it is like a impossible script

but i will continue and see how it goes

~shut

hey just wanted to ask a couple questions…

did you ever create a battlescape script?

where do you find all the methods to create scripts?

i luffs yeww

2010-07-31 16:11:39

In the SRL include.

seany

2010-07-31 16:18:05

well how could i do an if inv full?

Heavenguard

2010-07-31 16:18:28

From: hello to you all
hey just wanted to ask a couple questions…

did you ever create a battlescape script?

2. where do you find all the methods to create scripts?

for 2, i find reading tutorials and relating to other scripts previously made helps with the idea process, and as ILuffyewz said, lot of handy functions in the SRL include help us out a lot and save us plenty of time.

E:


if invfull then // IF your inventory is full THEN...
  writeln('inventory is full') //write (' ') in the debug box.
else // IF your inventory is NOT full then...
  writeln('inventory is not full, too bad, go cry you little - non full inventory - noob!'); //write (' ') in the debug box.

ofcourse you need to include srl as well as call SetupSRL; in your mainloop ^^. btw ill get you some nice tuts if your interested in learning how to script.

seany

2010-07-31 16:24:42

well im usually over at Rscheata.net coding with java… so im not new to scripting…. its just a change of scene so yeah tutorials would be good.

i luffs yeww

2010-07-31 16:25:36

And if you want to see how InvFull works, it's in Inventory.scar. (It checks to see if every inventory spot has a black outline in it, and if it does, the inventory is full.)

Heavenguard

2010-07-31 16:29:04

Ill just copy and paste this from my old notes thread.

1. Unmatched Scar Scripting Tutorial for Beginners (Hands On) by WhoCares357 : This Tutorial Teaches you the basics of the basics. It is what I have read to learn how SCAR works, and how its standards are to be. This is the #1 guide I can point you out to if your new to SCAR and wish to start learning how to use it. WhoCares357 is a great teacher, I promise you will be inspired by him. He is the reason I started making notes.

2. Coh3n’s All-In-One SCAR Scripting Tutorial! Coh3n is probably one of the most useful people you will find in this world. This tutorial shows the basics to the advanced. Everything is explained Skillfully but in a quick and Easy-to-Understand way. I Highly recommend that after you first learn the full basic's of Scar from WhoCares357's Tutorial , you should read this.

3. This tutorial helps you solve errors you obtain while scripting. Its by JAD. It explains the most common errors that you will 100% encounter while learning how to script. Jad's Thread on fixing the most Annoying but Common Errors. After scripting for a while, you'll have no problem fixing errors in Scar by yourself.

4. If you still have problems scripting, or run into an error that you know you cant fix, don't hesitate to ask anyone on this site for help. Just go to the Scripting Help Forum and post your problem. Everyone on this site is helpful, they'll resolve your problem in no time, and you'll learn more then you thought you could from all of them.

and I doubt ull use this.. but this was a Notes thread I had made when I was learning scar [my first code lang] for the first time. Heavenguards Notes :D For those Tutorial Readers.

Hope I helped bro.

seany

2010-08-01 13:20:03

From: antti mies
Here is my like 2 months old script that buys diamonds in the crafting shop and uses chisel two times on them to make diamond bolt tips. Then you sell the tips to shop for profit. I made a couple hundred mil using this script and got 1b crafting and fletching xp. I hope it still works.
Btw start in the same tile as the shop.

program Crafter;
var
  x1, ShopX, ShopY: Integer;


procedure FindClient;
var
  I: Integer;
begin
  for I := 0 to 600 do
  begin
    if (GetColor(I, 420) = 2437688) then x1 := I;
    if x1 > 0 then
    begin
      WriteLn('Clientti loyty (X='+IntToStr(x1)+')');
      Exit;
    end;
  end;
end;


procedure C(x, y: Integer; Left: Boolean);
begin
  MoveMouse(x-258+x1, y);
  Wait(70);
  ClickMouse(x-258+x1, y, Left);
  Wait(70);
end;

function ShopScreen: Boolean;
begin
  Result := (GetColor(222+x1, 41) = 2070783);
end;


procedure CloseShop;
var
  I: Integer;
begin
  while ShopScreen do
  begin
    MoveMouse(697-258+X1, 37);
    Wait(30);
    ClickMouse(697-258+X1, 37, True);
    while ShopScreen and (I < 350) do
    begin
      Wait(10);
      Inc(I);
    end;
    if I < 350 then Exit;
    I := 0;
  end;
end;



function OpenShop: Boolean;
var
  x, y, I, II, III, A: Integer;
  NewX: Integer;
begin
  repeat
    if IsFKeyDown(10) then TerminateScript;
    MoveMouse(ShopX-257+X1, ShopY);
    while (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) < 7) do
    begin
      Wait(10);
      A := A + 1;
      if A = 150 then
      begin
        ClickMouse(790-258+X1, 263, True);
        Wait(80);
        ClickMouse(790-258+X1, 263, True);
        Wait(80);
        MoveMouse(ShopX-257+X1, ShopY);
      end;
      if A = 300 then
      begin
        for A := 300 to 400 do
        begin
          NewX := ShopX+A-300;
          MoveMouse(NewX-257+X1, ShopY);
          Wait(100);
          if (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) > 6) then Break;
          NewX := ShopX-A+300;
          MoveMouse(NewX-257+X1, ShopY);
          Wait(100);
          if (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) > 6) then Break;
        end;
        if A < 400 then ShopX := NewX
        else TerminateScript;
      end;
    end;
    ClickMouse(ShopX-257+X1, ShopY, False);
    III := 0;
    while (III < 50) do
    begin
      if FindColor(x, y, 65535, ShopX-280+X1, ShopY-30, ShopX-255+X1, ShopY+80) then
      begin
        ClickMouse(ShopX, Y+20, True);
        Break;
      end;
      Inc(III);
      Wait(5)
    end;
    if III > 49 then Continue;
    //Wait(100);
    //ClickMouse(ShopX-258+X1, ShopY+42, True);
    I := 0;
    repeat
      Wait(10);
      I := I+1;
    until(ShopScreen or (I > 200));
  until(ShopScreen);
  MoveMouse(445-258+X1, 130);
  Wait(50);
  ClickMouse(445-258+X1, 130, False);
  while not FindColor(x, y, 65536, 445-258+X1, 130, 450-257+X1, 135) do Wait(5);
  ClickMouse(435-258+X1, 216, True);
  Wait(50);
  CloseShop;
  repeat
    Wait(10);
    II := II+1
  until(((GetColor(960-258+X1, 450) <> 3357765) and (GetColor(920-258+X1, 450) <> 3357765))) or (II > 200);
end;


procedure Clicks;
var
  x, y: Integer;
begin
  MoveMouse(970, 445);
  Wait(50);
  repeat
    if IsFKeyDown(10) then TerminateScript;
    MoveMouse(953-258+X1, 445);
    Wait(10);
    ClickMouse(953-258+X1, 445, True);
    Wait(40);
    MoveMouse(931-258+X1, 445);
    Wait(10);
    ClickMouse(931-258+X1, 445, True);
    Wait(40);
  until(GetColor(960-258+X1, 450) = 3357765) or (GetColor(920-258+X1, 450) = 3357765);
  ClickMouse(790-258+X1, 263, True);
  Wait(10);
  ClickMouse(790-258+X1, 263, True);
  Wait(10);
  ClickMouse(790-258+X1, 263, True);
  Wait(15);
end;

begin
  Wait(3000);
  FindClient;
  //GetMousePos(ShopX, ShopY);
  ShopX := 517;
  ShopY := 167;
  repeat
    Clicks;
    OpenShop;
  until(false);
end.

Battle Scape has pretty sad mods though… I got banned for winning 1b in a stake… Luckily got myself unbanned though and had like over 3b at one point :D

that script gets stuck after right clicking on the diamonds… it doesnt buy them… anyone able to fix it up?

Shuttleu

2010-08-01 14:25:25

From: hello to you all
that script gets stuck after right clicking on the diamonds… it doesnt buy them… anyone able to fix it up?

forgot to reply, im now doing it

~shut

EDIT: just tried, and it seems to work perfectly, just done 10k diamond bolt tips

seany

2010-08-01 15:01:01

you have fixed it to make it work?

or it already was working for you?