PK火游戏排行榜, 玩家编程技术

标题: 热血传奇特色脚本:宠物系统功能 [打印本页]

作者: pkhuo    时间: 2021-9-28 05:16
标题: 热血传奇特色脚本:宠物系统功能

[@Bluem2.net_宠物系统NPC]
{
#IF
CHECKINTS 0 = 0
#ACT
INTS 0 = 1
ADDSKILL 召唤宠物 3
INTS 2 = 1800


#IF
CHECKINTS 0 = 7
#SAY
<>\
<>\
<>                <COLOR=#$0079FF 〝≈><COLOR=#$00A0FF 傲><COLOR=#$00B1FF 世><COLOR=#$00C2FF 傳><COLOR=#$00D3FF 奇><COLOR=#$00B1FF ≈><COLOR=#$00FFC5 正版><COLOR=#$00FFD6 授权><COLOR=#$00FFE7 ≈><COLOR=#$00FFF8 公司><COLOR=#$00F5FF 运营><COLOR=#$00E4FF ≈><COLOR=#$00D3FF 独><COLOR=#$00C2FF 家><COLOR=#$00B1FF 奉><COLOR=#$00A0FF 献><COLOR=#$0079FF ≈〞>\
<>\
<>                                                      当前点卷:<$INTS9>\
<><PIC=Prguse3,653,1,0,0,133,33 LABEL=@晋级宠物 HINT=晋级宠物可以提升其伤害,每一级的宠物属性都有不同的BUFF><PIC=Prguse3,652,1,0,0,64,63 LABEL=@喂养宠物 HINT=喂养宠物可提升宠物的经验,经验满后才可以晋级宠物><PIC=Prguse3,655,1,0,0,-4,93 LABEL=@储存食物 HINT=储存食物可增加宠物与您并肩作战的时间,宠物在线10秒会消耗1点食物><PIC=Prguse3,654,1,0,0,-73,123 LABEL=@购买食物 HINT=购买食物>\
<>\
<>                                  宠物等级:<$INTS0>\ \
<>                                  宠物经验:0/0\ \
<>                                  食物储存:<$INTS2>\ \
<>                                  当前伤害:$(宠物7级伤害)\
<>\
<>  <CMD=@购买食物 HINT=玛法大陆所有怪均爆\也可直接[购买食物]>竹子</>可以喂养宠物获得$(竹子加经验)点经验,经验满了必须使用<CMD=@无效 HINT=可在商铺中购买>熊猫烧酒</>晋级宠物。\
<>  玩家可以免费领取一次宠物,宠物免疫伤害、增加BUFF、帮忙打怪。\
<>  每一级的宠物属性都有不同的BUFF。\
<>  宠物只会攻击怪物,不会攻击人物以及英雄或宠物。\
<>  无论战斗、PK、群战、宠物都是不可缺少的。\
<>  学习<COLOR=#$0079FF 心灵召唤>可以随时召唤宠物到身边或锁定攻击目标!<学习心灵召唤/@心灵召唤>
#ACT
SetMerchantDlgImgName cw.png
BREAK

#IF
CHECKINTS 0 = 1
#ACT
CALCVAR HUMAN 宠物升级经验 = $(宠物1级经验)
CALCVAR HUMAN 宠物当前伤害 = $(宠物1级伤害)
CALCVAR HUMAN 宠物下级伤害 = $(宠物2级伤害)

#IF
CHECKINTS 0 = 2
#ACT
CALCVAR HUMAN 宠物升级经验 = $(宠物2级经验)
CALCVAR HUMAN 宠物当前伤害 = $(宠物2级伤害)
CALCVAR HUMAN 宠物下级伤害 = $(宠物3级伤害)

#IF
CHECKINTS 0 = 3
#ACT
CALCVAR HUMAN 宠物升级经验 = $(宠物3级经验)
CALCVAR HUMAN 宠物当前伤害 = $(宠物3级伤害)
CALCVAR HUMAN 宠物下级伤害 = $(宠物4级伤害)

#IF
CHECKINTS 0 = 4
#ACT
CALCVAR HUMAN 宠物升级经验 = $(宠物4级经验)
CALCVAR HUMAN 宠物当前伤害 = $(宠物4级伤害)
CALCVAR HUMAN 宠物下级伤害 = $(宠物5级伤害)

#IF
CHECKINTS 0 = 5
#ACT
CALCVAR HUMAN 宠物升级经验 = $(宠物5级经验)
CALCVAR HUMAN 宠物当前伤害 = $(宠物5级伤害)
CALCVAR HUMAN 宠物下级伤害 = $(宠物6级伤害)

#IF
CHECKINTS 0 = 6
#ACT
CALCVAR HUMAN 宠物升级经验 = $(宠物6级经验)
CALCVAR HUMAN 宠物当前伤害 = $(宠物6级伤害)
CALCVAR HUMAN 宠物下级伤害 = $(宠物7级伤害)




#IF
CHECKLEVELEX > 0
#SAY
<>\
<>\
<>                <COLOR=#$0079FF 〝≈><COLOR=#$00A0FF 傲><COLOR=#$00B1FF 世><COLOR=#$00C2FF 傳><COLOR=#$00D3FF 奇><COLOR=#$00B1FF ≈><COLOR=#$00FFC5 正版><COLOR=#$00FFD6 授权><COLOR=#$00FFE7 ≈><COLOR=#$00FFF8 公司><COLOR=#$00F5FF 运营><COLOR=#$00E4FF ≈><COLOR=#$00D3FF 独><COLOR=#$00C2FF 家><COLOR=#$00B1FF 奉><COLOR=#$00A0FF 献><COLOR=#$0079FF ≈〞>\
<>\
<>                                                      当前点卷:<$INTS9>\
<><PIC=Prguse3,653,1,0,0,133,33 LABEL=@晋级宠物 HINT=晋级宠物可以提升其伤害,每一级的宠物属性都有不同的BUFF><PIC=Prguse3,652,1,0,0,64,63 LABEL=@喂养宠物 HINT=喂养宠物可提升宠物的经验,经验满后才可以晋级宠物><PIC=Prguse3,655,1,0,0,-4,93 LABEL=@储存食物 HINT=储存食物可增加宠物与您并肩作战的时间,宠物在线10秒会消耗1点食物><PIC=Prguse3,654,1,0,0,-73,123 LABEL=@购买食物 HINT=购买食物>\
<>\
<>                                  宠物等级:<$INTS0>\ \
<>                                  宠物经验:<$INTS1>/<$HUMAN(宠物升级经验)>\ \
<>                                  食物储存:<$INTS2>\ \
<>                                  当前伤害:<$HUMAN(宠物当前伤害)>       下级伤害:<$HUMAN(宠物下级伤害)>\
<>\
<>  <CMD=@购买食物 HINT=玛法大陆所有怪均爆\也可直接[购买食物]>竹子</>可以喂养宠物获得$(竹子加经验)点经验,经验满了必须使用<CMD=@无效 HINT=可在商铺中购买>熊猫烧酒</>晋级宠物。\
<>  玩家可以免费领取一次宠物,宠物免疫伤害、增加BUFF、帮忙打怪。\
<>  每一级的宠物属性都有不同的BUFF。\
<>  宠物只会攻击怪物,不会攻击人物以及英雄或宠物。\
<>  无论战斗、PK、群战、宠物都是不可缺少的。\
<>  学习<COLOR=#$0079FF 心灵召唤>可以随时召唤宠物到身边或锁定攻击目标!<学习心灵召唤/@心灵召唤>
#ACT
SetMerchantDlgImgName cw.png
BREAK

[@心灵召唤]
#ACT
QUERYVALUE 2 2 10 ~心灵召唤 学习心灵召唤后可以随时召唤宠物到身边或锁定攻击目标!\ \学习此技能需要4000点卷!\ \                  同·意     拒·绝\                   ↓       ↓ QF

[~心灵召唤]
#IF
CHECKINTS 9 ? 4000
#ACT
INTS 9 - 4000
ADDSKILL 心灵召唤 1
GOTO @Bluem2.net_宠物系统NPC
BREAK
#ELSEACT
MESSAGEBOX 对不起,你没有足够的点卷!
BREAK

[@储存食物]
#ACT
QUERYVALUE 10 1 4 ~储存食物 宠物在作战的时候将消耗一定的食物\每个竹子可以增加$(竹子储存)食物点,请输入你想储存多少竹子? QF

[@购买食物]
#ACT
QUERYVALUE 10 1 4 ~购买食物 请输入你想购买多少竹子?\竹子单价:$(竹子单价)点卷 QF

[@喂养宠物]
#ACT
QUERYVALUE 10 1 3 ~喂养宠物 请输入你想使用多少竹子喂养宠物?\每个竹子可提升宠物:$(竹子加经验)经验 QF

[@晋级宠物]
#IF
CHECKINTS 1 < <$HUMAN(宠物升级经验)>
#ACT
MESSAGEBOX 当前宠物经验不足<$HUMAN(宠物升级经验)>,晋级失败!
BREAK
#IF
CHECKINTS 0 = 7
#ACT
MESSAGEBOX 宠物已达到最高等级!
BREAK
#IF
checkitem 熊猫烧酒 1
#ACT
TAKE 熊猫烧酒 1
INTS 1 - <$HUMAN(宠物升级经验)>
INTS 0 + 1
GOTO @Bluem2.net_宠物系统NPC
BREAK
#ELSEACT
MESSAGEBOX 对不起您缺少晋级宠物的必要物品:<熊猫烧酒>
BREAK





[~储存食物]
#IF
LARGE M10 0
#ELSEACT
MESSAGEBOX 请输入正确数字!
BREAK
#IF
checkitem 竹子 <$STR(M10)>
#ACT
TAKE 竹子 <$STR(M10)>
MOV M10 $(竹子储存) <$STR(M10)>
INTS 2 + <$STR(M10)>
GOTO @Bluem2.net_宠物系统NPC
BREAK
#ELSEACT
MESSAGEBOX 对不起你没有足够的<竹子>喂养宠物!
BREAK

[~购买食物]
#IF
CHECKLEVELEX > 0
#ACT
MOV M11 <$STR(M10)> $(竹子单价)
#IF
CHECKINTS 9 < <$STR(M11)>
#ACT
MESSAGEBOX 对不起,你没有足够的点卷!
BREAK
#IF
LARGE M11 0
#ACT
INTS 9 - <$STR(M11)>
GIVE 竹子 <$STR(M10)>
SENDMSG 6 成功购买获得竹子:<$STR(M10)>!
GOTO @Bluem2.net_宠物系统NPC
BREAK
#ELSEACT
MESSAGEBOX 请输入正确数字!
BREAK

[~喂养宠物]
#IF
CHECKINTS 0 = 7
#ACT
MESSAGEBOX 宠物已达到最高等级,无须再喂养了!
BREAK
#IF
LARGE M10 0
#ELSEACT
MESSAGEBOX 请输入正确数字!
BREAK
#IF
checkitem 竹子 <$STR(M10)>
#ELSEACT
MESSAGEBOX 对不起你没有足够的<竹子>喂养宠物!
BREAK
#IF
CHECKINTS 1 < <$HUMAN(宠物升级经验)>
#ACT
TAKE 竹子 <$STR(M10)>
MOV M10 $(竹子加经验) <$STR(M10)>
INTS 1 + <$STR(M10)>
GOTO @Bluem2.net_宠物系统NPC
BREAK
#ELSEACT
MESSAGEBOX 宠物经验已满,使用熊猫烧酒可晋级宠物!
BREAK
}

[@Bluem2.net_宠物系统私人申明]
{
#if
CHECKLEVELEX > 0
#act
VAR Integer HUMAN 宠物当前等级
VAR Integer HUMAN 宠物当前伤害
VAR Integer HUMAN 宠物下级伤害
VAR Integer HUMAN 宠物升级经验
VAR Integer HUMAN 宠物职业
VAR Integer HUMAN 宠物性别
SetScTimer 10 10

#IF
CHECKINTS 0 = 1
#ACT
INTS 0 = 1
ADDSKILL 召唤宠物 3
INTS 2 = 18000



[@OnTimer10]
#IF
CHECKVAR HUMAN 宠物职业 > 0
#ELSEACT
BREAK
#IF
CHECKSLAVENAME $(宠物1级名字)<$HUMAN(宠物职业)><$HUMAN(宠物性别)>
CHECKINTS 2 > 0
#ACT
INTS 2 - 1
BREAK
#IF
CHECKSLAVENAME $(宠物2级名字)<$HUMAN(宠物职业)><$HUMAN(宠物性别)>
CHECKINTS 2 > 0
#ACT
INTS 2 - 1
BREAK
#IF
CHECKSLAVENAME $(宠物3级名字)<$HUMAN(宠物职业)><$HUMAN(宠物性别)>
CHECKINTS 2 > 0
#ACT
INTS 2 - 1
BREAK
#IF
CHECKSLAVENAME $(宠物4级名字)<$HUMAN(宠物职业)><$HUMAN(宠物性别)>
CHECKINTS 2 > 0
#ACT
INTS 2 - 1
BREAK
#IF
CHECKSLAVENAME $(宠物5级名字)<$HUMAN(宠物职业)><$HUMAN(宠物性别)>
CHECKINTS 2 > 0
#ACT
INTS 2 - 1
BREAK
#IF
CHECKSLAVENAME $(宠物6级名字)<$HUMAN(宠物职业)><$HUMAN(宠物性别)>
CHECKINTS 2 > 0
#ACT
INTS 2 - 1
BREAK
#IF
CHECKSLAVENAME $(宠物7级名字)<$HUMAN(宠物职业)><$HUMAN(宠物性别)>
CHECKINTS 2 > 0
#ACT
INTS 2 - 1
BREAK

#IF
CHECKLEVELEX > 0
#ACT
KILLSLAVENAME $(宠物1级名字)<$HUMAN(宠物职业)><$HUMAN(宠物性别)>
KILLSLAVENAME $(宠物2级名字)<$HUMAN(宠物职业)><$HUMAN(宠物性别)>
KILLSLAVENAME $(宠物3级名字)<$HUMAN(宠物职业)><$HUMAN(宠物性别)>
KILLSLAVENAME $(宠物4级名字)<$HUMAN(宠物职业)><$HUMAN(宠物性别)>
KILLSLAVENAME $(宠物5级名字)<$HUMAN(宠物职业)><$HUMAN(宠物性别)>
KILLSLAVENAME $(宠物6级名字)<$HUMAN(宠物职业)><$HUMAN(宠物性别)>
KILLSLAVENAME $(宠物7级名字)<$HUMAN(宠物职业)><$HUMAN(宠物性别)>
CALCVAR HUMAN 宠物职业 = 0
CALCVAR HUMAN 宠物性别 = 0
BREAK


[@宠物系统常量加载]
#CALL [\Bluem2.net_宠物系统配置\宠物系统常量.ini] @宠物系统常量
}







欢迎光临 PK火游戏排行榜, 玩家编程技术 (https://pkhuo.com/) Powered by Discuz! X3.4