Tomazino
2012-10-30 05:58:52
Guys, since the al-kharid was updated, maybe someone could make an updated script? Gp/hour depends on prices at ge, but it could be up to 700k/h. It don't need any skills or quests, it's good for money making.
2012-10-30 05:58:52
2012-10-30 06:28:21
2012-11-03 11:00:20
2012-11-03 11:11:46
2012-11-03 21:04:28
2012-11-04 08:56:01
2012-11-04 09:20:32
From: Tomazino
Roflme, thanks for information, but i am not so good at simba and programing, i only know the main things, maybe you could try to change these coordinates?
2012-11-04 09:24:38
2012-11-04 09:47:05
From: Tomazino
Roflme, thanks for information, but i am not so good at simba and programing, i only know the main things, maybe you could try to change these coordinates?
function FindOption: Boolean;
begin
Case WhichHide of
'soft':
Result := FindText(x, y, 'Sof', StatChars, MCX1, MCY1, MCX2, MCY2);
'hard':
Result := FindText(x, y, '3', StatChars, MCX1, MCY1, MCX2, MCY2);
end;
if Result then
Writeln('Found tan option');
end; function HidesTanned: Boolean;
begin
Case WhichHide of
'soft':
Result := FindDTM(Leather, x, y, MIX1, MIY1, MIX2, MIY2);
'hard':
Result := FindDTM(HardLeather, x, y, MIX1, MIY1, MIX2, MIY2);
end;
if Result then
Writeln('Leather in inventory, banking');
end; procedure SetDTMs;
begin
CowHide := DTMFromString('mggAAAHicY2NgYOADYn4g5mWAAGkgloCKw/ggOTao+IqFC4AkEwbmApKsWDAjDgwBAOcvAtQ=');
Leather := DTMFromString('mlwAAAHicY2dgYOABYjEglgRiXiBmZIAAIShfBIg5gVgKiEWBmB0qb2XKASSZsGJWIIkLM+LBUAAAk5cBcA==');
HardLeather := DTMFromString('mlwAAAHicY2dgYOABYjEglgRiXiBmZIAAIShfBIg5gVgKiEWBmB0qr6EqDSSZsGJWIIkLM+LBUAAAjiwBYQ==');
end; procedure TanHides;
begin
repeat
Wait(50+random(5));
until not IsMoving
FindNormalRandoms;
repeat
if FindOption then
Mouse(x, y, 3, 3, mouse_left);
Wait(500+random(100));
if HidesTanned then
begin
Inc(Loads);
Exit;
end;
FindNormalRandoms;
if not FindOption then
begin
if FindText(x, y, 'make', SmallChars, MCX1, MCY1, MCX2, MCY2) then
begin
MMouse(17, 430, 2, 20);
Wait(300+random(10));
end;
if HidesTanned then
begin
Inc(Loads);
Exit;
end;
FindNormalRandoms;
if not FindText(x, y, 'make', SmallChars, MCX1, MCY1, MCX2, MCY2) then
begin
FindNormalRandoms;
FindTanner;
end;
end;
until HidesTanned;
if HidesTanned then
Inc(Loads);
end; if not FindOption then
begin
if FindText(x, y, 'make', SmallChars, MCX1, MCY1, MCX2, MCY2) then
begin
MMouse(17, 430, 2, 20);
Wait(300+random(10));
end; MMouse(17, 430, 2, 20);2012-11-04 11:41:51