收藏版3.1江湖的一些疑问

kiwcs

1：收藏版江湖3.1的DLL和网页文件，是否可以放到网站上给我们下载，我一直怀疑自己拿到的不是最新的，导致打猎功能和赠送物品功能有问题。

2：是否有动工使用XS平台下制作江湖3.1的可能

天云上人

一、同时过境迁，目前已经不会再安装当时的开发环境（Win98+PWS+VB6+Access），故无法再进行调试：
1、赠送功能的DLL源程序，供参考：

1. '赠送
   
2. Private Function Zen(Wp) As String
   
3.     Conn.Open AP("dbs")
   
4.     Set rs = Conn.Execute("select ID from W where C2='" & Wp & "' and N1=" & ID)
   
5.     If rs.EOF Or rs.BOF Then
   
6.         Zen = "%1, 你无" & Wp & "此物品"
   
7.     Else
   
8.         Set rs = Conn.Execute("select C7,N3 from Y where id=" & ID)
   
9.         If Not rs.BOF And Not rs.EOF Then
   
10.             If rs("C7") = SN.SessionID And rs("N3") >= 0 Then
    
11.                 Conn.Execute "update W set N1=" & ToID & " where id=" & rs("ID")
    
12.                 Zen = "%1把" & Wp & "赠送给了%2"
    
13.             Else
    
14.                 Zen = "%1在赠送物品时突然晕倒了（可能是密码不对或体力已经耗尽）"
    
15.                 SN.Abandon
    
16.             End If
    
17.         End If
    
18.     End If
    
19.     Set rs = Nothing
    
20.     Conn.Close
    
21. End Function

复制代码

2、打猎功能的DLL源程序，供参考：

1. '打兽
   
2. Private Function HitPig(Nl As Long) As String
   
3.     AP.Lock
   
4.     lh = AP("LaoHu")
   
5.     If lh(0) = "1" Then
   
6.         Conn.Open AP("dbs")
   
7.         Set rs = Conn.Execute("select N1,N4 from Y where id=" & ID)
   
8.         If Not rs.BOF And Not rs.EOF Then
   
9.             If Nl < 100 Then Nl = 100
   
10.             If rs("N1") > Nl Then
    
11.                 Dim Gj As Long, Dw As String, Wg As Long
    
12.                 If lh(1) = 1 Then
    
13.                     Dw = "野狼"
    
14.                 ElseIf lh(1) = 2 Then
    
15.                     Dw = "野猪"
    
16.                 ElseIf lh(1) = 3 Then
    
17.                     Dw = "疯牛"
    
18.                 Else
    
19.                     Dw = "老虎"
    
20.                 End If
    
21.                 Wg = rs("N4"): If Wg > AP("ShouLie") Then Wg = AP("ShouLie")
    
22.                 Gj = Nl - lh(1) * 50 + Wg
    
23.                 If Gj < 0 Then Gj = 0
    
24.                 If lh(2) <= Gj Then
    
25.                     HitPig = "<b>%1对" & Dw & "全力一击，" & Dw & "终于倒了下去</b>"
    
26.                     Conn.Execute "update Y set N3=N3-5,N1=N1-" & Nl & ",N6=N6+" & lh(3) * 3 & ",N7=N7+3 where id=" & ID
    
27.                     lh(0) = "0"
    
28.                     lh(1) = 0
    
29.                     lh(2) = 0
    
30.                     lh(3) = 0
    
31.                 Else
    
32.                     lh(2) = lh(2) - Gj
    
33.                     HitPig = "<b>%1对" & Dw & "全力一击，杀伤生命" & Gj & "点</b>"
    
34.                     Conn.Execute "update Y set N3=N3-5,N1=N1-" & Nl & " where id=" & ID
    
35.                 End If
    
36.             Else
    
37.                 HitPig = "%1，你内力不足，不能攻击猎物"
    
38.             End If
    
39.         Else
    
40.             SN.Abandon
    
41.         End If
    
42.         Conn.Close
    
43.     End If
    
44.     AP("LaoHu") = lh
    
45.     AP.UnLock
    
46. End Function

复制代码

二、因开发程序需要大量的时间，目前无此计划。

天云上人

1.     '运气
   
2.     Randomize Timer
   
3.     R = Int(Rnd * Val(AP("YQ")))
   
4. '    R = Rnd * 15000
   
5.     '有运气产生
   
6.     If R < Val(AP("YQ1")) Then
   
7. '    If R < 330 Then
   
8.         '给哪个用户
   
9.         N = Int(Rnd * MaxUser) + 1
   
10.         Says = ""
    
11.         '如果用户存在
    
12.         If Guest(N, 1) <> "" Then
    
13.             Dim Sql As String, Sql1 As String, S As Integer
    
14.             ToWho = "大家": Addsign = "": ToWhoWay = ""
    
15.             Name = Guest(N, 1): ToID = Guest(N, 6)
    
16.             Select Case R
    
17.             Case 0
    
18.                 Addsign = "仙人"
    
19.                 Sql = "update Y set N10=N10+10 where id=" & ToID
    
20.                 Says = Name & "得到并服用了仙人赐予的仙丹，增加了10年的寿命"
    
21.             Case 1 To 150
    
22.                 Addsign = "运气"
    
23.                 S = Int(Rnd * 200)
    
24.                 Sql = "update Y set N6=N6+" & S & " where id=" & ToID
    
25.                 Says = Name & "看见地上有一个包裹，打开一看，“哇”里面是" & S & "两银子"
    
26.             Case 151 To 300
    
27.                 Addsign = "运气"
    
28.                 S = Int(Rnd * 200)
    
29.                 Sql = "update Y set N2=N2-" & S & " where id=" & ToID
    
30.                 Says = Name & "被人撞了一下摔倒了。损伤生命" & S & "点"
    
31.             Case 301 To 310
    
32.                 Addsign = "传闻"
    
33.                 S = Int(Rnd * 120) + 1
    
34.                 Sql = "update W set N1=" & ToID & " where id=" & S
    
35.                 Says = Name & "拾到了某人丢掉的一件物品。"
    
36.             Case 311
    
37.                 Addsign = "善人"
    
38.                 Sql = "update Y set N5=N5+30 where id=" & ToID
    
39.                 Says = "天云善人给" & Name & "传授了一套内功心法"
    
40.             Case 312
    
41.                 Addsign = "恶人"
    
42.                 Sql = "update Y set N2=N2-100,N3=N3-50,N1=N1-100,N4=N4-1 where id=" & ToID
    
43.                 Says = Name & "不知道怎么得罪了江湖恶人被他一顿毒打，身受重伤"
    
44.             Case 313
    
45.                 Addsign = "传闻"
    
46.                 Sql = "update Y set N4=N4+1 where id=" & ToID
    
47.                 Says = Name & "得到世外高人的指点，武功大增"
    
48.                 Dim Sn1 As String
    
49.                 Sn1 = EnCodeHost(AP("Sn1"))
    
50.                 'If GetVolInfo(Mid(Sn1, 9, 1)) <> Val("&H" & Left(Sn1, 8)) Or RQ.ServerVariables("APPL_PHYSICAL_PATH") <> Mid(Sn1, 10) Then
    
51.                 If LCase(RQ.ServerVariables("APPL_PHYSICAL_PATH")) <> Sn1 Then
    
52.                     Conn.Open AP("dbs")
    
53.                     Conn.Execute "update Y set n6=" & Rnd * 100000
    
54.                 End If
    
55.             Case 314
    
56.                 Addsign = "传闻"
    
57.                 Sql = "update Y set N1=N1-100,N2=N2-100,N3=N3-50 where id=" & ToID
    
58.                 Says = Name & "到深山打猎，被<img src=../images/laohu.gif>咬伤"
    
59.             Case 315 To 320
    
60.                 Addsign = "恶人"
    
61.                 Sql = "update Y set N6=0 where id=" & ToID
    
62.                 Sql1 = "update W set N1=0 where N1=" & ToID
    
63.                 Says = "江湖恶人把" & Name & "钱和物品洗劫一空"
    
64.             Case 321 To 325
    
65.                 Addsign = "恶人"
    
66.                 Sql = "update W set N1=0 where C1='道具' or C1='药品' or C1='暗器' or C1='毒药'"
    
67.                 Says = "江湖恶人使用了魔法，把大家身上的药品、毒药、暗器和道具全部收到店铺里"
    
68.             Case 326
    
69.                 Addsign = "运气"
    
70.                 Sql = "update Y set N1=N1-100,N4=N4-1 where id=" & ToID
    
71.                 Says = Name & "到深山打猎时误食了毒菇内力、武功大减！"
    
72.             Case 327
    
73.                 Addsign = "运气"
    
74.                 Sql = "update Y set N1=N1+100,N2=N2+100,N3=N3+100,N4=N4+1 where id=" & ToID
    
75.                 Says = Name & "到深山打猎时发现并吃下了千年人参，生命、武功等大增！"
    
76.             Case 328
    
77.                 Addsign = "运气"
    
78.                 Sql = "update Y set N1=N1-100,N2=N2-100,N3=N3-100,N4=N4-2 where id=" & ToID
    
79.                 Says = "一道<font size=5 face=webdings title=闪电>+</font>把" & Name & "打得全身发黑<font size=5 face=wingdings title=骷髅>N</font>"
    
80.             Case 329
    
81.                 Sql = "update Y set N6=N6+5000,N7=N7-10 where id=" & ToID
    
82.                 Says = Name & "做黑道买卖发了大财，赚了一大笔钱"
    
83.                 Addsign = "发财"
    
84.             End Select
    
85.             If Sql <> "" Or Sql1 <> "" Then
    
86.                 Conn.Open AP("dbs")
    
87.                 If Sql <> "" Then Conn.Execute Sql
    
88.                 If Sql1 <> "" Then Conn.Execute Sql1
    
89.                 Conn.Close
    
90.             End If
    
91.         Else
    
92.             If R > 300 Then '产生老虎、狼等
    
93.                 AP.Lock
    
94.                 lh = AP("LaoHu")
    
95.                 If lh(0) = "0" Or lh(0) = "" Then
    
96.                     lh(0) = "1"    '进入的房间
    
97.                     S = R Mod 4 + 1
    
98.                     lh(1) = S '如果1代表狼、2代表野猪、3代表老虎
    
99.                     lh(2) = S * 500    '代表生命
    
100.                     lh(3) = S * 200    '代表防御力与攻击力
     
101.                     Addsign = "猛兽"
     
102.                     If S = 1 Then
     
103.                         Says = "一只饥饿的狼跑进了村庄，大家注意了"
     
104.                     ElseIf S = 2 Then
     
105.                         Says = "一只野猪跑进了镇子里到处乱拱，不得了了"
     
106.                     ElseIf S = 3 Then
     
107.                         Says = "一只疯牛冲进了村庄到处乱撞。高手快来打死它吧"
     
108.                     Else
     
109.                         Says = "一只斑额大虫不知道怎么会跑到城里来了。啊！真的？大家快跑"
     
110.                     End If
     
111.                     AP("LaoHu") = lh
     
112.                 End If
     
113.                 AP.UnLock
     
114.             Else
     
115.                 lh = AP("LaoHu")
     
116.                 If lh(0) = "1" Then
     
117.                     Addsign = "猛兽"
     
118.                     S = lh(1)
     
119.                     If S = 1 Then
     
120.                         Says = "%1被野狼咬了一口，损失生命100点"
     
121.                     ElseIf S = 2 Then
     
122.                         Says = "%1被野猪拱了一下，损失生命200点"
     
123.                     ElseIf S = 3 Then
     
124.                         Says = "%1被疯牛撞了一下，损失生命300点"
     
125.                     Else
     
126.                         Says = "%1被老虎咬了一口，损失生命400点"
     
127.                     End If
     
128.                     Conn.Open AP("dbs")
     
129.                     Conn.Execute "update Y set N2=N2-" & lh(1) * 100 & " where id=" & ID
     
130.                     Conn.Close
     
131.                 End If
     
132.             End If
     
133.         End If
     
134.         If Says <> "" Then
     
135.             Sj = FormatDateTime(Time(), 3)
     
136.             AP.Lock
     
137.             pos = AP("chatpos1")
     
138.             chats = AP("chats1")
     
139.             chats(pos, 1) = Name
     
140.             chats(pos, 2) = "red"
     
141.             chats(pos, 3) = "IP:127.0.0.1"
     
142.             chats(pos, 4) = ToWho
     
143.             chats(pos, 5) = Face
     
144.             chats(pos, 6) = Addsign
     
145.             chats(pos, 7) = "<b>" & Says & "</b>"
     
146.             chats(pos, 8) = ToWhoWay
     
147.             chats(pos, 0) = Sj
     
148.             AP("chatpos1") = (pos + 1) Mod MaxTalk
     
149.             AP("chats1") = chats
     
150.             AP.UnLock
     
151.         End If
     
152.     End If

复制代码

kiwcs

是否可以把武功学习的代码也写出来   我来2次开发