Removed the script by request. He meant Anti-leech (I assume), so when he has taken the time to put this in, please do not spread around the version without this implemented. It is his choice to do so.
Writing an SRL Member Application | [Updated] Pascal Scripting Statements
My GitHub
Progress Report:13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you have serious physchological problems 13:46 <@BenLand100> HE GETS IT! 13:46 <@BenLand100> HE FINALLY GETS IT!!!!1
Could crack this without knowing a single thing about coding, wow :/![]()
Getting this error...not sure how to fix i got no experiance with this stuff!!
[Error] (51:17): colon (':') expected at line 50
Compiling failed.
solid 6 hours constantly. nice job.
It walks one spot west of the chest and doesnt work anymore after a couple of loads, with newest SRL. And even tries to spell my runes in first inv slot..
Last edited by autoerforlife; 06-07-2012 at 09:45 PM.
This week is exam week, after that I'll start making my first script ![]()
I've been away for a while, reading about the updates i've missed now
Omg i just figured out anti ban by my self i feel so awesomexD
anti leech*
I still have it..
Last edited by largovich; 06-09-2012 at 11:39 AM.
[Error] (52:1): Identifier expected at line 51
Compiling failed.
all thats on like 52 is
begin;
?
This script looks good, but you need to work on standards:
Should BeSimba Code:Begin
smart_server := 91;
smart_members := false;
smart_signed :=true;
smart_superdetail := false;
SetupSRL;
DeclarePlayers;
LoginPlayer;
t := 0
begin//You don't need these
repeat
inc(t)
Banking;
Enchant;
Proggy;
until(t=Loads);
end;
end.Simba Code:Begin
Smart_Server := 91;
Smart_Members := false;
Smart_Signed :=true;
Smart_SuperDetail := false;
SetupSRL;//Space things out
DeclarePlayers;
LoginPlayer;
t:= 0
repeat
inc(t)
Banking;
Enchant;
Proggy;
until(t = Loads);
end.
Have a look at the changes and comments, I realised you had antileach so I added my own(see if you can find it
):
Hint maybe a more helpful error would be: Exception in Script: Access violation at line 125Simba Code:program Enchanter;
{Please Sell your rings at Med price or you'll start to lose profit VERY quickly and so will everyone else.
To Help ensure prices stay in the correct range, I have put some anti leech in this script as to keep
the usage down
Instructions
1. Have Your Emerald ring in the farthest right, and very top row of your bank.
2. Fill in the required fields
3. Go to Soul Wars
4. Have Your Cosmic Runes In your first Bank Spot
5. Wear your Air Battlestaff
6. Start the Script
}
{$DEFINE SMART}
{$i SRL\SRL.simba}
const
Loads = 2500; //How many Encahnting
AntibanFrequency = 25; //Set this to 10-30. The lower the number, the more frequent antiban will be.
procedure DeclarePlayer;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
With Players[0] do
begin
Name := '';
Pass := '';
Nick := '';
Member := True;
Active := True;
Pin := '';
BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;
end;
var
t, x, y, spell : integer;
Function BankOrPin : Boolean;
begin
Result := BankScreen or PinScreen;
end;
Procedure Banking;
begin
SetAngle(SRL_ANGLE_HIGH);
MakeCompass('W');
WriteLn('Banking');
OpenBankChestEdge(SRL_BANK_SW);
WaitFunc(@BankOrPin, 100, 7000); //You had a possible endless loop, see what I have done here
if(not BankOrPin)then
exit;
If PinScreen then
InPin(Players[CurrentPlayer].Pin);
Mouse(655, 224, 3, 3, false);
WaitOption('All', 500+Random(500)); //Wait Option is much better than Choose Option in case of lag
Withdraw(9, 0, 28);
Wait(randomrange(200,700)); //I have increased the randomness here
CloseBank;
end;
Procedure Enchant;
var
i : Integer;
begin
Spell := DTMFromString('m6wAAAHic42ZgYMhmYmAoBuJSKAax85gg4hlAnAbEmVAxXUYGBiMg1gNiLSBWB2JVKAaxQfLGQGwCxDKbmBik+ViIwlwMxANGEjASAACR+wlw');
Writeln('Setting Up for Enchanting');
Gametab(Tab_Magic);
Wait(randomrange(300,400));
If not FindDTM(spell, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
Writeln('Cannot Find Spell; Must be out of Runes');
ExitToLobby; //Do this rather than logging out
TerminateScript;
end
else
Wait(randomrange(200,300)); //Add more randomness
Writeln('Now Enchanting');
for i := 1 to 28 do
begin
FindDTM(spell, x, y, MIX1, MIY1, MIX2, MIY2);
Mouse(x,y, 0, 0, true);
Wait(randomrange(400,600));
InvMouse(i, 1);
Gametab(Tab_Magic);
end;
end;
Procedure Proggy;
begin
Writeln('----------------------------------------------')
Writeln('|Time Running ' +TimeRunning); //Use this rather than converting it yourself
Writeln('|We have made ' + IntToStr(t * 27) + ' Rings this Session');
Writeln('|We have earned ' + IntToStr(t * 27 * 140) + ' Gold Pieces this Session');//Add xp gained and time to next level etc
Writeln('----------------------------------------------')
end;
Begin
Smart_Server := 91;
Smart_Members := false;
Smart_Signed :=true;
Smart_SuperDetail := false;
SetupSRL;
DeclarePlayer;
LoginPlayer;
t:= 0
repeat
inc(t)
WriteLn(Banking);
Enchant;
Proggy;
until(t = Loads);
end.
Last edited by putonajonny; 06-09-2012 at 05:03 PM.
Tweaked it a bit
----------------------------------------------
|Time Running 1:48:32
|We have made 2565 Rings this Session
|We have earned 487350 Gold Pieces this Session
----------------------------------------------
I hope people aren't still selling most at -20%. Gonna ruin the price and the script itself.
i just downloaded simba to use your ring bot but I keep getting all types of errors
[Error] (51:14): colon (':') expected at line 50
Compiling failed.
Figured out the anti-leech. Script is working fine. But for some reason clicks on cosmic runes (1st inventory slot) too when enchanting. So I edited this
Simba Code:for i := 1 to 28 do
to
Simba Code:for i := 2 to 28 do
And it now enchants only rings. :P
Thank you for the script!
Last edited by Im New Sry; 06-11-2012 at 02:36 PM.
What is this:
[Hint] (27:3): Variable 'R' never used at line 26
[Hint] (27:3): Variable 'Q' never used at line 26
[Hint] (27:3): Variable 'M' never used at line 26
[Hint] (27:3): Variable 'RINGS' never used at line 26
[Hint] (27:3): Variable 'RUNES' never used at line 26
[Error] (51:1): 'BEGIN' expected at line 50
Compiling failed.
?
I've been running it but I think the prices have crashed because I don't think i'm getting anywhere near 200k/hr.
ALSO: I've noticed how when it enchants a ring it will then go to the mage book to click it, even though it opens automatically.
Last edited by RSisDead; 06-17-2012 at 05:41 PM.
Count on an update pretty soon, script could use some cleaning up and some new anti-leech as well as some anti-ban, will use this reply to keep progress updated
Version 2:
-Small Antiban
-Script Clean Up
-New antileech
-Added failsafes
E: Sorry for the Double Post :/
Last edited by Iambubbleman; 06-20-2012 at 01:51 AM.
[Error] (75:3): Unknown identifier 'Moose' at line 74
Compiling failed.
any help?
There are currently 1 users browsing this thread. (0 members and 1 guests)