SRL Archive - Archive

Garrett92 - SRL Member Application Form

Garrett

2007-06-30 13:21:03

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

What is the meaning to life?

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

Programming Knowledge
PHP

Other Communitys
MoparScape

How Long have You Played Runescape
2 Years

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

I'm new to SRL, and kind of new to the whole macro thing, just started a few weeks ago. But this is my first script, and I thought it came out very nicely. So I figured I would like to become an SRL member, because I liked scripting this. Its fun, then you can release it and see what people have to say about it, and any improvements. But I plan on working with scripts a lot, so If I could get accepted t be a SRL Member, that would be awesome. Thanks.

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

I couldn't attach this so… I don't know if you only wanted a piece of code, or the whole thing. But here is the whole thing.

V2.2 of my script.

It Must Compile….

//////////////////////////////////
{     Garrett's Fire Crafter     |
|                                |
|          Instructions          |
|          ============          |
|   Essence In First Bank Slot   |
|     Start in AlKharid Bank     |
|     RuneScape Full Bright      |
|      Setup Lines 22 - 79       |
|        SCAR Divi 3.0.6         |
|         Use Tiara Only         |
|           SRL 3.80+            }
//////////////////////////////////
//////////////////////////////////
{ Version Info:                  |
| V1.0-First Release             |
| V2.0-SRL Stats Added + More    |
| V2.1-More SRL Stats            |
| V2.2-Fixed A Bug               }
//////////////////////////////////

Program GarrettsFireCrafter;
{.include SRL/SRL.Scar}

Const
//GET THESE COLORS - OTHERWISE SCRIPT WONT WORK!!!
MapTree = 1595437;   // Example: Get the color of a tree (I'll get a link later)
MapRock = 2313332;  // Example: Get the color of rock (I'll get a link later)
ACactus = 4029260;  // Example: Get the color of a cactus (I'll get a link later)
KebabSymbol = 3093500;   // Example: Get the red color of kebab symbol (I'll get a link later)
SwordSymbol = 7620157;   // Example: Get the bluish color of sowrd symbol (I'll get a link later)
SilksSymbol = 8395953;   // Example: Any pink color of silk symbol (I'll get a link later)
QuestSymbol = 16019786;  // Example: Any blue color of quest symbol (I'll get a link later)
//Settings
EssToCraft   = 560; // 28 Per Load
YourSRLID    = '';
YourSRLPASS  = '';



Procedure DeclarePlayers;
Begin
 HowManyPlayers:=6; //Don't Change if you want more players just fill in their info and set their active to: True/False
 NumberOfPlayers(HowManyPlayers);
 CurrentPlayer := 0; //Player to start on

  Players[0].Name :='Name';  //Fill in your username
  Players[0].Pass :='Pass';  //Fill in your password
  Players[0].Nick :='Nick';      //2-3 letters of your username
  Players[0].Active :=True;      //Set true if you want to use this player
  Players[0].Loc := 'Bank';    //Location
  Players[0].String1 := '';   //Bank Pin - If you have one
  
  Players[1].Name :='Name';  //Fill in your username
  Players[1].Pass :='Pass';  //Fill in your password
  Players[1].Nick :='Nick';      //2-3 letters of your username
  Players[1].Active :=False;      //Set true if you want to use this player
  Players[1].Loc := 'Bank';    //Location
  Players[1].String1 := '';   //Bank Pin - If you have one
  
  Players[2].Name :='Name';  //Fill in your username
  Players[2].Pass :='Pass';  //Fill in your password
  Players[2].Nick :='Nick';      //2-3 letters of your username
  Players[2].Active :=False;      //Set true if you want to use this player
  Players[2].Loc := 'Bank';    //Location
  Players[2].String1 := '';   //Bank Pin - If you have one
  
  Players[3].Name :='Name';  //Fill in your username
  Players[3].Pass :='Pass';  //Fill in your password
  Players[3].Nick :='Nick';      //2-3 letters of your username
  Players[3].Active :=False;      //Set true if you want to use this player
  Players[3].Loc := 'Bank';    //Location
  Players[3].String1 := '';   //Bank Pin - If you have one
  
  Players[4].Name :='Name';  //Fill in your username
  Players[4].Pass :='Pass';  //Fill in your password
  Players[4].Nick :='Nick';      //2-3 letters of your username
  Players[4].Active :=False;      //Set true if you want to use this player
  Players[4].Loc := 'Bank';    //Location
  Players[4].String1 := '';   //Bank Pin - If you have one
  
  Players[5].Name :='Name';  //Fill in your username
  Players[5].Pass :='Pass';  //Fill in your password
  Players[5].Nick :='Nick';      //2-3 letters of your username
  Players[5].Active :=False;      //Set true if you want to use this player
  Players[5].Loc := 'Bank';    //Location
  Players[5].String1 := '';   //Bank Pin - If you have one

  NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars)
End;

///////////////////////////////
  Const VersionNum = '2.2';  //
///////////////////////////////

var
KebabSym, SwordSym, SilkSym, QuestSym, GetRoadC, MaxTolerance, GetRoadCo, Ix,
Iy, EssCrafted, Tries, Success, rclvl, fires, Firez, Bankz: Integer;

function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
  for i := 1 to 8 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;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
end;

procedure FindRandoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
end;

Procedure AntiBanage;
Begin
  if(not(LoggedIn))then
  Exit;
  case Random(5) of
    0: Begin
       GameTab(2);
       HoverSkill('runecraft', false);
       GameTab(4);
       End;
    1: PickUpMouse;
    2: GameTab(1 + Random(12));
    3: MouseBox(MSX1,MMY1,MMX2,MMY2,5);
    4: SleepAndMoveMouse(500+random(500));
  end;
end;

procedure DoAll;
begin
  FindRandoms;
  Case Random(5) of
  0: AntiBanage
  End;
  makecompass('N')
  highestangle;
  GameTab (4);
End;

procedure CheckLogged;
begin
  If (Not (LoggedIn)) Then
  Exit;
end;

procedure DoWait;
begin
  wait(500+random(500));
end;

procedure ResetTries;
begin
  If(Tries = 5)Then NextPlayer(False);
  Tries := 0;
  Success := 0;
end;

function FindObjMultiText2(var cx, cy: Integer; Ut1, UT2, UT3: string; color,
  tolerance: Integer): Boolean;
var
  x, y, a, c, i, x1, y1, x2, y2: Integer;
begin
    Color := Color;
  if (FindColorTolerance(x, y, color, msx1, msy1, msx2, msy2, tolerance)) then
  begin
    x1 := 245;
    y1 := 165;
    x2 := 277;
    y2 := 185;
    repeat
      if (not (Loggedin)) then
        Break;
      a := a + 1;
      if (a = 1) or (a = 3) then
        c := c + 1;
      for i := 1 to c do
      begin
        if (a = 1) then
        begin
          x1 := x1 + 30;
          x2 := x2 + 30;
        end
        else if (a = 2) then
        begin
          y1 := y1 - 20;
          y2 := y2 - 20;
        end
        else if (a = 3) then
        begin
          x1 := x1 - 30;
          x2 := x2 - 30;
        end
        else if (a = 4) then
        begin
          y1 := y1 + 20;
          y2 := y2 + 20;
        end;
        if (x1 = 485) and (x2 = 517) then
          x2 := x2 - 2;
        if (y1 = 325) and (y2 = 345) then
          y2 := y2 - 7;
        if (x2 > 515) then
          Break;
        if (FindColorTolerance(x, y, Color, x1, y1, x2, y2, tolerance)) then
        begin
          MMouse(x, y, 0, 0)
          Wait(10);
            cx := x;
          cy := y;
          if (IsUpTextMulti(UT1, UT2, UT3)) then
          begin
            Result := True;
            Break;
          end;
        end;
      end;
      if (a = 4) then
        a := 0;
    until (x2 > 515) or (Result = True);
  end;
end;

Procedure Bank;
Begin
wait(500+random(500));
FindBank('akb');
If pinscreen Then InPin(Players[CurrentPlayer].String1);
If BankScreen Then
Begin
    fixbank;
    depositall;
    mouse(89,69,1,1,false);
    wait(100)
    clickoption('All',1);
    closebank;
    wait(500)
    DoAll;
    players[currentplayer].loc := 'WalkTo';
    setrun(true)
End;
End;

Procedure WalktoFire;
Begin

  DoAll;
  Mouse (648, 63, 2, 2, True);
  Flag;
  DoWait;
  CheckLogged;
  ResetTries;
  
  KebabSym := BitmapFromString(15, 5, 'z78DA8D8E5D0AC0200C83A' +
  'F547F6AF5716AEF7FA54DE358F7E0188510D2F0117274DDA155AA' +
  '403905A216FDC863CBD5BF54C7A3279DDFD941DF12C83D6799E4A' +
  '4DF4C78289896BCE3EFC86BA1E9AFFD5333B386881CBEB0640E2B' +
  'D122654BB6FDFFFE9BFC876F154DCBB4E4139CCC5FED');

  Repeat
  If(Success = 0)Then
  Begin
    Tries := Tries+1;
    If(FindBitmapToleranceIn(KebabSym, x, y, 0, 0, 800, 800, 50)) then
      Begin
        Mouse(x, y, 1, 1, true);
        Flag;
        Success := 1;
      End;
  End;
  DoWait;
  If(Success = 0)Then
  Begin
    Tries := Tries+1;
    If(RadialWalk( KebabSymbol , -40, 40, 75, 2, 2))Then
      Begin
        Success := 1;
        Flag;
      End;
  End;
  Until(Success = 1) or (Tries = 5);

  FreeBitmap(KebabSym);
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;
  
  Repeat
  If(Success = 0)Then
  Begin
    Tries := Tries+1;
    If(RadialWalk( MapTree , 44, 103, 73, 2, 2))Then
      Begin
        Success := 1;
        Flag;
      End;
  End;
  Until(Success = 1) or (Tries = 5);
  
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;
       
  SwordSym := BitmapFromString(15, 5, 'z78DA8DD0410E03210805D' +
  '02BA1025F968333DCFF484D9D59D0589B6E7E20D117800A15120F' +
  'F7F1575AB76A7AC569E7D5A21DCC16E6C7C71B9AE64C5D85A60DA' +
  '0AC65F3AEAB55A96323EB4CECE4ACDDD9BD738F6C6E64EC6686A0' +
  'C21F7FFE656748C91758CD65E62FA6BA024549863E5BBF1B1ABFC' +
  'D7CE7171BE96904');

  Repeat
  If(Success = 0)Then
  Begin
    Tries := Tries+1;
    If(FindBitmapToleranceIn(SwordSym, x, y, 0, 0, 800, 800, 50)) then
    Begin
      Mouse(x, y, 1, 1, true);
      Flag;
      Success := 1;
    End;
  End;
  DoWait;
  If(Success = 0)Then
  Begin
    Tries := Tries+1;
    If(RadialWalk( SwordSymbol , 14, 77, 76, 2, 2))Then
      Begin
        Success := 1;
        Flag;
      End;
  End;
  Until(Success = 1) or (Tries = 5);

  FreeBitmap(SwordSym);
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;

  Repeat
  If(Success = 0)Then
  Begin
    Tries := Tries+1;
    If(RadialWalk( MapTree , 0, 63, 72, 2, 2))Then
    Begin
      Success := 1;
      Flag;
    End;
  End;
  Until(Success = 1) or (Tries = 5);
       
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;
       
  SilkSym := BitmapFromString(15, 5, 'z78DAA5D0410A00210885E1' +
  '2B3D87525CAA43F73FD2406D0A0984D97C8BA41F110442F7E11E8' +
  '7FA80B855CC7F319B53CED3A5195E898AA9CC53F95FD6A16E7B59' +
  '6E3BD7AFB137D3CEC7BB18A845C5D5BC94FB07F72966FB');

  Repeat
  If(Success = 0)Then
  Begin
    Tries := Tries+1;
    If(FindBitmapToleranceIn(SilkSym, x, y, 0, 0, 800, 800, 50)) then
    Begin
      Mouse(x, y, 1, 1, true);
      Flag;
      Success := 1;
    End;
  End;
  DoWait;
  If(Success = 0)Then
  Begin
    Tries := Tries+1;
    If(RadialWalk( SilksSymbol , 0, 80, 73, 2, 2))Then
    Begin
      Success := 1;
      Flag;
    End;
  End;
  Until(Success = 1) or (Tries = 5);

  FreeBitmap(SilkSym);
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;
  
  QuestSym := BitmapFromString(15, 5, 'z78DA8590410AC0200C04B' +
  'F14AB35F1685AFDFF930A2E8515B1BD0C2124C3B21224C8E9DDFD' +
  '9A68C95A6B55ABF6A862B1DD20F6F14CF6DE945EBC4EBF329C837' +
  '97582B0B19F9DCCC59C07151BCEB6638AF9E8B22399F53B337782' +
  '5F64C6CC37E804A4CC3F3D63E66C6BCFDC369C0F915E6782');

  Repeat
  If(Success = 0)Then
  Begin
    Tries := Tries+1;
    If(FindBitmapToleranceIn(QuestSym, x, y, 0, 0, 800, 800, 50)) then
    Begin
      Mouse(x, y, 1, 1, true);
      Flag;
      Success := 1;
    End;
  End;
  DoWait;
  If(Success = 0)Then
  Begin
    Tries := Tries+1;
    If(RadialWalk( QuestSymbol , -25, 50, 70, 2, 2))Then
      Begin
        Success := 1;
        Flag;
      End;
  End;
  Until(Success = 1) or (Tries = 5);

  FreeBitmap(QuestSym);
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;
  
  Repeat
  If(Success = 0)Then
  Begin
    Tries := Tries+1;
    If(RadialWalk( MapRock , 0, 57, 70, 4, 4))Then
    Begin
      Success := 1;
      Flag;
    End;
  End;
  Until(Success = 1) or (Tries = 5);

  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;
       
  GetRoadC := BitmapFromString(4, 4, 'z78DAB33033773575B2A0190900' +
  '2CBC1611');
  MaxTolerance := 40;
  GetRoadCo := AutoColorThis(GetRoadC, MaxTolerance, MMX1, MMY1, MMX2, MMY2);
  WriteLn('Road Color: '+IntToStr(GetRoadCo));
  FreeBitmap(GetRoadC);

  Repeat
  If(Success = 0)Then
  Begin
    Tries := Tries+1;
    If(RadialWalk( GetRoadCo , 0, 60, 75, 5, 5))Then
    Begin
      Success := 1;
      Flag;
    End;
  End;
  Until(Success = 1) or (Tries = 5);
       
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;
       
  Mouse (658, 12, 2, 2, True);
  Flag;
  
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;

  Players[CurrentPlayer].Loc := 'OutsideAltar';

End;

Function InsideRuins: boolean; //Credit to: Devil Fire Crafter
Begin
  Result := not findColor (Ix, Iy, ACactus, mmx1, mmy1, mmx2, mmy2)
End;

Procedure OutsideAltar;
Var
TimeMarker, TimeMarker2: integer;
Begin

  DoAll;
  DoWait;
  CheckLogged;

  GameTab (4);
  MarkTime (TimeMarker2)
  Repeat
  If FindObjMultiText2(Ix, Iy, 'My', 'st', 'te', 5789535, 5) then
  Begin
    Mouse (Ix, Iy, 0, 0, True);
    MarkTime (TimeMarker)
    Repeat
    Wait(100);
    Until (InsideRuins) or (TimeFromMark(TimeMarker)>5000)
    If InsideRuins then players[currentplayer].loc := 'InsideAltar'; exit;
  End;
  Until (TimeFromMark (TimeMarker2) > 10000)

  DoAll;
  CheckLogged;

  Tries := Tries+1;

  If(Tries < 4)then
  Begin
    Mouse (660, 84, 2, 2, True);
    Flag;
    WriteLn('Please Wait... We WILL Find The Mysterious Ruins.')
    WriteLn('Give Me 3 Minutes To Find The Ruins.')
  End Else
  Begin
    Mouse (632, 62, 2, 2, True);
    Flag;
    WriteLn('If This Doesnt Bring Us To Ruins, Please Restart Bot.')
  End;
 
End;

Procedure InsideAltar;
Var
TimeMarker, TimeMarker2: integer;
Begin

  DoAll;
  Mouse (678, 127, 2, 2, True)
  Flag;
  DoWait;
  CheckLogged;

  GameTab (4);
  MarkTime (TimeMarker);
  If FindObjMultiText2(Ix, Iy, 'Cra', 'Alt', 'rune', 5000789, 5) then
  Begin
    Mouse (Ix, Iy, 0, 0, True);
    DoWait;
    EssCrafted := EssCrafted+28;
    WriteLn('You Have Now Crafted '+IntToStr(EssCrafted)+' Out Of '+IntToStr(EssToCraft)+' Fire Runes.');
  End;

  DoAll;

  Mouse (624, 54, 2, 2, True);
  Flag;
 
  DoAll;
  CheckLogged;
 
  MarkTime (TimeMarker2)
  Repeat
  If FindObjMultiText2(Ix, Iy, 'Po', 'tal', 'ort', 1460682, 5) then
  Begin
    Mouse (Ix, Iy, 0, 0, True);
    MarkTime (TimeMarker)
    Repeat
    Wait(100);
    Until (not InsideRuins) or (TimeFromMark(TimeMarker)>5000)
    If not InsideRuins then players[currentplayer].loc := 'WalkBack'; exit;
  End;
  DoWait;
  Until (TimeFromMark (TimeMarker2) > 30000)
  NextPlayer(False)

End;

Procedure FireRunes;
Begin

  If (rclvl > 14) Then
  Begin
    Fires := 1;
  End;
  If (rclvl >= 35) Then
  Begin
    Fires := 2;
  End;
  If (rclvl >= 70) Then
  Begin
    Fires := 3;
  End;
End;

Procedure ProgressReport;

Begin
  Cleardebug;
  FireRunes;
  Firez := 28*Fires+(Firez);
  Bankz := Bankz+1;
  ReportVars[0] := ReportVars[0]+1;  //Banked
  ReportVars[1] := ReportVars[1]+28;  //Essence Crafted
  ReportVars[2] := ReportVars[2]+(28*Fires);  //Fire Runes Crafted
  WriteLn('//////////////////////////////////////////////////')
  WriteLn('| Garretts FireRune Maker');
  WriteLn('| Version: '+VersionNum);
  WriteLn('| ');
  WriteLn('| Banked: '+IntToStr(Bankz)+'.');
  WriteLn('| Essence Crafted: '+IntToStr(EssCrafted)+'.');
  WriteLn('| Fire Runes Crafted: '+IntToStr(Firez)+'.');
  Writeln('| Worked for '+ TimeRunning);
  WriteLn('//////////////////////////////////////////////////')
  SRLRandomsReport;
End;

Procedure WalktoBank;
Begin
  CheckLogged;
  DoAll;

  Mouse (648, 116, 2, 2, True);
  Flag;
 
  DoAll;

  GetRoadC := BitmapFromString(4, 4, 'z78DAB33033773575B2A0190900' +
  '2CBC1611');
  MaxTolerance := 40;
  GetRoadCo := AutoColorThis(GetRoadC, MaxTolerance, MMX1, MMY1, MMX2, MMY2);
  WriteLn('Road Color: '+IntToStr(GetRoadCo));
  FreeBitmap(GetRoadC);
  
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;

  Repeat
  If(Success = 0)Then
  Begin
  Tries := Tries+1;
    If(RadialWalk( GetRoadCo , 160, 200, 70, 5, 5))Then
    Begin
      Success := 1;
      Flag;
    End;
  End;
  Until(Success = 1) or (Tries = 5);
  
  
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;

  Repeat
  If(Success = 0)Then
  Begin
  Tries := Tries+1;
    If(RadialWalk( MapRock , 160, 230, 60, 4, 4))Then
    Begin
      Success := 1;
      Flag;
    End;
  End;
  Until(Success = 1) or (Tries = 5);

  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;
  
  Repeat
  If(Success = 0)Then
  Begin
  Tries := Tries+1;
    If(RadialWalk( GetRoadCo , 200, 250, 65, 5, 5))Then
    Begin
      Success := 1;
      Flag;
    End;
  End;
  Until(Success = 1) or (Tries = 5);
       
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;
  
  QuestSym := BitmapFromString(15, 5, 'z78DA8590410AC0200C04B' +
  'F14AB35F1685AFDFF930A2E8515B1BD0C2124C3B21224C8E9DDFD' +
  '9A68C95A6B55ABF6A862B1DD20F6F14CF6DE945EBC4EBF329C837' +
  '97582B0B19F9DCCC59C07151BCEB6638AF9E8B22399F53B337782' +
  '5F64C6CC37E804A4CC3F3D63E66C6BCFDC369C0F915E6782');

  Repeat
  If(Success = 0)Then
  Begin
  Tries := Tries+1;
    If(FindBitmapToleranceIn(QuestSym, x, y, 0, 0, 800, 800, 50)) then
    Begin
      Mouse(x, y, 1, 1, true);
      Flag;
      Success := 1;
    End;
  End;
  DoWait;
  If(Success = 0)Then
  Begin
  Tries := Tries+1;
    If(RadialWalk( QuestSymbol , 0, 360, 70, 2, 2))Then
    Begin
      Success := 1;
      Flag;
    End;
  End;
  Until(Success = 1) or (Tries = 5);

  FreeBitmap(QuestSym);
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;
  
  SilkSym := BitmapFromString(15, 5, 'z78DAA5D0410A00210885E1' +
  '2B3D87525CAA43F73FD2406D0A0984D97C8BA41F110442F7E11E8' +
  '7FA80B855CC7F319B53CED3A5195E898AA9CC53F95FD6A16E7B59' +
  '6E3BD7AFB137D3CEC7BB18A845C5D5BC94FB07F72966FB');

  Repeat
  If(Success = 0)Then
  Begin
  Tries := Tries+1;
    If(FindBitmapToleranceIn(SilkSym, x, y, 0, 0, 800, 800, 50)) then
    Begin
      Mouse(x, y, 1, 1, true);
      Flag;
      Success := 1;
    End;
  End;
  DoWait;
  If(Success = 0)Then
  Begin
  Tries := Tries+1;
    If(RadialWalk( SilksSymbol , 160, 230, 65, 2, 2))Then
      Begin
        Success := 1;
        Flag;
      End;
  End;
  Until(Success = 1) or (Tries = 5);

  FreeBitmap(SilkSym);
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;

  repeat
  If(Success = 0)Then
  Begin
  Tries := Tries+1;
    If(RadialWalk( MapTree , 180, 250, 55, 2, 2))Then
    Begin
      Success := 1;
      Flag;
    End;
  End;
  Until(Success = 1) or (Tries = 5);
  
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;
       
  SwordSym := BitmapFromString(15, 5, 'z78DA8DD0410E03210805D' +
  '02BA1025F968333DCFF484D9D59D0589B6E7E20D117800A15120F' +
  'F7F1575AB76A7AC569E7D5A21DCC16E6C7C71B9AE64C5D85A60DA' +
  '0AC65F3AEAB55A96323EB4CECE4ACDDD9BD738F6C6E64EC6686A0' +
  'C21F7FFE656748C91758CD65E62FA6BA024549863E5BBF1B1ABFC' +
  'D7CE7171BE96904');

  repeat
  If(Success = 0)Then
  Begin
  Tries := Tries+1;
    If(FindBitmapToleranceIn(SwordSym, x, y, 0, 0, 800, 800, 50)) then
    Begin
      Mouse(x, y, 1, 1, true);
      Flag;
      Success := 1;
    End;
  End;
  DoWait;
  If(Success = 0)Then
  Begin
  Tries := Tries+1;
    If(RadialWalk( SwordSymbol , 180, 250, 50, 2, 2))Then
    Begin
      Success := 1;
      Flag;
    End;
  End;
  Until(Success = 1) or (Tries = 5);

  FreeBitmap(SwordSym);
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;
  
  repeat
  If(Success = 0)Then
  Begin
  Tries := Tries+1;
    If(RadialWalk( MapTree , 175, 250, 60, 2, 2))Then
    Begin
      Success := 1;
      Flag;
    End;
  End;
  Until(Success = 1) or (Tries = 5);
  
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;

  KebabSym := BitmapFromString(15, 5, 'z78DA8D8E5D0AC0200C83A' +
  'F547F6AF5716AEF7FA54DE358F7E0188510D2F0117274DDA155AA' +
  '403905A216FDC863CBD5BF54C7A3279DDFD941DF12C83D6799E4A' +
  '4DF4C78289896BCE3EFC86BA1E9AFFD5333B386881CBEB0640E2B' +
  'D122654BB6FDFFFE9BFC876F154DCBB4E4139CCC5FED');

  repeat
  If(Success = 0)Then
  Begin
  Tries := Tries+1;
    If(FindBitmapToleranceIn(KebabSym, x, y, 0, 0, 800, 800, 50)) then
    Begin
      Mouse(x, y, 1, 1, true);
      Flag;
      Success := 1;
    End;
  End;
  DoWait;
  If(Success = 0)Then
  Begin
  Tries := Tries+1;
    If(RadialWalk( KebabSymbol , 210, 270, 60, 2, 2))Then
    Begin
      Success := 1;
      Flag;
    End;
  End;
  Until(Success = 1) or (Tries = 5);

  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;
  Mouse (648, 104, 2, 2, True);
  Flag;

  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;

  Players[CurrentPlayer].Loc := 'Bank';
  
  ProgressReport;

End;

Begin
  setupsrl;
  ScriptID := '208';
  activateclient;
  DeclarePlayers;
  NewLine:='';

If(not(LoggedIn)) then
LoginPlayer;

  ClearDebug;

DoAll;

EssCrafted := 0;
Bankz := 0;
Firez := 0;
SRLID := YourSRLID;
SRLPassword := YourSRLPASS;
rclvl:= Getskilllevel('Runecrafting')
WriteLn('RCLevel = '+IntToStr(rclvl)+'.')


Repeat
  If players[currentplayer].loc = 'Bank' Then
  Begin
    Bank;
    If(EssCrafted = EssToCraft)Then
    Begin
    NextPlayer(True)
    End;
  End;
  If players[currentplayer].loc ='WalkTo' Then
  Begin
    WalktoFire;
  End;
  If players[currentplayer].loc ='WalkBack' Then
  Begin
    WalktoBank;
  End;
  If players[currentplayer].loc ='OutsideAltar' Then
  Begin
    OutsideAltar;
  End;
  If players[currentplayer].loc ='InsideAltar' Then
  Begin
    InsideAltar;
  End;
  Until(false)
End.

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

RudeBoiAlex

2007-06-30 13:26:46

the scripts ok but for pinscreen u can have a players[currentplayer].integer1:=1211 for there bank pin or summin im holding my vote

JAD

2007-06-30 13:44:48

There's no point to your if this = 0 then's because you do the same thing over and over anyways… You could have shorten the script of all that useless code and used something like


for var := 1 to 5 do
begin
  if(not(RadialWalk)))then
    wait(500+random(500))else
      break;
end;

Or whatever.. LOTS of useless code, not sure if it's copied, horrific hard to read standards, I'm going to vote no sorry.

Hugolord

2007-06-30 14:54:29

like JAD said you could have made those 1606 lines into 700 =/ and gets more posts please and be more active

YoHoJo

2007-06-30 15:57:08

Its not coppied. But the script is sloppy as hell.
I have no idea what some of the code is for, and i see some bitmaps 2 or 3 times in here.

JAD

2007-06-30 15:59:47

From: YoHoJo
Its not coppied. But the script is sloppy as hell.
I have no idea what some of the code is for, and i see some bitmaps 2 or 3 times in here.

Sloppy and most of the code is useless.. :p

Anyways, you need to get to know the community more to before even being considered as a SRL member (IMO).

YoHoJo

2007-06-30 16:18:38

Oh shet!
He has 3 posts.
Time to do a deepscan and try to copy bust.
Can you please explain how you learned to script with only 4 posts?

Garrett

2007-06-30 16:41:13

lol, I just did some reading and stuff in the tutorial section… and how everyone is saying my script is sloppy, this is my first script. I have no idea how to make it any shorter, I think I could probably make some repeat's instead of making multiples of the same code. It will be something I can work on for improving my script.

JAD

2007-06-30 16:44:45

From: Garrett92
lol, I just did some reading and stuff in the tutorial section… and how everyone is saying my script is sloppy, this is my first script. I have no idea how to make it any shorter, I think I could probably make some repeat's instead of making multiples of the same code. It will be something I can work on for improving my script.

That would be a HUGE improvement alone.

A script that's 500 lines long can be just as good as a script 2000 lines long. But if they both work just the same, I'd rather have the shortened version.. Easier to read through :)

It's not a terrible script, that useless code is just pretty annoying though :p If you fixed that I'd actually like the script a LOT more.

Edit: hmm… Either you are lieing to us, or you were being rude by not posting on any tutorials that you read in the tutorial island section.

Us tutorial writers LOVE to hear feed back, or even just a thank you for the tut, it makes us feel like we did something good, and our time wasn't wasted.

And you didn't post in any of the tutorials you read, that's exactly like using a script and not posting on that.

Next time you use a script/read a tutorial, try to post something to the author about it ;)

Garrett

2007-06-30 16:50:08

Oh ya.. I'm not much of a poster, but I guess I better start becoming one on these forums. Sorry about that.

JAD

2007-06-30 16:51:49

From: Garrett92
Oh ya.. I'm not much of a poster, but I guess I better start becoming one on these forums. Sorry about that.

np lol. Posting is how people get to know you, how you get to know people and how you can make a difference ;)

Garrett

2007-06-30 19:45:04

Here we go: Updated my script
Went from 1606 Lines to 961, and there is still probably other ways to shorten it.
Also added SRL Stats.

Another Update! V2.2
All I need to do now is get it to autocolor.


//////////////////////////////////
{     Garrett's Fire Crafter     |
|                                |
|          Instructions          |
|          ============          |
|   Essence In First Bank Slot   |
|     Start in AlKharid Bank     |
|     RuneScape Full Bright      |
|      Setup Lines 22 - 79       |
|        SCAR Divi 3.0.6         |
|         Use Tiara Only         |
|           SRL 3.80+            }
//////////////////////////////////
//////////////////////////////////
{ Version Info:                  |
| V1.0-First Release             |
| V2.0-SRL Stats Added + More    |
| V2.1-More SRL Stats            |
| V2.2-Fixed A Bug               }
//////////////////////////////////

Program GarrettsFireCrafter;
{.include SRL/SRL.Scar}

Const
//GET THESE COLORS - OTHERWISE SCRIPT WONT WORK!!!
MapTree = 1595437;   // Example: Get the color of a tree (I'll get a link later)
MapRock = 2313332;  // Example: Get the color of rock (I'll get a link later)
ACactus = 4029260;  // Example: Get the color of a cactus (I'll get a link later)
KebabSymbol = 3093500;   // Example: Get the red color of kebab symbol (I'll get a link later)
SwordSymbol = 7620157;   // Example: Get the bluish color of sowrd symbol (I'll get a link later)
SilksSymbol = 8395953;   // Example: Any pink color of silk symbol (I'll get a link later)
QuestSymbol = 16019786;  // Example: Any blue color of quest symbol (I'll get a link later)
//Settings
EssToCraft   = 560; // 28 Per Load
YourSRLID    = '';
YourSRLPASS  = '';



Procedure DeclarePlayers;
Begin
 HowManyPlayers:=6; //Don't Change if you want more players just fill in their info and set their active to: True/False
 NumberOfPlayers(HowManyPlayers);
 CurrentPlayer := 0; //Player to start on

  Players[0].Name :='Name';  //Fill in your username
  Players[0].Pass :='Pass';  //Fill in your password
  Players[0].Nick :='Nick';      //2-3 letters of your username
  Players[0].Active :=True;      //Set true if you want to use this player
  Players[0].Loc := 'Bank';    //Location
  Players[0].String1 := '';   //Bank Pin - If you have one
  
  Players[1].Name :='Name';  //Fill in your username
  Players[1].Pass :='Pass';  //Fill in your password
  Players[1].Nick :='Nick';      //2-3 letters of your username
  Players[1].Active :=False;      //Set true if you want to use this player
  Players[1].Loc := 'Bank';    //Location
  Players[1].String1 := '';   //Bank Pin - If you have one
  
  Players[2].Name :='Name';  //Fill in your username
  Players[2].Pass :='Pass';  //Fill in your password
  Players[2].Nick :='Nick';      //2-3 letters of your username
  Players[2].Active :=False;      //Set true if you want to use this player
  Players[2].Loc := 'Bank';    //Location
  Players[2].String1 := '';   //Bank Pin - If you have one
  
  Players[3].Name :='Name';  //Fill in your username
  Players[3].Pass :='Pass';  //Fill in your password
  Players[3].Nick :='Nick';      //2-3 letters of your username
  Players[3].Active :=False;      //Set true if you want to use this player
  Players[3].Loc := 'Bank';    //Location
  Players[3].String1 := '';   //Bank Pin - If you have one
  
  Players[4].Name :='Name';  //Fill in your username
  Players[4].Pass :='Pass';  //Fill in your password
  Players[4].Nick :='Nick';      //2-3 letters of your username
  Players[4].Active :=False;      //Set true if you want to use this player
  Players[4].Loc := 'Bank';    //Location
  Players[4].String1 := '';   //Bank Pin - If you have one
  
  Players[5].Name :='Name';  //Fill in your username
  Players[5].Pass :='Pass';  //Fill in your password
  Players[5].Nick :='Nick';      //2-3 letters of your username
  Players[5].Active :=False;      //Set true if you want to use this player
  Players[5].Loc := 'Bank';    //Location
  Players[5].String1 := '';   //Bank Pin - If you have one

  NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars)
End;

///////////////////////////////
  Const VersionNum = '2.2';  //
///////////////////////////////

var
KebabSym, SwordSym, SilkSym, QuestSym, GetRoadC, MaxTolerance, GetRoadCo, Ix,
Iy, EssCrafted, Tries, Success, rclvl, fires, Firez, Bankz: Integer;

function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
  for i := 1 to 8 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;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
end;

procedure FindRandoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
end;

Procedure AntiBanage;
Begin
  if(not(LoggedIn))then
  Exit;
  case Random(5) of
    0: Begin
       GameTab(2);
       HoverSkill('runecraft', false);
       GameTab(4);
       End;
    1: PickUpMouse;
    2: GameTab(1 + Random(12));
    3: MouseBox(MSX1,MMY1,MMX2,MMY2,5);
    4: SleepAndMoveMouse(500+random(500));
  end;
end;

procedure DoAll;
begin
  FindRandoms;
  Case Random(5) of
  0: AntiBanage
  End;
  makecompass('N')
  highestangle;
  GameTab (4);
End;

procedure CheckLogged;
begin
  If (Not (LoggedIn)) Then
  Exit;
end;

procedure DoWait;
begin
  wait(500+random(500));
end;

procedure ResetTries;
begin
  If(Tries = 5)Then NextPlayer(False);
  Tries := 0;
  Success := 0;
end;

function FindObjMultiText2(var cx, cy: Integer; Ut1, UT2, UT3: string; color,
  tolerance: Integer): Boolean;
var
  x, y, a, c, i, x1, y1, x2, y2: Integer;
begin
    Color := Color;
  if (FindColorTolerance(x, y, color, msx1, msy1, msx2, msy2, tolerance)) then
  begin
    x1 := 245;
    y1 := 165;
    x2 := 277;
    y2 := 185;
    repeat
      if (not (Loggedin)) then
        Break;
      a := a + 1;
      if (a = 1) or (a = 3) then
        c := c + 1;
      for i := 1 to c do
      begin
        if (a = 1) then
        begin
          x1 := x1 + 30;
          x2 := x2 + 30;
        end
        else if (a = 2) then
        begin
          y1 := y1 - 20;
          y2 := y2 - 20;
        end
        else if (a = 3) then
        begin
          x1 := x1 - 30;
          x2 := x2 - 30;
        end
        else if (a = 4) then
        begin
          y1 := y1 + 20;
          y2 := y2 + 20;
        end;
        if (x1 = 485) and (x2 = 517) then
          x2 := x2 - 2;
        if (y1 = 325) and (y2 = 345) then
          y2 := y2 - 7;
        if (x2 > 515) then
          Break;
        if (FindColorTolerance(x, y, Color, x1, y1, x2, y2, tolerance)) then
        begin
          MMouse(x, y, 0, 0)
          Wait(10);
            cx := x;
          cy := y;
          if (IsUpTextMulti(UT1, UT2, UT3)) then
          begin
            Result := True;
            Break;
          end;
        end;
      end;
      if (a = 4) then
        a := 0;
    until (x2 > 515) or (Result = True);
  end;
end;

Procedure Bank;
Begin
wait(500+random(500));
FindBank('akb');
If pinscreen Then InPin(Players[CurrentPlayer].String1);
If BankScreen Then
Begin
    fixbank;
    depositall;
    mouse(89,69,1,1,false);
    wait(100)
    clickoption('All',1);
    closebank;
    wait(500)
    DoAll;
    players[currentplayer].loc := 'WalkTo';
    setrun(true)
End;
End;

Procedure WalktoFire;
Begin

  DoAll;
  Mouse (648, 63, 2, 2, True);
  Flag;
  DoWait;
  CheckLogged;
  ResetTries;
  
  KebabSym := BitmapFromString(15, 5, 'z78DA8D8E5D0AC0200C83A' +
  'F547F6AF5716AEF7FA54DE358F7E0188510D2F0117274DDA155AA' +
  '403905A216FDC863CBD5BF54C7A3279DDFD941DF12C83D6799E4A' +
  '4DF4C78289896BCE3EFC86BA1E9AFFD5333B386881CBEB0640E2B' +
  'D122654BB6FDFFFE9BFC876F154DCBB4E4139CCC5FED');

  Repeat
  If(Success = 0)Then
  Begin
    Tries := Tries+1;
    If(FindBitmapToleranceIn(KebabSym, x, y, 0, 0, 800, 800, 50)) then
      Begin
        Mouse(x, y, 1, 1, true);
        Flag;
        Success := 1;
      End;
  End;
  DoWait;
  If(Success = 0)Then
  Begin
    Tries := Tries+1;
    If(RadialWalk( KebabSymbol , -40, 40, 75, 2, 2))Then
      Begin
        Success := 1;
        Flag;
      End;
  End;
  Until(Success = 1) or (Tries = 5);

  FreeBitmap(KebabSym);
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;
  
  Repeat
  If(Success = 0)Then
  Begin
    Tries := Tries+1;
    If(RadialWalk( MapTree , 44, 103, 73, 2, 2))Then
      Begin
        Success := 1;
        Flag;
      End;
  End;
  Until(Success = 1) or (Tries = 5);
  
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;
       
  SwordSym := BitmapFromString(15, 5, 'z78DA8DD0410E03210805D' +
  '02BA1025F968333DCFF484D9D59D0589B6E7E20D117800A15120F' +
  'F7F1575AB76A7AC569E7D5A21DCC16E6C7C71B9AE64C5D85A60DA' +
  '0AC65F3AEAB55A96323EB4CECE4ACDDD9BD738F6C6E64EC6686A0' +
  'C21F7FFE656748C91758CD65E62FA6BA024549863E5BBF1B1ABFC' +
  'D7CE7171BE96904');

  Repeat
  If(Success = 0)Then
  Begin
    Tries := Tries+1;
    If(FindBitmapToleranceIn(SwordSym, x, y, 0, 0, 800, 800, 50)) then
    Begin
      Mouse(x, y, 1, 1, true);
      Flag;
      Success := 1;
    End;
  End;
  DoWait;
  If(Success = 0)Then
  Begin
    Tries := Tries+1;
    If(RadialWalk( SwordSymbol , 14, 77, 76, 2, 2))Then
      Begin
        Success := 1;
        Flag;
      End;
  End;
  Until(Success = 1) or (Tries = 5);

  FreeBitmap(SwordSym);
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;

  Repeat
  If(Success = 0)Then
  Begin
    Tries := Tries+1;
    If(RadialWalk( MapTree , 0, 63, 72, 2, 2))Then
    Begin
      Success := 1;
      Flag;
    End;
  End;
  Until(Success = 1) or (Tries = 5);
       
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;
       
  SilkSym := BitmapFromString(15, 5, 'z78DAA5D0410A00210885E1' +
  '2B3D87525CAA43F73FD2406D0A0984D97C8BA41F110442F7E11E8' +
  '7FA80B855CC7F319B53CED3A5195E898AA9CC53F95FD6A16E7B59' +
  '6E3BD7AFB137D3CEC7BB18A845C5D5BC94FB07F72966FB');

  Repeat
  If(Success = 0)Then
  Begin
    Tries := Tries+1;
    If(FindBitmapToleranceIn(SilkSym, x, y, 0, 0, 800, 800, 50)) then
    Begin
      Mouse(x, y, 1, 1, true);
      Flag;
      Success := 1;
    End;
  End;
  DoWait;
  If(Success = 0)Then
  Begin
    Tries := Tries+1;
    If(RadialWalk( SilksSymbol , 0, 80, 73, 2, 2))Then
    Begin
      Success := 1;
      Flag;
    End;
  End;
  Until(Success = 1) or (Tries = 5);

  FreeBitmap(SilkSym);
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;
  
  QuestSym := BitmapFromString(15, 5, 'z78DA8590410AC0200C04B' +
  'F14AB35F1685AFDFF930A2E8515B1BD0C2124C3B21224C8E9DDFD' +
  '9A68C95A6B55ABF6A862B1DD20F6F14CF6DE945EBC4EBF329C837' +
  '97582B0B19F9DCCC59C07151BCEB6638AF9E8B22399F53B337782' +
  '5F64C6CC37E804A4CC3F3D63E66C6BCFDC369C0F915E6782');

  Repeat
  If(Success = 0)Then
  Begin
    Tries := Tries+1;
    If(FindBitmapToleranceIn(QuestSym, x, y, 0, 0, 800, 800, 50)) then
    Begin
      Mouse(x, y, 1, 1, true);
      Flag;
      Success := 1;
    End;
  End;
  DoWait;
  If(Success = 0)Then
  Begin
    Tries := Tries+1;
    If(RadialWalk( QuestSymbol , -25, 50, 70, 2, 2))Then
      Begin
        Success := 1;
        Flag;
      End;
  End;
  Until(Success = 1) or (Tries = 5);

  FreeBitmap(QuestSym);
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;
  
  Repeat
  If(Success = 0)Then
  Begin
    Tries := Tries+1;
    If(RadialWalk( MapRock , 0, 57, 70, 4, 4))Then
    Begin
      Success := 1;
      Flag;
    End;
  End;
  Until(Success = 1) or (Tries = 5);

  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;
       
  GetRoadC := BitmapFromString(4, 4, 'z78DAB33033773575B2A0190900' +
  '2CBC1611');
  MaxTolerance := 40;
  GetRoadCo := AutoColorThis(GetRoadC, MaxTolerance, MMX1, MMY1, MMX2, MMY2);
  WriteLn('Road Color: '+IntToStr(GetRoadCo));
  FreeBitmap(GetRoadC);

  Repeat
  If(Success = 0)Then
  Begin
    Tries := Tries+1;
    If(RadialWalk( GetRoadCo , 0, 60, 75, 5, 5))Then
    Begin
      Success := 1;
      Flag;
    End;
  End;
  Until(Success = 1) or (Tries = 5);
       
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;
       
  Mouse (658, 12, 2, 2, True);
  Flag;
  
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;

  Players[CurrentPlayer].Loc := 'OutsideAltar';

End;

Function InsideRuins: boolean; //Credit to: Devil Fire Crafter
Begin
  Result := not findColor (Ix, Iy, ACactus, mmx1, mmy1, mmx2, mmy2)
End;

Procedure OutsideAltar;
Var
TimeMarker, TimeMarker2: integer;
Begin

  DoAll;
  DoWait;
  CheckLogged;

  GameTab (4);
  MarkTime (TimeMarker2)
  Repeat
  If FindObjMultiText2(Ix, Iy, 'My', 'st', 'te', 5789535, 5) then
  Begin
    Mouse (Ix, Iy, 0, 0, True);
    MarkTime (TimeMarker)
    Repeat
    Wait(100);
    Until (InsideRuins) or (TimeFromMark(TimeMarker)>5000)
    If InsideRuins then players[currentplayer].loc := 'InsideAltar'; exit;
  End;
  Until (TimeFromMark (TimeMarker2) > 10000)

  DoAll;
  CheckLogged;

  Tries := Tries+1;

  If(Tries < 4)then
  Begin
    Mouse (660, 84, 2, 2, True);
    Flag;
    WriteLn('Please Wait... We WILL Find The Mysterious Ruins.')
    WriteLn('Give Me 3 Minutes To Find The Ruins.')
  End Else
  Begin
    Mouse (632, 62, 2, 2, True);
    Flag;
    WriteLn('If This Doesnt Bring Us To Ruins, Please Restart Bot.')
  End;
 
End;

Procedure InsideAltar;
Var
TimeMarker, TimeMarker2: integer;
Begin

  DoAll;
  Mouse (678, 127, 2, 2, True)
  Flag;
  DoWait;
  CheckLogged;

  GameTab (4);
  MarkTime (TimeMarker);
  If FindObjMultiText2(Ix, Iy, 'Cra', 'Alt', 'rune', 5000789, 5) then
  Begin
    Mouse (Ix, Iy, 0, 0, True);
    DoWait;
    EssCrafted := EssCrafted+28;
    WriteLn('You Have Now Crafted '+IntToStr(EssCrafted)+' Out Of '+IntToStr(EssToCraft)+' Fire Runes.');
  End;

  DoAll;

  Mouse (624, 54, 2, 2, True);
  Flag;
 
  DoAll;
  CheckLogged;
 
  MarkTime (TimeMarker2)
  Repeat
  If FindObjMultiText2(Ix, Iy, 'Po', 'tal', 'ort', 1460682, 5) then
  Begin
    Mouse (Ix, Iy, 0, 0, True);
    MarkTime (TimeMarker)
    Repeat
    Wait(100);
    Until (not InsideRuins) or (TimeFromMark(TimeMarker)>5000)
    If not InsideRuins then players[currentplayer].loc := 'WalkBack'; exit;
  End;
  DoWait;
  Until (TimeFromMark (TimeMarker2) > 30000)
  NextPlayer(False)

End;

Procedure FireRunes;
Begin

  If (rclvl > 14) Then
  Begin
    Fires := 1;
  End;
  If (rclvl >= 35) Then
  Begin
    Fires := 2;
  End;
  If (rclvl >= 70) Then
  Begin
    Fires := 3;
  End;
End;

Procedure ProgressReport;

Begin
  Cleardebug;
  FireRunes;
  Firez := 28*Fires+(Firez);
  Bankz := Bankz+1;
  ReportVars[0] := ReportVars[0]+1;  //Banked
  ReportVars[1] := ReportVars[1]+28;  //Essence Crafted
  ReportVars[2] := ReportVars[2]+(28*Fires);  //Fire Runes Crafted
  WriteLn('//////////////////////////////////////////////////')
  WriteLn('| Garretts FireRune Maker');
  WriteLn('| Version: '+VersionNum);
  WriteLn('| ');
  WriteLn('| Banked: '+IntToStr(Bankz)+'.');
  WriteLn('| Essence Crafted: '+IntToStr(EssCrafted)+'.');
  WriteLn('| Fire Runes Crafted: '+IntToStr(Firez)+'.');
  Writeln('| Worked for '+ TimeRunning);
  WriteLn('//////////////////////////////////////////////////')
  SRLRandomsReport;
End;

Procedure WalktoBank;
Begin
  CheckLogged;
  DoAll;

  Mouse (648, 116, 2, 2, True);
  Flag;
 
  DoAll;

  GetRoadC := BitmapFromString(4, 4, 'z78DAB33033773575B2A0190900' +
  '2CBC1611');
  MaxTolerance := 40;
  GetRoadCo := AutoColorThis(GetRoadC, MaxTolerance, MMX1, MMY1, MMX2, MMY2);
  WriteLn('Road Color: '+IntToStr(GetRoadCo));
  FreeBitmap(GetRoadC);
  
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;

  Repeat
  If(Success = 0)Then
  Begin
  Tries := Tries+1;
    If(RadialWalk( GetRoadCo , 160, 200, 70, 5, 5))Then
    Begin
      Success := 1;
      Flag;
    End;
  End;
  Until(Success = 1) or (Tries = 5);
  
  
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;

  Repeat
  If(Success = 0)Then
  Begin
  Tries := Tries+1;
    If(RadialWalk( MapRock , 160, 230, 60, 4, 4))Then
    Begin
      Success := 1;
      Flag;
    End;
  End;
  Until(Success = 1) or (Tries = 5);

  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;
  
  Repeat
  If(Success = 0)Then
  Begin
  Tries := Tries+1;
    If(RadialWalk( GetRoadCo , 200, 250, 65, 5, 5))Then
    Begin
      Success := 1;
      Flag;
    End;
  End;
  Until(Success = 1) or (Tries = 5);
       
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;
  
  QuestSym := BitmapFromString(15, 5, 'z78DA8590410AC0200C04B' +
  'F14AB35F1685AFDFF930A2E8515B1BD0C2124C3B21224C8E9DDFD' +
  '9A68C95A6B55ABF6A862B1DD20F6F14CF6DE945EBC4EBF329C837' +
  '97582B0B19F9DCCC59C07151BCEB6638AF9E8B22399F53B337782' +
  '5F64C6CC37E804A4CC3F3D63E66C6BCFDC369C0F915E6782');

  Repeat
  If(Success = 0)Then
  Begin
  Tries := Tries+1;
    If(FindBitmapToleranceIn(QuestSym, x, y, 0, 0, 800, 800, 50)) then
    Begin
      Mouse(x, y, 1, 1, true);
      Flag;
      Success := 1;
    End;
  End;
  DoWait;
  If(Success = 0)Then
  Begin
  Tries := Tries+1;
    If(RadialWalk( QuestSymbol , 0, 360, 70, 2, 2))Then
    Begin
      Success := 1;
      Flag;
    End;
  End;
  Until(Success = 1) or (Tries = 5);

  FreeBitmap(QuestSym);
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;
  
  SilkSym := BitmapFromString(15, 5, 'z78DAA5D0410A00210885E1' +
  '2B3D87525CAA43F73FD2406D0A0984D97C8BA41F110442F7E11E8' +
  '7FA80B855CC7F319B53CED3A5195E898AA9CC53F95FD6A16E7B59' +
  '6E3BD7AFB137D3CEC7BB18A845C5D5BC94FB07F72966FB');

  Repeat
  If(Success = 0)Then
  Begin
  Tries := Tries+1;
    If(FindBitmapToleranceIn(SilkSym, x, y, 0, 0, 800, 800, 50)) then
    Begin
      Mouse(x, y, 1, 1, true);
      Flag;
      Success := 1;
    End;
  End;
  DoWait;
  If(Success = 0)Then
  Begin
  Tries := Tries+1;
    If(RadialWalk( SilksSymbol , 160, 230, 65, 2, 2))Then
      Begin
        Success := 1;
        Flag;
      End;
  End;
  Until(Success = 1) or (Tries = 5);

  FreeBitmap(SilkSym);
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;

  repeat
  If(Success = 0)Then
  Begin
  Tries := Tries+1;
    If(RadialWalk( MapTree , 180, 250, 55, 2, 2))Then
    Begin
      Success := 1;
      Flag;
    End;
  End;
  Until(Success = 1) or (Tries = 5);
  
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;
       
  SwordSym := BitmapFromString(15, 5, 'z78DA8DD0410E03210805D' +
  '02BA1025F968333DCFF484D9D59D0589B6E7E20D117800A15120F' +
  'F7F1575AB76A7AC569E7D5A21DCC16E6C7C71B9AE64C5D85A60DA' +
  '0AC65F3AEAB55A96323EB4CECE4ACDDD9BD738F6C6E64EC6686A0' +
  'C21F7FFE656748C91758CD65E62FA6BA024549863E5BBF1B1ABFC' +
  'D7CE7171BE96904');

  repeat
  If(Success = 0)Then
  Begin
  Tries := Tries+1;
    If(FindBitmapToleranceIn(SwordSym, x, y, 0, 0, 800, 800, 50)) then
    Begin
      Mouse(x, y, 1, 1, true);
      Flag;
      Success := 1;
    End;
  End;
  DoWait;
  If(Success = 0)Then
  Begin
  Tries := Tries+1;
    If(RadialWalk( SwordSymbol , 180, 250, 50, 2, 2))Then
    Begin
      Success := 1;
      Flag;
    End;
  End;
  Until(Success = 1) or (Tries = 5);

  FreeBitmap(SwordSym);
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;
  
  repeat
  If(Success = 0)Then
  Begin
  Tries := Tries+1;
    If(RadialWalk( MapTree , 175, 250, 60, 2, 2))Then
    Begin
      Success := 1;
      Flag;
    End;
  End;
  Until(Success = 1) or (Tries = 5);
  
  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;

  KebabSym := BitmapFromString(15, 5, 'z78DA8D8E5D0AC0200C83A' +
  'F547F6AF5716AEF7FA54DE358F7E0188510D2F0117274DDA155AA' +
  '403905A216FDC863CBD5BF54C7A3279DDFD941DF12C83D6799E4A' +
  '4DF4C78289896BCE3EFC86BA1E9AFFD5333B386881CBEB0640E2B' +
  'D122654BB6FDFFFE9BFC876F154DCBB4E4139CCC5FED');

  repeat
  If(Success = 0)Then
  Begin
  Tries := Tries+1;
    If(FindBitmapToleranceIn(KebabSym, x, y, 0, 0, 800, 800, 50)) then
    Begin
      Mouse(x, y, 1, 1, true);
      Flag;
      Success := 1;
    End;
  End;
  DoWait;
  If(Success = 0)Then
  Begin
  Tries := Tries+1;
    If(RadialWalk( KebabSymbol , 210, 270, 60, 2, 2))Then
    Begin
      Success := 1;
      Flag;
    End;
  End;
  Until(Success = 1) or (Tries = 5);

  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;
  Mouse (648, 104, 2, 2, True);
  Flag;

  DoAll;
  DoWait;
  ResetTries;
  CheckLogged;

  Players[CurrentPlayer].Loc := 'Bank';
  
  ProgressReport;

End;

Begin
  setupsrl;
  ScriptID := '208';
  activateclient;
  DeclarePlayers;
  NewLine:='';

If(not(LoggedIn)) then
LoginPlayer;

  ClearDebug;

DoAll;

EssCrafted := 0;
Bankz := 0;
Firez := 0;
SRLID := YourSRLID;
SRLPassword := YourSRLPASS;
rclvl:= Getskilllevel('Runecrafting')
WriteLn('RCLevel = '+IntToStr(rclvl)+'.')


Repeat
  If players[currentplayer].loc = 'Bank' Then
  Begin
    Bank;
    If(EssCrafted = EssToCraft)Then
    Begin
    NextPlayer(True)
    End;
  End;
  If players[currentplayer].loc ='WalkTo' Then
  Begin
    WalktoFire;
  End;
  If players[currentplayer].loc ='WalkBack' Then
  Begin
    WalktoBank;
  End;
  If players[currentplayer].loc ='OutsideAltar' Then
  Begin
    OutsideAltar;
  End;
  If players[currentplayer].loc ='InsideAltar' Then
  Begin
    InsideAltar;
  End;
  Until(false)
End.

Garrett

2007-07-01 00:04:34

I made alot of changes, and added some extra stuff

Thank you rudeboialex for the pinscreen tip
and JAD for helping me clean up the script a bit.