SRL Archive - Test corner

Well Thanks to Masq…. ( Forgot name :P) For that fancy proc

FindSrlCompass Thing :)

I was making one script and Makecompass was not enough good :S


So i modded it to this.. It is little bit laggy but works
( This is Kinda Perfect North)

Function MakeNorth : boolean;
Var
  Fx, Fy, Dx, Dy : Integer;
  ComMark: Integer;
Begin
If(FindSRLCompassAngle >2)then Begin
  MarkTime(ComMark);
  KeyDown(VK_RIGHT);
  Repeat
  Wait(100+Random(100))
    If(findsrlcompassangle < 2)then
    begin
      Result := True;
      break;
    end;
  Until(TimeFromMark(ComMark) > 20000);
  KeyUp(VK_Right);
End;
end;

:P

~Home

Hmmm, first time i tried i was like :eek: THAT'S PRETTY DARN GOOD ! But then i tried again but it failed :( It's not in your procudre, i think, but in the FindSRLCompass. Ususally it says : something went wrong, couldnt find any tics. And then it will just keep spinning and spinning the compass. If you can manage to get it like the first try i did (got it immediately) then your the master XD. Certainly not a bad start ;) Now im off to studying again :)

Thanks you really Much for testing

It is all About Waiting Time :/


( Repeat
Wait(100+Random(….
Until(..

<*cough*> <*cough*FailSafe*cough*> <*cough*>;)

Yes yes :P

I always forget them in every thing then i add them on last hand

i honestly wouldnt use my procedure for this :tongue:

its too inefficient, although your procedure looks like it would work fine

i made one that was a little better using freddy's stuff, called compassradians, or just compass, but i still wouldnt use that

sorry

Ohh well.. I am still enjoying about your great Procedure :)

Thanks for that.

~Home