Will this script get me banned?

anyone who knows scripting. Will this script be detectable. if so do you have one that you know isn't?

Code:

{.Script Info:
# ScriptName  = PROPERSTRINGER
# Author      = PROPERHACKER
# Description = simple script to String your bows
# Version     = 1.11
# Date        = 10/9/2006
# Comments    = IT WORKS!!
/Script Info}
{simple script to string bows
 ----

Visit my website for updates

 http://properhacker.googlepages.com/

 logs and strings in first 2 bank slots
Face towards that bank, at  middle angle

http://forum.scar-scripts.com/showthread.php?p=2091

post in forum with ANY problems

--changelog--
v0.1-0.9 making
v1.00-release
v1.11 use 27,28(thanks for idea R4NDOM 9UY)
 ----

 anyone change and call there own, DONT
 if you change CREDIT ME
 written by PROPERHACKER,
}
program Properstringer;
{.include Si.scar}

const     Totalbows = 1342;
          LogOutWhenDone = true;

const     siUsername = '';
          siPassword = '';
          siLoggedIn = 45;            // mins to run before sleeping
          siLoggedOut = 10;            // mins to sleep before restarting
          siRunDirection = 'S';        // I use seer's
          siLampSkill = 'Fletching';   // skill to use lamp on
          siTakeScreens = true;        // do you want screens of randoms?

var       TotalDone, MakeX, count : integer;

procedure HandleRandoms;
begin
  CheckRandoms(1, siLampSkill, siRunDirection, false, siTakeScreens, [rtText, rtBox, rtLamp, rtPlant, rtLeveled]);
end;

procedure closebank;
begin
  if(BankScreen)then
  wait(200+random(200));
  mouse(486,42,2,2,true)
end;

procedure Withdrawsb;    //withdraw strings and bows
begin
  if(not(BankScreen))then
  OpenBank;
  wait(200+random(200));
  Mouse(476,77,2,2,true);
  wait(200+random(200));
  Withdraw(1, 1, 13);
  Withdraw(1, 2, 14);
  Withdraw(1, 1, 1);
  wait(random(200));
  closebank;
end;

procedure DepositBows;  //deposits bows
begin
  OpenBank;
  wait(600+random(400));
  Deposit(1, 2, 0);
  wait(400+random(600));
end;

procedure MakeBows;  //strings bows
var x, y: integer;
begin
  Wait(750);
  UseItem(27);
  UseItem(28);//1
  UseItem(27);
  UseItem(28);//2
  UseItem(27);
  UseItem(28);//3
  UseItem(27);
  UseItem(28);//4
  UseItem(27);
  UseItem(28);//5
  UseItem(27);
  UseItem(28);//5
  UseItem(27);
  UseItem(28);//6
  UseItem(27);
  UseItem(28);//7
  UseItem(27);
  UseItem(28);//8
  UseItem(27);
  UseItem(28);//9
  UseItem(27);
  UseItem(28);//10
  UseItem(27);
  UseItem(28);//11
  UseItem(27);
  UseItem(28);//12
  UseItem(27);
  UseItem(28);//13
  UseItem(27);
  UseItem(28);//14
  wait(random(200));
  TotalDone := TotalDone + 27;
end;

procedure ScriptInit;
begin
  LoadInclude('', false);
  SetAccount(1, siUsername, siPassword);
  TotalDone := 0;
end;

begin
  ScriptInit;

  repeat
  begin
    AntiBan(siLoggedIn, siLoggedOut, 1);
    Withdrawsb;
    HandleRandoms;
    MakeBows;
    HandleRandoms;
    DepositBows;
  end;
  until(TotalDone >= Totalbows);
  CloseWindow;

  if(LogOutWhenDone)then
    LogOut;
end.

 

Yes.. Sorta outdated. But its up to u.

 

im good lol. do you know of a dated working one?

 

Um.. Nope. I dont do fletching, im not member.

 

should not be banned.

 

Why do u post this kinda stuff everywhere?

I doubt that gets him banned.. Seems like a ok script.

 

lol no anti's, of course he will get banned or somthin bad like that

 

Ooo, this wasnt the more updated version of this script.. I thought i saw a updated properstringer or something somewhere :S

 

i have a updated proper stringer i used it to get to 60 fleching and it does all the new randoms very well.