Outdated. Will update later.
Outdated. Will update later.
Last edited by Yanhua; 01-21-2012 at 01:29 AM.
SCAR Code:Function FindOre:Boolean;
Var
X, Y:Integer;
Begin
SetAngle(False);
If Not Invfull Then Begin
MakeCompass('40');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;
If Not Invfull Then Begin
MakeCompass('80');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;
If Not Invfull Then Begin
MakeCompass('120');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;
If Not Invfull Then Begin
MakeCompass('160');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;
If Not Invfull Then Begin
MakeCompass('200');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;
If Not Invfull Then Begin
MakeCompass('240');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;
If Not Invfull Then Begin
MakeCompass('280');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;
If Not Invfull Then Begin
MakeCompass('320');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;
If Not Invfull Then Begin
MakeCompass('360');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;
end;
Function ClickPortal:Boolean;
Var
X, Y:Integer;
Begin
ClickNorth(False);
SetAngle(True);
Wait(500+randomrange(100,300));
If FindObjEx(X, Y, ['ortal'], [12819148, 10734506, 11189143, 12299464, 10919621, 11657914, 13084604, 14015418, 12561875, 12313033, 13150376, 13290913, 13681613, 10790856, 15255248, 12161715, 15253946, 12168648], 8, 50, 130, 60, 402, 278) Then
begin
MMouse(X, Y, 3, 3);
Mouse(X, Y, 0, 0, True);
Wait(2000+randomrange(50,100));
Result := True;
End
End;
Now this is just silly. Go to the beginner tutorials and look up repeat functions. These will shorten your code by a lot.
coding style matters as long as someone wishes to understand/use/modify your script later :P
its getting stuck at trying to find portals
edit it only happens like 1 out of 10
good job though i couldn't do something like this
Last edited by nickivey; 12-21-2011 at 04:45 PM.
sweet about to test! i made a request on this a couple days ago so im excited![]()
it won't let me go were the essence is (Teleport won't work)
nice job dude I have been waiting around for an ess miner for like 2 months lol. Great work I was unaware of the changing portal colors but I'm sure you'll tackle it. I plan to use this once you get it fixed so if there is any sort of testing or determining all of the different colors of portals let me know what to do and I can gather what you need.
Click here for my step by step picture guide to setting up MSI! http://villavu.com/forum/showthread....945#post859945
[Error] (664:1): Closing parenthesis expected at line 663
Compiling failed.
Thank you so much for the update maybe I will start gold farming for my main with this!
I think he meant that he was going to make an army and dump all the gold on his main, not making a Chinese person sit in a basement and make accounts/bot then sell for cash
Edit: As for the script:
Yanhua I don't know why but I like you, and I want to help you get where you want to be. That's going to take a bit of patience on your part though, you seem a bit too eager to use random knowledge instead of collecting it for a purpose.
By this I mean, after suggesting you learn TPA's/ACA/Autocoloring you went out and did that but in a very primitive sense. To be honest it is hard to tell if you understand it or you just found it worked thanks to the ACA. With 90% of your code you could shorten it into <50 lines. By that I mean all your autocolor functions could simply be,
Simba Code:function AutoColorFunc(Color, Tol: Integer): Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(1);
FindColorsSpiralTolerance(MSCX, MSCY, arP, Color, MSX1, MSY1, MSX2, MSY2, Tol);
if (Length(arP) = 0) then
begin
Writeln('Failed to find the color, no result.');
ColorToleranceSpeed(tmpCTS);
Exit;
end;
arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);
for i := 0 to arL do
begin
Result := arC[i];
Writeln('AutoColor = ' + IntToStr(arC[i]));
Break;
end;
ColorToleranceSpeed(tmpCTS);
if (i = arL + 1) then
Writeln('AutoColor failed in finding the color.');
end;
and simply fill in the color/tol you got from ACA. Secondly, I would advise using ACA as a standard point of reference, but not to simply copy and paste the code. You can look through many tutorials and scripts that autocolor in different ways, and by combining the knowledge you learn from each of these you will be able to make your own. Aside from that you've kept improving and I like the script. If you ever have questions, feel free to ask me.
Last edited by Blumblebee; 12-24-2011 at 08:05 PM.
“Ignorance, the root and the stem of every evil.”
Wont open for me. Idk why other scripts work fine. Keep getting this:
Compiled successfully in 951 ms.
SRL Compiled in 16 msec
It has been 3 minutes and Runescape is not yet ready... Terminating.
Make sure your settings are set to fixed screen
Successfully executed.
Can you include stats?
Ya, i am having the same problem as Elitezer0. it compiles correctly and then after about 3 minutes i get the same message.
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.
what do you mean debug
k ya but when i run it it doesn't even load the smart screen. and on my other computer it doeskin load it at all either but instead starts taking over the screen and try's to do everything without the window loaded
There are currently 1 users browsing this thread. (0 members and 1 guests)