祖玛源码

Ⅰ 我本沉默03年经典版本，找老玩家，寻找失去的记忆。组会，一起玩咯。

你网络下我本沉默19城，或者传奇19城，武器类有嗜血法杖，恶魔权杖，七星法杖，绿玉屠龙，蓝灵裁决，蓝灵炼狱等。首饰： 爱情鲜花 黑铁手镯 恶灵手套 魔幻手镯 道幻手镯等。服装：朱雀战袍(男) 朱雀战袍(女) 白虎战甲(男) 白虎战甲(女) 。怪物类：红蟾怪 黄蟾怪 蓝蟾怪 绿蟾怪 紫蟾怪 工蚁 毒蚁 蚁后等。保证你会喜欢。

Ⅱ 传奇服务端地图的代码分别代表什么

如下：

0 比奇省

0122 宫殿

0110 研究院

0111 研究院

0112 研究院

0102 肉店

0108 药店

0109 药品屋

0104 书店

0107 会议室

0125 东方宫殿

0126 东方宫殿二楼

0103 商店

0105 首饰店

0106服装店

0101客栈

0100 厨房

0128 密室

0129 密室

0123 密室

0124 密室

0114 高级武士之家

01141 高级武士之家

01142 高级武士之家

0115高级魔法师之家

01152高级魔法师之家

0113 高级道士之家

01132 高级道士之家

0137 竞技之地

0139 竞技之家一楼

0135 密室

0134 密室

0133 密室

0119 药店

0118 入口

0121 兵营

0127 监狱

0130 密室

0131 密室

0136 边界旅馆

0132 边界书店

0138 旅馆一楼

0141 首饰店

0140 仓库

D021 沃玛寺庙入口

(2)祖玛源码扩展阅读：

目前比较常见的传奇服务器端就是传奇的，最先的传奇服务器端兴起是在2002年年中，由韩国开发的游戏 《传奇》源代码泄漏，同年9月，该游戏的私服在中国迅速蔓延，半年间，500多家私服同时运营，其中不少私服已逐渐形成规模。这致使《传奇》玩家被严重分流，收入下滑。

代理公司盛大苦不堪言，并因此以韩方无法解决技术困难而拒绝支付分成费用。最终《传奇》没落，中韩双方关系破裂。 后期的传奇服务端发展由传奇爱好者研发编写各种游戏引擎和游戏脚本编写的，很多网站上也有传奇私服服务端的下载。

在市场上，某些传奇版本实现的游戏功能堪比盛大公司运行的官方服务器。而且这些传奇版本的价格也能卖上不少的价格，少则几百，多则几千上万元。

Ⅲ 用C#编写的祖玛游戏的源代码

Dim Num As Integer ’串球数量

Dim Games As Integer ’关数最大为10

Dim Color As Integer ’球的颜色数

Dim Bs As Integer ’发球速度

Dim GameRun As Boolean ’游戏状态

Dim Score As Integer ’成绩

2、程序初始化

Private Sub Form_Load()

’读取游戏关数，用VB的GetSetting函数从注册表中读取

Games = GetSetting(App.EXEName, App.Title, "Level", "1")

Num = Pb.Width \ Balls1(0).Width + 1

For i = 1 To Num ’加载控件

Load Balls1(i): Load Balls2(i)

Next

End Sub

3、游戏初始化，完成轨道小球的初始位置

Sub InitGame()

Randomize

Color = 3 + Games \ 3

For i = 0 To Num ’生成轨道串球

Balls1(i).Picture = Image1(Int(Rnd * Color)).Picture

If i > 0 Then Balls1(i).Left = Balls1(i - 1).Left + Balls1(0).Width

Balls1(i).Visible = False

’下轨道小球位置控制代码略

Next

Ball.Picture = Image1(Int(Rnd * Color)).Picture

Ball.Visible = True ’发球图案

End Sub

4、游戏开始

Private Sub Command1_Click()

Call InitGame

Timer1.Enabled = True

End Sub

5、轨道小球运动

Private Sub Timer1_Timer()

’注：下轨道小球运动代码略

If Balls1(0).Left > 0 And Balls2(0).Left > 0 Then

’移动速度Ms1控制，代码略

Balls1(0).Left = Balls1(0).Left - Ms1

For i = 1 To Num ’其它球随移

Balls1(i).Left = Balls1(i - 1).Left + Balls1(0).Width

Next

Else ’移到最左边

’停止游戏，并作未过关处理

End If

End Sub

6、确定发球的水平位置

Private Sub Pb_MouseMove(Button, Shift, X, Y)

’发出的小球在运动时不处理

If Timer2.Enabled = True Or Timer3.Enabled = True Then Exit Sub

’根据鼠标位置确定发出的水平位置

Ball.Left = X - Ball.Width \ 2

’超出游戏区域左边界的处理

If Ball.Left < 0 Then Ball.Left = 0

’右边界的处理，代码略

End Sub

7、发球控制

Private Sub Pb_MouseDown(Button, Shift, X, Y)

’根据鼠标位置确定发球运动方向

If Y <= Pb.Height \ 2 Then

Md = -1 ’向上

Else

Md = 1 ’向下

End If

’根据鼠标离发球位置的距离确定发出小球的运动速度

Bs = Abs(Y - Pb.Height \ 2) \ 15

If GameRun = True Then

’向上运动

If Md = -1 And Timer2.Enabled = False Then Timer2.Enabled = True

’向下运动，代码略

End If

End Sub

8、发球向上运动

Private Sub Timer2_Timer()

If Ball.Top > Line1.Y1 Then ’上升

If Ball.Top - Bs <= Line1.Y1 Then ’到顶

’暂停游戏，代码略

Ball.Top = Line1.Y1

K = -1 ’确定插入位置

For i = 0 To Num

’发球水平对称线

p = Ball.Left + Ball.Width \ 2

If … Then ’判断在哪个球，条件略

If … Then ’在左侧，条件略

K = i

Else

K = i + 1

End If

Exit For

End If

Next

If K >= 0 Then ’能碰撞

’产生音效

If Dir("pop.wav") <> "" Then sndPlaySound "pop.wav", &H0 Or &H1

’插入位置的小球依次后移

For s = Num To K + 1 Step -1

Balls1(s).Picture = Balls1(s - 1).Picture

Next

Balls1(K).Picture = Ball.Picture ’插入

’找消失的左右位置V1、V2，代码略

If V2 - V1 + 1 >= 3 Then ’有三个

’计分，代码略

’过关及结束处理，代码略

’消失的小球闪烁，代码略

’消失相连小球，代码略

’所有小球后退(V2-V1+1)个小球位置，代码略

’向前填充直到V1处图像非空

While Balls1(V1).Picture = LoadPicture("")

’填充，代码略

Wend

End If

End If

’继续游戏，代码略

Else ’向上运动

Ball.Top = Ball.Top - Bs

End If

End If

End Sub

9、发球向下运动

Private Sub Timer3_Timer()

’代码略

End Sub