SRL Archive - Archive

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

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
Well, I found out about Sythe first, but I didnt liked that and when the new SRL came out, I discovered this community, and this one is far more friendly then Sythe

Programming Knowledge
HTML, Pascal

Other Communitys
Isoscene(mod), arena51, Nintendo, Tip.it, yourpsp forum,

How Long have You Played Runescape
mmmm i think 2-3 years

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

well, im EL_TYCHO, im gonna be 16 on the 04/07,I allready applyed here, but with a very crappy script. I wrote this script cuz I wanted to apply before I went on vacation (I leave in +- 9hours :P).
Its a Port Phasmatys steel smelter, it has anti random, multiplayer (even tough its a members script) and it uses DTM's. I worked long hours to get all the bugs out and to make sure everything works.
I hope this script is more of a succes than the last one :)
If you want to know anything more, just ask :)
PS: is it normal that the 'meaning of life' question doesnt appear here?

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

Program PortPhasmatysSteelSmelter;//by EL_TYCHO
{Start in Port Phasmatys bank logged out with an empty inventory, fill in the constants and
declareplayers make sure caps lock is turned on (for the digits), make sure that iron and coal are in the first slots}
{.include SRL/SRL.scar}
{.include SRL/SRL/extended/xbank.scar}

///////////Change this if needed///////////////////
Const Bars = 100 ;//Number of loads to do
//////////////dont touch this///////////////////////
      Furnace = 3297479;//Furnace color
      FurnaceMM = 157428;//Furnace color on the minimap
      BankSymbol =  3196640;//color of the bank symbol
      BankBooth = 923672;//bankbooth color


///////////////////Dont touch this/////////////////

var BarsDone : integer;
    Iron : integer;
    Coal : integer;
    Steel : integer;
/////////////////////////declareplayers here//////////////////////
Procedure DeclarePlayers;

begin

  HowManyPlayers := 5;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer:= 0;


  Players[0].Name :='';
  Players[0].Pass :='';
  Players[0].Nick :='';
  Players[0].Active:=True;
  Players[0].Integer1:=1;         //Bars to smelt?


  Players[1].Name :='';
  Players[1].Pass :='';
  Players[1].Nick :='';
  Players[1].Active:=False;
  Players[1].Integer1:=1;       //Bars to smelt?


  Players[2].Name :='';
  Players[2].Pass :='';
  Players[2].Nick :='';
  Players[2].Active:=False;
  Players[2].Integer1:=1;  //Bars to smelt?


  Players[3].Name :='';
  Players[3].Pass :='';
  Players[3].Nick :='';
  Players[3].Active:=False;
  Players[3].Integer1:=1;  //Bars to smelt?


  Players[4].Name :='';
  Players[4].Pass :='';
  Players[4].Nick :='';
  Players[4].Active:=False;
  Players[4].Integer1:=1;  //Bars to smelt?


end;
////////////////////////////////Dont touch this!////////////////////
Procedure FreeDTMs;
 begin
    Iron := DTMFromString('78DA6314626060006124E0AC210BA619A17C4' +
       '62520C1CB80061851D548010976026A5880043F013520332409A8' +
       '0199214F408D34617300111001A6');

    Coal := DTMFromString('78DA6314606060E06340015A5A52609A11CA6' +
       '79407123C0C688011550D488B38013520BB6409A86101121204D4' +
       '88010966026A40F6B01150C3042478F1AB010038E10194');

    Steel := DTMFromString('78DA6314626060E0644001E5F979609A11CA6' +
       '7140612120C688011550D3B901021A0860B48701150230724F808' +
       'A89102126C04D480DCCC4C843942F8D500000E02026F');
 end;

Function FindFastRandoms: Boolean;//By WT-Fakawi 
var
  i: Integer;
begin
  for i:=1 to 12 do
  begin
    case I of
     1:  If FindDead then
           Result := True;
     2:  If FindMod then
           Result := True;
     3:  If FindMime then
           Result := True;
     4:  If FindMaze then
           Result := True;
     5:  If FindQuiz then
           Result := True;
     6:  If FindDemon then
           Result := True;
     7: begin
           if NoGameTab then
           begin
             Result := True;
             Logout;
             Exit;
           end;
         end;
     8: begin
           if InBlack then
           begin
             Result := True;
             Logout;
             Exit;
           end;
         end;
     9: begin
             if(DetectFrogCave) then SolveFrogSwamp;
        end;
     10: begin
              if(FindFight) then
              begin
                   RunAwayDirection('W');
                   Wait(10000 + Random(2000));
                   RunBack;
              end;
         end;
     11: begin
              FindLamp('Prayer');
         end;
     12: begin
              if findname or findtalk then
              begin
               FindNormalRandoms;
              end
         end;
    end;
    Wait(1);
  end;
end;
///////////////////////opens the bank and withdraws the ores only for the first time//////////////////
Procedure WithdrawOres;//based it on the bank opening proces by ThickAsBlood
var i:integer;

  Begin
   i:=0
   if not (BankScreen) then
    repeat
     i:=i + 1;
     if (FindObj(x,y,'ank boot',BankBooth,10))then
      Mouse(x,y,0,0,false);
      Wait(1000+random(500));
      ClickOption('ickl', 1);
      Wait(3000+random(1000));
    until (GetColor(229, 41) = 2070783) or (BankScreen);
    QuickFixBank;
    if (i >= 10) then
      NextPlayer(true);
    if FindDTM(Iron, x, y, 76, 60, 442, 94)then
     begin
      Wait(500+random(500));
      Mouse(x,y,2,2,false);
      Wait(500+random(500));
      ClickOption('X', 1);
      Wait(1000+random(500));
      TypeSend('9');
    end;
    if FindDTM(Coal, x, y, 76, 60, 442, 94)then
     begin
      Wait(1000+random(500));
      Mouse(x,y,2,2,false);
      Wait(1000+random(500));
      ClickOption('ll', 1);
     end;
    MouseBox(478, 33, 494, 49, 1);
  end;

///////////////////////Walks to the furnace/////////////////
Procedure GoToFurnace;
 Begin
  FindMMColorTol(x,y,FurnaceMM,25);
  Mouse( x, y, 5, 5,true);
  Wait(2000+random(1000));
 End;

/////////////////////Smelt the ores/////////////////////
Procedure SmeltOres;
 var i:integer;

 Begin
    wait(3000+random(1000));
    i:=0;
    repeat
    i:= i + 1;
    FindMSColorTol(x,y,Furnace,15);
    wait(50+random(10));
    Mouse(x,y,5,8,false);
    wait(50+random(10));
    until(ClickOption('Smelt', 1)=true);
    if (i >= 10) then
    NextPlayer(true);
    begin
    Wait(5000+random(500));
    MouseBox(240, 395, 268, 418, 2);
    ChooseOption(x, y, 'elt 10');
    Wait(1000+random(3000))
    Wait(500+random(500));
    Findname;
    FindFastRandoms;
    Wait(5000+random(5000));
    FindFastRandoms;
    Wait(10000+random(1000));
    Barsdone:= Barsdone + 19;
   end;
 end;

//////////////////////back to the bank////////////////////
Procedure GoToBank;
 begin
  FindMMColorTol(x,y,bANKsYMBOL,25);
  Mouse( x, y, 5, 5,true);
  Mouse(x,y,1,1,true);
  Wait(3000+random(2000));
  FindFastRandoms;
 end;

////////////////////////deposit the ores///////////////////
Procedure ChangeBarsForOres;
var i : integer;
 Begin
  MakeCompass('s');
  Lowestangle;
  i:=0;
  repeat
     i:= + 1;
     if (FindObj(x,y,'ank boot',BankBooth,10))then
      Mouse(x,y,0,0,false);
      Wait(1000+random(500));
      ClickOption('ickl', 1);
      Wait(3000+random(1000));
  until (GetColor(229, 41) = 2070783) or (i >= 10) or (BankScreen);
      if (i >= 10) then
      TerminateScript;
    if FindDTM(Steel, x, y, 568, 216, 715, 325)then
     begin
      Wait(1000+random(500));
      Mouse(x,y,2,2,false);
      Wait(500+random(500));
      ClickOption('ll', 2);
      QuickFixBank;
    end;
     if FindDTM(Iron, x, y, 76, 60, 442, 94)then
     begin
      Wait(1000+random(500));
      Mouse(x,y,2,2,false);
      ClickOption('X', 1);
      Wait(1000+random(500));
      TypeSend('9');
    end;
    if FindDTM(Coal, x, y, 76, 60, 442, 94)then
     begin
      Wait(1000+random(500));
      Mouse(x,y,2,2,false);
      Wait(1000+random(500));
      ClickOption('ll', 1);
     end;
    MouseBox(478, 33, 494, 49, 1);
    HighestAngle;
 end;
//////////////////////Main Loop////////////////////////
Begin
  SetupSRL;
  DeclarePlayers;
 if (not(LoggedIn)) then
  LoginPlayer;
  FreeDTMs;
  BarsDone:=0
  MakeCompass('s');
  WithdrawOres;
    Repeat
      MakeCompass('n');
      GoToFurnace;
      SmeltOres;
      GoToBank;
      ChangeBarsForOres;
      if ((LoggedIn) and (Players[Currentplayer].integer1 >=(BarsDone))) then
        begin
         Logout;
         NextPlayer(true);
         FreeDTMs;
         BarsDone:= 0;
         HighestAngle;
         MakeCompass('s');
       end;
     if (not(Loggedin)) then NextPlayer(False);
  until(False);
end.

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

Your antirandoms are weird.. You use if FindTalk then FindNormalRandoms :p

Anyways, you should put //By WT-Fakawi next to the FindFastRandoms; function.

I'm going to hold my vote, but it may be a no because this script isn't super amazing, but it's good.

ooooh did I forget the //by WT-Fakawi :eek:
Oh damn, better change fast :D
But if you hold your vote, then who voted no?

From: EL_TYCHO
ooooh did I forget the //by WT-Fakawi :eek:
Oh damn, better change fast :D
But if you hold your vote, then who voted no?

Nobody is required to reply after they vote with any reason. But I find it nice to give your reasons when voting no always.. Because that's how you can improve, constructive critisism :)

I'm going to vote later because I have to go now.

ok cya ;)

Well I think so to, if you just vote no but dont give any criticisme, then Ill never know what to improve :)

Hmm. I'll give it a yes. It seems like you understand the main things.

pleasse use semi colons..

BarsDone:=0

I look over more in depth later.

Edit: Ok I looked some more, you have a really good script, but you forgot something that is very important.

Failsafes!!!! You shuld never have a repeat method be able to go on forever!
You need to include some hardcodes method (not realted to rs) that will stop it.

Such as if(timefrommark(mark)>(1000*30)) then break;
or if(numberOfRepeats > 8) then break; //obviously having numberofreapeats++ somewhere

Other than this good script though. Keep up the good work and i hope to see you in sometime soon!

I know this is not KYAB forums but this script needs checked. He applied at kyab with a stolen script the first time. He took a rune buyer and changed it to an arrow buyer and admitted to it when he was caught.

Hes now applying at kyab for the 3rd time and with this same smelter script.

quote 3garrett3
well, he took jason2gs rune buyer, changed the coords, and called it his arrow buyer.

That in itself is enough for a no from me. I just dont like dishonesty.

Iv checked it.
Seems clean to me.
Thanks for the heads up justkidding.

ya, i played copy buster at KYAB forums when he applied with the copied scripts, and he displayed some bad attitude, and claimed it wasnt stolen, and when i proved it he decided to be mad at me.

Hmm…I didn't know that.

I suggested to him some methods at KYAB that he seems to not have put in so I will hold my vote for now

omg 3garrett3, you just dont quit do you? Well, heres the PM's ive sent to jason2gs and the ones that he sended back:

Quote:
Originally Posted by EL_TYCHO
Hi,
I know I have been bugging you with dumb questions about the rune buyer script But im gonna try to make my first script, and im gonna try to make some sort of the same type as the rune buyer, but not for runes of course, it will buy arrows or arrowtips, so maybe you can help me a bit making it?

Thanks,
EL_TYCHO

Quote:
Originally Posted by Jason2gs

Sure mate, no problem

What do you need help on at the moment?

Quote:
Originally Posted by EL_TYCHO

Well I gained basic scripting so I understand the Variables, constants and the procedures, the only thing I kinda need help with is the mousebox.

Quote:
Originally Posted by Jason2gs

Ah, alright. MouseBoxes are quite easy.

Here's an example:


ScarScript: By Drunkenoldma
MouseBox(1, 1, 600, 600, 1);
That will create a box starting at 1, 1, and ending at 600, 600, and click randomly in it. The number at the end is:

1- Left click
2- Right click
3- No click


Quote:
Originally Posted by EL_TYCHO

Aaaaaaah, thank you very much
Now I can finally finish the script It might look a bit like yours, cuz its actually the same script but with other objects
But ill write your name on it to ;)



And this is the last PM he sended to me:


Alrighty, sounds good ;)


So please 3garret3, stop bugging me :(

Im coming to check his app at KYAB. See ya soon ! ;D
But I will have to vote no atleast here. In your GoToFurnace you should use Flag; instead of wait.
More knowledge of SRL needed. GJ with DTMs.
Keep trying!

EDIT: Oh, I thought he made a new app at KYAB but whateva…

Thanks, ill try it with flags and put more failsafes in it :)

The poll is closed anyway..