View Full Version : [SRL] AK Smelter
Pages :
1
2
3
4
5
6
7
[
8]
9
10
sandking
02-07-2012, 06:26 PM
i am trying to smelt steel bars in AK, but when it banks it withdraws the 9 iron, rightclicks the coal and doesnt select anything... it was working fine erlier, probly a problem with the new update?
-edit
also to add on that i havnt been able to get it to start cannonballs in edgeville, it withdraws bars from the bank and moves to furnace then back to the bank to deposit bars, wash rinse repeat. i dont know if my fps issue is the cause of this or what the deal is.
[================================================== =================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== =================]
[ Atom | True | 00:08:38 | 4 | 0 | 0 | 0 | 0 ]
[================================================== =================]
Have it working now, thanks. However it keeps switching back & forth between the music & the inventory. Is that normal?
Narcle
02-08-2012, 02:13 AM
Have it working now, thanks. However it keeps switching back & forth between the music & the inventory. Is that normal?
Bug in SRL randoms finder.
welhod
02-08-2012, 05:54 PM
[================================================== ===================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ===================]
[ Mari | True | 00:11:02 | 4 | 0 | 336 | 2142 | 11635 ]
[================================================== ===================]
This is AMAZING,cant thank you enough :))) will be using this quite alot. ^I got the same thing that it keeps changing between music & inventory screen,but that aint, other than that,its working perfect :)
manup3
02-08-2012, 08:52 PM
doesnt work for me tried to smelt cballs and just clicks on bar then just hovers over the furnace then clicks on bar again, soes this 3 time then goes back to bank and logs out, used to work perfect!! wtf? can anyone help?!
doesnt work for me tried to smelt cballs and just clicks on bar then just hovers over the furnace then clicks on bar again, soes this 3 time then goes back to bank and logs out, used to work perfect!! wtf? can anyone help?!
update SIMBA / SRL etc./
Using a tweaked version of your script, and I must say - it is flawless! Thank you!
Mr. Freeweed
02-09-2012, 05:01 AM
Its now Counter instead of Booth
edit only change lines 1290
if WaitUpText('ounter', 450) then
Really good script - for some reason it keeps clicking on the "music" menu between clicks, but other than that it's fairly stable.
edit: Really good for crafting jewellery as well - you should maybe consider posting it up in the crafting forum too? I used it to craft more than I did to smelt tbh.
gamer716
02-09-2012, 07:51 PM
In order fix the music bug, comment out all FindNormalRandoms lines.
nobody u kno
02-09-2012, 09:58 PM
In order fix the music bug, comment out all FindNormalRandoms lines.
All FindNormalRandoms? Including the if FindNormalRandom statements? Because if you comment out all of them it just spam clicks the furnace and never lets it actually smelt
ziellos
02-10-2012, 12:14 AM
Its now Counter instead of Booth
change lines 1290 and 1256 to this
if WaitUpText('ounter', 450) then
No.. It's still booth. Those lines reflect AK bank too, which is booth for me, so not sure where counter is besides maybe Edge.
hammad911
02-10-2012, 03:30 AM
Has anyone come up with a fix for the inventory to music menu bug? I tried commenting out the findnormalrandom lines but the only one that stopped that was line 1419, but if i comment that out it keeps trying to use the the gold bars on the furnace over and over again without stopping or letting it smelt the bars into bracelets.
phamxboa
02-10-2012, 08:08 PM
It keeps clicking on the music tab, then inventory 2-3 times before actually doing what it's supposed to. I thought it was the anti ban that causes that, but after disabling the anti ban, it continues to do the same movements.
How fix script to stop clicking music bar?
Wikkedninja
02-11-2012, 06:56 AM
Love This Script Sooooo Much! Hopeing to get at least 91 craft and maby 99 who knows except the big guy upstairs. Mad Props
Help me to fix script to stop clicking music bar in edge near furnace...
omfgMIKE
02-11-2012, 07:24 AM
Having an issue with the script when making steel bars. It only withdraws the iron and then just opens the menu for the coal and doesn't select anything. It then continues to do this over and over again. I've had it running for nearly a half hour and it just keeps doing the same thing saying "FormWriteIn: Item wasn't detected attempting a TPA update"
I then tested it just making iron bars and it seems to work just fine. Just interested if there is a tweak to get this to work properly.
MaxPayne619
02-11-2012, 07:25 AM
Help me to fix script to stop clicking music bar in edge near furnace...
please explain more , like what options you selected, error messages, debug info or maybe what bar you are smithing?
I smith gold bracelets, in edgevile when i run to bank f script click music bar when inventory again music bar...
Wikkedninja
02-11-2012, 08:57 AM
Quick question might sound stupid but idc trying to figure this out. I'm having problems getting form disabled/and or putting my stats in the right place for Crash Smart Fix? keeps asking me for stats and already had them in const
Where should I put my stats for it to work properly with Crash Smart 6hr bypass Fix? or how do I disable forms? (allredy disabled in MSI not sure if I need to do for each script) I'm not quite sure how to get this working any help would be greatly appreciated.
This is my current location if wrong where to put?
stats_Bars = 10;
stats_Crafted = 11;
stats_XP = 12;
stats_XPpH = 13;
stats_User = 'myuser';
stats_Pass = 'mypass';
version = '1.6.3';
ScriptName = 'Narcle''s AK Smelter';
Also Have tried this location
stats_Bars = 10;
stats_Crafted = 11;
stats_XP = 12;
stats_XPpH = 13;
version = '1.6.3';
ScriptName = 'Narcle''s AK Smelter';
statsUser = 'myuser';
StatsPass = 'mypass';
FYI: Script is great and always works wonders for me just having problems getting it to run with 6hr bypass. Prob gana run regular for now and check back later for fix. Thanks to anyone who can help me figure this out. ;) Also I am really doing my Best on Learning all this stuff I learn something new everyday here at SRL and hope to learn how to write my own scripts eventually.
Premonitions
02-11-2012, 09:43 AM
Start.
Player 0 has no name, making inactive for now.
Error: Type Mismatch at line 1806
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
"For i := 0 to HowManyPlayers - 1 do"
Not sure what's going on. Any help would be much appreciated, ty in advance.
Wikkedninja
02-11-2012, 10:01 AM
Start.
Player 0 has no name, making inactive for now.
Error: Type Mismatch at line 1806
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
"For i := 0 to HowManyPlayers - 1 do"
Not sure what's going on. Any help would be much appreciated, ty in advance.
Try installing Object DTM
http://villavu.com/forum/showthread.php?t=68112&highlight=ObjectDTM
ziellos
02-11-2012, 12:01 PM
It's having problems with randomly stopping. Not sure why, but it's usually just stopping in the bank, it can be after 30 minutes or a few hours.
Picture attached.
Godric
02-11-2012, 05:04 PM
Lots of bars to smelt!
Hopefully this bot does it all.
Premonitions
02-11-2012, 08:51 PM
The pop up player menu isn't working. filled in myself. How do you turn breaks off within the coding?
Edit: Also the banking feature is off, takes an extra 7-12 seconds each load to find banker. It could just left click bank booth.
Mr. Freeweed
02-11-2012, 10:47 PM
No.. It's still booth. Those lines reflect AK bank too, which is booth for me, so not sure where counter is besides maybe Edge.
true its only edgeville. My bad.
1) For everyone having issues with antirandoms here is your fix!!!
2) Also turnoff antiban they stop the script at the bank and the furnace when antirandoms are off K!!!
3) use at your own risk because you will have no antirandoms
4) the antiban stops the script even without the taking antirandoms out
5)I use antirandoms in my own scripts and dont have this problem..... most dont work anyways so....
If the script owner has a cow I will delete this. nothing much different just quick fix for steel and cannonballs I needed ;-)
{================================================= =============================]
[ [SRL] Al-Kharid Smelter by Narcle ]
[ SRL 5 and Simba ]
[ ]
[ NAME : Narcle's AK Smelter ]
[ WRITER : Narcle ]
[ CATEGORY : Smithing & Crafting ]
[ DESCRIPTION : Smelts ores into bars & make C-balls ]
[ Can craft Silver/Gold bars ]
[ AUTOCOLOR : Yes ]
[ ]
[================================================== ============================]
[ Description. ]
[================================================== ============================]
[ I made this script mainly to make cannonballs. I then expanded on the ]
[ concept and made it into a full fledged smelter. It's a very simple setup ]
[ as I try to keep most of my scripts; the simpler the setup the less likely ]
[ something could go wrong. I hope you use this as well as I have. ]
[ -Narcle ]
[================================================== ============================]
[ Instructions. ]
[================================================== ============================]
[ ]
[ Instructions have changed a bit. Please go to: ]
[ http://villavu.com/forum/showthread.php?t=34507 ]
[ For complete instructions. (first post) ]
[ ]
[================================================== ============================}
{$i srl/srl/misc/Smart.simba}
{$i srl/srl.simba}
{$i SRL/SRL/Misc/Reports.simba}
{$i srl/srl/misc/paintsmart.simba}
{ ATTENTION!!!
To use Forms just push play do NOT put anything in DeclarePlayers.
If you want to use DeclarePlayers fill it in (Forms should NOT come up then)}
procedure DeclarePlayers;
begin
With Players[0] do
begin
Name := ''; //Character Name
Pass := ''; //Character Pass
Active := true; //Use player in script?
Pin := ''; //Pin for bank
Strings[0] := 'steel'; //What to smith/craft? [Create string]
Strings[1] := 'al kharid';//Where are you smithing? [Al Kharid, Edgeville]
//cballs, steeltoball, steel, mith, addy, runite, iron, bronze, silver, gold
Arrays[0] := [1, 2, true, false, '23:00', true, false, false];//Settings array
//Settings array := [1st Bankslot, 2nd Bankslot, Take-Breaks, Take-Sleeps, Sleep-Time 'hh:mm', Rest for run, Use Coal bag];
end;
{
With Players[1] do
begin
Name := '';
Pass := '';
Active := true;
Pin := '';
Strings[0] := ''; //[Create string]
Strings[1] := 'al kharid';
Arrays[0] := [1, 2, true, false, '23:00', true, false, false];
end;
}
end;
//Advance Constants
Const
DebugMode = False;
//Change these if needed
AKBankBooth_Color = 9747935;//Color of the bank booth at AK
GreenHedge_Color = 2056767;
Type
TTPAItem = Record
OutLine, Width, Height, Color: Integer;
end;
Type
TPlayas = Record
WithDrawMain, WithDrawSeco, BaseCount, SecoCount, BagCount, BaseDivi: integer;//Setup
BaseAmount, SecoAmount, FailToSmelt: integer;
XPper: Extended;//Setup
CannonBall, SmeltBars, CraftGold, CraftSilver: boolean;//Setup
BaseItem, SecoItem, CraftedItem: TTPAItem;
Coords: TPoint;
SmeltText, SleepTime, statsStr: string;
TakeBreaks, TakeSleeps, RestForRun, HasCoalBag, DisableAntiBan: Boolean;
BankSlot1, BankSlot2: integer;
EdgeVille, AlKharid, Neitiznot: Boolean;
ClickFurnace: Function(Option: string): boolean;
MyOpenBank: Function: boolean;
end;
var
LogTime, BreakTime: integer;//Timers
TotalBars, TotalXP, TotalCrafted: integer;//Counters
PaceCheck: integer;//Ise this to see how fast they are going.
MyVars: array[0..21] of integer;
Playas: array[0..99] of TPlayas;
const
//don't change these!
stats_Bars = 10;
stats_Crafted = 11;
stats_XP = 12;
stats_XPpH = 13;
version = '1.6.3';
ScriptName = 'Narcle''s AK Smelter';
procedure Debug(S: string);
begin
if DebugMode then
Writeln(S)
else
Debugln(S);
Status(S);
end;
const
FilePath = AppPath + 'AKchars.ini';
formCheckActive = 0;
formCheckBreak = 2;
formCheckSleep = 3;
formCheckRestRun = 1;
var
frmDesign: TForm;
PButtons: Array [0..3] of TButton;
SButtons: Array [0..3] of TButton;
frmLabels: Array of TLABEL;
frmEdits: Array [0..9] of TEDIT;
CreateCombo: TCOMBOBOX;
LocationCombo: TCOMBOBox;
CheckBoxs: Array [0..5] of TCHECKBOX;
CurPlayer: integer;
AKpf_SavePlayers, AKpf_Terminate: boolean;
Procedure SavePlayers(tofile: boolean);
var
i: integer;
begin
With Players[CurPlayer] do
begin
Name := frmEdits[0].Caption;
Pass := frmEdits[1].Caption;
Pin := frmEdits[2].Caption;
Active := CheckBoxs[0].CHECKED;
Strings[0] := CreateCombo.Caption;
Strings[1] := LocationCombo.Caption;
Arrays[0] := [StrToInt(frmEdits[3].Caption), StrToInt(frmEdits[4].Caption), CheckBoxs[2].CHECKED, CheckBoxs[3].CHECKED, frmEdits[5].Caption, CheckBoxs[1].CHECKED, CheckBoxs[4].CHECKED, CheckBoxs[5].CHECKED];
end;
if tofile then
begin
WriteINI('General', 'NumOfPlayers', IntToStr(HowManyPlayers), FilePath);
WriteINI('General', 'statsUser', frmEdits[6].Caption, FilePath);
WriteINI('General', 'statsPass', frmEdits[7].Caption, FilePath);
end;
if tofile then
for i := 0 to HowManyPlayers - 1 do
with Players[i] do
begin
WriteINI('Player['+IntToStr(i)+']', 'Name', Name, FilePath);
WriteINI('Player['+IntToStr(i)+']', 'Pass', Pass, FilePath);
WriteINI('Player['+IntToStr(i)+']', 'Pin', Pin, FilePath);
WriteINI('Player['+IntToStr(i)+']', 'Active', BoolToStr(Active), FilePath);
WriteINI('Player['+IntToStr(i)+']', 'Strings[0]', Strings[0], FilePath);
WriteINI('Player['+IntToStr(i)+']', 'Strings[1]', Strings[1], FilePath);
WriteINI('Player['+IntToStr(i)+']', 'Arrays[0][0]', IntToStr(Arrays[0][0]), FilePath);
WriteINI('Player['+IntToStr(i)+']', 'Arrays[0][1]', IntToStr(Arrays[0][1]), FilePath);
WriteINI('Player['+IntToStr(i)+']', 'Arrays[0][2]', BoolToStr(Arrays[0][2]), FilePath);
WriteINI('Player['+IntToStr(i)+']', 'Arrays[0][3]', BoolToStr(Arrays[0][3]), FilePath);
WriteINI('Player['+IntToStr(i)+']', 'Arrays[0][4]', Arrays[0][4], FilePath);
WriteINI('Player['+IntToStr(i)+']', 'Arrays[0][5]', BoolToStr(Arrays[0][5]), FilePath);
WriteINI('Player['+IntToStr(i)+']', 'Arrays[0][6]', BoolToStr(Arrays[0][6]), FilePath);
WriteINI('Player['+IntToStr(i)+']', 'Arrays[0][7]', BoolToStr(Arrays[0][7]), FilePath);
end;
end;
Procedure ShowPlayer(index: integer);
begin
With Players[index] do
begin
frmEdits[0].Caption := Name;
frmEdits[1].Caption := Pass;
frmEdits[2].Caption := Pin;
CheckBoxs[0].CHECKED := Active;
CreateCombo.Caption := Strings[0];
if Strings[1] = '' then
LocationCombo.Caption := 'Al Kharid'
else
LocationCombo.Caption := Strings[1];
frmEdits[3].Caption := IntToStr(Arrays[0][0]);//1st bank slot
frmEdits[4].Caption := IntToStr(Arrays[0][1]);//2nd bank slot
CheckBoxs[2].CHECKED := Arrays[0][2];//Take breaks
CheckBoxs[3].CHECKED := Arrays[0][3];//Sleep boolean
frmEdits[5].Caption := Arrays[0][4];//Sleep time
CheckBoxs[1].CHECKED := Arrays[0][5];//Rest for Run
CheckBoxs[4].CHECKED := Arrays[0][6];//CoalBag
CheckBoxs[5].CHECKED := Arrays[0][7];//Disable Antiban
end;
CurPlayer := index;
frmEdits[6].Caption := stats_Username;
frmEdits[7].Caption := stats_UserPass;
frmEdits[8].Caption := IntToStr(CurPlayer);
frmEdits[9].Caption := IntToStr(HowManyPlayers);
end;
Procedure LoadPlayers;
var
i: integer;
begin
HowManyPlayers := StrToIntDef(ReadINI('General', 'NumOfPlayers', FilePath), 1);
stats_Username := ReadINI('General', 'statsUser', FilePath);
stats_UserPass := ReadINI('General', 'statsPass', FilePath);
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
CurPlayer := CurrentPlayer;
for i := 0 to HowManyPlayers - 1 do
with Players[i] do
begin
Name := ReadINI('Player['+IntToStr(i)+']', 'Name', FilePath);
if Name = '' then
begin
Active := false;
Arrays[0] := [1,2,true,false,'hh:mm',false,false];
Strings[0] := 'Select what to make here.';
end
else
begin
Pass := ReadINI('Player['+IntToStr(i)+']', 'Pass', FilePath);
Pin := ReadINI('Player['+IntToStr(i)+']', 'Pin', FilePath);
Active := StrToBool(ReadINI('Player['+IntToStr(i)+']', 'Active', FilePath));
Strings[0] := ReadINI('Player['+IntToStr(i)+']', 'Strings[0]', FilePath);
Strings[1] := ReadINI('Player['+IntToStr(i)+']', 'Strings[1]', FilePath);
try
Arrays[0] := [StrToIntDef(ReadINI('Player['+IntToStr(i)+']', 'Arrays[0]['+IntToStr(0)+']', FilePath), 1),
StrToIntDef(ReadINI('Player['+IntToStr(i)+']', 'Arrays[0]['+IntToStr(1)+']', FilePath), 2),
StrToBool(ReadINI('Player['+IntToStr(i)+']', 'Arrays[0]['+IntToStr(2)+']', FilePath)),
StrToBool(ReadINI('Player['+IntToStr(i)+']', 'Arrays[0]['+IntToStr(3)+']', FilePath)),
ReadINI('Player['+IntToStr(i)+']', 'Arrays[0]['+IntToStr(4)+']', FilePath),
StrToBool(ReadINI('Player['+IntToStr(i)+']', 'Arrays[0]['+IntToStr(5)+']', FilePath)),
StrToBool(ReadINI('Player['+IntToStr(i)+']', 'Arrays[0]['+IntToStr(6)+']', FilePath)),
StrToBool(ReadINI('Player['+IntToStr(i)+']', 'Arrays[0]['+IntToStr(7)+']', FilePath))];
except
Arrays[0] := [1,2,true,false,'hh:mm',false,false,false];
end;
end;
end;
end;
procedure OnLeftClick(Sender: TObject);
var
i: integer;
begin
Case Sender of
SButtons[0]: begin//Start
frmDesign.ModalResult := mrOk;
AKpf_SavePlayers := False;
AKpf_Terminate := False;
Writeln('Start.');
end;
SButtons[1]: begin//Save and start
frmDesign.ModalResult := mrOk;
AKpf_SavePlayers := True;
AKpf_Terminate := False;
Writeln('Save and Start.');
end;
SButtons[2]: begin//Save and Exit
frmDesign.MODALRESULT:= mrOk;
AKpf_SavePlayers := True;
AKpf_Terminate := True;
Writeln('Save and Exit.');
end;
SButtons[3]: begin//Exit
frmDesign.MODALRESULT:= mrOk;
AKpf_SavePlayers := False;
AKpf_Terminate := True;
Writeln('Exit.');
end;
PButtons[0]: begin//Previous player
SavePlayers(false);
if CurPlayer = 0 then
ShowPlayer(HowManyPlayers - 1)
else
ShowPlayer(CurPlayer - 1);
end;
PButtons[1]: begin//New player
Inc(HowManyPlayers);
NumberOfPlayers(HowManyPlayers);
SavePlayers(false);
CurPlayer := HowManyPlayers-1;
for i := 0 to 2 do
begin
frmEdits[i].Caption := '';
CheckBoxs[i].CHECKED := true;
end;
CreateCombo.Caption := 'Select what to make here.';
frmEdits[3].Caption := '1';
frmEdits[4].Caption := '2';
CheckBoxs[3].CHECKED := false;
CheckBoxs[4].CHECKED := false;
CheckBoxs[5].CHECKED := false;
frmEdits[5].Caption := 'hh:mm';
frmEdits[6].Caption := stats_Username;
frmEdits[7].Caption := stats_UserPass;
frmEdits[8].Caption := IntToStr(CurPlayer);
frmEdits[9].Caption := IntToStr(HowManyPlayers);
Writeln('Player '+IntToStr(CurPlayer)+' added.');
end;
PButtons[2]: begin//Next player
SavePlayers(false);
if CurPlayer = HowManyPlayers - 1 then
ShowPlayer(0)
else
ShowPlayer(CurPlayer + 1);
end;
PButtons[3]: begin//Delete player
if (HowManyPlayers > 1) and (CurPlayer = 0) then
Writeln('Can''t delete player 0.')
else
if (HowManyPlayers = 1) then
begin
if not (MessageDlg('Delete?', 'Do you want to reset Player '+ToStr(CurPlayer)+'?', mtWarning, [mbYes,mbNo]) = 6) then
Exit;
Writeln('Player '+ToStr(CurPlayer)+' reset.');
for i := 0 to 2 do
begin
frmEdits[i].Caption := '';
CheckBoxs[i].CHECKED := true;
end;
CreateCombo.Caption := '';
frmEdits[3].Caption := '1';
frmEdits[4].Caption := '2';
CheckBoxs[3].CHECKED := false;
frmEdits[5].Caption := 'hh:mm';
CheckBoxs[5].CHECKED := false;
end
else
if MessageDlg('Delete?', 'Do you want to delete Player '+ToStr(CurPlayer)+'?', mtWarning, [mbYes,mbNo]) = 6 then
begin
Writeln('Player '+ToStr(CurPlayer)+' deleted.');
Swap(Players[CurPlayer], Players[HowManyPlayers - 1]);
IncEx(HowManyPlayers, -1);
ShowPlayer(Max(CurPlayer - 1, 0));
SavePlayers(true);
end;
end;
end;
end;
procedure InitForm;
var
i: integer;
PCaps, CreateComboText, LocationText, Labels: TStringArray;
Ws, Ls, Ts: TIntegerArray;
begin
frmDesign := Tform.Create(nil);
With frmDesign do
begin
setBounds(100, 100, 390, 330);
Caption := 'Narcle''s AK Smelter v'+version;
Color := ClWhite;
Font.Color := ClBlack;
end;
PCaps := ['Previous Player', 'New Player', 'Next Player', 'Delete Player'];
for i := 0 to 3 do
begin
PButtons[i] := TBUTTON.Create(frmDesign);
with PButtons[i] do
begin
Parent := frmDesign;
Height := 22;
if i = 3 then
Width := 80//Delete Player
else
Width := 120;
Left := 10+i*125;
Top := 8;
CAPTION := PCaps[i];
ONCLICK := @OnLeftClick;
if i = 3 then
begin
Left := 135;
Top := 34;
end;
end;
end;
PCaps := ['Start', 'Save and Start', 'Save and Exit', 'Exit'];
for i := 0 to 3 do
begin
SButtons[i] := TBUTTON.Create(frmDesign);
with SButtons[i] do
begin
Parent := frmDesign;
Height := 22;
Width := 90;
Left := 6+i*96;
Top := 300;
FONT.Size := 8;
CAPTION := PCaps[i];
OnClick := @OnLeftClick;
end;
end;
CreateComboText := ['Bronze bars', 'Iron bars', 'Steel bars', 'Silver bars', 'Gold bars',
'Mithril bars', 'Addamantite bars', 'Runite bars', 'Cannonballs from Ores', 'Cannonballs from Bars',
'Silver Holy Symbol', 'Silver Unholy Symbol', 'Silver Sickle', 'Silver Tiara',
'Gold ring', 'Gold necklace', 'Gold amulet', 'Gold bracelet', 'Sapphire ring', 'Sapphire necklace', 'Sapphire amulet',
'Sapphire bracelet', 'Emerald ring', 'Emerald necklace', 'Emerald amulet', 'Emerald bracelet',
'Ruby ring', 'Ruby necklace', 'Ruby amulet', 'Ruby bracelet', 'Diamond ring', 'Diamond necklace',
'Diamond amulet', 'Diamond bracelet', 'Dragonstone ring', 'Dragonstone necklace',
'Dragonstone amulet', 'Dragonstone bracelet'];
CreateCombo := TComboBox.Create(frmDesign);
with CreateCombo do
begin
Parent := frmDesign;
Top := 80;
Left := 200;
Width := 180;
Height := 20;
FONT.Size := 10;
Caption := 'Select what to make here.';
for i := 0 to High(CreateComboText) do
ITEMS.Add(CreateComboText[i]);
end;
LocationText := ['Al Kharid', 'Edgeville'];
LocationCombo := TComboBox.Create(frmDesign);
with LocationCombo do
begin
Parent := frmDesign;
Top := 126;
Left := 200;
Width := 180;
Height := 20;
for i := 0 to High(LocationText) do
Items.Add(LocationText[i]);
end;
Labels := ['Username:', 'Password:', 'Bank Pin:', '1st Bank slot:', '2nd Bank slot:',
'What are you Making:', 'Where are you smelting:',
'Active', 'Rest for Run', 'Take Breaks', 'Sleep : Time ---->', 'Use Coal bag', 'Disable Antiban',
'SRL Stats User:', 'SRL Stats Password:', 'Player:', 'Total Players:'];
SetArrayLength(frmLabels, Length(Labels));
Ts := [62, 108, 156, 186, 216, 62, 108, 156, 178, 200, 222, 244, 266, 250, 280, 38, 38];
Ls := [10, 10, 50, 29, 25, 200, 200, 228, 228, 228, 228, 228, 228, 34, 10, 20, 260];
for i := 0 to High(Labels) do
begin
frmLabels[i] := TLABEL.Create(frmDesign);
with frmLabels[i] do
begin
Parent := frmDesign;
Height := 20;
Width := 50;
Top := Ts[i];
Left := Ls[i];
Font.Size := 8;
Caption := Labels[i];
end;
end;
Ws := [180, 180, 60, 60, 60, 60, 76, 76, 28, 28];
Ts := [ 80, 126, 154, 184, 214, 218, 244, 274, 34, 34];
Ls := [ 10, 10, 100, 100, 100, 320, 112, 112, 60, 330];
for i := 0 to 9 do
begin
frmEdits[i] := TEDIT.Create(frmDesign);
with frmEdits[i] do
begin
Parent := frmDesign;
Height := 21;
Width := Ws[i];
top := Ts[i];
Left := Ls[i];
Font.Size := 8;
if i = 3 then
Caption := '1';
if i = 4 then
Caption := '2';
if i = 5 then
Caption := 'hh:mm';
end;
end;
for i := 0 to 5 do
begin
CheckBoxs[i] := TCHECKBOX.Create(frmDesign);
with CheckBoxs[i] do
begin
Parent := frmDesign;
Top := 154+i*22;
Left := 210;
if InIntArray([0, 1, 2], i) then
Checked := true;
end;
end;
if FileExists(FilePath) then
begin
LoadPlayers;
ShowPlayer(0);
end
else
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
CurPlayer := CurrentPlayer;
frmEdits[8].Caption := IntToStr(CurPlayer);
frmEdits[9].Caption := IntToStr(HowManyPlayers);
end;
frmDesign.ShowModal;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
Function Loc(Location: string): Boolean;
begin
Result := Players[CurrentPlayer].Loc = Lowercase(Location);
end;
Procedure SetLoc(Location: string);
begin
Players[CurrentPlayer].Loc := Lowercase(Location);
end;
function TPAItem(cOutLine, cWidth, cHeight, cColor: Integer): TTPAItem;
begin
with Result do
begin
OutLine := cOutLine;
Width := cWidth;
Height := cHeight;
Color := cColor;
end;
end;
function FindTPAItem(Item: TTPAItem; B: TBox): Boolean;
var
TPA: TPointArray;
Bt: TBox;
x,y: integer;
T:TPoint;
begin
FindColorsTolerance(TPA, srl_outline_black, B.x1, B.y1, B.x2, B.y2, 0);
if Length(TPA) < 1 then
Exit;
Bt := GetTPABounds(TPA);
T := MiddleTPA(TPA);
if (Length(TPA) = Item.OutLine) and (iAbs(Bt.x2-Bt.x1) = Item.Width) and (iAbs(Bt.y2-Bt.y1) = Item.Height) then
if Item.Color > -1 then
Result := FindColorTolerance(x, y, Item.Color, T.x, T.y, T.x, T.y, 7)
else
Result := True;
end;
Function UpdateItem(var Item: TTPAItem; InvN: integer; ForcedUpdate: Boolean): Boolean;
var
TPA: TPointArray;
T: TPoint;
B: TBox;
begin
if InvN < 1 then
Exit;
if not ForcedUpdate then
if (Item.OutLine > 0) then
Exit;
if ForcedUpdate then
WriteLn('Item wasn''t detected attempting a TPA update.');
Wait(300+random(200));
B := InvBox(InvN);
FindColorsTolerance(TPA, srl_outline_black, B.x1, B.y1, B.x2, B.y2, 0);
if Length(TPA) < 1 then
Exit;
B := GetTPABounds(TPA);
T := MiddleTPA(TPA);
Item := TPAItem(Length(TPA), iAbs(B.x2-B.x1), iAbs(B.y2-B.y1), GetColor(T.x, T.y));
Result := true;
Writeln('Item := TPAItem('+inttostr(Item.Outline) +', '+inttostr(Item.Width)+', '+inttostr(Item.Height)+', '+inttostr(Item.Color)+');');
Exit;
end;
function iCountArr(Item: TTPAItem): TIntegerArray;
var
i, n: integer;
begin
SetArrayLength(Result, 28);
for i := 1 to 28 do
if FindTPAItem(Item, InvBox(i)) then
begin
Result[n] := i;
Inc(n);
end;
SetArrayLength(Result, n);
end;
function iCount(Item: TTPAItem): integer;
begin
Result := Length(iCountArr(Item));
end;
Function GoldCraftCoords(x, y: integer): TPoint;//x = 0 to 3, y = 0 to 7
begin
Result.y := 101+ 61*y;
if (y = 0) then
Result.x := 110+47*x;//Rings
if InRange(y, 1, 3) and InRange(x, 0, 6) then
Result.x := 125 + 51*x;//others
end;
Function GoldMenu: Boolean;
begin
Result := InRange(CountColor(2071039, MSX1, MSY1, MSX2, MSY1+60), 610, 630);
end;
Function SilverMenu: Boolean;
begin
Result := InRange(CountColor(2070783, MSX1, MSY1, MSX2, MSY1+60), 285, 310);
end;
Procedure ResetTimer(Time: string);
begin
Case LowerCase(Time) of
'logout': LogTime := GetSystemTime+RandomRange(19*60000, 31*60000);
'break': BreakTime := GetSystemTime+RandomRange(50*60000, 180*60000);
end;
end;
procedure Report;
var
i: integer;
begin
if (GetTimeRunning < 60000) then
Exit;
With Playas[CurrentPlayer] do
begin
if CannonBall then
begin
MyVars[0] := Round(MyVars[2]*25.5/4);
IncEx(Players[CurrentPlayer].Integers[11], MyVars[2]);//Players C-balls
IncEx(TotalCrafted, MyVars[2]);//Total
stats_IncVariable('Cannonballs (Made)', MyVars[2]);
end;
if SmeltBars then
begin
MyVars[0] := Round(MyVars[1]*XPper) + MyVars[0];//XP
IncEx(Players[CurrentPlayer].Integers[10], MyVars[1]);//Bars
IncEx(TotalBars, MyVars[1]);
stats_IncVariable(statsStr, MyVars[1]);
end;
if CraftGold or CraftSilver then
begin
MyVars[0] := Round(MyVars[1]*XPper) + MyVars[0];
IncEx(Players[CurrentPlayer].Integers[11], MyVars[1]);//Player Crafted
IncEx(TotalCrafted, MyVars[1]);//Total Crafted
stats_IncVariable(statsStr, MyVars[1]);
end;
end;
With Players[CurrentPlayer] do
begin
Integers[12] := integers[12] + MyVars[0];//XP
IncEx(TotalXP, MyVars[0]);
stats_IncVariable('Total EXP Gained', MyVars[0]);
if ((PlayerWorked(CurrentPlayer)/60000.0) > 0) then
Integers[13] := round( (Integers[12]*60.0)/(PlayerWorked(CurrentPlayer)/60000.0))//XP Per hour
else
Integers[13] := -1;//error number
end;
writeln('');
//ClearReport;
if (HowManyPlayers > 1) then
SRLProgressReport(ResultDebugBox, ScriptName, 'Narcle', version,
['Run Time', 'Total Bars', 'Crafted', 'Total XP'],
[MsToTime(GetTimeRunning, Time_Abbrev), TotalBars, TotalCrafted, TotalXP]);
SRLPlayerReport( ResultDebugBox, 0, False,
[True, True, False, False, False, False],
['Bars', 'Crafted', 'XP', 'XP/Hour'],
[], [stats_Bars, stats_Crafted, stats_XP, stats_XPpH], [], []);
For i := 0 to High(MyVars) do
MyVars[i] := 0;
stats_Commit;
end;
Procedure SetupPlayer;
begin
Debug('Player setup...');
Disguise('AKS: '+Players[CurrentPlayer].Nick);
SetAngle(SRL_ANGLE_HIGH);
ResetTimer('Logout');
RunEnergy(20);
GameTab(tab_Inv);
end;
procedure LogoutSeq(reason:string);
begin
CloseWindow;
if (reason = '') then
nextplayer(true)
else
begin
writeln(reason+', '+Players[CurrentPlayer].Name+' is now inactive.');
SaveScreenshot(AppPath + reason + TheDate(Date_Day) + TheTime+'.bmp');
nextplayer(false);
end;
end;
function TakeABreak: boolean;
var
H, M, S, BreakFor, T: integer;
begin
if ( GetSystemTime >= BreakTime ) then
begin
CloseWindow;
Logout;
result := true;
BreakFor := RandomRange(5 * 60000, 25 * 60000);
ConvertTime(BreakFor, H, M, S);
Writeln('Break for: '+inttostr(M)+ 'm:' +inttostr(S)+ 's');
Logout;
MarkTime(T);
Repeat
wait(1000);
until (BreakFor < TimeFromMark(T))
ResetTimer('Logout');
ResetTimer('Break');
NextPlayer(true);
end;
end;
function TakeASleep(SleepTime: string): boolean;
var
H, M, S, ms: Word;
SleepH, SleepM, SleepFor, Hr, Mr, Sr, T: integer;
begin
SleepH := StrToInt(Copy(SleepTime, 1, 2));
SleepM := StrToInt(Copy(SleepTime, 4, 5));
DecodeTime(Now, H, M, S, ms);
if (H = SleepH) and (M > SleepM) then
begin
Logout;
Result := true;
SleepFor := RandomRange(540 * 60000, 780 * 60000);
ConvertTime(SleepFor, Hr, Mr, Sr);
Writeln('Sleep for: '+inttostr(Hr)+ 'h:'+inttostr(Mr)+ 'm:' +inttostr(Sr)+ 's');
Logout;
MarkTime(T);
Repeat
wait(1000);
until (SleepFor < TimeFromMark(T))
ResetTimer('Logout');
ResetTimer('Break');
NextPlayer(true);
end;
end;
function BuildingOutline: integer;
var
arC, A: TIntegerArray;
i, t, Len, Hi, c: Integer;
H, S, L: Extended;
begin
Result := -1;
t := GetSystemTime;
arC := GetColors(TPAFromBox(IntToBox(MMX1, MMY1, MMX2, MMY2)));
ClearSameIntegers(arC);
SetArrayLength(A, Length(arC));
for i := 0 to High(arC) do
begin
ColorToHSL(arC[i], H, S, L);
if (L >= 90.5) and (L <= 99.0) then
begin
A[Len] := arC[i];
Inc(Len);
end;
end;
For i := 0 to Len do
begin
c := CountColor(A[i], MMX1, MMY1, MMX2, MMY2)
if c > Hi then
begin
Hi := c;
Result := A[i];
end;
end;
Debug('BuildingOutline = ' + IntToStr(Result)+ ' '+IntToStr(GetSystemTime-t)+'ms');
end;
Function AKFindPosition: boolean;
var
TPAG: TPointArray;
B: TBox;
ATPAG: T2DPointArray;
Size: integer;
begin
Result := False;
if BankScreen then
begin
SetLoc('at bank');
Result := true;
Exit;
end;
FindColorsSpiralTolerance(MMCX, MMCY, TPAG, GreenHedge_Color, MMx1, MMy1, MMx2, MMy2, 40);
If (Length(TPAG) < 1) then
Exit;
ATPAG := SplitTPAEx(TPAG, 3, 3);
SortATPASize(ATPAG, True);
if DebugMode then
SMART_DrawDotsEx(True, ATPAG[0], clBlue);
B := GetTPABounds(ATPAG[0]);
Size := Length(ATPAG[0]);
Debug('Size: '+ ToStr(Size) +' Height: '+ToStr(B.y2-B.y1));
if InRange(Size, 130, 500) and InRange(B.y2-B.y1, 20, 69) then
begin
SetLoc('smelted');
Result := True;
Debug('Near Furnace');
end;
if InRange(Size, 200, 800) and InRange(B.y2-B.y1, 70, 120) then
begin
SetLoc('to bank');
Result := True;
Debug('Near Bank');
end;
end;
function ToAKCactus(ToFurnace:boolean): boolean;//This uses the green bush wall
var
z: integer;
B: TBox;
TPA: TpointArray;
ATPA: T2DPointArray;
T, O: TPoint;
begin
if not LoggedIn then
Exit;
Debug('To Cactus...');
if ToFurnace then
begin
O := Point(2, Random(5));
B := IntToBox(MMX1, MMY1, MMX2, MMY2);
end
else
begin
Case Random(2) of
0: O := Point(-6, 15);
1: O := Point(-8, 20);
end;
B := IntToBox(625, MMCY, MMX2, MMY2);
end;
z := GetColorToleranceSpeed;
ColorToleranceSpeed(1);
FindColorsSpiralTolerance(MMCX, MMCY, TPA, GreenHedge_Color, B.x1, B.y1, B.x2, B.y2, 40);
ColorToleranceSpeed(z);
if Length(TPA) < 1 then
Exit;
//ATPA := TPAtoATPAEx(TPA, 20, 38);
ATPA := SplitTPA(TPA, 3);
SortATPASize(ATPA, true);
B := GetTPABounds(ATPA[0]);
T := Point(B.x1+O.x, B.y1+O.y);
if DebugMode then
begin
SMART_DrawDotsEx(true, ATPA[0], clBlue);
TPA := TPAFromBox(IntToBox(T.x, T.y, T.x+6, T.y+8 ));
SMART_DrawDotsEx(False, TPA, clRed);
end;
if PointInBox(T, MMBox) then
begin
Mouse(T.x, T.y, 6, 8, true);
FFlag(20);
Result := true;
PaceCheck := GetSystemTime;
end else
Debug('To AK Cactus failed.');
end;
function ToAKFurnace: Boolean;
var
TPA: TPointArray;
B, Ba: TBox;
ATPA: T2DPointArray;
T: TPoint;
YMod: integer;
begin
if not LoggedIn then
Exit;
Debug('To Furnace...');
Result := False;
B := MMBox;
FindColorsSpiralTolerance(MMCX, MMCY, TPA, GreenHedge_Color, B.x1, B.y1, B.x2, B.y2, 40);//green hedge
if (High(TPA) < 1) then
Exit;
ATPA := SplitTPAEx(TPA, 3, 3);
SortATPAFromSize(ATPA, 1000, True);
//SMART_DrawDotsEx(True, ATPA[0], clGreen);
Ba := GetTPABounds(ATPA[0]);
FindColorsSpiralTolerance(MMCX, MMCY, TPA, BuildingOutline, B.x1, B.y1, Ba.x2+6, Ba.y1+12, 0);
if (High(TPA) < 1) then
Exit;
ATPA := SplitTPA(TPA, 15);
SortATPAFromSize(ATPA, 200, True);
B := GetTPABounds(ATPA[0]);
//SMART_DrawDotsEx(True, ATPA[0], clBlue);
Debug('PaceCheck: '+ToStr(GetSystemTime-PaceCheck)+'ms');
Case (GetSystemTime-PaceCheck) of
0..70: Ymod := 4;
71..89: Ymod := 3;
90..129: YMod := 2;
else
YMod := 0;
end;
if (B.y2-B.y1 < 37) then//if the Box is too short, somethigns off
T := Point(Ba.x1-17, Ba.y1-25+YMod)
else
T := Point(B.x2-17, B.y2-30+YMod);
if DebugMode then
begin
SMART_DrawDotsEx(True, ATPA[0], clBlue);
TPA := TPAFromBox(IntToBox(T.x, T.y, T.x+5, T.y+5 ));
SMART_DrawDotsEx(false, TPA, clRed);
end;
If PointInBox(T, MMBox) then
begin
Mouse(T.x, T.y, 5, 5, true);
FFlag(20);
Wait(400+random(100));
FFlag(0);
Result := True;
PaceCheck := GetSystemTime;
Wait(700+random(300));
end else
Debug('To AK Furnace failed.');
end;
function ToAKBank: Boolean;//Uses bankers at bank
var
z, L: integer;
T: TPoint;
B: TBox;
TPA, TPA2: TpointArray;
ATPA, ATPA2: T2Dpointarray;
begin
if not LoggedIn then
Exit;
Debug('To Bank...');
z := GetColorToleranceSpeed;
ColorToleranceSpeed(1);
FindColorsSpiralTolerance(MMCX, MMCY, TPA, GreenHedge_Color, MMX1, MMY1, MMX2, MMY2, 40);
ColorToleranceSpeed(z);
if (Length(TPA) < 1) then
Exit;
ATPA := SplitTPAEx(TPA, 2, 2);
SortATPASize(ATPA, true);
B := GetTPABounds(ATPA[0]);
if DebugMode then
SMART_DrawDotsEx(True, ATPA[0], clBlue);
ColorToleranceSpeed(1);
FindColorsSpiralTolerance(MMCX, MMCY, TPA2, BuildingOutline, MMX1, B.Y1+9, B.X1, MMY2, 0);
ColorToleranceSpeed(z);
if (Length(TPA2) < 1) then
Exit;
ATPA2 := SplitTPAEx(TPA2, 15, 10);
SortATPASize(ATPA2, True);
L := Length(ATPA2);
if (L = 0) then
Exit;
SetArrayLength(ATPA2, Min(L, 2));
SortATPAFromFirstPoint(ATPA2, Point(B.x1-16, MMY2));
B := GetTPABounds(ATPA2[0]);
Debug('H: '+ToSTR(B.y2-B.y1)+', W: '+ToStr(B.x2-B.x1));
T := Point(B.x2-13, B.y1+(B.y2-B.y1)/2-MAx((35-(B.x2-B.x1))/2, 2));
if DebugMode then
begin
TPA := TPAFromBox(IntToBox(T.x, T.y, T.x+4, T.y+8 ));
SMART_DrawDotsEx(False, ATPA2[0], clGreen);
SMART_DrawDotsEx(False, TPA, clRed);
end;
if PointInBox(T, MMBox) then
begin
Mouse(T.x, T.y, 4, 8, true);
FFlag(20);
Result := true;
if RunEnergy(10) then
Wait(1200+random(600))
else
Wait(2400+random(1200));
end else
Debug('To AK Bank failed.');
end;
function AKClickFurnace(Option: string): boolean;
var
z: integer;
TPoint: TPoint;
TPA, TPA2: TpointArray;
ATPA: T2Dpointarray;
begin
z := GetColorToleranceSpeed;
ColorToleranceSpeed(1);
FindColorsTolerance(TPA, 3815997, MSX1, MSY1, MSX2, MSY2, 50);
FindColorsTolerance(TPA2, 1911763, MSX1, MSY1, MSX2, MSY2, 18);
ColorToleranceSpeed(z);
TPA := CombineTPA(TPA, TPA2);
if Length(TPA) < 1 then exit;
ATPA := SplitTPAEx(TPA, 15, 10);
SortATPASize(ATPA, true);
TPA := ATPA[0];
TPoint := MiddleTPA(TPA);
if Length(TPA) > 0 then
begin
MMouse(TPoint.x+10, TPoint.y+10, 1, 1);
if WaitUpText('urnac', 100+random(50)) then
begin
case random(2) of
0: begin
ClickMouse2(mouse_Right);
Result := WaitOption(Option, 200+random(100));
end;
1: begin
ClickMouse2(mouse_Left);
Result := DidClick(True, 100);
end;
end;
If Result then
begin
wait(300+random(200));
Exit;
end;
end;
end;
end;
Function ToEdgeFurnace: Boolean;
var
TPA: TPointArray;
B, Bs: TBox;
ATPA: T2DPointArray;
T: TPoint;
i: integer;
begin
if not LoggedIn then
Exit;
Debug('To Furnace...');
Result := false;
FindColorsSpiralTolerance(MMX2, MMCY, TPA, BuildingOutline, MMx1, MMy1, MMx2, MMy2, 0);
if High(TPA) < 0 then
Exit;
ATPA := SplitTPA(TPA, 16);
For i := 0 to High(ATPA) do
begin
Bs := GetTPABounds(ATPA[i]);
if InRange(Bs.y2-Bs.y1, 23, 28) then
begin
B := Bs;
TPA := ATPA[i];
Break;
end;
end;
if DebugMode then
SMART_DrawDotsEx(true, TPA, clBlue);
T := Point(B.x1+(B.x2-B.x1)/2+3, B.y1+(B.y2-B.y1)/2-5);
if DebugMode then
begin
TPA := TPAFromBox(IntToBox(T.x, T.y, T.x+3, T.y+5 ));
SMART_DrawDotsEx(False, TPA, clRed);
end;
if PointInBox(T, MMBox) then
begin
Mouse(T.x, T.y, 3, 5, true);
FFlag(0);
Result := true;
wait(800+random(400));
end else
Debug('To Edge Furnace failed.');
end;
Function ToEdgeBank: Boolean;
var
TPA: TPointArray;
B,Bs: TBox;
ATPA: T2DPointArray;
T: TPoint;
i: integer;
begin
if not LoggedIn then
Exit;
Debug('To Bank...');
Result := false;
FindColorsSpiralTolerance(MMX1, MMY2, TPA, BuildingOutline, MMx1, MMy1, MMx2, MMy2, 0);
if High(TPA) < 0 then
Exit;
ATPA := SplitTPA(TPA, 17);
For i := 0 to High(ATPA) do
begin
Bs := GetTPABounds(ATPA[i]);
Debug('W: '+ToStr(Bs.y2-Bs.y1)+' H: '+ToStr(Bs.x2-Bs.x1));
if InRange(Bs.y2-Bs.y1, 42, 55) and InRange(Bs.x2-Bs.x1, 23, 36) then
begin
B := Bs;
TPA := ATPA[i];
Break;
end;
end;
if DebugMode then
SMART_DrawDotsEx(true, TPA, clBlue);
T := Point(B.x2-9, B.y1+16);
if DebugMode then
begin
TPA := TPAFromBox(IntToBox(T.x, T.y, T.x+5, T.y+5 ));
SMART_DrawDotsEx(False, TPA, clRed);
end;
if PointInBox(T, MMBox) then
begin
Mouse(T.x, T.y, 2, 3, true);
FFlag(0);
Wait(1200+random(200));
Result := True;
end else
Debug('To Edge Bank failed.');
end;
Function EdgeClickFurnace(Option: string): Boolean;
var
TPA, tpa1, tpa2: TPointArray;
ATPA: T2DPointArray;
B:TBox;
T: TPoint;
begin
FindColorsTolerance(tpa1, 1516193, MSX1, MSY1, MSX2, MSY2, 50);
//SMART_DrawDotsEx(true, tpa1, 255);
if (Length(tpa1) < 1) and (Length(tpa2) < 1) then
Exit;
ATPA := TPAtoATPAEx(tpa1, 30, 40);
SortATPAFromSize(ATPA, 450, true);
//for i := 0 to High(ATPA) do Debug('ATPA['+ToStr(i)+'] Length = '+ToStr(Length(ATPA[i])));
tpa1 := ATPA[0];
B := GetTPABounds(tpa1);
FindColorsTolerance(tpa2, 6121324, B.x1-50, B.y1-20, B.x2, B.y2+30, 50);
if DebugMode then
begin
SMART_DrawDotsEx(true, tpa1, 255);
SMART_DrawDotsEx(False, tpa2, 5026082);
end;
Debug('tpa1 Length = '+ToStr(Length(tpa1))+' || tpa2 Length = '+ToStr(Length(tpa2)));
if (Length(tpa1) < 1) and (Length(tpa2) < 1) then
Exit;
TPA := CombineTPA(tpa1, tpa2);
T := MiddleTPA(TPA);
if PointInBox(T, IntToBox(B.x1-50, B.y1-20, B.x2, B.y2+30)) then
begin
MMouse(T.x-10, T.y-10, 20, 20);
if WaitUpTextMulti(['urnac', 'nace'], 400) then
begin
case random(2) of
0: begin
ClickMouse2(mouse_Right);
Result := WaitOption(Option, 200+random(100));
end;
1: begin
ClickMouse2(mouse_Left);
Result := DidClick(True, 100);
end;
end;
If Result then
begin
wait(300+random(200));
Exit;
end;
end;
end;
end;
Function EdgeOpenBank: Boolean;
var
TPA: TPointArray;
ATPA: T2DPointArray;
i, cts: integer;
T: TPoint;
begin
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.33, 0.22);
FindColorsTolerance(TPA, 3688009, MSX1, MSY1, MSX2, MSY2, 3)
ColorToleranceSpeed(cts);
SetColorSpeed2Modifiers(0.2, 0.2);
if Length(TPA) < 1 then
Exit;
ATPA := SplitTPAEx(TPA, 1, 4);
SortATPASize(ATPA, True);
SetArrayLength(ATPA, Min(3, Length(ATPA)));
SortATPAFromFirstPoint(ATPA, Point(MSCX+30, MSCY));
for i := 0 to High(ATPA) do
begin
T := MiddleTPA(ATPA[i]);
MMouse(T.x-5, T.y-5, 10, 10);
wait(100+Random(100));
if WaitUpText('ounter', 450) then
if random(3) = 0 then
begin
ClickMouse2(mouse_Right);
Result := WaitOptionMulti(['Bank B', 'nk B', 'k Bank'], 250+random(100));
end else
begin
ClickMouse2(mouse_Left);
Result := DidClick(True, 200);
end;
if Result then
Exit;
end;
end;
Function AKOpenBank: Boolean;
var
i, H, L: integer;
T: TPoint;
TPA: TPointArray;
ATPA: T2Dpointarray;
begin
FindColorsSpiralTolerance(MSCX, MSCY, TPA, AKBankBooth_Color, MSX1, MSY1, MSX2, MSY2, 30);
if Length(TPA) < 1 then
Exit;
ATPA := TPAtoATPAEx(TPA, 44, 200);
SortATPAFrom(ATPA, Point(MSCX, MSCY));
L := High(ATPA);
If L > 1 then
H := 1 Else H := L;
For i := 0 to H do
begin
T := MiddleTPA(ATPA[i]);
MMouse(T.x, T.y, 1, 1);
if WaitUpText('ooth', 450) then
if random(3) = 0 then
begin
ClickMouse2(mouse_Right);
Result := WaitOptionMulti(['Bank B', 'nk B', 'k Bank'], 250+random(100));
end else
begin
ClickMouse2(mouse_Left);
Result := DidClick(True, 200);
end;
if Result then
Exit;
end;
end;
Function Smelt: boolean;
var
i, s, C, Timer: integer;
iCa: TIntegerArray;
T: TPoint;
Item: TTPAItem;
begin
With Playas[CurrentPlayer] do
begin
Debug('Going to smelt...');
repeat
if SmeltBars then
if (iCount(BaseItem) > 0) then
if ClickFurnace('elt') then
begin
Timer := GetSystemTime + 8000+random(2000);
repeat
Wait(50+random(50));//Waiting for smith options to pop up
if (GetSystemTime > Timer) or not LoggedIn then
Exit;
until FindTextTpaEx(2070783, 0, MCX1, MCY1, MCX2, MCY2, T.x, T.y, SmeltText, statchars, Nothing);
Wait(RandomRange(150, 350));//Don't want a instant click, the text can pop up fast
MouseBox(T.x-20, T.y-30, T.x+20, T.y+8, 1);
Debug('Smelting Ore...');
Timer := GetSystemTime+4000*WithDrawMain;
repeat
If not LoggedIn then
Exit;
//if FindNormalRandoms then
// Break;
if ClickContinue(true, true) then
Break;
Wait(300+random(200));
until( iCount(BaseItem) < 1) or (GetSystemTime > Timer);
UpdateItem(CraftedItem, 2, False);
if iCount(CraftedItem) < 1 then
UpdateItem(CraftedItem, WithDrawMain+2, True);
end;
if SmeltBars then
Item := CraftedItem
else
Item := BaseItem;
//CannonBall Begin
if CannonBall or CraftGold or CraftSilver then
if ( iCount(Item) > 0 ) then
begin
if CannonBall then
Debug('Making Cannonballs...')
else
Debug('Making '+Players[CurrentPlayer].Strings[0]+'...');
for i := 0 to 3 do
begin
iCa := iCountArr(Item);
s := iCa[random(High(iCa))];
if ExistsItem(s) then
begin
MouseItem(s, mouse_Left);
Break;
end;
end;
if ClickFurnace('bar') then
begin
Timer := GetSystemTime + 8000+random(2000);
repeat
Wait(100+random(100));//Waiting for options to pop up
if (GetSystemTime > Timer) or not LoggedIn then
Exit;
if CannonBall then
if FindTextTpaEx(2070783, 0, MCX1, MCY1, MCX2, MCY2, T.x, T.y, 'nonb',statchars, Nothing) then
begin
Wait(RandomRange(150, 350));
MouseBox(T.x-20, T.y-30, T.x+20, T.y+8, 1);
Break;
end;
until GoldMenu or SilverMenu;
if CraftGold then
begin
T := GoldCraftCoords(Coords.x, Coords.y);
Mouse(T.x, T.y, 8, 8, false);
end;
If CraftSilver then
FindTextTPA(52224, 0, MSX1, MSY1, MSX2, MSY2, SmeltText, StatChars, ClickLeft);
if CraftSilver or CraftGold then
if WaitOptionMulti(['ke Al', 'e All', 'ke A', 'All'], 2000) then
begin
Timer := GetSystemTime+4000*WithDrawMain;
repeat
If not LoggedIn then
Exit;
//if FindNormalRandoms then
//Break;
if ClickContinue(true, true) then
Break;
Wait(300+random(200));
until( iCount(Item) < 1 ) or (GetSystemTime > Timer);
UpdateItem(CraftedItem, 2, false);
if iCount(CraftedItem) < 1 then
UpdateItem(CraftedItem, 2, True);
end;
if CannonBall then
begin
Timer := GetSystemTime+6666*WithDrawMain;
repeat
If not LoggedIn then
Exit;
//if FindNormalRandoms then
//Break;
if ClickContinue(true, true) then
Break;
Wait(300+random(200));
until( iCount(Item) < 1 ) or (GetSystemTime > Timer);
end;
end;
end;
//CannonBall end;
Inc(C);
if CannonBall then
if ( iCount(BaseItem) > 0 ) then
Continue;
until( iCount(BaseItem) < 1) or ( C > 5 );
Debug('Smelting Done.');
Result := true;
end;//With do end;
end;
Function Bank: boolean;
var
T: TPoint;
B: TBox;
TPA: TPointArray;
W, F, Timer, CBalls, WithDrawIs, A:integer;
Recorded: Boolean;
begin
Debug('Opening Bank...');
Timer := GetSystemTime + 40000;
if Playas[CurrentPlayer].AlKharid or Playas[CurrentPlayer].EdgeVille then
repeat
Wait(800+random(502));
if (PinScreen) or (BankScreen) Then
Break;
if Playas[CurrentPlayer].MyOpenBank() then
Break;
if OpenBankNPC then
Break;
until (GetSystemTime > Timer) or (not LoggedIn);
repeat
Wait(50+random(20));
if InRange(CountColor(2070783, 90, 147, 230, 211), 400, 430) then
if (Players[CurrentPlayer].Pin <> '') then
MouseBox(90, 147, 230, 211, 1)
else
begin
LogoutSeq('Bank Pin settings unknown');
Exit;
end;
until PinScreen or BankScreen or (not LoggedIn) or (GetSystemTime > Timer);
if (GetSystemTime > Timer) or (not LoggedIn) then
begin
SetLoc('Lost');
Exit;
end;
if PinScreen then
begin
Debug('Entering Pin...');
F := 0;
repeat
InPin(Players[CurrentPlayer].Pin);
Inc(F);
until (BankScreen) or ( F > 5 )
if (F > 5) then
begin
LogoutSeq('Failed to enter bank pin');
Exit;
end;
end;
if BankScreen then
with Playas[CurrentPlayer] do
begin
if (iCount(CraftedItem) < 26 ) and InvFull then
Inc(FailToSmelt)
else
FailToSmelt := 0;
if (FailToSmelt > 2) then
begin
LogoutSeq('Failed to smelt 2+ times');
Exit;
end;
repeat
Wait(100+random(100));
Until (CountColor(65535, MBX1, MBY1, MBX2, MBY2) > 20) or not LoggedIn;
if Not Recorded then
begin
if CannonBall then
begin
FindColors(TPA, 65535, MIX1, MIY1, MIX2, MIY2);
B := GetTPABounds(TPA);
CBalls := GetAmountBox(B);
Debug('Cannonballs: '+inttostr(CBalls));
MyVars[2] := MyVars[2] + CBalls;
if SmeltBars then
MyVars[1] := MyVars[1] + Round(CBalls / 4);
end;
if CraftGold or CraftSilver then
MyVars[1] := MyVars[1] + iCount(CraftedItem);
if SmeltBars and not CannonBall then
MyVars[1] := MyVars[1] + iCount(CraftedItem);
Debug('Record Count: '+ToStr(MyVars[1]));
Recorded := true;
end;
repeat
if not LoggedIn then
Exit;
if (InvCount > 0) then
begin
Debug('Banking...');
if HasCoalBag then
Deposit(2, 28, true)
else
DepositAll;
end;
BaseAmount := BaseAmount - WithDrawMain;
if (WithDrawSeco > -1) then
SecoAmount := SecoAmount - WithDrawSeco;
FixBank;
BankTab(1);
Debug('Withdrawing...');
Timer := GetSystemTime + 2000;
Repeat
A := GetAmountBox(BankIndexToMSBox(BankSlot1));
Wait(50+random(50));
until (A > 0) or (GetSystemTime > Timer);
if (A < (WithDrawMain+1)) and ((BaseAmount - WithDrawMain) < (WithDrawMain+1)) then
begin
CloseBank;
LogoutSeq('Ran out of primary');
Exit;
end;
If (A > (WithDrawMain+1)) then
BaseAmount := A;
if (WithDrawSeco > -1) then
begin
Timer := GetSystemTime + 2000;
Repeat
A := GetAmountBox(BankIndexToMSBox(BankSlot2));
Wait(50+random(50));
until (A > 0) or (GetSystemTime > Timer);
if (A < (WithDrawSeco+1)) and ((SecoAmount - WithDrawSeco) < (WithDrawSeco+1)) then
begin
CloseBank;
LogoutSeq('Ran out of secondary');
Exit;
end;
If (A > (WithDrawSeco+1)) then
SecoAmount := A;
end;
if HasCoalBag then//Coal Bag mod
if (WithDrawSeco > 0) then
begin
T := BankIndexToBankPoint(BankSlot2);
Withdraw(T.x, T.y, 0);
Timer := GetSystemTime + 60000;
Repeat
Wait(50);
if (GetSystemTime > Timer) then
Exit;
until (InvFull);
InvMouse(1, mouse_Right);//Coal ore
WaitOptionMulti(['Fill', 'ill', 'll C'], 1000);
Timer := GetSystemTime + 10000;
repeat
wait(50+random(100));
if InChat('already full') then
Deposit(2, 28, true);
if (GetSystemTime > Timer) then
Exit;
until (InvCount = 1);
end;
if (WithDrawMain > 26) then
WithDrawIs := 0
else
WithDrawIs := WithDrawMain;
T := BankIndexToBankPoint(BankSlot1);
Withdraw(T.x, T.y, WithDrawIs);
Timer := GetSystemTime + 60000;
Repeat
Wait(50);
until (GetSystemTime > Timer) or (InvCount >= WithDrawMain);
if (GetSystemTime > Timer) then
Exit;
UpdateItem(BaseItem, 2, False);
if iCount(BaseItem) <> WithDrawMain then
UpdateItem(BaseItem, 2, True);
if (WithDrawSeco > -1) then
if (InvCount >= WithDrawMain) then
begin
if HasCoalBag then
WithDrawIs := 0
else
begin
if WithDrawSeco > 14 then
WithDrawIs := 0
else
WithDrawIs := WithDrawSeco;
end;
T := BankIndexToBankPoint(BankSlot2);
Withdraw(T.x, T.y, WithDrawIs);
Timer := GetSystemTime + 60000;
Repeat
Wait(50);
until (GetSystemTime > Timer) or (InvCount >= 27);
UpdateItem(SecoItem, WithDrawMain+2, False);
if iCount(SecoItem) < 1 then
UpdateItem(SecoItem, WithDrawMain+2, True);
end;
if (GetSystemTime > Timer) then
Exit;
Inc(W);
until(InvCount >= 27) or (W > 10);
if (W > 10) then
begin
LogoutSeq('Banking failed');
Exit;
end;
end;
with Playas[CurrentPlayer] do
begin
if not (iCount(BaseItem) = WithDrawMain) then
begin
LogoutSeq('Counted BaseItem wrong');
Exit;
end;
if HasCoalBag then
A := 1
else
A := WithDrawSeco;
if (WithDrawSeco > -1) then
if not (iCount(SecoItem) >= A) then
begin
LogoutSeq('Counted SecoItem wrong');
Exit;
end;
end;
Debug('Done Banking...');
Case random(3) of
1: CloseBank;
end;
Inc(Players[CurrentPlayer].Banked);
result := true;
//if (ReportTime < GetSystemTime) then
Report;
end;
procedure DoChecks;
var
r: integer;
begin
//FindNormalRandoms;
r := round(rs_GetCompassAngleDegrees*100.0);
Debugln('Compass: '+tostr(r/100.0)+' Degrees r := ' + ToStr(r));
if InRange(r, 300, 35699) then
begin
Debug('ClickNorth');
ClickNorth(SRL_ANGLE_HIGH);
end;
if (HowManyPlayers > 1) then
if ( GetSystemTime >= LogTime ) then
LogoutSeq('');
if Playas[CurrentPlayer].TakeSleeps then
TakeASleep(Playas[CurrentPlayer].SleepTime);
if Playas[CurrentPlayer].TakeBreaks then
TakeABreak;
if Playas[CurrentPlayer].RestForRun then
if Loc('banked') then
if not RunEnergy(28+random(13)) then
begin
Debug('Resting...');
RestUntil(50+random(45));
Debug('Done resting.');
end;
RunEnergy(20);
if not LoggedIn then
LogoutSeq('');
if not Playas[CurrentPlayer].DisableAntiBan then
r := Random(60);
if (r < 5) then
Debug('Antiban...');
case r of
10: wait(1000+random(10000));
1,2: if (Playas[CurrentPlayer].SmeltBars) or (Playas[CurrentPlayer].CannonBall) then
HoverSkill('smithing' ,false)
else
HoverSkill('crafting' ,false);
3: PickUpMouse;
4: if (HowManyPlayers = 1) then
if random(20) = 1 then
Wait(RandomRange(29000, 59000));//29-59secs
end;
if (r < 5) then
Debug('End Antiban.');
//FindNormalRandoms;
end;
function ArrInStrEx(StrArr: TStringArray; Str: string): integer;//Needed for figuring out crafting
var
i: integer;
begin
Result := -1;
for i := 0 to High(StrArr) do
if Pos(StrArr[i], Str) > 0 then
begin
Result := i
Exit;
end;
end;
procedure EndOfScript;
begin
writeln('');
writeln('Thanks for using my AK Smelter!');
writeln('Please post proggies on forums!');
writeln(' -Narcle');
end;
procedure ScriptStartup;
var
i: integer;
CreateStr: string;
Gem, Kind: TIntegerArray;
begin
Debug('SMART & SRL Loading...');
Smart_Server := 1;
Smart_Members:= true;
Smart_Signed := true;
Smart_SuperDetail := false;
SetupSRL;
ScreenShots := true;
SRL_Procs[srl_OnLogIn] := @SetupPlayer;
SRL_Procs[srl_OnLogOut] := @Report;
AddOnTerminate('EndOfScript');
NumberOfPlayers(100);
DeclarePlayers;
if (Players[0].Name = '') then
begin
SafeInitForm;
if AKpf_SavePlayers then
SavePlayers(True);
if AKpf_Terminate then
TerminateScript;
end else
begin
HowManyPlayers := 0;
CurrentPlayer := 0;
DeclarePlayers;
for i := 0 to High(Players) do
if (Players[i].Name <> '') then
Inc(HowManyPlayers)
else
Break;
NumberOfPlayers(HowManyPlayers);
end;
Debug('Player count = '+ToStr(HowManyPlayers));
SetupSRLStats(18, stats_Username, stats_Userpass);
if (stats_Username = '') then
begin
stats_Username := 'Anonymous';
stats_Userpass := 'anon1337';
end;
Gem := [15, 40, 55, 70, 85, 100];//Base gem xp
Kind := [0, 5, 15, 10];//Kind modifiers, Dragonstone Amulet is +50
For i := 0 to HowManyPlayers - 1 do
With Playas[i] do// Playas[CurrentPlayer]
begin
CreateStr := LowerCase(Players[i].Strings[0]);
//All booleans should be false
If Length(Players[i].Name) < 1 then
begin
Writeln('Player '+ToStr(i)+' has no name, making inactive for now.');
Players[i].Active := false;
Continue;
end;
if Players[i].Nick = '' then
Players[i].Nick := Capitalize(Copy(Players[i].Name, 1, 4));
try
BankSlot1 := Players[i].Arrays[0][0];
BankSlot2 := Players[i].Arrays[0][1];
TakeBreaks := Players[i].Arrays[0][2];
TakeSleeps := Players[i].Arrays[0][3];
SleepTime := Players[i].Arrays[0][4];
RestForRun := Players[i].Arrays[0][5];
HasCoalBag := Players[i].Arrays[0][6];
DisableAntiBan := Players[i].Arrays[0][7];
except
Writeln('Player '+ToStr(i)+': Settings array set wrong, setting to defaults.');
BankSlot1 := 1;
BankSlot2 := 2;
TakeBreaks := true;
TakeSleeps := false;
SleepTime := '23:00';
RestForRun := true;
HasCoalBag := false;
DisableAntiBan := false;
end;
Case Lowercase(Players[i].Strings[1]) of
'al kharid': AlKharid := True;
'edgeville', 'edgeville (beta)': EdgeVille := True;
'neitiznot': Neitiznot := True;
else
begin
Writeln('Smelting location not choosen, setting to default (Al Kharid).');
Players[i].Strings[1] := 'al kharid';
AlKharid := true;
end;
end;
if AlKharid then
begin
ClickFurnace := @AKClickFurnace;
MyOpenBank := @AKOpenBank;
Players[i].Loc := 'lost';
end;
if EdgeVille then
begin
ClickFurnace := @EdgeClickFurnace;
MyOpenBank := @EdgeOpenBank;
Players[i].Loc := 'at bank';
end;
WithDrawSeco := -1;
if ArrInStr(['ring', 'necklace', 'bracelet', 'amulet'], CreateStr) then
begin
CraftGold := True;
statsStr := 'Gold Bars Crafted';
Coords.x := ArrInStrEx(['gold','sapphire','emerald','ruby','diamond','drag onstone'], CreateStr);
Coords.y := ArrInStrEx(['ring','necklace','amulet','bracelet'], CreateStr);
if (Coords.x < 0) or (Coords.y < 0) then
begin
Writeln('');
Writeln('Player '+ToStr(i)+' create string not setup correctly, please fix.');
TerminateScript;
end;
if (Pos('dragonstone', CreateStr)>0) and (Pos('amulet', CreateStr)>0) then
XPper := 150.0//Dragonstone Amulet xp
else
XPper := Gem[Coords.x]+Kind[Coords.y];
if (Coords.x = 0) then
WithDrawMain := 28
else
begin
WithDrawMain := 14;
WithDrawSeco := 14;
end;
end;
if (Pos('silver', CreateStr) > 0) and not(Pos('bars', CreateStr) > 0) then
begin
CraftSilver := True;
XPper := 50.0;
WithDrawMain := 28;
statsStr := 'Silver Bars Crafted';
Case CreateStr of
'silver holy symbol':
SmeltText := 'aradom';
'silver unholy symbol':
SmeltText := 'nholy';
'silver sickle':
SmeltText := 'ickle';
'silver tiara':
begin
SmeltText := 'iara';
XPper := 52.5;
end;
else
begin
Writeln('');
Writeln('Player '+ToStr(i)+' create string not setup correctly, please fix.');
TerminateScript;
end;
end;
end;
BagCount := 28;
if (not CraftSilver) and (not CraftGold) then
Case CreateStr of
'cball','cballs', 'cannonballs', 'cannonballs from ores':
begin
BaseDivi := 3;
XPper := 17.5;//steel
SmeltText := 'teel';
SmeltBars := True;
CannonBall := True;
statsStr := 'Steel Bars Melted';
end;
'steeltoball', 'bartoballs', 'steeltocballs', 'steeltoballs', 'cannonballs from bars':
begin
BaseDivi := 1;
XPper := 17.5;//steel
CannonBall := True;
HasCoalBag := false;
end;
'iron', 'iron bars':
begin
BaseDivi := 1;
SmeltText := 'ron';//set
XPper := 12.5;
SmeltBars := True;
statsStr := 'Iron Bars Melted';
HasCoalBag := false;
end;
'steel', 'steel bars':
begin
BaseDivi := 3;
SmeltText := 'teel';//set
XPper := 17.5;
SmeltBars := True;
statsStr := 'Steel Bars Melted';
end;
'mith','mithril', 'mithril bars':
begin
BaseDivi := 5;
SmeltText := 'ithril';
XPper := 30.0;
SmeltBars := True;
statsStr := 'Mithril Bars Melted';
end;
'addy','addamite','addamantite','addamantite bars':
begin
BaseDivi := 7;
SmeltText := 'damant';//set
XPper := 37.5;
SmeltBars := True;
statsStr := 'Adamant Bars Melted';
end;
'rune','runite', 'runite bars':
begin
BaseDivi := 9;
SmeltText := 'une';//set
XPper := 50.0;
SmeltBars := True;
statsStr := 'Runite Bars Melted';
end;
'copper', 'tin', 'bronze', 'bronze bars':
begin
BaseDivi := 2;
SmeltText := 'ronze';//set
XPper := 6.2;
SmeltBars := True;
statsStr := 'Bronze Bars Melted';
HasCoalBag := false;
end;
'gold', 'gold bars':
begin
BaseDivi := 1;
SmeltText := 'old'
XPper := 22.5;
SmeltBars := True;
statsStr := 'Gold Bars Melted';
HasCoalBag := false;
end;
'silver', 'silver bars':
begin
BaseDivi := 1;
SmeltText := 'ilver';
XPper := 13.7;
SmeltBars := True;
statsStr := 'Silver Bars Melted';
HasCoalBag := false;
end;
else
begin
Writeln('');
Writeln('Player '+ToStr(i)+' create string not setup correctly, please fix.');
TerminateScript;
end;
end;
if WithDrawMain < 1 then
begin
if HasCoalBag then
BagCount := BagCount + 26;//Coal bag takes one spot so -1 for invy space
WithDrawMain := BagCount / BaseDivi;
if BaseDivi <> 1 then
WithDrawSeco := (BaseDivi-1)*WithDrawMain
else
WithDrawSeco := -1;
end;
Debug('WithDrawMain: '+ToStr(WithDrawMain));
Debug('WithDrawSeco: '+ToStr(WithDrawSeco));
end;
for i := 0 to HowManyPlayers-1 do
if Players[i].Active then
begin
CurrentPlayer := i;
Break;
end;
Writeln('CurrentPlayer = '+Players[CurrentPlayer].Name);
WRiteln('AK Smelter v'+version);
Writeln(' By Narcle');
Debug('Runescape Loading...');
While not RSReady do
Wait(100);
Debug('Logging in...');
ResetTimer('Break');
LoginPlayer;
end;
begin
ScriptStartup;
repeat
if Playas[CurrentPlayer].AlKharid then
Case Players[CurrentPlayer].Loc of
'lost':
if not AKFindPosition then
LogoutSeq('Couldn''t find position');
'at bank':
if Bank then
SetLoc('banked');
'banked':
if ToAKCactus(true) then
SetLoc('to furnace');
'to furnace':
if ToAKFurnace then
SetLoc('at furnace');
'at furnace':
if Smelt then
SetLoc('smelted');
'smelted':
if ToAKCactus(False) then
SetLoc('to bank');
'to bank':
if ToAKBank then
SetLoc('at bank');
end;
if Playas[CurrentPlayer].Edgeville then
Case Players[CurrentPlayer].Loc of
'at bank':
if Bank then
SetLoc('to furnace');
'to furnace':
if ToEdgeFurnace then
SetLoc('at furnace');
'at furnace':
if Smelt then
SetLoc('to bank');
'to bank':
if ToEdgeBank then
SetLoc('at bank');
'lost': LogoutSeq('Couldn''t find position');
end;
DoChecks;
until (AllPlayersInactive);
end.
Gurkis
02-11-2012, 10:58 PM
Ok, what do i have to do to stay all the time on one account, because after like 20mins it changes to other player, but i don't have other player so it crashes and it won't log back in. What do i need to change so it stays on player[0]?
hammad911
02-11-2012, 11:48 PM
Mr.Freeweed you are awesome, if your ever round my neighborhood we'll spark one together
hammad911
02-12-2012, 12:21 AM
I keep getting this error and then the script stops:
Failed to smelt 2+ times, is now inactive.
NextPlayer(False)
SwitchToPlayer(PlayerNo: 0, Active: False);
Player is not Active...
All players not active!
NextPlayer(True)
I think this is bc i did not disable anitbans as u said freeweed, how do i do that?
Mr. Freeweed
02-12-2012, 03:10 AM
I would delete any players you have and re enter them. Also antibans is a check box on the form that pops up when you play the script. Just uncheck.
I keep getting this error and then the script stops:
Failed to smelt 2+ times, is now inactive.
NextPlayer(False)
SwitchToPlayer(PlayerNo: 0, Active: False);
Player is not Active...
All players not active!
NextPlayer(True)
I think this is bc i did not disable anitbans as u said freeweed, how do i do that?
Gurkis
02-12-2012, 12:49 PM
So, which lines do i delete to run only 1acc? mine scripting exp is rlly low lol.
Jeevesman
02-12-2012, 02:32 PM
Brilliant smelter well done, cannonballs had no problem at all from ores and bars.
Banking is a tad slow, but and cope with that.
I'm now doing gold bars to test and it keeps stopping at random in the bank with the gold ore highlighted, i always babysit rs so not a problem. (i do nip out for a cig but other thn that i'm around doing other things).
Many thanks for the smelter
81/90 smithing
[================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ *** | True | 01:44:11 | 52 | 1428 | 0 | 32130 | 18503 ]
[================================================== ====================]
10coins
02-12-2012, 03:35 PM
why its keep pressing music button on runescape?
I'm debating whether I should release my customised version of the script. Perfect banking, perfect smelting, perfect antirandom.
If you want it, PM me.
l337murd3r
02-12-2012, 07:54 PM
I'm debating whether I should release my customised version of the script. Perfect banking, perfect smelting, perfect antirandom.
If you want it, PM me.
[================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ *** | True | 06:02:43 | 96 | 1674 | 6696 | 71982 | 11907 ]
[================================================== ====================]
1.6.3 works perfect for me...
10coins
02-13-2012, 12:17 AM
l33t but it keeps pressing music player buton on rs? for me it dont stop
Joshua
02-13-2012, 03:10 AM
So, which lines do i delete to run only 1acc? mine scripting exp is rlly low lol.
Lmao, just turn the second account to false, should look like this.
{
With Players[1] do
begin
Name := '';
Pass := '';
Active := false;
Pin := '';
Strings[0] := ''; //[Create string]
Strings[1] := 'al kharid';
Arrays[0] := [1, 2, true, false, '23:00', true, false, false];
end;
}
reesetopher
02-13-2012, 03:20 AM
if i donated is there a chance of me getting a private script? as in example if i donated 20$ would i get a private script?
Gimpy666
02-13-2012, 04:00 PM
if i donated is there a chance of me getting a private script? as in example if i donated 20$ would i get a private script?
No.
foxfly1
02-13-2012, 05:19 PM
Item wasn't detected attempting a TPA update.
Item := TPAItem(66, 29, 22, 3618618);
Counted BaseItem wrong, player(edited) is now inactive.
NextPlayer(False)
[================================================== ===================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ===================]
[ Foxf | True | 00:20:56 | 15 | 117 | 0 | 2054 | 5884 ]
[================================================== ===================]
SwitchToPlayer(PlayerNo: 0, Active: False);
Player is not Active...
All players not active!
Fix?
Slatopaz
02-13-2012, 08:49 PM
To the above, you could try to make the script right click only on the furnace...it worked for me and the script is now flawless
Using this for 60 days to see if I can get 99 smithing / 800M.
foxfly1
02-13-2012, 09:59 PM
To the above, you could try to make the script right click only on the furnace...it worked for me and the script is now flawless
It's only running for either 99-200 bars or 23-34 minutes then says switch player? hmmm I'm trying to fix it myself but I'm stumped.
Premonitions
02-14-2012, 01:24 AM
[================================================== =====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== =====================]
[*********| True | 05:48:26 | 193 | 0 | 5124 | 128100 | 22059 ]
[================================================== =====================]
SRL_Stats: No POST return
***** STR: 'Surprise Exam' RANDOM SOLVING FAILED! *****
Good script, Only stopped because anti random
helpmeman
02-14-2012, 02:21 AM
I keep getting the following error:
Error: Out Of Range at line 208
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
If I delete the line I get a similar message:
Error: Type Mismatch at line 1825
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
Any advice?
EDIT: nvm, i got it to work
Zironexium
02-14-2012, 02:50 AM
Been using this script for a few hours and Im just watching it and it start clicking the steel bars and the clicking on them again when its about to smelt cannon balls, it will do this forever until it goes to the bank again and banks the steel bars and withdrawls them again and repeats it. Is this normal? lol.
foxfly1
02-14-2012, 01:14 PM
I'm pretty sure that is normal I get that message when I stop the script while it's running...explain what you were doing?
helpmeman
02-14-2012, 07:55 PM
Been using this script for a few hours and Im just watching it and it start clicking the steel bars and the clicking on them again when its about to smelt cannon balls, it will do this forever until it goes to the bank again and banks the steel bars and withdrawls them again and repeats it. Is this normal? lol.
The same thing happens to me (but I am crafting gold ammys). It will click the gold bar and then the click on the furnace but when the crafting window comes it clicks on a gold bar again and then my dude just stands there for like 30 seconds and then goes back to the bank. It happens like 40-50% of the time.
tehguru
02-14-2012, 08:50 PM
Warning! You passed a wrong ye to a finder function: 22577. The client has a height of 503, thus the ye is out of bounds. Setting the value to 502 (h-1) for now.
Don't know what has happened, could anyone help?
Malkeur
02-14-2012, 09:11 PM
I do hope he fixes the antiban soon. It was nice, and I like being not banned.
Slatopaz
02-14-2012, 11:53 PM
For those having issues with left clicking, on line 1059, make it
begin
case random(1) of
0: begin
ClickMouse2(mouse_Right);
Result := WaitOption(Option, 200+random(100));
end;
end;
I have no scripting experience, yet I can solve problems...please at least try to fix the script before you comment
xScott
02-15-2012, 01:18 AM
great script, running fine for a hour or so and still going.
Too bad cannonballs crashed.
Malkeur
02-15-2012, 02:49 AM
Slatoz, thanks c:
Joshua
02-15-2012, 03:58 AM
After a little bit of tweaking, I got this working again after the update.
If anyone needs help getting it working again, feel free to pm me.
Edit: It is running flawlessly.
winner1
02-15-2012, 04:08 AM
For i := 0 to HowManyPlayers - 1 do
How to solve this problem
Thank you
ogustuce
02-15-2012, 05:43 AM
i've been running this flawlessly before but now i cant run it nymore and idk why, heres the inbox msg i get
Error: Out Of Range at line 208
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
help me fix this plz
blindeath
02-15-2012, 06:55 AM
Here we go!
[================================================== =================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== =================]
[ Rune | True | 00:00:27 | 1 | 0 | 0 | 0 | 0 ]
[================================================== =================]
Making some cannonballs, Will update with proggies :D
Thanks OP!
[================================================== ===================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ===================]
[ Rune | True | 01:33:36 | 61 | 189 | 756 | 8148 | 5223 ]
[================================================== ===================]
Still going. hehe
Found bug:
While making cannonballs from ores I just finished smelting my ores into cannonballs when I realised I had started with 1k+ coal ore and I only had 900 cannonballs. I looked around in my bank tabs and saw that there was an additional 500 steel bars sitting there. Turns out the bot had just smelted the ores and forgot to smelt the bars into cballs and just deposited the cannonballs.
Not that its any problem as I can just restart the script and set it to smelt the cannonballs from bars, Just a little inconvenience.
Malkeur
02-15-2012, 01:22 PM
Here we go!
[================================================== =================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== =================]
[ Rune | True | 00:00:27 | 1 | 0 | 0 | 0 | 0 ]
[================================================== =================]
Making some cannonballs, Will update with proggies :D
Thanks OP!
[================================================== ===================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ===================]
[ Rune | True | 01:33:36 | 61 | 189 | 756 | 8148 | 5223 ]
[================================================== ===================]
Still going. hehe
Found bug:
While making cannonballs from ores I just finished smelting my ores into cannonballs when I realised I had started with 1k+ coal ore and I only had 900 cannonballs. I looked around in my bank tabs and saw that there was an additional 500 steel bars sitting there. Turns out the bot had just smelted the ores and forgot to smelt the bars into cballs and just deposited the cannonballs.
Not that its any problem as I can just restart the script and set it to smelt the cannonballs from bars, Just a little inconvenience.
That's because you don't read. Scroll up and find the fix for line 1059 posted by another user, and that should solve your left click problems for making the cannonballs.
winner1
02-15-2012, 01:33 PM
Error: Type Mismatch at line 1826
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
What 's this about, Harvey
i've been running this flawlessly before but now i cant run it nymore and idk why, heres the inbox msg i get
Error: Out Of Range at line 208
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
help me fix this plz
You need to update SRL/SIMBA.
If you're using JAVA 7 you need to be using JAVA 6.
sniper8659
02-15-2012, 08:47 PM
it keeps clicking on the music player for some reason
Edit: it only happens at edge when crafting gold bars, al kharid works fine
xThai
02-15-2012, 09:48 PM
My proggy so far!
[================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ S4R4 | True | 02:53:45 | 49 | 0 | 5264 | 33558 | 11588 ]
[================================================== ====================]
It's been flawless so far, at least for me hehe. :)
[================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ k2 | True | 04:16:47 | 80 | 0 | 8848 | 56406 | 13179 ]
[================================================== ====================]
another proggie for ya.
4sure
02-16-2012, 11:32 AM
I'm having the same problem with edge furnace... the bot continually clicks from the inventory to the music player over and over. Other than that, script is great. I'll post proggies later..
superbuster4
02-16-2012, 08:33 PM
some times if u click face north u fix all antiban c ball or banking problems
just dont all the easy varrock tasks to find out edgevill smithing was bugging out on evilbob :p
guess i'll be runnig back at AK
boozer
02-18-2012, 03:40 AM
got stuck at runescape loading and nothing would happen... SMART was opened already
got stuck at runescape loading and nothing would happen... SMART was opened already
Think about this one.
Just type in your username / pw.
click enable.
</question>
Suke Bools
02-18-2012, 05:11 AM
I will try this out I just started using Simba and I need a smelting script
iStaf
02-18-2012, 11:22 AM
Keeps clicking the music player @ edgeville gold bars.
Zironexium
02-18-2012, 04:35 PM
[================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ I Re | True | 05:15:21 | 204 | 918 | 3672 | 39576 | 7530 ]
[================================================== ====================]
Still going strong, nice sctipt bro. :spongebob:
kimalia
02-18-2012, 09:30 PM
gold bars:
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ kima | True | 04:11:54 | 137 | 3808 | 0 | 85680 | 20408 ]
[================================================== ====================]
CJ0214
02-18-2012, 10:46 PM
Music player problem at edge....with all ores and cballs not just gold.
Even disabled antiban....How can this be fixed?
kimalia
02-19-2012, 12:28 AM
Music player problem at edge....with all ores and cballs not just gold.
Even disabled antiban....How can this be fixed?
i have the same! i hope it will be fixed ASAP! im getting 99 smith and this is the only way i can get it :S
loser69
02-19-2012, 06:42 AM
keeps clicking on the music player if using the edgeville furnace.
pulse0
02-19-2012, 07:16 AM
script is great heres a pretty good proggie doing steel bars in ak thank-you for writing this script,
[================================================== ====================]
[ Zapm | True | 04:16:43 | 229 | 2043 | 0 | 35866 | 8382 ]
[================================================== ====================]
Scout
02-19-2012, 11:53 AM
[================================================== ====================]
[================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ mine | True | 04:24:50 | 140 | 0 | 3780 | 94500 | 21409 ]
[================================================== ====================]
Doing well. 30k gold bracelets at edge. After making 30k gold bars with this script. Ill keep posting proggies if i get any good ones. :)
jeysoon
02-19-2012, 10:33 PM
error at 208 how can i fix this?
sometimes the bank doesn't load, and it logs out. Possible new jagex tactic.
brentrobbins
02-20-2012, 10:03 PM
I am also having the music player clicking problem at edgeville bank smelting cannonballs. It does it way to often to be good for antiban or anything of that sort.
10coins
02-20-2012, 11:58 PM
[================================================== ====]
[ Active | Worked | Banked | Bars | Crafted | XP | XP/Hour]
[================================================== ====]
[ True |02:26:30 | 102 | 0 | 2800 |70000 | 28667 ]
[================================================== ====]
much better in alkharid...
Endzior
02-21-2012, 02:13 AM
[================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ XXXX | True | 05:18:46 | 322 | 1605 | 0 | 48150 | 9063 ]
[================================================== ====================]
mithril bars.
egancaubang
02-21-2012, 06:26 PM
Hey I'm using your script at AK and here are the most common errors it does
*Not able to withdraw just right clicks on the ore and gets stuck
*Very slow on clicking it's below human and reacts too slow(maybe just on my computer)
foxfly1
02-21-2012, 08:34 PM
i got this error when i started the script....any ideas?
Save and Start.
Error: Out Of Range at line 183
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
Pdiamond
02-22-2012, 08:53 PM
I made about 500 Steel bars in Al Kharid earlier, here's my proggy. Thanks for the script. One of the most useful I've come across.
[================================================== ===================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ===================]
[ Pdia | True | 01:06:40 | 57 | 504 | 0 | 8848 | 7961 ]
[================================================== ===================]
Suke Bools
02-23-2012, 04:52 AM
================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ Big | True | 04:23:12 | 180 | 1593 | 0 | 27966 | 6375 ]
[================================================== ====================]
Not bad.
Hakala
02-23-2012, 10:15 AM
232k to 99 smithing, also almost 2m c'balls made with this.
Godric
02-24-2012, 04:39 AM
Looks like a very good Smelter.
Anyways lets see how well it works, since i ll be smelting 20k steel bars.
chrisiyyi
02-25-2012, 07:39 PM
narcle very very very good work heres a proggy your script gave me :D
[================================================== =====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== =====================]
[ Chri | True | 07:39:49 | 264 | 0 | 7168 | 179200 | 23383 ]
[================================================== =====================]
al-kharid :P
Godric
02-25-2012, 08:12 PM
[================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ Ange | True | 03:29:42 | 162 | 1449(Steel Bars) | 0 | 25438 | 7278 ]
[================================================== ====================]
It Break, i dunno why. even though i put everything False.
Hoyto
02-25-2012, 08:17 PM
i got this :
[Error] C:\Simba\Includes\srl/srl/misc/paintsmart.simba(560:12): Unknown identifier 'TPAFromEllipse' at line 559
Compiling failed.
Hoyto
02-25-2012, 08:38 PM
i really need help thank you
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
Godric
02-25-2012, 09:48 PM
i got this :
[Error] C:\Simba\Includes\srl/srl/misc/paintsmart.simba(560:12): Unknown identifier 'TPAFromEllipse' at line 559
Compiling failed.
Make sure everything is updated. Including; Simba, SRL and MSI.
Then make sure you fill in the form completely.
riiicardo
02-25-2012, 11:44 PM
Awesome job, dude. Working great for me
Triblouge
02-26-2012, 05:27 AM
Doesn't seem to work for me making gold bracelets. It will function properly for one trip, then it will use the bars on other bars on the second trip.
Godric
02-26-2012, 05:42 AM
It is normal for the Script to take breaks. i put False for everything.
i hate it, when i see its taking 15, 20 minutes breaking!
Since i have so many ores to smelt into bars.
burni
02-26-2012, 09:31 PM
Doesn't seem to work for me making gold bracelets. It will function properly for one trip, then it will use the bars on other bars on the second trip.
I'm having a similar problem with gold bracelets. I was hoping to get 99 crafting with this, but i've been doing other stats til I can get bracelets to work on here.
superbuster4
02-29-2012, 04:18 PM
ultimate proggie fail. lol
[================================================== ===================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ===================]
[ Supe | True | 00:00:00 | 7 | 54 | 216 | 2322 | -1 ]
[================================================== ===================]
Hakala
02-29-2012, 05:46 PM
[=================================]
[ Narcle'S AK Smelter 1.6.3 ]
[ by Narcle ]
[=================================]
[ Run Time : 6 Hr 13 Min 32 Sec ]
[ Total Bars : 1080 ]
[ Crafted : 4320 ]
[ Total XP : 46560 ]
[=================================]
Ores to c'balls.
mrfugix
02-29-2012, 06:17 PM
[================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[xxxx| True | 02:06:37 | 93 | 810 | 0 | 14220 | 6738 ]
[================================================== ====================]
I ran this for a combined time of 10 hours yesterday. I got one for 6 hours and the second for 4 and I ran out of supplies.
Horodirus
02-29-2012, 08:44 PM
[================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ Horodirus | True | 01:22:33 | 45 | 790 | 0 | 13860 | 10072 ]
[================================================== ====================]
Good script, seems flawless. No issues. Easy to set up.
Godric
02-29-2012, 11:30 PM
smelted 30k steel bars :D
Jeffhem
03-01-2012, 11:16 AM
Question: I am making silver tiara's, why doesn't it just select the make all option? it clicks 1 silver bar, clicks furnace, makes ONE tiara, and repeats?
Is that the way it is setup or did I miss some settings I need to change?
whattehfawk
03-01-2012, 12:48 PM
fixed
dewrange
03-01-2012, 08:38 PM
anyone know whats going on with the music problem?
Sytherix
03-02-2012, 12:17 AM
232k to 99 smithing, also almost 2m c'balls made with this.
What the bleep! Did you bot the resources too?
Sytherix
03-02-2012, 06:55 AM
[================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ Dark | True | 05:55:24 | 102 | 1818 | 7272 | 78174 | 13197 ]
[================================================== ====================]
Sorry about the double post.
Is the sleep how long it breaks for or the frequency at which it breaks?
Apezwijn
03-02-2012, 10:23 AM
Worked perfectly for 6 hours!
Steel bars, ~8K xp / hour
runtime 6 hours.
menelaus
03-02-2012, 11:51 AM
When I try and craft holy symbols, it clicks on the furnace, but won't choose to make anything and just click the bar again
[================================================== =====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== =====================]
[ Oul | True | 04:55:12 | 179 | 0 | 4984 | 149520 | 30389 ]
[================================================== =====================]
works like a charm!
iRack93
03-03-2012, 08:57 AM
Mine won't start? It loads of smart and in the debug box it says
"SRL Compiled in 0 msec
SMART Initialized.
Loaded: Server 1, Members: True, Signed: True, Super Detail: False.
Save and Start.
CurrentPlayer = ****
AK Smelter v1.6.3
By Narcle"
I've been waiting for about 10 mins yet it still won't start. Help?
Hakala
03-03-2012, 10:28 AM
Mine won't start? It loads of smart and in the debug box it says
"SRL Compiled in 0 msec
SMART Initialized.
Loaded: Server 1, Members: True, Signed: True, Super Detail: False.
Save and Start.
CurrentPlayer = ***
AK Smelter v1.6.3
By Narcle"
I've been waiting for about 10 mins yet it still won't start. Help?
Your graphic settings aren't correct, also you might want to censor your email.
Url for the correct ones (http://i.imgur.com/9l307.png)
iRack93
03-03-2012, 09:54 PM
Thanks for the help.
EDIT::: Tried putting it in DirectX, but it won't change. Any help with that?
Arepirpi
03-04-2012, 07:48 AM
Hey this script has some bugs. Sometimes it Mis-clicks during banking and the character will move to the left hand side of the bank. Also it would be stuck at the warriors occasionally. Does anyone encountered the same problem?
Hakala
03-04-2012, 09:09 AM
Thanks for the help.
EDIT::: Tried putting it in DirectX, but it won't change. Any help with that?
You need to use safemode hmm.
whatev
03-05-2012, 09:15 PM
Runs great but I'm having an issue with smart restarter. I need to disable the srl stats detection, because it's fucked up with the form turned off. Can someone show me which lines to remove to do this?
e: every time smart crashes and reloads, it asks for my srlstats username. I've added the username to the script on lines 1819/1820, but its not solving anything
e2: deleted lines 1816-1821 think that fixed it.
e3: nope, this borked statscommit which logged me out. thats really stupid. anyone know wtf is going on here? starting to piss me off.
I just went ahead and started using the form again. Its just really annoying to know that in six hours its going to be dead.
Sytherix
03-06-2012, 02:52 AM
Hmm "[Hint] C:\Simba\Includes\SRL/SRL/core/antirandoms\beekeeper.simba(194:3): Variable 'T' never used at line 193
[Error] (1788:3): Unknown identifier 'ScreenShots' at line 1787"
rsstorm
03-06-2012, 02:55 AM
[Hint] C:\Simba\Includes\SRL/SRL/core/antirandoms\beekeeper.simba(194:3): Variable 'T' never used at line 193
[Error] (1788:3): Unknown identifier 'ScreenShots' at line 1787
Compiling failed.
dewrange
03-06-2012, 03:52 AM
same error. no idea whats happening. simba works on one laptop but not on the other.
Sytherix
03-06-2012, 04:05 AM
same error. no idea whats happening. simba works on one laptop but not on the other.
I'm quite sure it's the new SRL update for anti-randoms. I tried fixing mine and got SMART to run, however it then falsely identifies that I'm in the Freaky Forester random.
sahibjs
03-06-2012, 04:33 AM
Delete the screenshots line.
ignore the new SRL randoms error.
Works swimmingly at AK btw, but at edgeville it encounters some trouble.
Jagex_Fagex
03-06-2012, 06:05 AM
Thanks very much. Haven't had a single error:
[================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ Bspa | True | 01:36:08 | 53 | 888 | 0 | 11099 | 6927 ]
[================================================== ====================]
Hakala
03-06-2012, 10:09 AM
What the bleep! Did you bot the resources too?
I buy them, then do ores to balls.
Specter
03-06-2012, 01:49 PM
hello,
I'm sorry for the noob question buy can u explain me how to run 2 accounts at the same time?
Specter
Specter
03-06-2012, 02:05 PM
[Hint] C:\Simba\Includes\SRL/SRL/core/antirandoms\beekeeper.simba(194:3): Variable 'T' never used at line 193
[Error] (1788:3): Unknown identifier 'ScreenShots' at line 1787
Compiling failed.
Delete the line...
Specter
Sytherix
03-06-2012, 02:12 PM
Deleting the line is the leecher action to take. If you spent 15mins researching the new SRL update you would realize that it changed to:
SRL_RandomScreenShot := true;
Specter
03-06-2012, 03:21 PM
Deleting the line is the leecher action to take. If you spent 15mins researching the new SRL update you would realize that it changed to:
Im not so good with botting and stuf but im leaning.
i try'd a few things and the only thing that seemed to work for me was deleting it so.
and i don't need screenshots
pulse0
03-06-2012, 03:40 PM
it has stopped working at edgeville will do about 2 or 3 inventorys then it clicks map to make it face north, left clicks on the ores while its still not finished in bank screen and kinda clicks one square at a time towards the jail(place with all the lvl 3 men next to the general store). i get this error in the bedug box.
***** Found Random: Freaky Forester *****
Screenshot of: Freaky Forester 3 Minutes and 18 Seconds
FF_WalkToCenter: Walking to the center area
FF_WalkToCenter: Walking to the center area
FF_WalkToCenter: Walking to the center area
FF_WalkToCenter: Walking to the center area
FF_WalkToCenter: Walking to the center area
FF_WalkToCenter: Walking to the center area
FF_WalkToCenter: Walking to the center area
FF_WalkToCenter: Walking to the center area
not to worry though still works great in ak, worked for 6 hours last night and did 5789 gold bars. pretty much what i make in edge because of the music tab error
96 smithing and only 55k more gold bars to go to lvl 99 smithing =) script has nearly done the deed
Sexininjah
03-06-2012, 07:15 PM
function IsRealMouseInBox(B : TBox): Boolean;
var
P : TPoint;
begin
GetRealMousePos(P.X, P.Y);
Result := PointInBox(P, B);
end;
Not working giving me this error message
[Hint] C:\Simba\Includes\SRL/SRL/core/text.simba(684:3): Variable 'I' never used at line 683
[Hint] C:\Simba\Includes\SRL/SRL/core/text.simba(684:3): Variable 'J' never used at line 683
[Hint] C:\Simba\Includes\SRL/SRL/core/antirandoms\beekeeper.simba(194:3): Variable 'T' never used at line 193
Compiled successfully in 514 ms.
SRL Compiled in 0 msec
SMART Initialized.
Loaded: Server 1, Members: True, Signed: True, Super Detail: False.
Error: Exception: Access violation at line 101
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
elmotheskaat
03-07-2012, 12:52 AM
Figured I'd try this script again, and it still works perfectly fine after all this time, if not better.
[================================================== ====]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== =====]
[ hihi | True | 04:05:57 | 70 | 0 | 7728 | 49266 | 12018 ]
[================================================== =====]
Manually stopped
joshy862
03-07-2012, 06:53 AM
Hey Narcle
Just wondering when i try to run your smither it comes up with this error.
[Error] (1768:3): Unknown identifier 'ScreenShots' at line 1767
Compiling failed.
Are you able to help me or anyone else please!!!
megapro82
03-07-2012, 05:07 PM
Error: Out Of Range at line 208
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
and it also says that i am a mem and i am not so how do i fix that too?
Bixby Sayz
03-07-2012, 05:12 PM
Hey Narcle
Just wondering when i try to run your smither it comes up with this error.
[Error] (1768:3): Unknown identifier 'ScreenShots' at line 1767
Compiling failed.
Are you able to help me or anyone else please!!!I get this in other scripts as well since the latest SRL update.
This is a global var that controls whether SRL saves a screenshot when a random is detected. Haven't looked into whether something else replaces it. I just commented it out. Worst case: It no longer saves a screenie on random detected.
superbuster4
03-07-2012, 05:33 PM
[Error] (1768:3): Unknown identifier 'ScreenShots' at line 1767
Compiling failed.
dldupree1
03-07-2012, 06:01 PM
ia m getting this error
[Hint] C:\Simba\Includes\SRL/SRL/core/text.simba(684:3): Variable 'I' never used at line 683
[Hint] C:\Simba\Includes\SRL/SRL/core/text.simba(684:3): Variable 'J' never used at line 683
[Hint] C:\Simba\Includes\SRL/SRL/core/antirandoms\beekeeper.simba(194:3): Variable 'T' never used at line 193
[Error] (1788:3): Unknown identifier 'ScreenShots' at line 1787
Compiling failed.
dldupree1
03-07-2012, 06:16 PM
thank you bro 333k til 99 smithing its working now
elmotheskaat
03-07-2012, 06:54 PM
To everyone asking about the screenshots;
Since new SRL-update, replace that line by -> SRL_RandomScreenShot := true;
XunknownX
03-07-2012, 10:22 PM
ok so title says it all idk how to script but here is my error.
[Error] (24:15): Unknown type 'TRotateObjectArray' at line 23
Compiling failed.
if you need any more info about my system or n e thing just let me know ill check back often.
XunknownX
03-07-2012, 11:07 PM
ok so i deleted the line out of the script then i get this error.
[Error] (26:14): Unknown identifier 'getNPCChatName' at line 25
Compiling failed.
i think the whole quiz random needs to be redone?
XunknownX
03-07-2012, 11:09 PM
hmm thats weird just closed simba and restarted it, and its working now....
turdburg
03-08-2012, 12:16 AM
hi well im kinda new to this i created the string Strings[2] := 'cballs';//cballs, steeltoball, steel, mith, addy, runite, iron, bronze, silver, gold but i still get a compileing error at line1767 anybody can help?
botsalot123
03-08-2012, 05:18 AM
Awesome Script, Working Perfect For Me Will Post Proggy When Im Done.
CAPMAT
03-08-2012, 03:50 PM
Sometimes script stuck for a while when it withdrow coal, it just click on coal with right click and don't choise the option to withdraw it. In 15-20 seconds it works good again.
But anyways this very very nice script.
madmanj09
03-09-2012, 01:03 AM
SMART Initialized.
Loaded: Server 1, Members: True, Signed: True, Super Detail: False.
Error: Exception: Access violation at line 101
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
can use some help please
Germanicus
03-09-2012, 09:41 AM
Hello guys, great script!
I'm having a little issue that I can't seem to figure out after reading almost all threads lol
Everything seems to be working fine in AK except when it runs over to the furnace it stops a few feet away and dot moves in a little, and that's all it does, then it runs back to bank. What's going on here??? Here's a screen capture of what I'm explaining. Thanks!
http://img256.imageshack.us/img256/1581/smelting.jpg
joshisownage
03-09-2012, 11:36 AM
making silver bars doesnt work! :s
joshisownage
03-09-2012, 11:38 AM
GERMAN probly because ur using HD use low detail LOL. SPEDDY EDDY
joshisownage
03-09-2012, 02:24 PM
wow it just doesnt work at all for me now.....?
pulse0
03-09-2012, 05:59 PM
http://i1179.photobucket.com/albums/x400/pulse0/99.png
W0000T 98 1.2m till 99!! little more then 22k more gold bars! tomorrow ill try to snap the 99 screenshot and ill post!
THANK-YOU SO MUCH
EDIT: GOT MY 99 THANKS FOR THIS FLAWLESS SCRIPT W00T
indianzflame
03-09-2012, 09:50 PM
Screenshot of: IP Log 40 Seconds
This was in the bot log, hack I presume?
Harry
03-09-2012, 10:08 PM
Screenshot of: IP Log 40 Seconds
This was in the bot log, hack I presume?
No, SRL takes a screenshot when you login. It can be ignored, it's safe.
indianzflame
03-09-2012, 10:13 PM
ok thanks for notifying me, i havent seen that message before and i got a bit worried
maxxfilth
03-10-2012, 05:19 AM
[Error] (1788:3): Unknown identifier 'ScreenShots' at line 1787
Compiling failed.
Whatmatters
03-10-2012, 10:02 AM
It's been so long since I used this, but I'm pinching pennies on cannon slaying, so here I am yet again.
I noticed that the banking is still searching for booths when it's called counter now on the edgeville side.
A few lines adjusted accordingly, and it doesn't have to resort to OpenBankNPC anymore. These are all in the EdgeOpenBank function.
FindColorsTolerance(TPA, 3424581, MSX1, MSY1, MSX2, MSY2, 3) // old = 3688009
if WaitUpText('nter', 450) then
Result := WaitOptionMulti(['Bank C', 'nk C'], 250+random(100));
The TPA color might not have needed changing, but it seemed to sort slower on the old one.
indianzflame
03-10-2012, 05:52 PM
maxxfilth just delete that line, its put there in order to prevent leechers
creedgaming
03-11-2012, 09:31 AM
Doesn't seem to find the bank or the furnace.... Trying to start the script right outside of AK... No luck...
Limoncello
03-11-2012, 06:14 PM
You, sir, are amazing! Here's a short proggy when making cannonballs in Edgy from bars:
[================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ **** | True | 01:15:03 | 23 | 0 | 2464 | 15708 | 12557 ]
[================================================== ====================]
Will port a longer one later when using ores + bag. :)
Zockuito
03-12-2012, 12:59 AM
First of all I would like to say that this is an awesome script! I will be using it for 99 crafting and 99 smithing, but I was wondering what you guys think is appropriate to bot. Like if I keep it running 24/7 (with breaks) will I get banned? What if I do 24/7 (with small breaks and having the bot sleep every 6 hours for 2 hours)? Please, any feedback would be awesome! :)
Failedpure
03-12-2012, 04:12 AM
First of all I would like to say that this is an awesome script! I will be using it for 99 crafting and 99 smithing, but I was wondering what you guys think is appropriate to bot. Like if I keep it running 24/7 (with breaks) will I get banned? What if I do 24/7 (with small breaks and having the bot sleep every 6 hours for 2 hours)? Please, any feedback would be awesome! :)
No one really knows if you will get banned. Obviously the more you bot, the more likely you are to be reported. Which will get you banned.
creedgaming
03-12-2012, 04:22 AM
[================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ Rsmi | True | 02:20:21 | 114 | 999 | 0 | 17538 | 7497 ]
[================================================== ====================]
New proggy , this script is the best thing out right now...
Kind of wish someone would make a script that uses the machine to produce bars that cuts the cost of coal in half , using the coal bag would also improve efficiency... Just a thought... I'm rich bitch! Lol... :f:
creedgaming
03-12-2012, 06:08 PM
[================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ Rsmi | True | 02:20:21 | 114 | 999 | 0 | 17538 | 7497 ]
[================================================== ====================]
New proggy , this script is the best thing out right now...
Kind of wish someone would make a script that uses the machine to produce bars that cuts the cost of coal in half , using the coal bag would also improve efficiency... Just a thought... I'm rich bitch! Lol... :f:
[================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ Rsmi | True | 05:11:47 | 267 | 2403 | 0 | 42186 | 8118 ]
[================================================== ====================]
Even better proggy I thought i'd post...
Hakala
03-12-2012, 06:28 PM
With the new random solvers, I've been able to run this script over 2 days straight using crash smart, quite epic.
I wish it wouldn't restart the progress report but what can you do :p
Currently 17m exp on other acc and other has 10m, all with this script :).
Majnoon
03-13-2012, 07:15 PM
[Error] (1788:3): Unknown identifier 'ScreenShots' at line 1787
Compiling failed.
SRL_RandomScreenShot := true;
Sytherix
03-14-2012, 12:01 AM
I hear that the Al-Kharid section is working fine so I'll give it a go during double xp and let you know how it goes.
P.S Before the SRL update I had the Edgeville one running more than 14 hours. Also, I wish everyone hadn't said how to fix screenshots - it was a really good anti-leech......................
~Sytherix
Zockuito
03-14-2012, 12:05 AM
I love this script! :D I use it everyday, and I hope to get 99 crafting with it. :) Thanks Narcle!
Devlor
03-14-2012, 10:56 AM
Awesome script, thanks! Much more efficient and doesn't randomly walk to the dock west of the bank and get stuck like another smelter script for a certain other bot client.
Thanks again.
Edit: wow this is my first post? I thought I posted here a few times before.
brother287
03-14-2012, 09:34 PM
Screenshot is mismatched in coding?
c00boes
03-15-2012, 03:26 AM
guys if you get
Unknown identifier 'ScreenShots' at line 1787
then just go to line 1787 and delete it. not that hard guys, i never scripted and deleting the crap that's screwing the script up works 1/3 of the time :P
creedgaming
03-15-2012, 05:07 AM
[================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ Rsmi | True | 05:11:47 | 267 | 2403 | 0 | 42186 | 8118 ]
[================================================== ====================]
Even better proggy I thought i'd post...
New Proggy time!
[================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ Rsmi | True | 06:46:41 | 293 | 1722 | 0 | 10701 | 1579 ]
[================================================== ====================]
Devlor
03-16-2012, 12:55 AM
FYI you have an extra 'false' in your settings array
Arrays[0] := [1, 2, true, false, '23:00', true, false, false];//Settings array
//Settings array := [1st Bankslot, 2nd Bankslot, Take-Breaks, Take-Sleeps, Sleep-Time 'hh:mm', Rest for run, Use Coal bag];
At first I was thinking "wtf it wont let me disable resting" because 'rest for run' is the 2nd to last, so I was looking at the second to last option and it was already false, but then I realized there was more things in the array that there were settings so there was an extra false at the end. Sorry I don't know the technical terms for the options and settings, I hope you know what I mean
Edit: wait, it's still resting after I got rid of the 'true' (which is the same thing as changing the 'true' to 'false' and getting rid of the extra 'false' at the end) It probably works if you're using the form, but I'm not. Is there something else I'm doing wrong?
Edit: nevvermind, I think I got it now. That 'extra' false wasn't extra, it's just for something not listed? So it was setting them back to default. So I just put the last false back and it's working now.
CephaXz
03-16-2012, 03:07 PM
couldnt smelt at edge, it says complete smelting and went back to bank without smelting anything. al kharid works great!
Darkcorn
03-16-2012, 04:35 PM
unable to make silver tiaras. it tries making them one by one (clicking on a bar then on furnance and repeat). I saw previous problems like this as well. would really like a solution to this due to double xp and having to craft 41k tiaras for 89 smithing.
kingsleyeng
03-16-2012, 09:37 PM
been using bot for a long time now 98 crafting atm
great bot would you like the screen shot of me getting 99?
klamse
03-17-2012, 06:17 AM
This script is extremely useful! Thanks so much for making it!
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ Lams | True | 02:57:47 | 83 | 747 | 2988 | 32204 | 10868 ]
[================================================== ====================]
Whatmatters
03-17-2012, 11:08 AM
Line 54:
//Settings array := [1st Bankslot, 2nd Bankslot, Take-Breaks, Take-Sleeps, Sleep-Time 'hh:mm', Rest for run, Use Coal bag];
Shouldn't it be:
//Settings array := [1st Bankslot, 2nd Bankslot, Take-Breaks, Take-Sleeps, Sleep-Time 'hh:mm', Use Coal Bag, Disable Antiban];
?
creedgaming
03-17-2012, 11:26 AM
// is comment code no?
This would be the best script out there if it could go more then 6 hours lol...
Whatmatters
03-17-2012, 11:32 AM
It's not about the functionality of the comment. The array description comment is just mislabeled. I tried setting slot 7 to true hoping to use the coalbag, but then I found out that it's actually array slot 6 that controls that.
Does this not work with CrashSmart?
Zockuito
03-17-2012, 08:13 PM
[================================================== =====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== =====================]
[ Flam | True | 06:42:52 | 266 | 0 | 7336 | 183400 | 27313 ]
[================================================== =====================]
Not bad I'd say. :)
Devlor
03-18-2012, 01:52 AM
Line 54:
//Settings array := [1st Bankslot, 2nd Bankslot, Take-Breaks, Take-Sleeps, Sleep-Time 'hh:mm', Rest for run, Use Coal bag];
Shouldn't it be:
//Settings array := [1st Bankslot, 2nd Bankslot, Take-Breaks, Take-Sleeps, Sleep-Time 'hh:mm', Use Coal Bag, Disable Antiban];
?
It's not about the functionality of the comment. The array description comment is just mislabeled. I tried setting slot 7 to true hoping to use the coalbag, but then I found out that it's actually array slot 6 that controls that.
Does this not work with CrashSmart?
It should be
//Settings array := [1st Bankslot, 2nd Bankslot, Take-Breaks, Take-Sleeps, Sleep-Time 'hh:mm', Rest for run, Use Coal bag, Disable Antiban];
Coal bag is the 7th slot, it is number 6 if you look later in the script when it is defining the options because the first one is 0 though.
I had the same problem except I was trying to set 'rest for run' to false, I posted about it on the last page.
Here is one of my many awesome proggies, it would have kept going but I just turned off my bots to play BF3
[================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ 123 | True | 08:07:15 | 411 | 3699 | 0 | 24612 | 3031 ]
[================================================== ====================]
That's about 460 steel bars an hour, I was getting around 350/hr with resting on, I think it should be off by default.
Thanks again for the script :D
kingofham
03-18-2012, 06:01 AM
[================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ **** | True | 02:18:03 | 86 | 1530 | 0 | 26775 | 11636 ]
[================================================== ====================]
c00boes
03-19-2012, 03:14 AM
The script cant find the furnace, i think it there was a minor graphic update?
Devlor
03-19-2012, 05:50 AM
The script cant find the furnace, i think it there was a minor graphic update?
It was working fine for me earlier, I just stopped a few hours ago to play BF3, I'll start botting again in another few hours to check. Do you have your graphics settings on lowest with the highest brightness?
Edit: yep, it's still working perfectly for me.
kdr145
03-19-2012, 08:32 AM
i get and error, [Error] (1788:3): Unknown identifier 'ScreenShots' at line 1787
Compiling failed.
any1 know how to fix ^.^
kimalia
03-19-2012, 05:02 PM
been using bot for a long time now 98 crafting atm
great bot would you like the screen shot of me getting 99?
yes
kimalia
03-19-2012, 05:03 PM
i get and error, [Error] (1788:3): Unknown identifier 'ScreenShots' at line 1787
Compiling failed.
any1 know how to fix ^.^
i just delete that line... and works... u dont need a screenshot anyways...
Doubles33
03-20-2012, 03:13 AM
Ill admit i am new to this, but i am interested in learning... well programming in general. besides that fact i have a problem, when i try to run the script i get a message
"Exception in Script: Plugin(libsmart32) has not been found"
what do i do? any help would be appreciated
kingsleyeng
03-20-2012, 05:41 AM
99 crafting achieved if you want to add in the original thread
hellot
03-21-2012, 01:51 AM
You are a wonderful human being and I hope you find happiness
klamse
03-21-2012, 02:04 AM
Seems like the recent updates have broken this script. Am I right? I was able to use it perfectly until today.
TeKnoSora
03-21-2012, 08:57 PM
Just comment out the screenshot line for now :p works as a simple anti leech
klamse
03-21-2012, 10:09 PM
Edit: After restarting my computer, the script worked perfectly. Love this script!
jerbear
03-22-2012, 02:00 AM
Fast and clean script! +rep
siuman101
03-22-2012, 03:28 AM
When reached the furnace, the bot should not click the furnace, instead it should select the gold bar then to the furnace. Because of this, the bot won't work, please fix.
Edit: sorry, i know whats going on now, nothing doing wrong with the bot, is just my setting problem.
Derekkkz
03-22-2012, 04:37 AM
"Error: Out Of Range at line 208
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]"
This was the error I got.
It was for this line
CheckBoxs[5].CHECKED := Arrays[0][7];//Disable Antiban
I'm relatively new at this so If i'm missing something please tell.
siuman101
03-22-2012, 11:02 AM
[Error] (1788:3): Unknown identifier 'ScreenShots' at line 1787
Compiling failed.
Can't run the script.
When i deleted this line, it comes out with this error.
Compiled successfully in 2640 ms.
SRL Compiled in 16 msec
SMART Initialized.
Loaded: Server 1, Members: True, Signed: True, Super Detail: False.
Error: Out Of Range at line 208
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
GreenMofoX
03-22-2012, 11:57 AM
[Error] (1788:3): Unknown identifier 'ScreenShots' at line 1787
Compiling failed.
Can't run the script.
When i deleted this line, it comes out with this error.
Compiled successfully in 2640 ms.
SRL Compiled in 16 msec
SMART Initialized.
Loaded: Server 1, Members: True, Signed: True, Super Detail: False.
Error: Out Of Range at line 208
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
Same with me: first the error with the screenshot; then, after I delete that line I get the same error as siuman101...
creedgaming
03-22-2012, 11:59 AM
First off I'm almost positive you guys are running Version the .3 version which if you read the patch notes theres no reason to run it has no added benefit....
Second off , didn't you guys learn in Computers 101 when something doesn't work and theres several versions to revert back to old versions and test them to see if they work?
I've had no issues other then having to reset each 6 hours...
GreenMofoX
03-22-2012, 12:08 PM
First off I'm almost positive you guys are running Version the .3 version which if you read the patch notes theres no reason to run it has no added benefit....
Second off , didn't you guys learn in Computers 101 when something doesn't work and theres several versions to revert back to old versions and test them to see if they work?
I've had no issues other then having to reset each 6 hours...
I ran both versions... the older version gives exactly the same error with the screenshot line, then after I delete that line it runs the form. Once the form is filled in I get this error:
Error: Type Mismatch at line 1805
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
and according to Simba it's because of this line:
For i := 0 to HowManyPlayers - 1 do
chief herb
03-22-2012, 07:08 PM
[Error] (1788:3): Unknown identifier 'ScreenShots' at line 1787
Compiling failed.
i got this error, deleted whole first orange line and it worked fine me for me after, will be postn a proggie:)
creedgaming
03-22-2012, 11:05 PM
I ran both versions... the older version gives exactly the same error with the screenshot line, then after I delete that line it runs the form. Once the form is filled in I get this error:
Error: Type Mismatch at line 1805
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
and according to Simba it's because of this line:
For i := 0 to HowManyPlayers - 1 do
What are you filling in? You fill nothing in , you delete the line and press start.
chief herb
03-23-2012, 05:05 AM
[================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ Tagg | True | 03:40:12 | 164 | 2934 | 0 | 51345 | 13990 ]
[================================================== ====================]
still goin strong<3
Neega Rose
03-23-2012, 05:18 AM
[================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ Adsf | True | 00:59:30 | 45 | 0 | 1232 | 30800 | 31057 ]
[================================================== ====================]
still going.
creedgaming
03-23-2012, 06:49 AM
This script if it doesn't hit a random... Will go 6 hours which is the max...
creedgaming
03-24-2012, 03:01 AM
Script is now broken ... Fails to smelt more then twice... and won't go...
demoin
03-24-2012, 11:29 AM
Script is now broken ... Fails to smelt more then twice... and won't go...
that happens to me also :/
Imanoobbot
03-24-2012, 12:37 PM
Is the script up again?
chief herb
03-24-2012, 11:13 PM
im using still?
[================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ Tagg | True | 04:05:57 | 197 | 3528 | 0 | 61740 | 15061 ]
[================================================== ====================]
creedgaming
03-25-2012, 02:22 AM
im using still?
[================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ Tagg | True | 04:05:57 | 197 | 3528 | 0 | 61740 | 15061 ]
[================================================== ====================]
Guess it was a SRL or SMART issue working again.... :sasmokin:
Coming Home
03-25-2012, 03:18 AM
Lol I just took the screenshots line thingy out :p
demoin
03-25-2012, 06:53 AM
it still happens to me...it stops after it banks 2 times
[================================================== ==================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ==================]
[ Anti | True | 00:03:34 | 2 | 0 | 8 | 160 | 2682 ]
[================================================== ==================]
SwitchToPlayer(PlayerNo: 0, Active: False);
Player is not Active...
All players not active!
NextPlayer(True)
Hakala
03-25-2012, 03:19 PM
http://i.imgur.com/u9Usq.jpg
Boom, second 99. Epic script.
nokkasiili
03-25-2012, 03:22 PM
Boom, second 99. Epic script.
Keep going my, Brotha'h
Coming Home
03-25-2012, 04:21 PM
Strings[0] := 'cballs'; //What to smith/craft? [Create string]
What do I put in here if I want to make cannonballs? I dont want to use forums.
omar84
03-25-2012, 04:47 PM
same problem as above. put in cballs but it withdraws 2 item slots instead just steel bars. i know im in the wrong, not the script
Why can't you guys just run the script without filling out any Information and just use the form when it comes up?
omar84
03-25-2012, 05:18 PM
Coz we are dummies :duh: lol. Nah i tried just running it and it was not doing cannonballs
Coming Home
03-25-2012, 05:21 PM
I don't want to use forums. I want to be able to use S.M.A.R.T Manager..
Coming Home
03-25-2012, 05:25 PM
Now mine just gets stuck at furnace clicking aimlessly around...
omar84
03-25-2012, 05:32 PM
:) nevermind i figured it out. Thanks folks
Coming Home
03-25-2012, 05:36 PM
:) nevermind i figured it out. Thanks folks
What did you do?
omar84
03-25-2012, 05:39 PM
user error lol.
Strings[0] := 'steeltoball'; //What to smith/craft? [Create string]
instead of steel to ball i had cballs. yes im ebarrassed
SamSatanas
03-27-2012, 12:38 AM
Script works great, it can run for about 6 hours. They only proble have is the "SwitchToPlayer(PlayerNo: 0, Active: True)". It logs out and then logs back in and some times it doesnt log back in at all. I am only using one account, no need to switch, not sure if there is a way to turn this off.
Kyle Undefined
03-27-2012, 12:59 PM
Nice 6 hour run :)
[================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ Dagg | True | 06:38:45 | 112 | 0 | 12544 | 79968 | 12033 ]
[================================================== ====================]
CheckBoxs[5]The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
Getting this error:Z
haxine
03-28-2012, 02:13 AM
[Hint] C:\Simba\Includes\SRL/SRL/core/mapwalk.simba(1353:3): Variable 'BOX' never used at line 1352
[Error] (1788:3): Unknown identifier 'ScreenShots' at line 1787
Compiling failed.
????????????????????????????????
Zockuito
03-28-2012, 03:56 AM
Any thought of adding a Port Phat feature considering the new update? :)
Haxine put // Before ScreenShots at line 1787 to comment it out like:
//ScreenShots := true;
Proggy:
[================================================== =====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== =====================]
[ The_ | True | 04:33:34 | 182 | 0 | 5068 | 126700 | 27788 ]
[================================================== =====================]
Frement
03-28-2012, 01:56 PM
After fixing the screenshot error and removing srl stats, the script worked flawlessly, just as I remembered :)
[================================================== ====================]
[ Nick | Active | Worked | Banked | Bars | Crafted | XP | XP/Hour ]
[================================================== ====================]
[ **** | True | 01:45:55 | 59 | 1309 | 0 | 16366 | 9270 ]
[================================================== ====================]
almosthere
03-28-2012, 05:31 PM
Great script but i had to remove srl stats too otherwise it would just log me off after a while.
Hakan75
03-28-2012, 08:05 PM
Can this script also craft after it smelted gold ores?? (all in one)
o0stacey0o
03-28-2012, 10:50 PM
[Hint] C:\Simba1111\Includes\SRL/SRL/core/mapwalk.simba(1353:3): Variable 'BOX' never used at line 1352
[Error] (1788:3): Unknown identifier 'ScreenShots' at line 1787
Compiling failed.
how do i fix this error?
GRN Poison
03-29-2012, 02:02 AM
CheckBoxs[5]The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
help please...
Neros
03-29-2012, 06:51 AM
I ran both versions... the older version gives exactly the same error with the screenshot line, then after I delete that line it runs the form. Once the form is filled in I get this error:
Error: Type Mismatch at line 1805
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
and according to Simba it's because of this line:
For i := 0 to HowManyPlayers - 1 do
This. im not filling anything in, using the form as told, once i fill the form in. get this error, any help would be appreciated tbh.
disregard what i've said above, forms are the reason i was having so much trouble anyway, once i decide to not use them, it works. lolol
o0stacey0o
03-29-2012, 09:44 AM
New Error SMART Initialized.
Loaded: Server 1, Members: True, Signed: True, Super Detail: False.
Error: Out Of Range at line 208
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
208 CheckBoxs[5].CHECKED := Arrays[0][7];//Disable Antiban
^^^^^ Anyone Please Help Me Sort This Error
Ripped
03-29-2012, 07:23 PM
Works great for me. Thanks
-
hoopla
03-30-2012, 08:11 AM
Lvl'ed from 76 to 82 in about a week, thanks so very much! I have to say that this and mormonman's Roach fighter are the best scripts I've had the pleasure of using. Thank you kindly, good sir.
this is an amazing script it inspires me to script better
Hakan75
03-30-2012, 02:00 PM
How can I set this up for crafting gold bracelets?
99 Doors
03-30-2012, 08:46 PM
im back after being gone for such a long time and i got this:
[Hint] C:\Simba\Includes\SRL/SRL/core/mapwalk.simba(1353:3): Variable 'BOX' never used at line 1352
[Error] (1788:3): Unknown identifier 'ScreenShots' at line 1787
Compiling failed.
i just redownloaded simba and this script
superbuster4
03-31-2012, 02:00 AM
it works well only it has trouble with c balls it doesn't always smith them after making steel bars.
siuman101
03-31-2012, 10:48 AM
i got this problem too....
[Hint] C:\Simba\Includes\SRL/SRL/core/mapwalk.simba(1353:3): Variable 'BOX' never used at line 1352
[Error] (1788:3): Unknown identifier 'ScreenShots' at line 1787
Compiling failed.
theadac
03-31-2012, 12:38 PM
compiling failed eror
wayiyi
03-31-2012, 01:36 PM
it cant click furnace im smelting emerald rings
Working well for me, smelting gold ore.
Salut
03-31-2012, 05:17 PM
Trying to make tiaras with it and it only makes 6 per inventory. Clicking seprately on the furnace each time instead of choosing craft all with right click.
pcelite11
04-01-2012, 01:07 AM
thanks manage to get it working
99 Doors
04-02-2012, 02:15 PM
i commented out line 1787 and it fixed the problem
Rensz
04-03-2012, 07:49 AM
dammm nice!!! not normal how good it works!! keep it up
Powered by vBulletin® Version 4.2.1 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.