Results 1 to 5 of 5

Thread: PLEASE HELP : hide tanner

  1. #1
    Join Date
    Feb 2007
    Location
    vienna / austra
    Posts
    70
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default PLEASE HELP : hide tanner

    Thick As Blood crated a verry nice hide tenner script, ima scriping noob and tryet to change the script that it tann green d hides, it worked but now i wonna change it to a multi hide tanner!!
    i hope Thick As Blood are not mat at me for changing his script, if u are mat at me just tell me and ill stop SORRY!

    ok here is my changed multi tanner:
    SCAR Code:
    program AutoTanAndBank;
    ////////////////////////////////////////////////////////////////////////////
    {                            INSTRUCTIONS                                  }
    ////////////////////////////////////////////////////////////////////////////
    //                                                                        //
    //  -  Start in Al-Kharid bank and have hides in the first bank spot.     //
    //  -  Make sure you have enough coins on you for the amount of hides.    //
    //  -  Start in the far right bank booth, the one closest to the Furnace. //
    //  -  Hides in 1st spot in bank, and coins in 1st inventory spot.        //
    //  -  Set up lines 40-49.                                                //
    //  -  Have fun!                                                          //
    //  -  PS. Special thanks to all at SRL for helping with this!            //
    //                                                                        //
    //                                                                        //
    ////////////////////////////////////////////////////////////////////////////

    {.include SRL/SRL.scar}

    ////////////////////////////////////////////////////////////////////////////
    {    VARS AND CONSTS.                                                      }
    ////////////////////////////////////////////////////////////////////////////

    var NegativeBanz, TannedLeather : Integer;

    const
    HidesToCraft  =      2500;  // Total ammount of leather you want to tan.
    EllisColor      =   4615104;
    HideType        =         6;  // 1=Soft 2=Hard 3=Snake 4=Snake(dark)
                                  // 5=Green 6=Blue 7=Red 8=Black

    // Set all these up...
    BankBoothColor  =  7176064;
    ShopSymbolColor =  1525093;
    BankSymbolColor =  3784915;
    KebabSymbolColor=  1802315;

    ////////////////////////////////////////////////////////////////////////////
    {   DECLARATION OF PLAYERS.                                                }
    ////////////////////////////////////////////////////////////////////////////

    Procedure DeclarePlayers;
    begin
        HowManyPlayers:=1;
        NumberOfPlayers(HowManyPlayers);
        CurrentPlayer := 0;

        Players[0].Name :='';
        Players[0].Pass :='';
        Players[0].Nick :='';
        Players[0].Active :=True;
    end;

    ////////////////////////////////////////////////////////////////////////////
    {    CREDITS.                                                              }
    ////////////////////////////////////////////////////////////////////////////
    procedure Credits;
     begin
       GetSelf.Width := 730;
       Status('Starting up Script.');
       ClearDebug;
       Writeln(' 000000000 0    0 00000 000000 0   0    ');Writeln('     0     0    0   0   0      0  0     ');Writeln('     0     0    0   0   0      0 0      ');Writeln('     0     000000   0   0      00       ');Writeln('     0     0    0   0   0      0 0      ');Writeln('     0     0    0   0   0      0  0     ');Writeln('     0     0    0 00000 000000 0   0    ');
       Wait(700);
       ClearDebug;
       Writeln('           00         000000000        ');Writeln('          0  0        0                ');Writeln('         0    0       0                ');Writeln('        00000000      000000000        ');Writeln('       0        0             0        ')Writeln('      0          0            0        ');Writeln('     0            0   000000000        ');
       Wait(700);
       ClearDebug;
       Writeln(' 00000000  0      0000000  0000000  0000000        ');Writeln(' 0       0 0      0     0  0     0  0      0       ');Writeln(' 0       0 0      0     0  0     0  0       0      ');Writeln(' 000000000 0      0     0  0     0  0       0      ');Writeln(' 0       0 0      0     0  0     0  0       0      ')Writeln(' 0       0 0      0     0  0     0  0      0       ');Writeln(' 00000000  000000 0000000  0000000  0000000        ');
       Wait(1500);
       ClearDebug;
       Writeln('   ||||||||||||||||||||||||||||||||||||||||||||||||||');
       Writeln('   |||||||||| Al-Kharid MULTI Hide Tanner. ||||||||||');
       Writeln('   ||||||||||        Version 1.0 (BETA)    ||||||||||');
       Writeln('   ||||||||||||||||||||||||||||||||||||||||||||||||||');
       Wait(1000);
    end;

    ////////////////////////////////////////////////////////////////////////////
    {    PROGRESS REPORT.                                                      }
    ////////////////////////////////////////////////////////////////////////////

    procedure Progress;
     begin
     ClearDebug;
     SRLRandomsReport;
       Writeln('   ||||||||||||||||||||||||||||||||||||||||||||||||||');
       Writeln('   ||||||||||  Al-Kharid MULTI Hide Tanner. ||||||||||');
       Writeln('   ||||||||||         Version 1.0 (BETA)    ||||||||||');
       Writeln('   ||||||||||||||||||||||||||||||||||||||||||||||||||');
       Writeln('    Total time Tanning = '+(ScriptTime2(2))+'.' );
       Writeln('          Total Hides Tanned = '+IntToStr(TannedLeather)+'.');
       DisguiseScar('Tanned '+IntToStr(TannedLeather)+' Cow hides, to Leather.');
    end;

    ////////////////////////////////////////////////////////////////////////////
    {     CUSTOM ANTI-BAN.                                                     }
    ////////////////////////////////////////////////////////////////////////////
    procedure AntiBanz;
    begin
        Status('Doing Ani-Ban!');
       NegativeBanz:= Random(40);
       case NegativeBanz of
    1:SendKeys('Ughhh, crafting hides is a bummer..'+chr(13))
    2:DoEmote(1 + Random(10));
    3:HoverSkill('Crafting', false);
    4:LeaveScreenEvery(5 + Random(5));
    5:HoverEvery(15 + Random(5),'random');
    8:PickUpMouse;
    6:SendKeys('Dang, crafting hides is so stupid if you think about it...'+chr(13))
    7:SendKeys('Ive onnly got 900 left to do.. ugh'+chr(13))
    8:SendKeys('I need to craft these and sell the armor to noobs haha'+chr(13))
    9:SendKeys('at least ill be able to make dragonstones some day!'+chr(13))
    10:SendKeys('haha my friends are so dumbb'+chr(13))
    11:SendKeys('haha'+chr(13))
    12:SendKeys('i wish i had 99 crafting'+chr(13))
    13:SendKeys('i despise people with 99 crafting haahas'+chr(13))
    14:SendKeys('lol'+chr(13))
    15:SendKeys('dude where is this kid, ughthh'+chr(13))
    16:SendKeys('i wish i had like 10 party hats haha'+chr(13))
    17:SendKeys('cyan:scroll:~ <><  <><  <><  haha fish chasing a worm!'+chr(13))
    18:SendKeys('al kharid is such a seird name for a place'+chr(13))
    19:SendKeys('school stinks.. i hate it lol'+chr(13))
    20:SendKeys('i wanna be combat 126 haha'+chr(13))
     end;
    end;


    ////////////////////////////////////////////////////////////////////////////
    {     WALKS FROM THE TANNER, BACK TO THE BANK.                             }
    ////////////////////////////////////////////////////////////////////////////

    procedure Walk2;
    begin
    Status('From the tanner, to the bank!');
     MakeCompass('S')
      begin
       FindNormalRandoms;
        if (not(MakeCompass('S')))then
         begin
         MakeCompass('S')
         end;
        MMouse(655,13,3,3);
        Mouse(655,13,3,3,True);
        Wait(8500+random(250));
      end;
    end;

    ////////////////////////////////////////////////////////////////////////////
    {     WALKS FROM THE KEBAB SHOP TO THE TANNER.                             }
    ////////////////////////////////////////////////////////////////////////////

    procedure ToTanShop;
    begin
    Status('Walking from the Kebab Shop to the Tanner!');
     MakeCompass('W')
         begin
         FindColor(x,y,ShopSymbolColor,mmx1,mmy1,mmx2,mmy2)
          Wait(502+random(120));
          Mouse(x,y,1,1,true);
         Wait(6800+random(250));
        FindNormalRandoms;
       end;
      end;


    ////////////////////////////////////////////////////////////////////////////
    {   FINDS THE BANK BOOTH, AND OPENS IT.                                    }
    ////////////////////////////////////////////////////////////////////////////

    procedure OpenBanky;
    var
    i: Integer;
    begin
     Status('Opening the bank booth.');
     i:=0;
     if not(BankScreen)then
      repeat
       i:= + 1;
       if(FindObj(x,y,'ank boo',BankBoothColor,10))then
        Mouse(x,y,0,0,false);
        Wait(700+random(30));
        ClickOption('uickly', 1);
       Wait(2500+random(100))
      until (GetColor(238, 43) = 2070783) or (i >= 5) or (BankScreen);
      if(i >=5) then
    end;

    ////////////////////////////////////////////////////////////////////////////
    {     WITHDRAWS HIDES FROM 1ST BANK SPOT.                              }
    ////////////////////////////////////////////////////////////////////////////

    procedure WithdrawHidez;
    begin
     if (BankScreen)then
      Wait(500+random(100));
      FixBank;
      Withdraw(1, 1, 28);
      CloseBank;
       Wait(500+random(100))
      Mouse(486,42,5,5,true);
    end;

    ////////////////////////////////////////////////////////////////////////////
    {   DEPOSITS THE TANNED LEATHER.                                           }
    ////////////////////////////////////////////////////////////////////////////

    procedure DepositLeatha;
    begin
          Mouse(665,227,5,5,false)
          ClickOption('All', 2);
          Wait(1000+random(150));
          TannedLeather:= TannedLeather + 27
         end;

    ////////////////////////////////////////////////////////////////////////////
    {   SELECTS THE CORRECT TYPE OF LEATHER.                                   }
    ////////////////////////////////////////////////////////////////////////////

    procedure LeatherTypes;
    begin
     if (HideType = 1) then
     begin
      Status('Tanning all your hides to soft leather.');
      MMouse(93, 100,5,5);
      Mouse(93, 100,5,5,false);
      Wait(500+random(300));
      ClickOption('All', 1);
      Wait(1000+random(250));
      end else

      if (HideType = 2) then
      begin
       Status('Tanning all your hides to hard leather.');
       MMouse(208, 104,5,5);
       Mouse(208, 104,5,5,false);
       Wait(500+random(300));
       ClickOption('All', 1);
       FindNormalRandoms;
       Wait(1000+random(250));
      end else
     
      if (HideType = 3) then
      begin
       Status('Tanning all your sanke hides to leather.');
       MMouse(208, 104,5,5);
       Mouse(208, 104,5,5,false);
       Wait(500+random(300));
       ClickOption('All', 1);
       FindNormalRandoms;
       Wait(1000+random(250));
      end else
     
      if (HideType = 4) then
      begin
       Status('Tanning all your snake hides to leather.');
       MMouse(208, 104,5,5);
       Mouse(208, 104,5,5,false);
       Wait(500+random(300));
       ClickOption('All', 1);
       FindNormalRandoms;
       Wait(1000+random(250));
      end else
     
      if (HideType = 5) then
      begin
       Status('Tanning all your green hides to leather.');
       MMouse(208, 104,5,5);
       Mouse(208, 104,5,5,false);
       Wait(500+random(300));
       ClickOption('All', 1);
       FindNormalRandoms;
       Wait(1000+random(250));
       
       
      if (HideType = 6) then
      begin
       Status('Tanning all your blue hides to leather.');
       MMouse(208, 230,5,5);
       Mouse(208, 230,5,5,false);
       Wait(500+random(300));
       ClickOption('All', 1);
       FindNormalRandoms;
       Wait(1000+random(250));
       
      if (HideType = 7) then
      begin
       Status('Tanning all your red hides to leather.');
       MMouse(208, 104,5,5);
       Mouse(208, 104,5,5,false);
       Wait(500+random(300));
       ClickOption('All', 1);
       FindNormalRandoms;
       Wait(1000+random(250));
       
      if (HideType = 8) then
      begin
       Status('Tanning all your black hides to leather.');
       MMouse(208, 104,5,5);
       Mouse(208, 104,5,5,false);
       Wait(500+random(300));
       ClickOption('All', 1);
       FindNormalRandoms;
       Wait(1000+random(250));
       end;
     FindNormalRandoms;
    end;

    ////////////////////////////////////////////////////////////////////////////
    {   FINDS THE BANK SYMBOL AND CLICKS IT.                                    }
    ////////////////////////////////////////////////////////////////////////////

    procedure FindBSymbol;
    begin
      Status('Searching for bank symbol.');
       FindNormalRandoms;
         begin
         repeat
         FindColor(x,y,BankSymbolColor,mmx1,mmy1,mmx2,mmy2)
          Wait(502+random(120));
          Mouse(x,y,1,1,true);
         until(FindColor(x,y,BankSymbolColor,mmx1,mmy1,mmx2,mmy2))
         Wait(2800+random(250));
        FindNormalRandoms;
       end;
    end;

    ////////////////////////////////////////////////////////////////////////////
    {     WALKS FROM THE BANK TO THE KEBAB SYMBOL.                             }
    ////////////////////////////////////////////////////////////////////////////

    procedure Walk1;
    begin
    Status('Walking from the bank to the Kebab Shop');
      begin
       FindNormalRandoms;
          begin
          repeat
          FindColor(x,y,KebabSymbolColor,mmx1,mmy1,mmx2,mmy2)
          Wait(502+random(120));
          Mouse(x,y,1,1,true);
          until (FindColor(x,y,KebabSymbolColor,mmx1,mmy1,mmx2,mmy2))
          Wait(9800+random(250));
          if(not(FindColor(x,y,KebabSymbolColor,mmx1,mmy1,mmx2,mmy2))) then
          FindBSymbol;
        end;
      end;
    end;

    ////////////////////////////////////////////////////////////////////////////
    {     FINDS THE TANNER, AND CLICKS TRADE.                                  }
    ////////////////////////////////////////////////////////////////////////////

    procedure TanHidez;
    begin
       Status('Finding Ellis!');
       FindNormalRandoms;
        repeat
        MarkTime(mark);
        MouseSpeed:=10;
        if(FindColorTolerance(x, y, EllisColor,MSX1, MSY1, MSX2, MSY2,5))and
        (IsUpText('alk-to Ellis')) then
        MMouse(x,y,0,0);
        Mouse(x,y,0,0,false);
        ClickOption('Trade', 1);
        Wait(2000+random(120));
        if TimeFromMark(Mark)> 65000 then
        ToTanShop;
       until (GetColor(170, 39) = 2070783)
      end;


    ////////////////////////////////////////////////////////////////////////////
    {  MAIN PROGRAM LOOP.                                                      }
    ////////////////////////////////////////////////////////////////////////////

    begin
     SetUpSRL;
     Credits;
     DeclarePlayers;
     if (not(LoggedIn)) then
     LoginPlayer;
     MouseSpeed:=15;
      repeat
        SetRun(true);
        MakeCompass('W');
        Walk1;
        ToTanShop;
        SetRun(False);
        TanHidez;
        MouseSpeed:=15;
        LeatherTypes;
        SetRun(true);
        MakeCompass('S');
        Walk2;
        FindBSymbol;
        SetRun(False);
        MakeCompass('W');
        OpenBanky;
        DepositLeatha;
        WithdrawHidez;
        Progress;
        if (not(LoggedIn)) then
        TerminateScript;
       until(HidesToCraft=(TannedLeather));
    end.


    and thats my problem:
    Code:
    Failed when compiling
    Line 311: [Error] (17972:1): Identifier expected in script C:\Dokumente und Einstellungen\Administrator\Desktop\Scar\greenhide.scar
    when i was only changing the coordinates to klick at the green hide it worked i tested myself but now i was added some of those:
    SCAR Code:
    if (HideType = 1) then
     begin
      Status('Tanning all your hides to soft leather.');
      MMouse(93, 100,5,5);
      Mouse(93, 100,5,5,false);
      Wait(500+random(300));
      ClickOption('All', 1);
      Wait(1000+random(250));
      end else
    please help me!!
    thanks!

  2. #2
    Join Date
    Oct 2006
    Location
    Ireland
    Posts
    855
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I havnt tested it but it compiles. You were missing alot of ends , also use
    SCAR Code:
    if (condtion) then
    begin
      dostuff
    end else

    SCAR Code:
    program AutoTanAndBank;
    ////////////////////////////////////////////////////////////////////////////
    {                            INSTRUCTIONS                                  }
    ////////////////////////////////////////////////////////////////////////////
    //                                                                        //
    //  -  Start in Al-Kharid bank and have hides in the first bank spot.     //
    //  -  Make sure you have enough coins on you for the amount of hides.    //
    //  -  Start in the far right bank booth, the one closest to the Furnace. //
    //  -  Hides in 1st spot in bank, and coins in 1st inventory spot.        //
    //  -  Set up lines 40-49.                                                //
    //  -  Have fun!                                                          //
    //  -  PS. Special thanks to all at SRL for helping with this!            //
    //                                                                        //
    //                                                                        //
    ////////////////////////////////////////////////////////////////////////////

    {.include SRL/SRL.scar}

    ////////////////////////////////////////////////////////////////////////////
    {    VARS AND CONSTS.                                                      }
    ////////////////////////////////////////////////////////////////////////////

    var NegativeBanz, TannedLeather : Integer;

    const
    HidesToCraft  =      2500;  // Total ammount of leather you want to tan.
    EllisColor      =   4615104;
    HideType        =         6;  // 1=Soft 2=Hard 3=Snake 4=Snake(dark)
                                  // 5=Green 6=Blue 7=Red 8=Black

    // Set all these up...
    BankBoothColor  =  7176064;
    ShopSymbolColor =  1525093;
    BankSymbolColor =  3784915;
    KebabSymbolColor=  1802315;

    ////////////////////////////////////////////////////////////////////////////
    {   DECLARATION OF PLAYERS.                                                }
    ////////////////////////////////////////////////////////////////////////////

    Procedure DeclarePlayers;
    begin
        HowManyPlayers:=1;
        NumberOfPlayers(HowManyPlayers);
        CurrentPlayer := 0;

        Players[0].Name :='';
        Players[0].Pass :='';
        Players[0].Nick :='';
        Players[0].Active :=True;
    end;

    ////////////////////////////////////////////////////////////////////////////
    {    CREDITS.                                                              }
    ////////////////////////////////////////////////////////////////////////////
    procedure Credits;
     begin
       GetSelf.Width := 730;
       Status('Starting up Script.');
       ClearDebug;
       Writeln(' 000000000 0    0 00000 000000 0   0    ');Writeln('     0     0    0   0   0      0  0     ');Writeln('     0     0    0   0   0      0 0      ');Writeln('     0     000000   0   0      00       ');Writeln('     0     0    0   0   0      0 0      ');Writeln('     0     0    0   0   0      0  0     ');Writeln('     0     0    0 00000 000000 0   0    ');
       Wait(700);
       ClearDebug;
       Writeln('           00         000000000        ');Writeln('          0  0        0                ');Writeln('         0    0       0                ');Writeln('        00000000      000000000        ');Writeln('       0        0             0        ')Writeln('      0          0            0        ');Writeln('     0            0   000000000        ');
       Wait(700);
       ClearDebug;
       Writeln(' 00000000  0      0000000  0000000  0000000        ');Writeln(' 0       0 0      0     0  0     0  0      0       ');Writeln(' 0       0 0      0     0  0     0  0       0      ');Writeln(' 000000000 0      0     0  0     0  0       0      ');Writeln(' 0       0 0      0     0  0     0  0       0      ')Writeln(' 0       0 0      0     0  0     0  0      0       ');Writeln(' 00000000  000000 0000000  0000000  0000000        ');
       Wait(1500);
       ClearDebug;
       Writeln('   ||||||||||||||||||||||||||||||||||||||||||||||||||');
       Writeln('   |||||||||| Al-Kharid MULTI Hide Tanner. ||||||||||');
       Writeln('   ||||||||||        Version 1.0 (BETA)    ||||||||||');
       Writeln('   ||||||||||||||||||||||||||||||||||||||||||||||||||');
       Wait(1000);
    end;

    ////////////////////////////////////////////////////////////////////////////
    {    PROGRESS REPORT.                                                      }
    ////////////////////////////////////////////////////////////////////////////

    procedure Progress;
     begin
     ClearDebug;
     SRLRandomsReport;
       Writeln('   ||||||||||||||||||||||||||||||||||||||||||||||||||');
       Writeln('   ||||||||||  Al-Kharid MULTI Hide Tanner. ||||||||||');
       Writeln('   ||||||||||         Version 1.0 (BETA)    ||||||||||');
       Writeln('   ||||||||||||||||||||||||||||||||||||||||||||||||||');
       Writeln('    Total time Tanning = '+(ScriptTime2(2))+'.' );
       Writeln('          Total Hides Tanned = '+IntToStr(TannedLeather)+'.');
       DisguiseScar('Tanned '+IntToStr(TannedLeather)+' Cow hides, to Leather.');
    end;

    ////////////////////////////////////////////////////////////////////////////
    {     CUSTOM ANTI-BAN.                                                     }
    ////////////////////////////////////////////////////////////////////////////
    procedure AntiBanz;
    begin
        Status('Doing Ani-Ban!');
       NegativeBanz:= Random(40);
       case NegativeBanz of
    1:SendKeys('Ughhh, crafting hides is a bummer..'+chr(13))
    2:DoEmote(1 + Random(10));
    3:HoverSkill('Crafting', false);
    4:LeaveScreenEvery(5 + Random(5));
    5:HoverEvery(15 + Random(5),'random');
    8:PickUpMouse;
    6:SendKeys('Dang, crafting hides is so stupid if you think about it...'+chr(13))
    7:SendKeys('Ive onnly got 900 left to do.. ugh'+chr(13))
    8:SendKeys('I need to craft these and sell the armor to noobs haha'+chr(13))
    9:SendKeys('at least ill be able to make dragonstones some day!'+chr(13))
    10:SendKeys('haha my friends are so dumbb'+chr(13))
    11:SendKeys('haha'+chr(13))
    12:SendKeys('i wish i had 99 crafting'+chr(13))
    13:SendKeys('i despise people with 99 crafting haahas'+chr(13))
    14:SendKeys('lol'+chr(13))
    15:SendKeys('dude where is this kid, ughthh'+chr(13))
    16:SendKeys('i wish i had like 10 party hats haha'+chr(13))
    17:SendKeys('cyan:scroll:~ <><  <><  <><  haha fish chasing a worm!'+chr(13))
    18:SendKeys('al kharid is such a seird name for a place'+chr(13))
    19:SendKeys('school stinks.. i hate it lol'+chr(13))
    20:SendKeys('i wanna be combat 126 haha'+chr(13))
     end;
    end;


    ////////////////////////////////////////////////////////////////////////////
    {     WALKS FROM THE TANNER, BACK TO THE BANK.                             }
    ////////////////////////////////////////////////////////////////////////////

    procedure Walk2;
    begin
    Status('From the tanner, to the bank!');
     MakeCompass('S')
      begin
       FindNormalRandoms;
        if (not(MakeCompass('S')))then
         begin
         MakeCompass('S')
         end;
        MMouse(655,13,3,3);
        Mouse(655,13,3,3,True);
        Wait(8500+random(250));
      end;
    end;

    ////////////////////////////////////////////////////////////////////////////
    {     WALKS FROM THE KEBAB SHOP TO THE TANNER.                             }
    ////////////////////////////////////////////////////////////////////////////

    procedure ToTanShop;
    begin
    Status('Walking from the Kebab Shop to the Tanner!');
     MakeCompass('W')
         begin
         FindColor(x,y,ShopSymbolColor,mmx1,mmy1,mmx2,mmy2)
          Wait(502+random(120));
          Mouse(x,y,1,1,true);
         Wait(6800+random(250));
        FindNormalRandoms;
       end;
      end;


    ////////////////////////////////////////////////////////////////////////////
    {   FINDS THE BANK BOOTH, AND OPENS IT.                                    }
    ////////////////////////////////////////////////////////////////////////////

    procedure OpenBanky;
    var
    i: Integer;
    begin
     Status('Opening the bank booth.');
     i:=0;
     if not(BankScreen)then
      repeat
       i:= + 1;
       if(FindObj(x,y,'ank boo',BankBoothColor,10))then
        Mouse(x,y,0,0,false);
        Wait(700+random(30));
        ClickOption('uickly', 1);
       Wait(2500+random(100))
      until (GetColor(238, 43) = 2070783) or (i >= 5) or (BankScreen);
      if(i >=5) then
    end;

    ////////////////////////////////////////////////////////////////////////////
    {     WITHDRAWS HIDES FROM 1ST BANK SPOT.                              }
    ////////////////////////////////////////////////////////////////////////////

    procedure WithdrawHidez;
    begin
     if (BankScreen)then
      Wait(500+random(100));
      FixBank;
      Withdraw(1, 1, 28);
      CloseBank;
       Wait(500+random(100))
      Mouse(486,42,5,5,true);
    end;

    ////////////////////////////////////////////////////////////////////////////
    {   DEPOSITS THE TANNED LEATHER.                                           }
    ////////////////////////////////////////////////////////////////////////////

    procedure DepositLeatha;
    begin
          Mouse(665,227,5,5,false)
          ClickOption('All', 2);
          Wait(1000+random(150));
          TannedLeather:= TannedLeather + 27
         end;

    ////////////////////////////////////////////////////////////////////////////
    {   SELECTS THE CORRECT TYPE OF LEATHER.                                   }
    ////////////////////////////////////////////////////////////////////////////

    procedure LeatherTypes;
    begin
     if (HideType = 1) then
     begin
      Status('Tanning all your hides to soft leather.');
      MMouse(93, 100,5,5);
      Mouse(93, 100,5,5,false);
      Wait(500+random(300));
      ClickOption('All', 1);
      Wait(1000+random(250));
      end else

      if (HideType = 2) then
      begin
       Status('Tanning all your hides to hard leather.');
       MMouse(208, 104,5,5);
       Mouse(208, 104,5,5,false);
       Wait(500+random(300));
       ClickOption('All', 1);
       FindNormalRandoms;
       Wait(1000+random(250));
      end else

      if (HideType = 3) then
      begin
       Status('Tanning all your sanke hides to leather.');
       MMouse(208, 104,5,5);
       Mouse(208, 104,5,5,false);
       Wait(500+random(300));
       ClickOption('All', 1);
       FindNormalRandoms;
       Wait(1000+random(250));
      end else

      if (HideType = 4) then
      begin
       Status('Tanning all your snake hides to leather.');
       MMouse(208, 104,5,5);
       Mouse(208, 104,5,5,false);
       Wait(500+random(300));
       ClickOption('All', 1);
       FindNormalRandoms;
       Wait(1000+random(250));
      end else

      if (HideType = 5) then
      begin
       Status('Tanning all your green hides to leather.');
       MMouse(208, 104,5,5);
       Mouse(208, 104,5,5,false);
       Wait(500+random(300));
       ClickOption('All', 1);
       FindNormalRandoms;
       Wait(1000+random(250));
      end else

      if (HideType = 6) then
      begin
       Status('Tanning all your blue hides to leather.');
       MMouse(208, 230,5,5);
       Mouse(208, 230,5,5,false);
       Wait(500+random(300));
       ClickOption('All', 1);
       FindNormalRandoms;
       Wait(1000+random(250));
       end else
      if (HideType = 7) then
      begin
       Status('Tanning all your red hides to leather.');
       MMouse(208, 104,5,5);
       Mouse(208, 104,5,5,false);
       Wait(500+random(300));
       ClickOption('All', 1);
       FindNormalRandoms;
       Wait(1000+random(250));
      end else
      if (HideType = 8) then
      begin
       Status('Tanning all your black hides to leather.');
       MMouse(208, 104,5,5);
       Mouse(208, 104,5,5,false);
       Wait(500+random(300));
       ClickOption('All', 1);
       FindNormalRandoms;
       Wait(1000+random(250));
       end;
     FindNormalRandoms;
    end;

    ////////////////////////////////////////////////////////////////////////////
    {   FINDS THE BANK SYMBOL AND CLICKS IT.                                    }
    ////////////////////////////////////////////////////////////////////////////

    procedure FindBSymbol;
    begin
      Status('Searching for bank symbol.');
       FindNormalRandoms;
         begin
         repeat
         FindColor(x,y,BankSymbolColor,mmx1,mmy1,mmx2,mmy2)
          Wait(502+random(120));
          Mouse(x,y,1,1,true);
         until(FindColor(x,y,BankSymbolColor,mmx1,mmy1,mmx2,mmy2))
         Wait(2800+random(250));
        FindNormalRandoms;
       end;
    end;

    ////////////////////////////////////////////////////////////////////////////
    {     WALKS FROM THE BANK TO THE KEBAB SYMBOL.                             }
    ////////////////////////////////////////////////////////////////////////////

    procedure Walk1;
    begin
    Status('Walking from the bank to the Kebab Shop');
      begin
       FindNormalRandoms;
          begin
          repeat
          FindColor(x,y,KebabSymbolColor,mmx1,mmy1,mmx2,mmy2)
          Wait(502+random(120));
          Mouse(x,y,1,1,true);
          until (FindColor(x,y,KebabSymbolColor,mmx1,mmy1,mmx2,mmy2))
          Wait(9800+random(250));
          if(not(FindColor(x,y,KebabSymbolColor,mmx1,mmy1,mmx2,mmy2))) then
          FindBSymbol;
        end;
      end;
    end;

    ////////////////////////////////////////////////////////////////////////////
    {     FINDS THE TANNER, AND CLICKS TRADE.                                  }
    ////////////////////////////////////////////////////////////////////////////

    procedure TanHidez;
    begin
       Status('Finding Ellis!');
       FindNormalRandoms;
        repeat
        MarkTime(mark);
        MouseSpeed:=10;
        if(FindColorTolerance(x, y, EllisColor,MSX1, MSY1, MSX2, MSY2,5))and
        (IsUpText('alk-to Ellis')) then
        MMouse(x,y,0,0);
        Mouse(x,y,0,0,false);
        ClickOption('Trade', 1);
        Wait(2000+random(120));
        if TimeFromMark(Mark)> 65000 then
        ToTanShop;
       until (GetColor(170, 39) = 2070783)
      end;


    ////////////////////////////////////////////////////////////////////////////
    {  MAIN PROGRAM LOOP.                                                      }
    ////////////////////////////////////////////////////////////////////////////

    begin
     SetUpSRL;
     Credits;
     DeclarePlayers;
     if (not(LoggedIn)) then
     LoginPlayer;
     MouseSpeed:=15;
      repeat
        SetRun(true);
        MakeCompass('W');
        Walk1;
        ToTanShop;
        SetRun(False);
        TanHidez;
        MouseSpeed:=15;
        LeatherTypes;
        SetRun(true);
        MakeCompass('S');
        Walk2;
        FindBSymbol;
        SetRun(False);
        MakeCompass('W');
        OpenBanky;
        DepositLeatha;
        WithdrawHidez;
        Progress;
        if (not(LoggedIn)) then
        TerminateScript;
       until(HidesToCraft=(TannedLeather));
    end.
    {=========================================================================]
    [                   SRL Empty Template.                                   ]
    [                                                                         ]
    [           NAME        : SRL Template.                                   ]
    [           WRITER      : WT-Fakawi (Fawki)                               ]
    [           CATEGORY    : .....                                           ]
    [           DESCRIPTION : Empty general purpose template                  ]
    [           USAGE       : For any kind of collecting script.              ]
    [           AUTOCOLOR   : Yes                                             ]
    [           NOTES       : Typical Fawki style script. Love it or hate it. ]
    [           CONTACT     : [email]WTFakawi@hotmail.com[/email]                            ]
    [                                                                         ]
    [                                                                         ]
    [=========================================================================]
    [         This is a empty Template for a Collecting Script                ]
    [=========================================================================]
    [                           Instructions.                                 ]
    [=========================================================================]
    [ 1. USE Runescape with Low Detail, Very Bright.                          ]
    [ 2. Set your Screen to 32 bit TRUE color.                                ]
    [ 3. Set Playernames and Passwords in DeclarePlayers.                     ]
    [ 4. SET HOWMANYPLAYERS inside DeclarePlayers                             ]
    [ 5. Start script Logged Out!                                             ]
    [=========================================================================}

    program New;
    {.include srl/srl.scar}
    var

    //******************** Set These Constants if Needed  *******************//

    const StartPlayer         = 0;     // Determines who will play first
    Const Loads               = 3;     // Number of loads before switching Player.

    //**********************RuneScape Constants*******************************//


    //************************************************************************//
    const VersionNumber       = '2';      // Compliant with Rev 568+
    //************************************************************************//

    Procedure DeclarePlayers;
    begin
         HowManyPlayers  :=6;               // Set Number of Players here.
         NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
         CurrentPlayer:=StartPlayer;        // CurrentPlayer = Array Index

         Players[0].Name :='';
         Players[0].Pass :='';
         Players[0].Nick :='';
         Players[0].Loc  :='Loc1';
         Players[0].Skill:='';
         Players[0].Active:=True;

         Players[1].Name :='';
         Players[1].Pass :='';
         Players[1].Nick :='';
         Players[1].Loc  :='Loc1';
         Players[1].Skill:='';
         Players[1].Active:=True;

         Players[2].Name :='';
         Players[2].Pass :='';
         Players[2].Nick :='';
         Players[2].Loc  :='Loc1';
         Players[2].Skill:='';
         Players[2].Active:=True;

         Players[3].Name :='';
         Players[3].Pass :='';
         Players[3].Nick :='';
         Players[3].Loc  :='Loc1';
         Players[3].Skill:='';
         Players[3].Active:=True;

         Players[4].Name :='';
         Players[4].Pass :='';
         Players[4].Nick :='';
         Players[4].Loc  :='Loc1';
         Players[4].Skill:='';
         Players[4].Active:=True;

         Players[5].Name :='';
         Players[5].Pass :='';
         Players[5].Nick :='';
         Players[5].Loc  :='Loc1';
         Players[5].Skill:='';
         Players[5].Active:=True;

         writeln(inttostr(HowManyPlayers)+' Players');

    end;

    //************************************************************************//
    begin
    end;

    begin
    setupsrl;
    end.

  3. #3
    Join Date
    Jun 2006
    Location
    New Zealand
    Posts
    285
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    EDIT: Nevermind... I thought wrong ^^"

    Oh and if you don't want to use all those If's, do this:
    SCAR Code:
    Case HideType of
    1:begin
        Status('Tanning all your hides to soft leather.');
        MMouse(93, 100,5,5);
        Mouse(93, 100,5,5,false);
        Wait(500+random(300));
        ClickOption('All', 1);
        Wait(1000+random(250));
      end;
    2:begin
         Status('Tanning all your hides to hard leather.');
         MMouse(208, 104,5,5);
         Mouse(208, 104,5,5,false);
         Wait(500+random(300));
         ClickOption('All', 1);
         FindNormalRandoms;
         Wait(1000+random(250));
      end;
    end;
    etc.
    Huehuehuehuehue

  4. #4
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    And as far as undetectablity goes.. Do NOT use SendKeys. it WILL get you banned! Use typesend instead of that. to learn about typesend, you could check out my tut (links in sig) Things the beginner tuts don't teach you. and for scripting errors, just read my tut how to fix those annoying errors It would have told you how to fix these scripting errors you had without needing to post help

  5. #5
    Join Date
    Feb 2007
    Location
    vienna / austra
    Posts
    70
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    @remage: nice ty
    its my first try on scar scripting i have never ever do anything whif scripting or any computer languages! i just trying it thanks for helping

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Auto hide tanner
    By lilmike in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 09-16-2007, 05:37 PM
  2. [SRL] Hide Tanner BETA
    By endr1x in forum First Scripts
    Replies: 3
    Last Post: 09-03-2007, 09:54 PM
  3. Dragon Hide tanner please
    By Xx pk xX in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 04-02-2007, 06:16 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •