买药自动喝药

meinvwudi · 5 月 '24

require("Envir/Market_Def/NpcLua/zh.lua") --个人封装函数

-----------------------------引路人NPC
function show(actor)
	-- if getint(actor,"完成任务id") == 15 then
	-- 	newdeletetask(actor,16) --删除任务16
	-- 	setint(actor,"完成任务id",16)
	-- 	addbindgold(actor,10000)
	-- 	sendmsg9(actor,"了解药品，获得金币*10000")
	-- 	callscriptex(actor, "CallLua", "QFunction-0", "@renwupanduan") --任务系统
	-- end
	
	local msg = [[
	<Img|width=530|height=250|esc=1|bg=1|scale9r=10|scale9t=10|loadDelay=1|scale9b=10|scale9l=10|move=0|img=public/bg_npc_04.jpg|reset=1|show=0>
	<Img|x=9.0|y=9.0|height=232|img=/210.png|esc=0>
	<Button|x=529.0|y=2.0|nimg=public/1900000510.png|pimg=public/1900000511.png|link=@exit>
	<Img|x=132.0|y=26.0|img=image/title_91.png|esc=0>
	<Img|x=313.0|y=26.0|img=image/title_92.png|esc=0>
	<Text|ax=0.5|ay=0.5|x=264.0|y=31.0|color=243|size=18|text=药店老板>
	<Img|x=34.0|y=50.0|img=slws/203.png|esc=0>
	<Text|x=25.0|y=65.0|color=255|size=18|text=你好，我是给冒险者提供药品服务的老者，请问需要点什么？>
	<Text|ay=0.5|x=51.0|y=150.5|size=18|color=250|text=购买药品|link=@goumaiyaopin>
	
	<Text|ay=0.5|x=180.0|y=150.5|color=250|size=18|text=好的，我知道了|link=@exit>
	
	]]
	
	say(actor,msg)
end

local yao_t = {
	{"强效金创药包",1,5000},{"强效魔法药包",1,5000},{"强效太阳水",1,500},{"强效太阳水",10,5000},{"万年雪霜",1,1000},{"万年雪霜",10,10000},{"万年雪霜包",1,5}
}


function goumaiyaopin(actor,yemian,xzid)
	yemian = tonumber(yemian) or 1
	xzid = tonumber(xzid) or 0
	local msg = [[
		<Img|width=530|height=250|esc=1|bg=1|scale9r=10|scale9t=10|loadDelay=1|scale9b=10|scale9l=10|move=0|img=public/bg_npc_04.jpg|reset=1|show=0>
		<Img|x=9.0|y=9.0|height=232|img=slws/210.png|esc=0>
		<Button|x=529.0|y=2.0|nimg=public/1900000510.png|pimg=public/1900000511.png|link=@exit>
		<Img|x=159.0|y=22.0|img=slws/142.png|esc=0>
		<Img|x=315.0|y=22.0|img=slws/143.png|esc=0>
		<Text|ax=0.5|ay=0.5|x=264.0|y=31.0|color=251|size=18|text=药店老板>
		<Img|x=34.0|y=50.0|img=slws/203.png|esc=0>
		<RText|x=25.0|y=60.0|color=255|size=16|text=为了给你足够的体验，本服普通药品不占背包，高效续航>
		<RText|x=25.0|y=83.0|color=255|size=16|text=不用再为打怪PK无药而烦恼>
		<RText|x=25.0|y=106.0|color=255|size=16|text=强效金创药包以及强效魔法药包购买后将自动存入内挂保护功能中>
		<RText|x=25.0|y=129.0|color=255|size=16|text=请在内挂保护中设置好使用规则>
		<RText|x=25.0|y=152.0|color=255|size=16|text=每次购买存储量增加<5000/FCOLOR=250>，新人上线赠送<50万/FCOLOR=250>储量>
		
		<Text|ay=0.5|x=51.0|y=214.5|size=18|color=250|text=返回|link=@show>
		<Img|x=26.0|y=206.0|img=slws/211.png|esc=0>
		<Img|x=1.0|y=250.0|img=zh/80.png|link=@kong>
			
	]]

	if yemian == 1 then
		msg=msg.."<Button|x=28.0|y=488.0|nimg=zh/82.png|color=255|size=18|pimg=zh/83.png|link=@kong>"
		msg=msg.."<Button|x=123.0|y=488.0|nimg=zh/84.png|color=255|size=18|pimg=zh/85.png|link=@goumaiyaopin,1>"
	else
		msg=msg.."<Button|x=28.0|y=488.0|nimg=zh/82.png|color=255|size=18|pimg=zh/83.png|link=@goumaiyaopin,1>"
		msg=msg.."<Button|x=123.0|y=488.0|nimg=zh/84.png|color=255|size=18|pimg=zh/85.png|link=@kong>"
	end
	
	msg=msg.."<Text|ax=0.5|ay=0.5|x=99.5|y=512.5|color=255|size=18|text=".. yemian .."/1>"
	
	

	local xuhao = 0
	for i = 1+(yemian-1)*8,8+(yemian-1)*8 do
		if yao_t[i] == nil then
			break
		end
		-- if i >= 12 then
		-- 	if getlevel(actor) < 65 and getbaseinfo(actor,39) == 0 then
		-- 		break
		-- 	end
		-- end
		
		msg=msg.."<Img|x=".. 19+xuhao%2*149 .."|y=".. 268+math.floor(xuhao/2)*52 .."|width=145|height=50|esc=0|img=slws/148.png|link=@goumaiyaopin,".. yemian..",".. i ..">"
		msg=msg.."<Img|x=".. 20+xuhao%2*149 .."|y=".. 269+math.floor(xuhao/2)*52 .."|img=zh/81.png|esc=0>"
		msg=msg.."<ItemShow|x=".. 11+xuhao%2*149 .."|y=".. 260+math.floor(xuhao/2)*52 .."|width=70|height=70|itemid=".. getidbyname(yao_t[i][1]) .."|itemcount=1|showtips=1|bgtype=0>"
		if yao_t[i][2] > 1 then
			msg=msg.."<Text|ay=0.5|x=".. 23+xuhao%2*149 .."|y=".. 305+math.floor(xuhao/2)*52 .."|outline=1|color=255|size=14|text=".. yao_t[i][2] ..">"
		end
		msg=msg.."<Text|ay=0.5|x=".. 70+xuhao%2*149 .."|y=".. 283+math.floor(xuhao/2)*52 .."|color=255|size=14|text=".. yao_t[i][1] ..">"
		if i > 6 then
			msg=msg.."<Text|ay=0.5|x=".. 70+xuhao%2*149 .."|y=".. 305+math.floor(xuhao/2)*52 .."|color=255|size=14|text=".. yao_t[i][3] .."元宝>"
		else
			msg=msg.."<Text|ay=0.5|x=".. 70+xuhao%2*149 .."|y=".. 305+math.floor(xuhao/2)*52 .."|color=255|size=14|text=".. yao_t[i][3] .."金币>"
		end
		if xzid == i then
			msg=msg.."<Img|x=".. 18+xuhao%2*149 .."|y=".. 267+math.floor(xuhao/2)*52 .."|width=147|height=52|scale9b=0|scale9r=0|scale9t=0|img=slws/45.png|scale9l=0|esc=0>"
		end

		xuhao = xuhao + 1
	end
		
	msg=msg.."<Button|x=228.0|y=497.0|nimg=zh/86.png|color=255|size=18|pimg=zh/87.png|link=@goumai,".. xzid ..">"
	say(actor,msg)
end

function goumai(actor,par)
	local zhekou = 1
	
	par = tonumber(par)
	if par == 0 then
		sendmsg9(actor,"请选择购买的药品")
		return
	end
	if par == 1 then
		if getint(actor,"存储红量") >= 500000 then
			sendmsg9(actor,"HP存储量已满")
			return
		end
		
		if getbindgold(actor) < 5000 then
			sendmsg9(actor,"金币不足".. 5000)
			return
		end

		subbindgold(actor, 5000*zhekou)
		setint(actor, "存储红量", getint(actor,"存储红量")+5000)
		if getint(actor,"存储红量") >= 500000 then
			setint(actor,"存储红量",500000)
		end
		sendmsg9(actor,"购买成功，当前HP储量"..getint(actor,"存储红量"))
		callscriptex(actor, "CallLua", "yaodian", "@chuliangxiangshi")
		return
	end
	if par == 2 then
		if getint(actor,"存储蓝量") >= 500000 then
			sendmsg9(actor,"MP存储量已满")
			return
		end 
		if getbindgold(actor) < 5000*zhekou then
			sendmsg9(actor,"金币不足".. 5000*zhekou)
			return
		end
		subbindgold(actor,5000*zhekou)
		setint(actor,"存储蓝量",getint(actor,"存储蓝量")+5000)
		if getint(actor,"存储蓝量") >= 500000 then
			setint(actor,"存储蓝量",500000)
		end
		sendmsg9(actor,"购买成功，当前MP储量"..getint(actor,"存储蓝量"))
		callscriptex(actor, "CallLua", "yaodian", "@chuliangxiangshi")
		return
	end
	-- 元宝购买的药店
	if par > 6 then
		if getbagblank(actor) < yao_t[par][2] then
			sendmsg9(actor,"背包空格不足".. yao_t[par][2] .."格")
			return
		end

		if getingot(actor) < yao_t[par][3] then
			sendmsg9(actor,"元宝不足".. yao_t[par][3])
			return
		end

		subingot(actor,yao_t[par][3],"买药")
		giveitem(actor,yao_t[par][1],yao_t[par][2],0)
		sendmsg9(actor,"购买成功")
		return
	end
	-- 普通药品
	if getbagblank(actor) < yao_t[par][2] then
		sendmsg9(actor,"背包空格不足")
		return
	end
	if getbindgold(actor) < yao_t[par][3]*zhekou then
		sendmsg9(actor,"金币不足"..yao_t[par][3]*zhekou)
		return
	end

	local bind = 0
	-- 有绑定金币,先扣,设置物品绑定规则
	if getbindjinbi(actor) > 0 then
		bind = 370
	end

	subbindgold(actor,yao_t[par][3]*zhekou)
	giveitem(actor,yao_t[par][1],yao_t[par][2],bind)
	sendmsg9(actor,"购买成功")

	return
end


function chuliangxiangshi(actor) --红蓝储量显示
	delbutton(actor, 303, 2)
	local msg = ""
	if getispc(actor) then --端游
		msg = msg .."<RText|ay=0.5|x=282.0|y=272.5|color=31|outline=1|size=16|text=ＨＰ 每秒恢复15点　当前已存储 ".. getint(actor,"存储红量") .."点>"
		msg = msg .."<RText|ay=0.5|x=282.0|y=331.5|color=154|outline=1|size=16|text=ＭＰ 每秒恢复20点　当前已存储 ".. getint(actor,"存储蓝量") .."点>"
	else
		msg = msg .."<RText|ay=0.5|x=362.0|y=312.5|color=31|outline=1|size=16|text=ＨＰ 每秒恢复15点　当前已存储 ".. getint(actor,"存储红量") .."点>"
		msg = msg .."<RText|ay=0.5|x=362.0|y=371.5|color=154|outline=1|size=16|text=ＭＰ 每秒恢复20点　当前已存储 ".. getint(actor,"存储蓝量") .."点>"
	end
	addbutton(actor, 303, 2, msg)
end


function meimiaohuixue(actor)
	-- haoshistart(actor)
	--sendmsg6(actor,"死亡"..tostring(getbaseinfo(actor,0)))
	if not getbaseinfo(actor,0) and getbaseinfo(actor,9) > 0 then --未死亡状态
		local shuaxin = 0

		if getbaseinfo(actor,9) < getbaseinfo(actor,10) then	
			if getint(actor,"红量自动恢复") == 1 and  getbaseinfo(actor,9)/getbaseinfo(actor,10) < getint(actor,"红量恢复百分比")/100 and getint(actor,"存储红量") >=15 then
				local morenhp = 15
				shuaxin = 1
				setint(actor, "存储红量", getint(actor,"存储红量") - morenhp)

				local chazhi = getbaseinfo(actor,10) - getbaseinfo(actor,9) --血量差值
				if chazhi < morenhp then --小于15点的情况
					morenhp = chazhi
				end
				setbaseinfo(actor, 9, getbaseinfo(actor,9) + morenhp)
				healthspellchanged(actor)
				sendattackeff(actor, 4, morenhp, "*")
			end
		end

		if getbaseinfo(actor,11) < getbaseinfo(actor,12) then
			if getint(actor,"蓝量自动恢复") == 1 and  getbaseinfo(actor,11)/getbaseinfo(actor,12) < getint(actor,"蓝量恢复百分比")/100 and getint(actor,"存储蓝量") >=20 then
				local morenmp = 20
				shuaxin = 1
				setint(actor,"存储蓝量", getint(actor,"存储蓝量") - morenmp)			
				-- sendmsg6(actor, "mp+" .. morenmp)
				humanmp(actor,"+", morenmp, 1000)
			end			
		end

		if shuaxin == 1 then
			callscriptex(actor, "CallLua", "yaodian", "@chuliangxiangshi")
		end
	end
	-- haoshiend(actor)
end


function baohujiemian(actor) --保护界面
	delbutton(actor,303 ,1)
	local msg = ""
	setplaydef(actor,"N51",getint(actor,"红量恢复百分比"))
	setplaydef(actor,"N52",getint(actor,"蓝量恢复百分比"))
	if getispc(actor) then --端游
		msg = "<Img|x=0|y=225|img=slws/235.png|esc=0>"
		msg = msg.."<RText|x=10.0|y=362.0|color=255|size=16|outline=1|text=提示:<先设置自动回血百分比,再点击前面勾选即可/FCOLOR=254> <存储量为0时,请前往土城药店购买/FCOLOR=250>>"
		
		---红
		msg = msg .."<Text|ax=0.5|ay=0.5|x=120.5|y=247.5|size=16|outline=1|color=255|text=生命值低于$STM(SLIDERV_N51)% 自动恢复>"
		--msg = msg .."<RText|ax=0.5|ay=0.5|x=120.5|y=247.5|size=16|outline=1|color=255|text=生命值低于<".. getint(actor,"红量恢复百分比") .."%/FCOLOR=31> 自动恢复>"
		msg = msg .."<Slider|sliderid=N51|x=47.0|y=265.0|width=150|height=14|defvalue=".. getint(actor,"红量恢复百分比") .."|bgimg=public/bg_szjm_01.png|barimg=public/bg_szjm_02.png|ballimg=public/bg_szjm_02_1.png|link=@lagan#滑栏类型=1>"				
		if getint(actor,"红量自动恢复") == 0 then
			msg = msg .."<Img|x=244.0|y=258.0|img=zh/77.png|link=@baohugouxuan#血量保护勾选种类=1>"
		else
			msg = msg .."<Img|x=244.0|y=258.0|img=zh/78.png|link=@baohugouxuan#血量保护勾选种类=1>"
		end
		
		---蓝
		msg = msg .."<Text|ax=0.5|ay=0.5|x=120.5|y=307.5|outline=1|color=255|size=16|text=魔法值低于$STM(SLIDERV_N52)% 自动恢复>"	
		--msg = msg .."<RText|ax=0.5|ay=0.5|x=120.5|y=307.5|outline=1|color=255|size=16|text=魔法值低于<".. getint(actor,"蓝量恢复百分比") .."%/FCOLOR=154> 自动恢复>"		
		msg = msg .."<Slider|sliderid=N52|x=47.0|y=325.0|width=150|height=14|defvalue=".. getint(actor,"蓝量恢复百分比") .."|bgimg=public/bg_szjm_01.png|barimg=public/bg_szjm_02.png|ballimg=public/bg_szjm_02_1.png|link=@lagan#滑栏类型=2>"
		if getint(actor,"蓝量自动恢复") == 0 then
			msg = msg .."<Img|x=244.0|y=318.0|img=zh/77.png|link=@baohugouxuan#血量保护勾选种类=2>"
		else
			msg = msg .."<Img|x=244.0|y=318.0|img=zh/78.png|link=@baohugouxuan#血量保护勾选种类=2>"
		end
		
	else	--手游
		msg = "<Img|x=0|y=260|img=slws/235.png|esc=0>"
		msg = msg.."<RText|x=70.0|y=402.0|color=255|size=16|outline=1|text=提示:<先设置自动回血百分比,再点击前面勾选即可/FCOLOR=254> <存储量为0时,请前往土城药店购买/FCOLOR=250>>"
		
		---红
		msg = msg .."<Text|ax=0.5|ay=0.5|x=146.5|y=287.5|size=16|outline=1|color=255|text=生命值低于$STM(SLIDERV_N51)% 自动恢复>"
		--msg = msg .."<RText|ax=0.5|ay=0.5|x=146.5|y=287.5|size=16|outline=1|color=255|text=生命值低于<".. getint(actor,"红量恢复百分比") .."%/FCOLOR=31> 自动恢复>"
		msg = msg .."<Slider|sliderid=N51|x=41.0|y=305.0|width=210|height=14|defvalue=".. getint(actor,"红量恢复百分比") .."|bgimg=public/bg_szjm_01.png|barimg=public/bg_szjm_02.png|ballimg=public/bg_szjm_02_1.png|link=@lagan#滑栏类型=1>"				
		if getint(actor,"红量自动恢复") == 0 then
			msg = msg .."<Img|x=324.0|y=298.0|img=zh/77.png|link=@baohugouxuan#血量保护勾选种类=1>"
		else
			msg = msg .."<Img|x=324.0|y=298.0|img=zh/78.png|link=@baohugouxuan#血量保护勾选种类=1>"
		end
		
		---蓝
		msg = msg .."<Text|ax=0.5|ay=0.5|x=146.5|y=347.5|outline=1|color=255|size=16|text=魔法值低于$STM(SLIDERV_N52)% 自动恢复>"		
		--msg = msg .."<RText|ax=0.5|ay=0.5|x=146.5|y=347.5|outline=1|color=255|size=16|text=魔法值低于<".. getint(actor,"蓝量恢复百分比") .."%/FCOLOR=154> 自动恢复>"		
		msg = msg .."<Slider|sliderid=N52|x=41.0|y=365.0|width=210|height=14|defvalue=".. getint(actor,"蓝量恢复百分比") .."|bgimg=public/bg_szjm_01.png|barimg=public/bg_szjm_02.png|ballimg=public/bg_szjm_02_1.png|link=@lagan#滑栏类型=2>"
		if getint(actor,"蓝量自动恢复") == 0 then
			msg = msg .."<Img|x=324.0|y=358.0|img=zh/77.png|link=@baohugouxuan#血量保护勾选种类=2>"
		else
			msg = msg .."<Img|x=324.0|y=358.0|img=zh/78.png|link=@baohugouxuan#血量保护勾选种类=2>"
		end
		
	end
	addbutton(actor,303 ,1,msg)
	chuliangxiangshi(actor) --储量显示
end


function baohugouxuan(actor,par)
	-- sendmsg9(actor, "勾了..." .. par)
	if par == "1" then
		if getint(actor,"红量自动恢复") == 0 then
			setint(actor,"红量自动恢复",1)
		else
			setint(actor,"红量自动恢复",0)
		end
		-- sendmsg6(actor, "红的显示状态:" .. getint(actor, "红量自动恢复"))
	else
		if getint(actor,"蓝量自动恢复") == 0 then
			setint(actor,"蓝量自动恢复",1)
		else
			setint(actor,"蓝量自动恢复",0)
		end
		-- sendmsg6(actor, "蓝的显示状态:" .. getint(actor, "蓝量自动恢复"))
	end
	return baohujiemian(actor)
end

function lagan(actor,par)
	if par == "1" then
		setint(actor,"红量恢复百分比",getplaydef(actor,"N51"))
	else
		setint(actor,"蓝量恢复百分比",getplaydef(actor,"N52"))
	end
	return baohujiemian(actor)
end


----------------红蓝存储量
function check_hp_mp_capacity(actor) --30秒定时器
	if getint(actor,"红量自动恢复") == 1 and getint(actor,"存储红量") < 15 then
		sendmsg9(actor,"生命值存储量不足 请前往土城药店补充药品")
	end

	if getint(actor,"蓝量自动恢复") == 1 and  getint(actor,"存储蓝量") < 20 then
		sendmsg9(actor,"魔法值存储量不足 请前往土城药店补充药品")
	end

end

function playborn(actor)
		--------新人登录段
	if getbaseinfo(actor,47) then --新人登录
		setint(actor,"红量恢复百分比",90)
		setint(actor,"蓝量恢复百分比",80)
		setint(actor,"红量自动恢复",1)
		setint(actor,"蓝量自动恢复",1)
		setint(actor,"存储红量",500000)
		setint(actor,"存储蓝量",500000)
	end
end

meinvwudi · 5 月 '24

QM人物上线和定时器

#IF
CHECKLEVELEX > 0
#ACT
CALLLUA /NpcLua/yaodian baohujiemian

meinvwudi · 5 月 '24

[@OnTimer2]
#ACT 
CALLLUA /NpcLua/yaodian @check_hp_mp_capacity

[@OnTimer13]
#IF
#ACT 
CALLLUA /NpcLua/yaodian @meimiaohuixue

meinvwudi · 5 月 '24

QM人物上线和定时器

#IF
CHECKLEVELEX > 0
#ACT
CALLLUA /NpcLua/yaodian baohujiemian
SetOnTimer 13 1
SetOntimer 2 30

meinvwudi · 5 月 '24

滑动拉杆

[@lagan]
#ACT 
CALLLUA /NpcLua/yaodian @lagan,<$STR(S$滑栏类型)>

meinvwudi · 5 月 '24

新人出生

#IF
ISNEWHUMAN
#ACT
CALLLUA /NpcLua/yaodian @playborn

买药自动喝药

Mmeinvwudi

Mmeinvwudi

Mmeinvwudi

Mmeinvwudi

Mmeinvwudi

Mmeinvwudi