SRL Archive - RS3 Outdated / Broken Scripts

Simple Dropper!!!!!


yanix

2007-08-30 09:39:51

OMFG so ive been searching the forums and ive found these

ONLY THREAD THAT DOSENT HELP ME

Umh as u might see im kinda mad and dont call me leecher cuz im just searching for a dropper that will drop my unstrung long bows and then stop so simply to say: a dropper that will drop everything expect first item and i want it to work and if u just give me something like

if (InvFull) then
DropItem('log');

PLZ DONT! i want a full script and again dont call me leecher…

ShowerThoughts

2007-08-30 09:50:24

give me..it look like you commanding some1..
why you just dont do

if (invfull) then
begin
dropto(2,28)
end;

or

if (invfull) then
finditem('log')// or somthing like that..

if getuptext('log') then
begin
mmouse;
mouse;
end;

or somthing like that this wont compile lol....

yanix

2007-08-30 10:46:33

From: hermpie
give me..it look like you commanding some1..
why you just dont do

if (invfull) then
begin
dropto(2,28)
end;

or

if (invfull) then
finditem('log')// or somthing like that..

if getuptext('log') then
begin
mmouse;
mouse;
end;

or somthing like that this wont compile lol....


im just searching for the simplest script that will be made and sorry if i sound like ''GIVE ME A DROPPER OR GO TO—-'' but theres no droppers that works and if u could make a simple dropper for me id be greatful:)

gerauchert

2007-08-30 10:51:30

Seriously take 10 minutes out of your life and just read a tut on scripting…

if you look in the 'includes' folder you will see dropping commands…it should take a begginner maybe 30 min to an hour to figure it out (probably less). This shows complete laziness…

yanix

2007-08-30 11:16:20

From: gerauchert
Seriously take 10 minutes out of your life and just read a tut on scripting…

if you look in the 'includes' folder you will see dropping commands…it should take a begginner maybe 30 min to an hour to figure it out (probably less). This shows complete laziness…


First i posted this in Script Requests and
This shows complete laziness…


Why the hell woud i cheat?!:f:

mat_de_b

2007-08-30 11:25:32

Ill write one for you, stop the flaming, ill post it here when im done, but im not putting anti randoms in or anything…

yanix

2007-08-30 12:45:56

From: mat_de_b
Ill write one for you, stop the flaming, ill post it here when im done, but im not putting anti randoms in or anything…


Lol i can do that and thx and the anti-randoms for a dropper..? but ill wait:)

mat_de_b

2007-08-30 15:39:34

Sorry about it being late my internet broke

This will either empty your inventory when its full or when you press ctrl depending on what you set it too… just run it in the background while your playing rs




{.Script Info:
# ScriptName = Mat's AutoDropper v1
# Author = mat_de_b
# Description = Automatically Drops Stuff
# Version = 1.0
# Date = 30/08/07 16:53 GMT
# Comments =
/Script Info}
program New;
{.include srl/srl.scar}
Const
FirstDropItem = 1; // The inventory slot of the first droppable item
// (put your stuff you wish to keep before it)
Mode = False; // True = Drops when full
// False = Drops on the press of Ctrl

procedure Drop;
var InvC:integer;
begin
Writeln('Dropping');
InvC := InvCount;
DropToPosition(FirstDropItem, InvC);
Writeln('Done Dropping');
end;

begin
Writeln('-------------------------------');
Writeln('-------------------------------');
Writeln('----------Made by--------------');
Writeln('----------mat_de_b-------------');
Writeln('-------------------------------');
Writeln('-------------------------------');
wait(2000);
repeat
if(mode = true)then
begin
Status('Waiting');
if(InvFull)then
begin
Drop;
end;
end;

if(mode = false)then
begin
Status('Waiting for you to press Control');
if(IsFunctionKeyDown(1))then
begin
Drop;
wait(2000+random(500));
end;
end;
until(False);
end.

yanix

2007-08-31 09:04:44

umh i get this

[Runtime Error] : divide by Zero in line 80 in script C:\Program\SCAR 3.11\includes\SRL/SRL/Core/Mouse.scar

Santa_Clause

2007-08-31 09:15:19

That's an SRL problem…not script problem.

mat_de_b

2007-08-31 11:07:25

No its the script i forget to setup SRL
I'm an idiot :D

here is the correct version

{.Script Info:
# ScriptName = Mat's AutoDropper v1
# Author = mat_de_b
# Description = Automatically Drops Stuff
# Version = 1.1
# Date = 30/08/07 16:53 GMT
# Comments =
/Script Info}
program New;
{.include srl/srl.scar}
Const
FirstDropItem = 1; // The inventory slot of the first droppable item
// (put your stuff you wish to keep before it)
Mode = False; // True = Drops when full
// False = Drops on the press of Ctrl

procedure Drop;
var InvC:integer;
begin
Writeln('Dropping');
InvC := InvCount;
DropToPosition(FirstDropItem, InvC);
Writeln('Done Dropping');
end;

begin
SetupSRL;
Writeln('-------------------------------');
Writeln('-------------------------------');
Writeln('----------Made by--------------');
Writeln('----------mat_de_b-------------');
Writeln('-------------------------------');
Writeln('-------------------------------');
wait(2000);
repeat
if(mode = true)then
begin
Status('Waiting');
if(InvFull)then
begin
Drop;
end;
end;

if(mode = false)then
begin
Status('Waiting for you to press Control');
if(IsFunctionKeyDown(1))then
begin
Drop;
wait(2000+random(500));
end;
end;
until(False);
end.

ShowerThoughts

2007-08-31 11:15:42

lol i had that 2 before but i forgot to put setupsrl;
in the main loop.:duh:


ps. @mat your sig ownz

mat_de_b

2007-08-31 11:42:34

:D

Ilikepie1995

2007-08-31 13:26:19

Lo here yanix, nothing really lol. Just press control whenever you want to drop

Program PieDropper;
{.include SRL/SRL.scar}

Procedure Drop;
Begin
If(IsFunctionKeyDown(1))Then
Begin
DropTo(2,28);
End;
End;


Begin
Repeat
Drop;
Until(false);
End;.

yanix

2007-08-31 13:57:59

Thx all :)