almost
2009-01-10 16:32:03
I'm rapidly coming up with reflection functions, so instead of spamming this area I will just use this page for what ever things I come up with that could possibly be added to the next version of reflection.
R_FindTalkingNPC and R_SolveFrog have been removed because they were added into reflection.
ClickInvID-
Nothing too original, but need for attaching the pick head.
FindPick-
Added in a check for if you can wield your pick or not (My army all has 40+ attack so I didn't consider this at first)
It sets a boolean based on if your Attack level is 40 or higher (Doesn't have to open your stats tab either)
This will work for any type of pickaxe, without setting anything before calling this function.
I've tested it loads of times at weird angles, things covering up the pick head, all types of picks, pick head being far off screen, and nothing stumps it.
There are two places you might have to edit to fit your script.
What to do if your pick is broken and the ID of the ore you are mining.
R_SolvePinball2-
Solves the pinball random
R_FindTalkingNPC and R_SolveFrog have been removed because they were added into reflection.
ClickInvID-
Nothing too original, but need for attaching the pick head.
FindPick-
Added in a check for if you can wield your pick or not (My army all has 40+ attack so I didn't consider this at first)
It sets a boolean based on if your Attack level is 40 or higher (Doesn't have to open your stats tab either)
This will work for any type of pickaxe, without setting anything before calling this function.
I've tested it loads of times at weird angles, things covering up the pick head, all types of picks, pick head being far off screen, and nothing stumps it.
There are two places you might have to edit to fit your script.
What to do if your pick is broken and the ID of the ore you are mining.
function ClickInvID(ID: integer; Left: boolean): boolean;
var
ItemSlots: TIntegerArray;
begin
if not InventoryContains(ID, ItemSlots) then
begin
Result:= false;
Exit;
end;
MouseItem(ItemSlots[0], Left);
Result:= true;
end;
function FindPick: boolean;
var
Items: array of TGroundItem;
PickHeadTile: TPoint;
c, c2, x, y: integer;
WieldPick: boolean;
CharStats: TMe;
begin
for c:= 1 to 5 do
begin
if not FindGroundItems(Items, [480, 481, 482, 483, 484, 485, 486, 487, 488, 489, 490, 491], 50) then
begin
{your pick is broken}
{Put whatever your script needs to do for broken picks here}
end;
WieldPick:= (CharStats.Levels[0] >= 40);
if WieldPick then
for c:= 1 to 10 do
begin
if (InvCount > 26) then
begin
ClickInvID(454 {this id is for coal, change if you are mining another ore}, false);
Wait(800 + Random(500));
ChooseOption('rop');
Wait(800 + Random(500));
end;
end else
for c:= 1 to 10 do
begin
if (InvCount > 27) then
begin
ClickInvID(454 {this id is for coal, change if you are mining another ore}, false);
Wait(800 + Random(500));
ChooseOption('rop');
Wait(800 + Random(500));
end;
end;
if not (TileOnMS(Items[0].Tile, 0)) then
TileWalk(Items[0].Tile, 5, 0, 1, 1);
PickHeadTile:= TileToMS(Items[0].Tile, 0);
for c2:= 1 to 20 do
begin
MMouse(PickHeadTile.x - 5, PickHeadTile.y - 5, 10, 10);
Wait(500 + Random(500));
if (Pos('ick', RS_GetUpText) > 0) then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, true);
AlmFlag(0);
Result:= true;
Break;
end;
end;
if Result then
Break;
end;
Result:= false;
if WieldPick then
begin
GameTab(5);
Mouse(579, 303, 5, 5, true);
Wait(100 + Random(500));
end;
GameTab(4);
Wait(500 + Random(500));
if ClickInvID(489, true) then
begin
Wait(500 + Random(500));
if ClickInvID(467, true) then
begin
Wait(2000 + Random(500));
for c2:= 1265 to 1276 do
if ClickInvID(c2, true) then
begin
WriteLn('Attached pick head!');
Result:= true;
{if your script keeps track of picks fixed
Inc(PicksFixed); }
Exit;
end;
end;
end;
end;R_SolvePinball2-
Solves the pinball random
function R_SolvePinball2: boolean;
var
i, PinballMark: integer;
Posts: array [0..5] of TPoint;
PostMS: TPoint;
PostObj: UID;
begin
if not (R_InPinBall) then
Exit;
Result:= false;
WriteLn('Found pinball random!');
SetRun(true);
if not FindObject(Posts[2], 15004) then
if not FindObject(Posts[2], 15005) then
begin
WriteLn('The reference post could not be found.');
Exit;
end;
Posts[0]:= Point(Posts[2].x - 5, Posts[2].y - 4);
Posts[1]:= Point(Posts[2].x - 3, Posts[2].y - 1);
Posts[3]:= Point(Posts[2].x + 3, Posts[2].y - 1);
Posts[4]:= Point(Posts[2].x + 5, Posts[2].y - 4);
MarkTime(PinballMark);
while ((GetScore < 10) and (TimeFromMark(PinballMark) < 60000)) do
begin
for i:= 0 to 4 do
begin
PostObj:= GetObjectAt(Posts[i].x, Posts[i].y);
if (PostObj.ObjType mod 2 = 0) then
begin
repeat
Wait(500);
until(TileOnMS(Posts[i], 0) or (TimeFromMark(PinballMark) > 30000));
PostMS:= TileToMS(Posts[i], 0);
Mouse(PostMS.x - 2, PostMS.y - Random(25), 4, 0, false);
Wait(800 + Random(500));
if (ChooseOption('ag')) then
begin
R_Flag;
Wait(5000 + Random(3000));
MarkTime(PinballMark);
Break;
end;
end;
end;
end;
R_Flag;
Wait(5000 + Random(3000));
if (GetScore = 10) then
for i:= 1 to 5 do
begin
Wait(1000 + Random(500));
R_Flag;
KeyDown(Vk_Down);
Wait(2000 + Random(1000));
KeyUp(Vk_Down);
Wait(800 + Random(400));
MakeCompass('s');
MakeCompass('s');
Wait(200 + Random(400));
PostMS:= TileToMS(Point(Posts[2].x, Posts[2].y - 12), 0);
Mouse(PostMS.x - 2, PostMS.y - Random(15), 4, 0, false);
Wait(800 + Random(400));
if (ChooseOption('xit')) then
begin
Result:= True;
R_Flag;
Wait(10000 + Random(5000));
Inc(RSolved[RPinball]);
WriteLn('Solved Pinball random!');
Exit;
end;
end;
Inc(RFailed[RPinball]);
end;