badandymitch
2007-06-03 20:03:08
<!– BEGIN TEMPLATE: formanswers –>
badandymitch - SRL Member Application Form
badandymitch
What is the meaning to life?
The meaning to life is to do what you belive in. Like me i belive killing something for the benifit of us is wrong there for i am a vegaterian. I also belive that it is better to give then recive. It dosent matter who has more its who has fun.
Where you Referred to SRL? If yes, by whom?
Programming Knowledge
Other Communitys
Uberbroproductions
How Long have You Played Runescape
4 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Hello, my name is Mitch. I have learned scripting about a month ago i think. I like it a lot and it is pretty fun. I am very active just i dont post that much. This is my first script and i worked hard on it. I am very proud of it also. I am currently also working on a yew cutter in varrok. I am currently 14. I use to play runescape a lot but it got boring to me. I will be more active if i am a member because people would take my advice more seriously. Thank you to all who vote.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
badandymitch - SRL Member Application Form
badandymitch
What is the meaning to life?
The meaning to life is to do what you belive in. Like me i belive killing something for the benifit of us is wrong there for i am a vegaterian. I also belive that it is better to give then recive. It dosent matter who has more its who has fun.
Where you Referred to SRL? If yes, by whom?
Programming Knowledge
Other Communitys
Uberbroproductions
How Long have You Played Runescape
4 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Hello, my name is Mitch. I have learned scripting about a month ago i think. I like it a lot and it is pretty fun. I am very active just i dont post that much. This is my first script and i worked hard on it. I am very proud of it also. I am currently also working on a yew cutter in varrok. I am currently 14. I use to play runescape a lot but it got boring to me. I will be more active if i am a member because people would take my advice more seriously. Thank you to all who vote.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{-----------------------------------------------------------|
| Operation Al Kharid |
|-----------------------------------------------------------|
| |
| This Script can Smelt, Tan Hides, Bury bones and Craft |
| |
| |
| |
|-----------------------------------------------------------|
| Thanks |
|-----------------------------------------------------------|
| |
| This Script was made by Badandymitch |
| I had alot of help making this script |
| I would like to thank JAD alot for proof reading it and |
|helping with questions, Bullzeye95, and |
|other people I will be adding later. |
|-----------------------------------------------------------|
| How To Use |
|-----------------------------------------------------------|
| |
| Fill in your username and password. |
| at String1 Fill in either |
| |
| Steel, Bronze, Gold, Silver, Rune, Mithril, Adamant |
| or |
| Hard, Soft, Green, Blue, Red, Black |
| or |
| Hard, Soft, Green, Blue, Red, Black |
| or |
| Bones |
| |
| At String2 Fill in either |
| Crafting, Smithing, Prayer, or Tanning |
| |
| |
| |
|-----------------------------------------------------------}
program New;
{.include SRL/SRL.scar}
{.include SRL/SRL/Extended/xColor.scar}
{.include SRL/SRL/Extended/xBitMap.scar}
const
Load = 4;// loads to do before switching
var
BankColors: array[1..5] of integer;
FurnaceColors: array[1..5] of integer;
TanColors: array[1..5] of integer;
B, TS, F, bank3, furnace2, Arrow, Xer, KS, T, LoadsDone: integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[0].String1:='';
Players[0].String2:='';//Crafting, Smithing, Prayer, or Tanning
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
/////////////////////////////////////////////////////////////////////
procedure DeclareBMPS;
begin
bank3 := BitmapFromString(6, 2, '979428FFC532FFC532FFC532CD' +
'C532595801979428595801595801CDC532595801595801');
furnace2 := BitmapFromString(9, 2, 'z78DA333236363232313130' +
'7233347435343335307135B23432B074357433323084B141E2103' +
'54660F54698BA7090C8BA00CEDC1681');
Arrow := BitmapFromString(16, 16, 'z78DA333733333335311F82A' +
'4B1B1918B9129B288898B8991B131E524C46452CD370001430839' +
'F8CDC7340797F99822F8CDC76F0E31E283C77C645DF84588371F9' +
'75EFC2479E9875493C94B9FC49B3C98F317E5E503B238B548DA99' +
'0C2101BB6D3CD6');
KS := BitmapFromString(11, 2, '4B2C0101790141870F0179010179' +
'01D91C0BD91C0B6301016301013701014B2C014B2C0141870F370' +
'1014B2C013701013701017A5A224B2C017A5A228A74414B2C01');
T := BitmapFromString(5, 2, '3C2601503CFF5D4AFF5D4AFF503C01' +
'3C2601503C015D4A0F5D4A0F503C01');
Xer := BitmapFromString(10, 11, 'z78DA3330000243033069E664E' +
'A62628C9F3440528F4912AF0BBF38015913537313430889DF3D50' +
'5D48EA3149F274E13201971A533753236367641297BD982A89D18' +
'5DF04FC6A70C96211B7347131B6C42409B807872E5C260000D956' +
'85F1');
end;
//////////////////////////Don't touch below////////////////////////////////
Procedure Setup;
begin
SetupSRL;
Wait(1000);
DeclareBMPS;
Wait(1000);
ActivateClient;
Wait(1000);
DeclarePlayers;
Wait(1000);
LoginPlayer;
MakeCompass('W');
end;
/////////////////////////////////////////////////////////////
procedure ExtraRandom;
begin
if FindFight then
begin
RunAwayDirection('e');
Wait(10000+random(2000));
RunBack;
end;
end;
////////////////////////////////////////////////////////////
procedure FindRandoms;
begin
FindTalk;
FindNormalRandoms;
ExtraRandom;
end;
//////////////////////////////////////////////////////////////
function TannerTrade: Boolean;// Same as bankscreen just modified
begin
Result := IsTextAtEx(142, 33, 'What hides', 30, upchars, True, False, 0, 0,-1);
end;
///////////////////////////////////////////////////////////////////
function MoveMouseOver(ax,ay,Color, MaxTol: Integer; Text: String; Stay: Boolean): Boolean;
var Tol: Integer;
begin
repeat
Tol := Tol + 1;
until(FindColorTolerance(ax,ay,Color,MSX1,MSY1,MSX2,MSY2,Tol)) or (Tol > MaxTol);
if(Tol > MaxTol) then
Exit;
if(FindColorTolerance(ax,ay,Color,MSX1,MSY1,MSX2,MSY2,Tol))then
begin
MMouse(ax,ay,1,1);
if(IsUpText(Text))then
begin
Result := True;
if(Stay)then
begin
GetMousePos(ax,ay);
Result := True;
Exit;
end;
end;
MouseBox(MSX1,MSY1,MSX2,MSY2,3);
wait(300+random(300));
MouseBox(MSX1,MSY1,MSX2,MSY2,3);
end;
if(not(Result))then
begin
Result := False;
end;
end;
/////////////////////////////////////////////////////////////////////////
procedure SetupColors;
begin
TanColors[1] := 1002077;
TanColors[2] := 73005;
TanColors[3] := 75324;
TanColors[4] := 80976;
FurnaceColors[1] := 127713;
FurnaceColors[2] := 627426;
FurnaceColors[3] := 288225;
FurnaceColors[4] := 1126208;
FurnaceColors[5] := 2372131;
BankColors[1] := 10859427;
BankColors[2] := 3327437;
BankColors[3] := 8754051;
BankColors[4] := 2659479;
BankColors[5] := 88153;
end;
////////////////////////////////////////////////////////////
procedure Number;
begin
case Random(10) of
0: TypeSend('321');
1: TypeSend('29');
2: TypeSend('55');
3: TypeSend('30');
4: TypeSend('77');
5: TypeSend('44');
6: TypeSend('33');
7: TypeSend('125');
8: TypeSend('54');
9: TypeSend('32');
10: TypeSend('68');
end;
end;
////////////////////////////////////////////////////////////
procedure antiban;
begin
case Random(15) of
2:MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
4:begin
HoverSkill('Smithing', False);
wait(2000+random(1000));
GameTab(4);
end;
5: PickUpMouse;
6:MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
7,8,9 : begin
GameTab(1 + Random(12));
wait(1000+random(1000));
GameTab(4);
end;
end;
end;
//////////////////////////////////////////////////////////////
procedure Waiting;
var I: Integer;
begin
for I := 1 to 40 do
begin
Wait(300+random(300));
if(not(FindBitmap(Arrow, x, y)))then
Exit;
end;
Writeln('problem in waiting switching players');
NextPlayer(False);
end;
////////////////////////////////////////////////////////////
procedure WaitingTan;
var I: Integer;
begin
for I := 1 to 40 do
begin
Wait(300+random(300));
if(TannerTrade)then
Exit;
end;
Writeln('problem in waiting switching players');
NextPlayer(False);
end;
////////////////////////////////////////////////////////////////////
procedure Smelt;
var
Tries: integer;
begin
repeat
Tries := Tries + 1;
if(MoveMouseOver(1847966, 150, 'Furnace'))then
begin
MMouse(x, y, 0, 0);
if(IsUpText('Furnace'))then
begin
Mouse(x, y, 0, 0, True);
Waiting;
Exit;
end;
end;
Wait(1000+random(500));
until (Tries > 20);
if (Tries > 20)then
begin
NextPlayer(True);
WriteLn('This guy didnt get there.');
end;
end;
////////////////////////////////////////////////////////////////
procedure Tan;
var
Tries: integer;
begin
repeat
begin
Tries := Tries + 1;
if(MoveMouseOver(3432846, 100, 'Ellis',True))then
begin
MMouse(x, y, 0, 0);
if(IsUpText('Ellis'))then
Mouse(x, y, 0, 0, False);
if(FindText(x, y,'-to', upchars, msx1,msy1,msx2,msy2))then
begin
Mouse(x,y+25,2,2,true)
WaitingTan;
Exit;
end;
end;
end;
until(Tries > 20);
if (Tries > 20)then
begin
NextPlayer(False);
Writeln('This guy didnt get there.');
end;
end;
///////////////////////////////////////////////////////////////////
procedure LastAttemptToTan;
var
Tries: integer;
begin
for TS := 1 to 14 do
repeat
Tries := Tries + 1;
if FindColorSpiralTolerance(x, y, TanColors[TS], 648, 26, 706, 132, 50) then
begin
Mouse(x, y, 0, 0, True);
Flag;
Exit;
end;
until(Tries < 20);
if (Tries < 20)then
begin
Writeln('Player didnt get to Tan... Bye Bye to this guy.');
NextPlayer(False);
end;
end;
////////////////////////////////////////////////////////////////////
procedure LastAttemptToFurnace;
var
Tries: integer;
begin
for F := 1 to 14 do
repeat
Tries := Tries + 1;
if FindColorSpiralTolerance(x, y, FurnaceColors[F], MMX1, MMY1, MMX2, MMY2, 50) then
begin
Mouse(x, y, 0, 0, True);
Flag;
Exit;
end;
until(Tries < 20);
if (Tries < 20)then
begin
Writeln('Player didnt get to Furnace... Bye Bye to this guy.');
NextPlayer(False);
end;
end;
///////////////////////////////////////////////////////////////////
procedure ChooseHide;
begin
Wait(2000+random(500));
case (Players[CurrentPlayer].String1) of
'Soft': begin
MouseBox(71,80,112,131,2);
ChooseOption(x,y,'All');
Wait(2000+random(1000));
end;
'Hard': begin
MouseBox(188,80,228,132,2);
ChooseOption(x,y,'All');
Wait(2000+random(1000));
end;
'Green': begin
MouseBox(75,211,113,260,2);
ChooseOption(x,y,'All');
wait(2000+random(1000));
end;
'Blue': begin
MouseBox(185,209,224,258,2);
ChooseOption(x,y,'All');
Wait(2000+random(1000));
end;
'Red': begin
MouseBox(297,210,338,357,2);
ChooseOption(x,y,'All');
Wait(2000+random(1000));
end;
'Black': begin
MouseBox(412,207,451,254,2);
ChooseOption(x,y,'All');
Wait(2000+random(1000));
end;
end;
end;
///////////////////////////////////////////////////////////////////
procedure GetToFurnace;
var
Tries, Trie: Integer;
begin
HighestAngle;
MakeCompass('W');
Setrun(true);
MouseBox(673,114,688,126,1);
Flag;
FindRandoms;
repeat
begin
Trie := Trie + 1;
if(FindBitmap(furnace2, x, y))then
begin
Mouse(x,y,2,2,true);
Flag;
Exit;
end;
Wait(600+random(500));
end;
until(Trie > 20);
if(not(FindBitmap(furnace2, x, y)))then
begin
repeat
begin
Tries := Tries + 1;
if(FindSymbol(x,y,'furnace'))then
begin
Mouse(x,y,2,2,true);
Flag;
FindRandoms;
Exit;
end;
Wait(600+random(500));
end;
until (Tries > 10);
end;
if(not(FindSymbol(x,y,'furnace')))then
begin
if(not(FindBitmap(furnace2, x, y)))then
begin //Last Attempt. The symbols change alot in Alkaid
WriteLn('Doing Last Attempt');
LastAttemptToFurnace;
end;
end;
end;
///////////////////////////////////////////////////////////////////
procedure GetToTan;
var
Trie, Tries: Integer;
begin
HighestAngle;
MakeCompass('W');
Setrun(true);
MouseBox(673,114,688,126,1);
Wait(1000+random(300));
Flag;
MouseBox(687,78,710,101,1);
Flag;
FindRandoms;
repeat
begin
Trie := Trie + 1;
if(FindSymbol(x,y,'tanner'))then
begin
Mouse(x,y,2,2,true);
Flag;
FindRandoms;
Exit;
end;
Wait(600+random(500));
end;
until (Trie > 20);
if(not(FindSymbol(x,y,'tanner')))then
begin
repeat
begin
Tries := Tries + 1;
if(FindBitmap(T, x, y))then
begin
Mouse(x,y,2,2,true);
Flag;
Exit;
end;
Wait(600+random(500));
end;
until(Tries > 20);
end;
if(not(FindSymbol(x,y,'tanner')))then
begin
if(not(FindBitmap(T, x, y)))then
begin // Last attempt.
Writeln('Doing Last Attempt');
LastAttemptToTan;
end;
end;
end;
///////////////////////////////////////////////////////////////////
procedure MeltBars;
begin
Wait(2000+random(250));
case (Players[CurrentPlayer].String1) of
'Bronze': begin
MouseBox(26,388,64,424,2);
ChooseOption(x,y,'elt X');
Wait(2000+random(1000));
Number;
end;
'Steel': begin
MouseBox(243,391,271,419,2);
ChooseOption(x,y,'elt X');
Wait(2000+random(1000));
Number;
end;
'Gold': begin
MouseBox(297,393,317,418,2);
ChooseOption(x,y,'elt X');
Wait(2000+random(1000));
Number;
end;
'Silver': begin
MouseBox(193,394,212,419,2);
ChooseOption(x,y,'elt X');
Wait(2000+random(1000));
Number;
end;
'Mithril': begin
MouseBox(348,395,370,418,2);
ChooseOption(x,y,'elt X');
Wait(2000+random(1000));
Number;
end;
'Adamant': begin
MouseBox(400,394,422,416,2);
ChooseOption(x,y,'elt X');
Wait(2000+random(1000));
Number;
end;
'Rune': begin
MouseBox(456,396,475,419,2);
ChooseOption(x,y,'elt X');
Wait(2000+random(1000));
Number;
end;
end;
end;
/////////////////////////////////////////////////////////////
procedure CheckLevelSmith;
begin
if (Clicktocontinue)then
begin
Smelt;
MeltBars;
end;
end;
/////////////////////////////////////////////////////////////
procedure WaitForSmithing;
var rock:integer;
begin
rock := DTMFromString('78DA631464646028614001A94196609A11CA6' +
'71403B20A19D00023AA1A01202B97801A1E20AB88801A6E20AB82' +
'801A5E20AB86801A2120AB12554577813FA6BF4AF19B0300D71A0' +
'682');
repeat
antiban;
CheckLevelSmith;
FindRandoms;
until (not(FindDTM(rock,x, y,-121,-206,901,506)));
end;
////////////////////////////////////////////////////////////////
procedure LastAttemptToBank;
var
Tries: integer;
begin
for B := 1 to 5 do
repeat
Tries := Tries + 1;
if FindColorSpiralTolerance(x, y, BankColors[B], MSX1, MSY1, MSX2, MSY2, 50) then
begin
Mouse(x, y, 0, 0, True);
Flag;
Exit;
end;
until(Tries < 20);
if (Tries < 20)then
begin
Writeln('Player didnt get to bank... Bye Bye to this guy.');
NextPlayer(False);
end;
end;
/////////////////////////////////////////////////////////////
procedure GetToBankSmelt;
var
Tries: Integer;
begin
MakeCompass('W');
MouseBox(593,90,609,103,1);
Flag;
FindRandoms;
repeat
begin
Tries := Tries + 1;
if(FindSymbol(x,y,'bank'))then
begin
Mouse(x,y,2,2,true);
Flag;
Exit;
end;
Wait(600+random(500));
end;
until (Tries > 20);
if(not(FindSymbol(x,y,'bank')))then
begin
if(FindBitmap(bank3, x, y))then
begin
Mouse(x,y,2,2,true);
Flag;
Exit;
end;
end;
if(not(FindSymbol(x,y,'bank')))then
begin
if(not(FindBitmap(bank3, x, y)))then
begin // Last Attempt
Writeln('Doing Last Attempt');
LastAttemptToBank;
end;
end;
end;
/////////////////////////////////////////////////////////////////
procedure GetToBankTan;
var
Tries: Integer;
begin
Wait(2000+random(1000));
MakeCompass('W');
MouseBox(612,101,624,114,1);
Wait(1000+random(300));
Flag;
MouseBox(610,66,623,75,1);
Flag;
FindRandoms;
repeat
begin
Tries := Tries + 1;
if(FindSymbol(x,y,'bank'))then
begin
Mouse(x,y,2,2,true);
Flag;
Exit;
end;
Wait(600+random(500));
end;
until (Tries > 20);
if(not(FindSymbol(x,y,'bank')))then
begin
if(FindBitmap(bank3, x, y))then
begin
Mouse(x,y,2,2,true);
Flag;
Exit;
end;
end;
if(not(FindSymbol(x,y,'bank')))then
begin
if(not(FindBitmap(bank3, x, y)))then
begin //Last Attempt
Writeln('Doing Last Attempt');
LastAttemptToBank;
end;
end;
end;
/////////////////////////////////////////////////////////////////
procedure GetBankOpen;
begin
LowestAngle;
MakeCompass('W');
OpenBankGlass('akb',False,False);
Wait(1000+random(500));
if (not(BankScreen))then
begin
OpenBankQuiet('akb');
Wait(1000+random(500));
end;
if (not(BankScreen))then
begin
Writeln('cant find bank... ending');
NextPlayer(False);
end;
end;
/////////////////////////////////////////////////////////
procedure Banking;
begin
if (BankScreen)then
begin
FixBank;
DepositAll;
case (Players[CurrentPlayer].String1) of
'Bronze': begin
Withdraw(1,1,14);
Wait(500+Random(200));
Withdraw(2,1,14);
Wait(500+Random(200));
end;
'Steel': begin
Withdraw(1,1,9);
Wait(500+Random(200));
Withdraw(2,1,18);
Wait(500+Random(200));
end;
'Gold': begin
Withdraw(1,1,28);
Wait(500+Random(200));
end;
'Silver': begin
Withdraw(1,1,28);
Wait(500+Random(200));
end;
'Mithril': begin
Withdraw(1,1,5);
Wait(500+Random(200));
Withdraw(2,1,20);
Wait(500+Random(200));
end;
'Adamant': begin
Withdraw(1,1,4);
Wait(500+Random(200));
Withdraw(2,1,24);
Wait(500+Random(200));
end;
'Rune': begin
Withdraw(1,1,3);
Wait(500+Random(200));
Withdraw(2,1,24);
Wait(500+Random(200));
end;
'Soft': begin
Withdraw(2,1,27);
Wait(500+Random(200));
Withdraw(1,1,27);
Wait(500+Random(200));
end;
'Hard': begin
Withdraw(2,1,81);
Wait(500+Random(200));
Withdraw(1,1,27);
Wait(500+Random(200));
end;
'Green': begin
Withdraw(2,1,540);
Wait(500+Random(200));
Withdraw(1,1,27);
Wait(500+Random(200));
end;
'Blue': begin
Withdraw(2,1,540);
Wait(500+Random(200));
Withdraw(1,1,27);
Wait(500+Random(200));
end;
'Red': begin
Withdraw(2,1,540);
Wait(500+Random(200));
Withdraw(1,1,27);
Wait(500+Random(200));
end;
'Black': begin
Withdraw(2,1,540);
Wait(500+Random(200));
Withdraw(1,1,27);
Wait(500+Random(200));
end;
'Bones': begin
Withdraw(1,1,28);
Wait(500+Random(200));
end;
end;
CloseBank;
LoadsDone := LoadsDone+1;
end;
end;
////////////////////////////////////////////////////////
procedure CraftingBank;
begin
if (BankScreen)then
begin
FixBank;
Deposit(3, 28, 2);
Withdraw(1,1,26);
CloseBank;
LoadsDone:=LoadsDone+1
end;
end;
///////////////////////////////////////////////////////////////
procedure SoftCrafting;
var
CraftingLevel: Integer;
begin
CraftingLevel := GetSkillLevel('Crafting');
if(CraftingLevel < 7)then
begin
MouseBox(173,95,209,143,2);
ChooseOption(x, y, 'Make 10');
Exit;
end;
if(CraftingLevel < 9)then
begin
MouseBox(303,92,327,129,2);
ChooseOption(x, y, 'Make 10');
Exit;
end;
if(CraftingLevel < 11)then
begin
MouseBox(370,224,393,257,2);
ChooseOption(x, y, 'Make 10');
Exit;
end;
if(CraftingLevel < 14)then
begin
MouseBox(430,91,464,127,2);
ChooseOption(x, y, 'Make 10');
Exit;
end;
if(CraftingLevel < 18)then
begin
MouseBox(54,88,86,132,2);
ChooseOption(x, y, 'Make 10');
Exit;
end;
if(CraftingLevel < 38)then
begin
MouseBox(119,213,134,277,2);
ChooseOption(x, y, 'Make 10');
Exit;
end;
if(CraftingLevel < 99)then
begin
MouseBox(238,220,267,256,2);
ChooseOption(x, y, 'Make 10');
Exit;
end;
end;
///////////////////////////////////////////////////////////////
procedure GreenCrafting;
var
CraftingLevel: Integer;
begin
CraftingLevel := GetSkillLevel('Crafting');
if(CraftingLevel < 60)then
begin
MouseBox(232,386,256,411,2);
ChooseOption(x, y, 'Make 10');
Exit;
end;
if(CraftingLevel < 63)then
begin
MouseBox(404,376,414,418,2);
ChooseOption(x, y, 'Make 10');
Exit;
end;
if(CraftingLevel < 99)then
begin
MouseBox(93,374,117,411,2);
ChooseOption(x, y, 'Make 10');
Exit;
end;
end;
/////////////////////////////////////////////////////////////////////
procedure BlueCrafting;
var
CraftingLevel: Integer;
begin
CraftingLevel := GetSkillLevel('Crafting');
if(CraftingLevel < 68)then
begin
MouseBox(232,386,256,411,2);
ChooseOption(x, y, 'Make 10');
Exit;
end;
if(CraftingLevel < 71)then
begin
MouseBox(404,376,414,418,2);
ChooseOption(x, y, 'Make 10');
Exit;
end;
if(CraftingLevel < 99)then
begin
MouseBox(93,374,117,411,2);
ChooseOption(x, y, 'Make 10');
Exit;
end;
end;
///////////////////////////////////////////////////////////////
procedure RedCrafting;
var
CraftingLevel: Integer;
begin
CraftingLevel := GetSkillLevel('Crafting');
if(CraftingLevel < 75)then
begin
MouseBox(232,386,256,411,2);
ChooseOption(x, y, 'Make 10');
Exit;
end;
if(CraftingLevel < 77)then
begin
MouseBox(404,376,414,418,2);
ChooseOption(x, y, 'Make 10');
Exit;
end;
if(CraftingLevel < 99)then
begin
MouseBox(93,374,117,411,2);
ChooseOption(x, y, 'Make 10');
Exit;
end;
end;
///////////////////////////////////////////////////////////////
procedure BlackCrafting;
var
CraftingLevel: Integer;
begin
CraftingLevel := GetSkillLevel('Crafting');
if(CraftingLevel < 82)then
begin
MouseBox(232,386,256,411,2);
ChooseOption(x, y, 'Make 10');
Exit;
end;
if(CraftingLevel < 84)then
begin
MouseBox(404,376,414,418,2);
ChooseOption(x, y, 'Make 10');
Exit;
end;
if(CraftingLevel < 99)then
begin
MouseBox(93,374,117,411,2);
ChooseOption(x, y, 'Make 10');
Exit;
end;
end;
///////////////////////////////////////////////////////////////
procedure CrafterSoft;
var
A: Integer;
begin
repeat
A := A + 1;
UseItem(1);
Wait(300+random(200));
UseItem(28);
Wait(1500+random(200));
until (FindBitmap(Xer, x, y) or (A = 8));
if (A = 8) then
begin
NextPlayer(False);
end;
end;
//////////////////////////////////////////////////////////////////
procedure Crafter;
var
A: Integer;
begin
repeat
A := A + 1;
UseItem(1);
Wait(300+random(200));
UseItem(28);
Wait(4000+random(200));
until(not(FindBitmap(Arrow, x, y)) or (A = 8));
if (A = 8) then
begin
NextPlayer(False);
end;
end;
//////////////////////////////////////////////////////////////
procedure WhatToCraft;
var
L, A, J, Z, W, AB, BC, CD, DE, EF: Integer;
begin
case (Players[CurrentPlayer].String1) of
'Soft': begin
repeat
CrafterSoft;
SoftCrafting;
AB := AB + 1;
repeat
begin
A := A + 1;
Wait(2000+random(1100));
FindRandoms;
if (Clicktocontinue)then
begin
WhatToCraft;
end;
end;
until (A = 7);
until (InChat('out of')) or (AB = 8);
end;
'Green': begin
repeat
Crafter;
GreenCrafting;
BC := BC + 1;
repeat
begin
W := W + 1;
Wait(2000+random(1100));
FindRandoms;
if (Clicktocontinue)then
begin
WhatToCraft;
end;
end;
until (W = 7);
until (InChat('out of')) or (BC = 8);
end;
'Blue': begin
repeat
Crafter;
BlueCrafting;
CD := CD + 1;
repeat
begin
Z := Z + 1;
Wait(2000+random(1100));
FindRandoms;
if (Clicktocontinue)then
begin
WhatToCraft;
end;
end;
until (Z = 7);
until (InChat('out of')) or (CD = 8);
end;
'Red': begin
repeat
Crafter;
RedCrafting;
DE := DE + 1;
repeat
begin
J := J + 1;
Wait(2000+random(1100));
FindRandoms;
if (Clicktocontinue)then
begin
WhatToCraft;
end;
end;
until (J = 7);
until (InChat('out of')) or (DE = 8);
end;
'Black': begin
repeat
Crafter;
BlackCrafting;
EF := EF + 1;
repeat
begin
L := L + 1;
Wait(2000+random(1100));
FindRandoms;
if (Clicktocontinue)then
begin
WhatToCraft;
end;
end;
until (L = 7);
until (InChat('out of')) or (EF = 8);
end;
end;
end;
////////////////////////////////////////////////////////
procedure Bury;
var M: Integer;
begin
for M := 1 to 28 do
begin
MMouseItem(M);
GetMousePos(x, y);
if (not(IsUpText('Bu'))) then
begin
NextPlayer(False);
end;
if IsUpText('Bu') then
begin
Mouse(x, y, 0, 0, True);
Wait(900+random(300));
FindRandoms;
end;
end;
end;
//////////////////////////////////////////////////////////////
procedure CheckLevelCraft;
begin
if (Clicktocontinue)then
begin
WhatToCraft;
end;
end;
////////////////////////////////////////////////////////
procedure WhatToDo;
begin
case (Players[CurrentPlayer].String2) of
'Crafting': begin
GetBankOpen;
CraftingBank;
WhatToCraft;
end;
'Smithing': begin
GetBankOpen;
Banking;
GetToFurnace;
Smelt;
MeltBars;
WaitForSmithing;
GetToBankSmelt;
end;
'Tanning': begin
GetBankOpen;
Banking;
GetToTan;
Tan;
ChooseHide;
GetToBankTan;
end;
'Prayer': begin
GetBankOpen;
Banking;
Bury;
end;
end;
end;
////////////////////////////////////////////////////////
procedure Prog; //JAD'S but changed for my use Hope You dont mind
begin
Writeln('[]=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ');
Writeln('|| Badandymitch Progress report. Please remember to post ');
Writeln('|| proggies/bugs on my thread ');
Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= ');
Writeln('|| Worked For : ' + ScriptTime2(2));
Writeln('|| Did ' + IntToStr(Load) + ' Loads ');
Writeln('|| ');
Writeln('||=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ');
Writeln('||Thanks for using My Operation Alkaid, happy autoing :) ');
SRLRandomsReport;
end;
///////////////////////////////////////////////////////////
begin
Setup;
SetupColors;
repeat
repeat
WhatToDo;
until(LoadsDone = Load);
LoadsDone:=0;
NextPlayer(True);
Prog;
until(False);
end.——————————————————
<!– END TEMPLATE: formanswers –>