Position Saver

[DorkeyDear]

If the command is less than 3 chars, it wont work.

Do you know if MM has a reason for that? (or you, don't know if its client or server-side)

Date Posted: August 31, 2007, 04:10:38 pmUpdate

• Replaced the constants with a settings.ini file
• Added a /loadsettings command
• Script now accepts limitations of player's speed
• Player looses saves when he captures the flag
  
  Date Posted: October 15, 2007, 06:02:55 pmUpdate:
  
• Setting maximum loads to 0 means there is no limit
• Fixed the speed detection being a bit inaccurate
  
  Date Posted: November 01, 2007, 04:17:32 pmUpdate:
  
• Auto loading after respawn is supported (/autoload on/off; server setting in settings.ini sets default state)
• /reset command added to reset loads and saves

[chutem]

With that reset youve taken away the 'Can't save to close to last save point' because there is no longer any save point

[BombSki]

heh, good thinking.
i requested a /reset, because if u save it at some dead way, or a deadly polygon, u dont need to disable autoload to spawn at the actual spawn. its indeed abusable, but i dont know why you would want to disallow saving close to the last save point
an easy fix for this would be /kill on /reset

[DorkeyDear]

Update:
 

• Resetting kills you
• Resetting now has a message :)

[Ippo]

Where to put this script?? I have a dedicated server.
I just wanna know this thing. Answer as soon as possible.

[BombSki]

read the stickies.
http://forums.soldat.pl/index.php?topic=21468.0

[Bonecrusher]

is it possible to turn off this script using command?

[DorkeyDear]

is it possible to turn off this script using command?

Sorry, but no. The most you can disable is autoloading your save point so that people who don't know about the script don't auto get teleported.

[macho]

if some people need save in the middle on the air and whit speed and load in the middle on the air here is the code this position save is unlimited only need settings to load and incluides txt ..

Example:

Remember in a document .ini XD

[Settings]
AutoLoad=true
MaxLoads=0
SaveTime=0
SaveDist=0
FlagDist=0
MaxSpeed=100
Color=$000074E8


And in a document Pas the code XD
enjoy

var
  AutoLoadDefault: boolean;
  MaxLoads,SaveTime: byte;
  Color: longint;
  SaveDist,FlagDist,MaxSpeed: single;
  Save,AutoLoad,AfterRespawn: array[1..32] of boolean;
  Time,Loads: array[1..32] of integer;
  SaveX,SaveY: array[1..32] of single;

procedure AppOnIdle(Ticks: integer);
var
  i: byte;
begin
  for i := 1 to 32 do begin
    if Time > 0 then Time := Time - 1;
    if AfterRespawn then begin
      AfterRespawn := false;
      if Save then MovePlayer(i,SaveX,SaveY);
    end;
  end;
end;

function LoadSettings(File: string): boolean;
begin
  try
    if ReadINI(File,'Settings','AutoLoad','false') = 'true' then AutoLoadDefault := true else AutoLoadDefault := false;
    MaxLoads := StrtoInt(ReadINI(File,'Settings','MaxLoads',' '));
    SaveTime := StrtoInt(ReadINI(File,'Settings','SaveTime',' '));
    SaveDist := StrtoFloat(ReadINI(File,'Settings','SaveDist',' '));
    FlagDist := StrtoFloat(ReadINI(File,'Settings','FlagDist',' '));
    MaxSpeed := StrtoFloat(ReadINI(File,'Settings','MaxSpeed',' '));
    Color := StrtoInt(ReadINI(File,'Settings','Color',' '));
  except
    Result := true;
    Exit;
  end;
end;

procedure ActivateServer();
begin
  if LoadSettings('scripts/' + ScriptName + '/settings.ini') then WriteLn('

• ' + ScriptName + ' -> Error while loading settings') else WriteLn('
• ' + ScriptName + ' -> Settings loaded successfully');

end;

function OnPlayerCommand(ID: Byte; Text: string): boolean;
var
  FlagAX,FlagAY,FlagBX,FlagBY: single;
begin
  Result := false;
  Case GetPiece(LowerCase(Text),' ',0) of
    '/save': begin
      if Copy(Text,7,Length(Text)) <> '' then Exit;
      if (Loads[ID] < MaxLoads) or (MaxLoads = 0) then begin
        if GetPlayerStat(ID,'Alive') = true then begin
          if Time[ID] = 0 then begin
            if (Save[ID] = false) or (Distance(GetPlayerStat(ID,'X'),GetPlayerStat(ID,'Y'),SaveX[ID],SaveY[ID]) >= SaveDist) then begin
              GetFlagsXY(FlagAX,FlagAY,FlagBX,FlagBY);
              if (Distance(GetPlayerStat(ID,'X'),GetPlayerStat(ID,'Y'),FlagAX,FlagAY) >= FlagDist) and (Distance(GetPlayerStat(ID,'X'),GetPlayerStat(ID,'Y'),FlagBX,FlagBY) >= FlagDist) then begin
                if GetPlayerStat(ID,'Alive') = true then begin
                  Time[ID] := SaveTime;
                  WriteConsole(ID,'Your position has been saved.',Color);
                  SaveX[ID] := GetPlayerStat(ID,'X');
                  SaveY[ID] := GetPlayerStat(ID,'Y');
                  Save[ID] := true;
                end else WriteConsole(ID,'You must be standing on the ground to save.',Color);
              end else WriteConsole(ID,'You are too close to at least one of the flags.',Color);
            end else WriteConsole(ID,'You are too close to your previously saved location to save again.',Color);
          end else WriteConsole(ID,'You still have ' + InttoStr(Time[ID]) + ' seconds remaining until you may save again.',Color);
        end else WriteConsole(ID,'You must be alive to save your location.',Color);
      end else WriteConsole(ID,'It is pointless to save when you can not load.',Color);
    end;
    '/load': begin
      if Copy(Text,7,Length(Text)) <> '' then Exit;
      if GetPlayerStat(ID,'Alive') = true then begin
        if (Loads[ID] < MaxLoads) or (MaxLoads = 0) then begin
          if Distance(0,0,GetPlayerStat(ID,'VelX'),GetPlayerStat(ID,'Vely')) <= MaxSpeed then begin
            if GetPlayerStat(ID,'Alive') = true then begin
              if Save[ID] then begin
                Loads[ID] := Loads[ID] + 1;
                MovePlayer(ID,SaveX[ID],SaveY[ID]);
                if AfterRespawn[ID] then AfterRespawn[ID] := false;
                MovePlayer(ID,SaveX[ID],SaveY[ID]);
              end else WriteConsole(ID,'No save data to load.',Color);
            end else WriteConsole(ID,'You must be standing on the ground to load.',Color);
          end else WriteConsole(ID,'You are moving too fast to load.',Color);
        end else WriteConsole(ID,'You have maxed out on number of loads you are allowed to use. (' + InttoStr(MaxLoads) + ')',Color);
      end else WriteConsole(ID,'You must be alive to load your previously saved location.',Color);
    end;
    '/reset': begin
      if Copy(Text,8,Length(Text)) <> '' then Exit;
      if Save[ID] then begin
        DoDamage(ID,4000);
        Save[ID] := false;
        SaveX[ID] := 0;
        SaveY[ID] := 0;
        Loads[ID] := 0;
        WriteConsole(ID,'Save data reset.',Color);
      end else WriteConsole(ID,'No save data to reset.',Color);
    end;
    '/autoload': begin
      Case LowerCase(GetPiece(Text,' ',1)) of
        'on','enable','enabled': begin
          if AutoLoad[ID] then WriteConsole(ID,'Auto loading is already enabled.',Color) else begin
            AutoLoad[ID] := true;
            WriteConsole(ID,'Auto loading has been enabled.',Color);
          end;
        end;
        'off','disable','disabled': begin
          if AutoLoad[ID] then begin
            AutoLoad[ID] := false;
            WriteConsole(ID,'Auto loading has been disabled.',Color);
          end else WriteConsole(ID,'Auto loading is already disabled.',Color);
        end;
        '': if AutoLoad[ID] then WriteConsole(ID,'Auto loading is enabled.',Color) else WriteConsole(ID,'Auto loading is disabled',Color);
        else WriteConsole(ID,'Invalid input.',Color);
      end;
    end;
  end;
end;

function OnCommand(ID: Byte; Text: string): boolean;
begin
  if Text = '/loadsettings' then if LoadSettings('scripts/' + ScriptName + '/settings.ini') then begin
    WriteLn('

• ' + ScriptName + ' -> Error while loading settings');

    WriteConsole(ID,'Error while loading settings',Color);
  end else begin
    WriteLn('

• ' + ScriptName + ' -> Settings loaded successfully');

    WriteConsole(ID,'Settings loaded successfully',Color);
  end;
end;

procedure OnMapChange(NewMap: string);
var
  i: byte;
begin
  for i := 1 to 32 do begin
    Save := false;
    SaveX := 0;
    SaveY := 0;
    Time := SaveTime;
    Loads := 0;
  end;
end;

procedure OnJoinGame(ID, Team: byte);
begin
  Save[ID] := false;
  SaveX[ID] := 0;
  SaveY[ID] := 0;
  Time[ID] := SaveTime;
  Loads[ID] := 0;
  AutoLoad[ID] := AutoLoadDefault;
end;

procedure OnFlagScore(ID, TeamFlag: byte);
begin
  Save[ID] := false;
  SaveX[ID] := 0;
  SaveY[ID] := 0;
  Time[ID] := SaveTime;
  Loads[ID] := 0;
end;

procedure OnPlayerRespawn(ID: byte);
begin
  AfterRespawn[ID] := true;
end;

procedure OnJoinTeam(ID, Team: byte);
begin
  DrawText(ID,'Thi Position Saver has been edited By Macho' + chr(13) + chr(10) +
              'Use commands /save and /load' + chr(13) + chr(10) +
              '          Have Fun!!!',400,RGB(255,0,0),0.103,60,300);
end;

[DorkeyDear]

You should put it in [.code]...[./code]s to get rid of the

• s.

[RunMan]

Hello I have just started learning Pascal, so I can't change this script by myself. I want to:

• remove all commands expcept save and load
• I want to start the function when player sais "!save" or "!load", not when he writes in a cmd line
• put saving limit 2 times per map

I will be very thankful when someone help me

[DorkeyDear]

Hello I have just started learning Pascal, so I can't change this script by myself. I want to:

• remove all commands expcept save and load
• I want to start the function when player sais "!save" or "!load", not when he writes in a cmd line
• put saving limit 2 times per map

I will be very thankful when someone help me

After installing the script into the server (in working order)....
 

• For admins theres /loadsettings, and for the public, /save, /load, /reset, and /autoload; I can understand autoload, but sense no admin really knows the load settings command, and reset can be used commonly... Why?
• I'll slightly modify the script after school, but for now, its only /save /load commands.
• to limit to 2 times / map, modify in settings.ini "MaxLoads=2"

[danmer]

what about an /autosave option? It would automatically save the position if your coordinates dont change much since say previous second and you have ground under you

[Miszkol_]

@DorkeyDear

Can you do fusion this script with "capture logger" from climbing-soldiers.net??

Formula:
<Nick player> has capture the flag on <map name> in <time per capture in seconds [IMPORTAND: Time Start - Join game, not every dead]> with <How many saves> and <How many dies> deads.

Example:
XxX  has capture the flag on biaclimb1 in 10 sec. with 5 saves and 2 deads.

Reply me.
BB

[DorkeyDear]

@DorkeyDear

Can you do fusion this script with "capture logger" from climbing-soldiers.net??

Formula:
<Nick player> has capture the flag on <map name> in <time per capture in seconds [IMPORTAND: Time Start - Join game, not every dead]> with <How many saves> and <How many dies> deads.

Example:
XxX  has capture the flag on biaclimb1 in 10 sec. with 5 saves and 2 deads.

Reply me.
BB

I just threw both scripts together, and slightly modified it, so tell me if there are any bugs.
The file is attached.
Note that the log files still follow the old format, nothing changed with them, just the message that is said to everybody when the player scores the flag.

[Miszkol_]

It's almost excellent!
But...

1. You do "...with 0 loads...". It's good, but may you do "...with 0 loads AND # SAVES..."??
2. May you do this massage "to divide in two" to 2 massages?? See you:

Code: [Select]

Now:

________________________________
|[*]xXx.........................and dea|
________________________________

I need:
_________________________________
|[*]xXx............................          |
|[*]..............and # deads           |
_________________________________

[*]  <--- server massage
You understand me??

Reply fast.
BB.

[DorkeyDear]

Try this...

[Miszkol_]

I search bug...Almost All is good working, but :
I 2 saves on map and when i cap the flag server write: 0 saves...

[DorkeyDear]

I search bug...Almost All is good working, but :
I 2 saves on map and when i cap the flag server write: 0 saves...

most climb servers usually have next map start, or player auto-killed/respawned when they cap, so i had it reset all stats for the player when they capped. Here you go (its an option up top in the constants), try this.

[Miszkol_]

It's working! IT'S WORKING!!! ^^
Thank you very much.

@BUG...
May you do timer start if any1 join the game??