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。
總結
以上是生活随笔為你收集整理的php机器码领取,通过IP和机器码来限制用户领取奖励脚本的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: 开发小程序和上线需要哪些费用
- 下一篇: (四) XML(extensible M