Troll
2010-12-09 12:37:04
Ok so ive made a scirpt, but when i run it, it moves the mouse tiny bits but constanly off to the right of the sceen in the black bit. Not sure why though?
Function FindChicken:Boolean;
Var X,Y:Integer;
// Me:TMe;
Begin
If Not LoggedIn Then Exit;
// Me := GetMe;
// If Me.InFight Then Exit;
If FindColorSpiralTolerance(x,y,3655910,MSX1,MSY1,MSX2,MSY2,41) Then
Begin
MMouse(x,y+RandomRange(1,4),2,2);
writeln('Moving Mouse');
//If (R_GetUpText = 'Chicken') Then
If IsUpText('ick') Then
Begin
GetMousePos(x,y);
writeln('Getting mouse pos');
If Random(20) = 1 Then
Begin
Mouse(x,y,0,0,True);
writeln('Clicking');
Result := True;
End Else Begin
Mouse(x,y,0,0,False);
//R_ChooseOption('Attack');
ChooseOption('ttac');
writeln('Right clicking');
Result := True;
End;
End Else writeln('Couldnt not find uptext');
End Else writeln('Did not find colour');
End;
begin
ActivateClient;
Wait(500);
FindChicken;
end.