unit Run;

interface

implementation
var Decl: byte;

const
    DeffaultMoveSpeed = 0.30;   //> is faster < is slow
    MouseMovementAccuracy = 0.001;  // def 0.001
    MovementOffsetSpeedAdd = 0.0073; //0.0004 deffault

    CursorMaxSearch     = 125;

    DeffaultCheckPointRange = 60;
    MinimalCheckPointRange = 45;

type
    TCheckPoints = record
            Check: boolean;
            CheckPointsId:integer;
            Pos: array[1..2] of single;
            Range: single;
            LastPoss: single;
            TimeToActive: array[1..7] of integer;
            PlayerPos: array[1..2] of single;
            EditMode: array[1..32] of boolean;
end;

var
    MapCheckPoints: TStringList;
    CheckPoint: TCheckPoints;
    SpeedMovementText: single;

function GetPiece2(text,pos:string;num:integer):string;
var i,findpos,pos1:integer;
begin
    findpos:=0;
    Result:='';
    for i := 1 to length(text) do begin
        if text[i]=pos then begin
            if num=0 then begin
                Result:=Copy(text,1,i-1);
                exit;
            end else
            begin
                findpos:=findpos+1;
                if findpos=num then pos1:=i+1;
                if findpos=num+1 then begin
                    Result:=Copy(text,pos1,i-pos1);
                    exit;
                end;
            end;
        end else
        begin
            if i=length(text) then begin
                Result:=Copy(text,pos1,length(text));
                exit;
            end;
        end;
    end;
end;

procedure SaveCheckPoint();
begin
    if (CheckPoint.Check) then begin
        if (CheckPoint.CheckPointsID>MapCheckPoints.Count) then begin
            MapCheckPoints.Append('X'+floattostr(CheckPoint.Pos[1])+'Y'+floattostr(CheckPoint.Pos[2])+'R'+floattostr(CheckPoint.Range));
            MapCheckPoints.SaveToFile(Script.Dir+'data/mapsdata/'+Game.CurrentMap);
            CheckPoint.Check:=false;
        end else
        begin
            MapCheckPoints.Insert(CheckPoint.CheckPointsID,'X'+floattostr(CheckPoint.Pos[1])+'Y'+floattostr(CheckPoint.Pos[2])+'R'+floattostr(CheckPoint.Range));
            MapCheckPoints.Delete(CheckPoint.CheckPointsID+1);
            MapCheckPoints.SaveToFile(Script.Dir+'data/mapsdata/'+Game.CurrentMap);
            CheckPoint.Check:=false;
        end;
    end;
end;

function FindCheckPoint(ID: byte; MaxDistance: integer; UsingRaycast: boolean): integer;
var i: integer; TempX, TempY, X, Y, X2, Y2, CursorMaxDist, NearestDistCursor, MaxDist, Dist: single;
begin
    X:=Players[ID].X;   Y:=Players[ID].Y;
    MaxDist:=MaxDistance*MaxDistance;   CursorMaxDist:=CursorMaxSearch*CursorMaxSearch;
    Result:=-1;
    if (MapCheckPoints.Count=0) then exit;
    for i := 0 to MapCheckPoints.Count-1 do begin
        TempX:=strtofloat(GetPiece2(GetPiece2(MapCheckPoints[i],'X',1),'Y',0));
        TempY:=strtofloat(GetPiece2(GetPiece2(MapCheckPoints[i],'Y',1),'R',0));
        X2:=TempX;  Y2:=TempY;
        if (UsingRayCast) then if Map.RayCast(X,Y-7,X2,Y2-7,false, false, true, true, 2) then continue;

        X2:=X2-Players[ID].MouseAimX;   Y2:=Y2-Players[ID].MouseAimY;   NearestDistCursor:=X2*X2+Y2*Y2;
        X2:=TempX;  Y2:=TempY;
        X2:=X2-X;   Y2:=Y2-Y;   Dist:=X2*X2+Y2*Y2;

        if (NearestDistCursor<CursorMaxDist) and (Dist<MaxDist) then begin
            Result:=i;
            CursorMaxDist:=NearestDistCursor;
        end;
    end;
end;

function Commands(Player: TActivePlayer; Text: string): Boolean;
var selectid,b:integer; TempX,TempY,TempRange:single;
begin
    if (Player.IsAdmin) then begin
        if (Text='/editmodehelp') then begin
            Player.WriteConsole('Movement keys :        Default        : Description',$FFBB);
            Player.WriteConsole('Movement key  :        A,W,S,D        : Move Checkpoint',$FFBB);
            Player.WriteConsole('Jet key       : Right Mouse & Move <> : Press and move left or right to set',$FFBB);
            Player.WriteConsole('------------- : --------------------- : movement speed /setcheckpointspeed',$FFBB);
            Player.WriteConsole('Reload ket    :           R           : Press to save all settings checkpoint /savecheckpoint',$FFBB);
            Player.WriteConsole('Shooting key  : Left M. on checkpoint : Press to start edit checkpoint /selectcheckpoint',$FFBB);
            Player.WriteConsole('------------- : no editing checkpoint : -----------',$FFBB);
            Player.WriteConsole('Throw key     : F checkpoing is edit  : Cancel edit /canceleditcheckpoint',$FFBB);
            Player.WriteConsole('Throw key     : F checkpoint non edit : Press to delete checkpoint edit /deletecheckpoint',$FFBB);
            Player.WriteConsole('------------- :  mouse on checkpoint  : -----------',$FFBB);
            Player.WriteConsole('Change Weap   :          q            : Press to start create checkpoint',$FFBB);
            Player.WriteConsole('Shooting key  : If editing checkpoint : Press to set range',$FFBB);
            Player.WriteConsole('------------- :        Left M.        : -----------',$FFBB);
        end;
        if (Text='/canceleditcheckpoint') then begin
            CheckPoint.Check:=false;
            Player.WriteConsole('Interrupt, editing or creating checkpoint.',$FFBB);
        end;
        if (Text='/createcheckpoint') then begin
            if (CheckPoint.Check=false) then begin
                CheckPoint.Check:=true;
                CheckPoint.CheckPointsID:=MapCheckPoints.Count+1;
                CheckPoint.Range:=DeffaultCheckPointRange;
                CheckPoint.Pos[1]:=Player.X; CheckPoint.PlayerPos[1]:=Player.X;
                CheckPoint.Pos[2]:=Player.Y; CheckPoint.PlayerPos[2]:=Player.Y;
                Player.WriteConsole('You start create checkpoint: '+inttostr(CheckPoint.CheckPointsID),$FFBB);
                Player.WriteConsole('Use move keys to move checkpoint.',$FFBB);
                Player.WriteConsole('Use /setcheckpointspeed <num:1,2,3 or 1.123> to change speed move checkpoint.',$FFBB);
                Player.WriteConsole('Use /checkpointrange <num:1,2,3 or 1.123> to change range checkpoint.',$FFBB);
                Player.WriteConsole('Use /savecheckpoint to accept and save checkpoint.',$FFBB);
                Player.WriteConsole('Use /selectcheckpoint <num> to edit checkpoint.',$FFBB);
                Player.WriteConsole('Use /deletecheckpoint <num> to delete checkpoint.',$FFBB);
                Player.WriteConsole('Use /editmode to ON useful checkpoint editor.',$FFBB);
            end else CheckPoint.Check:=false;
        end;
        if (Text='/editmode') then begin
            if (CheckPoint.EditMode[Player.ID]=false) then begin
                CheckPoint.EditMode[Player.ID]:=true;
                Player.WriteConsole('Edit mode is on!',$FFBB);
                Player.WriteConsole('Write /editmodehelp to see help how use.',$FFBB);
            end else
            begin
                CheckPoint.EditMode[Player.ID]:=false;
                Player.WriteConsole('Edit mode is off!',$FFBB);
            end;
        end;
        if (Text='/savecheckpoint') then begin
            SaveCheckPoint();
            Player.WriteConsole('Save all settings checkpoint: '+inttostr(CheckPoint.CheckPointsID+1),$FFBB);
        end;
        if (Copy(Text,1,17)='/selectcheckpoint') then begin
            selectid:=-1;
            try
                delete(Text,1,17);
                selectid:=strtoint(text)-1;
                if (selectid>-1) then begin
                    if (selectid<MapCheckPoints.Count) then begin
                        CheckPoint.Check:=true;
                        CheckPoint.CheckPointsID:=selectid;
                        TempX:=strtofloat(GetPiece2(GetPiece2(MapCheckPoints[CheckPoint.CheckPointsID],'X',1),'Y',0));
                        TempY:=strtofloat(GetPiece2(GetPiece2(MapCheckPoints[CheckPoint.CheckPointsID],'Y',1),'R',0));
                        TempRange:=strtofloat(GetPiece2(MapCheckPoints[CheckPoint.CheckPointsID],'R',1));
                        CheckPoint.Pos[1]:=TempX; CheckPoint.PlayerPos[1]:=TempX;
                        CheckPoint.Pos[2]:=TempY; CheckPoint.PlayerPos[2]:=TempY;
                        CheckPoint.Range:=TempRange;
                        Player.WriteConsole('Select checkpoint:'+text,$FFBB);
                    end else Player.WriteConsole('Checkpoint id is too high. The highest id: '+inttostr(MapCheckPoints.Count),$FFBB);
                end else Player.WriteConsole('ID must be greater than 0.',$FFBB);
            except
                Player.WriteConsole('An error occurred, please enter a valid number of checkpoint.',$FFBB);
            end;
        end;
        if (Copy(Text,1,17)='/deletecheckpoint') then begin
            if not (CheckPoint.Check) then begin
                selectid:=-1;
                try
                    delete(Text,1,17);
                    selectid:=strtoint(text)-1;
                    if (selectid>-1) then begin
                        if (selectid<MapCheckPoints.Count) then begin
                            MapCheckPoints.Delete(selectid);
                            MapCheckPoints.SaveToFile(Script.Dir+'data/mapsdata/'+Game.CurrentMap);
                            for b := 0 to MapCheckPoints.Count+1 do Players.WorldText(b+1,'',70,$33CC00,0.0001,0,0);
                            Player.WriteConsole('Remove checkpoint:'+text,$FFBB);
                        end else Player.WriteConsole('Checkpoint id is too high. The highest id: '+inttostr(MapCheckPoints.Count),$FFBB);
                    end else Player.WriteConsole('ID must be greater than 0.',$FFBB);
                except
                    Player.WriteConsole('An error occurred, please enter a valid number of checkpoint.',$FFBB);
                end;
            end else Player.WriteConsole('You can not remove a checkpoint when creating or editing other checkpoint.',$FFBB);
        end;
        if (Copy(Text,1,16)='/checkpointrange') then begin
            if (CheckPoint.Check) then begin
                try
                    delete(Text,1,16);
                    TempRange:=strtofloat(text);
                    if (TempRange<MinimalCheckPointRange) then begin
                        TempRange:=MinimalCheckPointRange;
                        Player.WriteConsole('Value is higher than the minimum, I set to minimal: '+formatfloat('0.0000',MinimalCheckPointRange),$FFBB);
                    end else Player.WriteConsole('Checkpoint range set to: '+formatfloat('0.0000',TempRange),$FFBB);
                except
                    Player.WriteConsole('An error occurred, please enter a valid number (can be 123 etc or 1.1234). I set to default value: '+formatfloat('0.0000',DeffaultCheckPointRange),$FFBB);
                    TempRange:=DeffaultCheckPointRange;
                end;
                CheckPoint.Range:=TempRange;
            end;
        end;
        if (Copy(Text,1,19)='/setcheckpointspeed') then begin
            try
                delete(Text,1,19);
                TempRange:=strtofloat(text);
                if (TempRange<0.01) then begin
                    TempRange:=0.01;
                    Player.WriteConsole('Value is higher than the minimum, I set to minimal: 0.01',$FFBB);
                end else
                begin
                    Player.WriteConsole('Last speed: '+formatfloat('0.0000',SpeedMovementText)+', default: '+formatfloat('0.0000',DeffaultMoveSpeed),$FFBB);
                    Player.WriteConsole('Checkpoint movement speed set to: '+formatfloat('0.0000',TempRange),$FFBB);
                end;
            except
                Player.WriteConsole('An error occurred, please enter a valid number (can be 123 etc or 1.1234). I set to default value: '+formatfloat('0.0000',DeffaultMoveSpeed),$FFBB);
                TempRange:=DeffaultMoveSpeed;
            end;
            SpeedMovementText:=TempRange;
        end;
    end;
    Result:=False;
end;

procedure ChangeAfter(Next: string);
begin
    if (File.Exists(Script.Dir+'data/mapsdata/'+next)) then MapCheckPoints := File.CreateStringListFromFile(Script.Dir+'data/mapsdata/'+next) else MapCheckPoints := File.CreateStringList();
end;

procedure AppOnIdleSC3(Ticks: integer);
var i,b:integer; TempX,TempY,TempAcc:single; kd:double; NS, NW: TNewWeapon;
begin
    for i := 1 to 32 do begin
        if (Players[i].Active) and (Players[i].IsAdmin) and (CheckPoint.Check) then begin
            //--- Move Text ---\\
            if (Players[i].KeyUp) then CheckPoint.Pos[2]:=CheckPoint.Pos[2]-SpeedMovementText;
            if (Players[i].KeyCrouch) then CheckPoint.Pos[2]:=CheckPoint.Pos[2]+SpeedMovementText;
            if (Players[i].KeyLeft) then CheckPoint.Pos[1]:=CheckPoint.Pos[1]-SpeedMovementText;
            if (Players[i].KeyRight) then CheckPoint.Pos[1]:=CheckPoint.Pos[1]+SpeedMovementText;
            //--- Off Move Player ---\\
            Players[i].Move(CheckPoint.PlayerPos[1],CheckPoint.PlayerPos[2]);
            Players[i].SetVelocity(0,0);
            //--- Display Text ---\\
            Players.WorldText(MapCheckPoints.Count+11,'[-]',55,$FF00FF ,0.025,CheckPoint.Pos[1]-3.8,CheckPoint.Pos[2]);
            Players.WorldText(MapCheckPoints.Count+2,'Pos X: '+FormatFloat('0.0000',CheckPoint.Pos[1])+', Pos Y: '+FormatFloat('0.0000',CheckPoint.Pos[2])+', Range: '+FormatFloat('0.0000',CheckPoint.Range),70,$FF9999,0.025,CheckPoint.Pos[1]-71.5,CheckPoint.Pos[2]-3.1);
            if (CheckPoint.CheckPointsID>MapCheckPoints.Count) then Players.WorldText(MapCheckPoints.Count+3,'Checkpoint '+inttostr(CheckPoint.CheckPointsID)+'!',70,$33CC00,0.055,CheckPoint.Pos[1]-43.5,CheckPoint.Pos[2]) else Players.WorldText(MapCheckPoints.Count+3,'Checkpoint '+inttostr(CheckPoint.CheckPointsID+1)+'!',70,$33CC00,0.055,CheckPoint.Pos[1]-43.5,CheckPoint.Pos[2])
        end;
        //--- Edit Mode ---\\
        if (Players[i].Active) and (Players[i].IsAdmin) then begin
            if (CheckPoint.EditMode[i]) then begin
                if (CheckPoint.Check=false) and (CheckPoint.TimeToActive[3]>0) then begin
                    NS:=TNewWeapon.Create();    NS.WType:=12;   NS.Ammo:=1;
                    NW:=TNewWeapon.Create();    NW.WType:=255;  NW.Ammo:=1;
                    Players[i].ForceWeapon(NS,NW);
                    NS.Free(); NW.Free();
                end else
                begin
                    NS:=TNewWeapon.Create();    NS.WType:=255;  NS.Ammo:=1;
                    NW:=TNewWeapon.Create();    NW.WType:=255;  NW.Ammo:=1;
                    Players[i].ForceWeapon(NS,NW);
                    NS.Free(); NW.Free();
                end;
                //--- Mouse Move Speed Add ---\\
                if (Players[i].KeyJetpack) then begin
                    if (CheckPoint.TimeToActive[1]>=10) then begin
                        if CheckPoint.TimeToActive[1]=10 then begin
                            CheckPoint.LastPoss:=single(Players[i].MouseAimX);
                            CheckPoint.TimeToActive[1]:=CheckPoint.TimeToActive[1]+1;
                        end;
                        TempAcc:=CheckPoint.LastPoss-single(Players[i].MouseAimX);
                        if TempAcc>MouseMovementAccuracy then SpeedMovementText:=SpeedMovementText-MovementOffsetSpeedAdd else if TempAcc<-MouseMovementAccuracy then SpeedMovementText:=SpeedMovementText+MovementOffsetSpeedAdd;
                        if (SpeedMovementText<0.01) then SpeedMovementText:=0.01;
                        CheckPoint.LastPoss:=single(Players[i].MouseAimX);
                        Players.WorldText(MapCheckPoints.Count+4,'SpeedMove: '+FormatFloat('0.0000',SpeedMovementText),70,$33CC00,0.035,Players[i].MouseAimX-38,Players[i].MouseAimY-12.1);
                    end else CheckPoint.TimeToActive[1]:=CheckPoint.TimeToActive[1]+1;
                end else CheckPoint.TimeToActive[1]:=0;
                //--- Key Save Check Point ---\\
                if (Players[i].KeyReload) and (CheckPoint.Check) then begin
                    if (CheckPoint.TimeToActive[2]>=18) then begin
                        Players.WorldText(MapCheckPoints.Count+5,'Save Complete :)',70,$CC3300,0.035,CheckPoint.Pos[1]-32.4,CheckPoint.Pos[2]-8.8);
                        SaveCheckPoint();
                    end else
                    begin
                        //-- Display Save Info --\\
                        kd := (CheckPoint.TimeToActive[2]/18.0)*100;
                        Players.WorldText(MapCheckPoints.Count+5,'Save '+formatfloat('0.00',kd)+'% :)',70,$CC3300,0.035,CheckPoint.Pos[1]-28,CheckPoint.Pos[2]-8.8);
                        CheckPoint.TimeToActive[2]:=CheckPoint.TimeToActive[2]+1;
                    end;
                end else CheckPoint.TimeToActive[2]:=0;
                //--- Key Get Edit ---\\
                if (Players[i].KeyShoot) and (CheckPoint.Check=false) then begin
                    if (CheckPoint.TimeToActive[3]>=45) then begin
                        //-- Start Edit --\\
                        CheckPoint.CheckPointsID:=FindCheckPoint(i,700,false);
                        if (CheckPoint.CheckPointsID>-1) then begin
                            CheckPoint.Check:=true;
                            TempX:=strtofloat(GetPiece2(GetPiece2(MapCheckPoints[CheckPoint.CheckPointsID],'X',1),'Y',0));
                            TempY:=strtofloat(GetPiece2(GetPiece2(MapCheckPoints[CheckPoint.CheckPointsID],'Y',1),'R',0));
                            CheckPoint.Pos[1]:=TempX; CheckPoint.PlayerPos[1]:=TempX;
                            CheckPoint.Pos[2]:=TempY; CheckPoint.PlayerPos[2]:=TempY;
                            Players.WorldText(MapCheckPoints.Count+6,'Start Editing :)',70,$CC3300,0.035,CheckPoint.Pos[1]-27.5,CheckPoint.Pos[2]-8.8);
                        end else if (CheckPoint.CheckPointsID=-1) then CheckPoint.TimeToActive[3]:=0;
                    end else
                    begin
                        //-- Search Check Point --\\
                        CheckPoint.CheckPointsID:=FindCheckPoint(i,700,false);
                        if (CheckPoint.CheckPointsID>-1) then begin
                            TempX:=strtofloat(GetPiece2(GetPiece2(MapCheckPoints[CheckPoint.CheckPointsID],'X',1),'Y',0));
                            TempY:=strtofloat(GetPiece2(GetPiece2(MapCheckPoints[CheckPoint.CheckPointsID],'Y',1),'R',0));
                            //-- Display Start Edit Info --\\
                            kd := (CheckPoint.TimeToActive[3]/45.0)*100;
                            Players.WorldText(MapCheckPoints.Count+6,'Begin Edit '+formatfloat('0.00',kd)+'% :)',70,$CC3300,0.035,TempX-38,TempY-4.2);
                            CheckPoint.TimeToActive[3]:=CheckPoint.TimeToActive[3]+1;
                        end else if (CheckPoint.CheckPointsID=-1) then CheckPoint.TimeToActive[3]:=0;
                    end;
                end else CheckPoint.TimeToActive[3]:=0;
                //--- Key Canceled Edit ---\\
                if (Players[i].KeyThrow) and (CheckPoint.Check) then begin
                    if (CheckPoint.TimeToActive[4]>=18) then begin
                        //-- Canceled Edit --\\
                        Players.WorldText(MapCheckPoints.Count+7,'Canceled Editing!',70,$CC3300,0.035,CheckPoint.Pos[1]-33,CheckPoint.Pos[2]-8.8);
                        CheckPoint.Check:=false;
                    end else
                    begin
                        //-- Display Canceled Edit Info --\\
                        kd := (CheckPoint.TimeToActive[4]/18.0)*100;
                        Players.WorldText(MapCheckPoints.Count+7,'Canceled Editing '+formatfloat('0.00',kd)+'%',70,$CC3300,0.035,CheckPoint.Pos[1]-46.5,CheckPoint.Pos[2]-8.8);
                        CheckPoint.TimeToActive[4]:=CheckPoint.TimeToActive[4]+1;
                    end;
                end else CheckPoint.TimeToActive[4]:=0;
                if (Players[i].KeyChangeWeap) and (CheckPoint.Check=false) then begin
                    if (CheckPoint.TimeToActive[5]>=25) then begin
                        //-- Ket Create Checkpoint --\\
                        CheckPoint.Check:=true;
                        CheckPoint.CheckPointsID:=MapCheckPoints.Count+1;
                        CheckPoint.Pos[1]:=Players[i].X; CheckPoint.PlayerPos[1]:=Players[i].X;
                        CheckPoint.Pos[2]:=Players[i].Y; CheckPoint.PlayerPos[2]:=Players[i].Y;
                        Players.WorldText(MapCheckPoints.Count+8,'Create Create Checkpoint!',70,$CC3300,0.035,CheckPoint.Pos[1]-50.5,CheckPoint.Pos[2]-8.8);
                        CheckPoint.Range:=DeffaultCheckPointRange;
                    end else
                    begin
                        //-- Display Create Checkpoint Info --\\
                        kd := (CheckPoint.TimeToActive[5]/25.0)*100;
                        Players.WorldText(MapCheckPoints.Count+8,'Create Checkpoint '+formatfloat('0.00',kd)+'%',70,$CC3300,0.035,Players[i].X-51,Players[i].Y-8.8);
                        CheckPoint.TimeToActive[5]:=CheckPoint.TimeToActive[5]+1;
                    end;
                end else CheckPoint.TimeToActive[5]:=0;
                //--- Mouse Set Range ---\\
                if (Players[i].KeyShoot) and (CheckPoint.Check) then begin
                    if (CheckPoint.TimeToActive[6]>=22) then begin
                        CheckPoint.Range := Distance(CheckPoint.Pos[1],CheckPoint.Pos[2],single(Players[i].MouseAimX),single(Players[i].MouseAimY));
                        if (CheckPoint.Range<MinimalCheckPointRange) then CheckPoint.Range:=MinimalCheckPointRange;
                        Players.WorldText(MapCheckPoints.Count+9,'Range: '+formatfloat('0.0000',CheckPoint.Range),70,$33CC00,0.035,Players[i].MouseAimX-31.3,Players[i].MouseAimY-12.1);
                    end else CheckPoint.TimeToActive[6]:=CheckPoint.TimeToActive[6]+1;
                end else CheckPoint.TimeToActive[6]:=0;
                //--- Key Delete Checkpoint ---\\
                if (Players[i].KeyThrow) and (CheckPoint.Check=false) then begin
                    if (CheckPoint.TimeToActive[7]>=45) then begin
                        CheckPoint.CheckPointsID:=FindCheckPoint(i,700,false);
                        if (CheckPoint.CheckPointsID>-1) then begin
                            TempX:=strtofloat(GetPiece2(GetPiece2(MapCheckPoints[CheckPoint.CheckPointsID],'X',1),'Y',0));
                            TempY:=strtofloat(GetPiece2(GetPiece2(MapCheckPoints[CheckPoint.CheckPointsID],'Y',1),'R',0));
                            Players.WorldText(MapCheckPoints.Count+10,'Delete Complete :)',70,$CC3300,0.035,TempX-37,TempY-4.2);
                            MapCheckPoints.Delete(CheckPoint.CheckPointsID); CheckPoint.TimeToActive[7]:=0;
                            MapCheckPoints.SaveToFile(Script.Dir+'data/mapsdata/'+Game.CurrentMap);
                            for b := 0 to MapCheckPoints.Count+1 do Players.WorldText(b+1,'',70,$33CC00,0.0001,0,0);
                        end else if (CheckPoint.CheckPointsID=-1) then CheckPoint.TimeToActive[7]:=0;
                    end else
                    begin
                        //-- Display Delete Info --\\-
                        CheckPoint.CheckPointsID:=FindCheckPoint(i,700,false);
                        if (CheckPoint.CheckPointsID>-1) then begin
                            TempX:=strtofloat(GetPiece2(GetPiece2(MapCheckPoints[CheckPoint.CheckPointsID],'X',1),'Y',0));
                            TempY:=strtofloat(GetPiece2(GetPiece2(MapCheckPoints[CheckPoint.CheckPointsID],'Y',1),'R',0));
                            kd := (CheckPoint.TimeToActive[7]/45.0)*100;
                            Players.WorldText(MapCheckPoints.Count+10,'Delete '+formatfloat('0.00',kd)+'% :)',70,$CC3300,0.035,TempX-32.5,TempY-4.2);
                            CheckPoint.TimeToActive[7]:=CheckPoint.TimeToActive[7]+1;
                        end else if (CheckPoint.CheckPointsID=-1) then CheckPoint.TimeToActive[7]:=0;
                    end;
                end else CheckPoint.TimeToActive[7]:=0;
            end;
        end;
    end;
    //--- Display All Checkpoints ---\\
    for i := 0 to MapCheckPoints.Count-1 do begin
        if (CheckPoint.CheckPointsID=i) and (CheckPoint.Check) then continue;
        TempX:=strtofloat(GetPiece2(GetPiece2(MapCheckPoints[i],'X',1),'Y',0));
        TempY:=strtofloat(GetPiece2(GetPiece2(MapCheckPoints[i],'Y',1),'R',0));
        Players.WorldText(i+1,'Checkpoint '+inttostr(i+1)+'!',70,$33CC00,0.055,TempX-43.5,TempY);
    end;
end;

procedure LeaveGame(Player: TActivePlayer; Kicked: Boolean);
begin
    CheckPoint.EditMode[Player.ID]:=false;
    CheckPoint.Check:=false;
end;

initialization
begin
    //---Instal Script ---\\
    for Decl := 1 to 32 do Players[Decl].OnCommand := @Commands;
    Game.TickThreshold := 1;
    Game.OnLeave := @LeaveGame;
    Map.OnAfterMapChange := @ChangeAfter;
    Game.OnClockTick := @AppOnIdleSC3;
    //-- Vars --\\
    SpeedMovementText:=DeffaultMoveSpeed;
    //--- Load Map Checkpoints ---\\
    if (File.Exists(Script.Dir+'data/mapsdata/'+Game.CurrentMap)) then MapCheckPoints := File.CreateStringListFromFile(Script.Dir+'data/mapsdata/'+Game.CurrentMap) else MapCheckPoints := File.CreateStringList();
end;

finalization;
end.