搜索
查看: 24139|回复: 149

[传奇脚本] 传奇游戏代练NPC脚本

  [复制链接]

8183

主题

8226

帖子

8910

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
8910
发表于 2016-11-13 15:24:50 | 显示全部楼层 |阅读模式
这个代练是按照时间进度来计算,并非市面那些泡点形式的!这里站长区分了2种版本,第一种是金币版代练,第二种是元宝版代练。请对号入座!
( @@InPutInteger )
[@代练NPC]
{
#if
#act
#CALL [\改天制作\代练常量.ini] @代练常量
#say
-----------------------------------------------------------\
你选择【<$HUMAN(级别)>】级代练,选择【<$HUMAN(小时)>】小时,当前已用【<$HUMAN(计时)>】秒\
-----------------------------------------------------------\
一级代练(1小时20W经验 扣$(代练费用1)金币 $(代练等级1)级开启)<我要代练/@1JDL>\
二级代练(1小时40W经验 扣$(代练费用2)金币 $(代练等级2)级开启)<我要代练/@2JDL>\
三级代练(1小时60W经验 扣$(代练费用3)金币 $(代练等级3)级开启)<我要代练/@3JDL>\
-----------------------------------------------------------\
可领取【<$HUMAN(经验)>】经验                <我要领取经验/@lingqu>\
-----------------------------------------------------------\
[@1JDL]
#IF
CHECKLEVELEX > $(检测等级1)
#ACT
CALCVAR HUMAN 级别 = 1
SAVEVAR HUMAN 级别 ..\QuestDiary\改天制作\代练数据.txt
GOTO @YJDL
#ElseAct
MessAgeBox 一级代练需要【$(代练等级1)】级别!
[@2JDL]
#IF
CHECKLEVELEX > $(检测等级2)
#ACT
CALCVAR HUMAN 级别 = 1
SAVEVAR HUMAN 级别 ..\QuestDiary\改天制作\代练数据.txt
GOTO @YJDL
#ElseAct
MessAgeBox 二级代练需要【$(代练等级2)】级别!
[@3JDL]
#IF
CHECKLEVELEX > $(检测等级3)
#ACT
CALCVAR HUMAN 级别 = 3
SAVEVAR HUMAN 级别 ..\QuestDiary\改天制作\代练数据.txt
GOTO @YJDL
#ElseAct
MessAgeBox 三级代练需要【$(代练等级3)】级别!
[@YJDL]
#IF
CHECKVAR HUMAN 开启 = 0
#ACT
CAlCVAR HUMAN 费用 = $(代练费用1)
CAlCVAR HUMAN 计时 = 3600
SAVEVAR HUMAN 计时 ..\QuestDiary\改天制作\代练数据.txt
SAVEVAR HUMAN 费用 ..\QuestDiary\改天制作\代练数据.txt
GOTO @YJDL1
#ElseAct
MessAgeBox [提示]您已经选择了【<$HUMAN(级别)>】级代练不可重复选择,请等待代练完成!
[@YJDL1]
\ \
\ \
请选择代练时长1~48小时 <选择/@@InPutInteger40>\
[@@InPutInteger40]
#if
small N40 49
large N40 0
#Act
Goto @YJDL2
break
#ElseAct
MessAgeBox [提示]必须输入1~48小时以内!
MOV N40 0
[@YJDL2]
#IF
#ACT
CAlCVAR HUMAN 小时 = <$STR(N40)>
SAVEVAR HUMAN 小时 ..\QuestDiary\改天制作\代练数据.txt
DelayGoto 100 @YJDL3
[@YJDL3]
#If
#Act
CAlCVAR HUMAN 费用 * <$HUMAN(小时)>
CAlCVAR Human 计时 * <$HUMAN(小时)>
SAVEVAR HUMAN 费用 ..\QuestDiary\改天制作\代练数据.txt
SAVEVAR HUMAN 计时 ..\QuestDiary\改天制作\代练数据.txt
GOTO  @YJDL4
[@YJDL4]
#IF
checkgold = <$HUMAN(费用)>
#ACT
CAlCVAR Human 开启 = 1
SAVEVAR HUMAN 开启 ..\QuestDiary\改天制作\代练数据.txt
take 金币 $(代练费用1)
MessAgeBox 代练成功
#ElseAct
MessAgeBox [提示]您的金币不足!代练【<$HUMAN(小时)>】需要【<$HUMAN(费用)>】金币!
[@lingqu]
#if
CheckVar  HUMAN 经验 > 0
#Act
CAlCVAR Human 累计 = <$HUMAN(经验)>
SAVEVAR HUMAN 累计 ..\QuestDiary\改天制作\代练数据.txt
DelayGoto 100 @lingqu1
break
#ElseAct
MessAgeBox [提示]你已经没有经验可领取了!
[@lingqu1]
#if
#Act
CHANGEEXP + <$HUMAN(经验)>
CAlCVAR Human 经验 - <$HUMAN(累计)>
SAVEVAR HUMAN 累计 ..\QuestDiary\改天制作\代练数据.txt
SAVEVAR HUMAN 经验 ..\QuestDiary\改天制作\代练数据.txt
break
}

完整脚本回复下载:

游客,如果您要查看本帖隐藏内容请回复
GM起点所有资源均免费下载,回复帖子即出现下载地址!站长QQ:969806969
回复

使用道具 举报

0

主题

504

帖子

504

积分

两全齐美

Rank: 2

积分
504
发表于 2016-12-6 15:16:00 | 显示全部楼层
[@main]
<color=clFuchsia 极品属性转移:><color=clRed 可以把任何极品装备属性转移到身上的首饰中。>\
<color=clFuchsia 属性转移条件:><color=clRed 首饰1.5W元宝+火云石*5 物品衣服2.5W元宝+火云石*10>\
<武  器极品属性转移/@武器>  |  <color=clFuchsia 当前佩戴武  器:>[ <$WEAPON> ]\
<衣  服极品属性转移/@衣服>  |  <color=clFuchsia 当前佩戴衣  服:>[ <$DRESS> ]\
<头  盔极品属性转移/@头盔>  |  <color=clFuchsia 当前佩戴头  盔:>[ <$HELMET> ]\
<项  链极品属性转移/@项链>  |  <color=clFuchsia 当前佩戴项  链:>[ <$NECKLACE> ]\
<右手镯极品属性转移/@右手镯>  |  <color=clFuchsia 当前佩戴右手镯:>[ <$ARMRING_R> ]\
<左手镯极品属性转移/@左手镯>  |  <color=clFuchsia 当前佩戴左手镯:>[ <$ARMRING_L> ]\
<右戒指极品属性转移/@右戒指>  |  <color=clFuchsia 当前佩戴右戒指:>[ <$RING_R> ]\
<左戒指极品属性转移/@左戒指>  |  <color=clFuchsia 当前佩戴左戒指:>[ <$RING_L> ]\
[@项链]
#IF
CHECKUSEITEM 3
#ACT
MOV S60 <$NECKLACE>
MOV S61 项链
MOV S62 NECKLACE
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 3
MOV M67 5
MOV M68 15000
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]:你没有穿戴任何[项链],不能属性转移。

[@左戒指]
#IF
CHECKUSEITEM 7
#ACT
MOV S60 <$RING_L>
MOV S61 左戒指
MOV S62 RING
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 7
MOV M67 5
MOV M68 15000
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]:你没有穿戴任何[左戒指],不能属性转移。
[@右戒指]
#IF
CHECKUSEITEM 8
#ACT
MOV S60 <$RING_R>
MOV S61 右戒指
MOV S62 RING
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 8
MOV M67 5
MOV M68 15000
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]:你没有穿戴任何[右戒指],不能属性转移。
[@左手镯]
#IF
CHECKUSEITEM 5
#ACT
MOV S60 <$ARMRING_L>
MOV S61 左手镯
MOV S62 ARMRING
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 5
MOV M67 5
MOV M68 15000
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]:你没有穿戴任何[左手镯],不能属性转移。
[@右手镯]
#IF
CHECKUSEITEM 6
#ACT
MOV S60 <$ARMRING_R>
MOV S61 右手镯
MOV S62 ARMRING
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 6
MOV M67 5
MOV M68 15000
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]:你没有穿戴任何[右手镯],不能属性转移。
[@头盔]
#IF
CHECKUSEITEM 4
#ACT
MOV S60 <$HELMET>
MOV S61 头盔
MOV S62 HELMET
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 4
MOV M67 5
MOV M68 15000
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]:你没有穿戴任何[头盔],不能属性转移。

[@衣服]
#IF
CHECKUSEITEM 0
#ACT
MOV S60 <$DRESS>
MOV S61 衣服
MOV S62 DRESS
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 0
MOV M67 10
MOV M68 25000
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]:你没有穿戴任何[衣服],不能属性转移。
[@武器]
#IF
CHECKUSEITEM 1
#ACT
MOV S60 <$WEAPON>
MOV S61 武器
MOV S62 WEAPON
MOV M63 0
MOV M64 1
MOV M65 2
MOV M66 1
MOV M67 10
MOV M68 25000
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]:你没有穿戴任何[武器],不能属性转移。
[@选择区域]
<color=clFuchsia 属性转移条件:>已经选择[<$STR(S60)>]需要<$STR(M68)>元宝,火云石*<$STR(M67)>个\ \
<color=clAqua 你选择是将极品属性转移到当前佩戴><$STR(S61)>:[<$STR(S60)>]\ \
             <确认开始极品属性转移/@转移>\ \
<color=clFuchsia 注意:><color=clRed 此操作将覆盖><$STR(S60)><color=clRed 已拥有的所有极品属性,幸运保留。>\
<color=clFuchsia 说明:><color=clRed 将OK框内的极品属性转移到>[<$STR(S60)>]。\
<color=clFuchsia 说明:><color=clRed OK框内的装备将被系统收回。><color=clYellow 请勿放入没有极品属性的装备>\
[@转移]
#IF
#ACT
QUERYITEMDLG 放入极品属性<$STR(S61)> @转移属性 0
break
[@转移属性]
#IF
CHECKDLGITEMTYPE <$STR(S62)>
CHECKGAMEGOLD > <$STR(M68)>
checkitem 火云石 <$STR(M67)>
#ACT
GAMEGOLD - <$STR(M68)>
take 火云石 <$STR(M67)>
MOV M60 0
MOV M61 0
MOV M62 0
GETDLGITEMVALUE M60 <$STR(M63)>
GETDLGITEMVALUE M61 <$STR(M64)>
GETDLGITEMVALUE M62 <$STR(M65)>
TAKEDLGITEM
GMEXECUTE 改属性 <$STR(M66)> <$STR(M63)> <$STR(M60)>
GMEXECUTE 改属性 <$STR(M66)> <$STR(M64)> <$STR(M61)>
GMEXECUTE 改属性 <$STR(M66)> <$STR(M65)> <$STR(M62)>
SendMSG 0 [属性转移]:恭喜[<$USERNAME>],成功转移属性到装备[<$STR(S60)>]上。 18 249
SendMSG 0 [属性转移]:恭喜[<$USERNAME>],成功转移属性到装备[<$STR(S60)>]上。 18 249
#elseact
MessageBox [错误提示]:你放入的不是<$STR(S61)>,或者材料不齐全。
break
回复 支持 反对

使用道具 举报

0

主题

2

帖子

2

积分

一心一意

Rank: 1

积分
2
发表于 2017-1-10 00:08:37 | 显示全部楼层
测试一下能不能用
回复 支持 反对

使用道具 举报

0

主题

143

帖子

147

积分

一心一意

Rank: 1

积分
147
发表于 2017-1-25 10:48:54 | 显示全部楼层
ddddddddddddddddddddddd
回复 支持 反对

使用道具 举报

0

主题

10

帖子

10

积分

一心一意

Rank: 1

积分
10
发表于 2017-2-17 12:37:33 | 显示全部楼层
飞度飞度飞度飞度飞度飞度飞度飞度飞度飞度飞度飞度
回复 支持 反对

使用道具 举报

0

主题

27

帖子

27

积分

一心一意

Rank: 1

积分
27
发表于 2017-3-18 19:58:52 | 显示全部楼层
回复

使用道具 举报

0

主题

13

帖子

13

积分

一心一意

Rank: 1

积分
13
发表于 2017-4-19 21:49:12 | 显示全部楼层
发达的风格上的风格风格的东风公司的风格
回复 支持 反对

使用道具 举报

0

主题

15

帖子

15

积分

一心一意

Rank: 1

积分
15
发表于 2017-4-19 23:07:28 | 显示全部楼层
传奇游戏代练NPC脚本
回复 支持 反对

使用道具 举报

0

主题

184

帖子

184

积分

一心一意

Rank: 1

积分
184
发表于 2017-4-25 23:54:03 | 显示全部楼层
三季度还是觉得很第三季第四季度角
回复 支持 反对

使用道具 举报

0

主题

1492

帖子

1492

积分

三羊开泰

Rank: 3Rank: 3

积分
1492
发表于 2017-5-4 17:32:39 | 显示全部楼层
1111111111111111
回复 支持 反对

使用道具 举报

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

本版积分规则

站长QQ969806969|润芒论坛|GM部落|GM016论坛|jjj555论坛|鲁ICP备16008334号-17|GM起点

GMT+8, 2024-11-21 18:43 , Processed in 2.375000 second(s), 23 queries .

Powered by Discuz! X3.4

© 2008-2020 www.gmqd.com

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