Author Topic: I searh scripts  (Read 1219 times)

0 Members and 1 Guest are viewing this topic.

Offline Seba555

  • Major(1)
  • Posts: 3
I searh scripts
« on: January 17, 2009, 01:28:01 pm »
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???
« Last Edit: January 18, 2009, 05:15:38 am by Seba555 »

Offline y0uRd34th

  • Camper
  • ***
  • Posts: 325
  • [i]Look Signature![/i]
Re: I searh scripts
« Reply #1 on: January 17, 2009, 02:02:33 pm »
« Last Edit: January 17, 2009, 02:04:23 pm by y0uRd34th »

Offline Bonecrusher

  • Global Moderator
  • Veteran
  • *****
  • Posts: 1397
  • High above
    • Zabijaka.pl
Re: I searh scripts
« Reply #2 on: January 17, 2009, 03:49:03 pm »
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


Im chill like that

Offline GSx_Major

  • Major
  • *
  • Posts: 97
Re: I searh scripts
« Reply #3 on: January 17, 2009, 06:27:28 pm »
There's two !spec in there...
...and headbutt the sucker through your banana suit!

Offline Bonecrusher

  • Global Moderator
  • Veteran
  • *****
  • Posts: 1397
  • High above
    • Zabijaka.pl
Re: I searh scripts
« Reply #4 on: January 17, 2009, 06:29:01 pm »
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 ...

« Last Edit: January 17, 2009, 06:31:30 pm by Bonecrusher »

Im chill like that

Offline DorkeyDear

  • Veteran
  • *****
  • Posts: 1507
  • I also go by Curt or menturi
Re: I searh scripts
« Reply #5 on: January 17, 2009, 11:42:23 pm »
!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)
« Last Edit: January 17, 2009, 11:58:20 pm by DorkeyDear »

Offline y0uRd34th

  • Camper
  • ***
  • Posts: 325
  • [i]Look Signature![/i]
Re: I searh scripts
« Reply #6 on: January 18, 2009, 03:53:57 am »
@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
« Last Edit: January 18, 2009, 04:00:48 am by y0uRd34th »

Offline Seba555

  • Major(1)
  • Posts: 3
Re: I searh scripts
« Reply #7 on: January 18, 2009, 05:19:00 am »
Ok Thank You all for help and for script :)

Offline y0uRd34th

  • Camper
  • ***
  • Posts: 325
  • [i]Look Signature![/i]
Re: I searh scripts
« Reply #8 on: January 18, 2009, 07:13:11 am »
No Problem :)

Offline DorkeyDear

  • Veteran
  • *****
  • Posts: 1507
  • I also go by Curt or menturi
Re: I searh scripts
« Reply #9 on: January 18, 2009, 09:39:07 am »
Enjoy.

Offline Bonecrusher

  • Global Moderator
  • Veteran
  • *****
  • Posts: 1397
  • High above
    • Zabijaka.pl
Re: I searh scripts
« Reply #10 on: January 18, 2009, 02:24:36 pm »
have fun ^^

Im chill like that

Offline Seba555

  • Major(1)
  • Posts: 3
Re: I searh scripts
« Reply #11 on: January 18, 2009, 02:33:39 pm »
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).

Offline Bonecrusher

  • Global Moderator
  • Veteran
  • *****
  • Posts: 1397
  • High above
    • Zabijaka.pl
Re: I searh scripts
« Reply #12 on: January 19, 2009, 04:36:30 pm »
Code: [Select]
procedure OnFlagScore(ID, TeamFlag: byte);
begin
  SetScore(ID,GetPlayerStat(ID,'Kills')-20);
end;

Im chill like that