风雷召唤令

meinvwudi


;风雷召唤令========
[@StdModeFunc95]
#IF
HAVEGUILD
ISGUILDMASTER
#ELSEACT
MESSAGEBOX 你不是行会老大，无法使用风雷召唤令！
GIVE 风雷召唤令 1
BREAK
#IF
#ACT
MOV A201 <$GUILDNAME>
MOV A202 <$USERNAME>
Gmexecute 开始提问 @Robot_风雷召唤令

meinvwudi

[@Robot_风雷召唤令]
#OR
CheckOffline
ISDUMMY
checktextlist ..\QuestDiary\系统功能\限制地图.txt <$MAP>
checkvar HUMAN N挂机地图号 = 10
#ACT
BREAK

#IF
NOT EQUAL A201
NOT EQUAL A202
EQUAL A201 <$GUILDNAME>
CHECKOFGUILD <$STR(A201)>
NOT COMPARETEXT <$STR(A202)> <$USERNAME>
#ACT
GetHumVar <$STR(A202)>  S$风雷地图名 <$MapTitle>
GetHumVar <$STR(A202)>  S$风雷地图码 <$Map>
GetHumVar <$STR(A202)>  S$风雷地图X  <$X> 
GetHumVar <$STR(A202)>  S$风雷地图Y  <$Y> 
#SAY
<Img|x=0.00|y=0.00|width=553.33|height=180|img=public/bg_npc_01.png|bg=1|scale9r=10|scale9t=10|scale9b=10|reset=1|scale9l=10|move=0|show=0>
<Layout|x=530.33|y=-15.00|width=80|height=80|link=@exit>
<Button|x=552.33|y=2.00|nimg=public/1900000510.png|mimg=public/1900000510.png|pimg=public/1900000511.png|width=26.00|height=42.00|link=@exit>
<Text|outline=1|a=0|x=26.67|y=21.33|color=255|size=16|text=同门师兄弟〖>
<Text|outline=1|a=0|x=122.67|y=21.33|color=70|size=16|text=<$STR(A202)>>
<Text|outline=1|a=0|x=170.67|y=21.33|color=255|size=16|text=〗在〖>
<Text|outline=1|a=0|x=218.67|y=21.33|color=70|size=16|text=<$STR(S$风雷地图名)>(<$STR(S$风雷地图X)>.<$STR(S$风雷地图Y)>)>
<Text|outline=1|a=0|x=266.67|y=21.33|color=255|size=16|text=〗遇险！>
<Text|outline=1|a=0|x=26.67|y=42.67|color=255|size=16|text=需要你的紧急支援，你是否愿意前往，助他一臂之力呢？>
<Text|outline=1|a=0|x=26.67|y=85.33|color=151|size=16|text=为兄弟九死一生|link=@风雷召唤_1>
<Text|outline=1|a=0|x=138.67|y=85.33|color=255|size=16|text=　　>
<Text|outline=1|a=0|x=170.67|y=85.33|color=151|size=16|text=和他不熟不理他|link=@EXIT>

meinvwudi

10148	风雷召唤令	31	0	1	95	0	0	1020	1		0	0	1000	154	0		9|10|14				13#1#1#1						1

meinvwudi

LUA脚本


function chuanyunjian(actor,zhaohuanzhe,mapid,x,y) --召唤者，地图id,x,y
	delbutton(actor,107,97)
	if getname(actor) ~= zhaohuanzhe and getmap(actor) ~= "tuoji" and getmap(actor) ~= "waigua" then
		--sendmsg6(actor,"穿云箭触发"..zhaohuanzhe.." "..mapid.." " .. x.." " ..y)
		local pyx = -320
		local pyy = -100
		local msg = ""
		msg = msg..'<Img|x='..  pyx ..'|y='..  pyy ..'|width=200|esc=0|bg=1|move=1|img=zh/54.png>'
		msg = msg..'<Text|x='.. 68 + pyx ..'|y='.. 10+pyy ..'|color=251|outline=1|size=18|text=穿云箭>'
		msg = msg..'<RText|ax=0.5|x='.. 100 + pyx ..'|y='.. 42+pyy ..'|color=255|outline=1|size=18|text=<'.. zhaohuanzhe ..'/FCOLOR=250>发起了行会召唤>'
		msg = msg..'<RText|x='.. 36 + pyx ..'|y='.. 67+pyy ..'|color=255|size=18|outline=1|text=<是否前往支援？/FCOLOR=254>>'
		msg = msg..'<Button|x='.. 29 + pyx ..'|y='.. 94+pyy ..'|nimg=zh/22.png|color=150|outline=1|size=18|text=前往支援|link=@zhiyuan,'..mapid..','..x..','..y..'>'
		msg = msg..'<COUNTDOWN|a=4|x='.. 92 + pyx ..'|y='.. 138+pyy ..'|time=60|count=1|outline=1|size=16|color=250|link=@close_chuanyunjian>'
		msg = msg..'<Button|x='.. 161 + pyx ..'|y='.. pyy ..'|nimg=zh/96.png|outline=1|size=18|link=@close_chuanyunjian>'
		addbutton(actor,107,97,msg)
	end
end
function zhiyuan(actor,mapid,x,y)
	if mapid == "64" then
		if getlevel(actor) < 50 then
			sendmsg9(actor,"支援此地图需要50级")
			delbutton(actor,107,97)
			return
		end
	end
	mapmove(actor,mapid,tonumber(x),tonumber(y),3)
	delbutton(actor,107,97)
end

function close_chuanyunjian(actor)
	delbutton(actor,107,97)
end

meinvwudi

右下角显示按钮实现风雷

[@Robot_风雷召唤令]
#OR
CheckOffline
ISDUMMY
checktextlist ..\QuestDiary\系统功能\限制地图.txt <$MAP>
checkvar HUMAN N挂机时间 > 0
#ACT
BREAK

#IF
NOT EQUAL A201
NOT EQUAL A202
EQUAL A201 <$GUILDNAME>
CHECKOFGUILD <$STR(A201)>
NOT COMPARETEXT <$STR(A202)> <$USERNAME>
#ACT
GetHumVar <$STR(A202)>  S$风雷地图名 <$MapTitle>
GetHumVar <$STR(A202)>  S$风雷地图码 <$Map>
GetHumVar <$STR(A202)>  S$风雷地图X  <$X> 
GetHumVar <$STR(A202)>  S$风雷地图Y  <$Y> 

delbutton 107 97
MOV S$风雷显示 <Img|x=-320|y=-100|width=200|esc=0|bg=1|move=1|img=zh/54.png>
INC S$风雷显示 <Text|x=-272|y=-90|color=249|outline=1|size=18|text=风雷召唤>
INC S$风雷显示 <RText|ax=0.5|x=-233|y=-58|color=255|outline=1|size=18|text=掌门[<$STR(A202)>]>
INC S$风雷显示 <RText|x=-305|y=-33|color=255|size=18|outline=1|text=<$STR(S$风雷地图名)>[<$STR(S$风雷地图X)>,<$STR(S$风雷地图Y)>]呼救>
INC S$风雷显示 <Button|x=-291|y=-6|nimg=zh/22.png|color=150|outline=1|size=18|text=前往支援|link=@风雷召唤_1>
INC S$风雷显示 <COUNTDOWN|a=4|x=-228|y=38|time=60|count=1|outline=1|size=16|color=250|link=@关闭风雷显示>
INC S$风雷显示 <Button|x=-159|y=-100|nimg=zh/96.png|outline=1|size=18|link=@关闭风雷显示>
addbutton   107 97 <$STR(S$风雷显示)>)


;风雷召唤令========
[@StdModeFunc95]
#IF
HAVEGUILD
ISGUILDMASTER
#ELSEACT
MESSAGEBOX 你不是行会老大，无法使用风雷召唤令！
GIVE 风雷召唤令 1
BREAK
#IF
#ACT
MOV A201 <$GUILDNAME>
MOV A202 <$USERNAME>
Gmexecute 开始提问 @Robot_风雷召唤令

[@风雷召唤_1]
#IF
CHECKLEVELEX > 34
#ACT
delbutton 107 97
mapmove <$STR(S$风雷地图码)> <$STR(S$风雷地图X)> <$STR(S$风雷地图Y)> 3
break
#ELSEACT
MESSAGEBOX 你还不到35级，就不要去送死啦！！！
BREAK

[@关闭风雷显示]
#ACT 
delbutton 107 97

[@chuanyunjian]

meinvwudi

;风雷召唤令========
[@StdModeFunc95]
#IF
NOT HAVEGUILD
#ACT
sendmsg 9  <font color='#00FF00'>你没有行会，无法使用风雷召唤令！</font>
STOP
BREAK

#IF 
#ACT
MOV  N$时间差  <$UTCNOW>   
DEC  N$时间差  <$GUILD(风雷召唤时间)>
MOV N$冷确时间 30 
DEC N$冷确时间 <$STR(N$时间差)>


#IF
SMALL  N$时间差 30
#ACT
sendmsg 9  <font color='#00FF00'>行会风雷召唤需要<$STR(N$冷确时间)>秒后才能使用！</font>
STOP
BREAK

#IF
HAVEGUILD
#ACT
CALCVAR GUILD 风雷召唤时间 = <$UTCNOW>
SAVEVAR GUILD 风雷召唤时间
MOV A201 <$GUILDNAME>
MOV A202 <$USERNAME>
Gmexecute 开始提问 @Robot_风雷召唤令
sendmsg 9  <font color='#00FF00'>行会召唤已发出！</font>

[@风雷召唤_1]
#IF
CHECKLEVELEX > 34
#ACT
delbutton 107 97
mapmove <$STR(S$风雷地图码)> <$STR(S$风雷地图X)> <$STR(S$风雷地图Y)> 2
break
#ELSEACT
MESSAGEBOX 你还不到35级，就不要去送死啦！！！
BREAK

[@关闭风雷显示]
#ACT 
delbutton 107 97

meinvwudi

[@LoadGuild]
#IF
#ACT
VAR INTEGER GUILD 风雷召唤时间 


[@Robot_风雷召唤令]
#OR
CheckOffline
ISDUMMY
checktextlist ..\QuestDiary\系统功能\限制地图.txt <$MAP>
checkvar HUMAN N挂机时间 > 0
#ACT
BREAK

#IF
NOT EQUAL A201
NOT EQUAL A202
EQUAL A201 <$GUILDNAME>
CHECKOFGUILD <$STR(A201)>
NOT COMPARETEXT <$STR(A202)> <$USERNAME>
#ACT
GetHumVar <$STR(A202)>  S$风雷地图名 <$MapTitle>
GetHumVar <$STR(A202)>  S$风雷地图码 <$Map>
GetHumVar <$STR(A202)>  S$风雷地图X  <$X> 
GetHumVar <$STR(A202)>  S$风雷地图Y  <$Y> 
delbutton 107 97
MOV S$风雷显示 <Img|x=-320|y=-100|width=200|esc=0|bg=1|move=1|img=zh/54.png>
INC S$风雷显示 <Text|x=-272|y=-90|color=249|outline=1|size=18|text=风雷召唤>
INC S$风雷显示 <RText|ax=0.5|x=-233|y=-58|color=255|outline=1|size=18|text=行会[<$STR(A202)>]>
INC S$风雷显示 <RText|x=-305|y=-33|color=255|size=18|outline=1|text=<$STR(S$风雷地图名)>[<$STR(S$风雷地图X)>,<$STR(S$风雷地图Y)>]呼救>
INC S$风雷显示 <Button|x=-291|y=-6|nimg=zh/22.png|color=150|outline=1|size=18|text=前往支援|link=@风雷召唤_1>
INC S$风雷显示 <COUNTDOWN|a=4|x=-228|y=38|time=60|count=1|outline=1|size=16|color=250|link=@关闭风雷显示>
INC S$风雷显示 <Button|x=-159|y=-100|nimg=zh/96.png|outline=1|size=18|link=@关闭风雷显示>
addbutton   107 97 <$STR(S$风雷显示)>)

meinvwudi

;风雷召唤令========
[@StdModeFunc95]
#IF
not HAVEGUILD
#ACT
sendmsg 9  <font color='#00FF00'>你没有行会，无法使用风雷召唤令！</font>
STOP
BREAK

#IF
CheckInWarArea
#ACT
sendmsg 9  <font color='#00FF00'>攻城区域,禁止使用风雷召唤令！</font>
STOP
BREAK
 


#if 
#ACT
mov  N$时间差  <$UTCNOW>   
dec  N$时间差  <$GUILD(风雷召唤时间)>
mov N$冷确时间 30 
dec N$冷确时间 <$STR(N$时间差)>
 
 
#IF
small  N$时间差 30
#ACT
sendmsg 9  <font color='#00FF00'>行会风雷召唤需要<$STR(N$冷确时间)>秒后才能使用！</font>
STOP
BREAK
 
#IF
HAVEGUILD
#ACT
calcvar GUILD 风雷召唤时间 = <$UTCNOW>
savevar GUILD 风雷召唤时间
mov A201 <$GUILDNAME>
mov A202 <$USERNAME>
gmexecute 开始提问 @Robot_风雷召唤令
sendmsg 9  <font color='#00FF00'>行会召唤已发出！</font>
 
[@风雷召唤_1]
#IF
checklevelex > 34
#ACT
delbutton 107 97
calllua NpcLua/chuansongyuan fl_enter_map,<$STR(S$风雷地图名)>,<$STR(S$风雷地图码)>,<$STR(S$风雷地图X)>,<$STR(S$风雷地图Y)>
break
#ELSEACT
messagebox 你还不到35级，就不要去送死啦！！！
BREAK
 
[@关闭风雷显示]
#act 
delbutton 107 97