Piguhz
03-04-2013, 08:22 PM
As the title says I would greatly appreciate it if someone makes a zammy wine stealer (that steals the wine with tele grab) Thanks :D
EDIT: Attempted to make my own with copying and pasting others codes (so I own almost none of this) But I am getting
[Error] C:\Simba\Scripts\Stealer.simba(14:1): Semicolon (';') expected at line 13 Compiling failed.
Heres my bot so far
program Stealer;
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
//Author = Piguhz;
var
x, y: integer;
Procedure Getwine;
begin
if P07_TabInventoryTab(7) then
P07_MouseBox(688, 285, 686, 283, mouse_left)
If P07_FindObjCustom(x, y, ['Cast', 'Wine'], [11331, 3422607, 1184277, 2829101, 8882065], 5) Then
begin
Wait(RandomRange(800, 1000));
MMouse(RandomRange(X - 3, X + 3), RandomRange(y - 3, y + 3), 0, 0);
ClickMouse2(mouse_left);
end;
end;
end;
begin
SetupP07Include;
ActivateClient;
Getwine;
end.
Help would be appriciated. :D
EDIT: Attempted to make my own with copying and pasting others codes (so I own almost none of this) But I am getting
[Error] C:\Simba\Scripts\Stealer.simba(14:1): Semicolon (';') expected at line 13 Compiling failed.
Heres my bot so far
program Stealer;
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
//Author = Piguhz;
var
x, y: integer;
Procedure Getwine;
begin
if P07_TabInventoryTab(7) then
P07_MouseBox(688, 285, 686, 283, mouse_left)
If P07_FindObjCustom(x, y, ['Cast', 'Wine'], [11331, 3422607, 1184277, 2829101, 8882065], 5) Then
begin
Wait(RandomRange(800, 1000));
MMouse(RandomRange(X - 3, X + 3), RandomRange(y - 3, y + 3), 0, 0);
ClickMouse2(mouse_left);
end;
end;
end;
begin
SetupP07Include;
ActivateClient;
Getwine;
end.
Help would be appriciated. :D