1.教程:6.91版本的功能如何转到7.0中使用?

2.教程:新人注册后向聊天室中发消息?

3.教程:7.0 高级应用添加卡片!

4.教程:7.0的随机事件群体发放!

5 NPC的参数说明

6.房屋功能

7.电影改动

8.一些内部函数说明

9.适用于7.0版的清空状态的3个Sql指令!!

10.限制一机多号的文件在哪里?

11.java是怎么一回事?

12.7.0升级方法--本地手动操作(11月15日更新)

13.你想江湖运行的更稳定吗?

14.如果你希望更快,更流畅的上网,玩江湖请进!!

15.在大厅多了一个进入房间的和选择

16.聊天室框架的修改说明

17.向江湖增加法器功能

18.增加一个5级会员

19.取消泡点暂离设置

20.添加一个好人卡

21.添加一个嫁祸卡

22.添加一个超级红卡




教程:6.91版本的功能如何转到7.0中使用?
我们原来6.91中的功能是很容易加到7.0中来的.
对于6.91的功能要增加到7.0中,我们是需要使用自定义指令即:
//指令$

比如我们拿6.91版本中的新人费来作例子:
/新人费$(他实际上是在chat/f2.asp中)
而到7.0中的指令就是//新人费$(这个要增加在chat/talk.htm中,一定要备份)

先分析6.91我们在f2.asp中找到新人费,将代码复制来下.
<option style="color:blue" value="/新人费$ 100000 ">新 人 费

这个在7.0中是完全不同的.打开7.0中chat/talk.htm
我们找到:document.write("<option style='color:#FF6633' value='/回来$ '>我回来啦 ");

在他下面加入:
document.write("<option style='color:blue' value='//新人费$ 100000 '>新 人 费");
在家要注意这里与上面的变动

在talk.htm中是使用js的输出,一定不可以搞错,否则输出来的东西将会是空的,不能得到结果的.

再下来我们在6.91中找到此段程序的代码打开6.91中的jhchat.asp查找:新人费
看到如下代码:case "新人费":act="sjfunc/88.asp";break;

可以判断新人费的程序在chat/sjfunc/88.asp

我们下来打开88.asp文件,查看代码.

function givenew(fn1,to1)........到end function

这之间是我们所需要的是真正的执行代码.

其中的fn1就是所送的钱数,而to1则是接受钱数的人. 这里的sjjh_name 这个名字他就是发送新人费的人.
这一段代码我们把他复制下来,加到7.0版本中
chat/talk.asp的结属处,当然是在end function与%>之间了.

接下来我们修改一下talk.asp文件,让这一段程序执行.

打开talk.asp文件,找到:
case "主题"
says=title(fn1)
在他下面加入:
case "新人费"
says="<font class=t1>【新人费】</font>" & givenew(fn1,towho)

这样我们的这一段程序就可以正确的执行了.你可以重新上江湖使用一下这个给新人发钱的程序.

当然,如果你在执行过程中什么也得不到,是空的没有结果的话,这个是因为你把程序搞错了.

只能去查看你操作的过程哪里有问题了.

大家可以演习一下,自己试试.通过这一段程序就可以把6.91中的聊天室中的功能转过来.

这个功能我们会在下一版中带出来,大家也可以参照学习一下.

教程:新人注册后向聊天室中发消息!
这个主要就是向聊天室中添加一条消息,我们要看一上在7.0中的一个内部过程的调用.

addsay(inroom,name,addsays,towho,addwordcolor,saycolor,says,act,towhoway,myjs)

inroom:房间号
name:说话人
addsays:表情比如“对”
towho:受话者
addwordcolor:人名色彩
saycolor:说话色彩
act:这里是有一此特定比如:正常,消息,退出,踢出 等,一般我们发布消息时是使用:消息
towhoway:0 或 1是否私聊,1为私聊,0为公聊
mys:这个一般为空就行了,他是在进行特别写程序时的js脚本调用执行.

具体调用方法如下:
set xajh=Server.CreateObject("anjh70.chat")
call xajh.addsay(inroom,name,addsays,towho,addwordcolor,saycolor,says,act,towhoway,myjs)
set xajh=nothing

我们现在来完成新人注册后向聊天室中发消息的:
打开注册最后文件
yamen/joinjhnow.asp
在注册完成后:

set conn=nothing
后添加代码

call addsay(0,name,"对","大家","660099","008888",name & "在世纪江湖成功注册","消息",0,"")

这样就完成了此段程序。
不过加了这个东西也要注意一点问题,就是有人可能会使用一些不文雅的名字注册骂江湖里面的人。

 

教程:7.0 高级应用添加卡片!
7.0卡片与原来的不同.卡片增加很容易的.
现在我们以增加一个还俗卡为例大家看看:

我们可以通过后台管理完成.

我们所需要的功能就是:使用还俗卡,可以让对方还俗.

1.在后台管理上面增加这个卡片.
这一点不用说了大家都会的.

2.card 表
a '卡片名
b '是否允许使用
c '图片
d '音乐
e '自己/对方 1自己 0对方
f '自己操作表 是1 否0 carsdm 中类型为:4
g '自己不能为的表 是1 否0 carsdm 中类型为:1
h '对方操作表 是1 否0 carsdm 中类型为:5
i '对方不能为的表 是1 否0 carsdm 中类型为:2
j '对方冲突卡片名 是1 否0 carsdm 中类型为:3
k '成功消息

cardsm表
a 卡
b 类型(1自己不能操作 2对方不能且 3冲突卡片 4 自己数据 5 对方数据)
c 操作表
d 操作方式(加、咸、乘、除、等于、相反、物品)(等、不等、大于、小于、真、假)
e 数据
f 消息

此卡不对自己作判断所以:card中的e 为0 f 为0 g也为0
对方需要操作:h 为1 i 产能操作的表:当门派不等于出家时,失败 设置为1 j 冲突的卡没有为:0

再下来添加:cardsm表
这里要根据上面条件添加,上面只有1个条件,只要添加2个就行了,多个条件要添加多个.
根据上面份折:
添加操作表:h
cardsm 中的b 值为:5 操作表:c 是 门派 操作方式为:等 数据:游侠 f 消息:成功没有消息

添加不能操作表i:
cardsm 中的b 值为:2 操作表:c 是 门派 操作方式为:不等 数据:出家 f 消息:他不是出家人不能操作

对应的3个Sql指令是:


insert into card(a,b,c,d,e,f,g,h,i,j,k) values ('还俗卡',1,'无','无',0,0,0,1,1,0,'%%虽然是出家人,但红尘事未了,##使用还俗卡,让%%成了普通人!')

insert into cardsm(a,b,c,d,e,f) values ('还俗卡',5,'门派','等','游侠','无')
insert into cardsm(a,b,c,d,e,f) values ('还俗卡',2,'门派','不等','出家','%%你搞错了##并不是出家人')

此程序在7.0 access/sql 第二测试版本测试成功!

看了以上程序大家就不难作出自己想要的卡片出来!

教程:7.0的随机事件群体发放!
7.0的随机事件功能更加强大。

原来我们的随机事件是增加在say.asp中的。
如果大家不停的说话他就会出现。

而现在的随机事件的出现更加合理,大家可以在系统设置上面设置随机事件总的间隔时间。

在后台管理上面也可以方便 的增加自己的随机事件。也可以随时打开关闭随机事件。

现在我们来添加一个随机发放内力的程序:

后台管理----》物品事件--》群体事件--》添加事件

事件名:放发内力

是否执行:允许

声音:无

出现率:1800(这里的单位是秒,比如现在发了一次了,最少要等1800秒后此事件才可以再一次出现)

操作表:内力

最小值:100

最大值:2000

方式:增加

事件说明:今天真是好日字,站长路过此地,给大家放心#%点内力,希望大家为江湖多作贡献!!


确定。这样我们就完成了一个随机事件添加,这1个也会增加到站长发放中去。


NPC的改动
1.NPC死后的物品计算。
在打死NPC后物品的暴出值,NPC死后会根据杀人者等级,NPC等级进行计算:(NPC燃?杀人者等级)*1000然后取整数,再用此值与sjjh_npcwp进行比较,如果此计算的值大于等于sjjh_npcwp的值则进行物品生产,否则退出终止程序,这个主要是为了处理高级人员打低级NPC的比例。如果通过了比较物品也不是%100暴出的,会根据NPC死的次数与当前物品值进行计算随机得出来 。
sjjh_npcwp=500
比如我:70级NPC是65级.
(65/70)x1000=928此数大于500,现在我打这个npc会有物品出来.
比如我:70级npc是20级:
(20/70)x1000=285此数小于500,我现在打这个npc就不会有物品出来.

2.NPC自动攻击计算.
如果npc太闲的话(在一段时间内没有人打他,这个时间现在设置是:600 秒)他就会进行主动攻击别人处理,式式如下.(随机数 产生0-1之间的数数字,随机性很强)

随机数 <(1/攻击率) and 时间>=600秒

当这一条件满足时NPC会进行攻击。从聊天室中随机取出一个人,此人非NPC。
然后判断此人,如果保护,管理员,出家,新人(15级) 则不进行攻击。
否则自动攻击一次。完了!

如果NPC在3部的出现是时间即600x3=1800秒内也没有攻击成功(比如攻击时发现是npc新人保护等)这个npc会退出江湖,退出的npc在一段时间内是不能上来的,这样就可以保证所有的npc 都经常上线.

3.关NPC的攻击。
当你打了NPC后,他会很记仇的,你下次上限他会一直打你,如果你想了解这段恩怨也可以NPC在打过一次次数后就不会再攻击现在设置的是20次。

4.关于NPC的自动加体力。
当体力值小于npc出现时的1/2他就会自动增加体力,每次扣身上银两1/2,增加体力值是银两数/2。

5.如果你的没有npc进来看看!
如果你的没有npc进来看看!
npc是否出来,是否进行运动与你的江湖有密切关系.
只有2个人以上在说话时才有可能出现npc
而且你需要查询一下是否把npc功能给关闭了.
npc出来也是有一定时间的.


房屋功能
1.房子分类
房子分为6种,现阶段没有什么分别。在以后各种房至有不同的功能,比如以后的职业系统会与这一些相关的。

2.房子等级
房子等级越高,相关的参也会提高,比如储物箱,每提高一级会多存储4种物品,放在这里的东西就不怕丢了。

3.房子现阶段功能
储物箱,休息(这个夫妻后与小孩子相关),夫妻钱柜(大家共同所有),全新宠物(还在测试中,这个以后将取代聊天室中的宠物)还有其它的功能等

其它改动
1.聊天室增加java选择
使用java可以加快聊天时的速度,如果你的计算机不支持比如winxp或win2003操作系统你可以取消上面的对号就可以正常使用

2.法器改动
法器原来可以不停的修练,现在改成了有限数限制,以等级为分,每10次为一档
如果我发现谁在这里进行轮宝修练的话,一经发现马上删除他上面此类的全部物品,请大家自己注意!!!

3.存点改动
存点时增加了进度条,更加直观的查看当前的进度.

电影改动
支持下载,这个暂时未开放,大家不要下载.在观看时如果此片看不到在20秒内你把窗口关闭就不会扣你的点数,这时大家可以放心的点来点去了不用担心扣你点数了,现在每部电影为10个金币,还有如果再发现谁盗联我们的影片马上删除账号.
电影添加删除更加容易,采用服务器添加方案。
7.0新增功能影视介绍!
影视功能在7.0版本得到了更大的增强,特别是在盗联上(不要盗联我的)。

比如某影视只提供下载影片,不过他们经常性的更换地址。
他的电影地址是:
www.abc.com/>ftp://abc:abcwww.abc.com/动作片/无间道/fasdfasdad1.rm
www.abc.com/>ftp://abc:abcwww.abc.com/动作片/无间道/fasdfasdad2.rm

我们要添加这一类的电影很简单,只要先添加服务器。
他不提供在线观看,在线地值为空用#号替代。
下载地址是:www.abc.com>ftp://abc:abcwww.abc.com
这样我们的服务器就添加完成了。

接下来我们就是添加影片。
影片以址为:
动作片/无间道/fasdfasdad1.rm
动作片/无间道/fasdfasdad2.rm

这里注意要选择好上面的服务器!

在选择上面选择下载影片,在线的不要对对号。

这样一部电影添加成功了。

如果以www.abc.com网站换了服务器地址,一般他们后面的是不会换的,你只要更换对应的服务器就可以了。(当然。你为了不让别人次盗联人你的东西,你也可以经常更换服务器的地址的)

关于文件这一次只是在播放器上面加了dll 功能

默认为3级会员免费以看,你想修改此值可以注意看一下
gvdown/player.asp
xiaofei.asp
down.asp
这3上个文件。

GOURL.ASP 这个是取在线实际地址的。在使用他的时候,你须要与player.asp中的文件名所对应!

 

7.0内部几个常用函数说明.
xajh类中函数
0.聊天室初始化
sub initchat()

1.增加用户到名单中
sub addonline(name, data, inroom)

2.从名单中删除用户
Sub droponline(name, inroom)

3.用户是否在线
Function isonline(name, inroom)
True 在线 False不在线

4.添加话到聊天室中
Sub addsay(inroom, name, addsays, towho, addwordcolor, saycolor, says, act, towhoway , strjs)

5.踢出聊天室
Sub boot(toname)

6.取聊天数据
Function onlinedata(name, inroom, datasn)

7.修改聊天数据
Sub modionline(name, inroom, datasn, data)

8.判断提交数据是否正确
Function subdata()

9.判断非法站外提交
Sub ChkPost()


调用方法比如判断此人是否在聊天室中:

set xajh=Server.CreateObject("anjh70.chat")
if xajh.isonline("阿男",1)=true
Response.Write "阿男在线"
else
Response.Write "阿男不在线"
end if
set xajh=nothing

具体也可以见chat.asp中的使用方法.

在聊天室中增加功能.
不知道大家注意没有,7.0支持自定义功能.
系统功能是
/命令$
自己 定义的是
//命令$

要增加指令可以添加到talk.htm中.

相对应的代码可以增加到talk.asp中.

在这个文件中有一个简单的千里传音的程序,大家可以看看就明白怎么使用了.

适用于7.0版的清空状态的3个Sql指令!!
update 用户 set 等级=10,银两=0,存款=0,会员金卡=0,金币=0,武功=0,武功加=0,内力=0,内力加=0,体力=0,体力加=0,攻击=0,攻击加=0,防御=0,防御加=0
update 用户 set w1='',w2='',w3='',w4='',w5='',w6='',w7='',w8='',w9='',z1='',z2='',z3='',z4='',z5='',z6='',mf='',zs='',hua='',cw='',道德=1000,魅力=100
update 用户 set sl='无',allvalue=0,mvalue=0,门派='游侠',grade=1,身份='弟子',宝物='无',宝物修练=0 where grade<>10




7.0一机多号限制在哪里??
限制部份全是代码,如果你不喜欢完全可以取消的
check.asp
chat/jhchat.asp
chat/talk.asp
chat/brush_rs.asp
chat/savevalue.asp
chat/ttnew.asp


这个是jhchat.asp中的代码

sjjh_sid=trim(request.cookies("anjh")("sjjh_sid"))
if (sjjh_sid="" or sjjh_sid<>session.sessionid) then
'先删除内存中用户再结束
if Instr(","&Application("sjjh_useronlinename" & Session("inroom")),"," & sjjh_name & ",")<>0 then
set xajh=Server.CreateObject("anjh70.chat")
call xajh.droponline(Session("sjjh_name"),Session("inroom"))
set xajh=nothing
end if
Session.Abandon
response.write "同一台计算机上面,只可以上一个号,不可以同一台计算机上多号!"
response.end
end if


Java刷新的说明

我们新程序程序使用了java进行了免新刷设置,这样可以避免原来旧的新刷方式太占服务器资源.

不过对于winXp /win2003 及ie 6.0在ie上面将不再对java进行支持,我们必须要下载安装java
虚拟机才可以达到最好的效果.下载地址在:

http://xajh.anjh.com/msjavx86.exe

如果没有安装java虚拟机软件,在进入聊天室后可以采用原来的刷新方式,即:ttnow.asp进行3秒自刷新
进入聊天室后,取消聊天室左下的java的对号即可!

为了更好使用本江湖建议大家安装:Ie 6.0 + java虚拟机进行程序.

7.0升级方法--本地手动操作(10月16日更新)by 玄天宗
用户表升级(必须)

1.下载您的数据库hc3w_xajh.asp并转换为hc3w_xajh.mdb(如果这都不会就无法进行下一步)

2.同样的,将新版数据库xajh.asp转换成xajh.mdb

3.升级才刚开始
1)用access打开2个数据库,在xajh.mdb中点新建--》导入表--》选择hc3w_xajh.mdb中的[用户]表--》确定,得到XAJH.MDB中的[用户1]表,分别选择设计视图,然后进行对照!

2)经对照结果,把[用户1]表里的字段[会员],[会员结束],[地区],[OICQ],[签名],[头像],[年龄],[好友名单]全部删除(如果你发现我对照有错误,可以提出,难免我也会眼花)

3)[用户1]表中修改2个已有字段的属性,找到[保护]字段,将字段数据类型改成文本,
找到[通缉]字段,将字段名改成[u_通缉],数据类型改为数字,[泡豆点数]改成[魔法]
在[用户1]设计视图中右击姓名字段,选择主键

4)下面开始添加字段(操作界面还是在设计视图)
我只提供方法,具体操作还得靠自己~~

在[用户1]表设计视图中右击姓名字段,选择插入行,则在[姓名]字段上面多出一条空白数据,
在[用户]表设计视图中右击[u_账号]字段,选择复制,然后回到旧数据库用户表设计视图中,右击刚才添加的那条空白字段,选择粘贴,OK,一个新字段就添加完成了!

用同样的方法,再在[用户1]表视图中添加[u_种族],[u_第二密码],[攻击加],[防御加],[w9],[ka],[zs],[mf](如果我有遗漏的,请发现的朋友提出)

可能字段顺序有点不对,只要选定字段数据,上下移动即可调整位置!

关闭2个表保存
在xajh.mdb中删除[用户]表,然后[用户1]表重命名为[用户]表即可!

打开[用户]表,拉到字段的最右边,看到一片黑色的地方,右击鼠标,选择取消隐藏列,将w9也加隐藏,然后确定关闭[用户]表

关闭xajh.mdb保存~~

5)上传所有江湖程序,运行jhset.asp进行安装,记得自己修改jhset.asp里的一些参数然后运行

6)进入江湖按照提示输入u_帐号,u_第2密码,选择种族后进入江湖,聊天室内点头像更换一次~

先进后台,执行SQL语句
update 用户 set 保护='闭关',u_通缉=0,攻击加=0,防御加=0
update 用户 set z1='',z2='',z3='',z4='',z5='',z6=''
以上是清空装备

用户表升级完成,大家可以测试啦~~~

 

 

你想江湖运行的更稳定吗?

为了更稳定运行江湖我们需要安装ie 6.0版软件,如果你未安装ie 6.0请在下面地址下载并安装ie6.0软件:

IE6.0完全版:
http://www.skycn.com/soft/4767.html

IE6.0sp1修正包:
http://www.skycn.com/soft/9368.html

除了安装ie6.0之外,我们还要安装:java 虚拟机软件

java虚拟机地址:
http://www.skycn.com/soft/7618.html

 

 

如果你希望更快,更流畅的上网,玩江湖请进!!

我们的计算机各不相同,我们的游戏是在Ie 6.0平台开发的,所以在Ie 6.0上可以让游戏发挥的更好,为此我们需要安装IE 6.0及 Java虚拟机软件。

如果你的计算机上面不支持java虚拟机将会造成聊天室卡机等现像,所以希望我们所有的用户都安装升级到新的Ie 6.0版本及安装Java虚拟机程序。

如果你是Winxp和户请仔细看,Winxp所原带的Ie6.0 版本号(6.0 2600 .000)存在着很大的问题,在聊天室中常常会不动(定版),请大家升级到最新的Ie版本(6.00.2800.1106)可以解决本问题。

IE6.0 Sp1 完整安装版+Ms Java虚拟机软件最新版+清除IE记录录像演示提供打包下载:

http://vod.ascnc.com/jhsoft.exe

在下载完成后双击进行解压缩,上面有相对应的安装说明!

如果你不想下载这么大的完整包,你可以下载Ie6.0sp1网络安装版进行选择在线升级安装下载地址:
IE6.0sp1修正包:
http://www.skycn.com/soft/9368.html

java虚拟机地址:
http://www.skycn.com/soft/7618.html


附安装说明:

欢迎您使用世纪江湖程序包:

本压缩包中包括:
1.IE 6.00.2800.1106 SP1中文完整版
2.Ms Java 虚拟机 V3810 版
3.IE记录清除录像(avi格式)

安装了以上软件可以更好的进行江湖游戏,推荐所有的朋友
下载安装。

操作过程:
a.安装IE 6.0 sp1版
IE 6.00.2800.1106 SP1中文完整版
目录中有:ie6setup.exe
Ie 6.0安装文件,双击即可以安装,安装完成后需要重启计算机,在安装
过程中注意屏上的提示,不能的操作系统会有一点不同。

安装java 虚拟机
java虚拟机 V3810
目录中有:setup.exe
双击即可以安装,安装完成后需要重启计算机。


以上程序试用于win98/se/me win2k winxp

对于win2003程序不需要安装Ie6.0只要安装java虚拟机即可!


阿男世纪万维网江湖
http://www.anjh.com

站长QQ:25885518

 

在大厅多了一个进入房间的和选择,测试通过.

加到:welcome.asp中
<!----多房间切换代码开始--->
<form action="croom.asp" method="post" name="form" target="croom">
<%roomsn=session("inroom")
sjjh_roominfo=split(Application("sjjh_room"),";")
chatroomnum=ubound(sjjh_roominfo)-1
chatroomname=Application("sjjh_name")
for i=0 to chatroomnum
if instr(Application("sjjh_useronlinename" & i),",")<>0 then
online=split(trim(Application("sjjh_useronlinename" & i)),",")
onlinenum=ubound(online)
else
onlinenum=0
end if
sj_chat_info=split(sjjh_roominfo(i),"|")
Response.Write "<label><input type=""radio"" name=""roomid"" value="""& i &""""
if i=roomsn then Response.Write "checked"
Response.Write " onclick=""javascript:if(confirm('条件:"& sj_chat_info(3) &"\n您要进入吗?')){this.document.form.submit();}""title=""条件:"& sj_chat_info(3) &""">"& sj_chat_info(0)& onlinenum &"人</label>"
erase sj_chat_info
next
%>
</form>
<IFRAME name="croom" marginWidth="0" marginHeight="0" src="" frameBorder="NO" noResize width="0" scrolling="no" height="0"></IFRAME>
<!----多房间切换代码结束--->


croom.asp文件代码如下:
<%@ LANGUAGE=VBScript codepage ="936" %>
<!--#include file="chat.asp"-->
<%Response.Buffer=true
Response.Expires = 0
Response.CacheControl="no-cache"
Response.AddHeader "pragma","no cache"
sjjh_name=Session("sjjh_name")
sjjh_grade=Session("sjjh_grade")
sjjh_jhdj=Session("sjjh_jhdj")
if sjjh_name="" then Response.Redirect "error.asp?id=440"
'判断数据是否非法
if subdata("all")=true then
Response.Write "<script Language=Javascript>alert('提示:提交数据非法,有问题,请查看!');</script>"
Response.End
end if
roomid=clng(Request.Form("roomid"))
If InStr(LCase(Application("sjjh_zanli")), LCase("!" & sjjh_name & "!")) <> 0 Then
Response.Write "<script Language=Javascript>alert('提示:暂离中不可以切换房间!');</script>"
Response.End
end if
chatroomsn=session("inroom")
mychatroomname=Application("sjjh_chatroomname" & chatroomsn)
chatroomname=Application("sjjh_chatroomname" & roomid)
chatroominfo=split(Application("sjjh_room"),";")
chatroomnum=ubound(chatroominfo)-1
i=roomid
online=split(trim(Application("sjjh_useronlinename" & i)),",")
onlinenum=ubound(online)+1
sj_chat_info=split(chatroominfo(i),"|")
num=clng(sj_chat_info(1))
if onlinenum>=num then
response.write "<Script>alert('[" & chatroomname & "]" & onlinenum & "_" & num & "房间当前人数已满,不能进入!');;</script>"
response.end
end if
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("sjjh_usermdb")
rs.open "select id,性别,状态,体力,门派,身份,名单头像,会员等级,操作时间,u_通缉,times,宝物 from [用户] where 姓名='" & sjjh_name & "'",conn,1,1
sj=DateDiff("s",rs("操作时间"),now())
if sj<180 and rs("状态")="定身" then
s=180-sj
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.Write "<script language=JavaScript>{alert('提示:您现在被别人使用了定身卡,请等[" & s & "秒]再切换房间!');}</script>"
Response.End
end if
if rs("状态")<>"正常" or rs("体力")<-1000 then
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.Write "<script language=JavaScript>{alert('提示:你的状态不正常,江湖程序自动退出!');top.location.href='../exit.asp';}</script>"
response.end
end if
sj=DateDiff("n",rs("操作时间"),now())
if sj<3 and sjjh_grade<6 then
s=3-sj
Response.Write "<script language=JavaScript>{alert('提示:转换房间请等[" & s & "分钟]再操作!');}</script>"
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.End
end if
sjjh_id=rs("id")
jhsf=rs("身份")
if rs("u_通缉")=1 then
jhmp="通缉犯"
else
jhmp=rs("门派")
end if
if rs("times")<=5 then
jhmp="新人"
end if
jhtx=rs("名单头像")
sex=rs("性别")
hydj=rs("会员等级")
rs.close
if cstr(sj_chat_info(2))=1 and sjjh_grade<7 then
rs.open "select id from [用户] where 姓名='" & sjjh_name & "'" & " and " & sj_chat_info(4),conn,1,1
if rs.eof or rs.bof then
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.Write "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><meta http-equiv='pragma' content='no-cache'></head><body bgColor=" + Application("sjjh_chatbgColor") + " background=" + Application("sjjh_chatimage") + " bgproperties=fixed>"
Response.Write "<script language=JavaScript>{alert('进入[" & sj_chat_info(0) & "]的条件是:" & sj_chat_info(3) & "');}</script>"
Response.End
end if
rs.close
end if
myonline=onlinedata(sjjh_name,chatroomsn,-1)
if sj_chat_info(7)<>0 or jhmp="天网" then
conn.Execute "update [用户] set 保护='出关',操作时间="& application("sysdate") &" where 姓名='" & sjjh_name & "'"
else
conn.Execute "update [用户] set 保护='闭关',操作时间="& application("sysdate") &" where 姓名='" & sjjh_name & "'"
end if
set rs=nothing
conn.close
set conn=nothing
if isonline(sjjh_name,chatroomsn) then
'退出原房间
call droponline(sjjh_name,chatroomsn)
says="<font color=black>【公告】</font><font color=#009933><font color=red>##</font>施展出“凌波微步”轻功,转眼间便从〖<font class=t5>" & mychatroomname & "</font>〗消失了,原来是去【<font class=t6>" & chatroomname & "</font>】了。</font><font class=t>(" & time() & ")</font>"
'对隐身管理员处理
if instr("," & Application("hidden_admin") & ",","," & sjjh_name & ",")=0 then
call addsay(chatroomsn,sjjh_name,"对","大家","660099","008888",says,"退出",0,"")
end if
Session("sjjh_inthechat") = "0"
end if
session("inroom")=roomid
Response.Write "<script language=JavaScript>"
Response.Write "{parent.chatWin();}"
Response.Write "</script>"
%>

聊天室框架的修改说明

聊天室框架修改:改这一些值时要注意:jhchat.asp brush.asp tt.asp changerroom.asp 这里面也有对应的值要统一否则聊天室会乱掉的.

jhchat.asp中的框架设置.
framemain="*,160" '聊天室右边聊天名单宽
frameleft="*,25,0,70,0" '右主窗口:聊天室,标题区,刷新区,对话区,提交区(这里有一个广告的宽在后台管理进行)
frameright="0,0,*,105" '右名单区:点歌区,名单刷新区,名单,右下菜单

改这里的值就可以进行,除此外值要对应的:
jhchat.asp中
代码:
this.tbgn1.cols="*,160"
this.tbymd.rows="0,0,*,105"
this.tbymd.rows="40,0,*,105"
this.tbymd.rows="0,0,*,105"

brush.asp及tt.asp中
parent.myturlk+",*,25,0,70,0";
parent.myturlk+",*,25,0,70,0";

changerroom.asp中
Response.Write "parent.mygg.rows ="& chr(34) & turlk & ",*,25,0,70,0 "& chr(34) &";"

增加法器功能

有一些江湖有法器功能,我们看看使用世纪江硝7.0如何去增加这个功能.也有利于我们学习使用7.0的相关功能!

1.我们添加1个手枪程序:
当你有手枪及子弹时,可以使用本法器手枪来杀人,可以让他掉体力及内力,这个多少我们可以用数数库去设置.
a.添加“54手枪”,“子弹”2个物品在系统数据库中。
后台管理--》物品事件--》物品列表--》物品--》添加物品
在这里把:54手枪添加,在添字子弹时:注意这里的体力及内力值,他的值就是消耗时的数值。我们全写成1000.

b.接来下我们要添加一个随机事件来添加此物品.
点击物品-->增加事件->
事件名:手枪 是否执行:允许 声音:无
飞动图片:img/tank.gif(这个图片要自己找一个放在chat/img下面)
操作表:w6(说明,他是用于存放物品的)
最小值:1 最大值:1个
出现率 :600(即10分钟左右会出现一次)
事件说明:战争时间没有一些防身的家伙是不行的军区首长为我们带来了1包东西,谁拿到归谁。
物品:54手枪|子弹
添加,事件添加完成。

c.我们现在完成了物品的添加,事件添加,这样现在玩家就可以有这样的物品了,现在我们继续写程序,让这样样的物品进行使用。我们现在来写一段自定义程序:

打开chat/talk.htm我们添加代码:(蓝色为添加部份)
document.write("<option style='color:blue' value='//新人费$ 100000 '>新 人 费");

document.write("<option style='color:blue' value='//法器$ 54手枪'>手枪攻击");

d.下来进行程序制作。
打开chat/talk.asp添加代码。 (法器为添加的)
case "新人费"
says="<font class=t1>【新人费】</font>" & givenew(fn1,towho)
case "法器"
says=faqi(fn1,towho)

在程序结尾即%>前添加代码:

'世纪江湖法器程序
'世纪江湖法器程序
function faqi(fn1,toname)
if session("sjjh_jhdj")<Application("sjjh_newplay") then
faqi="<font class=t1>【法器操作】</font>##您是新人,不能使用法器功能!"
end if
fn1=trim(fn1)
select case fn1
case "54手枪"
if toname="大家" then
faqi="<font class=t1>【手枪攻击】</font>法器手枪不可以对大家进行操作!"
exit function
end if
set xajh=Server.CreateObject("anjh70.chat")
if xajh.isnpc(toname)=true then
faqi="<font class=t1>【手枪攻击】</font>法器手枪出错,%%他是NPC不能对他进行操作!"
set xajh=nothing
exit function
end if
set xajh=nothing
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("sjjh_usermdb")
rs.open "select 保护 FROM 用户 WHERE 姓名='" & toname &"'",conn,1,1
if rs("保护")="闭关" then
rs.close
set rs=nothing
conn.close
set conn=nothing
faqi="<font class=t1>【手枪攻击】</font>##要对%%使用法器手枪,可是%%在保护中不能够操作!"
exit function
end if
rs.close
rs.open "select w6,保护 FROM 用户 WHERE 姓名='" & sjjh_name &"'",conn,1,3
if rs("保护")="闭关" then
rs.close
set rs=nothing
conn.close
set conn=nothing
faqi="<font class=t1>【手枪攻击】</font>##要对%%使用法器手枪,可是##你在保护中不能够操作!"
exit function
end if
if iswp(rs("w6"),"54手枪")=0 or iswp(rs("w6"),"子弹")=0 then
rs.close
set rs=nothing
conn.close
set conn=nothing
faqi="<font class=t1>【手枪攻击】</font>##你没有54手枪或者你没有子弹不能继续。"
exit function
end if
rs("w6")=abate(rs("w6"),"子弹",1)
rs.update
rs.close
rs.open "select d,e FROM b WHERE a='子弹'",conn,1,1
if rs.Eof then
rs.close
set rs=nothing
conn.close
set conn=nothing
faqi="<font class=t1>【手枪攻击】</font>##在系统库定义中,并没有子弹,你不能进行操作请与站长联系!"
exit function
end if
zdnl=rs("d")
zdtl=rs("e")
rs.close
randomize()
r=int(rnd*3)+1
if r=1 then
rs.open "select 内力,体力,状态,事件原因,死亡时间 FROM 用户 WHERE 姓名='" & toname &"'",conn,1,3
rs("内力")=rs("内力")-zdnl
rs("体力")=rs("体力")-zdtl
rs.update
if rs("体力")<-100 then
faqi="<font class=t1>【手枪攻击】</font>##从腰间拔出一把精制54手枪<bgsound src=wav/sq.wav.wav loop=1>,恶狠狠地对着%%就是一枪,%%啊的一声,体力:<font color=red>-"& zdtl &"</font>点,内力:<font color=red>-"& zdnl &"</font>点"
else
rs("状态")="死"
rs("死亡时间")=now()
rs("事件原因")=sjjh_name & "使用手枪!"
rs.update
faqi="<font class=t1>【手枪攻击】</font>##从腰间拔出一把精制54手枪<bgsound src=wav/sq.wav.wav loop=1>,恶狠狠地对着%%就是一枪,%%啊的一声,体力:<font color=red>-"& zdtl &"</font>点,内力:<font color=red>-"& zdnl &"</font>点,由于体力不支%%当场被击毙,好可怜."
set xajh=Server.CreateObject("anjh70.chat")
call xajh.boot(toname)
set xajh=nothing
conn.execute "insert into l(b,a,c,e,d) values ('" & toname & "',"& application("sysdate") &",'" & sjjh_name & "','使用手枪被杀了','人命')"
end if
rs.close
else
faqi="<font class=t1>【手枪攻击】</font>##从腰间拔出一把精制54手枪<bgsound src=wav/sq.wav.wav loop=1>,恶狠狠地对着%%就是一枪,怎奈枪法太臭没打中....."
end if
set rs=nothing
conn.close
set conn=nothing
case else
faqi="<font class=t1>【法器操作】</font>##你提定的参数不正确,程序不能执行!"
end select
end function


以上代码大家可以自己看看,根据我们才说的,大家可以自己添加很多这样的程序,比如破天锤,绝情环等等。




增加一个5级会员

我们要增加一个5级会员,他的条件
180级的等级。他的经验 点数是:180x180x50=1620000
掉线后36小时内上线不清上限
泡点倍数为2.2倍.

进行系统设置修改.
sjjh_hyvalue 玩家的会员增加存点! 31250,90000,250000,490000
改成:
sjjh_hyvalue 玩家的会员增加存点! 31250,90000,250000,490000,1620000

sjjh_hysj 玩家的会员清上限时间! 0,3,6,12,24
改成:
sjjh_hysj 玩家的会员清上限时间! 0,3,6,12,24,36

sjjh_hypd 玩家1-4级会员,联盟网吧泡点数 1.2,1.4,1.6,1.8,2
改成:
sjjh_hypd 玩家1-4级会员,联盟网吧泡点数 1.2,1.4,1.6,1.8,2.2,2
(这里要注意的是,最后一个是联盟网吧的,添加5级会员要在联盟网吧前面添加)

这样我们就完成了一个5级会员的添加, 当然,你要再加6级,7级也是一样的.
(这里的数据千万要注意不要添加错了,这3个值也是要参应的,否则程序将不能够执行,严重影响时,会员还不能进入江湖)

取消泡点暂离设置


chat/talk.htm文件!

document.write("<input type='checkbox' name='addvalues' onClick='if (parent.roompd==1){alert(\"此房间禁止使用泡点功能!\");document.af.addvalues.checked=false;document.af.sytemp.focus();return false;}if(parent.myzanli!=true){alert(\"如果要使用泡点功能请您先暂离!\");document.af.addvalues.checked=false;document.af.sytemp.focus();return false;}'>");
document.write("<a href='#' onMouseOver=\"window.status='打开后,系统定时自己发言,自己存点,不在线一样泡,泡点所得点数为正常1/2!';return true;\" onMouseOut=\"window.status='';return true;\" title='打开后,系统定时自己发言,自己存点,不在线一样泡,泡点所得点数为正常1/2!' onClick='if (parent.roompd==1){alert(\"此房间禁止使用泡点功能!\");return false;}if(parent.myzanli!=true){alert(\"如果要使用泡点功能请您先暂离!\");document.af.addvalues.checked=false;document.af.sytemp.focus();return false;}document.af.addvalues.checked=!(document.af.addvalues.checked);document.af.sytemp.focus()'>泡</a> ");

删除:
if(parent.myzanli!=true){alert(\"如果要使用泡点功能请您先暂离!\");document.af.addvalues.checked=false;document.af.sytemp.focus();return false;}

及:
if(parent.myzanli!=true){alert(\"如果要使用泡点功能请您先暂离!\");document.af.addvalues.checked=false;document.af.sytemp.focus();return false;}

改后的代码如下:
document.write("<input type='checkbox' name='addvalues' onClick='if (parent.roompd==1){alert(\"此房间禁止使用泡点功能!\");document.af.addvalues.checked=false;document.af.sytemp.focus();return false;}'>");
document.write("<a href='#' onMouseOver=\"window.status='打开后,系统定时自己发言,自己存点,不在线一样泡,泡点所得点数为正常1/2!';return true;\" onMouseOut=\"window.status='';return true;\" title='打开后,系统定时自己发言,自己存点,不在线一样泡,泡点所得点数为正常1/2!' onClick='if (parent.roompd==1){alert(\"此房间禁止使用泡点功能!\");return false;}document.af.addvalues.checked=!(document.af.addvalues.checked);document.af.sytemp.focus()'>泡</a> ");

chat/autosay.asp中的代码:
onlineout=clng(onlinedata(sjjh_name,inroom,8))
if onlineout=0 then
Response.Write "<script language=javascript>if(window==window.top){top.location.href='chaterr.asp?id=001';}</script>"
end if
删除即可!


添加一个好人卡!
傻傻给了我他原来的卡片文件…………

其中有一些卡的功能还是不错的,在这里我们就以分析添加这一些卡往入手。

让大家更快接受7.0程序!

学无止境!

卡片名: 好人卡
功能:清除自己的杀人数为0个!与我们现在的魔神卡一样,只是一个例子!
1。进入后台管理--》物品事件--》卡片--》增加物品--》
物品名:好人卡 说明:清除当日杀人数量为0的好东西! 银两(即会员费):1
确定完成此卡片添加

2。分析此程序的功能很简单,只是把自己的用户表中的:杀人数 值清0即可,下面看我们在后台添加。

3。维护操作--》卡片管理--》添加新卡片
卡片名:好人卡
允许:使用
图片:无
声音:无
对像:自己(因为是操作自己的表所以要选择自己)
自己表:存在(要对自己操作的是否存在,存在的我们要操作的是:杀人数表)
no表:存在(我样要判断u_通辑是否为1,如果是1不让他清杀人上限)
对方表:没有
no表:没有(实际是上对方冲突的表)
冲突卡:没有(与对方冲突的卡不存在)
消息:##偷偷使用卡片:#%成功将自己的杀人上数清至0!
(##代表自己 %%代表对方 #%卡片名 [IMG]图片 [SOUND]音乐 注意大小写,这一些号不可以挨着使用! )

确定添加

4。找到好人卡--》管理--》添加--》
卡片名:好人卡
类别:自己冲突表
操作表:u_通辑
方式:等于
数据:1
消息:##你是江湖通辑犯,不能使用好人卡清除杀人上限

确定添加。

5。添加--》
卡片名:好人卡
类别:自己操作表
操作表:杀人数
方式:等于
数据:0
消息:无

确定添加。

现在你买一个物品试一下,此卡片是好用的!
为什么说这个例子,大家好好分析一下,不明白的可以参见一下魔神卡的设置即可!

添加一个嫁祸卡!
傻傻中的卡片功能,他的功能就是当自己是通缉犯时把自己状态转给其它人!

这里有对自己操作的,也有对方的。
1。判断自己如果非通缉状态不能使用。
2。判断对方如果也是通缉犯就不能使用。
3。判断对方是不是管理员,是则不能使用。
4。操作自己表道理清0,u_通缉改成0
5。操作对方表u_通缉为1.保护,设置成出关

3。维护操作--》卡片管理--》添加新卡片
卡片名:嫁祸卡
允许:使用
图片:无
声音:无
对像:对方(只有对玩家操作才可以不能对自己及大家)
自己表:存在(要对自己操作的是否存在,存在的我们要操作的是:u_通缉)
no表:没有
对方表:存在
no表:存在(实际是上对方冲突的表)
冲突卡:没有(与对方冲突的卡不存在)
消息:##偷偷使用卡片:#%现在%%是通缉犯大家快杀呀!
(##代表自己 %%代表对方 #%卡片名 [IMG]图片 [SOUND]音乐 注意大小写,这一些号不可以挨着使用! )

确定添加

4。找到嫁祸卡--》管理--》添加--》
卡片名:嫁祸卡
类别:自己冲突表
操作表:u_通缉
方式:不等
数据:1
消息:##你不是江湖通缉犯,不能使用嫁娲卡!
确定添加。

5。添加--》
卡片名:嫁祸卡
类别:对方冲突表
操作表:u_通缉
方式:相等
数据:1
消息:##你有没有搞错%%现在是通缉犯,你不能使用!

6。添加--》
卡片名:嫁祸卡
类别:自己操作表
操作表:u_通缉
方式:等于
数据:0
消息:无

7。添加--》
卡片名:嫁祸卡
类别:自己操作表
操作表:道德
方式:等于
数据:0
消息:无

8。添加--》
卡片名:嫁祸卡
类别:自己操作表
操作表:保护
方式:等于
数据:闭关
消息:无

9。添加--》
卡片名:嫁祸卡
类别:对方操作表
操作表:u_通缉
方式:等于
数据:1
消息:无

10。添加--》
卡片名:嫁祸卡
类别:对方操作表
操作表:保护
方式:等于
数据:出关
消息:无

确定添加。

完成此卡




添加一个超级红卡!

超级红卡
体力:+1000000
内力:+500000
武功:+300000

此卡片价钱在于大家自己定,我在这里改成50元!

1.在后台上面添加卡片,这细说了
2.卡片管理-->添加新卡片
超级红卡
允许:使用
图片:无
声音:无
自己表:存在
no表:存在
对方表:没有
no表:没有
冲突卡:没有
消息:##使用了超级红卡体力:+100万 内力:+50万 武功:+30万!

3.管理--->添加
超级红卡
类别:自己冲突表
操作表:u_通缉
方式:相等
数据:1
消息:##你是通缉犯不能使用超级红卡!

4.添加
超级红卡
类别:自己操作表
操作表:体力
方式:加
数据:1000000
消息:无

5.添加
超级红卡
类别:自己操作表
操作表:内力
方式:加
数据:500000
消息:无

6.添加
超级红卡
类别:自己操作表
操作表:武功
方式:加
数据:300000
消息:无

完成此卡!

江湖资料提供-神剑世纪江湖-www.88jh.com