enigmatic87
2008-05-17 08:04:01
Hello there,
Here is my first very simple autofletcher, read the description and enjoy!
btw, this is the position where u have to stand , to make the script work properly , varrock west bank:
Here is my first very simple autofletcher, read the description and enjoy!
btw, this is the position where u have to stand , to make the script work properly , varrock west bank:
{//--------------------------------------------------------------//
AutoFletcher/VarrockWestBanker (Anti-BAN included) Version 1.0
==============================================================
Description: This Autofletcher withdraws logs from your bank,
fletches them into LONGBOWS, and drops them in bank.
While fletching the AniBan-system will activate.
You can easily adjust this script to your wishes (i.e. if u wish to fletch shortbows)
Instrucions: -To make this autoer work optimal, it is a MUST
to stand in front of the second northern bank slot(seen from above) at the
right side of the West Varrock Bank.
-The compass has to be faced north and topdown view.
-Before running the script, put your logs, in the most right
slot of your bank as the last item. To do this, withdraw all of
your logs, close your bank, and then deposit them again.
-When your logs are in the last slot, withdraw 1 log, close bank, and return it back in.
When u do this, and you open your bank another time, it will automattically scroll to the last item in your bank.
You have to do this EVERY time u log in.
-IMPORANT: ONLY switch the Anti-BAN Procedure on when the bank is
crowded with enough other players / fletchers.
If you are the only fletcher switch the Antiban OFF.
-To begin: Hold your cursor above the bank slot and press F9
Changing Variables: - Anti-BAN On/Off >> Lines 211 and 212
- Anti-BAN sentences >> lines 33 untill line 49
Author: Enigmatic87
This is the first script i have made, it is written in the most simplified form of pascal.
I am aware of this, that is why its the first script i made :), i know it is very inefficient.
//---------------------------------------------------------------//}
program New;
const
BH1 = 'aaww I hate bounty hunter';
BH2 = 'i want the wildy back :( :@';
BH3 = 'yea';
LVL1 = 'fletching lvls?';
LVL2 = 'nice';
BO1 = 'boooorrinnggg';
BO2 = 'ffs';
MO1 = 'whats better to fletch, magic shorts or yew longs?';
MO2 = 'hmmm?';
OH = 'omg lol -_-';
OH1 = 'someguy pked an ags';
OH2 = 'on youtube thats is, thats just sick!';
GR1 = 'Anyone has seen the new graphics?';
GR2 = 'They look great, but still graphics suck lol';
GR3 = 'They have to make an rs3 with awesome graphics';
DRA = 'I wonder when new dragon equipment will come out';
DRA1 = 'like a dragon platebody lol';
Aantal = '28';
//Antiban procedures : DR, GR, O, BH, LVL, BO, MO
Procedure DR;
begin
wait(4000)
Sendkeys(DRA);
keydown(13);
wait(7000)
Sendkeys(DRA1);
keydown(13);
wait(44000)
end;
Procedure GR;
begin
wait(4000)
Sendkeys(GR1);
keydown(13);
wait(17000)
Sendkeys(GR2);
keydown(13);
wait(15000)
Sendkeys(GR3);
keydown(13);
wait(10000)
end;
Procedure O;
begin
wait(4000)
Sendkeys(OH);
keydown(13);
wait(7000)
Sendkeys(OH1);
keydown(13);
wait(15000)
Sendkeys(OH2);
keydown(13);
wait(44000)
end;
Procedure BH;
begin
wait(4000)
Sendkeys(BH1);
keydown(13);
wait(15000)
Sendkeys(BH2);
keydown(13);
wait(16000)
Sendkeys(BH3);
keydown(13);
wait(20000)
end;
Procedure LVL;
begin
wait(4000)
Sendkeys(LVL1);
keydown(13);
wait(16000)
Sendkeys(LVL2);
keydown(13);
wait(35000);
end;
Procedure BO;
begin
wait(4000)
Sendkeys(BO1);
keydown(13);
wait(16000)
Sendkeys(BO2);
keydown(13);
wait(35000)
end;
Procedure MO;
begin
wait(4000)
Sendkeys(MO1);
keydown(13);
wait(16000)
Sendkeys(MO2);
keydown(13);
wait(35000);
end;
Procedure anti;
begin
case random (4) of
0: BH;
1: BO;
2: GR;
3: MO;
4: O;
5: DR;
6: LVL;
end;
end;
var
i : integer;
Procedure Fletching;
begin
wait(500);
MoveMouseSmooth (302,166);
wait(1000);
ClickMouse(302,166, false); //rightclick on bank
wait(500);
MoveMouseSmooth (302,210);
wait(1000);
ClickMouse(302,210, True); //Click on quickuse
end;
Procedure BankIn;
begin
wait(500);
MoveMouseSmooth (424,180);
wait(1000);
ClickMouse(424,180, false); //click on log
wait(500);
MoveMouseSmooth (424,251);
wait(1000);
ClickMouse(424,251, true); //withdraw all
wait(500);
MoveMouseSmooth (486,41);
wait(1000);
ClickMouse(486,41, true); //close bank
wait(500);
MoveMouseSmooth (577,230);
wait(500);
ClickMouse(577,230, true); //select knife
wait(500);
MoveMouseSmooth (622,230);
wait(1000);
ClickMouse(622,230, true); //use with log
wait(500);
MoveMouseSmooth (265,407);
wait(1000);
ClickMouse(265,407, false); //fletch longbows
wait(500);
MoveMouseSmooth(265,475);
wait(1000);
ClickMouse(265,475, true); //how many bows
wait(2000);
SendKeysSilent(aantal);
keydown(13);
//anti; //If u are in a crowded area turn this one ON.
wait(55000) //If u are in a crowded area turn this one OFF.
MoveMouseSmooth(302,166);
wait(1000);
ClickMouse(302,166, false); //rightclick on bank.
wait(500);
MoveMouseSmooth (302,210);
wait(1000);
ClickMouse(302,210, True); //Click on quick-use
wait(500);
MoveMouseSmooth (622,230);
wait(1000);
ClickMouse(622,230, false); //select bows
wait(500);
MoveMouseSmooth (622,296);
wait(1000);
ClickMouse(622,296, true); //deposit bows
end;
//looping code
begin
Fletching;
i := 1;
repeat
i:= i + 1;
BankIn;
Until(false);
end.