I'm fairly new to this and after reading through a few tutorials, I spliced together the following script:
Program AttemptOne;
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
//LOGIN INFO STUFF
Procedure P07_DeclarePlayer;
Begin
P07_PlayerName:='';
P07_PlayerPass:='';
End;
procedure ChopTree;
var x, y: integer;
begin
if FindObj(x, y, 'hop', 2836316, 35) then
begin
Mouse(x, y, 2, 2, false);
ChooseOption('hop');
end;
end;
Begin
P07_DeclarePlayer;
SetupP07Include;
ActivateClient;
Wait(2000);
If (Not P07_LoggedIn) Then
P07_LogInPlayer;
P07_MakeCameraAngleHigh;
P07_MakeCompassNorth;
ChopTree;
Writeln(P07_GetUpText);
If P07_BankScreen Then
WriteLn('Bank is Open');
If P07_InvFull Then
WriteLn('Inventory is Full');
End.
When I run it, it logs in successfully and then the mouse just moves around randomly. I know for a fact that I selected the correct color with the color picker but the script still seems to be having trouble finding the object.
Any ideas?
Any help will be greatly appreciated![]()


Reply With Quote