Bandit killer

Bandit killer

Out Dated!!!

Start here:
http://img136.imageshack.us/img136/8805/placexu6.jpg
http://img19.imagevenue.com/loc1129/...122_1129lo.JPG
Kills bandits until food is over. When food is over gets more food from bank and continues fighting!

-You must have atleast 60hp to use this script and you must be runescape member.

-Uses reflection(Get it here)

-Have cakes in 1st bank slot coins in 2nd and shantay passes in 3th .

-If you don't use d scimitar you have to make your own dtm of your weapon and change it to line 20.(tutorial)

-Works only with cakes.(They are very cheap and heals 12)

-Remember to have 400gp in inventory when you run the script.

-Has antiban and antirandoms.

-Has world switcher.

-Wear god item like saradomin skirt or holy symbol.(guthix doesnt work)

-Use ring of life.

-Atleast 40 defence is recommented.

-Post proggys, feedback, bugs and ideas :)

But why would you make the script to macro with god armour items... what is the point? saradomin skirt doesn't give any extra bonuses over rune.

saradomin skirt/zammy skirt...any god armor, will make the bandits auto-attack you.. i haven't used the script, but, making it work with something other than cakes would be good

looks good, i never got a chance to test sorry, how come u have this

SCAR Code:

logout;
logout;
logout;
logout;
logout;
logout;
logout;
logout;
logout;
logout;
logout;
logout;

Quote:

---

Originally Posted by Bonfield

looks good, i never got a chance to test sorry, how come u have this

SCAR Code:

logout;
logout;
logout;
logout;
logout;
logout;
logout;
logout;
logout;
logout;
logout;
logout;

---

Just to make sure it logs out... Maybe 1 logout could be enough :)

P.S Have anyone tried this yet?

Looks nice, hey you can include Fighting.scar and use Retaliate(DoRetaliate: Boolean) to set the retaliate.

Quote:

---

Originally Posted by Bonfield

looks good, i never got a chance to test sorry, how come u have this

SCAR Code:

logout;
logout;
logout;
logout;
logout;
logout;
logout;
logout;
logout;
logout;
logout;
logout;

---

I fixed that to the new version :)

Quote:

---

Originally Posted by n3ss3s

Looks nice, hey you can include Fighting.scar and use Retaliate(DoRetaliate: Boolean) to set the retaliate.

---

I added that to the new version :)

I will test tonight, um recomended def level? and would it be good for pures, I have one 2 def 63 hp 75 str and 50 att.... you think i should try it with out any worries?

How i can delete this post?

Quote:

---

Originally Posted by logik

I will test tonight, um recomended def level? and would it be good for pures, I have one 2 def 63 hp 75 str and 50 att.... you think i should try it with out any worries?

---

I recommend to have atleast 30 def to wear full addy :(

You need DEF. Those bandits attack hard and they respawn fast.

i recommend making it be compatible with prayer and prayer pots:)

yeah I agree with haxor. If you do that and keep updating the script maybe you could take #1 script! :D

wel the problem about pots is, even with a full inven, and all 4 dose, doesn't always last long... so it would protect to you for ever, it would probably log out automatically

Bandits doesnt hit hard and arent prayer pots too expencive?

P.S.
I ran this about hour before I was out of food but sometimes when evil chicken or swarm comes food goes quite fast..

looks really nice and neat ill give it a run

Ah, this was what i suggested a couple of months ago :)
Well done, im gonna test it.( perfect for me when i have to eat or just have to leave for less than a hour :))
It would be better if it could be done with guthans... or monkfish

( this is more a script for the higher(do not read high) lvl players, at least 80 80 80 80 imo)


EDIT:
I started it logged in, and it wanted to switch world, which it couldnt because i was attacked.
So if you make it that it unequip the god piece, it will work.
I dont know if this is a good idea: but make in the setup that you can shoose which piece is a god piece: like: helm, shield, jewelry, legs.


This script has the potential to be one of the best fighter scripts for more xperienced players.

Quote:

---

Originally Posted by aartje

Ah, this was what i suggested a couple of months ago :)
Well done, im gonna test it.( perfect for me when i have to eat or just have to leave for less than a hour :))
It would be better if it could be done with guthans... or monkfish

( this is more a script for the higher(do not read high) lvl players, at least 80 80 80 80 imo)


EDIT:
I started it logged in, and it wanted to switch world, which it couldnt because i was attacked.
So if you make it that it unequip the god piece, it will work.
I dont know if this is a good idea: but make in the setup that you can shoose which piece is a god piece: like: helm, shield, jewelry, legs.


This script has the potential to be one of the best fighter scripts for more xperienced players.

---

Ok, this should only switch world when you dont get hitpoints xp for about 10 seconds. You could try to edit this

SCAR Code:

procedure hop;
var xpnow,xplater:byte;
begin
xpnow := GetXp('hitpoints');
ftwait(8+random(9));
antiban;
ftwait(40+random(9));
xplater := GetXp('hitpoints');
MarkTime(TimeMark);
if xpnow = xplater then
begin
logout;
pickworld;
end else
begin
exit;
end;
end;

to this

SCAR Code:

procedure hop;
var xpnow,xplater:byte;
begin
xpnow := GetXp('hitpoints');
ftwait(8+random(9));
checkhp;
antiban;
randoms;
ftwait(20+random(10));
checkhp;
randoms;
antiban;
ftwait(30+random(10));
checkhp;
randoms;
antiban;
ftwait(30+random(10));
checkhp;
randoms;
antiban;
xplater := GetXp('hitpoints');
MarkTime(TimeMark);
if xpnow = xplater then
begin
logout;
pickworld;
end else
begin
exit;
end;
end;

Everyone else could do this too if you think you can hit just 0,0,0 10 seconds...

okay, i try it.

It would be the best if you could make it work with monkfish. Its the best: heal/gp.

I dont know much about scripting, but if you can take the colours or dtm, or whatever you scripters call it from guthan i can test it for you.
So you do the theoretic thing, i test it for you, say what works and dont works. Untill guthan healing works flawless :)

I send you a pm with some pictures, maybe it can help you.


Edit: it worked.
But i had to delete the original hop, and place the new hop procedure under the checkhp procedure, otherwise i got a error.
Luckili I learned that in a basic scripting tutorial, 3 days ago :D

ok the best way to train at bandits is with guthans to heal you. So if you made it so that when it went lower than 60 hp, or whatever the person running the script wanted it to be at, then the auto would weild full guthans to heal. once it maxes out your health it puts your armor back on.

Quote:

---

Originally Posted by Mountain Lions Own?

ok the best way to train at bandits is with guthans to heal you. So if you made it so that when it went lower than 60 hp, or whatever the person running the script wanted it to be at, then the auto would weild full guthans to heal. once it maxes out your health it puts your armor back on.

---

if i had guthans i wouldnt trust any script with it

yeah same i dont understand why would you need to macro , with bandits just afk and watch TV AND CHECK Every 5-10 mins. if your high lvl lol and use a laptop to take it anywhere

Quote:

---

Originally Posted by p1nky

yeah same i dont understand why would you need to macro , with bandits just afk and watch TV AND CHECK Every 5-10 mins. if your high lvl lol and use a laptop to take it anywhere

---

I would need to macro becouse then I dont have to cheack every 5-10 minutes.
Instead I can check like every half hour :)

script could be nice, yea a better option would be nice cause ima try running it on my 110 soon

I will try use this :)

Updated!

Now it works with the new graphics :)

You wouldnt trust your guthans with a script? first your a noob by not having it,second have you ever heard of the item ´´Ring of life´´ this item erm,how do i explain you....ohhh well...IT SAVES U BEFORE DYING.

Quote:

---

Originally Posted by you won

You wouldnt trust your guthans with a script? first your a noob by not having it,second have you ever heard of the item ´´Ring of life´´ this item erm,how do i explain you....ohhh well...IT SAVES U BEFORE DYING.

---

The script runs and logs out when you dont have food.:duh:
And so what if ring of life saves you before death if there is a bug in my script?

I think you should add noted food withdrawing in the shop. That would be supergood.

I will probably not use it for now. Guthan's better =\.

Does this still work?

Updated!

-Added food withdrawing from bank!
-Added better antirandoms and some other things.
-Added sleeping
-Added progres report.
-Uses reflection.

Edit: here is a proggy:

SCAR Code:

----------------------------------------------------------------
|Bandit killer
|Worked for 2 Hours, 51 Minutes and 4 Seconds
|Banked for 5 times
|Hopped for 0 times
|Slept for 0 times
|Gained 31362 Hp xp
|Gained 0 Atk xp
|Gained 94301 Str xp
|Gained 0 Def xp
|Gained 0 Range xp
----------------------------------------------------------------

(couldn't solve quiz)

What bank does it take the food from?

And bank is FAR!

As I said eralier, u should add noted food withdrawing from the shop ;) .

Quote:

---

Originally Posted by inkw10

What bank does it take the food from?

And bank is FAR!

As I said eralier, u should add noted food withdrawing from the shop ;) .

---

Takes food from shantay bank.(It's not so when you go there with the flying carpet) :)
And can you tell me how I can withraw food from shop? And how I can eat it if it's noted???

You have to sell the noted food into the shop and buy it back, then its unnoted :) .

Like, sell 25 and buy all them back :) . Need to have some money in your inventory tho. Not much.

Quote:

---

Originally Posted by inkw10

You have to sell the noted food into the shop and buy it back, then its unnoted :) .

Like, sell 25 and buy all them back :) . Need to have some money in your inventory tho. Not much.

---

Wow that sounds cool :)
I will maybe do that to the next update :)

Edit:Would it work with potions too?

Yea, but potions would need more money in the backpack, but yea, they work.
GL on the next update, im waiting for it :D .

in next version can you make it so it uses prayer potions... so like when it runs out of them it goes to bank to get more.

haxor

EDIT: doesnt work, it logs in and sets strength then puts mouse to bottom of screen and just sits there... and eventually logs out=)

Code:

---

program BanditKiller;
//  By antti mies
//  :)
//change line 16,20-23

{.Include SRL\SRL\Misc\Smart.Scar}
{.include SRL/SRL.scar}
{.include SRL\SRL\skill\Fighting.scar}
{.Include SRL\SRL\Reflection\Reflection.Scar}

var
TimeMark,Hopped,Banked,x,y,hpnow,hplater,strnow,strlater,defnow,deflater,atknow,atklater,rannow:integer;
ranlater,hpgained,atkgained,strgained,defgained,rangained,lol,maxhp,timex,whentosleep,slept,weapon:integer;

Const
  SmartWorld = 'World132';

procedure Setup;
begin
  Weapon := DTMFromString('78DA639CC2C4C0709F010D302291407A3150C' +//change only if you don't use d scimitar!
      'D75026AFA806A3E1050D30554F391809AE940358F09A8994FD8CD' +//change only if you don't use d scimitar!
      '0049EE08FD');//change only if you don't use d scimitar!
end;

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

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

Procedure PickWorld;
var x, y, NewWorld, LastWorld, SecondLastWorld, SSecondLastWorld :integer;
    GoodWorld : string;
Begin
  wait(2000);
  Hopped := Hopped + 1;
  Repeat
    If (not(loggedin)) Then
    Begin
      Mouse(358, 235,4,4,True)
      Wait(2000+Random(130))
    End Else Wait(1000+Random(155));
  Until(FindText(x,y,'138',UpChars,50,30,710,500));
  Repeat
    If FindText(x,y,'138',UpChars,50,30,710,500) Then
    Repeat
      NewWorld := Random(51)+1
      If (NewWorld = LastWorld) Or (NewWorld = SecondLastWorld) Or (NewWorld = SSecondLastWorld) Then
      Begin
        GoodWorld := 'False'
      End Else GoodWorld := 'True';
    Until(GoodWorld='True');
    Begin
      Case (NewWorld) Of
        1: FindText(x,y,'44',UpChars,50,30,710,500);
        2: FindText(x,y,'45',UpChars,50,30,710,500);
        3: FindText(x,y,'46',UpChars,50,30,710,500);
        4: FindText(x,y,'48',UpChars,50,30,710,500);
        5: FindText(x,y,'53',UpChars,50,30,710,500);
        6: FindText(x,y,'54',UpChars,50,30,710,500);
        7: FindText(x,y,'56',UpChars,50,30,710,500);
        8: FindText(x,y,'58',UpChars,50,30,710,500);
        9: FindText(x,y,'59',UpChars,50,30,710,500);
        10: FindText(x,y,'64',UpChars,50,30,710,500);
        11: FindText(x,y,'65',UpChars,50,30,710,500);
        12: FindText(x,y,'66',UpChars,50,30,710,500);
        13: FindText(x,y,'69',UpChars,50,30,710,500);
        14: FindText(x,y,'70',UpChars,50,30,710,500);
        15: FindText(x,y,'71',UpChars,50,30,710,500);
        16: FindText(x,y,'76',UpChars,50,30,710,500);
        17: FindText(x,y,'77',UpChars,50,30,710,500);
        18: FindText(x,y,'78',UpChars,50,30,710,500);
        19: FindText(x,y,'79',UpChars,50,30,710,500);
        20: FindText(x,y,'82',UpChars,50,30,710,500);
        21: FindText(x,y,'83',UpChars,50,30,710,500);
        22: FindText(x,y,'84',UpChars,50,30,710,500);
        23: FindText(x,y,'88',UpChars,50,30,710,500);
        24: FindText(x,y,'89',UpChars,50,30,710,500);
        25: FindText(x,y,'91',UpChars,50,30,710,500);
        26: FindText(x,y,'92',UpChars,50,30,710,500);
        27: FindText(x,y,'97',UpChars,50,30,710,500);
        28: FindText(x,y,'98',UpChars,50,30,710,500);
        29: FindText(x,y,'99',UpChars,50,30,710,500);
        30: FindText(x,y,'100',UpChars,50,30,710,500);
        31: FindText(x,y,'103',UpChars,50,30,710,500);
        32: FindText(x,y,'104',UpChars,50,30,710,500);
        33: FindText(x,y,'110',UpChars,50,30,710,500);
        34: FindText(x,y,'111',UpChars,50,30,710,500);
        35: FindText(x,y,'112',UpChars,50,30,710,500);
        36: FindText(x,y,'114',UpChars,50,30,710,500);
        37: FindText(x,y,'115',UpChars,50,30,710,500);
        38: FindText(x,y,'116',UpChars,50,30,710,500);
        39: FindText(x,y,'120',UpChars,50,30,710,500);
        40: FindText(x,y,'121',UpChars,50,30,710,500);
        41: FindText(x,y,'124',UpChars,50,30,710,500);
        42: FindText(x,y,'129',UpChars,50,30,710,500);
        43: FindText(x,y,'130',UpChars,50,30,710,500);
        44: FindText(x,y,'131',UpChars,50,30,710,500);
        45: FindText(x,y,'132',UpChars,50,30,710,500);
        46: FindText(x,y,'137',UpChars,50,30,710,500);
        47: FindText(x,y,'138',UpChars,50,30,710,500);
        48: FindText(x,y,'145',UpChars,50,30,710,500);
        49: FindText(x,y,'157',UpChars,50,30,710,500);
        50: FindText(x,y,'158',UpChars,50,30,710,500);
        51: FindText(x,y,'159',UpChars,50,30,710,500);
      End;
      Wait(100+Random(37))
      Mouse(x+40+Random(5),y+5,1,1,True)
      Wait(1000+Random(210))
    End;
    SSecondLastWorld := SecondLastWorld
    SecondLastWorld := LastWorld
    LastWorld := NewWorld
    If (not(FindText(x,y,'138',UpChars,50,30,710,500))) Then Exit;
  Until(not(FindText(x,y,'1',UpChars,50,30,710,500)))
End;

Function WalkToTileEx(TileX, TileY, XTRandom, YTRandom, FFlag : Integer): Boolean;
Var T1l : Tpoint;
Begin
  T1l.X := TileX+random(XTRandom)
  T1l.Y := TileY+random(YTRandom)
  result := Walktotile(T1l,0,FFlag);
  MouseSpeed := 14 + Random(5);
end;



function Lamb : Boolean;
var
  x, y : Integer;
begin
  if FindColorTolerance(x, y, 1084300, MIX1, MIY1, MIX2, MIY2, 40) then
    Result := FindBitmapToleranceIn(Lamp, x, y, MIX1, MIY1, MIX2, MIY2, 40);
end;

procedure walka;
var
  Tilee,t : TPoint;
  o,oo:integer;
begin
  o := getme.tile.x
  oo := getme.tile.y
  if (o = 3182) and (oo =2978) then exit;
  Tilee := point(3182, 2978);
  setangle(true);
  t := TileToMS(Tilee,15);
  if t.x = 0 then terminatescript;
    Mouse(t.x-3,t.y-3,9,9,false);
    wait(300+random(300));
    chooseoption('Walk');
    wait(300+random(300));
    flag;
end;

procedure walkb;
var
  Tilee,t : TPoint;
  o,oo:integer;
begin
  o := getme.tile.x
  oo := getme.tile.y
  if (o = 3182) and (oo =2975) then exit;
  Tilee := point(3182, 2975);
  setangle(true);
  t := TileToMS(Tilee,15);
  if t.x = 0 then terminatescript;
    Mouse(t.x-3,t.y-3,9,9,false);
    wait(300+random(300));
    chooseoption('Walk');
    wait(300+random(300));
    flag;
end;

Procedure checkhp; Forward;
Procedure randoms; Forward;

procedure Makesure;
begin
  walka;
  walka;
  ftwait(15+random(7));
  checkhp;
  randoms;
  ftwait(15+random(7));
  checkhp;
  randoms;
  ftwait(15+random(7));
  checkhp;
  randoms;
  ftwait(15+random(7));
  checkhp;
  randoms;
  ftwait(15+random(7));
  checkhp;
  randoms;
  ftwait(15+random(7));
  walkb;
  walkb;
end;

procedure Sleepa;
begin
  Status('Sleeping');
  WalkToTileEx(3188, 2962, 3, 3, 8);
  WalkToTileEx(3186, 2955, 5, 3, 16+random(8));
  repeat
    logout;
    wait(300+random(300));
  until(not(loggedin));
  Slept := Slept + 1;
  wait(300000+random(920000));
  loginplayer;
  WalkToTileEx(3188, 2962, 3, 3, 0);
  wait(300+random(300));
  WalkToTileEx(3182-1, 2977-2, 2, 3, 0);
  makesure;
  setrun(true);
  Timex := (7200000+random(7200000));
  MarkTime(WhentoSleep);
end;

procedure randoms;
begin
  gametab(4);
  if FindBox then
  begin
    WalkToTileEx(3188, 2962, 3, 3, 8);
    WalkToTileEx(3186, 2955, 5, 3, 8);
    SolveBox;
    setrun(false);
    WalkToTileEx(3188, 2962, 3, 3, 0);
    wait(300+random(300));
    WalkToTileEx(3182-1, 2977-2, 2, 3, 0);
    makesure;
    setrun(true);
  end;
  if Lamb then
  begin
    WalkToTileEx(3188, 2962, 3, 3, 8);
    WalkToTileEx(3186, 2955, 5, 3, 8);
    FindLamp('Strenght');
    setrun(false);
    WalkToTileEx(3188, 2962, 3, 3, 0);
    wait(300+random(300));
    WalkToTileEx(3182-1, 2977-2, 2, 3, 0);
    makesure;
    setrun(true);
  end;
  ftWait(4);
  FindNonInventoryRandoms;
end;

Procedure AntiBan;
Begin
  FTWait(2+random(2));
  MouseSpeed := 10 + Random(5);
  If(not (LoggedIn))then
    exit;
  wait(100+random(100))
  Case Random(45) of
    0:  MMouse(random(MSX2),random(MSY2),0,0);
    1:  HoverSkill('random',false);
    2:  MMouse(random(MSX2),random(MSY2),0,0);
    5:  PickupMouse;
    6:  MMouse(random(MSX2),random(MSY2),0,0);
    7:  MouseSpeed := 14 + Random(5);
    8:  MMouse(random(MSX2),random(MSY2),0,0);
    9:  FTWait(2+Random(4));
    10:
    Begin
      GameTab(1+random(12));
      FTWait(1+Random(4));
      GameTab(4);
    End;
    11: MMouse(random(MSX2),random(MSY2),0,0);
    12,13: MouseSpeed := 13 + Random(5);
    14: MMouse(random(MSX2),random(MSY2),0,0);
    15: begin
      case random(90000) of
        0:typesend('lol');
        1:typesend('<-');
        2:typesend('die');
        3:typesend('die');
        4:typesend('ww00t');
        5:typesend('wp');
        6:typesend('Im drunken');
        7:typesend('die monsters');
        8:typesend('my spot');
        9:typesend('Hi');
        10:typesend('x D');
        11:typesend('i own!');
        12:typesend('im noob');
        13:typesend('noob');
        14:typesend('hah');
        15:typesend('l0l');
        16:typesend('die');
        17:typesend('weeee');
        18:typesend('69');
        19:typesend('die');
        20:typesend('i hate range');
        21:typesend(' ');
        22:typesend('moo');
        23:typesend('hey');
        24:typesend('kgjdsfgh');
        25:typesend('njgsydfgy');
        26:typesend('omg');
        27:typesend('lol');
        29:typesend('ya');
        30:typesend('woot');
        31:typesend('w00t');
        32:typesend('noob');
        33:typesend('plz leave');
        33:typesend('kill me noob');
      End;
    End;
    16:  MMouse(random(MSX2),random(MSY2),0,0);
    17,18:  FTWait(1+Random(9));
    19,29:
    begin
      case random(3) of
        0:
        begin
          KeyDown(VK_RIGHT);
          wait(500+random(2000));
          KeyUp(VK_RIGHT);
        end;
        1:
        begin
          KeyDown(VK_Left);
          wait(500+random(2000));
          KeyUp(VK_Left);
        end;
        2:
        begin
          case random(2) of
            0:
            begin
              KeyDown(VK_RIGHT);
              wait(500+random(1400));
              KeyUp(VK_RIGHT);
              FTWait(1+Random(3));
              KeyDown(VK_Left);
              wait(500+random(1400));
              KeyUp(VK_Left);
            end;
            1:
            begin
              KeyDown(VK_Left);
              wait(500+random(1400));
              KeyUp(VK_Left);
              FTWait(1+Random(3));
              KeyDown(VK_RIGHT);
              wait(500+random(1400));
              KeyUp(VK_RIGHT);
            end;
          end;
        end;
      end;
    end;
    20: MouseSpeed := 14 + Random(5);
    21,22,23,24: MMouse(random(MSX2),random(MSY2),0,0);
    25: MMouse(515, 0,250,503);
    26: MMouse(0, 338,515,165);
    27: R_setangle(0+random(100));
    28: randommovement;
  end;
end;

Procedure Getfood; Forward;

Procedure Getxps;
begin
  getme;
  hpnow := Getme.Experience[3];
  atknow:= Getme.Experience[0];
  strnow:= Getme.Experience[2];
  defnow:= Getme.Experience[1];
  rannow:= Getme.Experience[4];
  lol  := GetSkillLevel('hp');
  Maxhp := (lol-5);
end;

procedure checkhp;
var
  third, half, whole, x, y :integer;
  Colour :string;
begin
//cake dtms..
  third := DTMFromString('78DA63DCC5C4C0708F0105ECDBBA95811D483' +
      '302F17F2060DC87A9E6F0AE9D703520C0B817A8E621AA9A9B972F' +
      'A3A80100CD350FCD');
  half := DTMFromString('78DA63B460626060626440066B172D646007D' +
      '220D1FF40C0680B54C38CAAE6C48103703520C0680554C38EAAE6' +
      'E1DDBB286A00A7DC0BAF');
  whole := DTMFromString('78DA634C666260F064644006B7AF5D63E002D' +
      '220D1FF40C0988EA9E6FCC993703520C0980654E38BAAE6D1BD7B' +
      '286A003D0B0DBF');
  wait(100);
  if (GetMMLevels('hp',colour) < 40)then
  begin
    Status('Eating');
    repeat
      begin
        if (GetMMLevels('hp',colour) > maxhp)then
        begin
          Status('Fighting');
          freedtm(third);
          freedtm(half);
          freedtm(whole);
          exit;
        end;
        gametab(4);
        FTWait(1+Random(2));
        if(finddtm(third,x,y,546, 204,729, 464))then
        begin
          mouse(x,y,7,7,true);
        end else
        if(finddtm(half,x,y,546, 204,729, 464))then
        begin
          mouse(x,y,7,7,true);
        end else
        if(finddtm(whole,x,y,546, 204,729, 464))then
        begin
          mouse(x,y,7,7,true);
        end else
        begin
          freedtm(third);
          freedtm(half);
          freedtm(whole);
          makecompass('n');
          setrun(true);
          GetFood;
          exit;
        end;
      end;
    until(false);
  end;
end;

procedure eatb;
var
  third, half, whole, x, y :integer;
  Colour :string;
begin
//cake dtms..
  third := DTMFromString('78DA63DCC5C4C0708F0105ECDBBA95811D483' +
      '302F17F2060DC87A9E6F0AE9D703520C0B817A8E621AA9A9B972F' +
      'A3A80100CD350FCD');
  half := DTMFromString('78DA63B460626060626440066B172D646007D' +
      '220D1FF40C0680B54C38CAAE6C48103703520C0680554C38EAAE6' +
      'E1DDBB286A00A7DC0BAF');
  whole := DTMFromString('78DA634C666260F064644006B7AF5D63E002D' +
      '220D1FF40C0988EA9E6FCC993703520C0980654E38BAAE6D1BD7B' +
      '286A003D0B0DBF');
  wait(100);
  if (GetMMLevels('hp',colour) < 40)then
  begin
    Status('Eating');
    repeat
      begin
        if (GetMMLevels('hp',colour) > maxhp)then
        begin
          Status('Fighting');
          freedtm(third);
          freedtm(half);
          freedtm(whole);
          exit;
        end;
        gametab(4);
        FTWait(1+Random(2));
        if(finddtm(third,x,y,546, 204,729, 464))then
        begin
          mouse(x,y,7,7,true);
        end else
        if(finddtm(half,x,y,546, 204,729, 464))then
        begin
          mouse(x,y,7,7,true);
        end else
        if(finddtm(whole,x,y,546, 204,729, 464))then
        begin
          mouse(x,y,7,7,true);
        end else
        begin
          freedtm(third);
          freedtm(half);
          freedtm(whole);
          makecompass('n');
          setrun(true);
          GetFood;
          exit;
        end;
      end;
    until(false);
  end;
end;


Procedure PassThePort;
var
  ATile :TPoint;
  p : TPoint;
begin
  wait(500+random(500));
  ATile := point(3304, 3116);
  P := TileToMS(ATile,20);
  mouse(p.x-2,p.y-2,5,5,false);
  wait(1000+random(500));
  if chooseoption('uick') then
  begin
    wait(4500+random(1000));
    exit;
  end else PassThePort;
end;

Procedure OpenTheBank;
var ATile,P :TPoint;
begin
  wait(500+random(500));
  Status('Opening bank');
  ATile := Point(3308,3120);
  if(not(tileonmm(atile))) then terminatescript;
  P := TileToMS(ATile,16);
  if(not(atile.x > 0)) then exit;
    mouse(p.x-2,p.y-2,5,5,false);
    wait(1000+random(500));
    if chooseoption('Open') then
    begin
      wait(4500+random(1000));
      exit;
    end else
    begin
      Openthebank;
    end;
end;

Procedure TalkRug;
var NPC: TNPC;
begin
  Status('Talking to Rug Merchant');
  setangle(true);
  wait(1000+random(1000));
  if FindNPC('Rug Merchant',NPC) then
  if (NPC.MS.X) > 0 then
  begin
    Mouse(NPC.MS.X, NPC.MS.Y,4,4,False);
    wait(1000+random(500));
  end else
  begin
    walktotile(NPC.MM,1,0);
    Talkrug;
  end;
  if(not(chooseoption('Travel'))) then Talkrug;
    wait(4000+random(1100));
    FindNPCChatText('edabin', ClickLeft)
    FindNPCChatText('hantay', ClickLeft)
    wait(2000+random(1100));
    if(not(FindNPCChatText('continue', ClickLeft))) then talkrug;
    wait(2000+random(1100));
    FindNPCChatText('continue', ClickLeft)
    wait(2000+random(1100));
    FindNPCChatText('continue', ClickLeft)
    wait(2000+random(3000));
    repeat
      wait(100);
      if nogametab then
      begin
        wait(123);
      end else
      begin
        exit;
      end;
    until(false);
end;

procedure Dobanking;
begin
  Banked := Banked + 1;
  depositall;
  wait(500+random(1000));
  fixbank;
  wait(500+random(1000));
  withdraw(1,1,10);  //cakes
  wait(500+random(1000));
  closebank;
  findnormalrandoms;
  eatb;
  findnormalrandoms;
  wait(800+random(1000));
  Openthebank;
  depositall;
  fixbank;
  withdraw(3,1,1);    //Shantay pass
  wait(500+random(1000));
  withdraw(2,1,400+random(700));//coins
  wait(500+random(1000));
  withdraw(1,1,0);  //cakes
  wait(500+random(1000));
  closebank;
end;

procedure EquipWeapon;
begin
  If finddtm(weapon,x,y,557, 206,734, 462) then mouse(x-4,y-4,10,10,true);
end;

Procedure UnEquipWeapon;
begin
  wait(500+random(1000));
  gametab(5);
  wait(500+random(1000));
  mouse(575,290,20,20,true);
  wait(500+random(1000));
  gametab(4);
end;

Procedure walktobank;
begin
  Status('Walking to bank');
  WalkToTileEx(3181, 2983,1,3, 8+random(5));
  WalkToTileEx(3179, 2995,2,2, 8+random(5));
  WalkToTileEx(3176, 3006,4,3, 0);
  WalkToTileEx(3175, 3018,4,4, 8+random(5));
  WalkToTileEx(3177, 3030,6,2, 0);
  WalkToTileEx(3179, 3043,3,3, 0);
  unequipweapon;
  Talkrug;
  WalkToTileEx(3301, 3117, 6, 2, 0);
  PassThePort;
  WalkToTileEx(3306, 3119, 2, 2, 0);
  wait(500+random(1000));
  gametab(4);
  EquipWeapon;
  wait(1400+random(500));
  EquipWeapon;
  wait(500+random(500));
  OpenTheBank;
  wait(500+random(500));
  dobanking;
end;

Procedure walkbandits;
begin
  Status('Walking to bandits');
  WalkToTileEx(3301, 3113, 6, 3, 0);
  PassThePort;
  unequipweapon;
  WalkToTileEx(3308, 3107, 3, 3, 0);
  Talkrug;
  WalkToTileEx(3177, 3030,6,2, 8+random(5));
  WalkToTileEx(3175, 3018,4,4, 8+random(5));
  WalkToTileEx(3176, 3006,4,3, 8+random(5));
  WalkToTileEx(3179, 2995,2,2, 8+random(5));
  WalkToTileEx(3181, 2983,1,3, 0);
  wait(300+random(300));
  WalkToTileEx(3182-1, 2977-2, 2, 3, 0);
  gametab(4);
  EquipWeapon;
  wait(1400+random(500));
  EquipWeapon;
  wait(300+random(500));
  EquipWeapon;
  makesure;
  if(TimeFromMark(whentosleep) > Timex) then sleepa;
  Status('Fighting');
end;

procedure getfood;
begin
  walktobank;
  walkbandits;
end;

procedure hop;
var xpnow, xplater :byte;
begin
  srlrandomsreport;
  ftwait(2+random(2));
  xpnow := Getme.Experience[3];
  ftwait(10+random(5));
  checkhp;
  randoms;
  antiban;
  ftwait(15+random(5));
  checkhp;
  randoms;
  antiban;
  ftwait(15+random(5));
  checkhp;
  randoms;
  antiban;
  ftwait(15+random(5));
  checkhp;
  randoms;
  antiban;
  ftwait(15+random(5));
  checkhp;
  randoms;
  antiban;
  ftwait(2+random(2));
  xplater := Getme.Experience[3];
  MarkTime(TimeMark);
  if xpnow = xplater then
  begin
    Status('Changing world');
    WalkToTileEx(3186, 2965, 3, 3, 8);
    WalkToTileEx(3186, 2955, 5, 3, 16+random(8));
    repeat
      logout;
      wait(300+random(300));
    until(not(loggedin));
    pickworld;
    if not LoggedIn then
    begin
      LoginPlayer;
      setrun(false);
      Retaliate(true);
      setangle(true);
      WalkToTileEx(3188, 2962, 3, 3, 0);
      wait(300+random(300));
      WalkToTileEx(3182-1, 2977-2, 2, 3, 0);
      makesure;
      setrun(true);
      Status('Fighting');
    end;
  end else
  begin
    exit;
  end;
end;


Procedure Proggy;
begin
  getme;
  wait(1000);
  hplater := Getme.Experience[3];
  atklater:= Getme.Experience[0];
  strlater:= Getme.Experience[2];
  deflater:= Getme.Experience[1];
  ranlater:= Getme.Experience[4];
  wait(1000);
  SrlRandomsReport;
  hpgained := hplater-hpnow;
  atkgained:= atklater-atknow;
  strgained:= strlater-strnow;
  defgained:= deflater-defnow;
  rangained:= ranlater-rannow;
  ClearDebug;
  Writeln('|Bandit killer');
  Writeln('|Worked for ' + TimeRunning + '');
  Writeln('|Banked for ' + IntToStr(Banked) + ' times');
  Writeln('|Hopped for ' + IntToStr(Hopped) + ' times');
  Writeln('|Slept for ' + IntToStr(Slept) + ' times');
  Writeln('|Gained:' + IntToStr(hpgained) +' Hp xp, ' + IntToStr(atkgained) +' Atk xp, ' + IntToStr(strgained) +' Str xp,');
  Writeln('|' + IntToStr(defgained) +' Def xp and ' + IntToStr(rangained) +' Range xp');
end;

procedure scriptterminate;
begin
  cleardebug;
  Writeln('----------------------------------------------------------------');
  Writeln('|Bandit killer');
  Writeln('|Worked for ' + TimeRunning + '');
  Writeln('|Banked for ' + IntToStr(Banked) + ' times');
  Writeln('|Hopped for ' + IntToStr(Hopped) + ' times');
  Writeln('|Slept for ' + IntToStr(Slept) + ' times');
  Writeln('|Gained ' + IntToStr(hpgained) +' Hp xp');
  Writeln('|Gained ' + IntToStr(atkgained) +' Atk xp');
  Writeln('|Gained ' + IntToStr(strgained) +' Str xp');
  Writeln('|Gained ' + IntToStr(defgained) +' Def xp');
  Writeln('|Gained ' + IntToStr(rangained) +' Range xp');
  Writeln('----------------------------------------------------------------');
  Writeln('Thanks for using :)');
  Writeln('Please post this proggy to my thread:');
  Writeln('http://www.villavu.com/forum/showthread.php?t=27143');
  Writeln(' ');
  Writeln(' ');
  Writeln(' ');
end;

begin
  setup;
  Timex := (7200000+random(7200000));
  MarkTime(TimeMark);
  MarkTime(WhentoSleep);
  DeclarePlayers;
  setupsrl;
  SmartSetup(smartworld, True, True, False);
  wait(1000+random(1000));
  SetTargetDC(SMARTGetDC);
  wait(1000+random(1000));
  activateclient;
  if not loggedin then loginplayer;
  wait(1000+random(1000));
  setrun(false);
  Retaliate(true);
  setangle(false);
  WalkToTileEx(3182-1, 2977-2, 2, 3, 0);
  getxps;
  makesure;
  setrun(true);
  repeat
    MouseSpeed := 12 + Random(5);
    if not LoggedIn then
    begin
      LoginPlayer;
      setrun(true);
      Retaliate(true);
      setangle(true);
    end;
    proggy;
    randoms;
    ftwait(1+random(1));
    checkhp;
    ftwait(1+random(1));
    randoms;
    ftwait(1+random(1));
    antiban;
    ftwait(1+random(1));
    if(TimeFromMark(TimeMark) > 110000+random(4000)) then hop;
  until(false);
end.

---

I tried reading your script and you got 0 standards!
So i standardirized your script ;)

SCRIPT LIKE THAT IN THE FURTURE!
Try reading -> http://www.villavu.com/forum/showthread.php?t=3293

Also try using failsafes ! Its your best friend when it comes to scar scripting..

Quote:

---

Originally Posted by Haxor

in next version can you make it so it uses prayer potions... so like when it runs out of them it goes to bank to get more.

haxor

EDIT: doesnt work, it logs in and sets strength then puts mouse to bottom of screen and just sits there... and eventually logs out=)

---

I will first finish my plank maker then I will update this script :)

Edit: Thanks N1ke :) You did very big work and I will credit you when I relase next version :P
ahh and rep++ to you.

hey before u update to do all this other crazy stuff. dont forget to add a procedure that takes breaks and even sleeps. if you dont have one of those, your account is gonna get banned fast. multi-player wouldnt work very well with this account unless you changed players by the amount of xp gained instead of time spent training (due to all the world switching that could come up(and seems to always do)) and the walk to the rug merchant is a lil bit unsafe. it doesnt always work, and itll usually just leave u end the desert lol.plus i just noticed thats theres no random checks during that walk, i dont know y tho. it just wouldnt pick up that there was a random. but overall nice script. really good xp/hour. im gonna have a str cape in no time