VIP按级别给予特权的功能NPC脚本(2)_找搜服_传奇私服发布网_国内最大新开传奇网站

;*************************************************

<{f.3,i.2432,x.403,y.130,t.100,b.0=img}

<{f.3,i.2420,x.413,y.135,t.100,b.0=img}|点击查看【玄武】特权详情/@玄武>

{494=x}{-57=y}{尊享玄武特权=FCO=168}\

{500=x}{2=y}7天售价:19通宝\

{517=x}{7=y}<{f.3,i.2405,d.2404,x.490,y.175,t.100,b.0=img}|点击购买【玄武】7天特权^或者点击【玄武】图标可查看特权详情/@特权开通(10080,玄武,朱雀,白虎,19)>

<{f.3,i.2403,d.2402,x.540,y.175,t.100,b.0=img}|点击购买【玄武】30天特权^或者点击【玄武】图标可查看特权详情/@特权开通(43200,玄武,朱雀,白虎,19)>\

;*************************************************

{f.3,i.2406-2417,x.390,y.240,t.100,b.0=img}

;*************************************************

{30=x}{17=y}{玄武特权=FCO=70}\

{50=x}{0=y}{1.玄武特权介绍待添加=FCO=161}\

{50=x}{0=y}{2.玄武特权介绍待添加=FCO=161}\

{50=x}{0=y}{3.玄武特权介绍待添加=FCO=161}\

{50=x}{0=y}{4.玄武特权介绍待添加=FCO=161}\

{50=x}{0=y}{5.玄武特权介绍待添加=FCO=161}\

{50=x}{0=y}{6.玄武特权介绍待添加=FCO=161}\

{50=x}{0=y}{7.玄武特权介绍待添加=FCO=161}\

{50=x}{0=y}{8.玄武特权介绍待添加=FCO=161}\

;*************************************************

[@特权开通]

#if

CHECKCONTAINSTEXTLIST <$USERNAME> ../QuestDiary/<$STR(T2)>.txt

#ACT

MESSAGEBOX 开通失败!\您已开通了[<$STR(T2)>]特权,无法开启[<$STR(T1)>]特权！

goto @<$STR(T1)>

break

#if

CHECKCONTAINSTEXTLIST <$USERNAME> ../QuestDiary/<$STR(T3)>.txt

#ACT

MESSAGEBOX 开通失败!\您已开通了[<$STR(T3)>]特权,无法开启[<$STR(T1)>]特权！

goto @<$STR(T1)>

break

#IF

CHECKGAMEGOLD ? <$STR(T4)>

#ACT

INC C60 <$STR(T0)>

GAMEGOLD - <$STR(T4)>

ADDUSERDATE ../Questdiary/<$STR(T1)>.txt

MESSAGEBOX 恭喜您成功开通[<$STR(T1)>]特权,重复开通可以增加特权时间!

#ELSEACT

MESSAGEBOX 您的元宝不足<$STR(T4)>个,开通失败！

goto @<$STR(T1)>

break

#IF

CHECKUSERDATE ../Questdiary/<$STR(T1)>.txt < <$STR(C60)> p1 P2 清理分

#ACT

MOD P5 <$STR(P2)> 60

MOD P4 <$STR(P2)> 1440

DIV P4 60

DIV P3 <$STR(P2)> 1440

SENDMSG 7 您的[<$STR(T1)>]特权剩余时间为：<$STR(p3)>天<$STR(p4)>小时<$STR(p5)>分

goto @<$STR(T1)>

break

;*************************************************

以上脚本中调用了\\特权检测.txt] @特权检测：

[@特权检测]

{

#ACT

MOV S690 无

MOV S691 　

MOV P0 0

MOV P1 0

MOV P2 0

MOV N53 0

MOV N54 0

MOV N55 0

#if

NOT CHECKCONTAINSTEXTLIST <$USERNAME> ../QuestDiary/玄武.txt

NOT CHECKCONTAINSTEXTLIST <$USERNAME> ../QuestDiary/白虎.txt

NOT CHECKCONTAINSTEXTLIST <$USERNAME> ../QuestDiary/朱雀.txt

#ACT

MOV C60 0

#IF

CHECKUSERDATE ../Questdiary/玄武.txt < <$STR(C60)> p1 P2 清理分

#ACT

MOD N55 <$STR(P2)> 60

MOD N54 <$STR(P2)> 1440

DIV N54 60

DIV N53 <$STR(P2)> 1440

MOV S690 玄武

MOV S691 <{f.3,i.2425,v.2426,d.2427,x.390,y.50,t.100,b.0=img}|点击续费【玄武】30天特权^/@特权开通(43200,玄武,main,朱雀,白虎)>

#IF

CHECKUSERDATE ../Questdiary/白虎.txt < <$STR(C60)> p1 P2 清理分

#ACT

MOD N55 <$STR(P2)> 60

MOD N54 <$STR(P2)> 1440

DIV N54 60

DIV N53 <$STR(P2)> 1440

MOV S690 白虎

MOV S691 <{f.3,i.2425,v.2426,d.2427,x.390,y.50,t.100,b.0=img}|点击续费【白虎】30天特权^/@特权开通(43200,白虎,main,朱雀,玄武)>

#IF

CHECKUSERDATE ../Questdiary/朱雀.txt < <$STR(C60)> p1 P2 清理分

#ACT

MOD N55 <$STR(P2)> 60

MOD N54 <$STR(P2)> 1440

DIV N54 60

DIV N53 <$STR(P2)> 1440

MOV S690 朱雀

MOV S691 <{f.3,i.2425,v.2426,d.2427,x.390,y.50,t.100,b.0=img}|点击续费【朱雀】30天特权^/@特权开通(43200,朱雀,main,玄武,白虎)>

}

(责任编辑：找搜服传奇发布网)