Author Topic: Neosano's Ghahaha Freezer  (Read 2538 times)

0 Members and 1 Guest are viewing this topic.

Offline Neosano

  • Camper
  • ***
  • Posts: 253
  • IIAWAK!
Neosano's Ghahaha Freezer
« on: June 13, 2008, 09:06:57 am »
Script Name:Freezer
Script Description:We can freeze players now  :D
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.
« Last Edit: June 13, 2008, 05:28:52 pm by Neosano »
KAWAAAAAAAIIIIIIIIII

Offline EnEsCe

  • Retired Soldat Developer
  • Flamebow Warrior
  • ******
  • Posts: 3101
  • http://enesce.com/
    • [eC] Official Website
Re: Neosano's Ghahaha Freezer
« Reply #1 on: June 13, 2008, 09:17:36 am »
You might want to specify what your definition of 'Freeze' means; for those whom cant read code.

Offline Giplip

  • Major
  • *
  • Posts: 66
  • I do not know what to say.
Re: Neosano's Ghahaha Freezer
« Reply #2 on: June 13, 2008, 09:34:36 am »
It's who not whom. Remove the M.
Two day ban Permabanned.

Offline EnEsCe

  • Retired Soldat Developer
  • Flamebow Warrior
  • ******
  • Posts: 3101
  • http://enesce.com/
    • [eC] Official Website
Re: Neosano's Ghahaha Freezer
« Reply #3 on: June 13, 2008, 09:40:45 am »
You might want to look up the definition of whom. Learn better English perhaps.

Offline Neosano

  • Camper
  • ***
  • Posts: 253
  • IIAWAK!
Re: Neosano's Ghahaha Freezer
« Reply #4 on: June 13, 2008, 11:37:38 am »
Kkay Enescy >_<
KAWAAAAAAAIIIIIIIIII

Offline PKS|Shooter

  • Soldier
  • **
  • Posts: 130
  • Dont fuck with us!
    • PKS - La Familia
Re: Neosano's Ghahaha Freezer
« Reply #5 on: June 13, 2008, 12:21:52 pm »
w0000t Freeze players ? nice :O sounds funny

=/ dont work /freeze <ID>  Damn
« Last Edit: June 13, 2008, 12:27:19 pm by PKS|Shooter »

Offline Neosano

  • Camper
  • ***
  • Posts: 253
  • IIAWAK!
Re: Neosano's Ghahaha Freezer
« Reply #6 on: June 13, 2008, 12:49:23 pm »
Are you logged as admin?
Try to freeze yourself >_<
KAWAAAAAAAIIIIIIIIII

Offline Mr

  • Inactive Soldat Developer
  • Soldier
  • ******
  • Posts: 166
Re: Neosano's Ghahaha Freezer
« Reply #7 on: June 13, 2008, 02:31:46 pm »
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 :P

Offline Neosano

  • Camper
  • ***
  • Posts: 253
  • IIAWAK!
Re: Neosano's Ghahaha Freezer
« Reply #8 on: June 13, 2008, 05:26:59 pm »
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 :P
f11

Date Posted: June 13, 2008, 03:35:28 pm
last fix >_<
KAWAAAAAAAIIIIIIIIII

Offline NTxC

  • Major(1)
  • Posts: 34
  • Scripter
Re: Neosano's Ghahaha Freezer
« Reply #9 on: June 13, 2008, 05:27:07 pm »
Thanks for this awesome script, man :)
Can I include it in my Admin mod?

Cheers,
NT
:[ NT-Online Server Mod Coming Up! ]:
________________________________
Featuring:
- Admin System with dynamic ranks and privileges...
- Duel System...
- Reward System - earn rewards for your frags...
- CVARs - configuration variables - to make the server administering easier...

... and more! Coming soon!

Offline Neosano

  • Camper
  • ***
  • Posts: 253
  • IIAWAK!
Re: Neosano's Ghahaha Freezer
« Reply #10 on: June 13, 2008, 05:31:07 pm »
Why not ;)
« Last Edit: June 14, 2008, 04:21:34 am by Neosano »
KAWAAAAAAAIIIIIIIIII

Offline frosty

  • Flagrunner
  • ****
  • Posts: 601
  • Uber Desert Eagle ^^
Re: Neosano's Ghahaha Freezer
« Reply #11 on: June 30, 2008, 08:44:37 pm »
ghahahaha....
awesome
check out my server! click here

If at first you don't succeed, Improvise! :D

Offline As de Espada

  • Soldat Beta Team
  • Veteran
  • ******
  • Posts: 1493
  • Mapper
    • My maps
Re: Neosano's Ghahaha Freezer
« Reply #12 on: July 09, 2008, 12:34:39 pm »
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
All my maps | my latest map: SoldatX Racing Mappack
me making a map on youtube: ctf_FastMade