okay thank you for the thousandth time ur a great help much appreciated!
okay thank you for the thousandth time ur a great help much appreciated!
Thanks. We were trying to figure that out. We will be adding more functions and procedures so more will be added to that loop but otherwise it will work.
@Mike I assume you found one you are using? And its not a problem lol. I do it to learn, help and to look good lol jks. Feel free to keep asking and I will do my best. Its hard for me to help cuz Im f2p and most scripts requiring work and help are p2p and so I cant test or actually see what the problem is in game.
Last edited by kevin33; 01-11-2012 at 04:54 AM.
FEEL FREE TO PM ME ABOUT ANYTHING! Will help over Teamviewer...just ask!!"WITH A NEW QUESTION COMES A NEW CHALLENGE"
Silentcore's AIO Service team !!! Pm me if you want questing done or service done or post on thread ofc
Simba Code:program FriendlyFletcher ;
{$DEFINE SMART}
{$DEFINE CRASHSMART}
{$i SRL\SRL.scar}
{$i SPS\SPS.simba}
const
S_World = 65;
S_Signed = True;
S_Member = True;
Version = '1.00';
SRLstats_Username = '';
SRLstats_Password = '';
BreakEvery = '';// How long until you break
BreakFor = '';// How long the break is
procedure DeclarePlayer;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := ''; //USERNAME
Pass := ''; //PASSWORD
Pin := ''; //PIN (if any)
Active := True;
BoxRewards := ['xp'];
LampSkill := 'fletching'; // or change to whatever skill exp you want
end;
end;
procedure ArrowCreation;
var
ArrowShaft: Integer;
x, y: Integer;
Feather: Integer;
HeadlessArrow: Integer;
Arrowtips: Integer;
Begin
SetupSRL;
ArrowShaft := DTMFromString('m6wAAAHic42ZgYOAFYkkGCOAGYgEg5gJiMSBmAmIRIBYCYj6oOANUTAJKs0PFuaFqYMBRlRNqAmFsxEA8YCQBIwEAMF0B1w==');
If FindDTM (ArrowShaft, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
WriteLn('Found Object');
MMouse(X, Y, 7, 7);
If IsUpText ('rrow') Then
Mouse (X, Y, 0, 0, True);
End;
Begin
Feather := DTMFromString('mwQAAAHic42RgYBBggABmIOYGYiEglgBiWSgWh4rLQ+VAfDEg5gViNqheRiBet3w5kGTCi+UYCANGIjAcAACoeQNT');
If FindDTM (Feather, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
WriteLn('Found Feathers')
MMouse(X, Y, 7, 7);
If IsUpText ('eather') then
Mouse (X, Y, 0, 0, True);
wait (11 + Random (1));
end;
function ChooseOption(Txt: String): Boolean;
begin
Result := ChooseOptionMultiEx([Txt], 'eadless', ClickLeft);
end;
Begin
HeadlessArrow := DTMFromString('mkwEAAHicrc5JCoAwDIXhVIsTDljHIngx738P/8JbuHDZwEehSR5ZzKxHpzeVg0eFgEG9E5uk/4gdJUZcmHCov2LWbqO5lFuj1Wz4ZHhlR93xhLRZZHFbvnIZ/dQLS2oC3Q==');
If FindDTM (HeadlessArrow, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
WriteLn('Found HeadlessArrows')
MMouse(X, Y, 7, 7);
If IsUpText ('eadless') then
Mouse (X, Y, 0, 0, True);
end;
Begin
HeadlessArrow := DTMFromString('mVAEAAHicpc1JCoAwEETRjuKEiHFYuFDvEvD+V9LfUCC4NAUvUKHTiWbWY7U3BWp02HDiwK7uswsiBgTt8JR6W6FRD+qt5vx+xIwJV0r69Z+bM0fI9M0DeUASZg==');
If FindDTM (HeadlessArrow, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
WriteLn('Found HeadlessArrow')
MMouse(X, Y, 7, 7);
If IsUpText ('eadless','rrow') then
Mouse (X, Y, 0, 0, True);
end;
Begin
Arrowtips := DTMFromString('mVAEAAHicpc1JCoAwEETRjuKEiHFYuFDvEvD+V9LfUCC4NAUvUKHTiWbWY7U3BWp02HDiwK7uswsiBgTt8JR6W6FRD+qt5vx+xIwJV0r69Z+bM0fI9M0DeUASZg==');
If FindDTM (Feather, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
WriteLn('Found Arrowtips')
MMouse(X, Y, 7, 7);
If IsUpText ('rrowtips') then
Mouse (X, Y, 0, 0, True);
end;
function ChooseOption(Txt: String): Boolean;
begin
Result := ChooseOptionMultiEx([Txt], 'rrow', ClickLeft);
wait (11 + Random (1));
FreeDTM(ArrowShaft)
end;
End;
begin
SetUpSRL;
DeclarePlayer;
LogInPlayer;
repeat
ArrowCreation
until(false)
end.
FEEL FREE TO PM ME ABOUT ANYTHING! Will help over Teamviewer...just ask!!"WITH A NEW QUESTION COMES A NEW CHALLENGE"
Silentcore's AIO Service team !!! Pm me if you want questing done or service done or post on thread ofc
sounds good but i also want it to repeat one step at a time for x amount of times do u know how i can do that?
FEEL FREE TO PM ME ABOUT ANYTHING! Will help over Teamviewer...just ask!!"WITH A NEW QUESTION COMES A NEW CHALLENGE"
Silentcore's AIO Service team !!! Pm me if you want questing done or service done or post on thread ofc
Ok can u show me that line in simba with an example if repeat 1000x just so I can see it thanks
Nice work guys, mikeym are you wondering about loops?
http://villavu.com/forum/showthread.php?t=54339 is a great tut on loops
this is a bit of code from marpis's autoheater, I added the loop to it.Simba Code:var
x, y, COUNTER: integer;
begin
repeat
if (CurrentOre.ID >= STEEL) and (CurrentOre.ID <= ADDY) then
if not FindDTM(CoalDTM, x, y, 386, 86, 430, 125) then
begin
inc(COUNTER);
wait(100 + Random(100));
end;
if COUNTER>5 then
begin
GameTab(tab_Inv);
wait(100 + Random(100));
end
else
begin
Break;
end;
until(COUNTER>10);
if COUNTER >= 10 then
begin
QuitPlayer('Out of coal');
Exit;
end;
end;
Thanks! no i was going to do loops but then I decided its more humanlike and faster to do one item at a time. You know... I would like to put feathers on the arrowshafts at x amounts, then put arrowtips onto the headless arrows at x amount, then script shuts off
FEEL FREE TO PM ME ABOUT ANYTHING! Will help over Teamviewer...just ask!!"WITH A NEW QUESTION COMES A NEW CHALLENGE"
Silentcore's AIO Service team !!! Pm me if you want questing done or service done or post on thread ofc
Ok thanks alot! Looking forward to seeing whats up.
Alright I think hes coming here to help you a little better using posts. Its easier then pming him a bunch.
FEEL FREE TO PM ME ABOUT ANYTHING! Will help over Teamviewer...just ask!!"WITH A NEW QUESTION COMES A NEW CHALLENGE"
Silentcore's AIO Service team !!! Pm me if you want questing done or service done or post on thread ofc
Update to SRL5. Change "{$i srl/srl.scar}" to "{$i srl/srl.simba}". Then, for all of your "Mouse" procedures, need to change the True/False parameters to "mouse_Left" or "mouse_Right".
Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
{ MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }
When posting a bug, please post debug! Help us, help you!
I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.
SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.
Exact error:[Error] (61:2): Identifier expected at line 60
Compiling failed.
Simba Code:program FriendlyFletcher ;
{$DEFINE SMART}
{$DEFINE CRASHSMART}
{$i srl/srl.simba}
{$i SPS\SPS.simba}
const
S_World = 65;
S_Signed = True;
S_Member = True;
Version = '1.00';
SRLstats_Username = '';
SRLstats_Password = '';
BreakEvery = '';// How long until you break
BreakFor = '';// How long the break is
procedure DeclarePlayer;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := ''; //USERNAME
Pass := ''; //PASSWORD
Pin := ''; //PIN (if any)
Active := True;
end;
end;
procedure ArrowCreation;
var
ArrowShaft: Integer;
x, y: Integer;
Feather: Integer;
HeadlessArrow: Integer;
Arrowtips: Integer;
Begin
SetupSRL;
ArrowShaft := DTMFromString('m6wAAAHic42ZgYOAFYkkGCOAGYgEg5gJiMSBmAmIRIBYCYj6oOANUTAJKs0PFuaFqYMBRlRNqAmFsxEA8YCQBIwEAMF0B1w==');
If FindDTM (ArrowShaft, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
WriteLn('Found Object');
MMouse(X, Y, 7, 7);
If IsUpText ('rrow') Then
Mouse (X, Y, 0, 0, True);
End;
Begin
Feather := DTMFromString('mwQAAAHic42RgYBBggABmIOYGYiEglgBiWSgWh4rLQ+VAfDEg5gViNqheRiBet3w5kGTCi+UYCANGIjAcAACoeQNT');
If FindDTM (Feather, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
WriteLn('Found Feathers')
MMouse(X, Y, 7, 7);
If IsUpText ('eather') then
Mouse (X, Y, 0, 0, True);
wait (11 + Random (1));
end;
function ChooseOption(Txt: String): Boolean;
begin
Result := ChooseOptionMultiEx([Txt], 'eadless', ClickLeft);
end;
Begin
HeadlessArrow := DTMFromString('mkwEAAHicrc5JCoAwDIXhVIsTDljHIngx738P/8JbuHDZwEehSR5ZzKxHpzeVg0eFgEG9E5uk/4gdJUZcmHCov2LWbqO5lFuj1Wz4ZHhlR93xhLRZZHFbvnIZ/dQLS2oC3Q==');
If FindDTM (HeadlessArrow, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
WriteLn('Found HeadlessArrows')
MMouse(X, Y, 7, 7);
If IsUpText ('eadless') then
Mouse (X, Y, 0, 0, True);
end;
Begin
HeadlessArrow := DTMFromString('mVAEAAHicpc1JCoAwEETRjuKEiHFYuFDvEvD+V9LfUCC4NAUvUKHTiWbWY7U3BWp02HDiwK7uswsiBgTt8JR6W6FRD+qt5vx+xIwJV0r69Z+bM0fI9M0DeUASZg==');
If FindDTM (HeadlessArrow, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
WriteLn('Found HeadlessArrow')
MMouse(X, Y, 7, 7);
If IsUpText ('eadless','rrow') then
Mouse (X, Y, 0, 0, True);
end;
Begin
Arrowtips := DTMFromString('mVAEAAHicpc1JCoAwEETRjuKEiHFYuFDvEvD+V9LfUCC4NAUvUKHTiWbWY7U3BWp02HDiwK7uswsiBgTt8JR6W6FRD+qt5vx+xIwJV0r69Z+bM0fI9M0DeUASZg==');
If FindDTM (Feather, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
WriteLn('Found Arrowtips')
MMouse(X, Y, 7, 7);
If IsUpText ('rrowtips') then
Mouse (X, Y, 0, 0, True);
end;
function ChooseOption(Txt: String): Boolean;
begin
Result := ChooseOptionMultiEx([Txt], 'rrow', ClickLeft);
wait (11 + Random (1));
FreeDTM(ArrowShaft)
end;
End;
begin
SetUpSRL;
DeclarePlayer;
LogInPlayer;
repeat
ArrowCreation
until(false)
end.
and for mouse movements like MMouse those do not need true/false right?
This compiles.
Simba Code:program FriendlyFletcher ;
{$DEFINE SMART}
{$DEFINE CRASHSMART}
{$i srl/srl.simba}
{$i SPS\SPS.simba}
const
S_World = 65;
S_Signed = True;
S_Member = True;
Version = '1.00';
SRLstats_Username = '';
SRLstats_Password = '';
BreakEvery = '';// How long until you break
BreakFor = '';// How long the break is
procedure DeclarePlayer;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := ''; //USERNAME
Pass := ''; //PASSWORD
Pin := ''; //PIN (if any)
Active := True;
end;
end;
procedure ArrowCreation;
var
x, y, ArrowShaft, Feather, HeadlessArrow, Arrowtips : Integer;
Begin
ArrowShaft := DTMFromString('m6wAAAHic42ZgYOAFYkkGCOAGYgEg5gJiMSBmAmIRIBYCYj6oOANUTAJKs0PFuaFqYMBRlRNqAmFsxEA8YCQBIwEAMF0B1w==');
If FindDTM (ArrowShaft, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
WriteLn('Found Object');
MMouse(X, Y, 7, 7);
If IsUpText ('rrow') Then
Mouse (X, Y, 0, 0, mouse_Left);
End;
Feather := DTMFromString('mwQAAAHic42RgYBBggABmIOYGYiEglgBiWSgWh4rLQ+VAfDEg5gViNqheRiBet3w5kGTCi+UYCANGIjAcAACoeQNT');
If FindDTM (Feather, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
WriteLn('Found Feathers')
MMouse(X, Y, 7, 7);
If IsUpText ('eather') then
Mouse (X, Y, 0, 0, mouse_Left);
wait (11 + Random (1));
end;
HeadlessArrow := DTMFromString('mkwEAAHicrc5JCoAwDIXhVIsTDljHIngx738P/8JbuHDZwEehSR5ZzKxHpzeVg0eFgEG9E5uk/4gdJUZcmHCov2LWbqO5lFuj1Wz4ZHhlR93xhLRZZHFbvnIZ/dQLS2oC3Q==');
If FindDTM (HeadlessArrow, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
WriteLn('Found HeadlessArrows')
MMouse(X, Y, 7, 7);
If IsUpText ('eadless') then
Mouse (X, Y, 0, 0, mouse_Left);
end;
HeadlessArrow := DTMFromString('mVAEAAHicpc1JCoAwEETRjuKEiHFYuFDvEvD+V9LfUCC4NAUvUKHTiWbWY7U3BWp02HDiwK7uswsiBgTt8JR6W6FRD+qt5vx+xIwJV0r69Z+bM0fI9M0DeUASZg==');
If FindDTM (HeadlessArrow, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
WriteLn('Found HeadlessArrow')
MMouse(X, Y, 7, 7);
If IsUpTextMultiCustom (['eadless','rrow']) then
Mouse (X, Y, 0, 0, mouse_Left);
end;
Arrowtips := DTMFromString('mVAEAAHicpc1JCoAwEETRjuKEiHFYuFDvEvD+V9LfUCC4NAUvUKHTiWbWY7U3BWp02HDiwK7uswsiBgTt8JR6W6FRD+qt5vx+xIwJV0r69Z+bM0fI9M0DeUASZg==');
If FindDTM (Feather, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
WriteLn('Found Arrowtips')
MMouse(X, Y, 7, 7);
If IsUpText ('rrowtips') then
Mouse (X, Y, 0, 0, mouse_Left);
end;
FreeDTM(ArrowShaft);
FreeDTM(Arrowtips);
FreeDTM(Feather);
FreeDTM(HeadlessArrow);
End;
begin
SetUpSRL;
DeclarePlayer;
LogInPlayer;
repeat
ArrowCreation;
until(false);
end.
Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
{ MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }
When posting a bug, please post debug! Help us, help you!
I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.
SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.
thanks can i ask you what you did and if you took out anything?
- You don't need to define "ChooseOption" as a function since that's already included in SRL, so I took those out.
- I made all the Mouse methods use "mouse_Left" per SRL5.
- I made sure everything had a ";" where applicable.
- I added FreeDTM()'s at the end of your procedure.
- Just cleaned up the standards
Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
{ MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }
When posting a bug, please post debug! Help us, help you!
I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.
SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.
Simba Code:HeadlessArrow := DTMFromString('mVAEAAHicpc1JCoAwEETRjuKEiHFYuFDvEvD+V9LfUCC4NAUvUKHTiWbWY7U3BWp02HDiwK7uswsiBgTt8JR6W6FRD+qt5vx+xIwJV0r69Z+bM0fI9M0DeUASZg==');
If FindDTM (HeadlessArrow, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
WriteLn('Found HeadlessArrow')
MMouse(X, Y, 7, 7);
If IsUpTextMultiCustom (['eadless','rrow']) then
Mouse (X, Y, 0, 0, mouse_Left);
end;
and you took out my choose option like make headless arrow
^^ we posted at the same time sorry and thanks for explaining!
when I start it said members false? I have it as true?
also I tried to run it it finds the feathers good but has trouble with the arroqshafts can some1 experienced try it out the members thing isnt a huge deal atm.
Add:
Simba Code:Smart_Server := S_World;
Smart_Members := S_Members;
Smart_Signed := S_Signed;
Right above the "SetupSRL;"
Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
{ MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }
When posting a bug, please post debug! Help us, help you!
I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.
SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.
Thanks do you think you can test it out, or contact some1 because i am not sure whats it wrong thanks.
This is a arrow maker it should go from arrowshafts,to feathers, then headless arrows to arrowtips.
Thanks
Simba Code:S_World = 65;
S_Signed = True;
S_Member = True;
FEEL FREE TO PM ME ABOUT ANYTHING! Will help over Teamviewer...just ask!!"WITH A NEW QUESTION COMES A NEW CHALLENGE"
Silentcore's AIO Service team !!! Pm me if you want questing done or service done or post on thread ofc
There are currently 1 users browsing this thread. (0 members and 1 guests)