烈焰私服红包捐献版脚本

目前大伙普遍使用的都是红包捐献版的烈焰GS(游戏引擎),但很多人不会写红包捐献的脚本.今天我们就来看看,这个红包捐献怎么写吧.下面是红包捐献的lua脚本代码了.对烈焰服务端的脚本有所了解的应该都知道,烈焰服务端的脚本语言是LUA.该脚本其实有点像PHP.相对而言还是比较容易理解的.

function OnRedenvelopeDo(player,money)
	 if player:get_vcoin() > money then
		 player:sub_vcoin(money);	
		 player:add_donate(money);	
		 local i = money*0.70;		
		 player:alert(10,0,0,"成功捐献"..money.."元宝,"..i.."元宝进入奖池");
		 player:alert(14,1,0,"玩家"..player:GetName().."捐献"..money.."元宝到红包池,大家赶快抢红包吧");
		 return i;
	 end
	return 0;
end


function OnRedenvelopeGo(player,money)
	 if player:get_player_type() > 1 then		
		 local i = math.random(1,100000);
		 if money < i then
			 i=money;
		 end
		 player:alert(0,0,0,"获得 "..i.." 元宝");
		 return i;
	 end
	 player:alert(10,0,0,"VIP玩家才可抢元宝,充值10元即可成为VIP");
	return 0;
end


function OnCityMoneyGo(player,type)

	local t = tonumber(os.date("%H%M",os.time()));
	local num= g_get_param(50);
	local msg="活动还未开始"
	if type==1 then
		if t > 2200 then 
			if num == 0 then
				msg = "活动已结束";
			else
				msg = "活动进行中剩余元宝"..num;
			end
			
		end
		player:SendCityMoneyInfo(msg);
		return 1;
	end

	if type==2 and player:get_king_guild() == 1  then
		
		 local money = math.random(1,100000);
		 if num < money then
			 money=num;
			 g_set_param(50,g_get_param(50)-money);
		 end
		 return money;
	 end
	 player:alert(10,0,0,"只有占领王城的帮会成员才能参与");
	return 0;
end

RegisterServerHook(64,"OnRedenvelopeDo")
RegisterServerHook(65,"OnRedenvelopeGo")
RegisterServerHook(66,"OnCityMoneyGo")

以上内容必须全部复制到脚本内,脚本的编码并且是UTF-8的,不然会出现乱码的噢