登录
×
  • 首页
  • 传奇论坛
  • 传奇版本库
  • 传奇服务端
  • 传奇三端手游
  • 传奇素材网
  • 传奇客户端
  • 引擎登录器
  • 下载排行
  • 获取邀请码
  • 搜索
    传奇素材网
    106271

    [BLUE引擎] BLUE引擎礼盒赠送脚本 仿盛大传奇赠送鲜花,十全十美礼盒脚本

     火... [复制链接]

    [BLUE引擎] BLUE引擎礼盒赠送脚本 仿盛大传奇赠送鲜花,十全十美礼盒脚本

     火... [复制链接]
    趣游论坛

    1万

    主题

    203

    回帖

    11万

    积分

    管理员

    积分
    112726

    灌水之王活跃会员突出贡献优秀版主荣誉管理论坛元老

    趣游论坛 2019-6-13 13:20:20 / 显示全部楼层 /阅读模式
    106271
    20190612111517.png

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

    [@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

    回复

    使用道具 举报

    sw7859

    0

    主题

    84

    回帖

    452

    积分

    注册用户

    积分
    452
    sw7859 2024-12-6 16:15:39 / 显示全部楼层
    回复 支持 反对

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    扫一扫加群沟通交流

    首页 论坛 !mobpost! 最新 我的