Disarm procedure

[Norbo]

Script Name: Disarm
Script Description Disarm an ID for a period of time!
Author: Norbo
Compile Test: Passed
Core Version: 2.6.3
Hosted by: Soldat Central - http://soldatcentral.com/

Full Description:
Disarm(ID: byte; Time: integer);

ID: The ID to be disarmed
Time: For how long should the ID be disarmed. Use a negative number to disarm forever.

NOTE: When your using a positive number, only one person can be disarmed at a time!

Examples:

Disarm(1,5); //Will disarm ID 1 for 5 seconds, then give him back his weapons, including the ammo that he had before he was disarmed

Disarm(1,-1); //Will disarm ID 1 forever (he wont get back his weapons)

In the script i included a OnPlayerCommand function with /test command, so you can see how its done

Have Fun and please report any bugs etc.

(Size 774 B)
- http://soldatcentral.com/index.php?page=script&f=65 -

** Script hosted by Soldat Central! Please visit the author's script page and Rate this script **

[DemonicForces]

How do i have to inser the command if i'm inagme ?!?!

/Disarm(1,5) don't works!
/test works => the Script is ok but I also can't find a command inside the script to use it....

plz help me

[GSx_Major]

It's not meant to be used as a command, if you want it to you change OnCommand to this,

Code: [Select]

function OnCommand(ID: Byte; Text: string): boolean;
begin
if GetPiece(Text, 0) = '/disarm' then
  Disarm(StrToInt(GetPiece(Text, ' ', 1), StrToInt(GetPiece(Text, ' ', 2)));
end;
(not tested)

[DemonicForces]

How else will i have to use it ?!?!
only /test ?!?!?

[iDante]

How else will i have to use it ?!?!
only /test ?!?!?

It's not for you to use, it's for other people to include in their scripts.

[Norbo]

Yes, it is not for use, it is a single procedure that scripters can use in their scripts.
If u want it as a command add the code that iDante posted. Just add it UNDERNEATH the disarm procedure

[DemonicForces]

Ahh I understand -.-"

but which code did iDante posted ?!?!
and the Code from Major didn't worked

[GSx_Major]

Try this,

Code: [Select]

function OnCommand(ID: Byte; Text: string): boolean;
begin
  if GetPiece(Text, ' ', 0) = '/disarm' then
    Disarm(StrToInt(GetPiece(Text, ' ', 1), StrToInt(GetPiece(Text, ' ', 2)));
end;

[DemonicForces]

nope ^^ don't work either 

[shantec]

Code: [Select]

function OnCommand(ID: Byte; Text: string): boolean;
begin
  if GetPiece(Text, ' ', 0) = '/disarm' then begin
    Disarm(StrToInt(GetPiece(Text, ' ', 1)), StrToInt(GetPiece(Text, ' ', 2)));
  end;
 result := false;
end;Maybe?

It missed ")" in StrToInt();


oh and also it needs disarm procedure too! (if you didn't realize that)

[DemonicForces]

Good and Bad news:

-Good news: Server isn't Crashing anymore

-Bad news: the command isn't working 
                or how do I have to type it in ?!?

[GSx_Major]

/disarm 2 5
Disarms player 2 for 5 seconds.

Unless I forgot to add brackets and commas there too

[DemonicForces]

BIG THX =)
Every thing is Working now 

Thank you guys for helping me

[Irlandec]

Thx for the release