赠送元宝 商人发货 玩家赠送 鲜花脚本 赠送鲜花 【GOM GEE】免费

@赠送元宝 张三  100            100是RMB金额  自动乘以比例  兑换成元宝数      

商人发给玩家！  玩家也实用命令发给商人      鲜花赠送脚本

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:商人赠送元宝 鲜花.zip 
下载次数:246  文件大小:5.38 KB 
下载权限: 不限 以上或 VIP会员   [购买VIP]   [充值元宝]  [免费赚铜板]

下面这段是免费的！ 自己修改下面这段是免费的！ 自己修改

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

GOM鲜花赠送

[@UserCmd8]

#IF

CHECKTEXTLIST ..\..\..\..\壹叄76\限制地图.txt <$Map>

#ACT

        MESSAGEBOX [赠送失败]:\　\　　　　　　本无法赠送！

BREAK

#IF

CHECKLEVELEX > 0

#ACT

MOV N$数量 <$PARAM(2)>

MOV S$对象 <$PARAM(1)>

#IF

S$对象.checkonline

#ELSEACT

MESSAGEBOX 提示：当前人物不在线,无法使用此功能.

BREAK

#IF

NOT EQUAL S$对象 <$USERNAME>

#ELSEACT

MESSAGEBOX 提示：不可以赠送给自己！

BREAK

#IF

LARGE N$数量 200

#ACT

Messagebox 对不起，每次最高赠送200朵鲜花！

BREAK

#IF

LARGE N$数量 0

#ACT

MOV P1 <$STR(N$数量)>

MUL P1 100

#ELSEACT

Messagebox 对不起，您没有输入赠送鲜花的数量！\　\格式：@赠送鲜花+对方名字+数量（注意：+号换成空格键）

BREAK

#IF

CHECKGAMEGOLD < <$STR(P1)>

#ACT

Messagebox 对不起，你的元宝不够[<$STR(P1)>]！每朵鲜花需要100元宝！

BREAK

#ELSEACT

Delaygoto 100 @赠送鲜花确认

BREAK

[@赠送鲜花确认]

#OR

LARGE N$鲜花 <$STR(N$数量)>

EQUAL N$鲜花 <$STR(N$数量)>

#ACT

MOV N$数量 0

MOV N$鲜花 0

BREAK

#IF

S$对象.checkonline

#ELSEACT

Messagebox 对不起，[<$STR(S$对象)>]已掉线，赠送鲜花终止！

BREAK

#IF

CHECKGAMEGOLD < 100

#ACT

Messagebox 对不起，你的元宝已不够100个！赠送鲜花终止！

BREAK

#ELSEACT

GAMEGOLD - 100

<$STR(S$对象)>.GAMEGOLD + 30

<$STR(S$对象)>.INC U3 1

inc N$鲜花 1

Sendmsg 0 {鲜花ぐ|151:0:1}玩家{[<$USERNAME>]|227:0:1}给{[<$STR(S$对象)>]|254:0:1}送去{[<$STR(N$鲜花)>]|223:0:1}朵鲜花},{以示爱意!!!|223:0:1}

Delaygoto 1 @赠送鲜花确认

BREAK