
Originally Posted by
chief herb
if you could add dragon pick support for p2p or pm how to do so that would be very much appreciated<3
I've sent you a PM, but I'll post it here as well so others can use this fix if they want. First, locate the SetupPlay() procedure in the script:
Simba Code:
procedure SetupPlay;
var
Vex, Kin: array of Integer;
PickDTM, x, y: Integer;
begin
if not LoggedIn then Exit;
Vex := [572, 291, 600, 318];
Kin := [683, 371, 713, 386];
Currently('Setting up player...');
GameTab(tab_EQUIP);
if (ColorWait(2000, 9784898, Vex[0], Vex[1], Vex[2], Vex[3]) and ColorWait(2000, 3162439, Kin[0], Kin[1], Kin[2], Kin[3])) then
Currently('Found vexillum and ring of kinship!')
else
Error('Equip clan vexillum and ring of kinship!');
GameTab(tab_INV);
PickDTM := DTMFromString('mwQAAAHic42RgYHBgYmCwg2JbIHYFYi8g9oGyQfL3gOoeAvELIH4DxHeA+C6UvgHE14BYU16IwUhVlMHbQoHBRlcKKMKEgfmBJDLGBhiJwHAAAMTjDIY=');
Wait(250+Random(500));
if FindDTM(PickDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
Currently('Found pickaxe!')
else
begin
FreeDTM(PickDTM);
Error('Have pickaxe in first slot of inventory!');
end;
FreeDTM(PickDTM);
end;
Select the entire procedure and replace it with this:
Simba Code:
procedure SetupPlay;
var
Vex, Kin: array of Integer;
PickColor, x, y: Integer;
Slot: TBox;
begin
if not LoggedIn then Exit;
PickColor := 123456;
Vex := [572, 291, 600, 318];
Kin := [683, 371, 713, 386];
Currently('Setting up player...');
GameTab(tab_EQUIP);
if (ColorWait(2000, 9784898, Vex[0], Vex[1], Vex[2], Vex[3]) and ColorWait(2000, 3162439, Kin[0], Kin[1], Kin[2], Kin[3])) then
Currently('Found vexillum and ring of kinship!')
else
Error('Equip clan vexillum and ring of kinship!');
GameTab(tab_INV);
{PickDTM := DTMFromString('mwQAAAHic42RgYHBgYmCwg2JbIHYFYi8g9oGyQfL3gOoeAvELIH4DxHeA+C6UvgHE14BYU16IwUhVlMHbQoHBRlcKKMKEgfmBJDLGBhiJwHAAAMTjDIY=');
Wait(250+Random(500));
if FindDTM(PickDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
Currently('Found pickaxe!')
else
begin
FreeDTM(PickDTM);
Error('Have pickaxe in first slot of inventory!');
end;
FreeDTM(PickDTM);}
Slot := InvBox(1);
if ColorWait(2000, PickColor, Slot.x1, Slot.y1, Slot.x2, Slot.y2) then
Currently('Found pickaxe!')
else
Error('Have pickaxe in first slot of inventory!');
end;
Then use the color picker to find a prominent color on the pickaxe:
Progress Report:
Picked colour: 397977 at (724, 403)
(This is just an example color)
Take that color and paste it over the PickColor placeholder at the top of the new SetupPlay() procedure:
Simba Code:
procedure SetupPlay;
var
Vex, Kin: array of Integer;
PickColor, x, y: Integer;
Slot: TBox;
begin
if not LoggedIn then Exit;
PickColor := 123456;
// ^ This is to be changed
// Using the example color, it would look like this afterward:
// PickColor := 397977;
Vex := [572, 291, 600, 318];
Kin := [683, 371, 713, 386];
Currently('Setting up player...');
That should solve your problem