OSI accreditation reformation.

[Wanted]

A few revisions have been made in compliance with some requests, not necessarily by the authors of these credits.

 

Here are the changes

 

https://github.com/OSI1/OSI1/commit/d3dba06041eff6e8e07f4d95bbdfb8eb1fc86930 (95%)

https://github.com/OSI1/OSI1/commit/4eefbee185c98bab54d1ebb23c83d2fd4d593ca8 (5%)

 

For those who it may concern:

 

Wizzup

Naike

Brak

Flyboy

Nielsie95

Sumilion

Nava2

Narcle

 

If you have something you want, this is the time to ask for it.

 

You are welcome to utilize this thread to discuss this in a civil manner. Anything else will be deleted from this thread unless its useful, polite, and ontopic. Otherwise post about it somewhere else or shoot me a PM.

 

This is not to censor you, this is meant to be a productive thread and it can only be if the guidelines are followed due to the complex nature of the situation. Feel free to try another thread or whatever you feel is appropriate.

Edited November 27, 2011 by Wanted

[nielsie95]

Definitely a step in the right direction!

[Wanted]

Definitely a step in the right direction!

 

What are your thoughts on ACA? Do you want me to keep distributing it with OSI or do you want it removed? I'll be willing to follow your wishes on that.

 

You are welcome to give me input on this code in OSI as well, this is the only time you or Nava2 appear in OSI.

 

SRL's version

 

{*******************************************************************************
function MakeCompass(Direction: Variant): Boolean;
By: Nielsie95 & Nava2
Description: Aligns RS to specified direction
direction: Enter a compass angle ('n', 's', 'e', 'w') or degree (23.3, 25, 205.2)
          and it will move the compass to that angle. Also accepts 'random',
          and 'rand' to make the compass a random direction.
*******************************************************************************}
function MakeCompass(Direction: Variant): Boolean;
var
 StartAngle, Angle, DirectionDeg, i: Extended;
 Left: Boolean;
 Mark: Integer;
begin
 Result := False;
 StartAngle := (rs_GetCompassAngleDegrees);
 if (StartAngle < 0) or (not LoggedIn) then Exit;
 case VarType(Direction) of
   varInteger, varDouble: DirectionDeg := FixD(Direction + 0.0);
   varString: begin
          i := StrToFloatDef(Direction,-1337);
          if i = -1337 then
	   begin
            case LowerCase(Direction) of
              'n': DirectionDeg := 0;
              'w': DirectionDeg := 270;
              's': DirectionDeg := 180;
              'e': DirectionDeg := 90;
              'random', 'rand': DirectionDeg := RandomRange(0, 360);
            end;
          end else
            DirectionDeg := FixD(i);
        end;
 end;
 i := 0.0;
 if (MinE(Abs(StartAngle - DirectionDeg), MinE(Abs(StartAngle - (DirectionDeg + 360)), Abs((StartAngle + 360) - DirectionDeg)))) <= 8.0 then
 begin
   Result := True;
   Exit;
 end;
 Left := (Round((360 - StartAngle) + DirectionDeg) mod 360 <= Round((StartAngle + 360) - DirectionDeg) mod 360);
 KeyDown((Integer(not Left) * 2) + 37);
 Wait(10);
 MarkTime(Mark);
 repeat
   Wait(1);
   Angle:= rs_GetCompassAngleDegrees;
   if ((TimeFromMark(Mark) > 6000)  and (i < 1.0)) or
      ((TimeFromMark(Mark) > 10000) and (i < 2.0)) or
      ((TimeFromMark(Mark) > 14000) and (i < 3.0)) then
   begin
     i := i + 1.0;
   end;
 until ((MinE(Abs(Angle - DirectionDeg), MinE(Abs(Angle - (DirectionDeg + 360)), Abs((Angle + 360) - DirectionDeg)))) <= (7.0 + i))
   or (TimeFromMark(Mark) > 14000)
   or (Angle < 0);
 if Left then
   KeyUp(VK_Left)
 else
   KeyUp(VK_Right);
 Wait(10);
 Result := ((MinE(Abs(Angle - DirectionDeg), MinE(Abs(Angle - (DirectionDeg + 360)), Abs((Angle + 360) - DirectionDeg)))) <= (7.0 + i));
end;

 

OSI version

 

{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
function MakeCompass(Angle: Extended): Boolean;
Contributors: Wanted, Nielsie95, Nava2.
Description: Rotates the compass using the arrow keys to the desired angle.
Date Created: November 4th, 2011. By Wanted. RS2 Build 675.
Last Modification: November 21st, 2011. By Wanted. RS2 Build 681.
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

function MakeCompass(Angle: Extended): Boolean;
var
 InitialAngle, DesiredAngle, CurrentAngle: Extended;
 T: LongInt;
 Left: Boolean;
begin
 Result := False;
 InitialAngle := GetCompassAngleDegrees;
 if (InitialAngle < 0) then
   Exit;
 DesiredAngle := FixD(Angle);
 if ((MinE(Abs(InitialAngle - DesiredAngle), MinE(Abs(InitialAngle - (DesiredAngle + 360.0)), Abs((InitialAngle + 360.0) - DesiredAngle)))) <= 7.0) then
 begin
   Result := True;
   Exit;
 end;
 Left := (Round((360 - InitialAngle) + DesiredAngle) mod 360 <= Round((InitialAngle + 360) - DesiredAngle) mod 360);
 KeyDown((Integer(not Left) * 2) + 37);
 T := GetSystemTime + RR(12000, 14000);
 repeat
   Wait(1);
   CurrentAngle := GetCompassAngleDegrees;
   Result := (MinE(Abs(CurrentAngle - DesiredAngle), MinE(Abs(CurrentAngle - (DesiredAngle + 360)), Abs((CurrentAngle + 360) - DesiredAngle))) <= 7.0);
   if (Result) then
     Break;
 until (GetSystemTime > T);
 KeyUp((Integer(not Left) * 2) + 37);
end;

 

---------- Post added at 03:52 PM ---------- Previous post was at 03:11 PM ----------

 

There have been more revisions here https://github.com/OSI1/OSI1/commit/4eefbee185c98bab54d1ebb23c83d2fd4d593ca8

Edited November 27, 2011 by Wanted