Thanks for clearing it all up for me
Thanks for clearing it all up for me
I got hacked from this..user beware..you will be hacked if you use this script.
Send SMS messages using Simba
Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!
Well i got hacked because of this, im pretty sure. I lost everything..
Yes really..you idiot..i lost everything i had..
Send SMS messages using Simba
Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!
You're an idiot you faggot, i don't get how i can get hacked right as I'm using this script. I'm not sure if its safe to start another script now.
Red & Green Salamander Hunter // Construction // Gilded Altar // Major help w/ Kyles Runespan // VWB Smither // PhoenixFeathers // GemCutter // Bonfire // LRC Miner // Spell Tab Maker // ApeAtollAgility // IvyWC // RoguesCooker // Herblore // AshamanButterfly // AshamanPowerMiner // Fletcher // LividFarm
Is there any way you can fix the double withdraw of coal with the coal bag..? It really slows things down..
Current Goal: 99 Runecrafting
When i start the script at Varrock west bank, it clicks superheat, then ore and sometimes does : Use Iron ore -> .... and then gets stuck..... I'm superheating steel bars....
to all who has trouble with double withdrawing and double filling, i have a reliable method to fix it. you just have to add wait times before it checks if the inv is full like in the coaltobag procedure add this over the previous one
repeat
WithdrawItem(coal, 'dtm', 0, 'a', [3]);
wait(RandomRange(1200,1000));
until (invfull);
repeat
wait(RandomRange(400,500));
Mouseitem(2, mouse_right);
wait(RandomRange(700,800));
ChooseOption ('ill');
wait(RandomRange(1200,1000));
until (invcount = 2);
WriteLn('Filled coal bag.');
check the wait times.
i also tweeked the script a bit to withdraw more reliably (this is just for steel) and superheat just the last ore for a specific amount of times (it's faster). might release it with 100% credit to tehq when finished
here is the simba code for superheating steel ONLY. i tweeked tehqs script to make this, so basically its 99.9% his and 0.1% mine for tweeking and fixing a bugprogram TehSuperheat; {v 1.9 - BSIMTA} {RELEASE}
{$DEFINE SMART} { Minor bug fixes }
{$DEFINE SRL5} { }
{$i SRL/srl.simba} { Post bugs and proggys! }
const
{ EDIT THESE }
BarType = 'steel' ; { leave on steel! }
LoadCount = 10000 ;
CoalBag = 'no' ; { use coal bag - yes or no. Only use with steel}
BankLoc = 'vwb' ; { sw= Soul Wars, vwb= Varrock West, veb=Varrock East, feb= Falador East, fwb= Falador West }
{ cw= Castle Wars, ynb= Yanille, clt= Camelot, ctb= Catherby }
var
SuperHeatDTM, sx, sy, count, Magic_XP, Smithing_XP, Coal, Iron, mxph, sxph: integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
Nick := '' // three lowercase letters in the middle of your name
BoxRewards := ['amp'];
LampSkill := SKILL_DUNGEONEERING;
Pin := '';
Active := True;
end;
end;
Procedure Run;
begin
Smart_Members := False;
Smart_Server := 0;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
LoginPlayer;
Count:=0;
Wait(500+Random(200));
FindNormalRandoms;
end;
{************************************************* *************************
* Procedure by: Flight *
************************************************** ************************}
Procedure PrintOnSmart(TP: TStringArray; Placement: TPoint; Colour: integer);
var
mx, my, Pic, I, B, H, TPH, Numb: Integer;
TTP: TPointArray;
Canvas: TCanvas;
begin
SmartSetDebug(True);
GetClientDimensions(mx, my);
Pic := BitmapFromString(mx, my, '');
TPH := High(TP);
for I := 0 to TPH do
begin
TTP := LoadTextTPA(TP[i], SmallChars, H);
for B := 0 to High(TTP) do
begin
Numb := ((I + 1) * 13);
FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,8388736);
FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
end;
end;
Canvas := TCANVAS.Create;
Canvas.Handle := SmartGetDebugDC;
DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
FreeBitmap(Pic);
end;
Procedure OnSmart;
begin
Mxph := round((Magic_xp) / (GetTimeRunning / 3600000.0));
Sxph := round((Smithing_xp)/ (GetTimeRunning / 3600000.0));
PrintOnSmart(['Version: 1.9 by Tehq','',''+'Smithing XP Gained: ' +IntToStr(Smithing_XP),'Magic XP Gained: ' +IntToStr(Magic_XP),'',
''+'Smithing XP/Hour: ' +IntToStr(Sxph), ''+'Magic XP/Hour: ' +IntToStr(Mxph),'',
''+MsToTime(GetTimeRunning, Time_Abbrev)],Point(32,10), 16777215);
end;
Procedure BankDeposit;
begin
case CoalBag of
'no':
begin
Deposit(2, 10, True);
end;
'yes':
begin
Deposit(3, 19, True);
end;
end;
end;
Procedure MagicTab;
begin
Gametab(tab_magic);
end;
Procedure FindHeat;
var
Time: Integer;
begin
MarkTime(Time);
repeat
wait(RandomRange(500,550));
until (FindDTM(SuperHeatDTM,sx,sy,MIX1,MIY1,MIX2,MIY2)) or ((TimeFromMark(Time) > 800));
if not (FindDTM(SuperHeatDTM,sx,sy,MIX1,MIY1,MIX2,MIY2)) or ((TimeFromMark(Time) > 800)) then begin
Magictab;
end;
Mouse(sx,sy,1,1,true);
end;
Procedure NotFindHeat;
begin
if FindBlackChatMessage('uperheat') then repeat
Writeln('Can''t superheat that!');
Logout;
TerminateScript;
until (not LoggedIn);
end;
Procedure GetOres;
begin
Coal:= DTMFromString('mQwAAAHicY2ZgYBBmZGDgAGIpIJ7BAMFzgV hVVYYh3scUTLMC+TDMiISBAACc8gPH');
Iron:= DTMFromString('mQwAAAHicY2ZgYDADYm0gtgfiGVA8B4gtFC UYwl0NGEzlxRlYgXwYZkTCQAAAtHMEKg==');
case CoalBag of
'yes': begin case Bartype of
'steel' : WithdrawItem(iron, 'dtm', 17, 'r', [3]); {17}
end;
end;
'no': begin case Bartype of {9}
'steel': WithdrawItem(iron, 'dtm', 9, 'r', [3]); {5}
end;
end;
end;
Wait(800+Random(200));
if (invfull) then
closebank;
if (not invfull) then
begin
case CoalBag of
'yes': begin case BarType of
'steel': WithdrawItem(coal, 'dtm', 0, 'a', [3]); {8}
end;
end;
'no': begin case BarType of
'steel': WithdrawItem(coal, 'dtm', 0, 'a', [3]); {all}
end;
end;
end;
Wait(400+Random(100));
closebank;
end;
FreeDTM(Iron);
FreeDTM(Coal);
end;
Procedure Banking;
begin
if not LoggedIn then
TerminateScript;
repeat
SetAngle(srl_angle_high);
Case Bankloc of
'sw': OpenBankChest(SRL_BANK_SW);
'cw': OpenBankChest(SRL_BANK_CW);
'vwb': OpenBankFast('vwb');
'veb': OpenBankFast('veb');
'feb': OpenBankFast('feb');
'fwb': OpenBankFast('fwb');
'clt': OpenBankFast('clt');
'ctb': OpenBankFast('ctb');
'ynb': OpenBankFast('ynb');
end;
Wait(Random(100));
until BankScreen or PinScreen;
if PinScreen then
begin
repeat
InPin(Players[CurrentPlayer].Pin);
until BankScreen or (not LoggedIn);
end;
end;
Procedure CoalToBag; { credits to: noname190 and beezkneez for their help. - May not work correctly }
begin
Coal:= DTMFromString('mQwAAAHicY2ZgYBBmZGDgAGIpIJ7BAMFzgV hVVYYh3scUTLMC+TDMiISBAACc8gPH');
Case Coalbag of
'yes':
begin
Banking;
repeat
WithdrawItem(coal, 'dtm', 0, 'a', [3]);
wait(RandomRange(1200,1000));
until (invfull);
repeat
wait(RandomRange(400,500));
Mouseitem(2, mouse_right);
wait(RandomRange(700,800));
ChooseOption ('ill');
wait(RandomRange(1200,1000));
until (invcount = 2);
WriteLn('Filled coal bag.');
end;
end;
FreeDTM(Coal);
end;
Procedure Superheat;
var
I :integer;
begin
if FindNormalRandoms or not (LoggedIn) then
Exit;
SuperHeatDTM := DTMFromString('mbQAAAHicY2VgYJjLxMAwE4inA/EiIF4MxOWMDAxlQFwHxDVAXAnEsoxMDHqMzAx2TMxgGoSxAUYs GAwAHzIGhQ==');
case BarType of
'steel':
case coalbag of
'no':
begin
MagicTab;
For I:=0 to 8 do
begin
FindHeat;
if ExistsItem(10) then
Invmouse(10, 1);
NotFindHeat;
IncEx(Magic_xp, 53);
IncEx(Smithing_xp, 17);
end;
end;
'yes':
begin MagicTab;
For I:=0 to 16 do
begin
Findheat;
if ExistsItem(19) then
Invmouse(19, 1);
NotFindHeat;
IncEx(Magic_xp, 53);
IncEx(Smithing_xp, 17);
end;
end;
end;
end;
FreeDTM(SuperHeatDTM);
end;
Procedure Proggy;
var
mxph, sxph: integer;
begin
Mxph := round((Magic_xp) / (GetTimeRunning / 3600000.0));
Sxph := round((Smithing_xp)/ (GetTimeRunning / 3600000.0));
WriteLn('=-=-=-=-=-=-=-= Superheater by TehQ =-=-=-=-=-=-=');
WriteLn('Time Running: '+TimeRunning);
WriteLn('Bars Superheated: ' +(BarType));
WriteLn('Magic XP Gained: ' +IntToStr(Magic_XP));
Writeln('Magic XP/Hour: ' +IntToStr(Mxph));
WriteLn('Smithing XP Gained: ' +IntToStr(Smithing_XP));
Writeln('Smithing XP/Hour: ' +IntToStr(Sxph));
WriteLn('=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-');
end;
Procedure Antiban;
begin
Wait(500+RandomRange(250,300));
Case Random(40) Of
2: HoverSkill('magic', False);
10: HoverSkill('random', False);
20: Boredhuman;
30: Wait(2000 + random(4000));
39: HoverSkill('smithing', False);
end;
end;
Procedure Breaking;
begin
Case random(40) Of
5: Wait(16000+Random(4000));
15: Wait(12000+Random(9000));
25: Wait(9000+Random(14000));
35: Wait(3000+Random(18000));
end;
end;
begin
Run;
begin
SetAngle(SRL_ANGLE_HIGH);
Banking;
BankDeposit;
repeat
CoalToBag;
Banking;
BankDeposit;
GetOres;
Antiban;
Proggy;
OnSmart;
Superheat;
Breaking;
Banking;
BankDeposit;
inc(count);
until (count=loadcount) or (not LoggedIn);
Writeln('Task completed!');
end;
end.
what i changed:
fixed up the issue with double coal withdrawing and double coalbag filling
it withdraws better, e.g insteading of typing in withdraw 8 with coal each time it withdraws all, which is imo faster.
it also superheats just the last ore a certain number of times because it is the fastest way to superheat, and i also see this function requested. dont matter how the magic book is set up just make it close to the last iron ore in the inv.
banks just what it needs to bank, like for example if it left behind some iron ore and steel bars, it would bank those but not the coal, cause u need the coal for next time it withdraws.
did some minor testing and it works fine with either coalbag or no coalbag.
edit: ik it isnt a masterpiece. i have never scripted or watched any tuts. my learning is based out of reading people's scripts.
=-=-=-=-=-=-=-= Superheater by TehQ =-=-=-=-=-=-=
Time Running: 5 Hours, 37 Minutes and 43 Seconds
Bars Superheated: gold
Magic XP Gained: 427869
Magic XP/Hour: 76016
Smithing XP Gained: 452088
Smithing XP/Hour: 80319
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
I'll have 99 smithing/magic in a day or two, and I want to express my gratitude for providing such a flawless script. In all honesty, I couldn't point out a single thing that could be improved; although I wish the script could run for more than 6 hrs (I am aware that there's nothing you can do about that though :P)
I'll be sure to post a pic of my 99s when the time comes ^^ Once again, thank you so much
Is this what you mean by SmartManager? I'll have to look into that. Thank you for bring that to my attention
http://villavu.com/forum/showthread....128#post945128
Red & Green Salamander Hunter // Construction // Gilded Altar // Major help w/ Kyles Runespan // VWB Smither // PhoenixFeathers // GemCutter // Bonfire // LRC Miner // Spell Tab Maker // ApeAtollAgility // IvyWC // RoguesCooker // Herblore // AshamanButterfly // AshamanPowerMiner // Fletcher // LividFarm
Well, I didn't manage to get a screenshot in time of getting level 99 itself
Nonetheless, thank you so much, I never would've gotten here had it not been for your amazing script![]()
What gains the most Magic EXP an hour? Gold/Iron correct?
hello, it's any chance to add dungeon location, using fremennik banker ?? i think that in this area randoms don't occur.
Is it possible to add random breaks?
Last nights results:
=-=-=-=-=-=-=-= Superheater by TehQ =-=-=-=-=-=-=
Time Running: 6 Hours, 1 Minutes and 12 Seconds
Bars Superheated: mith
Magic XP Gained: 229225
Magic XP/Hour: 38076
Smithing XP Gained: 129750
Smithing XP/Hour: 21553
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Code:I dream of a better tomorrow, where chickens can cross the road and not be questioned about their motives.
There are currently 1 users browsing this thread. (0 members and 1 guests)