游客您好
第三方账号登陆
  • 点击联系客服

    在线时间:9:00-17:00

    联系QQ

    3543403617

    电子邮件

    3543403617@QQ.com
  • PKhuo手机版

    GM资源教程随时查询

  • 扫描二维码

    进传奇GM资源交流群

Lv.9 管理员
1号会员,0活跃值,2021.07.08 加入
  • 19307发帖
  • 17544主题
  • 0关注
  • 0粉丝
这个人很懒,什么也没有留下。
最新源码 更多>
游戏视频 更多>
脚本教程 更多>

[BLUE引擎] BLUE引擎双货币装备求购可视传奇脚本源码教程下载

[复制链接]
pkhuo 发表于 2021-9-30 20:51:12 | 显示全部楼层 |阅读模式 打印 上一主题 下一主题
[@Bluem2.net_货币求购NPC]
{
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 货币求购输入页 = 1
MOV S10 <$YEAR>
DEC S10 1 2
MOV D10 <$STR(S10)> 525600
MOV D11 <$STR(D10)>
#IF
CHECKLEVELEX > 0
#ACT
MOV D10 <$MONTH>
#IF
LARGE D10 1
#ACT
ReadRandomLine ..\QuestDiary\Bluem2.net_货币求购配置\时间读取\<$STR(D10)>.txt S10
MOV D10 <$STR(S10)>
INC D11 <$STR(D10)>
#IF
CHECKLEVELEX > 0
#ACT
MOV D10 <$DAY>
#IF
LARGE D10 1
#ACT
DEC D10 1
MUL D10 1440
INC D11 <$STR(D10)>
#IF
CHECKLEVELEX > 0
#ACT
MOV D10 <$HOUR>
#IF
LARGE D10 0
#ACT
MUL D10 60
INC D11 <$STR(D10)>
#IF
CHECKLEVELEX > 0
#ACT
MOV D10 <$MINUTE>
#IF
LARGE D10 0
#ACT
INC D11 <$STR(D10)>
#IF
CHECKLEVELEX > 0
#ACT
GOTO @货币求购页面显示
[@货币求购页面显示]
#IF
CHECKVAR HUMAN 货币求购输入页 > 9
#ACT
CALCVAR HUMAN 货币求购页数显示 = <1{C=CLLIME,AX=190,AY=210}/@HBQG1><2{C=CLLIME,AX=210,AY=210}/@HBQG2><3{C=CLLIME,AX=230,AY=210}/@HBQG3><4{C=CLLIME,AX=250,AY=210}/@HBQG4><5{C=CLLIME,AX=270,AY=210}/@HBQG5><6{C=CLLIME,AX=290,AY=210}/@HBQG6><7{C=CLLIME,AX=310,AY=210}/@HBQG7><8{C=CLLIME,AX=330,AY=210}/@HBQG8><9{C=CLLIME,AX=350,AY=210}/@HBQG9>
#IF
CHECKVAR HUMAN 货币求购输入页 = 9
#ACT
CALCVAR HUMAN 货币求购页数显示 = <1{C=CLLIME,AX=190,AY=210}/@HBQG1><2{C=CLLIME,AX=210,AY=210}/@HBQG2><3{C=CLLIME,AX=230,AY=210}/@HBQG3><4{C=CLLIME,AX=250,AY=210}/@HBQG4><5{C=CLLIME,AX=270,AY=210}/@HBQG5><6{C=CLLIME,AX=290,AY=210}/@HBQG6><7{C=CLLIME,AX=310,AY=210}/@HBQG7><8{C=CLLIME,AX=330,AY=210}/@HBQG8><9{C=CLRED,AX=350,AY=210}>
#IF
CHECKVAR HUMAN 货币求购输入页 = 8
#ACT
CALCVAR HUMAN 货币求购页数显示 = <1{C=CLLIME,AX=190,AY=210}/@HBQG1><2{C=CLLIME,AX=210,AY=210}/@HBQG2><3{C=CLLIME,AX=230,AY=210}/@HBQG3><4{C=CLLIME,AX=250,AY=210}/@HBQG4><5{C=CLLIME,AX=270,AY=210}/@HBQG5><6{C=CLLIME,AX=290,AY=210}/@HBQG6><7{C=CLLIME,AX=310,AY=210}/@HBQG7><8{C=CLRED,AX=330,AY=210}><9{C=CLLIME,AX=350,AY=210}/@HBQG9>
#IF
CHECKVAR HUMAN 货币求购输入页 = 7
#ACT
CALCVAR HUMAN 货币求购页数显示 = <1{C=CLLIME,AX=190,AY=210}/@HBQG1><2{C=CLLIME,AX=210,AY=210}/@HBQG2><3{C=CLLIME,AX=230,AY=210}/@HBQG3><4{C=CLLIME,AX=250,AY=210}/@HBQG4><5{C=CLLIME,AX=270,AY=210}/@HBQG5><6{C=CLLIME,AX=290,AY=210}/@HBQG6><7{C=CLRED,AX=310,AY=210}><8{C=CLLIME,AX=330,AY=210}/@HBQG8><9{C=CLLIME,AX=350,AY=210}/@HBQG9>
#IF
CHECKVAR HUMAN 货币求购输入页 = 6
#ACT
CALCVAR HUMAN 货币求购页数显示 = <1{C=CLLIME,AX=190,AY=210}/@HBQG1><2{C=CLLIME,AX=210,AY=210}/@HBQG2><3{C=CLLIME,AX=230,AY=210}/@HBQG3><4{C=CLLIME,AX=250,AY=210}/@HBQG4><5{C=CLLIME,AX=270,AY=210}/@HBQG5><6{C=CLRED,AX=290,AY=210}><7{C=CLLIME,AX=310,AY=210}/@HBQG7><8{C=CLLIME,AX=330,AY=210}/@HBQG8><9{C=CLLIME,AX=350,AY=210}/@HBQG9>
#IF
CHECKVAR HUMAN 货币求购输入页 = 5
#ACT
CALCVAR HUMAN 货币求购页数显示 = <1{C=CLLIME,AX=190,AY=210}/@HBQG1><2{C=CLLIME,AX=210,AY=210}/@HBQG2><3{C=CLLIME,AX=230,AY=210}/@HBQG3><4{C=CLLIME,AX=250,AY=210}/@HBQG4><5{C=CLRED,AX=270,AY=210}><6{C=CLLIME,AX=290,AY=210}/@HBQG6><7{C=CLLIME,AX=310,AY=210}/@HBQG7><8{C=CLLIME,AX=330,AY=210}/@HBQG8><9{C=CLLIME,AX=350,AY=210}/@HBQG9>
#IF
CHECKVAR HUMAN 货币求购输入页 = 4
#ACT
CALCVAR HUMAN 货币求购页数显示 = <1{C=CLLIME,AX=190,AY=210}/@HBQG1><2{C=CLLIME,AX=210,AY=210}/@HBQG2><3{C=CLLIME,AX=230,AY=210}/@HBQG3><4{C=CLRED,AX=250,AY=210}><5{C=CLLIME,AX=270,AY=210}/@HBQG5><6{C=CLLIME,AX=290,AY=210}/@HBQG6><7{C=CLLIME,AX=310,AY=210}/@HBQG7><8{C=CLLIME,AX=330,AY=210}/@HBQG8><9{C=CLLIME,AX=350,AY=210}/@HBQG9>
#IF
CHECKVAR HUMAN 货币求购输入页 = 3
#ACT
CALCVAR HUMAN 货币求购页数显示 = <1{C=CLLIME,AX=190,AY=210}/@HBQG1><2{C=CLLIME,AX=210,AY=210}/@HBQG2><3{C=CLRED,AX=230,AY=210}><4{C=CLLIME,AX=250,AY=210}/@HBQG4><5{C=CLLIME,AX=270,AY=210}/@HBQG5><6{C=CLLIME,AX=290,AY=210}/@HBQG6><7{C=CLLIME,AX=310,AY=210}/@HBQG7><8{C=CLLIME,AX=330,AY=210}/@HBQG8><9{C=CLLIME,AX=350,AY=210}/@HBQG9>
#IF
CHECKVAR HUMAN 货币求购输入页 = 2
#ACT
CALCVAR HUMAN 货币求购页数显示 = <1{C=CLLIME,AX=190,AY=210}/@HBQG1><2{C=CLRED,AX=210,AY=210}><3{C=CLLIME,AX=230,AY=210}/@HBQG3><4{C=CLLIME,AX=250,AY=210}/@HBQG4><5{C=CLLIME,AX=270,AY=210}/@HBQG5><6{C=CLLIME,AX=290,AY=210}/@HBQG6><7{C=CLLIME,AX=310,AY=210}/@HBQG7><8{C=CLLIME,AX=330,AY=210}/@HBQG8><9{C=CLLIME,AX=350,AY=210}/@HBQG9>
#IF
CHECKVAR HUMAN 货币求购输入页 = 1
#ACT
CALCVAR HUMAN 货币求购页数显示 = <1{C=CLRED,AX=190,AY=210}><2{C=CLLIME,AX=210,AY=210}/@HBQG2><3{C=CLLIME,AX=230,AY=210}/@HBQG3><4{C=CLLIME,AX=250,AY=210}/@HBQG4><5{C=CLLIME,AX=270,AY=210}/@HBQG5><6{C=CLLIME,AX=290,AY=210}/@HBQG6><7{C=CLLIME,AX=310,AY=210}/@HBQG7><8{C=CLLIME,AX=330,AY=210}/@HBQG8><9{C=CLLIME,AX=350,AY=210}/@HBQG9>
#IF
CHECKLEVELEX > 0
#ACT
MOV S0 <$GOLDCOUNT>
#IF
CHECKGOLD 99999999
#ACT
DEC S0 10 20
GOTO @Bluem2.net_货币求购NPC1
BREAK
#IF
CHECKGOLD 9999999
#ACT
DEC S0 9 20
GOTO @Bluem2.net_货币求购NPC1
BREAK
#IF
CHECKGOLD 999999
#ACT
DEC S0 8 20
GOTO @Bluem2.net_货币求购NPC1
BREAK
#IF
CHECKGOLD 99999
#ACT
DEC S0 7 20
GOTO @Bluem2.net_货币求购NPC1
BREAK
#IF
CHECKGOLD 9999
#ACT
DEC S0 6 20
GOTO @Bluem2.net_货币求购NPC1
BREAK
#IF
CHECKGOLD 999
#ACT
DEC S0 5 20
GOTO @Bluem2.net_货币求购NPC1
BREAK
#IF
CHECKGOLD 99
#ACT
DEC S0 4 20
GOTO @Bluem2.net_货币求购NPC1
BREAK
#IF
CHECKGOLD 9
#ACT
DEC S0 3 20
GOTO @Bluem2.net_货币求购NPC1
BREAK
#IF
CHECKLEVELEX > 0
#ACT
DEC S0 2 20
GOTO @Bluem2.net_货币求购NPC1
BREAK
[@Bluem2.net_货币求购NPC1]
#IF
CHECKLEVELEX > 0
#ACT
MOV S10 <PIC=items,115,1,0,0,0,0,148,237
INC S10
INC S10 LABEL=@货币选择金币求购物品
INC S10
INC S10 HINT=金币></><COLOR=#$D3D3D3
INC S10
INC S10 :<$STR(S0)>{AX=180,AY=240}>
CALCVAR HUMAN 货币求购金币显示 = <$STR(S10)>
#IF
CHECKLEVELEX > 0
#ACT
MOV S10 <PIC=items,2155,1,0,0,0,0,148,258
INC S10
INC S10 LABEL=@货币选择元宝求购物品
INC S10
INC S10 HINT=元宝></><COLOR=#$D3D3D3
INC S10
INC S10 :<$GAMEGOLD>{AX=180,AY=258}>
CALCVAR HUMAN 货币求购元宝显示 = <$STR(S10)>
#IF
CHECKVAR HUMAN 货币求购货币类型 = 金币
#ACT
MOV S10 <PIC=items,115,1,0,0,0,0,148,237
INC S10
INC S10 LABEL=@Bluem2.net
INC S10
INC S10 HINT=金币></><COLOR=#$0000FF
INC S10
INC S10 :<$STR(S0)>{AX=180,AY=240}>
CALCVAR HUMAN 货币求购金币显示 = <$STR(S10)>
#IF
CHECKVAR HUMAN 货币求购货币类型 = 元宝
#ACT
MOV S10 <PIC=items,2155,1,0,0,0,0,148,258
INC S10
INC S10 LABEL=@Bluem2.net
INC S10
INC S10 HINT=元宝></><COLOR=#$0000FF
INC S10
INC S10 :<$GAMEGOLD>{AX=180,AY=258}>
CALCVAR HUMAN 货币求购元宝显示 = <$STR(S10)>
#IF
CHECKVAR HUMAN 货币求购物品单价 > 0
#ACT
MOV S10 <COLOR=#$00FFFF
INC S10
INC S10 单价<$HUMAN(货币求购货币类型)>数量:<$HUMAN(货币求购物品单价)>
INC S10 {X=0,Y=0,AX=295,AY=240}>
CALCVAR HUMAN 货币求购单价显示 = <$STR(S10)>
#ELSEACT
CALCVAR HUMAN 货币求购单价显示 =
#IF
CHECKVAR HUMAN 货币求购道具名称 =
#ACT
CALCVAR HUMAN 货币求购直观显示 =
CALCVAR HUMAN 货币求购物品显示 =
#ELSEACT
MOV S10 <COLOR=#$EE82EE
INC S10
INC S10 [<$HUMAN(货币求购道具名称)>] x <$HUMAN(货币求购物品数量)>
INC S10 {X=0,Y=0,AX=205,AY=283}>
CALCVAR HUMAN 货币求购物品显示 = <$STR(S10)>
MOV S11
INI_RELOAD ..\QuestDiary\Bluem2.net_货币求购配置\抽取检测\Bluem2.net_物品外观数据.INI
INI_READ_STRING ..\QuestDiary\Bluem2.net_货币求购配置\抽取检测\Bluem2.net_物品外观数据.INI 物品外观 <$HUMAN(货币求购道具名称)> S11
MOV S10 <PIC=items,
INC S10 <$STR(S11)>,1,0,0,0,0,150,283
INC S10
INC S10 LABEL=@Bluem2.net
INC S10
INC S10 HINT=<$HUMAN(货币求购道具名称)>
INC S10 ></>
CALCVAR HUMAN 货币求购直观显示 = <$STR(S10)>
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 货币求购显示1排 =
CALCVAR HUMAN 货币求购显示2排 =
CALCVAR HUMAN 货币求购显示3排 =
CALCVAR HUMAN 货币求购显示4排 =
CALCVAR HUMAN 货币求购显示5排 =
CALCVAR HUMAN 货币求购显示6排 =
CALCVAR HUMAN 货币求购显示7排 =
CALCVAR HUMAN 货币求购显示8排 =
CALCVAR HUMAN 货币求购显示9排 =
CALCVAR HUMAN 货币求购效验1 =
CALCVAR HUMAN 货币求购效验2 =
CALCVAR HUMAN 货币求购效验3 =
CALCVAR HUMAN 货币求购效验4 =
CALCVAR HUMAN 货币求购效验5 =
CALCVAR HUMAN 货币求购效验6 =
CALCVAR HUMAN 货币求购效验7 =
CALCVAR HUMAN 货币求购效验8 =
CALCVAR HUMAN 货币求购效验9 =
#IF
CHECKLEVELEX > 0
#ACT
MOV P8 <$HUMAN(货币求购输入页)>
DEC P8 1
MUL P8 9
#IF
CHECKLEVELEX > 0
#ACT
MOV M1 0
MOV S8
MOV S10
MOV D12 0
MOV S11
MOV S12
MOV S13
INC P8 1
CALCVAR HUMAN 货币求购玩家1 =
READLINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
#IF
EQUAL S11
#ELSEACT
CALCVAR HUMAN 货币求购效验1 = <$STR(S11)>
MOV S10 Www.bluem2.Net_脚本制作QQ:3383205
MOV S13 $(货币求购玩家颜色)
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购玩家1 = <$STR(S12)>
INC S13 <$STR(S12)>{AX=65,AY=58}>
MOV S8 <$STR(
INC S8 S
INC S8 10)>
MOV S8 <$STR(S8)>
INC S13 $(货币求购物品颜色)
INC S13
StrTok S11 S12 |
INC S13 <$STR(S12)>{AX=175,AY=58}>
StrTok S11 S12 |
INC S13 <
INC S13 <$STR(S12)>
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购撤消返还 = <$STR(S12)>
INC S13 <$STR(S12)>{AX=300,AY=58}>
StrTok S11 S12 |
CALCVAR HUMAN 货币求购卖类型 = <$STR(S12)>
GETSTRLENGTH $STR(S8) M1
INC S13 $(货币求购数量颜色)
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购撤消返还 * <$STR(S12)>
INC S13 <$STR(S12)>{AX=373,AY=58}>
INC S13 $(货币求购时间颜色)
INC S13
StrTok S11 S12 |
MOV D12 <$STR(S12)>
DEC D12 <$STR(D11)>
INC S13 <$STR(D12)>分钟{AX=402,AY=58}>
CALCVAR HUMAN 货币求购显示1排 = <$STR(S13)>
#IF
CHECKVAR HUMAN 货币求购卖类型 = 元宝
EQUAL M1 33
SMALL D12 1
#ACT
DELETELINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
CALCVAR GLOBAL 货币求购总数 - 1 ..\QuestDiary\开区清空文本\货币求购_全局变量.txt
<$HUMAN(货币求购玩家1)>.GAMEGOLD + <$HUMAN(货币求购撤消返还)>
GOTO @Bluem2.net_货币求购NPC
BREAK
#IF
CHECKVAR HUMAN 货币求购卖类型 = 金币
EQUAL M1 33
SMALL D12 1
#ACT
DELETELINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
CALCVAR GLOBAL 货币求购总数 - 1 ..\QuestDiary\开区清空文本\货币求购_全局变量.txt
<$HUMAN(货币求购玩家1)>.GIVE 金币 <$HUMAN(货币求购撤消返还)>
GOTO @Bluem2.net_货币求购NPC
BREAK
#IF
CHECKLEVELEX > 0
#ACT
MOV M1 0
MOV S8
MOV S10
MOV D12 0
MOV S11
MOV S12
MOV S13
INC P8 1
CALCVAR HUMAN 货币求购玩家2 =
READLINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
#IF
EQUAL S11
#ELSEACT
CALCVAR HUMAN 货币求购效验2 = <$STR(S11)>
MOV S10 Www.bluem2.Net_脚本制作QQ:3383205
MOV S13 $(货币求购玩家颜色)
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购玩家2 = <$STR(S12)>
INC S13 <$STR(S12)>{AX=65,AY=73}>
MOV S8 <$STR(
INC S8 S
INC S8 10)>
MOV S8 <$STR(S8)>
INC S13 $(货币求购物品颜色)
INC S13
StrTok S11 S12 |
INC S13 <$STR(S12)>{AX=175,AY=73}>

StrTok S11 S12 |
INC S13 <
INC S13 <$STR(S12)>
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购撤消返还 = <$STR(S12)>
INC S13 <$STR(S12)>{AX=300,AY=73}>
StrTok S11 S12 |
CALCVAR HUMAN 货币求购卖类型 = <$STR(S12)>
GETSTRLENGTH $STR(S8) M1

INC S13 $(货币求购数量颜色)
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购撤消返还 * <$STR(S12)>
INC S13 <$STR(S12)>{AX=373,AY=73}>

INC S13 $(货币求购时间颜色)
INC S13
StrTok S11 S12 |
MOV D12 <$STR(S12)>
DEC D12 <$STR(D11)>
INC S13 <$STR(D12)>分钟{AX=402,AY=73}>
CALCVAR HUMAN 货币求购显示2排 = <$STR(S13)>

#IF
CHECKVAR HUMAN 货币求购卖类型 = 元宝
EQUAL M1 33
SMALL D12 1
#ACT
DELETELINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
CALCVAR GLOBAL 货币求购总数 - 1 ..\QuestDiary\开区清空文本\货币求购_全局变量.txt
<$HUMAN(货币求购玩家2)>.GAMEGOLD + <$HUMAN(货币求购撤消返还)>
GOTO @Bluem2.net_货币求购NPC
BREAK
#IF
CHECKVAR HUMAN 货币求购卖类型 = 金币
EQUAL M1 33
SMALL D12 1
#ACT
DELETELINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
CALCVAR GLOBAL 货币求购总数 - 1 ..\QuestDiary\开区清空文本\货币求购_全局变量.txt
<$HUMAN(货币求购玩家2)>.GIVE 金币 <$HUMAN(货币求购撤消返还)>
GOTO @Bluem2.net_货币求购NPC
BREAK
#IF
CHECKLEVELEX > 0
#ACT
MOV M1 0
MOV S8
MOV S10
MOV D12 0
MOV S11
MOV S12
MOV S13
INC P8 1
CALCVAR HUMAN 货币求购玩家3 =
READLINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
#IF
EQUAL S11
#ELSEACT
CALCVAR HUMAN 货币求购效验3 = <$STR(S11)>
MOV S10 Www.bluem2.Net_脚本制作QQ:3383205
MOV S13 $(货币求购玩家颜色)
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购玩家3 = <$STR(S12)>
INC S13 <$STR(S12)>{AX=65,AY=88}>
MOV S8 <$STR(
INC S8 S
INC S8 10)>
MOV S8 <$STR(S8)>
INC S13 $(货币求购物品颜色)
INC S13
StrTok S11 S12 |
INC S13 <$STR(S12)>{AX=175,AY=88}>
StrTok S11 S12 |
INC S13 <
INC S13 <$STR(S12)>
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购撤消返还 = <$STR(S12)>
INC S13 <$STR(S12)>{AX=300,AY=88}>
StrTok S11 S12 |
CALCVAR HUMAN 货币求购卖类型 = <$STR(S12)>
GETSTRLENGTH $STR(S8) M1
INC S13 $(货币求购数量颜色)
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购撤消返还 * <$STR(S12)>
INC S13 <$STR(S12)>{AX=373,AY=88}>
INC S13 $(货币求购时间颜色)
INC S13
StrTok S11 S12 |
MOV D12 <$STR(S12)>
DEC D12 <$STR(D11)>
INC S13 <$STR(D12)>分钟{AX=402,AY=88}>
CALCVAR HUMAN 货币求购显示3排 = <$STR(S13)>
#IF
CHECKVAR HUMAN 货币求购卖类型 = 元宝
EQUAL M1 33
SMALL D12 1
#ACT
DELETELINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
CALCVAR GLOBAL 货币求购总数 - 1 ..\QuestDiary\开区清空文本\货币求购_全局变量.txt
<$HUMAN(货币求购玩家3)>.GAMEGOLD + <$HUMAN(货币求购撤消返还)>
GOTO @Bluem2.net_货币求购NPC
BREAK
#IF
CHECKVAR HUMAN 货币求购卖类型 = 金币
EQUAL M1 33
SMALL D12 1
#ACT
DELETELINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
CALCVAR GLOBAL 货币求购总数 - 1 ..\QuestDiary\开区清空文本\货币求购_全局变量.txt
<$HUMAN(货币求购玩家3)>.GIVE 金币 <$HUMAN(货币求购撤消返还)>
GOTO @Bluem2.net_货币求购NPC
BREAK
#IF
CHECKLEVELEX > 0
#ACT
MOV M1 0
MOV S8
MOV S10
MOV D12 0
MOV S11
MOV S12
MOV S13
INC P8 1
CALCVAR HUMAN 货币求购玩家4 =
READLINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
#IF
EQUAL S11
#ELSEACT
CALCVAR HUMAN 货币求购效验4 = <$STR(S11)>
MOV S10 Www.bluem2.Net_脚本制作QQ:3383205
MOV S13 $(货币求购玩家颜色)
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购玩家4 = <$STR(S12)>
INC S13 <$STR(S12)>{AX=65,AY=103}>
MOV S8 <$STR(
INC S8 S
INC S8 10)>
MOV S8 <$STR(S8)>
INC S13 $(货币求购物品颜色)
INC S13
StrTok S11 S12 |
INC S13 <$STR(S12)>{AX=175,AY=103}>
StrTok S11 S12 |
INC S13 <
INC S13 <$STR(S12)>
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购撤消返还 = <$STR(S12)>
INC S13 <$STR(S12)>{AX=300,AY=103}>
StrTok S11 S12 |
CALCVAR HUMAN 货币求购卖类型 = <$STR(S12)>
GETSTRLENGTH $STR(S8) M1
INC S13 $(货币求购数量颜色)
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购撤消返还 * <$STR(S12)>
INC S13 <$STR(S12)>{AX=373,AY=103}>
INC S13 $(货币求购时间颜色)
INC S13
StrTok S11 S12 |
MOV D12 <$STR(S12)>
DEC D12 <$STR(D11)>
INC S13 <$STR(D12)>分钟{AX=402,AY=103}>
CALCVAR HUMAN 货币求购显示4排 = <$STR(S13)>
#IF
CHECKVAR HUMAN 货币求购卖类型 = 元宝
EQUAL M1 33
SMALL D12 1
#ACT
DELETELINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
CALCVAR GLOBAL 货币求购总数 - 1 ..\QuestDiary\开区清空文本\货币求购_全局变量.txt
<$HUMAN(货币求购玩家4)>.GAMEGOLD + <$HUMAN(货币求购撤消返还)>
GOTO @Bluem2.net_货币求购NPC
BREAK
#IF
CHECKVAR HUMAN 货币求购卖类型 = 金币
EQUAL M1 33
SMALL D12 1
#ACT
DELETELINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
CALCVAR GLOBAL 货币求购总数 - 1 ..\QuestDiary\开区清空文本\货币求购_全局变量.txt
<$HUMAN(货币求购玩家4)>.GIVE 金币 <$HUMAN(货币求购撤消返还)>
GOTO @Bluem2.net_货币求购NPC
BREAK
#IF
CHECKLEVELEX > 0
#ACT
MOV M1 0
MOV S8
MOV S10
MOV D12 0
MOV S11
MOV S12
MOV S13
INC P8 1
CALCVAR HUMAN 货币求购玩家5 =
READLINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
#IF
EQUAL S11
#ELSEACT
CALCVAR HUMAN 货币求购效验5 = <$STR(S11)>
MOV S10 Www.bluem2.Net_脚本制作QQ:3383205
MOV S13 $(货币求购玩家颜色)
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购玩家5 = <$STR(S12)>
INC S13 <$STR(S12)>{AX=65,AY=118}>
MOV S8 <$STR(
INC S8 S
INC S8 10)>
MOV S8 <$STR(S8)>
INC S13 $(货币求购物品颜色)
INC S13
StrTok S11 S12 |
INC S13 <$STR(S12)>{AX=175,AY=118}>
StrTok S11 S12 |
INC S13 <
INC S13 <$STR(S12)>
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购撤消返还 = <$STR(S12)>
INC S13 <$STR(S12)>{AX=300,AY=118}>
StrTok S11 S12 |
CALCVAR HUMAN 货币求购卖类型 = <$STR(S12)>
GETSTRLENGTH $STR(S8) M1
INC S13 $(货币求购数量颜色)
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购撤消返还 * <$STR(S12)>
INC S13 <$STR(S12)>{AX=373,AY=118}>
INC S13 $(货币求购时间颜色)
INC S13
StrTok S11 S12 |
MOV D12 <$STR(S12)>
DEC D12 <$STR(D11)>
INC S13 <$STR(D12)>分钟{AX=402,AY=118}>
CALCVAR HUMAN 货币求购显示5排 = <$STR(S13)>
#IF
CHECKVAR HUMAN 货币求购卖类型 = 元宝
EQUAL M1 33
SMALL D12 1
#ACT
DELETELINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
CALCVAR GLOBAL 货币求购总数 - 1 ..\QuestDiary\开区清空文本\货币求购_全局变量.txt
<$HUMAN(货币求购玩家5)>.GAMEGOLD + <$HUMAN(货币求购撤消返还)>
GOTO @Bluem2.net_货币求购NPC
BREAK
#IF
CHECKVAR HUMAN 货币求购卖类型 = 金币
EQUAL M1 33
SMALL D12 1
#ACT
DELETELINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
CALCVAR GLOBAL 货币求购总数 - 1 ..\QuestDiary\开区清空文本\货币求购_全局变量.txt
<$HUMAN(货币求购玩家5)>.GIVE 金币 <$HUMAN(货币求购撤消返还)>
GOTO @Bluem2.net_货币求购NPC
BREAK
#IF
CHECKLEVELEX > 0
#ACT
MOV M1 0
MOV S8
MOV S10
MOV D12 0
MOV S11
MOV S12
MOV S13
INC P8 1
CALCVAR HUMAN 货币求购玩家6 =
READLINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
#IF
EQUAL S11
#ELSEACT
CALCVAR HUMAN 货币求购效验6 = <$STR(S11)>
MOV S10 Www.bluem2.Net_脚本制作QQ:3383205
MOV S13 $(货币求购玩家颜色)
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购玩家6 = <$STR(S12)>
INC S13 <$STR(S12)>{AX=65,AY=133}>
MOV S8 <$STR(
INC S8 S
INC S8 10)>
MOV S8 <$STR(S8)>
INC S13 $(货币求购物品颜色)
INC S13
StrTok S11 S12 |
INC S13 <$STR(S12)>{AX=175,AY=133}>
StrTok S11 S12 |
INC S13 <
INC S13 <$STR(S12)>
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购撤消返还 = <$STR(S12)>
INC S13 <$STR(S12)>{AX=300,AY=133}>
StrTok S11 S12 |
CALCVAR HUMAN 货币求购卖类型 = <$STR(S12)>
GETSTRLENGTH $STR(S8) M1
INC S13 $(货币求购数量颜色)
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购撤消返还 * <$STR(S12)>
INC S13 <$STR(S12)>{AX=373,AY=133}>
INC S13 $(货币求购时间颜色)
INC S13
StrTok S11 S12 |
MOV D12 <$STR(S12)>
DEC D12 <$STR(D11)>
INC S13 <$STR(D12)>分钟{AX=402,AY=133}>
CALCVAR HUMAN 货币求购显示6排 = <$STR(S13)>
#IF
CHECKVAR HUMAN 货币求购卖类型 = 元宝
EQUAL M1 33
SMALL D12 1
#ACT
DELETELINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
CALCVAR GLOBAL 货币求购总数 - 1 ..\QuestDiary\开区清空文本\货币求购_全局变量.txt
<$HUMAN(货币求购玩家6)>.GAMEGOLD + <$HUMAN(货币求购撤消返还)>
GOTO @Bluem2.net_货币求购NPC
BREAK
#IF
CHECKVAR HUMAN 货币求购卖类型 = 金币
EQUAL M1 33
SMALL D12 1
#ACT
DELETELINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
CALCVAR GLOBAL 货币求购总数 - 1 ..\QuestDiary\开区清空文本\货币求购_全局变量.txt
<$HUMAN(货币求购玩家6)>.GIVE 金币 <$HUMAN(货币求购撤消返还)>
GOTO @Bluem2.net_货币求购NPC
BREAK
#IF
CHECKLEVELEX > 0
#ACT
MOV M1 0
MOV S8
MOV S10
MOV D12 0
MOV S11
MOV S12
MOV S13
INC P8 1
CALCVAR HUMAN 货币求购玩家7 =
READLINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
#IF
EQUAL S11
#ELSEACT
CALCVAR HUMAN 货币求购效验7 = <$STR(S11)>
MOV S10 Www.bluem2.Net_脚本制作QQ:3383205
MOV S13 $(货币求购玩家颜色)
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购玩家7 = <$STR(S12)>
INC S13 <$STR(S12)>{AX=65,AY=148}>
MOV S8 <$STR(
INC S8 S
INC S8 10)>
MOV S8 <$STR(S8)>
INC S13 $(货币求购物品颜色)
INC S13
StrTok S11 S12 |
INC S13 <$STR(S12)>{AX=175,AY=148}>
StrTok S11 S12 |
INC S13 <
INC S13 <$STR(S12)>
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购撤消返还 = <$STR(S12)>
INC S13 <$STR(S12)>{AX=300,AY=148}>
StrTok S11 S12 |
CALCVAR HUMAN 货币求购卖类型 = <$STR(S12)>
GETSTRLENGTH $STR(S8) M1
INC S13 $(货币求购数量颜色)
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购撤消返还 * <$STR(S12)>
INC S13 <$STR(S12)>{AX=373,AY=148}>
INC S13 $(货币求购时间颜色)
INC S13
StrTok S11 S12 |
MOV D12 <$STR(S12)>
DEC D12 <$STR(D11)>
INC S13 <$STR(D12)>分钟{AX=402,AY=148}>
CALCVAR HUMAN 货币求购显示7排 = <$STR(S13)>
#IF
CHECKVAR HUMAN 货币求购卖类型 = 元宝
EQUAL M1 33
SMALL D12 1
#ACT
DELETELINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
CALCVAR GLOBAL 货币求购总数 - 1 ..\QuestDiary\开区清空文本\货币求购_全局变量.txt
<$HUMAN(货币求购玩家7)>.GAMEGOLD + <$HUMAN(货币求购撤消返还)>
GOTO @Bluem2.net_货币求购NPC
BREAK
#IF
CHECKVAR HUMAN 货币求购卖类型 = 金币
EQUAL M1 33
SMALL D12 1
#ACT
DELETELINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
CALCVAR GLOBAL 货币求购总数 - 1 ..\QuestDiary\开区清空文本\货币求购_全局变量.txt
<$HUMAN(货币求购玩家7)>.GIVE 金币 <$HUMAN(货币求购撤消返还)>
GOTO @Bluem2.net_货币求购NPC
BREAK
#IF
CHECKLEVELEX > 0
#ACT
MOV M1 0
MOV S8
MOV S10
MOV D12 0
MOV S11
MOV S12
MOV S13
INC P8 1
CALCVAR HUMAN 货币求购玩家8 =
READLINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
#IF
EQUAL S11
#ELSEACT
CALCVAR HUMAN 货币求购效验8 = <$STR(S11)>
MOV S10 Www.bluem2.Net_脚本制作QQ:3383205
MOV S13 $(货币求购玩家颜色)
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购玩家8 = <$STR(S12)>
INC S13 <$STR(S12)>{AX=65,AY=163}>
MOV S8 <$STR(
INC S8 S
INC S8 10)>
MOV S8 <$STR(S8)>
INC S13 $(货币求购物品颜色)
INC S13
StrTok S11 S12 |
INC S13 <$STR(S12)>{AX=175,AY=163}>
StrTok S11 S12 |
INC S13 <
INC S13 <$STR(S12)>
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购撤消返还 = <$STR(S12)>
INC S13 <$STR(S12)>{AX=300,AY=163}>
StrTok S11 S12 |
CALCVAR HUMAN 货币求购卖类型 = <$STR(S12)>
GETSTRLENGTH $STR(S8) M1
INC S13 $(货币求购数量颜色)
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购撤消返还 * <$STR(S12)>
INC S13 <$STR(S12)>{AX=373,AY=163}>
INC S13 $(货币求购时间颜色)
INC S13
StrTok S11 S12 |
MOV D12 <$STR(S12)>
DEC D12 <$STR(D11)>
INC S13 <$STR(D12)>分钟{AX=402,AY=163}>
CALCVAR HUMAN 货币求购显示8排 = <$STR(S13)>
#IF
CHECKVAR HUMAN 货币求购卖类型 = 元宝
EQUAL M1 33
SMALL D12 1
#ACT
DELETELINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
CALCVAR GLOBAL 货币求购总数 - 1 ..\QuestDiary\开区清空文本\货币求购_全局变量.txt
<$HUMAN(货币求购玩家8)>.GAMEGOLD + <$HUMAN(货币求购撤消返还)>
GOTO @Bluem2.net_货币求购NPC
BREAK
#IF
CHECKVAR HUMAN 货币求购卖类型 = 金币
EQUAL M1 33
SMALL D12 1
#ACT
DELETELINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
CALCVAR GLOBAL 货币求购总数 - 1 ..\QuestDiary\开区清空文本\货币求购_全局变量.txt
<$HUMAN(货币求购玩家8)>.GIVE 金币 <$HUMAN(货币求购撤消返还)>
GOTO @Bluem2.net_货币求购NPC
BREAK
#IF
CHECKLEVELEX > 0
#ACT
MOV M1 0
MOV S8
MOV S10
MOV D12 0
MOV S11
MOV S12
MOV S13
INC P8 1
CALCVAR HUMAN 货币求购玩家9 =
READLINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
#IF
EQUAL S11
#ELSEACT
CALCVAR HUMAN 货币求购效验9 = <$STR(S11)>
MOV S10 Www.bluem2.Net_脚本制作QQ:3383205
MOV S13 $(货币求购玩家颜色)
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购玩家9 = <$STR(S12)>
INC S13 <$STR(S12)>{AX=65,AY=178}>
MOV S8 <$STR(
INC S8 S
INC S8 10)>
MOV S8 <$STR(S8)>
INC S13 $(货币求购物品颜色)
INC S13
StrTok S11 S12 |
INC S13 <$STR(S12)>{AX=175,AY=178}>
StrTok S11 S12 |
INC S13 <
INC S13 <$STR(S12)>
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购撤消返还 = <$STR(S12)>
INC S13 <$STR(S12)>{AX=300,AY=178}>
StrTok S11 S12 |
CALCVAR HUMAN 货币求购卖类型 = <$STR(S12)>
GETSTRLENGTH $STR(S8) M1
INC S13 $(货币求购数量颜色)
INC S13
StrTok S11 S12 |
CALCVAR HUMAN 货币求购撤消返还 * <$STR(S12)>
INC S13 <$STR(S12)>{AX=373,AY=178}>
INC S13 $(货币求购时间颜色)
INC S13
StrTok S11 S12 |
MOV D12 <$STR(S12)>
DEC D12 <$STR(D11)>
INC S13 <$STR(D12)>分钟{AX=402,AY=178}>
CALCVAR HUMAN 货币求购显示9排 = <$STR(S13)>
#IF
CHECKVAR HUMAN 货币求购卖类型 = 元宝
EQUAL M1 33
SMALL D12 1
#ACT
DELETELINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
CALCVAR GLOBAL 货币求购总数 - 1 ..\QuestDiary\开区清空文本\货币求购_全局变量.txt
<$HUMAN(货币求购玩家9)>.GAMEGOLD + <$HUMAN(货币求购撤消返还)>
GOTO @Bluem2.net_货币求购NPC
BREAK
#IF
CHECKVAR HUMAN 货币求购卖类型 = 金币
EQUAL M1 33
SMALL D12 1
#ACT
DELETELINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt <$STR(P8)> S11 HardDisk
CALCVAR GLOBAL 货币求购总数 - 1 ..\QuestDiary\开区清空文本\货币求购_全局变量.txt
<$HUMAN(货币求购玩家9)>.GIVE 金币 <$HUMAN(货币求购撤消返还)>
GOTO @Bluem2.net_货币求购NPC
BREAK
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 货币求购按钮1 =
MOV S10 Www.bluem2.Net_脚本制作QQ:3383205
#IF
CHECKVAR HUMAN 货币求购效验1 =
#ACT
MOV S10
#IF
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮1 = <[玩家离线]{C=#$0000FF,AX=480,AY=58}/@玩家离线>
#IF
CHECKONLINE <$HUMAN(货币求购玩家1)>
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮1 = <[点击出售]{C=#$00FF7F,AX=480,AY=58}/@货币求购出售1>
#IF
CHECKONLINE <$HUMAN(货币求购玩家1)>
CHECKVAR HUMAN 货币求购玩家1 = <$USERNAME>
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮1 = <[撤消信息]{C=#$008CFF,AX=480,AY=58}/@货币求购撤消1>
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 货币求购按钮2 =
MOV S10 Www.bluem2.Net_脚本制作QQ:3383205
#IF
CHECKVAR HUMAN 货币求购效验2 =
#ACT
MOV S10
#IF
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮2 = <[玩家离线]{C=#$0000FF,AX=480,AY=73}/@玩家离线>
#IF
CHECKONLINE <$HUMAN(货币求购玩家2)>
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮2 = <[点击出售]{C=#$00FF7F,AX=480,AY=73}/@货币求购出售2>
#IF
CHECKONLINE <$HUMAN(货币求购玩家2)>
CHECKVAR HUMAN 货币求购玩家2 = <$USERNAME>
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮2 = <[撤消信息]{C=#$008CFF,AX=480,AY=73}/@货币求购撤消2>
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 货币求购按钮3 =
MOV S10 Www.bluem2.Net_脚本制作QQ:3383205
#IF
CHECKVAR HUMAN 货币求购效验3 =
#ACT
MOV S10
#IF
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮3 = <[玩家离线]{C=#$0000FF,AX=480,AY=88}/@玩家离线>
#IF
CHECKONLINE <$HUMAN(货币求购玩家3)>
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮3 = <[点击出售]{C=#$00FF7F,AX=480,AY=88}/@货币求购出售3>
#IF
CHECKONLINE <$HUMAN(货币求购玩家3)>
CHECKVAR HUMAN 货币求购玩家3 = <$USERNAME>
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮3 = <[撤消信息]{C=#$008CFF,AX=480,AY=88}/@货币求购撤消3>
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 货币求购按钮4 =
MOV S10 Www.bluem2.Net_脚本制作QQ:3383205
#IF
CHECKVAR HUMAN 货币求购效验4 =
#ACT
MOV S10
#IF
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮4 = <[玩家离线]{C=#$0000FF,AX=480,AY=103}/@玩家离线>
#IF
CHECKONLINE <$HUMAN(货币求购玩家4)>
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮4 = <[点击出售]{C=#$00FF7F,AX=480,AY=103}/@货币求购出售4>
#IF
CHECKONLINE <$HUMAN(货币求购玩家4)>
CHECKVAR HUMAN 货币求购玩家4 = <$USERNAME>
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮4 = <[撤消信息]{C=#$008CFF,AX=480,AY=103}/@货币求购撤消4>
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 货币求购按钮5 =
MOV S10 Www.bluem2.Net_脚本制作QQ:3383205
#IF
CHECKVAR HUMAN 货币求购效验5 =
#ACT
MOV S10
#IF
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮5 = <[玩家离线]{C=#$0000FF,AX=480,AY=118}/@玩家离线>
#IF
CHECKONLINE <$HUMAN(货币求购玩家5)>
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮5 = <[点击出售]{C=#$00FF7F,AX=480,AY=118}/@货币求购出售5>
#IF
CHECKONLINE <$HUMAN(货币求购玩家5)>
CHECKVAR HUMAN 货币求购玩家5 = <$USERNAME>
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮5 = <[撤消信息]{C=#$008CFF,AX=480,AY=118}/@货币求购撤消5>
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 货币求购按钮6 =
MOV S10 Www.bluem2.Net_脚本制作QQ:3383205
#IF
CHECKVAR HUMAN 货币求购效验6 =
#ACT
MOV S10
#IF
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮6 = <[玩家离线]{C=#$0000FF,AX=480,AY=133}/@玩家离线>
#IF
CHECKONLINE <$HUMAN(货币求购玩家6)>
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮6 = <[点击出售]{C=#$00FF7F,AX=480,AY=133}/@货币求购出售6>
#IF
CHECKONLINE <$HUMAN(货币求购玩家6)>
CHECKVAR HUMAN 货币求购玩家6 = <$USERNAME>
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮6 = <[撤消信息]{C=#$008CFF,AX=480,AY=133}/@货币求购撤消6>
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 货币求购按钮7 =
MOV S10 Www.bluem2.Net_脚本制作QQ:3383205
#IF
CHECKVAR HUMAN 货币求购效验7 =
#ACT
MOV S10
#IF
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮7 = <[玩家离线]{C=#$0000FF,AX=480,AY=148}/@玩家离线>
#IF
CHECKONLINE <$HUMAN(货币求购玩家7)>
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮7 = <[点击出售]{C=#$00FF7F,AX=480,AY=148}/@货币求购出售7>
#IF
CHECKONLINE <$HUMAN(货币求购玩家7)>
CHECKVAR HUMAN 货币求购玩家7 = <$USERNAME>
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮7 = <[撤消信息]{C=#$008CFF,AX=480,AY=148}/@货币求购撤消7>
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 货币求购按钮8 =
MOV S10 Www.bluem2.Net_脚本制作QQ:3383205
#IF
CHECKVAR HUMAN 货币求购效验8 =
#ACT
MOV S10
#IF
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮8 = <[玩家离线]{C=#$0000FF,AX=480,AY=163}/@玩家离线>
#IF
CHECKONLINE <$HUMAN(货币求购玩家8)>
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮8 = <[点击出售]{C=#$00FF7F,AX=480,AY=163}/@货币求购出售8>
#IF
CHECKONLINE <$HUMAN(货币求购玩家8)>
CHECKVAR HUMAN 货币求购玩家8 = <$USERNAME>
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮8 = <[撤消信息]{C=#$008CFF,AX=480,AY=163}/@货币求购撤消8>
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 货币求购按钮9 =
MOV S10 Www.bluem2.Net_脚本制作QQ:3383205
#IF
CHECKVAR HUMAN 货币求购效验9 =
#ACT
MOV S10
#IF
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮9 = <[玩家离线]{C=#$0000FF,AX=480,AY=178}/@玩家离线>
#IF
CHECKONLINE <$HUMAN(货币求购玩家9)>
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮9 = <[点击出售]{C=#$00FF7F,AX=480,AY=178}/@货币求购出售9>
#IF
CHECKONLINE <$HUMAN(货币求购玩家9)>
CHECKVAR HUMAN 货币求购玩家9 = <$USERNAME>
EQUAL S10 Www.bluem2.Net_脚本制作QQ:3383205
#ACT
CALCVAR HUMAN 货币求购按钮9 = <[撤消信息]{C=#$008CFF,AX=480,AY=178}/@货币求购撤消9>
#IF
CHECKVAR HUMAN 货币求购货币类型 = 金币
#SAY
        <COLOR=#$0000FF HOT~>  <COLOR=#$ADDEFF 【独家求购系统】>   <COLOR=#$00FF7F ☆ 1><COLOR=#$004DD42A .><COLOR=#$004EE42A 8><COLOR=#$004FF42A 0><COLOR=#$004DE74A 蓝><COLOR=#$004FF94A 色><COLOR=#$008EFAA1 合><COLOR=#$008EFAA3 击><COLOR=#$008CEAA7 ☆><COLOR=#$008CECC7 正><COLOR=#$008CEDD7 版><COLOR=#$008CEEE7 游><COLOR=#$008CEFF7 戏>┈<COLOR=#$008CEFF7 ☆><COLOR=#$000099FF 长><COLOR=#$000077FF 期><COLOR=#$000055FF 稳><COLOR=#$000033FF 定><COLOR=#$000022FF ☆>\
╔┈┈┈╦┈┈┈┈┈┈┈┈╦┈┈┈┈┈┈┈┈┈┈╦┈┈┈┈-╦┈┈╦┈┈┈┈╦┈┈┈┈┈┈┈┈╗\
┆<COLOR=#$ADDEFF  序号> ┆    <COLOR=#$ADDEFF 求购 玩家>  ┆    <COLOR=#$ADDEFF 求购 物品名称>  ┆<COLOR=#$2FFFAD 金币>|<COLOR=#$EE82EE 元宝>┆<COLOR=#$ADDEFF 数量>┆<COLOR=#$ADDEFF 剩余时间>┆    <COLOR=#$ADDEFF 求购状态>    ┆\
╠┈┈┈╬┈┈┈┈┈┈┈┈╬┈┈┈┈┈┈┈┈┈┈╬┈┈┈┈-╬┈┈╬┈┈┈┈╬┈┈┈┈┈┈┈┈╣\
┆  1   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
┆  2   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
┆  3   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
┆  4   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
┆  5   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
┆  6   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
┆  7   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
┆  8   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
┆  9   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
╠┈┈┈╩┈┈┈╦┈┈┈┈╬┈┈┈┈┈┈┈┈┈┈╩┈┈┈┈-╩┈┈╬┈┈┈┈╬┈┈┈┈┈┈┈┈╣\
┆              ┆ <上一页/@上一页> ┆                                     ┆ <下一页/@下一页> ┆                ┆\
╠┈┈┈┈┈┈┈╩┈┈╦┈╩┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈-╩┈┈╦┈╩┈┈┈┈┈┈┈┈╣\
┆ <COLOR=#$0000FF [选择金币求购物品]> ┆                                               ┆ <COLOR=#$00FFFF [><输入求购物品单价/@货币输入求购物品单价><COLOR=#$00FFFF ]> ┆\
┆ <COLOR=#$00FFFF [><选择元宝求购物品/@货币选择元宝求购物品><COLOR=#$00FFFF ]> ┆                                               ┆ <COLOR=#$00FFFF [><输入求购物品数量/@货币输入求购物品数量><COLOR=#$00FFFF ]> ┆\
╠┈┈┈┈┈┈┈┈┈┈╬┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈╦┈┈┈┈┈-╩┈┈┈┈┈┈┈┈┈┈╣\
┆ <COLOR=#$00FFFF [><输入求购物品名称/@货币输入求购物品名称><COLOR=#$00FFFF ]> ┆                                  ┆   <COLOR=#$0000FF 注意:价格栏显示的是物品单价>   ┆\
┆                    ┆          <COLOR=#$00FFFF [><确定发布求购信息/@货币确定发布求购信息><COLOR=#$00FFFF ]>      ┆ <COLOR=#$2FFFAD 绿色为金币价格>   <COLOR=#$EE82EE 紫色为元宝价格> ┆\
╚┈┈┈┈┈┈┈┈┈┈╩┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈╩┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈-╝\
<$HUMAN(货币求购直观显示)><$HUMAN(货币求购物品显示)><$HUMAN(货币求购金币显示)><$HUMAN(货币求购元宝显示)><$HUMAN(货币求购单价显示)><$HUMAN(货币求购数量显示)><$HUMAN(货币求购页数显示)>
<$HUMAN(货币求购显示1排)><$HUMAN(货币求购显示2排)><$HUMAN(货币求购显示3排)><$HUMAN(货币求购显示4排)>
<$HUMAN(货币求购显示5排)><$HUMAN(货币求购显示6排)><$HUMAN(货币求购显示7排)><$HUMAN(货币求购显示8排)><$HUMAN(货币求购显示9排)>
<$HUMAN(货币求购按钮1)><$HUMAN(货币求购按钮2)><$HUMAN(货币求购按钮3)><$HUMAN(货币求购按钮4)><$HUMAN(货币求购按钮5)>
<$HUMAN(货币求购按钮6)><$HUMAN(货币求购按钮7)><$HUMAN(货币求购按钮8)><$HUMAN(货币求购按钮9)>
#ACT
BREAK
#IF
CHECKVAR HUMAN 货币求购货币类型 = 元宝
#SAY
        <COLOR=#$0000FF HOT~>  <COLOR=#$ADDEFF 【独家求购系统】>   <COLOR=#$00FF7F ☆ 1><COLOR=#$004DD42A .><COLOR=#$004EE42A 8><COLOR=#$004FF42A 0><COLOR=#$004DE74A 蓝><COLOR=#$004FF94A 色><COLOR=#$008EFAA1 合><COLOR=#$008EFAA3 击><COLOR=#$008CEAA7 ☆><COLOR=#$008CECC7 正><COLOR=#$008CEDD7 版><COLOR=#$008CEEE7 游><COLOR=#$008CEFF7 戏>┈<COLOR=#$008CEFF7 ☆><COLOR=#$000099FF 长><COLOR=#$000077FF 期><COLOR=#$000055FF 稳><COLOR=#$000033FF 定><COLOR=#$000022FF ☆>\
╔┈┈┈╦┈┈┈┈┈┈┈┈╦┈┈┈┈┈┈┈┈┈┈╦┈┈┈┈-╦┈┈╦┈┈┈┈╦┈┈┈┈┈┈┈┈╗\
┆<COLOR=#$ADDEFF  序号> ┆    <COLOR=#$ADDEFF 求购 玩家>  ┆    <COLOR=#$ADDEFF 求购 物品名称>  ┆<COLOR=#$2FFFAD 金币>|<COLOR=#$EE82EE 元宝>┆<COLOR=#$ADDEFF 数量>┆<COLOR=#$ADDEFF 剩余时间>┆    <COLOR=#$ADDEFF 求购状态>    ┆\
╠┈┈┈╬┈┈┈┈┈┈┈┈╬┈┈┈┈┈┈┈┈┈┈╬┈┈┈┈-╬┈┈╬┈┈┈┈╬┈┈┈┈┈┈┈┈╣\
┆  1   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
┆  2   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
┆  3   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
┆  4   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
┆  5   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
┆  6   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
┆  7   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
┆  8   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
┆  9   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
╠┈┈┈╩┈┈┈╦┈┈┈┈╬┈┈┈┈┈┈┈┈┈┈╩┈┈┈┈-╩┈┈╬┈┈┈┈╬┈┈┈┈┈┈┈┈╣\
┆              ┆ <上一页/@上一页> ┆                                     ┆ <下一页/@下一页> ┆                ┆\
╠┈┈┈┈┈┈┈╩┈┈╦┈╩┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈-╩┈┈╦┈╩┈┈┈┈┈┈┈┈╣\
┆ <COLOR=#$00FFFF [><选择金币求购物品/@货币选择金币求购物品><COLOR=#$00FFFF ]> ┆                                               ┆ <COLOR=#$00FFFF [><输入求购物品单价/@货币输入求购物品单价><COLOR=#$00FFFF ]> ┆\
┆ <COLOR=#$0000FF [选择元宝求购物品]> ┆                                               ┆ <COLOR=#$00FFFF [><输入求购物品数量/@货币输入求购物品数量><COLOR=#$00FFFF ]> ┆\
╠┈┈┈┈┈┈┈┈┈┈╬┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈╦┈┈┈┈┈-╩┈┈┈┈┈┈┈┈┈┈╣\
┆ <COLOR=#$00FFFF [><输入求购物品名称/@货币输入求购物品名称><COLOR=#$00FFFF ]> ┆                                  ┆   <COLOR=#$0000FF 注意:价格栏显示的是物品单价>   ┆\
┆                    ┆          <COLOR=#$00FFFF [><确定发布求购信息/@货币确定发布求购信息><COLOR=#$00FFFF ]>      ┆ <COLOR=#$2FFFAD 绿色为金币价格>   <COLOR=#$EE82EE 紫色为元宝价格> ┆\
╚┈┈┈┈┈┈┈┈┈┈╩┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈╩┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈-╝\
<$HUMAN(货币求购直观显示)><$HUMAN(货币求购物品显示)><$HUMAN(货币求购金币显示)><$HUMAN(货币求购元宝显示)><$HUMAN(货币求购单价显示)><$HUMAN(货币求购数量显示)><$HUMAN(货币求购页数显示)>
<$HUMAN(货币求购显示1排)><$HUMAN(货币求购显示2排)><$HUMAN(货币求购显示3排)><$HUMAN(货币求购显示4排)>
<$HUMAN(货币求购显示5排)><$HUMAN(货币求购显示6排)><$HUMAN(货币求购显示7排)><$HUMAN(货币求购显示8排)><$HUMAN(货币求购显示9排)>
<$HUMAN(货币求购按钮1)><$HUMAN(货币求购按钮2)><$HUMAN(货币求购按钮3)><$HUMAN(货币求购按钮4)><$HUMAN(货币求购按钮5)>
<$HUMAN(货币求购按钮6)><$HUMAN(货币求购按钮7)><$HUMAN(货币求购按钮8)><$HUMAN(货币求购按钮9)>
#ACT
BREAK
#IF
CHECKLEVELEX > 0
#SAY
        <COLOR=#$0000FF HOT~>  <COLOR=#$ADDEFF 【独家求购系统】>   <COLOR=#$00FF7F ☆ 1><COLOR=#$004DD42A .><COLOR=#$004EE42A 8><COLOR=#$004FF42A 0><COLOR=#$004DE74A 蓝><COLOR=#$004FF94A 色><COLOR=#$008EFAA1 合><COLOR=#$008EFAA3 击><COLOR=#$008CEAA7 ☆><COLOR=#$008CECC7 正><COLOR=#$008CEDD7 版><COLOR=#$008CEEE7 游><COLOR=#$008CEFF7 戏>┈<COLOR=#$008CEFF7 ☆><COLOR=#$000099FF 长><COLOR=#$000077FF 期><COLOR=#$000055FF 稳><COLOR=#$000033FF 定><COLOR=#$000022FF ☆>\
╔┈┈┈╦┈┈┈┈┈┈┈┈╦┈┈┈┈┈┈┈┈┈┈╦┈┈┈┈-╦┈┈╦┈┈┈┈╦┈┈┈┈┈┈┈┈╗\
┆<COLOR=#$ADDEFF  序号> ┆    <COLOR=#$ADDEFF 求购 玩家>  ┆    <COLOR=#$ADDEFF 求购 物品名称>  ┆<COLOR=#$2FFFAD 金币>|<COLOR=#$EE82EE 元宝>┆<COLOR=#$ADDEFF 数量>┆<COLOR=#$ADDEFF 剩余时间>┆    <COLOR=#$ADDEFF 求购状态>    ┆\
╠┈┈┈╬┈┈┈┈┈┈┈┈╬┈┈┈┈┈┈┈┈┈┈╬┈┈┈┈-╬┈┈╬┈┈┈┈╬┈┈┈┈┈┈┈┈╣\
┆  1   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
┆  2   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
┆  3   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
┆  4   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
┆  5   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
┆  6   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
┆  7   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
┆  8   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
┆  9   ┆                ┆                    ┆         ┆    ┆        ┆                ┆\
╠┈┈┈╩┈┈┈╦┈┈┈┈╬┈┈┈┈┈┈┈┈┈┈╩┈┈┈┈-╩┈┈╬┈┈┈┈╬┈┈┈┈┈┈┈┈╣\
┆              ┆ <上一页/@上一页> ┆                                     ┆ <下一页/@下一页> ┆                ┆\
╠┈┈┈┈┈┈┈╩┈┈╦┈╩┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈-╩┈┈╦┈╩┈┈┈┈┈┈┈┈╣\
┆ <COLOR=#$00FFFF [><选择金币求购物品/@货币选择金币求购物品><COLOR=#$00FFFF ]> ┆                                               ┆ <COLOR=#$00FFFF [><输入求购物品单价/@货币输入求购物品单价><COLOR=#$00FFFF ]> ┆\
┆ <COLOR=#$00FFFF [><选择元宝求购物品/@货币选择元宝求购物品><COLOR=#$00FFFF ]> ┆                                               ┆ <COLOR=#$00FFFF [><输入求购物品数量/@货币输入求购物品数量><COLOR=#$00FFFF ]> ┆\
╠┈┈┈┈┈┈┈┈┈┈╬┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈╦┈┈┈┈┈-╩┈┈┈┈┈┈┈┈┈┈╣\
┆ <COLOR=#$00FFFF [><输入求购物品名称/@货币输入求购物品名称><COLOR=#$00FFFF ]> ┆                                  ┆   <COLOR=#$0000FF 注意:价格栏显示的是物品单价>   ┆\
┆                    ┆          <COLOR=#$00FFFF [><确定发布求购信息/@货币确定发布求购信息><COLOR=#$00FFFF ]>      ┆ <COLOR=#$2FFFAD 绿色为金币价格>   <COLOR=#$EE82EE 紫色为元宝价格> ┆\
╚┈┈┈┈┈┈┈┈┈┈╩┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈╩┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈-╝\
<$HUMAN(货币求购直观显示)><$HUMAN(货币求购物品显示)><$HUMAN(货币求购金币显示)><$HUMAN(货币求购元宝显示)><$HUMAN(货币求购单价显示)><$HUMAN(货币求购数量显示)><$HUMAN(货币求购页数显示)>
<$HUMAN(货币求购显示1排)><$HUMAN(货币求购显示2排)><$HUMAN(货币求购显示3排)><$HUMAN(货币求购显示4排)>
<$HUMAN(货币求购显示5排)><$HUMAN(货币求购显示6排)><$HUMAN(货币求购显示7排)><$HUMAN(货币求购显示8排)><$HUMAN(货币求购显示9排)>
<$HUMAN(货币求购按钮1)><$HUMAN(货币求购按钮2)><$HUMAN(货币求购按钮3)><$HUMAN(货币求购按钮4)><$HUMAN(货币求购按钮5)>
<$HUMAN(货币求购按钮6)><$HUMAN(货币求购按钮7)><$HUMAN(货币求购按钮8)><$HUMAN(货币求购按钮9)>
[@下一页]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 货币求购输入页 + 1
GOTO @货币求购页面显示
BREAK
[@上一页]
#IF
CHECKVAR HUMAN 货币求购输入页 > 1
#ACT
CALCVAR HUMAN 货币求购输入页 - 1
GOTO @货币求购页面显示
BREAK
[@HBQG1]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 货币求购输入页 = 1
GOTO @货币求购页面显示
BREAK
[@HBQG2]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 货币求购输入页 = 2
GOTO @货币求购页面显示
BREAK
[@HBQG3]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 货币求购输入页 = 3
GOTO @货币求购页面显示
BREAK
[@HBQG4]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 货币求购输入页 = 4
GOTO @货币求购页面显示
BREAK
[@HBQG5]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 货币求购输入页 = 5
GOTO @货币求购页面显示
BREAK
[@HBQG6]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 货币求购输入页 = 6
GOTO @货币求购页面显示
BREAK
[@HBQG7]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 货币求购输入页 = 7
GOTO @货币求购页面显示
BREAK
[@HBQG8]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 货币求购输入页 = 8
GOTO @货币求购页面显示
BREAK
[@HBQG9]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 货币求购输入页 = 9
GOTO @货币求购页面显示
BREAK
[@货币选择金币求购物品]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 货币求购货币类型 = 金币
CALCVAR HUMAN 货币求购物品单价 = 0
CALCVAR HUMAN 货币求购单价显示 =
GOTO @Bluem2.net_货币求购NPC
[@货币选择元宝求购物品]
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 货币求购货币类型 = 元宝
CALCVAR HUMAN 货币求购物品单价 = 0
CALCVAR HUMAN 货币求购单价显示 =
GOTO @Bluem2.net_货币求购NPC
[@货币输入求购物品名称]
#IF
CHECKLEVELEX > 0
#ACT
QUERYVALUE 10 0 50 @货币输入求购物品名称2 请输入您要求购的物品名称:
[@货币输入求购物品名称2]
#IF
EQUAL S10
#ACT
MESSAGEBOX 对不起,请输入您要求购的物品名字!
BREAK
#IF
CheckStringList ..\QuestDiary\Bluem2.net_货币求购配置\抽取检测\Bluem2.net_允许货币求购道具.INI <$STR(S10)> HardDisk
#ELSEACT
MESSAGEBOX 对不起,【<$STR(S10)>】不支持求购,请重新输入物品名字!
MOV S10
BREAK
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 货币求购道具名称 = <$STR(S10)>
CALCVAR HUMAN 货币求购物品数量 = $(货币求购个数最小)
CALCVAR HUMAN 货币求购物品单价 = 0
CALCVAR HUMAN 货币求购单价显示 =
MOV S10
GOTO @Bluem2.net_货币求购NPC
[@货币输入求购物品单价]
#IF
CHECKVAR HUMAN 货币求购道具名称 =
#ACT
MESSAGEBOX 对不起,请先输入您要求购的物品名字!
BREAK
#IF
CHECKVAR HUMAN 货币求购货币类型 =
#ACT
MESSAGEBOX 对不起,请先选择您要使用哪种货币求购道具!
BREAK
#IF
CHECKLEVELEX > 0
#ACT
QUERYVALUE 0 1 9 @货币输入求购物品单价2 请输入您要求购物品的单价:(<$HUMAN(货币求购货币类型)>) NPC
[@货币输入求购物品单价2]
#IF
CHECKLEVELEX > 0
#ACT
MOV P9 0
INI_RELOAD ..\QuestDiary\Bluem2.net_货币求购配置\抽取检测\Bluem2.net_道具允许最低价格.INI
INI_READ_INTEGER ..\QuestDiary\Bluem2.net_货币求购配置\抽取检测\Bluem2.net_道具允许最低价格.INI 道具允许最低价格 <$HUMAN(货币求购道具名称)>_<$HUMAN(货币求购货币类型)> P9
#IF
CHECKVAR HUMAN 货币求购货币类型 = 金币
SMALL P9 1
#ACT
MOV P9 $(货币求购金币单价最小)
#IF
CHECKVAR HUMAN 货币求购货币类型 = 元宝
SMALL P9 1
#ACT
MOV P9 $(货币求购元宝单价最小)
#IF
SMALL P9 1
#ACT
MOV P9 1
#IF
SMALL M0 <$STR(P9)>
#ACT
MOV M0 0
MESSAGEBOX 对不起,【<$HUMAN(货币求购道具名称)>】的<$HUMAN(货币求购货币类型)>求购单价最小为:<$STR(P9)>
GOTO @Bluem2.net_货币求购NPC
BREAK
#IF
CHECKVAR HUMAN 货币求购货币类型 = 金币
LARGE M0 $(货币求购金币单价最大)
#ACT
MOV M0 0
MESSAGEBOX 对不起,【<$HUMAN(货币求购道具名称)>】的<$HUMAN(货币求购货币类型)>求购单价最大为:$(货币求购金币单价最大)
GOTO @Bluem2.net_货币求购NPC
BREAK
#IF
CHECKVAR HUMAN 货币求购货币类型 = 元宝
LARGE M0 $(货币求购元宝单价最大)
#ACT
MOV M0 0
MESSAGEBOX 对不起,【<$HUMAN(货币求购道具名称)>】的<$HUMAN(货币求购货币类型)>求购单价最大为:$(货币求购元宝单价最大)
GOTO @Bluem2.net_货币求购NPC
BREAK
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 货币求购物品单价 = <$STR(M0)>
MOV M0 0
GOTO @Bluem2.net_货币求购NPC
[@货币输入求购物品数量]
#IF
CHECKVAR HUMAN 货币求购道具名称 =
#ACT
MESSAGEBOX 对不起,请先输入您要求购的物品名字!
BREAK
#IF
CHECKVAR HUMAN 货币求购货币类型 =
#ACT
MESSAGEBOX 对不起,请先选择您要使用哪种货币(金币/元宝)求购道具!
BREAK
#IF
CHECKVAR HUMAN 货币求购物品单价 = 0
#ACT
MESSAGEBOX 对不起,请先输入您要求购物品的单价!
BREAK
#IF
CHECKLEVELEX > 0
#ACT
QUERYVALUE 0 1 1 @货币输入求购物品数量2 请输入您要求购物品的数量: NPC
[@货币输入求购物品数量2]
#IF
SMALL M0 $(货币求购个数最小)
#ACT
MOV M0 0
MESSAGEBOX 对不起,求购数量最小为$(货币求购个数最小)个!\ \请输入$(货币求购个数最小)-$(货币求购个数最大)之间的整数!
GOTO @Bluem2.net_货币求购NPC
BREAK
#IF
LARGE M0 $(货币求购个数最大)
#ACT
MOV M0 0
MESSAGEBOX 对不起,求购数量最大为$(货币求购个数最大)个!\ \请输入$(货币求购个数最小)-$(货币求购个数最大)之间的整数!
GOTO @Bluem2.net_货币求购NPC
BREAK
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 货币求购物品数量 = <$STR(M0)>
MOV M0 0
GOTO @Bluem2.net_货币求购NPC
[@货币确定发布求购信息]
#IF
CHECKVAR GLOBAL 货币求购总数 < $(货币求购记录总数)
#ELSEACT
MESSAGEBOX 对不起,本服求购信息已达到上限$(货币求购记录总数)条!\ \请等待其他玩家求购完毕或等待其他求购信息到时!
GOTO @Bluem2.net_积分求购脚本NPC
BREAK
#IF
CHECKLEVELEX > 0
#ACT
INI_READ_INTEGER ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购发布数.INI 货币求购发布数 <$USERNAME> D15
#IF
SMALL D15 $(货币求购发布条数)
#ELSEACT
MESSAGEBOX 对不起,本服求购信息已达到上限$(货币求购发布条数)条!\ \请撤消其他求购信息或等待您的其他求购信息到时!
GOTO @Bluem2.net_积分求购脚本NPC
BREAK
#IF
CHECKVAR HUMAN 货币求购道具名称 =
#ACT
MESSAGEBOX 对不起,请先输入您要求购的物品名字!
BREAK
#IF
CHECKVAR HUMAN 货币求购货币类型 =
#ACT
MESSAGEBOX 对不起,请先选择您要使用哪种货币(金币/元宝)求购道具!
BREAK
#IF
CHECKVAR HUMAN 货币求购物品单价 = 0
#ACT
MESSAGEBOX 对不起,请先输入您要求购物品的单价!
BREAK
#IF
CHECKLEVELEX > 0
#ACT
MOV S10 <$YEAR>
DEC S10 1 2
MOV D10 <$STR(S10)> 525600
MOV D11 <$STR(D10)>
#IF
CHECKLEVELEX > 0
#ACT
MOV D10 <$MONTH>
#IF
LARGE D10 1
#ACT
ReadRandomLine ..\QuestDiary\Bluem2.net_货币求购配置\时间读取\<$STR(D10)>.txt S10
MOV D10 <$STR(S10)>
INC D11 <$STR(D10)>
#IF
CHECKLEVELEX > 0
#ACT
MOV D10 <$DAY>
#IF
LARGE D10 1
#ACT
DEC D10 1
MUL D10 1440
INC D11 <$STR(D10)>
#IF
CHECKLEVELEX > 0
#ACT
MOV D10 <$HOUR>
#IF
LARGE D10 0
#ACT
MUL D10 60
INC D11 <$STR(D10)>
#IF
CHECKLEVELEX > 0
#ACT
MOV D10 <$MINUTE>
#IF
LARGE D10 0
#ACT
INC D11 <$STR(D10)>
#IF
CHECKLEVELEX > 0
#ACT
MOV D14 <$HUMAN(货币求购物品单价)> <$HUMAN(货币求购物品数量)>
#IF
CHECKVAR HUMAN 货币求购货币类型 = 金币
!checkgold <$STR(D14)>
#ACT
MESSAGEBOX 对不起,你身上金币不足:<$HUMAN(货币求购物品单价)>x<$HUMAN(货币求购物品数量)>=[<$STR(D14)>]
BREAK
#IF
CHECKVAR HUMAN 货币求购货币类型 = 元宝
CHECKGAMEGOLD < <$STR(D14)>
#ACT
MESSAGEBOX 对不起,你身上元宝不足:<$HUMAN(货币求购物品单价)>x<$HUMAN(货币求购物品数量)>=[<$STR(D14)>]
BREAK
#IF
SMALL D15 $(货币求购发布条数)
#ELSEACT
MESSAGEBOX 对不起,本服求购信息已达到上限$(货币求购发布条数)条!\ \请撤消其他求购信息或等待您的其他求购信息到时!
GOTO @Bluem2.net_积分求购脚本NPC
BREAK
#IF
CHECKVAR HUMAN 货币求购货币类型 = 金币
#ACT
TAKE 金币 <$STR(D14)>
INC D11 $(货币求购发布时限)
CALCVAR GLOBAL 货币求购总数 + 1 ..\QuestDiary\开区清空文本\货币求购_全局变量.txt
INI_WRITE_INTEGER_EX ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购发布数.INI 货币求购发布数 <$USERNAME> + 1
INSERTLINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt 1 <$USERNAME>|<$HUMAN(货币求购道具名称)>|$(货币求购金币颜色)|<$HUMAN(货币求购物品单价)>|<$HUMAN(货币求购货币类型)>|<$HUMAN(货币求购物品数量)>|<$STR(D11)> HardDisk
GOTO @Bluem2.net_货币求购NPC
#IF
CHECKVAR HUMAN 货币求购货币类型 = 元宝
#ACT
GAMEGOLD - <$STR(D14)>
INC D11 $(货币求购发布时限)
CALCVAR GLOBAL 货币求购总数 + 1 ..\QuestDiary\开区清空文本\货币求购_全局变量.txt
INI_WRITE_INTEGER_EX ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购发布数.INI 货币求购发布数 <$USERNAME> + 1
INSERTLINE ..\QuestDiary\Bluem2.net_货币求购配置\Bluem2.net_货币求购数据库.txt 1 <$USERNAME>|<$HUMAN(货币求购道具名称)>|$(货币求购元宝颜色)|<$HUMAN(货币求购物品单价)>|<$HUMAN(货币求购货币类型)>|<$HUMAN(货币求购物品数量)>|<$STR(D11)> HardDisk
GOTO @Bluem2.net_货币求购NPC
[@Bluem2.net_货币求购常量加载]
#CALL [\Bluem2.net_货币求购配置\Bluem2.net_货币求购常量.ini] @Bluem2.net_货币求购常量
#CALL [\Bluem2.net_货币求购配置\Bluem2.net_货币求购撤消.txt] @Bluem2.net_货币求购撤消
#CALL [\Bluem2.net_货币求购配置\Bluem2.net_货币求购出售.txt] @Bluem2.net_货币求购出售
}


游客,如果您要查看本帖隐藏内容请回复


回复

使用道具 举报

精彩评论1

akenyc 发表于 2022-5-28 18:30:48 | 显示全部楼层

这东西我收了!谢谢楼主!pkhuo.com真好!
回复

使用道具 举报

懒得打字嘛,点击右侧快捷回复 【右侧内容,后台自定义】
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

PKhuo论坛手机版

扫一扫二维码

传奇最全教程基地

Powered by PKhuo!X3.4 ©2001-2013 Comsenz Inc. 湘ICP备15015719号-5 |Sitemap|友链申请|网站地图