I searh scripts

[Seba555]

Hello i search 6 scripts.

1. !TK 1,2,3,4 (1-Forgive, 2-Kill+Baintpoint, 3-Bainpoint Only, 4-Kill next round+bainpoint)
2. !nextmap (vote for nextmap)
3. !rules (Show rules on the server)
4. /create, /login, /stats (Show your stats and create account)
5. !joinA ,B,S(Join to Alpha team, Bravo team, Spec)
6. !Ping (Show your actual ping)

I search, but i did find.
Could anybody help me and find it???

[y0uRd34th]

LogInSystem ->
http://forums.soldat.pl/index.php?topic=31807.0
!TK->
http://forums.soldat.pl/index.php?topic=13093.0

And for ping press F1 please^^

[Bonecrusher]

Code: [Select]

procedure OnPlayerSpeak(ID: Byte; Text: string);
var rate:Single;
var sRate:string;
begin

if Text = '!red' then Command('/setteam1 '+inttostr(ID));
if Text = '!blue' then Command('/setteam2 '+inttostr(ID));
if Text = '!spec' then Command('/setteam5 '+inttostr(ID));

  if Text = '!1' then Command('/setteam1 '+inttostr(ID));
  if Text = '!2' then Command('/setteam2 '+inttostr(ID));
  if Text = '!5' then Command('/setteam5 '+inttostr(ID));

  if Text = '!alpha' then Command('/setteam1 '+inttostr(ID));
  if Text = '!bravo' then Command('/setteam2 '+inttostr(ID));
  if Text = '!spec' then Command('/setteam5 '+inttostr(ID));
 
  if Text = '!A' then Command('/setteam1 '+inttostr(ID));
  if Text = '!B' then Command('/setteam2 '+inttostr(ID));
  if Text = '!S' then Command('/setteam5 '+inttostr(ID));
i guess it works

[GSx_Major]

There's two !spec in there...

[Bonecrusher]

Code: [Select]

procedure OnPlayerSpeak(ID: Byte; Text: string);
var rate:Single;
var sRate:string;
begin

if Text = '!red' then Command('/setteam1 '+inttostr(ID));
if Text = '!blue' then Command('/setteam2 '+inttostr(ID));
if Text = '!lime' then Command('/setteam5 '+inttostr(ID));

  if Text = '!1' then Command('/setteam1 '+inttostr(ID));
  if Text = '!2' then Command('/setteam2 '+inttostr(ID));
  if Text = '!5' then Command('/setteam5 '+inttostr(ID));

  if Text = '!alpha' then Command('/setteam1 '+inttostr(ID));
  if Text = '!bravo' then Command('/setteam2 '+inttostr(ID));
  if Text = '!spec' then Command('/setteam5 '+inttostr(ID));
 
  if Text = '!A' then Command('/setteam1 '+inttostr(ID));
  if Text = '!B' then Command('/setteam2 '+inttostr(ID));
  if Text = '!S' then Command('/setteam5 '+inttostr(ID));
there you go ...

[DorkeyDear]

!ping [id|partialname]
http://forums.soldat.pl/index.php?topic=32298
can ping yourself when the parameter is not specified
supports partial names as the parameter (ex: my nick in-game is |D)orkeyDear) "!ping keyd" would work (unless if somebody else had "keyd" in their name too)

[y0uRd34th]

@Bonecrusher: You miss one 'end;' and Why did you add 'vars'?

Code: [Select]

procedure OnPlayerSpeak(ID: Byte; Text: string);
begin
     if (Text = '!red') or (Text = '!1') or (Text = '!A') or (Text = '!alpha') then Command('/setteam1 '+inttostr(ID));
     if (Text = '!blue') or (Text = '!2') or (Text = '!B') or (Text = '!bravo') then Command('/setteam2 '+inttostr(ID));
     if (Text = '!spec') or (Text = '!5') or (Text = '!S') or (Text = '!spec') then Command('/setteam5 '+inttostr(ID));
end;

If you want a Zip File Seba555 say it Please.
!nextmap -> http://forums.soldat.pl/index.php?topic=19031.0

[Seba555]

Ok Thank You all for help and for script

[y0uRd34th]

No Problem

[DorkeyDear]

Enjoy.

[Bonecrusher]

have fun ^^

[Seba555]

I search for new scripts and I do not to create new topic.

7. "No pkt for caps" does not give to player 20 kills , and gives next round (because when somebody caps already after 3 seconds kills all players and develope to the next round).

[Bonecrusher]

Code: [Select]

procedure OnFlagScore(ID, TeamFlag: byte);
begin
  SetScore(ID,GetPlayerStat(ID,'Kills')-20);
end;