[BLUE引擎]传奇版本礼盒赠送脚本完整版参考

gm下载站 · 发表于 2025-1-4 17:45:01

马上注册，查看更多内容，丰富传奇GM资源等你下载探索。

您需要登录才可以下载或查看，没有账号？立即注册

x

礼盒赠送脚本：
此脚本可供用户参考制作防盛大赠送鲜花，十全十美礼盒，周年庆积分等等特色脚本。

[@main]
你想做什么？\
<我要赠送/@赠送> <获取装备/@装备>\
<离开/@exit>

[@装备]
#ACT
GIVEEX 屠龙10=1,1=2,2=3,3=4,4=5,5=6,6=7,7=8,14=9,15=10
GIVEEX 嗜魂法杖10=1,1=2,2=3,3=4,4=5,5=6,6=7,7=8,14=9,15=10
GIVEEX 道德戒指10=1,1=2,2=3,3=4,4=5,5=6,6=7,7=8,14=9,15=10
GIVEEX 珊瑚戒指10=1,1=2,2=3,3=4,4=5,5=6,6=7,7=8,14=9,15=10
GIVEEX 死神手套10=1,1=2,2=3,3=4,4=5,5=6,6=7,7=8,14=9,15=10
GIVEEX 铁手镯10=1,1=2,2=3,3=4,4=5,5=6,6=7,7=8,14=9,15=10
GIVEEX 灯笼项链10=1,1=2,2=3,3=4,4=5,5=6,6=7,7=8,14=9,15=10
GIVEEX 蓝翡翠项链10=1,1=2,2=3,3=4,4=5,5=6,6=7,7=8,14=9,15=10

[@赠送]
#IF
#ACT
QUERYVALUE 2 0 14 @检测朋友越多，快乐越多，千金易得，挚友难求啊！请输入赠送对象名称： QF

[@检测]
#IF
EQUAL S2 <$USERNAME>
#ACT
MessageBox 不能对自己发送赠送。
BREAK
#IF
CHECKONLINE <$STR(S2)>
#ACT
DELAYCALL 10 @DELAY_UPGRADEDLGITEM
#ELSEACT
MessageBox <$STR(S2)>\不在线，你不能赠送！

[@DELAY_UPGRADEDLGITEM]
#ACT
QUERYITEMDLG 请放入赠送物品 @CHECKDLGITEMTYPE 0

[@CHECKDLGITEMTYPE]
#IF
CHECKDLGITEMTYPE WEAPON
CHECKONLINE <$STR(S2)>
#ACT
SENDMSG 0 <$STR(S2)>收到了友人:<$USERNAME>,赠送的：<$DLGITEMNAME> 246 245
GETDLGITEMVALUE M1 0
GETDLGITEMVALUE M2 1
GETDLGITEMVALUE M3 2
GETDLGITEMVALUE M4 3
GETDLGITEMVALUE M5 4
GETDLGITEMVALUE M6 5
GETDLGITEMVALUE M7 6
GETDLGITEMVALUE M8 7
GETDLGITEMVALUE M9 14
GETDLGITEMVALUE M1015
<$STR(S2)>.GIVEEX<$DLGITEMNAME>10=<$STR(M1)>,1=<$STR(M2)>,2=<$STR(M3)>,3=<$STR(M4)>,4=<$STR(M5)>,5=<$STR(M6)>,6=<$STR(M7)>,7=<$STR(M8)>,14=<$STR(M9)>,15=<$STR(M10)>
<$STR(S2)>.SENDMSG 5 你收到了友人赠送的：<$DLGITEMNAME>
MOV M1 0
MOV M2 0
MOV M3 0
MOV M4 0
MOV M5 0
MOV M6 0
MOV M7 0
MOV M8 0
MOV M9 0
MOV M10 0
TAKEDLGITEM
CLOSE
BREAK
#IF
CHECKDLGITEMTYPE DRESS
CHECKONLINE <$STR(S2)>
#ACT
SENDMSG 0 <$STR(S2)>收到了友人:<$USERNAME>,赠送的：<$DLGITEMNAME> 246 245
GETDLGITEMVALUE M1 0
GETDLGITEMVALUE M2 1
GETDLGITEMVALUE M3 2
GETDLGITEMVALUE M4 3
GETDLGITEMVALUE M5 4
GETDLGITEMVALUE M9 14
GETDLGITEMVALUE M1015
<$STR(S2)>.GIVEEX<$DLGITEMNAME>10=<$STR(M1)>,1=<$STR(M2)>,2=<$STR(M3)>,3=<$STR(M4)>,4=<$STR(M5)>,14=<$STR(M9)>,15=<$STR(M10)>
<$STR(S2)>.SENDMSG 5 你收到了友人赠送的：<$DLGITEMNAME>
MOV M1 0
MOV M2 0
MOV M3 0
MOV M4 0
MOV M5 0
MOV M9 0
MOV M10 0
TAKEDLGITEM
CLOSE
BREAK
#IF
CHECKDLGITEMTYPE MEDAL
CHECKONLINE <$STR(S2)>
#ACT
SENDMSG 0 <$STR(S2)>收到了友人:<$USERNAME>,赠送的：<$DLGITEMNAME> 246 245
GETDLGITEMVALUE M1 0
GETDLGITEMVALUE M2 1
GETDLGITEMVALUE M3 2
GETDLGITEMVALUE M4 3
GETDLGITEMVALUE M5 4
GETDLGITEMVALUE M9 14
GETDLGITEMVALUE M1015
<$STR(S2)>.GIVEEX<$DLGITEMNAME>10=<$STR(M1)>,1=<$STR(M2)>,2=<$STR(M3)>,3=<$STR(M4)>,4=<$STR(M5)>,14=<$STR(M9)>,15=<$STR(M10)>
<$STR(S2)>.SENDMSG 5 你收到了友人赠送的：<$DLGITEMNAME>
MOV M1 0
MOV M2 0
MOV M3 0
MOV M4 0
MOV M5 0
MOV M9 0
MOV M10 0
TAKEDLGITEM
CLOSE
BREAK
#IF
CHECKDLGITEMTYPE NECKLACE
CHECKONLINE <$STR(S2)>
#ACT
SENDMSG 0 <$STR(S2)>收到了友人:<$USERNAME>,赠送的：<$DLGITEMNAME> 246 245
GETDLGITEMVALUE M1 0
GETDLGITEMVALUE M2 1
GETDLGITEMVALUE M3 2
GETDLGITEMVALUE M4 3
GETDLGITEMVALUE M5 4
GETDLGITEMVALUE M9 14
GETDLGITEMVALUE M1015
<$STR(S2)>.GIVEEX<$DLGITEMNAME>10=<$STR(M1)>,1=<$STR(M2)>,2=<$STR(M3)>,3=<$STR(M4)>,4=<$STR(M5)>,14=<$STR(M9)>,15=<$STR(M10)>
<$STR(S2)>.SENDMSG 5 你收到了友人赠送的：<$DLGITEMNAME>
MOV M1 0
MOV M2 0
MOV M3 0
MOV M4 0
MOV M5 0
MOV M9 0
MOV M10 0
TAKEDLGITEM
CLOSE
BREAK
#IF
CHECKDLGITEMTYPE HELMET
CHECKONLINE <$STR(S2)>
#ACT
SENDMSG 0 <$STR(S2)>收到了友人:<$USERNAME>,赠送的：<$DLGITEMNAME> 246 245
GETDLGITEMVALUE M1 0
GETDLGITEMVALUE M2 1
GETDLGITEMVALUE M3 2
GETDLGITEMVALUE M4 3
GETDLGITEMVALUE M5 4
GETDLGITEMVALUE M9 14
GETDLGITEMVALUE M1015
<$STR(S2)>.GIVEEX<$DLGITEMNAME>10=<$STR(M1)>,1=<$STR(M2)>,2=<$STR(M3)>,3=<$STR(M4)>,4=<$STR(M5)>,14=<$STR(M9)>,15=<$STR(M10)>
<$STR(S2)>.SENDMSG 5 你收到了友人赠送的：<$DLGITEMNAME>
MOV M1 0
MOV M2 0
MOV M3 0
MOV M4 0
MOV M5 0
MOV M9 0
MOV M10 0
TAKEDLGITEM
CLOSE
BREAK
#IF
CHECKDLGITEMTYPE ARMRING
CHECKONLINE <$STR(S2)>
#ACT
SENDMSG 0 <$STR(S2)>收到了友人:<$USERNAME>,赠送的：<$DLGITEMNAME> 246 245
GETDLGITEMVALUE M1 0
GETDLGITEMVALUE M2 1
GETDLGITEMVALUE M3 2
GETDLGITEMVALUE M4 3
GETDLGITEMVALUE M5 4
GETDLGITEMVALUE M9 14
GETDLGITEMVALUE M1015
<$STR(S2)>.GIVEEX<$DLGITEMNAME>10=<$STR(M1)>,1=<$STR(M2)>,2=<$STR(M3)>,3=<$STR(M4)>,4=<$STR(M5)>,14=<$STR(M9)>,15=<$STR(M10)>
<$STR(S2)>.SENDMSG 5 你收到了友人赠送的：<$DLGITEMNAME>
MOV M1 0
MOV M2 0
MOV M3 0
MOV M4 0
MOV M5 0
MOV M9 0
MOV M10 0
TAKEDLGITEM
CLOSE
BREAK
#IF
CHECKDLGITEMTYPE RING
CHECKONLINE <$STR(S2)>
#ACT
SENDMSG 0 <$STR(S2)>收到了友人:<$USERNAME>,赠送的：<$DLGITEMNAME> 246 245
GETDLGITEMVALUE M1 0
GETDLGITEMVALUE M2 1
GETDLGITEMVALUE M3 2
GETDLGITEMVALUE M4 3
GETDLGITEMVALUE M5 4
GETDLGITEMVALUE M9 14
GETDLGITEMVALUE M1015
<$STR(S2)>.GIVEEX<$DLGITEMNAME>10=<$STR(M1)>,1=<$STR(M2)>,2=<$STR(M3)>,3=<$STR(M4)>,4=<$STR(M5)>,14=<$STR(M9)>,15=<$STR(M10)>
<$STR(S2)>.SENDMSG 5 你收到了友人赠送的：<$DLGITEMNAME>
MOV M1 0
MOV M2 0
MOV M3 0
MOV M4 0
MOV M5 0
MOV M9 0
MOV M10 0
TAKEDLGITEM
CLOSE
BREAK
#IF
CHECKDLGITEMTYPE BOOTS
CHECKONLINE <$STR(S2)>
#ACT
SENDMSG 0 <$STR(S2)>收到了友人:<$USERNAME>,赠送的：<$DLGITEMNAME> 246 245
GETDLGITEMVALUE M1 0
GETDLGITEMVALUE M2 1
GETDLGITEMVALUE M3 2
GETDLGITEMVALUE M4 3
GETDLGITEMVALUE M5 4
GETDLGITEMVALUE M9 14
GETDLGITEMVALUE M1015
<$STR(S2)>.GIVEEX<$DLGITEMNAME>10=<$STR(M1)>,1=<$STR(M2)>,2=<$STR(M3)>,3=<$STR(M4)>,4=<$STR(M5)>,14=<$STR(M9)>,15=<$STR(M10)>
<$STR(S2)>.SENDMSG 5 你收到了友人赠送的：<$DLGITEMNAME>
MOV M1 0
MOV M2 0
MOV M3 0
MOV M4 0
MOV M5 0
MOV M9 0
MOV M10 0
TAKEDLGITEM
CLOSE
BREAK
#IF
CHECKDLGITEMTYPE BELT
CHECKONLINE <$STR(S2)>
#ACT
SENDMSG 0 <$STR(S2)>收到了友人:<$USERNAME>,赠送的：<$DLGITEMNAME> 246 245
GETDLGITEMVALUE M1 0
GETDLGITEMVALUE M2 1
GETDLGITEMVALUE M3 2
GETDLGITEMVALUE M4 3
GETDLGITEMVALUE M5 4
GETDLGITEMVALUE M9 14
GETDLGITEMVALUE M1015
<$STR(S2)>.GIVEEX<$DLGITEMNAME>10=<$STR(M1)>,1=<$STR(M2)>,2=<$STR(M3)>,3=<$STR(M4)>,4=<$STR(M5)>,14=<$STR(M9)>,15=<$STR(M10)>
<$STR(S2)>.SENDMSG 5 你收到了友人赠送的：<$DLGITEMNAME>
MOV M1 0
MOV M2 0
MOV M3 0
MOV M4 0
MOV M5 0
MOV M9 0
MOV M10 0
TAKEDLGITEM
CLOSE
BREAK
#IF
CHECKONLINE <$STR(S2)>
#ACT
SENDMSG 0 <$STR(S2)>收到了友人:<$USERNAME>,赠送的：<$DLGITEMNAME> 246 245
<$STR(S2)>.GIVE <$DLGITEMNAME> 1
<$STR(S2)>.SENDMSG 5 你收到了友人赠送的：<$DLGITEMNAME>
TAKEDLGITEM
CLOSE
#ELSEACT
MessageBox <$STR(S2)>\不在线，你不能赠送！
CLOSE