PDA

View Full Version : superheat smelter



gamemaste789
04-12-2009, 02:30 AM
ill pay u 500k in rs for a script that super heats steel bars and up

mrpickle
04-12-2009, 02:35 AM
I can make a simple one... no need for pay.

But look for more experienced scripters first =D.

ian.
04-12-2009, 02:52 AM
against rules to pay..

I can do it.. what bars you need?

steel, mith, addy, and rune?

gamemaste789
04-12-2009, 09:08 PM
k sry yea steel, mith, addy, and rune

ian.
04-12-2009, 09:09 PM
do you have MSN? add me at panic._@live.com

:D

gamemaste789
04-12-2009, 09:32 PM
no but i have a gmail and aol

ian.
04-12-2009, 09:33 PM
what's your gmail? >.>

lol

Iroki
04-12-2009, 09:45 PM
{.Script Info:
# ScriptName = ManFromCzech Superheater
# Author = ManFromCzech
# Version = 1.00
# Comments = Superheat all bars at varrock east bank.
# Instructions = Have visable ores at bank, nats in first inv slot and
wield fire staff.
/Script Info}

// bar names: bronze, iron, silver, steel, gold, mithril, adamant, rune !!!!!!!!

program SuperHeater;
//{.include srl/srl/misc/smart.scar}
{.include srl/srl.scar}
{.include srl/srl/skill/magic.scar}
{.include srl/srl/misc/users.scar}
//,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
// ,.;'"ManFromCzech Script"';.
//"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
const
WorldNumber = 14;
HD = False;
SignedClient = True;
HDMode = False;
//,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
// ,.;'"ManFromCzech Script"';.
//"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
var
BarMaskDTM, xTempOre, yTempOre, FromInve, FirstOreDTM, SecondOreDTM,
Loads: integer;
xOreName, yOreName: string;
//,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
// ,.;'"ManFromCzech Script"';.
//"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
function LoadOreDTM(OreName: string): integer;
begin
case OreName of
'tin' :
begin
Result := DTMFromString('78DA6354656060B06040015D0DF50C92409 A1' +
'188FF0301A32E9061CF8006189148202D02246C08A8910112 B604' +
'D468000933FC6A00107C077D');
end;
'copper':
begin
Result := DTMFromString('78DA635463606090644001B76BCCC0428C4 0F' +
'C1F08181531D54064612490D60412E204D468000939026AC4 8084' +
'027E3500D3AA06E6');
end;
'iron':
begin
Result := DTMFromString('78DA635465606098C18002BC74951824813 42' +
'310FF070246454C3510591809A4B581C414026A4488304705 482C' +
'C0AF060035B00862');
end;
'silver':
begin
Result := DTMFromString('78DA6354636060B8C9800296AFD8CC2009A 41' +
'981F83F10302A0219D719D000231209A43580C435026A4480 C45D' +
'026A5480C443FC6A0098540B11');
end;
'coal':
begin
Result := DTMFromString('78DA63BCCCC8C0F0098891809DAD1603179 00' +
'689FE0702C64340D657543510591809A4CF629A83A1E63C90 F591' +
'809A8B40D67F026AEE12B60B0077C90F63');
end;
'gold':
begin
Result := DTMFromString('78DA63D46460602866400157D74A3148026 94' +
'620FE0F048C4A404611031A60442281B43E902824A0461C48 94E3' +
'56C304A20D09AB0100957F08CA');
end;
'mithril':
begin
Result := DTMFromString('78DA63D4646060B8CC8002BCBCF31924813 42' +
'310FF070246154C3510591809A4F58950230E24AE13506304 246E' +
'E0570300F9B80A15');
end;
'adamantite':
begin
Result := DTMFromString('78DA63D4636060B06640013E09BE0C5C409 A1' +
'188FF0301A30C9061C3800618914820AD08241C09A8D10412 E604' +
'D4E8000927FC6A00B68006FF');
end;
'runite':
begin
Result := DTMFromString('78DA63D46360608866400101D9E50C92409 A1' +
'188FF0301A30CA61A882C8C04D2A644A85127428D2E9048C1 AF06' +
'00299A07F9');
end;
end;
end;
//,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
// ,.;'"ManFromCzech Script"';.
//"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
function DTMMasks(MaskName: string): integer;
begin
case MaskName of
'bar mask':
begin
Result := DTMFromString('78DA63B4636060106340038C70F23F10303 A0' +
'3198AB8D580E900202143404D28901026A0C61748F01350E3 0624' +
'F808A8F10412CA04D458010939FC6A00E6210715');
end;
end;
end;
//,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
// ,.;'"ManFromCzech Script"';.
//"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
function OtherDTM(DTMName: string): integer;
begin
case DTMName of
'fire staff':
begin
Result := DTMFromString('78DA63B4636060106340038C70F23F10303 A0' +
'3198AB8D580E900202143404D28901026A0C61748F01350E3 0624' +
'F808A8F10412CA04D458010939FC6A00E6210715');
end;
'fire rune':
begin
Result := DTMFromString('78DA63B4636060106340038C70F23F10303 A0' +
'3198AB8D580E900202143404D28901026A0C61748F01350E3 0624' +
'F808A8F10412CA04D458010939FC6A00E6210715');
end;
'nature rune':
begin
Result := DTMFromString('78DA63B4636060106340038C70F23F10303 A0' +
'3198AB8D580E900202143404D28901026A0C61748F01350E3 0624' +
'F808A8F10412CA04D458010939FC6A00E6210715');
end;
end;
end;
//,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
// ,.;'"ManFromCzech Script"';.
//"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
procedure SmeltingProperties;
var
temp_Bar: string;
begin
temp_Bar := Players[CurrentPlayer].Strings[1]
if (temp_Bar = '') then
begin
srl_Warn('Name of bar', 'Unknow name, ', Warn_AllVersions);
TerminateScript;
end;
case temp_Bar of
'bronze':
begin
xTempOre := 13;
yTempOre := 13;
xOreName := 'tin';
yOreName := 'copper';
FromInve := 13;
end;
'iron':
begin
xTempOre := 27;
yTempOre := 0;
xOreName := 'iron';
yOreName := '';
FromInve := 27;
end;
'silver':
begin
xTempOre := 27;
yTempOre := 0;
xOreName := 'silver';
yOreName := '';
FromInve := 27;
end;
'steel':
begin
xTempOre := 16;
yTempOre := 8;
xOreName := 'coal';
yOreName := 'iron';
FromInve := 8;
end;
'gold':
begin
xTempOre := 27;
yTempOre := 0;
xOreName := 'gold';
yOreName := '';
FromInve := 27;
end;
'mithril':
begin
xTempOre := 20;
yTempOre := 5;
xOreName := 'coal';
yOreName := 'mithril';
FromInve := 5;
end;
'adamant':
begin
xTempOre := 18;
yTempOre := 3;
xOreName := 'coal';
yOreName := 'adamantite';
FromInve := 3;
end;
'rune':
begin
xTempOre := 24;
yTempOre := 3;
xOreName := 'coal';
yOreName := 'runite';
FromInve := 3;
end;
end;
FirstOreDTM := LoadOreDTM(xOreName);
if (yOreName <> '') then
begin
SecondOreDTM := LoadOreDTM(yOreName);
end;
end;
//,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
// ,.;'"ManFromCzech Script"';.
//"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
procedure TakeOres;
var
x, y: integer;
begin
if not LoggedIn then Exit;
SmeltingProperties;
if (xOreName = '') then Exit;
repeat
Wait(200 + RandomRange(100, 200));
until (not(PinScreen)) or (not (BankScreen));
Wait(200 + RandomRange(100, 200));
if PinScreen then
if not InPin(Players[CurrentPlayer].Strings[0]) then
begin
srl_Warn('Pin', 'Wrong pin, next player ', Warn_AllVersions);
Wait(900 + Random(500));
CloseBank;
Players[CurrentPlayer].Active := False;
LogOut;
Exit;
end;
Deposit(2, 28, True);
FixBank;
FixBankTab;
FindDTM(FirstOreDTM, x, y, MSX1, MSY1, MSX2, MSY2);
if (xTempOre = 28) then
begin
Mouse(x, y, 3, 3, False);
Wait(200 + RandomRange(500, 700));
ChooseOption('Withdraw-All');
Wait(200 + RandomRange(500, 700));
end else
begin
if (xTempOre + yTempOre = 28) then
begin
Mouse(x, y, 3, 3, False);
Wait(200 + RandomRange(500, 700));
if ChooseOption('Withdraw-' + IntToStr(xTempOre))then
begin
end else
begin
Mouse(x, y, 3, 3, False);
Wait(200 + RandomRange(500, 700));
ChooseOption('Withdraw-X');
Wait(200 + RandomRange(500, 700));
TypeSend(IntToStr(xTempOre));
Wait(200 + RandomRange(500, 700));
end;
end else
begin
Mouse(x, y, 3, 3, False);
Wait(200 + RandomRange(500, 700));
ChooseOption('Withdraw-X');
Wait(200 + RandomRange(500, 700));
TypeSend(IntToStr(xTempOre));
Wait(200 + RandomRange(500, 700));
end;
end;
FreeDTM(FirstOreDTM);
if not (yOreName = '') then
begin
FindDTM(SecondOreDTM, x, y, MSX1, MSY1, MSX2, MSY2);
Wait(200 + RandomRange(500, 700));
if (xTempOre + yTempOre = 28) then
begin
Mouse(x, y, 3, 3, False);
Wait(200 + RandomRange(500, 700));
ChooseOption('Withdraw-All');
Wait(200 + RandomRange(500, 700));
end else
begin
Mouse(x, y, 3, 3, False);
Wait(200 + RandomRange(500, 700));
ChooseOption('Withdraw-X');
Wait(200 + RandomRange(500, 700));
TypeSend(IntToStr(yTempOre));
Wait(200 + RandomRange(500, 700));
end;
FreeDTM(SecondOreDTM);
end;
CloseBank;
end;
//,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
// ,.;'"ManFromCzech Script"';.
//"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
procedure SuperHeat;
var
x, y, i, MySmeltingTime, OreTempDTM: Integer;
TB: TBox;
begin
if not LoggedIn then Exit;
BarMaskDTM := DTMMasks('bar mask');
if (yOreName = '') then
begin
OreTempDTM := LoadOreDTM(xOreName);
end else
begin
OreTempDTM := LoadOreDTM(yOreName);
end;
TB := InvBox(FromInve + 1);
FindNormalRandoms;
MarkTime(MySmeltingTime);
GameTab(7);
for i := 1 to FromInve do
begin
Mouse(690, 300, 5, 5, True);
// CastSpell(26);
Wait(RandomRange(50, 100));
FindNormalRandoms;
FindDTM(OreTempDTM, x, y, MIX1, MIY1, MIX2, MIY2);
Mouse(x, y, 5, 5, True);
// FindNormalRandoms;
{ Wait(RandomRange(1000, 1300));
MMouse(640 + Random(70) - Random(70), 250 + Random(70) - Random(40), 20, 20);
Wait(RandomRange(1000, 1050)); }
Wait(RandomRange(1750, 1950));
// FindTalk;
SRLRandomsReport;
end;
GameTab(4);
FreeDTM(BarMaskDTM);
FreeDTM(OreTempDTM);
Loads := Loads + 1;
WriteLn(IntToStr(Loads));
SendSRLReport;
Exit;
end;
//,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
// ,.;'"ManFromCzech Script"';.
//"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
function AllPlayersAreInactive: Boolean;
var
mm, ms: Integer;
begin
ms := HowManyPlayers - 1;
for mm := 0 to ms do
begin
if (Players[mm].Active = True) then Exit;
end;
Result := True;
Writeln('Thanks for using my script. All players inactive.');
TerminateScript;
end;
//,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
// ,.;'"ManFromCzech Script"';.
//"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
procedure SetUpPlayer;
begin
if not LoggedIn then LoginPlayer;
SetAngle(True);
MakeCompass('N');
FindNormalRandoms;
SetAllChats('Off', 'Friends', 'Friends', 'Friends', 'Off');
end;
//,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
// ,.;'"ManFromCzech Script"';.
//"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
{procedure SetUpSMART;
begin
SmartSetupEx(WorldNumber, HD, SignedClient, HDMode);
SetTargetDC(SmartGetDC);
repeat
Wait(2500);
Until SmartGetColor(253, 233)<>1118604;
end; }
//,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
// ,.;'"ManFromCzech Script"';.
//"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
procedure ReadToCopy; Forward;

procedure CopyClient;
var
W, H, X, Y, T: Integer;
A, B, ShowingDebug: Boolean;
begin
ShowingDebug:= True;
try
ClearTimeouts;
T:= 2000;
A:= IsFKeyDown(12);
B:= IsFKeyDown(11);
if(A) then
begin
DisplayDebugImgWindow(766, 504);
ShowingDebug:= True;
Writeln('Showing Debug;');
end;
if(B) then// and (ShowingDebug)) then
begin
ShowingDebug:= False;
Writeln('Not showing Debug;');
ReadToCopy;
end;
if(ShowingDebug) then
begin
GetClientDimensions(W, H);
SafeCopyCanvas(GetClientCanvas, GetDebugCanvas, 0, 0, W, H, 0, 0, W, H);
GetDebugCanvas.Pen.Color:= 255;
GetDebugCanvas.Brush.Color:= 255;
GetMousePos(X, Y);
GetDebugCanvas.Ellipse(X, Y, X + 4, Y + 4);
if(not(GetSCARVersion = 320)) then
SetTimeout(Round(T / 1000), 'CopyClient')
else
SetTimeout(T, 'CopyClient');
end;
except
Writeln('Failed to show window');
finally
end;
end;
//,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
// ,.;'"ManFromCzech Script"';.
//"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
procedure ReadToCopy;
begin
ClearTimeouts;
if(IsFKeyDown(12)) then
begin
WRiteln('moo');
CopyClient;
end else
SetTimeout(1, 'ReadToCopy');
end;
//,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
// ,.;'"ManFromCzech Script"';.
//"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
procedure MainLoop;
begin
// ReadToCopy;
OpenBankFast('veb');
// Wait(RandomRange(1000, 1500));
TakeOres;
FindNormalRandoms;
SuperHeat;
FindNormalRandoms;
end;
//,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
// ,.;'"ManFromCzech Script"';.
//"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
begin
SRLPlayerForm(True, [], ['Loads to do?'], ['Bank pin?', 'Bar name?'], []);
// SetUpSMART;
SetUpSRL;
SetUpMagic;
SetUpPlayer;
SmeltingProperties;
repeat
SetUpPlayer;
repeat
MainLoop;
ClearDebug;
WriteLn('Time running : ' + TimeRunning);
WriteLn('Bars supereated: ' + IntToStr(Loads * FromInve));
until Loads >= Players[CurrentPlayer].Integers[1];
// TerminateScript;
until AllPlayersAreInactive;
end.


I made this hmm 5 or more mounths ago, but it should works.

EDIT: Sorry 99_ :)

ian.
04-12-2009, 09:50 PM
>.> GRRRR

haha

I keep refreshing the home page to see the newest posts and I saw your post and I was like

"God dammit Iroki. If you do this I will eat your head D:"

SO BEWARE! Someday your head shall be in my tummy :)

gamemaste789
04-12-2009, 11:55 PM
thanks iroki sry 99_ and my aol is jbigredmaster@aol.com