how do i setup without smart? because when i remove the '//' at line 2 i get an error .
Printable View
how do i setup without smart? because when i remove the '//' at line 2 i get an error .
Just take out the {DEFINE SMART}. You will have to open the RS window though. It isn't automatic unless you put in "Activate Client" after SetupSRL.
45k smithing exp and 170k gp per hour is pretty damn good. Looks like I should start doing rune then. Thanks for the tip ;).Quote:
Originally Posted by JLV
One thing I would request in future releases is an easy option to disable the form. But otherwise, your script is perfect at what it does.
No problem buddy! It brings magic exp p/h down considerably, but if you're going for 99 smith you'll get there anyway.
Let me know how many bars p/h you get it to make. I raised mine by 100 just by taking out the coal banking.
@patduffy
Cheers buddy.
@everybody else
Not sure why the new version isn't working for you guys as mine is working fine make sure your using the new script that gets automatically downloaded ie version 0.6. And have SRL5. installed correctly will be late tonight before I can test or update any bugs or suggestions.
when I read ie version 0.6 I thought you meant IE 6.0 o.OQuote:
Originally Posted by CRU1Z1N
Lol oops I can see that myself now.Quote:
Originally Posted by miketree
But is my auto updating version working or not.... Its working perfect for me.
This script doesnt seem to work for me, firstly it doesnt open a client and when i open a client it can't detect it and says "Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now."
read the first post on how to setup mate you will find your problem there
Here's a quick fix for people having problems with the SRL5 Script (Latest)
This is for Steel bars without coal bag only. If you need this for something else, insert the WithdrawEx Function where needed.
Quote:
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);
GetCoal;
end;
if (UseCoalBag.Text='no') then
begin
Withdraw(0,0,9);
WithdrawEx(1,0,0,['coal', 'oal']);
end;
end;
Sorry people are experiencing problems with my newest version I just expected everyone to keep up to date with the newest simba and srl.
Everything is working perfect for me but I do plan on making some changes this week.
90 smithing! Only about 7 more days.
Been running this beauty 24/7, wonder if I'll get banned before 99.
wont think so...... well i hope so
but anyway nice :P
:edit hope not i meant lol
Still having problems with the newest version, I have everything updated fully (SRL, Simba, etc).
I even made sure i had the absolute latest version of your script by going to the download URL in the source that the autoupdater uses. Still just hovers over the coal bag and coal for me. Verson .5a is still pretty functioning though.
I have the same problem. idk whyQuote:
Originally Posted by Reminisce
Just hovers over coalbag for me even tho i have it selected to use coalbag.
i dont know how many times i need to explain im kinda getting frustrated with the same question now please update you simba and SRL to the latest version SRL5 if that doesnt work you have don something wrong try uninstalling then reinstalling im using this with a freshly installed and updated version of simba and i have no problems what so eva
Why don't you just modify it (takes 15-60 seconds)...Quote:
Originally Posted by Reminisce
Got a 6 hour proggy last night using withdrawex ^^ excellent cruizin.
too lazy to learn i guess ty for trying to help themQuote:
Originally Posted by miketree
Mine is update to date lol. I dont have any other problems with the other SRL5 scripts.
.5a works fine for me but the new one just sits over coal bag. Re-downloaded the script and still same problem.
Works with the fix without coal bag but without coal bag its pointless lol
super heating mithril bars not working for me :S
anyone else facing this problem??
send me the version that gets downloaded when you run the new scriptQuote:
Originally Posted by Itankbots
K. Went dungeonering couple hours. came back and it said new version. so downloaded and opened new version. but when i run that it still says this...
Checking for script updates...
0.6a
0.6
Newer script version online!
Autoupdating to newer version.
New script downloaded to C:\Simba\Scripts\UltraSteelCoalBagHeater V0.6aBy CRU1Z1N.simba!! Please use this one!!
Successfully executed.
But im already running UltraSteelCoalBagHeater V0.6aBy CRU1Z1N that version. :s closed simba, reopened and tried again. still get it =/
Thats the script that comes up when i load the latest (.6a), that wont let me even run it. just compiles and says get the newer version...but that is the newer one :sCode:program SuperHeater;
{$I SRL/SRL/misc/smart.simba}
{$I SRL/SRL.simba}
{$DEFINE SRL5}
const
BnkTab = 2;
Mspeed = 18;
ScriptVersion = '0.6';
UseAutoChecker = true;
var
frmDesign: TForm;
Button1: TButton;
Label1: TLabel;
UseCoalBag,WhatBank,BarType: TComboBox;
Pinn,Pass,UsrName,Profit,HowManyBars: TEdit;
ItemNum2,iProfit,Tri,iHowManyBars,sx,sy,BarsMade, SupaHeatDTM, Bars: Integer;
Debug:string;
procedure AutoUpdateMe;
var Neifile:integer;
OnlineVersion, NewScript, NeiFeilNennen:string;
begin
if UseAutoChecker then
begin
writeln('Checking for script updates...');
OnlineVersion := GetPage('http://cru1z1nsscripts.googlecode.com/git/LatestVersion.txt');
writeln(OnlineVersion);
writeln(ScriptVersion)
if (trim(OnlineVersion) > ScriptVersion) then
begin
writeLn('Newer script version online!');
writeLn('Autoupdating to newer version.');
NewScript := GetPage('http://cru1z1nsscripts.googlecode.com/git/UltraSteelCoalBagHeater.simba');
NeiFeilNennen := ScriptPath+ 'UltraSteelCoalBagHeater V'+OnlineVersion+'By CRU1Z1N.simba';
Neifile := Rewritefile(NeiFeilNennen, true);
try
WriteFileString(Neifile, NewScript);
except
begin
writeLn('Fatal error writing to '+NeiFeilNennen+'!!');
terminatescript;
end;
end;
CloseFile(Neifile);
writeLn('New script downloaded to '+NeiFeilNennen+'!! Please use this one!!');
TerminateScript;
end else
writeLn('You have the latest version of the script!');
end else
WriteLn('!!!!! Not checking for latest version, you may be outdated!');
end;
procedure SetupPlayers;
begin
NumberOfPlayers(1);
CurrentPlayer := 0;
Players[0].Name := UsrName.Text;
Players[0].Pass := Pass.Text;
Players[0].Pin := Pinn.Text;
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 := 660;
frmDesign.Height := 200;
frmDesign.Caption := 'CRU!Z!NS Ultra 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 := 370;
Label1.Caption := 'UserName?';
Label1 := TLabel.Create(FrmDesign);
Label1.Parent := FrmDesign;
Label1.Top := 90;
Label1.Left := 370;
Label1.Caption := 'Password?';
Label1 := TLabel.Create(FrmDesign);
Label1.Parent := FrmDesign;
Label1.Top := 120;
Label1.Left := 370;
Label1.Caption := 'Bank Pin?';
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?';
UsrName := TEdit.Create(FrmDesign);
UsrName.Parent := FrmDesign;
UsrName.Top := 60;
UsrName.Left := 460;
UsrName.Width := 100;
UsrName.Height := 20;
Pass := TEdit.Create(FrmDesign);
Pass.Parent := FrmDesign;
Pass.Top := 90;
Pass.Left := 460;
Pass.Width := 100;
Pass.Height := 20;
Pinn := TEdit.Create(FrmDesign);
Pinn.Parent := FrmDesign;
Pinn.Top := 120;
Pinn.Left := 460;
Pinn.Width := 100;
Pinn.Height := 20;
Profit := TEdit.Create(FrmDesign);
Profit.Parent := FrmDesign;
Profit.Top := 60;
Profit.Left := 135;
Profit.Caption := '100';
Profit.Width := 60;
Profit.Height := 20;
HowManyBars := TEdit.Create(FrmDesign);
HowManyBars.Parent := FrmDesign;
HowManyBars.Top := 90;
HowManyBars.Left := 135;
HowManyBars.Caption := '1000';
HowManyBars.Width := 60;
HowManyBars.Height := 10;
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 := 'no';
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 GetCoal;
begin
repeat
MouseBox(85, 95, 108, 113, Mouse_Right);
until(WaitOptionMulti(['ithdraw-All', 'w-A'], RandomRange(250,500)))
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);
GetCoal;
end;
if (UseCoalBag.Text='no') then
begin
Withdraw(0,0,9);
GetCoal;
end;
end;
2:begin //mith bar
if (UseCoalBag.Text='yes') then
begin
Withdraw(0,0,10);
GetCoal;
end;
if (UseCoalBag.Text='no') then
begin
Withdraw(0,0,5);
GetCoal;
end;
end;
3:begin //addy bar
if (UseCoalBag.Text='yes') then
begin
Withdraw(0,0,7);
GetCoal;
end;
if (UseCoalBag.Text='no') then
begin
Withdraw(0,0,4);
GetCoal;
end;
end;
end;
end;
Procedure OpenSwBank;
var bnkT,x,y:integer;
begin
bnkT:=0;
MarkTime(bnkT);
repeat
wait(0);
until (TimeFromMark(bnkT) > 35000) or (FindObjCustom(x,y,['Bank','nk ch','k che','est'], [2963780,10790316,10000542,5921374],3))
if(TimeFromMark(bnkT) > 35000)then
begin
Writeln('failed Banking sorry.......');
exit;
end;
Mouse(x,y,1,1,true);
end;
procedure DoBanking;
var
Tic:integer;
sm:TInvenItem;
begin
Tic:=0;
Tri:=0;
MarkTime(Tic);
if not(LoggedIn) then
begin
Exit;
end;
if(WhatBank.Text = 'sw')then
begin
OpenSwBank;
end else
// if OpenBankNPC then
if (OpenBank(WhatBank.Text, False, False))then
//ChooseOption('e-q');
// if (not (OpenBank(WhatBank.Text, False, False)))then exit;
Tic:=0;
MarkTime(Tic);
repeat
until(BankScreen) or(TimeFromMark(Tic) > 35000) or (PinScreen)
if(TimeFromMark(Tic) > 35000)then
begin
if (Tri < 2) then
begin
DoBanking;
Inc(Tri);
end else
Writeln('failed Banking sorry.......');
exit;
end;
If Pinscreen then
begin
InPin(Pinn.Text);
end;
Deposit(3,26,true);
MouseSpeed:= (Mspeed + RandomRange(-1, 3));
if not CurrentBankTab = 2 then
begin
BankTab(BnkTab);
end;
if (UseCoalBag.Text='yes') then //for coal bag
begin
MouseBox(85, 95, 108, 113, Mouse_Right);
WaitOptionMulti(['ithdraw-All', 'w-A'], RandomRange(250,500));
Tic:=0;
MarkTime(Tic);
repeat
sm := GetInven(2);
MouseBox(sm.ItemBox.X1,sm.ItemBox.Y1,sm.ItemBox.X2,sm.ItemBox.Y2,Mouse_Right);
until(ChooseOption('ll')or (TimeFromMark(Tic) >= 25000))
{for i := 6 to 8 do
if FindChatBoxText('y co',8,0)then
begin
Deposit(3,27,true);
end; }
if(TimeFromMark(Tic) >= 25000)then
begin
Writeln('failed Fill sorry.......');
exit;
end;
end;
Bnk;
while CloseBank do
begin
MouseSpeed := (Mspeed + RandomRange(-1, +3));
end;
end;
procedure proggy;
begin
cleardebug;
writeln(PadR('[--------------- Cru!z!ns Ultra SuperHeater 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) + ']');
WriteLn(PadR('[Making : ' + FloatToStr(Round((BarsMade * 3600) / (GetTimeRunning / 1000))) + ' Bars/ph', 50) + ']');
writeln(PadR('[Debug '+Debug+'', 50) + ']');
end;
procedure DoSmelting(ItemNum,NumBars:integer);
var
sm: TInvenItem;
t,Tic:integer;
begin
ItemNum2:=ItemNum;
SupaHeatDTM := DTMFromString('mbQAAAHicY2VgYJjLxMAwE4inA/EiIF4MxOWMDAxlQFwHxDVAXAnEsoxMDHqMzAx2TMxgGoSxAUYsGAwAHzIGhQ==');
if not(LoggedIn) then Exit;
MouseSpeed:= (Mspeed+RandomRange(-2,+3));
GameTab(tab_magic);
t:=0;
MarkTime(Tic);
repeat
repeat
until (FindDTM(SupaHeatDTM,sx,sy,MIX1,MIY1,MIX2,MIY2) or(TimeFromMark(Tic) > 17000))
if(TimeFromMark(Tic) > 17000)then
begin
exit;
end;
Mouse(sx,sy,2,2,true);
wait(RandomRange(50,100));
repeat
wait(4);
inc(t);
until(GetCurrentTab = tab_inv )or (t > 8000)
if LevelUp then
begin
ClickToContinue;
end;
FindNormalRandoms;
sm := GetInven(ItemNum2);
MouseBox(sm.ItemBox.X1,sm.ItemBox.Y1,sm.ItemBox.X2,sm.ItemBox.Y2,Mouse_Left);
t:=0;
MarkTime(Tic);
repeat
if LevelUp then
begin
ClickToContinue;
end;
until((TimeFromMark(Tic) > 15000))or(GetCurrentTab = tab_magic)
if(TimeFromMark(Tic) > 15000)and not(GetCurrentTab = (tab_magic))then
begin
GameTab(tab_magic);
end;
inc(Bars);
inc(BarsMade);
proggy;
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;
Tri:=0;
FindNormalRandoms;
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;
3:begin //addy
if (UseCoalBag.Text='yes') then
begin
DoSmelting(9,7);
end else
DoSmelting(5,4);
end;
end;
until (BarsMade>=iHowManyBars);
end;
begin
AutoUpdateMe;
SafeInitForm;
SafeShowFormModal;
ClearDebug;
Smart_Server := 10;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
SetupPlayers;
ActivateClient;
Debug:='none';
if not LoggedIn then LogInPlayer;
SetAngle(SRL_ANGLE_HIGH);
ClearDebug;
wait(1000);
Main;
Freeform(frmDesign);
end.
Sorry mate not trying to be a pain with the problem, jsut trying to help out.
delete that version it downloaded and run the script again use the next version it downlaods
Ahhhh i feel so stuipd for not trying that. Thanks. the new version works with coal bag :)
Over tired and didnt think of that lol. thank you.
SCAR Code:[--------------- Cru!z!ns Ultra SuperHeater Smelter --------------]
[ Ran for 4 Hours, 30 Minutes and 23 Seconds]
[Magic xp : 350701 ]
[Magic : 77823 Mage XP/Hr ]
[Smith : 24962 Smith XP/Hr ]
[Profit : 86633 Gp/Hr ]
[Profit Made : 390403 ]
[Bars made : 6617 ]
[Making : 1468 Bars/ph ]
[Debug none ]
Great script thank you very much :), using coal bag and shortened some of the waiting times to try and get a bit more mage xp worked a treat.
* I change line 422 to S instead of N and the banking procedure is much more stable as I found it never failed or clicked on Nomad.
Thank you; newest version works. Plan on using this to 99 mage at least, and possibly 99 smithing.
Ahh, the latest update has been working for me, proggy in the morning ^.^ it's a shame coal and iron are never dropping at the same time. It's either one or the other is pricey lol
[ Ran for 5 Hours, 27 Minutes and 19 Seconds]
[Magic xp : 371212 ]
[Magic : 68046 Mage XP/Hr ]
[Smith : 21826 Smith XP/Hr ]
[Profit : 64194 Gp/Hr ]
[Profit Made : 350200 ]
[Bars made : 7004 ]
[Making : 1283 Bars/ph ]
[Debug none ]
Works nicely
glad you guys are working again planning on rewriting this on the weekend... is very sloppy i tinks
Progress Report:[--------------- Cru!z!ns Ultra SuperHeater Smelter --------------] [ Ran for 4 Hours, 53 Minutes and 16 Seconds] [Magic xp : 424371 ] [Magic : 86822 Mage XP/Hr ] [Smith : 27848 Smith XP/Hr ] [Profit : -80270 Gp/Hr ] [Profit Made : 800700 ] [Bars made : 8007 ] [Making : 1638 Bars/ph ] [Debug none ]
Ended because I ran out of ores. I also didn't calculate profit so ignore that.
EDIT: Would be cool if you added srl stats :D
yeah iv'e got around 37k steel bars to smelt into ballsQuote:
Originally Posted by doublex8
[Magic xp : 471223 ]
[Magic : 82743 Mage XP/Hr ]
[Smith : 26540 Smith XP/Hr ]
[Profit : -53370 Gp/Hr ]
[Profit Made : 889100 ]
[Bars made : 8891 ]
[Making : 1561 Bars/ph ]
[Debug none ]
And after tweaking her a bit :P
[Magic xp : 29256 ]
[Magic : 96096 Mage XP/Hr ]
[Smith : 30823 Smith XP/Hr ]
[Profit : 181313 Gp/Hr ]
[Profit Made : 55200 ]
[Bars made : 552 ]
[Making : 1813 Bars/ph ]
[Debug none ]
92 smithing! :) For some reason my Bars per hour has dropped from 950 to 850, but she's still running strong.
Just something I noticed while watching the script run. In SW I noticed that if you are facing the chest is clicks the lower left corner of the chest. Sometimes that Nomad dude will be standing right next to you when this happens and it initiates a convo with him him. Just something I observed.
Yeah, I couldn't figure out how to fix that. I believe it's because the script uses the white rim around the chest as the color, and he shares that color. It should check for "bank" or whatever, but sometimes it clicks too fast and ends up talking to him.
This isn't a huge deal, but it takes quite a while to then open the bank successfully. I lowered some wait time, can't remember where and I can't be bothered to look right now. But it basically solved the problem and brought me back up to my 950 bars per hour.
[--------------- Cru!z!ns Ultra SuperHeater Smelter --------------]
[ Ran for 5 Hours, 14 Minutes and 14 Seconds]
[Magic xp : 371212 ]
[Magic : 70879 Mage XP/Hr ]
[Smith : 22734 Smith XP/Hr ]
[Profit : 66867 Gp/Hr ]
[Profit Made : 350200 ]
[Bars made : 7004 ]
[Making : 1337 Bars/ph ] <-- lol at bars per hr
[Debug none ]
Successfully executed.
Spiffed her up a bit ^^
[Magic xp : 173151 ]
[Magic : 105508 Mage XP/Hr ]
[Smith : 33842 Smith XP/Hr ]
[Profit : 199072 Gp/Hr ]
[Profit Made : 326700 ]
[Bars made : 3267 ]
[Making : 1990 Bars/ph ]
[Debug none ]
1337 proggy for leet script ;) nice prog mateQuote:
Originally Posted by Itankbots
@mike your bph is crazy don't release any of your edits please ;)
I've toned it down to help prices