R > Freeze Command Script

[Finale]

Hi Guys,

 

Requesting for a Freeze Status command wherein if I type @freeze all players inside a specific map will be frozen state and will be unfrozen once I type @unfrozen.

 

Thanks in advance!

[Winterfox]

I didn't test it, but this should do what you want.
 

-	script	FREEZE	FAKE_NPC,{
	OnInit:
		bindatcmd("freeze", strnpcinfo(3) + "::OnFreeze");
		bindatcmd("unfreeze", strnpcinfo(3) + "::OnUnfreeze");
	end;
	
	OnFreeze:
		.@mode = 1;
	OnUnfreeze:
		getmapunits(BL_PC, getarg(0), .@players);
		freeloop(1);
		for(.@i = 0; .@i < getarraysize(.@players); .@i++)
			pcblockmove(.@players[.@i], .@mode);
		freeloop(0);
}

 

[Finale]

1 hour ago, Winterfox said:

I didn't test it, but this should do what you want.
 

-	script	FREEZE	FAKE_NPC,{
	OnInit:
		bindatcmd("freeze", strnpcinfo(3) + "::OnFreeze");
		bindatcmd("unfreeze", strnpcinfo(3) + "::OnUnfreeze");
	end;
	
	OnFreeze:
		.@mode = 1;
	OnUnfreeze:
		getmapunits(BL_PC, getarg(0), .@players);
		freeloop(1);
		for(.@i = 0; .@i < getarraysize(.@players); .@i++)
			pcblockmove(.@players[.@i], .@mode);
		freeloop(0);
}

 

Hi Thank you! I will test this script.

[Finale]

1 hour ago, Winterfox said:

I didn't test it, but this should do what you want.
 

-	script	FREEZE	FAKE_NPC,{
	OnInit:
		bindatcmd("freeze", strnpcinfo(3) + "::OnFreeze");
		bindatcmd("unfreeze", strnpcinfo(3) + "::OnUnfreeze");
	end;
	
	OnFreeze:
		.@mode = 1;
	OnUnfreeze:
		getmapunits(BL_PC, getarg(0), .@players);
		freeloop(1);
		for(.@i = 0; .@i < getarraysize(.@players); .@i++)
			pcblockmove(.@players[.@i], .@mode);
		freeloop(0);
}

 

I got this error while running the command.

 

Is it also possible that this command will only be available to group ID 99? and will only work in a specific map?

[Winterfox]

-	script	FREEZE	FAKE_NPC,{
	OnInit:
		bindatcmd("freeze", strnpcinfo(3) + "::OnFreeze");
		bindatcmd("unfreeze", strnpcinfo(3) + "::OnUnfreeze");
	end;
	
	OnFreeze:
		.@mode = 1;
	OnUnfreeze:
		getmapunits(BL_PC, .@atcmd_parameters$[0], .@players);
		freeloop(1);
		for(.@i = 0; .@i < getarraysize(.@players); .@i++)
			pcblockmove(.@players[.@i], .@mode);
		freeloop(0);
}

 

[Finale]

9 minutes ago, Winterfox said:

-	script	FREEZE	FAKE_NPC,{
	OnInit:
		bindatcmd("freeze", strnpcinfo(3) + "::OnFreeze");
		bindatcmd("unfreeze", strnpcinfo(3) + "::OnUnfreeze");
	end;
	
	OnFreeze:
		.@mode = 1;
	OnUnfreeze:
		getmapunits(BL_PC, .@atcmd_parameters$[0], .@players);
		freeloop(1);
		for(.@i = 0; .@i < getarraysize(.@players); .@i++)
			pcblockmove(.@players[.@i], .@mode);
		freeloop(0);
}

 

The error is gone but I got this new message

 

[Winterfox]

2 hours ago, Finale said:

The error is gone but I got this new message

 

Well, you wanted to be able to give it a map, so you must provide a map as first parameter: @freeze prontera.

Edited September 9, 2023 by Winterfox

[Finale]

1 hour ago, Winterfox said:

Well, you wanted to be able to give it a map, so you must provide a map as first parameter: @freeze prontera.

Ohh... I see sorry I didn't understand at first. Its working!

 

Is it possible to only restrict this command to GMs? or group id 99?

[Winterfox]

-	script	FREEZE	FAKE_NPC,{
	OnInit:
		.@group = 99;
		bindatcmd("freeze", strnpcinfo(3) + "::OnFreeze", .@group);
		bindatcmd("unfreeze", strnpcinfo(3) + "::OnUnfreeze", .@group);
	end;
	
	OnFreeze:
		.@mode = 1;
	OnUnfreeze:
		getmapunits(BL_PC, .@atcmd_parameters$[0], .@players);
		freeloop(1);
		for(.@i = 0; .@i < getarraysize(.@players); .@i++)
			pcblockmove(.@players[.@i], .@mode);
		freeloop(0);
}

 

[Finale]

16 hours ago, Winterfox said:

-	script	FREEZE	FAKE_NPC,{
	OnInit:
		.@group = 99;
		bindatcmd("freeze", strnpcinfo(3) + "::OnFreeze", .@group);
		bindatcmd("unfreeze", strnpcinfo(3) + "::OnUnfreeze", .@group);
	end;
	
	OnFreeze:
		.@mode = 1;
	OnUnfreeze:
		getmapunits(BL_PC, .@atcmd_parameters$[0], .@players);
		freeloop(1);
		for(.@i = 0; .@i < getarraysize(.@players); .@i++)
			pcblockmove(.@players[.@i], .@mode);
		freeloop(0);
}

 

All good now thank you @Winterfox