another script problem

[chutem]

Made another simple script:

Code: [Select]

procedure OnWeaponChange(ID, PrimaryNum, SecondaryNum: Byte);
begin
  Sleep (2000);
  ForceWeapon(ID,14,14,0);
end;
I assume that the 'ID' in the brackets for OnWeaponChange is declaring a variable so that means in my understanding this script should give a player a knew knife everytime they throw it (and select it or switch weapon or pick one up).
Its a script so I don't have to find knives when I play against throwing knives bots.
But
The script doesn't compile (i think) in the log file it says:
07-11-21 18:33:11 

• Knives script -> [Error] (4:3): Identifier expected

So, yeah, thats the problem.

Help will be appreciated 

[Toumaz]

Code: [Select]

procedure OnWeaponChange(ID, PrimaryNum, SecondaryNum: Byte);
begin
  ForceWeapon(ID,12,12,0);
end;

12 is rambo bows by the way, so you probably want to use 14 instead.

[chutem]

?? its number 12 in weapon select, oh wait, I saw this in the default scripts,
Changed script.

[EnEsCe]

get rid of the Procedure before ForceWeapon.

[chutem]

F***, stupid little mistakes.

So for events i need the procedure, but for functions i can't have it.
thanks.

EDIT: Hahahahahah lol that is so cool, but if I throw too many knives, I get kicked for possible cheat.
EDIT2: added sleep to delay new knife

[urraka]

So for events i need the procedure, but for functions i can't have it.
thanks.

The "procedure" or "function" words are used only in the definition of the procedure/function. When you call it you don't write it.

[Kavukamari]

and there is a space after Sleep

Sleep (2000)

and there should be a ';' after sleep() and forceweapon()

[chutem]

ok, changed

EDIT: Could that be causing lag between me and the server, because thats what I was getting?, like massive red cirles at the top-right.

[EnEsCe]

Sleep will make the server sleep for 2 seconds. So yes, you will get 2 seconds of lag.

[chutem]

oh. How do I make the script not force a knife for 2 seconds withought stopping the server then?

[Toumaz]

oh. How do I make the script not force a knife for 2 seconds withought stopping the server then?

Something along the lines of creating an array sized for all players, set the value of the player ID index in said array to 2 when you give the player a knife, and decrease it down to 0 in AppOnIdle.  Then only allow ForceWeapon to be used when said variable is 0.  Yes, I suck at explaining things properly.

[KwS Pall]

Code: [Select]

var
weapon[1..32] of byte;

Procedure AppOnIdle(Ticks:integer);
var
i : byte;
begin
for i := 1 to 32 do begin
 if weapon[i] = 0 then ForceWeapon(i,14,14,0);
 if (weapon[i] < 3) and (weapon[i] > 0) then weapon[i] := weapon[i] -1;
 end;
end;

procedure OnWeaponChange(ID, PrimaryNum, SecondaryNum: Byte);
begin
weapon[id] := 2;
end;

try this one, it should work but i haven't got client to test it