just update added support for soulwars bank now check out first post
also i as i don't have coal bag so need some testers
Edit please re download had a lil bug
Printable View
just update added support for soulwars bank now check out first post
also i as i don't have coal bag so need some testers
Edit please re download had a lil bug
Take this one CRU1Z1N:
http://i41.tinypic.com/35mppo4.jpg
cheers lol please re download again my bad i saved over wrong file :(
Edit: Made a soul wars bank procedure for nothing :P
Didn't see you had one LOL
Yeah finally remembered to add it overwritten my file before i posted it working one is up now tho :D :D
Okay, so I range it and set it up to bank at SW, and it clicks below the bank so it can't detect the bank, so it logged out
try the new version i just said then i overwritten the wrong file before i uploaded there was quite afew bugs
Everytime I try and run it is automatically says "Successfully Executed" and that's it. I'm not sure what to do. Also there was something about Admin Bitmap or something being missing
Latest version was broken for me, but I fixed it, if anyone else is having issues I would suggest trying this.
I take no credit for this, just edited down the superheating process a bit so it would work lol
Quote:
program SuperHeater;
{$I SRL/SRL/misc/smart.scar}
{$I SRL/SRL.scar}
const
BnkTab = 2;
Mspeed = 18;
// 'feb' (Falador East Bank)
// 'fwb' (Falador West Bank)
// 'veb' (Varrock East Bank)
// 'vwb' (Varrock West Bank)
// 'db' (Draynor Bank)
// 'eb' (Edgeville Bank)
// 'akb' (Al-Kharid Bank
var
frmDesign: TForm;
Button1: TButton;
Label1: TLabel;
UseCoalBag,WhatBank,BarType: TComboBox;
Profit,HowManyBars: TEdit;
iProfit,iHowManyBars,Tic,TBarType,sx,sy,BarsMade, SupaHeatDTM, Bars: Integer;
sm: TInvenItem;
procedure SetupPlayers;
begin
NumberOfPlayers(1);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Active := True;
end;
Procedure ButtonClick(Sender: TObject);
Begin
frmDesign.ModalResult:= mrOk;
iHowManyBars:= StrToInt(HowManyBars.Text);
iProfit:= StrToInt(Profit.Text);
End;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 100;
frmDesign.Top := 100;
frmDesign.Width := 360;
frmDesign.Height := 200;
frmDesign.Caption := 'CRU!Z!NS STEEL SUPERHEATER +CoalBag!';
frmDesign.Color := 1380316;
frmDesign.Font.Color := ClBlack;
frmDesign.Font.Name := 'Comic Sans MS';
Button1 := TButton.Create(FrmDesign);
Button1.Parent := FrmDesign;
Button1.Left := 260;
Button1.Top := 60;
Button1.Height := 100;
Button1.Width := 100;
Button1.Caption := 'Run Script';
Button1.OnClick := @ButtonClick;
Label1 := TLabel.Create(FrmDesign);
Label1.Parent := FrmDesign;
Label1.Top := 60;
Label1.Left := 10;
Label1.Caption := 'Profit per bar?';
Label1 := TLabel.Create(FrmDesign);
Label1.Parent := FrmDesign;
Label1.Top := 90;
Label1.Left := 10;
Label1.Caption := 'How Many Bars?';
Label1 := TLabel.Create(FrmDesign);
Label1.Parent := FrmDesign;
Label1.Top := 120;
Label1.Left := 10;
Label1.Caption := 'Use CoalBag?';
Label1 := TLabel.Create(FrmDesign);
Label1.Parent := FrmDesign;
Label1.Top := 150;
Label1.Left := 10;
Label1.Caption := 'Where to bank?';
Profit := TEdit.Create(FrmDesign);
Profit.Parent := FrmDesign;
Profit.Top := 60;
Profit.Left := 135;
Profit.Width := 60;
Profit.Height := 20;
HowManyBars := TEdit.Create(FrmDesign);
HowManyBars.Parent := FrmDesign;
HowManyBars.Top := 90;
HowManyBars.Left := 135;
HowManyBars.Width := 60;
HowManyBars.Height := 10;
{ UseCoalBag := TEdit.Create(FrmDesign);
UseCoalBag.Parent := FrmDesign;
UseCoalBag.Top := 120;
UseCoalBag.Left := 135;
UseCoalBag.Width := 60;
UseCoalBag.Height := 4;}
BarType := TComboBox.Create(FrmDesign);
BarType.Parent := FrmDesign;
BarType.Top := 10;
BarType.Left := 10;
BarType.Width := 350;
BarType.Height := 20;
BarType.Caption := 'BarType';
BarType.Items.Add('iron');
BarType.Items.Add('steel');
BarType.Items.Add('mith');
BarType.Items.Add('addy');
BarType.Items.Add('rune-Comingsoon');
UseCoalBag := TComboBox.Create(FrmDesign);
UseCoalBag.Parent := FrmDesign;
UseCoalBag.Top := 120;
UseCoalBag.Left := 135;
UseCoalBag.Width := 100;
UseCoalBag.Height := 20;
UseCoalBag.Caption := 'Choose';
UseCoalBag.Items.Add('yes');
UseCoalBag.Items.Add('no');
WhatBank := TComboBox.Create(FrmDesign);
WhatBank.Parent := FrmDesign;
WhatBank.Top := 150;
WhatBank.Left := 135;
WhatBank.Width := 100;
WhatBank.Height := 20;
WhatBank.Caption := 'WhatBank';
WhatBank.Items.Add('vwb');
WhatBank.Items.Add('veb');
WhatBank.Items.Add('fwb');
WhatBank.Items.Add('feb');
WhatBank.Items.Add('db');
WhatBank.Items.Add('sw');
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
procedure Bnk;
begin
case BarType.ItemIndex of
0: Withdraw(0,0,28);//iron bar
1:begin //steel bar
if (UseCoalBag.Text='yes') then
begin
Withdraw(0,0,17);
MouseBox(85, 95, 108, 113, 2);
WaitOptionMulti(['ithdraw-All', 'w-A'], RandomRange(250,500));
end else
if (UseCoalBag.Text='no') then
begin
Withdraw(0,0,9);
MouseBox(85, 95, 108, 113, 2);
WaitOptionMulti(['ithdraw-All', 'w-A'], RandomRange(250,500));
end;
end;
2:begin //mith bar
if (UseCoalBag.Text='yes') then
begin
Withdraw(0,0,9);
MouseBox(85, 95, 108, 113, 2);
WaitOptionMulti(['ithdraw-All', 'w-A'], RandomRange(250,500));
end else
if (UseCoalBag.Text='no') then
begin
Withdraw(0,0,5);
MouseBox(85, 95, 108, 113, 2);
WaitOptionMulti(['ithdraw-All', 'w-A'], RandomRange(250,500));
end;
end;
end;
end;
Procedure OpenSwBank;
var DTM,x,y:integer;
begin
DTM := DTMFromString('mLgAAAHicY2JgYJACYkEgFoLSf81UGYrSIh j4gWwQZoJiBgYASTAC+w==');
MarkTime(Tic);
repeat
wait(0);
until FindDTM(DTM,x,y,240,98,277,186) or(TimeFromMark(Tic) > 15000) or (FindObjCustom(x,y,['Bank','nk ch','k che','est'], [2963780,10790316,10000542,5921374],3))
if(TimeFromMark(Tic) >= 15000)then
begin
writeln('failed Banking sorry.......');
LogOut;
TerminateScript;
end;
Mouse(x,y,1,1,true);
FreeDTM(DTM);
end;
procedure DoBanking;
var
Tri,Tic:integer;
begin
Tri:=0;
MarkTime(Tic);
if not(LoggedIn) then Exit;
if(WhatBank.Text = 'sw')then
begin
OpenSwBank;
end else
if (OpenBank(WhatBank.Text, False, False))then
if (not (OpenBank(WhatBank.Text, False, False)))then
begin
if GetTimeRunning < Tic + 15000 then
begin
DoBanking;
end else
writeln('failed Banking sorry.......');
TerminateScript;
end;
MarkTime(Tic);
repeat
wait(0);
until (BankScreen) or(TimeFromMark(Tic) > 15000)
if(TimeFromMark(Tic) >= 15000)then
begin
if (Tri < 2) then
begin
DoBanking;
Inc(Tri);
end else
writeln('failed Banking sorry.......');
LogOut;
TerminateScript;
end;
Deposit(3,27,true);
MouseSpeed:= (Mspeed + RandomRange(0, +3));
if not CurrentBankTab = 2 then
begin
BankTab(BnkTab);
end;
if (UseCoalBag.Text='yes') then //for coal bag
begin
MouseBox(85, 95, 108, 113, 2);
WaitOptionMulti(['ithdraw-All', 'w-A'], RandomRange(250,500));
repeat
sm := GetInven(2);
MouseBox(sm.ItemBox.X1,sm.ItemBox.Y1,sm.ItemBox.X2 ,sm.ItemBox.Y2,2);
until(ChooseOption('ll')or (TimeFromMark(Tic) >= 25000))
if(TimeFromMark(Tic) >= 15000)then
begin
writeln('Failed to fill CoalBag.!')
LogOut;
TerminateScript;
end;
Bnk;
end;
while CloseBank do
begin
MouseSpeed := (Mspeed + RandomRange(-1, +3));
end;
end;
procedure proggy;
begin
cleardebug;
writeln(PadR('[--------------- Cru!z!ns Steel Smelter --------------', 50) + ']');
writeln(PadR('[ Ran for '+TimeRunning+'', 50) + ']');
WriteLn(PadR('[Magic xp : ' + IntToStr(BarsMade*53), 50) + ']');
WriteLn(PadR('[Magic : ' + FloatToStr(Round((BarsMade*53 * 3600) / (GetTimeRunning / 1000))) + ' Mage XP/Hr', 50) + ']');
WriteLn(PadR('[Smith : ' + FloatToStr(Round((BarsMade*17 * 3600) / (GetTimeRunning / 1000))) + ' Smith XP/Hr', 50) + ']');
WriteLn(PadR('[Profit : ' + FloatToStr(Round((BarsMade*iProfit * 3600) / (GetTimeRunning / 1000))) + ' Gp/Hr', 50) + ']');
WriteLn(PadR('[Profit Made : ' +IntToStr(BarsMade*iProfit), 50) + ']');
writeln(PadR('[Bars made : '+IntToStr(BarsMade)+'', 50) + ']');
end;
procedure DoSmelting(ItemNum,NumBars:integer);
var
sm: TInvenItem;
t:integer;
begin
Status('Smelting!');
SupaHeatDTM := DTMFromString('mbQAAAHicY2VgYOBgZmAQAGI+IGYBYkYgvs bEwHABiG8A8U0gvgTE715vYNADStoxQTCIjQ0wYsFgAAAxQwfr ');
if not(LoggedIn) then Exit;
MouseSpeed:= (Mspeed+RandomRange(-2,+3));
GameTab(tab_magic);
repeat
t:=0;
repeat
if((t>=1000)and not(GetCurrentTab = tab_magic))then
begin
GameTab(tab_magic);
end;
inc(t);
wait(4);
until(FindDTM(SupaHeatDTM,sx,sy,556,211,708,424))
t:=0;
Mouse(sx,sy,2,2,true);
wait(RandomRange(50,100));
if (ExistsItem(ItemNum))then
while not GetCurrentTab = tab_inv do
begin
wait(4);
inc(t);
if(t>=1000)and (not GetCurrentTab = tab_magic)then
begin
DoSmelting(ItemNum,NumBars);
end;
end;
sm := GetInven(ItemNum);
MouseBox(sm.ItemBox.X1,sm.ItemBox.Y1,sm.ItemBox.X2 ,sm.ItemBox.Y2,1);
proggy;
inc(Bars);
inc(BarsMade);
// AntiBan;
Until(Bars>=NumBars);
MouseSpeed:= (Mspeed+RandomRange(-1,+3));
FindNormalRandoms;
FreeDTM(SupaHeatDTM);
end;
Procedure Main;
begin
MakeCompass('n');
repeat
MouseSpeed := (Mspeed + RandomRange(-1, +3));
DoBanking;
Bars:=0;
case BarType.ItemIndex of
0:DoSmelting(28,26);// iron
1:begin //steel
if (UseCoalBag.Text='yes') then
begin
DoSmelting(19,17);//
end else
DoSmelting(10,9);//
end;
2:begin //mith
if (UseCoalBag.Text='yes') then
begin
DoSmelting(12,10);//
end else
DoSmelting(6,5);//
end;
2:begin //addy
if (UseCoalBag.Text='yes') then
begin
DoSmelting(9,7);//
end else
DoSmelting(5,4);//
end;
end;
until (BarsMade>=iHowManyBars);
end;
begin
SafeInitForm;
SafeShowFormModal;
ClearDebug;
Smart_Server := 10;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
SetupPlayers;
ActivateClient;
if not LoggedIn then LogInPlayer;
SetAngle(true);
ClearDebug;
Main;
end.
Thanks <3.Quote:
Originally Posted by CRU1Z1N
If it works well I'll post a 4+ hour proggy in 4+ hours (:
edit: v. 0.3a seems to have some flaws.
I'm running it at SW bank doing steel bars, first run it stopped after 14 minutes for no reason, it said "script executed", I did not use SMART.
2nd run I used smart and it logged off after 4 minutes.
3rd run I used smart and it logged off while I wrote this..
Hey I made a post with a fix to this issue right above yours. It will still work at soul wars and with a coal bag ect, the bug with in the superheating and I stripped that down significantly.Quote:
Originally Posted by Mailandes
Thanks, I'll look over the code and try it out ASAP!Quote:
Originally Posted by quazzymodem
_____
I'm getting
After logging in, I assume I'm missing some plugin..Code:formWriteln: Error: Exception: FindDTMs: DTM[] is not valid. at line 210
formWriteln: The following DTMs were not freed: [SRL - Lamp bitmap, 1, 2]
formWriteln: The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admi
n bitmap]
Can you help me on that?
I installed this: http://villavu.com/forum/showthread.php?t=68112
But still getting the same error.
I'll keep figuring out myself though.
_____
Can't figure it out, even though the content in line 210 is the same as in the orignal, using DTM too..
Sorry guys for now please use my first version or wateva last version worked for you while you wait will have this sorted out tonight or you can use Tickky's. Not as fast but runs nice and long
not working for me for more then 15 mins
longest mine runs for is 26 ins atm don't have a clue what was wrong but i've rewritten the smelting procedure testing now will update soon
please do so make Soul Wars highest priority fix because its most used place i would say
Waiting for update the other superheat script fails lol
Oh, thanks :D!Quote:
Originally Posted by illuminatiswag
Not talking about yours havent tryed yours talking about this other one i just noticed hasnt been updated in over half a year lolQuote:
Originally Posted by Tickyy
All should be working great now reverted back to older smelting procedure will update with new along with many other things soon sorry about the wait...............
running again lets see if it can run for hours now
Ran for 15 Minutes and 20 Seconds
still bugged up :p
At VWB It opens the bank, closes and attempts to superheat... nothing? anyways its pretty bugged
Can you please post what happens to make it stop does the script log u out doest it just crash and leave you logged?
Sorry is there a bank pin I could enter, or add one, as I have a bank pin. What is the version upload all about, which is the latest version or the best? v3?
I manually stop the script because It opens up the bank as if it is going to withdraw the ores but instead of withdrawing them it just opens the bank, sits there for a 2 second delay or so, closes the bank; clicks on the magic book, clicks superheat and hovers over an empty inventory spot as there is no ores in my inventory.
Quote:
Originally Posted by sckwarrior
I have the exact same issue, sadly there doesn't seem to be any other script like this out there so I guess we will have to wait for an update.
Edit: looks like I've fixed the bugs all ready for testers
Nextime be for pacific like what bars you where using if you where using coalbag or not helps me finds and fix them faster.
ok will do appreciate your dedication to the script youve updated in 1 day more times then others do in weeks lol <3Quote:
Originally Posted by CRU1Z1N
You should add failsafes w/e its called incase it messes up it just emptys coal bag and inv other then nats and coal bag and restarts
been running almost 30 minutes working perfect now will post a 3hour+ proggy in about 2 hours 30 minutes wish me luck ^.^
version 3c seem to have the same banking issue a earlier version had (meaning that it closes the bank after withdrawing coal and restarts the bank procedure, i described it more clearly a few pages back) The fixed version of 3a that I posted a while back still seems to be working like a champ though, and thats at sw or veb havnt tried any other places.
Cru1z1n - Any hope for adding rune bars soon? My account is on the verge of being able to make those and the profit looks insane :) not to mention the xp!
my bot is working flawlessly so far 1 hour 15 minutes doing steel bars in SW
Well i jynxed myself still this is more progress then 15 minutes
[--------------- Cru!z!ns Steel Smelter --------------]
[ Ran for 1 Hours, 16 Minutes and 32 Seconds]
[Magic xp : 109922 ]
[Magic : 86175 Mage XP/Hr ]
[Smith : 27641 Smith XP/Hr ]
[Profit : 325191 Gp/Hr ]
[Profit Made : 414800 ]
[Bars made : 2074 ]
[Debug none ]
Successfully executed.
Trying again
Sorry bud i did get that problem when not using Coalbag but i fixed that in latest version well thought i did is anyone else having this issue?Quote:
Originally Posted by quazzymodem
No but my bot is still randomly stopping
yeah i removed alot just to get it working for you guys i will be releasing a stable version in the next couple of days
Ill be done within 2 days but ill prolly just get it on all 3 accounts of mine for the profit lol.
any reason why it wont run for long periods of times ?
[--------------- Cru!z!ns Steel Smelter --------------]
[ Ran for 1 Hours, 12 Minutes and 11 Seconds]
[Magic xp : 101760 ]
[Magic : 84584 Mage XP/Hr ]
[Smith : 27130 Smith XP/Hr ]
[Profit : 196300 Gp/Hr ]
[Profit Made : 236160 ]
[Bars made : 1920 ]
Successfully executed.
Just did that with my edited version, havnt checked why it stopped yet. Last night had a good 3 hour run with it too.
Wish it would go all the way till update :(
mmm bot is working for me now. My only suggestion is that its TOO fast. Like no actual player could open the magic window and select superheat that fast. Same thing with the bank. I would put some small random delays in for each action, not very large but large enough to make it more player-like.
Mark you can input your own mouse speed
oh ok that's cool.Quote:
Originally Posted by illuminatiswag
around wear you put your tab spot it asks mouse speed too i think higher the number the slowerQuote:
Originally Posted by marksteele
working great thanks :) I only seem to have one problem. The problem so far is it clicks to fast and one time the click on superheat does not register so it waits for the inv screen to some up and gets stuck