Program midmaterials;
var
Repeat_count,i : integer;
Begin
Repeat_count := 100;
for i := 0 to Repeat_count -1 do
Begin
WalkTo(405,416);
FlyUp(240);
Sleep(5000);
GatherMaterial_Name('Willow Stake');
Sleep(12000);
FlyUp(250);
Sleep(5000);
WalkTo(405,411);
GatherMaterial_Name('Manganese Iron Ore');
Sleep(12000);
FlyUp(380);
Sleep(18000);
WalkTo(409,403);
FlyUp(375);
Sleep(5000);
Sleep(3000);
GatherMaterial_Name('Willow Stake');
Sleep(12000);
FlyUp(390);
Sleep(5000);
WalkTo(420,398);
FlyUp(355);
Sleep(5000);
GatherMaterial_Name('Manganese Iron Ore');
Sleep(12000);
FlyUp(390);
Sleep(5000);
WalkTo(420,408);
FlyUp(350);
Sleep(5000);
GatherMaterial_Name('Rubstone Rock');
Sleep(12000);
FlyUp(400);
Sleep(5000);
WalkTo(425,418);
FlyUp(350);
Sleep(5000);
GatherMaterial_Name('Manganese Iron Ore');
Sleep(12000);
FlyUp(400);
Sleep(5000);
WalkTo(449,435);
FlyUp(350);
Sleep(5000);
GatherMaterial_Name('Willow Stake');
Sleep(12000);
WalkTo(449,435);
WalkTo(445,432);
FlyUp(420);
Sleep(5000);
WalkTo(455,421);
WalkTo(481,425);
FlyUp(370);
Sleep(5000);
GatherMaterial_Name('Manganese Iron Ore');
Sleep(12000);
FlyUp(390);
Sleep(5000);
WalkTo(493,415);
FlyUp(360);
Sleep(5000);
GatherMaterial_Name('Willow Stake');
Sleep(12000);
FlyUp(370);
Sleep(5000);
WalkTo(495,408);
FlyUp(240);
Sleep(15000);
GatherMaterial_Name('Manganese Iron Ore');
Sleep(12000);
FlyUp(250);
Sleep(5000);
WalkTo(493,429);
GatherMaterial_Name('Fine Coal Stack');
Sleep(12000);
FlyUp(300);
Sleep(5000);
WalkTo(494,442);
WalkTo(481,448);
WalkTo(461,455);
FlyUp(200);
Sleep(5000);
GatherMaterial_Name('Rubstone Rock');
Sleep(12000);
FlyUp(240);
Sleep(5000);
WalkTo(439,443);
WalkTo(439,437);
GatherMaterial_Name('Fine Coal Stack');
Sleep(12000);
FlyUp(260);
Sleep(5000);
WalkTo(416,442);
FlyUp(200);
Sleep(5000);
GatherMaterial_Name('Rubstone Rock');
Sleep(12000);
FlyUp(250);
Sleep(5000);
WalkTo(404,434);
FlyUp(230);
Sleep(5000);
GatherMaterial_Name('Willow Stake');
Sleep(12000);
FlyUp(280);
Sleep(5000);
WalkTo(405,434);
WalkTo(396,430);
WalkTo(403,416);
End;
End.
procedure Farm(Name : String);
GatherMaterial_Name(Name : String); //Same as Farm(), just for backwards compatibility...
Procedure UseItem(Name :String); //careful here, depends on what language you chose on start!
Procedure SendPacket(sPacket : String);
Procedure walkto(X: single; Y: single;Timeout : Boolean); //Timeout defines if bot shall wait with execution until you have arrived at X/Y
Procedure Rest;
Procedure Roll;
Procedure Logout;
Procedure cancelaction;
Function GetClosestMobByName(Name : string) : Cardinal; //Will return the ID of the nearest mob with Name N, can be used in combination with Select().
Procedure Cancelrest;
Procedure Unselect;
Procedure ResToTown;
Procedure FlyZ(Z: single); //Fly up
Procedure Sellitem(SN, Invindex, Amount: Cardinal);
Procedure Select(ID: Cardinal); //Selects an ID (Player, monster, NPC)
Procedure Getquest(ID: Cardinal);
Procedure Returnquest(ID, options: Cardinal);
Procedure Callpet(Index: Cardinal);
Procedure Petattack(targetID: cardinal);
Procedure PetStop;
Procedure Petfollow;
Procedure Petmode(mode: Cardinal);
Procedure Repairall;
Procedure OpenNPC(ID: Cardinal);
Procedure Normalattack;
Procedure Sleep(ms : Cardinal);
procedure Print(const s: string);
Procedure SendPacket(packet : string); //Will send packet to server. use with care. Example : SendPacket('0F0012'); will drop your tome. Can NOT be used to drop bound items, except charms.
//*****NEW IN RC 8.1 ******
Procedure UseItemID(ID : Cardinal); //Use Item in bag by ID.
Function getItemIDFromFirstSlot : Cardinal; //Need to find the ID of an item in your bag? Put the item in first slot and run this command like this : Print(IntToStr(getItemIDFromFirstSlot));
Function GettargetHPMax : Cardinal;
Function GettargetHP : Cardinal;
Function GettargetType : Cardinal;
//Target Coords
Function GettargetX : Single;
Function GettargetY : Single;
Function GettargetZ : Single;
//Char Coords
Function GetX : Single;
Function GetY : Single;
Function GetZ : Single;
Function IntToStr(int : Integer) : string;
Function FloatToStr(Float : Single) : String;
WalkTo(X,Y,true); //Waits until at X,Y WalkTo(X,Y,false); //Continues script without waiting