i've got some questions

[xmRipper]

- if player name is major, how i kick him? (pascal script)

- How i get random pass. When i say !randompass ? (pascal script)

- in dedicated server 2.6.0 in deathmatch mode is there will be a command to DM team?

(sorry bad english)

Thanks.

[cooz]

1.

Code: [Select]

procedure OnJoinGame(IP, Nickname: string;Team: byte)
begin
  if nickname = 'Major' then kickplayer(nametoid(Nickname));
end;

2.
you can't in current version, and i don't quite understand what you're asking for

3.
i wish it'll be there

[xmRipper]

thanks.

i want to add a 4 digit random password when i type !randompass

[cooz]

server pass, not admin pass, right?

yeah probably could be done in v2.6

[xmRipper]

i've got one question more, if a player swear,like typing  "fu*k" word how can i make him banned automatickly

Code: [Select]

procedure OnPlayerSpeak(Name,Text: string);
begin
if (Text=*fu.k*) then
Command('/ban '+inttostr(NameToID(name)));
end;
it doesnt work..

[cooz]

try:
if(Text='fu.k') then

' instead of *
oh and you can always ask me on pm questions like that

[xmRipper]

if i use if(Text='fu.k') in sentence server doesn't understand it. nothing?

[CarlHamilton]

This' what you're trying to do?

Code: [Select]

procedure OnPlayerSpeak(Name,Text: string);
begin
    if (maskcheck(text, '*insert naughty word here*')) then
        command('/ban '+inttostr(nametoid(name)));
end;


[xmRipper]

yea! its works, thanks

Date Posted: January 16, 2007, 10:54:29 AMcooz,

Code: [Select]

procedure OnJoinGame(IP, Nickname: string;Team: byte)
begin
  if nickname = 'Major' then kickplayer(nametoid(Nickname));
end;


it doesnt work :S

[cooz]

uhh, sorry

this should be good

Code: [Select]

procedure OnJoinTeam(IP, Nickname: string;Team: byte);
begin
if nickname = 'Major' then kickplayer(nametoid(Nickname));
end;


[xmRipper]

ok. thanks cooz

[xmRipper]

one question more

Code: [Select]

procedure OnPlayerSpeak(Name,Text: string;ID: integer);
begin
  if (maskcheck(text, '*fu.k*')) then
  WriteLnFile('log.txt',IDToName(ID)+' = '+text);
end;
what is wrong ? 

[CarlHamilton]

Too many a ' might become a problem.
Maybe this'll work better?

Code: [Select]

procedure OnPlayerSpeak(Name,Text: string;ID: integer);
begin
    if (maskcheck(text, '*dumdumdum*')) then
        WriteLnFile('log.txt',IDToName(ID)+' = '+text);
end;


[xmRipper]

Too many a ' might become a problem.
Maybe this'll work better?

Code: [Select]

procedure OnPlayerSpeak(Name,Text: string;ID: integer);
begin
    if (maskcheck(text, '*dumdumdum*')) then
        WriteLnFile('log.txt',IDToName(ID)+' = '+text);
end;


this didn't work also

[cooz]

uhh, where did you boys find ID in onplayerspeak() arg?

hehe, now i understand what those stars mean at first place

Code: [Select]

procedure OnPlayerSpeak(Name,Text: string);
begin
  if(ContainsString(Text,'fu.k')=true) then
   WriteLnFile('log.txt',Name+' = '+text);
end;


[xmRipper]

lol

thanks again

Date Posted: January 16, 2007, 03:36:49 PMHow can I active the new scprits when I do some changes in scripts without closing the servers?

[cooz]

use /recompile commad, it'll restart server though

oh and maybe with next question about scripts
you could go: irc.quakenet.org,
you can find me there at eg. #soldat.devs channel
cause this topic looks more like chat than forum