Neosano's Ghahaha Freezer

[Neosano]

Script Name:Freezer
Script Description:We can freeze players now 
Original Author(s):Neosano and hisself
Core Version:2.6.3
 

Code: [Select]

var
Freezed:array[1..32] of boolean;

procedure HideAllWeps(ID:byte);
var
i:integer;
begin
for i:=1 to 14 do
SetWeaponActive(ID,i,false);
end;

procedure Freeze(ID:byte);
var
X,Y:single;
begin
GetPlayerXY(ID,X,Y);
Command('/setteam'+inttostr(GetPlayerStat(ID,'team'))+' '+inttostr(ID));
HideAllWeps(ID);
MovePlayer(ID,X,Y);
Freezed[ID] := true;
end;

procedure Unfreeze(ID:byte);
var
i:integer;
begin
for i:=0 to 14 do
SetWeaponActive(ID,i,true)
Freezed[ID] := false;
end;

function OnCommand(ID: Byte; Text: string): boolean;
begin
case GetPiece(Text,' ',0) of
'/freeze':
begin
Freeze(strtoint(GetPiece(Text,' ',1)));
WriteConsole(ID,GetPlayerStat(strtoint(GetPiece(Text,' ',1)),'name')+' was frozen!', $8FD2C4);
end
'/unfreeze':
begin
UnFreeze(strtoint(GetPiece(Text,' ',1)));
WriteConsole(ID,GetPlayerStat(strtoint(GetPiece(Text,' ',1)),'name')+' was frozen!', $8FD2C4);
end
end
end;

procedure OnJoinTeam(ID, Team: byte);
begin
if Freezed[ID] then begin
HideAllWeps(ID);
end
end;

procedure OnLeaveGame(ID, Team: byte;Kicked: boolean);
begin
Freezed[ID] := false;
end;

 

To freeze player you must be logged as admin.
Use "/freeze ID" to freeze player and "/unfreeze ID" to unfreeze someone
Script shows weapon list menu without any weapons so you can't choose any.
But as we all know - you can't shoot , throw nades, use jets while weapon menu is on your screen.

[EnEsCe]

You might want to specify what your definition of 'Freeze' means; for those whom cant read code.

[Giplip]

It's who not whom. Remove the M.

[EnEsCe]

You might want to look up the definition of whom. Learn better English perhaps.

[Neosano]

Kkay Enescy >_<

[PKS|Shooter]

w0000t Freeze players ? nice :O sounds funny

=/ dont work /freeze <ID>  Damn

[Neosano]

Are you logged as admin?
Try to freeze yourself >_<

[Mr]

Thanks for this script. I think it will be funny to anoy my friends with it ^_^
btw offtopic: wan't a CommandBy('command', ID) function in the next soldat server script core

[Neosano]

Thanks for this script. I think it will be funny to anoy my friends with it ^_^
btw offtopic: wan't a CommandBy('command', ID) function in the next soldat server script core

f11

Date Posted: June 13, 2008, 03:35:28 pmlast fix >_<

[NTxC]

Thanks for this awesome script, man
Can I include it in my Admin mod?

Cheers,
NT

[Neosano]

Why not

[frosty]

ghahahaha....
awesome

[As de Espada]

very nice! just one thing that you missed :p

Code: [Select]

(...)
'/unfreeze':
begin
UnFreeze(strtoint(GetPiece(Text,' ',1)));
WriteConsole(ID,GetPlayerStat(strtoint(GetPiece(Text,' ',1)),'name')+' was UNFROZEN!', $8FD2C4);
end