So this is the procedure for getting logs and its:
Code:Procedure GetLogs; var RegLogs, x, y, logx, logy: Integer; begin x:= MSCX; y:= MSCY; LogCount:= (Invcount + 1); If FindObjCustom(x, y, ['ogs', 'ake'], [2312015], 5) then // Finds The Logs on the Floor near You begin GetMousePos(logx, logy); // Gets The Position of the Mouse ClickMouse(logx, logy, 1); //Clicks the Mouse Wait(Random(2000)+2000); LogCount:= (Invcount + 1); // Increase the Count of Logs WriteLn('We Have Obtained ' + IntToStr(LogCount) + ' Logs.'); end; end;
Also:
The script is supposed to repeat until the log count is 4 but it doesn't! HelpCode:begin {$IFDEF SIMBAMAJOR980} SMART_SERVER := 24; SMART_MEMBERS := TRUE; SMART_SIGNED := TRUE; SMART_SUPERDETAIL := FALSE; {$ELSE} SMART_FIXSPEED := TRUE; {$ENDIF} ClearDebug; ActivateClient; SetupSRL; SRL_SixHourFix := True; DeclarePlayers; if not (LoggedIn) then LoginPlayer; wait(1000 + Random(400)); ClickNorth(0); // Set the Compass to North and set the Angle to The Highest Point Repeat GetLogs; Until (LogCount = 4); end.![]()


Reply With Quote