Author Topic: Multi HWID Blocker  (Read 3523 times)

0 Members and 1 Guest are viewing this topic.

Offline Savage

  • Soldier
  • **
  • Posts: 155
Multi HWID Blocker
« on: September 13, 2016, 11:47:49 am »
Script Name: Multi HWID Blocker
Script Description: Script does not allow players to play on server multiple times at once on the same machine.
Original Author(s): Savage
Compilation: Passed
Core Version: 2.8.1 (SC3)

Code: [Select]
//Multi HWID Blocker by Savage

function OnRequest(Ip, Hw: string; Port: Word; State: Byte; Forwarded: Boolean; Password: string): Integer;
var
i: Byte;
begin
Result := State;

if State=1 then
for i := 1 to 32 do
if (Players[i].Active) and (Players[i].HWID=HW) then begin
Result := 0;
break;
end;
end;

begin
Game.OnRequest := @OnRequest;
end.