支持所有CT版本，全面解决了稳定性引起的错误~
#说明信息...
# DLL默认载入".\系统脚本.txt" 同时支持 命令行2个参数传达
#
# 0.%d 当前角色
# 1.$ 命令或函数定位标记
# 2.@sql 表示为SQL命令
# 3.if 条件
# 4.else 否则
# 5.endif 结束条件
# 6.end 结束过程
# 7.{ 脚本开始
# 8.} 脚本完毕
# 9.! 定义变量
# 10.$command %参数 触发命令支持参数
# 11.% 变量体
# 12.> < = <> <= >= 比较符号
# 13.$Notice,"" 系统公告
# 14.$message,"" 帐号公告
# 15.$LoadFile,"" 载入脚本文件
# 16.@fun 自定义函数接口
# 17.@call 函数(参数,...) 调用函数
# 18.$charmesg(message) 发送角色信息#
#
$LoadFile,".\脚本\寻找好友.txt"
$LoadFile,".\脚本\查战盟.txt"
$LoadFile,".\脚本\公告.txt"
$LoadFile,".\脚本\拜师.txt"
#
#
#
#
#执行脚本开始
{
$command/公告 %message
!CtlCode = 0
@sql$SELECT AccountID, CtlCode FROM Character WHERE (Name = N'%d')
if !CtlCode=8
$notice,%message
else
$message,目前您还没有这个权限，本功能只提供管理员使用！
endif
}
#执行脚本开始
{
$command/查战盟
!G_Name
@sql$SELECT G_Name FROM GuildMember WHERE (Name = N'%d')
if !G_Name<>""
!G_Notice = 占无公告
!G_Master
@sql$SELECT G_Master,G_Notice FROM Guild WHERE (G_Name = N'%G_Name')
if !G_Master<>""
$message,"您的盟战[%G_Name]，盟主[%G_Master]，公告:%G_Notice"
endif
else
$message,"您目前还没有加入过盟战。"
endif
}
#执行脚本开始
{
$command/寻找好友 %name
if !name=''
$message,'命令格试不正确！/寻找好友 好友名字'
end
endif
if !name=%d
$message,不能寻找自己！/寻找好友 好友名字
end
endif
!ConnectStat = 0 #定义变量 及 初始值等于 0
!ServerName #定义变量
@sql$SELECT ConnectStat,ServerName FROM MEMB_STAT WHERE (memb___id IN(SELECT Id FROM AccountCharacter WHERE (GameIDC = N'%name')))
if !ConnectStat>'0'
$message,"您找的好友所在服务[%ServerName]！"
else
$message,"对不起，您的好友[%name]目前没有在线！"
endif
}
{#执行脚本开始
$command/拜师 %师傅
if !师傅="%d"
$message,师傅不能为自己！/拜师 角色 %师傅
end
endif
if !师傅=""
$message,输入的命令不正确！/拜师 角色
end
endif
!徒弟
!AccountID
$sql@SELECT 徒弟, AccountID FROM Character WHERE (Name = N'%师傅') #检测师傅是否已有徒弟了。
if !徒弟="" #如果说师傅没有徒弟
!ConnectStat
@sql$SELECT ConnectStat FROM MEMB_STAT WHERE (memb___id = N'%AccountID')
if !ConnectStat>'0'
$charmesg(%师傅),师傅！！徒弟[%d]为您上刀山下火海，赴汤蹈火；求求您收下我吧！! #就给师傅发出请求信息
else
$message,江湖传言师傅云游四海去了！
endif
else
$message,我已有了个好徒儿了哟，请找别人吧。
endif
}
http://wsnets.ys168.com 下载新的插件
我们只提供一小份的功能脚本,大家一起努力把奇迹搞的更有耐玩性.有不懂得的地方请以下跟帖...(写新的功能就跟传奇一样方便的扩展性)
现在大家可以实现数据库操作完成的所有扩展功能...其它的内部特殊函数我们将在慢慢为大家更新提供,让扩展功能进入新的里程碑...
技术交流群QQ:10755630,22247129,大家有什么问题在群里说.
[ 此贴被网络魏少在2006-04-24 17:56重 ]
