祖瑪源碼
Ⅰ 我本沉默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