Help with basic script

[frosty]

very simple problem , probably a solution thats staring me in da face

ok i have added an item to my shop which when the person buys the item and captures the Blue flag, this then Teleports them to where the red flag is, problem is, the player warps without the flag, is there any way i can warp the player with the captured flag?

da code:

Code: (pascal) [Select]

var HBFT:Array[1..32] of Boolean;

function OnPlayerCommand(ID: Byte; Text: string): boolean;
begin
  if Text = '/buy FTP' then begin
    if Cash < 10000 then begin
      WriteConsole(0,IdtoName(ID)+' just tried to purchase a Flag Teleport, not enough funds!',$EE81FAA1);
    end;
    if Cash >= 10000 then begin
      Cash :=Cash-10000;
      WriteConsole(0,IdtoName(ID)+' has just bought a Flag Teleport for 10000 Cash',$EE81FAA1);
      HBFT[ID]:=True;
    end;
  end;
end;

procedure OnFlagGrab(ID, TeamFlag: byte; GrabbedInBase: boolean);
begin
  if HBFT[ID] = True then begin
    MovePlayer(ID,GetObjectStat(1,'X'), GetObjectStat(1, 'Y'));
    WriteConsole(ID,'Grab detected, moving you now...',$EE81FAA1);
    HBFT[ID]:=False;
  end;
end;


[Hacktank]

No, it is a hacker preventitive measure that warping returns the flag. But you may be able to spawnobject a new flag onto him where he warps?

[frosty]

thanks Hacktank now i got something to work off

From: June 02, 2010, 02:30:03 amhmm, the flags arent on the Object list, i guess its definitely not possible to do

From: June 02, 2010, 02:58:36 amhmm lol sometimes it works sometimes it doesnt, its quite unpredictable where you land if you have the flag after grabbing and it warps you With the flag, lol

[Swompie]

MovePlayer() is broken...

[frosty]

aww what? so what else can i use to move players with? have a few new scrips in mind, need something that works with soldatserver 263

From: June 02, 2010, 01:21:14 pmhmm was it 263 or 253? cant remember

[Swompie]

Blurr, I failed..
Well, actually it sometimes cause people to drop their weapons, I read that the server causes you to drop the flag because of some "anti cheat" stuff or so, jbut not sure if that's true. (But it should move to correct XY, atleast it does in eC's servers)
The object styles of alpha/bravo flags should be 1 and 2 iirc.

[frosty]

The object styles of alpha/bravo flags should be 1 and 2 iirc.

nope, im going to have to find out how the devs on ECs servers did it

list is exactly as follows:
ObjType List:
 1        Desert Eagle
 2        HK MP5
 3        AK 74
 4        Steyr AUG
 5        Spas 12
 6        Ruger77
 7        M79
 8        Barrett M82A1
 9        Minimi
 10       Minigun
 11       USSOCOM
 12       Combat Knife
 13       Chainsaw
 14       LAW
 15       Stationary Gun
 16       Medical Kit
 17       Grenade Kit
 18       Flamer Kit
 19       Vest Kit
 20       Predator Kit
 21       Berserk Kit
 22       Cluster Kit

[Swompie]

You've just failed.. You don't wanna tell me that eC doesn't know what the list is? >_>

[frosty]

no i wanna ask Ec what the exact list is, because id number 1 does actually spawn DE and id 2 actually does spawn a mp5 so if thats the case then what are the numbers for the flags?   why am i asking? because i tried all the numbers

[Swompie]

Becuase thats SpawnObject() and not GetObjectStat()..?
Oh now I get what you want, you wanna spawn a flag with SpawnObject?

[frosty]

yes, and if its not Spawnobject that works, then how did Ec get the flags to correct XY pos when ppl use aether?

[Swompie]

oh god, you really need to learn alot..
it's a bug/glitch w/e you wanna call it which causes the flag to respawn at the flag spawns

[dnmr]

and you cant spawn flags directly. Try moving the flag spawn point and killing the actual flag - the server should respawn it where you moved the spawnpoint

[DorkeyDear]

SpawnObject does not work with flags. You must KillObject a flag (if it already exists), and then spawn in with SetObjetStat (that is, if I recall correctly; its been a while since I did anything like this). Refer to the wiki objects article.

[frosty]

i have a problem with that, how do i get the objectid for the existing flag?

im getting a type mismatch error somewhere in this section of code, im thinking its the KillObject line because its not working from a spawnobject variable, but since the flags have already been spawned, how do i get the id for the already spawned flags, Killobject only works with Spawnobect, but since i never used spawnobject to spawn the flag and it was done by server.....

Code: (pascal) [Select]

i:=KillObject(2);
SetSpawnStat(i,'x',GetPlayerStat(ID,'x'));
SetSpawnStat(i,'y',GetPlayerStat(ID,'y'));

[DorkeyDear]

you must loop through all the objects, check using GetObjectStat if style == a flag; if so, that is the id of the flag. You can then KillObject(that id) and do whatever else you wish (im not sure why KillObject returns anything, as it shouldn't; it might be a typo in the manual, since it says "procedure" but also ": integer" )

[absoulut1234]

frosty??
Are you [NMJAS]Frosty?
if you are,i am DD! yahaha~  

[frosty]

yeah!!! :cool: thats me DD

[frosty]

got another problem, trying to make a counter which counts up seconds and minutes until the player dies, problem is the values arent updating

Code: (pascal) [Select]

var
TSec,Tmin,BTSec,BTMin:Array[1..32] of Integer;
TA:Array[1..32] of Boolean;

procedure AppOnIdle(Ticks: integer);
begin
  for i:= 1 to 32 do begin
    if GetPlayerStat(i,'human') = true then if GetPlayerStat(i,'Alive') = true then TA[i]:= True;
    if TA[i] = True then begin
      TSec[i]:=TSec[i]+1;
      if TSec[i] = 60 then begin
        TMin[i]:= TMin[i]+1;
        TSec[i]:= 0;
      end;
    end;
    if GetPlayerStat(i,'human') = true then if GetPlayerStat(i,'Alive') = False then TA[i]:= False;
    If TA[i] = False then begin
      BTSec[i]:=TSec[i];
      TSec[i]:=0;
      if TMin[i]>BTMin[i] then BTMin[i]:=TMin[i];
      TMin[i]:=0;
    end;
  end;
end;
i want to show the time in this message when certain events happen:

Code: (pascal) [Select]

WriteConsole(i,'Longest Time Survived: '+inttostr(BTMin[i])+':'+inttostr(BTSec[i])+' (M:S)!',$EE81FAA1);
when the message does trigger it shows 0:0 where the vars are, which means that the values arent being assigned properly in the initial "for" loop or they are being assigned and something is causing them to be set to 0 every second

what am i missing here?

Referance:
TA sees if the player is alive and human
TSec and TMin : current time alive
BTSec and BTMin : Best time alive

[DarkCrusade]

Code: (pascal) [Select]

const
  ClBad = $FFFF44;

Type
  Stats = Record
  LongTime: Boolean;
  TSec,Tmin,BTSec,BTMin: Integer;
end;

var
  Player: Array[1..32] of Stats;
LongestTime: Array[1..2] of Integer;

Procedure ResetStats(ID:Byte);
  begin
  Player[ID].LongTime := false;
end;

Procedure CheckTime(ID:Byte); 
begin
    if Player[ID].BTMin > LongestTime[1] then begin
  LongestTime[1] := Player[ID].BTMin;
LongestTime[2] := Player[ID].BTSec;
Player[ID].LongTime := true;
end else begin
      if Player[ID].BTMin = LongestTime[1] then
  if Player[ID].BTSec > LongestTime[2] then begin
  LongestTime[1] := Player[ID].BTMin;
    LongestTime[2] := Player[ID].BTSec;
    Player[ID].LongTime := true;
end;
    end;
  end;

Procedure OnJoinGame(ID,Team:Byte);
  begin
  ResetStats(ID);
end;

Procedure AppOnIdle(Ticks: integer);
var
  i:Byte;
begin
 for i:= 1 to 32 do if (GetPlayerStat(i,'Active') = true) AND (GetPlayerStat(i,'Alive') = true) then begin
if GetPlayerStat(i,'Human') = true then begin
   TSec[i]:= TSec[i]+1;
   if TSec[i] = 60 then begin
     TMin[i]:= TMin[i]+1;
     TSec[i]:= 0;
end;
   end else begin
     BTSec[i]:=TSec[i];
     TSec[i]:=0;
     if TMin[i] <> 0 then BTMin[i]:=TMin[i];
     TMin[i]:=0;
CheckTime(i);
   end;
end;
end;