SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
del_signo - SRL Member Application Form
del_signo

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
c++,vb,basic,taking java course next year

Other Communitys
scar(rarely,to many noods and leechers), darksiper

How Long have You Played Runescape
wow almost 5 years now

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

sex:m

age:15

grade:10

ethnicity:Caucasians

profile:i have been into programming for about 2 years just getting into scar a few months ago when runescape became boring so i figured jagex would be a good challenge.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

program del_al_smelter;
//by del_signo
//thanks to everyone on srl forums who helped me
//1.set up like all scripts v-bright,consts,login once b4 yada-yada
//2.start in al kahrid bank
{.include SRL/SRL.scar}

var copperore,tinore,coalore,ironore,goldore,vicegrip: integer;
xmid,ymid,rounds,ore1,ore2,floorcolor,barcolor: integer;
orenum1,orenum2: string;

const brownrock=3362680;//<---MUST SET!!!!!! brown rock NE of bank
loadtime=45000;//<---millasecs
StartPlayer=1;//<---player you want to start with
NumberOfUsers=2;//<---How many players your using
//
//declares player
//
Procedure DeclarePlayers;
  Begin
    HowManyPlayers := NumberOfUsers;
     NumberOfPlayers( HowManyPlayers );
     CurrentPlayer := StartPlayer;

     Players[0].Name :='';
     Players[0].Pass :='';
     Players[0].Nick :='***';
     Players[0].Active:=True;
     Players[0].string1:='bronze';//type of bar you want to make(bronze,iron,steel,gold)
     
     Players[1].Name :='';
     Players[1].Pass :='';
     Players[1].Nick :='***';
     Players[1].Active:=True;
     Players[1].string1:='bronze';//type of bar you want to make(bronze,iron,steel,gold)

     Writeln( IntToStr ( HowManyPlayers ) + ' Players' );
  End;
//
//deaclares ores
//
procedure Declareores;
begin
tinore := DTMFromString('78DA637CC4C0C0A0C0C8800C5A6BAA1958813' +
       '448F43F10305E00325451D54064612490BE0824E408A8B90324F4' +
       '08A8790D24D409A8790B24E409A8790724A4F0AB0100B4580CAF');
copperore := DTMFromString('78DA639CC0C0C0E0C780021E345830B002694' +
       '620FE0F048CB3800C170634C0884402E93A20E14B404D17908826' +
       'A0661A900825A0663690F021A0A6154884E0570300400B0BC5');
coalore := DTMFromString('78DA6394606660B8CCC8800CECECB4C0344C9' +
       '45100A8E604AA1A982C5C0D1B50CD55026A84806A1E1050230354' +
       '739B801A05A09AEB04D4A800D59C26A006E4F773F8D5000043FC0' +
       '831');
ironore := DTMFromString('78DA637CCFC4C070999101190419A98169982' +
       '8E31D4C353059B89A674035C709A87907547383809AE740350F08' +
       'A8F94C845DDF806A6EE15703005DE80D09');
goldore := DTMFromString('78DA6374646660B8C2C8800CAEAD9701D3305' +
       '1463FA09A33A86A60B270352E4035C708A83102AA3947408D0150' +
       'CD35026A6C816A1E1050E30954730BBF1A00A5F10951');
vicegrip := DTMFromString('78DA63F461646028614001558585609A11CA6' +
       '7F423428D37905544408D1790558A5F0D007F64087B');
end;
//
//declares witch ores to get
//
procedure whatores;
begin
if (Players[currentplayer].string1='bronze')then
begin
   ore1:=copperore;
   ore2:=tinore;
   orenum1:='14';
   orenum2:='14';
   barcolor:= 2902109;
end;
if (Players[currentplayer].string1='iron')then
begin
   ore1:=ironore
   ore2:=ironore
   orenum1:='14';
   orenum2:='14';
   barcolor:=6119013;
end;
if (Players[currentplayer].string1='steel')then
begin
   ore1:=ironore;
   ore2:=coalore;
   orenum1:='9';
   orenum2:='18';
   barcolor:= 9013650;
end;
if (Players[currentplayer].string1='gold')then
begin
   ore1:=goldore;
   ore2:=goldore;
   orenum1:='14';
   orenum2:='14';
   barcolor:= 1880792;
end;
end;
   
//
//obtain ores from bank
//
procedure obtainore;
begin
 OpenBankQuiet('akb');
 depositall;
if (FindMSDtm(x,y,ore1))then
begin
 mouse(x,y,3,3,false);
 PopUp('Withdraw X');
 wait(750+random(150));
 SendText(orenum1+chr(13));
 wait(1250+random(500));
end
else Writeln('no ore');
if (FindMSDtm(x,y,ore2))then
begin
 mouse(x,y,3,3,false);
 PopUp('Withdraw X');
 wait(750+random(150));
 SendText(orenum2+chr(13));
 wait(1250+random(500));
end
else Writeln('no ore');
CloseBank;
wait(250);
end;
//
//walks to furnace
//
procedure walktofurnace;
begin
IF(FindColor(x,y,brownrock,645,5,720,85))Then
begin
 x:=x+12;
 y:=y-10;
 wait(1000);
 mouse(x,y,1,1,true);
 wait(10000+random(500));
 RadialWalk(floorcolor,362,380,35,-1,0);
end;
end;
//
//smelts you ores
//
procedure smeltore2;
begin
findMSDTM(x,y,vicegrip);
mouse(x,y+100,3,3,true)
wait(2000)
repeat
 xmid:=265;
 ymid:=145;
 repeat
  mmouse(xmid,ymid,3,3)
  xmid:=xmid-35;
 until (Option2('Furnace'));
 cmouse(xmid,ymid,3,3,true);
 wait(4000+random(500));
 findcolortolerance(x,y,barcolor,25,389,493,439,10);
 mouse(x,y,3,3,false);
 wait(750+random(150));
 ClickOption('X',3);
 wait(750+random(150));
 SendText('999'+chr(13));
 wait(loadtime);
until(FindInvDtm(x,y,ore1)=false);
end;
//
//walks you back to bank
//
procedure walkback;
begin
IF(FindColor(x,y,brownrock,630, 125,650, 140))Then
begin
 x:=x-15;
 y:=y+20;
 wait(1000);
 mouse(x,y,1,1,true);
 wait(20000);
end;
end;
//
//switches player
//
procedure switchplayers;
begin
logout;
RandomNextPlayer(true);
end;
//
//antirandom
//
procedure doantirandoms;
begin
if(FindNormalRandoms)then
begin
switchplayers;
end;
end;
//
//gets floor color
//
procedure getfloorcolor;
begin
IF(FindColor(x,y,brownrock,645,5,720,85))Then
begin
 floorcolor:=getcolor(x-28,y+16)
end
else Writeln('cant find brownrock');
end;

/////////////////////////////////////////
// \/ \/ \/ \/ main loop\/ \/ \/ \/ \/ //
/////////////////////////////////////////
begin
setupsrl;
Declareores;
DeclarePlayers;
ClearDebug;
ActivateClient;
wait(1500)
If(not(LoggedIn))then
 begin
  RandomNextPlayer(true);
 end;
wait(1500);
MakeCompass('N');
MouseSpeed := 20;
repeat
 whatores;
 rounds:=1;//<---how many trips you wanna make
 floorcolor:=0;
 repeat
  obtainore;
  if (floorcolor=0)then
  begin
   getfloorcolor;
  end;
  walktofurnace;
  antiban;
  doantirandoms;
  smeltore2;
  walkback;
  doantirandoms;
  antiban;
  If(not(LoggedIn))then Players[CurrentPlayer].Active:=false;
  rounds:=rounds-1;
 until(rounds=0);
 switchplayers;
until(false);
end.

——————————————————
<!– END TEMPLATE: formanswers –>

Have you tested that with more than 1 player?

no but it switched the same player
so th switching works

did the second player do any smelting?

o i guess no sry for being premature and not testing script well enough currently making auto floor finding proc

there now it auto finds the floor

Learn some more bout standards, looping, failsafes, antirandoms and SRL commands. You're on the right path, just need to go down it a bit more. No this time.

Wow
I agree with boreas compltetly.
I just typed out what he said, but then read his post -.-
No from me sir

I like the script though, ver unique.
Add failsafes and just fix up a few problems here and there.
If it can walk about 3 loads, ill be happy

atleast ur using srl commands and not movemouses/clickmouse etc
learn some more and u'll get accepted!

i don't know if this will help be cause i don't even know if you can change you vote well whatever i only got 1 a chance month and ill make the best of it ill post my updated script