Problem with scripts

[MFA]

Hi. I have a two don't working script. Help me please, what is wrong?

First:

Code: [Select]

const
  Color = $FFD700;

procedure OnJoinTeam(ID, Team: byte);

var
  i: integer;

begin

if (Team <> 1) and (Team <> 5) then begin
Command('/setteam1 ' + IntToStr(ID));
WriteConsole(ID, 'Do Alpha i to juz!',Color);
end;
end;
end;
Second:

Code: [Select]

procedure AppOnIdle(Ticks: integer);
begin

if Ticks mod (60) = 0 then begin

SpawnObject(GetPlayerStat(1,'x'),GetPlayerStat(1,'y'),17);
SpawnObject(GetPlayerStat(2,'x'),GetPlayerStat(2,'y'),17);
SpawnObject(GetPlayerStat(3,'x'),GetPlayerStat(3,'y'),17);
SpawnObject(GetPlayerStat(4,'x'),GetPlayerStat(4,'y'),17);
SpawnObject(GetPlayerStat(5,'x'),GetPlayerStat(5,'y'),17);
SpawnObject(GetPlayerStat(6,'x'),GetPlayerStat(6,'y'),17);
SpawnObject(GetPlayerStat(7,'x'),GetPlayerStat(7,'y'),17);
SpawnObject(GetPlayerStat(8,'x'),GetPlayerStat(8,'y'),17);

end;

end;

procedure OnPlayerRespawn(ID: Byte);
begin

ForceWeapon(ID, 11, 11, 1);

end;

procedure OnFlagScore(ID, TeamFlag: byte);
begin
SetPlayerStat( ID , 'health' , 0 );
end;

[JFK]

Hi,

Please explain what the script is supposed to do and what exactly goes wrong.

[MFA]

First script is "Anty bravo", and second is mix of infinite nades, give two flamers at respawn, and kill flag scorer. When i give one of this scripts to server, i can't connect to it. All of the time Soldat written text "Trying to connect".

[croat1gamer]

Home hosted?
You must use the ip 127.0.0.1

[MFA]

No, hosted by whiterabbit.pl

[Silnikos]

Too many ends in first one.

Second one uses SetPlayerStat, this function works only on BETA soldat's server version.

[KEEN]

Code: [Select]

const
 Color = $FFD700;

procedure OnJoinTeam(ID, Team: byte);
 begin
  if (Team <> 1) and (Team <> 5) then
   begin
    Command('/setteam1 ' + IntToStr(ID));
    WriteConsole(ID, 'Do Alpha i to juz!',Color);
   end;
 end;

u declare "i: integer;" but u never use, unless it is used in 'Do Alpha i to juz!'

[MFA]

Thanks

First script is working:

Code: [Select]

procedure OnJoinTeam(ID, Team: byte);
begin

if (Team <> 1) and (Team <> 5) then begin

           Command('/setteam1 '+IntToStr(ID));

        end;

end;
But, second script still don't working:

Code: [Select]

procedure AppOnIdle(Ticks: integer);
Begin

if Ticks mod (60) = 0 then

Begin

SpawnObject(GetPlayerStat(1,'x'),GetPlayerStat(1,'y'),17);
SpawnObject(GetPlayerStat(2,'x'),GetPlayerStat(2,'y'),17);
SpawnObject(GetPlayerStat(3,'x'),GetPlayerStat(3,'y'),17);
SpawnObject(GetPlayerStat(4,'x'),GetPlayerStat(4,'y'),17);
SpawnObject(GetPlayerStat(5,'x'),GetPlayerStat(5,'y'),17);
SpawnObject(GetPlayerStat(6,'x'),GetPlayerStat(6,'y'),17);
SpawnObject(GetPlayerStat(7,'x'),GetPlayerStat(7,'y'),17);
SpawnObject(GetPlayerStat(8,'x'),GetPlayerStat(8,'y'),17);

end;

end;

procedure OnPlayerRespawn(ID: Byte);
begin

ForceWeapon(ID, 11, 11, 0);

end;

procedure OnFlagScore(ID, TeamFlag: byte);
begin
Command('/kill '+inttostr(ID));
end;

u declare "i: integer;" but u never use, unless it is used in 'Do Alpha i to juz!'

I delete this line :]

[croat1gamer]

Code: [Select]

procedure AppOnIdle(Ticks: integer);
Begin

if Ticks mod (60) = 0 then for i:= 1 to 32 do begin
SpawnObject(GetPlayerStat(i,'x'),GetPlayerStat(i,'y'),17);
if GetPlayerStat(i,'primary') <> 11 then ForceWeapon(i, 11, 11, 0);
end;

end; // this will give them permanent flamers


procedure OnFlagScore(ID, TeamFlag: byte);
begin
Command('/kill '+inttostr(ID));


end;
What is the gametype you are going to host?

[KEEN]

What's the error you see when starting compilation?

[MFA]

Croat1gamer, thanks. You forget about include varrible i  . But it still dont working Game mode is ctf.

What's the error you see when starting compilation?

Just none, but server don't working...

[croat1gamer]

Can you say what do the logs say?
I cant check what is wrong right now.

[MFA]

Code: [Select]

[*] ScriptCore v2.6 loaded! Found 2 scripts...
[*] Compiling default -> Core.pas...
[*] Compiling default -> NetworkCore.pas...
[*] Compiling default -> AdminCore.pas...
[*] Compiling InfNades -> InfNades.pas...
[*] Compilaton Coplete.
I testing it at home computer, no in server
But server have this same version Script Core

[y0uRd34th]

No errors at all, does the server shutdown after you start it, or what is the problem?

[MFA]

I do this...
Server dont working with this script 

[MFA]

Ok, this is forceweapon bug, im updated server and script is working!
But i have another question - when im give flamer to someone, server kicked him for "Not allowed weapon". Can do something to repair it?

[Swompie]

Set DisableAntiCheat=1 in soldat.ini.

[MFA]

Yeah, thanks.