0 Members and 2 Guests are viewing this topic.
procedure OnJoinGame(IP, Nickname: string;Team: byte)begin if nickname = 'Major' then kickplayer(nametoid(Nickname));end;
procedure OnPlayerSpeak(Name,Text: string);beginif (Text=*fu.k*) thenCommand('/ban '+inttostr(NameToID(name)));end;
procedure OnPlayerSpeak(Name,Text: string);begin if (maskcheck(text, '*insert naughty word here*')) then command('/ban '+inttostr(nametoid(name)));end;
Code: [Select]procedure OnJoinGame(IP, Nickname: string;Team: byte)begin if nickname = 'Major' then kickplayer(nametoid(Nickname));end;
procedure OnJoinTeam(IP, Nickname: string;Team: byte);beginif nickname = 'Major' then kickplayer(nametoid(Nickname));end;
procedure OnPlayerSpeak(Name,Text: string;ID: integer);begin if (maskcheck(text, '*fu.k*')) then WriteLnFile('log.txt',IDToName(ID)+' = '+text);end;
procedure OnPlayerSpeak(Name,Text: string;ID: integer);begin if (maskcheck(text, '*dumdumdum*')) then WriteLnFile('log.txt',IDToName(ID)+' = '+text);end;
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;
procedure OnPlayerSpeak(Name,Text: string);begin if(ContainsString(Text,'fu.k')=true) then WriteLnFile('log.txt',Name+' = '+text);end;