php机器码领取,通过IP和机器码来限制用户领取奖励脚本

各位GM估计遇到过苦闷的事，想弄一个奖励领取出来，但是又担心玩家换IP，换电脑申请多帐号重复领取，虽然装备物品类可以设置绑定，但是元宝绑定后有诸多不便，我也是被此问题所苦恼，故写出如下脚本。

NPC脚本：

Www.5uWl.Net

IF not (Player.VarString('测试奖励领取IP').AsString = Player.IP) and not (Player.VarString('测试奖励领取机器码').AsString = Player.MachineCode) and (Player.N[47] = 0) then

begin

Player.GameGold := Player.GameGold + 100000;

Player.GoldChanged;

Player.VarString('测试奖励领取IP').AsString:= Player.IP; 本文来无忧网络

Player.VarString('测试奖励领取IP').Save;

Player.VarString('测试奖励领取机器码').AsString:= Player.MachineCode;

Player.VarString('测试奖励领取机器码').Save;

Player.N[47]:=1;

end else Player.Messagebox('你今天已经领取过奖励了！')

本文来无忧网络

此脚本的意思是如果当前玩家的IP和机器码不等于变量IP和变量机器码，并且玩家变量等于0时，

则获得10W元宝，并把变量IP和变量机器码保存为玩家IP和玩家机器码，玩家变量赋值为1 Www.5uWl.Net

登录脚本：

var

内容来自5 u w l.net

T1,T2 : TDateTime;

S1,S2 : string;

begin

T1 := incday(date,-1);

S1 := FormatDateTime('yyyy/mm/dd',T1);

S2 := S1 + ' 23:59:59';

T2 := StrToDateTime(s2);

if DateUtils.MinuteSpan(Now, T2) > 1 then

begin

Player.VarString('测试奖励领取IP').AsString:= '';

Player.VarString('测试奖励领取IP').Save;

Player.VarString('测试奖励领取机器码').AsString:= '';

Player.VarString('测试奖励领取机器码').Save;

Player.N[47]:=0;

copyright 5Uwl

end; 内容来自5 u w l.net

此脚本的意思是获取玩家前一天当前时间的时间值，然后输出前一天时间的年月日，再给年月日加上字符串时间，

再把获得的年月日时分秒转换为时间值，如果当前时间的时间值和获得的时间的时间值相差分钟数大于1，则把

copyright 5Uwl

变量IP和变量机器码赋值为空白，最后把玩家变量赋值为0.

Www.5uWl.Net

不过此方法无法防止既换IP又换电脑的玩家，如果有玩家换一个网吧就亦然可以申请新角色刷奖励。另外如果在网吧，

有一人领取过奖励后整个网吧的其他人将不能领取奖励，此为本脚本的BUG。