GEL软件

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
热搜: 活动 交友 discuz

赠送元宝 商人发货 玩家赠送 鲜花脚本 赠送鲜花 GOM引擎

[复制链接]
admin 发表于 2018-3-11 11:07:10 | 显示全部楼层 |阅读模式
@赠送元宝 张三  100            100是RMB金额  自动乘以比例  兑换成元宝数      
商人发给玩家!  玩家也实用命令发给商人      鲜花赠送脚本





下面这段是免费的! 自己修改下面这段是免费的! 自己修改
[@UserCmd6]
#If
        Not        Checknamelist        ..\QuestDiary\管理功能\商人名单.txt
        ISONMAP        0139A
#Act
        Sendmsg        5        提示:当前地图无法赠送元宝!
Break
#Or
        Equal        <$PARAM(1)>
        Equal        <$PARAM(2)>
#Act
        Sendmsg        5        提示:请注意格式[{@赠送元宝|250:0:1}+空格+{玩家名字|250:0:1}+空格+{元宝数量|250:0:1}]!
Break
#If
        <$PARAM(1)>.Checkonline
#ElseAct
        Sendmsg        5        提示:玩家【{<$PARAM(1)>|250:0:1}】不在线,无法赠送!
Break
#If
        Equal        <$PARAM(1)>        <$USERNAME>
#Act
        Sendmsg        5        提示:无法给自己赠送元宝!
Break
#If
        Small        <$PARAM(2)>        1
#Act
        Sendmsg        5        提示:请输入您要赠送的元宝数量!
Break
#If
        Large        <$PARAM(2)>        10000000
#Act
        Sendmsg        5        提示:每次最多只能赠送1000万元宝!
Break
#If
        Checkgamegold        <        <$PARAM(2)>
#Act
        Sendmsg        5        提示:您的元宝不足【{<$PARAM(2)>|250:0:1}】个,请充值!
Break

#If
        Checknamelist        ..\QuestDiary\管理功能\商人名单.txt
;        CHECKTEXTLIST        ..\QuestDiary\管理功能\商人机器码.txt <$MACHINEID>
        Checkgamegold        ?        <$PARAM(2)>
#Act
        <$PARAM(1)>.Inc        U17        <$PARAM(2)>
        Gamegold        -        <$PARAM(2)>
        <$PARAM(1)>.MovEx        S$赠送玩家        <$USERNAME>
        <$PARAM(1)>.MovEx        S$获赠元宝        <$PARAM(2)>
        Sendmsg        5        提示:您已赠送【{<$PARAM(2)>元宝|250:0:1}】给玩家【{<$PARAM(1)>|250:0:1}】!
        <$PARAM(1)>.gamegold        +        <$STR(S$获赠元宝)>
        <$PARAM(1)>.Sendmsg        7        提示:您获得【{<$STR(S$赠送玩家)>|250:0:1}】给你赠送的【{<$STR(S$获赠元宝)>元宝|250:0:1}】!赠送元宝命令{@赠送元宝|250:0:1}
        Mov        S$信息1        【<$USERNAME>】
        Mov        S$信息2        【<$PARAM(2)>】
        Mov        S$信息3        【<$PARAM(1)>】
        SetStringBlank <$STR(S$信息1)> 18 1
        SetStringBlank <$STR(S$信息2)> 12 1
        SetStringBlank <$STR(S$信息3)> 18 1
        Addtextlist        ..\QuestDiary\管理功能\记录信息\商人信息\<$USERNAME>.txt        <$STR(S$信息1)>赠送<$STR(S$信息2)>元宝给玩家<$STR(S$信息3)> <$DATETIME>
        Addtextlist        ..\QuestDiary\管理功能\记录信息\商人信息\元宝记录.txt        <$STR(S$信息1)>赠送<$STR(S$信息2)>元宝给玩家<$STR(S$信息3)> <$DATETIME>
        Addtextlist        ..\QuestDiary\管理功能\记录信息\元宝信息\元宝记录.txt        <$STR(S$信息1)>赠送<$STR(S$信息2)>元宝给玩家<$STR(S$信息3)> <$DATETIME>
        <$PARAM(1)>.Mov        S$赠送玩家
        <$PARAM(1)>.Mov        S$获赠元宝
Break

#If
        CHECKTEXTLIST        ..\QuestDiary\管理功能\商人名单.txt        <$PARAM(1)>
        Checkgamegold        ?        <$PARAM(2)>
#Act
        Inc        U18        <$PARAM(2)>
        Gamegold        -        <$PARAM(2)>
        <$PARAM(1)>.MovEx        S$赠送玩家        <$USERNAME>
        <$PARAM(1)>.MovEx        S$获赠元宝        <$PARAM(2)>
        Sendmsg        5        提示:您已赠送【{<$PARAM(2)>元宝|250:0:1}】给玩家【{<$PARAM(1)>|250:0:1}】!
        <$PARAM(1)>.gamegold        +        <$STR(S$获赠元宝)>
        <$PARAM(1)>.Sendmsg        7        提示:您获得【{<$STR(S$赠送玩家)>|250:0:1}】给你赠送的【{<$STR(S$获赠元宝)>元宝|250:0:1}】!赠送元宝命令{@赠送元宝|250:0:1}
        Mov        S$信息1        【<$USERNAME>】
        Mov        S$信息2        【<$PARAM(2)>】
        Mov        S$信息3        【<$PARAM(1)>】
        SetStringBlank <$STR(S$信息1)> 18 1
        SetStringBlank <$STR(S$信息2)> 12 1
        SetStringBlank <$STR(S$信息3)> 18 1
        Addtextlist        ..\QuestDiary\管理功能\记录信息\商人信息\<$PARAM(1)>.txt        <$STR(S$信息1)>回收<$STR(S$信息2)>元宝给商人<$STR(S$信息3)> <$DATETIME>
        Addtextlist        ..\QuestDiary\管理功能\记录信息\商人信息\元宝记录.txt        <$STR(S$信息1)>回收<$STR(S$信息2)>元宝给商人<$STR(S$信息3)> <$DATETIME>
        Addtextlist        ..\QuestDiary\管理功能\记录信息\元宝信息\元宝记录.txt        <$STR(S$信息1)>回收<$STR(S$信息2)>元宝给商人<$STR(S$信息3)> <$DATETIME>
        <$PARAM(1)>.Mov        S$赠送玩家
        <$PARAM(1)>.Mov        S$获赠元宝
Break


#If
        Checkgamegold        ?        <$PARAM(2)>
#Act
        Gamegold        -        <$PARAM(2)>
        <$PARAM(1)>.MovEx        S$赠送玩家        <$USERNAME>
        <$PARAM(1)>.MovEx        S$获赠元宝        <$PARAM(2)>
        Sendmsg        5        提示:您已赠送【{<$PARAM(2)>元宝|250:0:1}】给玩家【{<$PARAM(1)>|250:0:1}】!
        <$PARAM(1)>.gamegold        +        <$STR(S$获赠元宝)>
        <$PARAM(1)>.Sendmsg        7        提示:您获得【{<$STR(S$赠送玩家)>|250:0:1}】给你赠送的【{<$STR(S$获赠元宝)>元宝|250:0:1}】!赠送元宝命令{@赠送元宝|250:0:1}
        Mov        S$信息1        【<$USERNAME>】
        Mov        S$信息2        【<$PARAM(2)>】
        Mov        S$信息3        【<$PARAM(1)>】
        SetStringBlank <$STR(S$信息1)> 18 1
        SetStringBlank <$STR(S$信息2)> 12 1
        SetStringBlank <$STR(S$信息3)> 18 1
        Addtextlist        ..\QuestDiary\管理功能\记录信息\元宝信息\元宝记录.txt        <$STR(S$信息1)>赠送<$STR(S$信息2)>元宝给玩家<$STR(S$信息3)> <$DATETIME>
        <$PARAM(1)>.Mov        S$赠送玩家
        <$PARAM(1)>.Mov        S$获赠元宝
Break

[/hide]





本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复

使用道具 举报

QQ|GEL软件 ( 皖icp备18016737号-2 )

GMT+8, 2018-9-19 19:31 , Processed in 0.171413 second(s), 21 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表