Smile黑暗邪神
感謝光臨本論壇區。
本論壇 歡迎您的到來!
希望你會喜歡。

站長 qwer14561456 敬上

CSO-NST加槍碼產生器(主控台應用程式)

上一篇主題 下一篇主題 向下

CSO-NST加槍碼產生器(主控台應用程式)

發表 由 VB2010 于 周二 7月 19, 2011 2:15 pm

開放程式碼:
Module Module1
Sub Main()
Dim z, x, c, v, b, n, m, a, s, d, f, g, h, j, k, l, q, w, e, r, t, y As String
Console.WriteLine("歡迎使用本系統請按Enter繼續")
Console.Read()


Console.Write("請輸入你的槍種1是一般的槍枝 2是按T改模式的槍枝 3是按右用小刀攻擊的槍枝 4是按T可改成榴砲or只可射擊榴砲的槍枝 5是可以一次裝完彈藥的散彈槍6是按右射出雷比亞的射線 7是要先預熱的槍: ")
z = Console.ReadLine()
If z = "2" Xor z = "4" Then
Console.Write("請輸入槍支的變形時間:")
x = Console.ReadLine()
Console.Write("請輸入槍支的變回來的時間:")
c = Console.ReadLine()

Console.Write("請輸入變形後的攻擊力(倍數):")
v = Console.ReadLine()
Console.Write("槍支變形後子彈的射速(倍數):")
b = Console.ReadLine()
Console.Write("槍支變形後是否可開鏡(0為沒有,1為普通近鏡,2為狙擊鏡,狙擊槍請不要改,必須是0):")
n = Console.ReadLine()
Console.Write("指槍支變形後的後座力:")
m = Console.ReadLine()
Console.Write("請輸入槍支名稱:")
a = Console.ReadLine()
Console.Write("請輸入模組名稱:")
s = Console.ReadLine()
Console.Write("請輸入槍枝代碼 1 - P228 (13發的小槍B-1-3) CSO裡的228緊緻型()3 - SCOUT (輕型狙擊槍) 4 - HEGRENADE (高爆手榴彈) 5 - XM1014 (聯發散彈槍B-2-2) 7 - MAC10 (英格倫恐怖份子的B-3-1) 8 - AUG (反恐小組可開半鏡的那把) 10 - ELITE (恐怖份子的雙槍)CSO裡的.40槍神 雙槍 11 - FIVESEVEN (反恐小組的20發小槍) 12 - UMP45 (25發的衝鋒槍B-3-3) 13 - SG550 (反恐小組的連狙) 14 - GALI (IDF防衛者) 15 - FAMAS (反恐小組可3連發的步槍) 16 - USP (可以裝消音館的小槍反恐小組的第一把小槍)CSO裡的基本小槍(反恐小組)17 - GLOCK18 (可以三連發的小槍恐怖份子的第一把小槍) CSO裡的基本小槍(恐怖份子)18 - AWP (重型狙擊槍) CSO裡的麥格農()19 - MP5 (30發的衝鋒槍B-3-2) CSO裡的KM(MP5)20 - M249 (100發的戰神機關槍B-5-1) 21 - M3 (8發的散彈槍B-2-1) 22 - M4A1 (可以裝消音館的步槍反恐小組的招牌槍) 23 - TMP (裝了消音館的衝鋒槍反恐小組的B-3-1) 24 - G3SG1 (20發的聯社狙擊槍恐怖份子的B-4-6) 26 - DEAGLE (沙漠之鷹B-3-4) 27 - SG552 (恐怖份子可開半鏡的那把B-4-4) 28 - AK47 (恐怖份子的招牌槍B-4-2) 29 - KNIFE (小刀) 30 - P90 (50發的衝鋒槍B-3-4) :")
d = Console.ReadLine()
Console.Write("請輸入槍枝原本的攻擊力:")

f = Console.ReadLine()

Console.Write("請輸入槍支的原本的子彈射速:")
g = Console.ReadLine()
Console.Write("槍枝原本是否有開鏡功能(0為沒有,1為普通近鏡,2為狙擊鏡,狙擊槍請不要改,必須是0) :")
h = Console.ReadLine()
Console.Write("槍支的子彈數量:")
j = Console.ReadLine()
Console.Write("槍支的備用彈夾數量:")
k = Console.ReadLine()
Console.Write("輸入槍枝後座力:")
l = Console.ReadLine()
Console.Write("拿槍行走的速度(正常是250):")
q = Console.ReadLine()
Console.Write("槍支的擊退力:")
w = Console.ReadLine()
Console.Write("槍支的價格:")
e = Console.ReadLine()
Console.Write("槍支的聲音:")
r = Console.ReadLine()
Console.Write("限定隊伍購買 1/歹徒才能買 2/警察才能買 0/都能買 :")
t = Console.ReadLine()
Console.Write("取得方法 1/用錢買 0/特殊方法得到 :")
y = Console.ReadLine()

Console.WriteLine("CSO-NST加槍碼:[type]{0}[name]{1}[model]{3}[wpn_change]{4}[damage]{5}[speed]{6}[zoom]{7}[clip]{8}[ammo]{9}[recoil]{10}[gravity]{11}[knockback]{12}[cost]{13}[sound]{14[team]{15},[buy]{15}[d_timechange_1]{16}[d_timechange_2]{17}[d_damage]{18}[d_speed]{19}[d_zoom]{20}[d_recoil]{21}", z, a, s, d, f, g, h, j, k, l, q, w, e, r, t, y, x, c, v, b, n, m)

Else
Console.Write("請輸入槍支名稱:")
a = Console.ReadLine()
Console.Write("請輸入模組名稱:")
s = Console.ReadLine()
Console.Write("請輸入槍枝代碼 1 - P228 (13發的小槍B-1-3) CSO裡的228緊緻型()3 - SCOUT (輕型狙擊槍) 4 - HEGRENADE (高爆手榴彈) 5 - XM1014 (聯發散彈槍B-2-2) 7 - MAC10 (英格倫恐怖份子的B-3-1) 8 - AUG (反恐小組可開半鏡的那把) 10 - ELITE (恐怖份子的雙槍)CSO裡的.40槍神 雙槍 11 - FIVESEVEN (反恐小組的20發小槍) 12 - UMP45 (25發的衝鋒槍B-3-3) 13 - SG550 (反恐小組的連狙) 14 - GALI (IDF防衛者) 15 - FAMAS (反恐小組可3連發的步槍) 16 - USP (可以裝消音館的小槍反恐小組的第一把小槍)CSO裡的基本小槍(反恐小組)17 - GLOCK18 (可以三連發的小槍恐怖份子的第一把小槍) CSO裡的基本小槍(恐怖份子)18 - AWP (重型狙擊槍) CSO裡的麥格農()19 - MP5 (30發的衝鋒槍B-3-2) CSO裡的KM(MP5)20 - M249 (100發的戰神機關槍B-5-1) 21 - M3 (8發的散彈槍B-2-1) 22 - M4A1 (可以裝消音館的步槍反恐小組的招牌槍) 23 - TMP (裝了消音館的衝鋒槍反恐小組的B-3-1) 24 - G3SG1 (20發的聯社狙擊槍恐怖份子的B-4-6) 26 - DEAGLE (沙漠之鷹B-3-4) 27 - SG552 (恐怖份子可開半鏡的那把B-4-4) 28 - AK47 (恐怖份子的招牌槍B-4-2) 29 - KNIFE (小刀) 30 - P90 (50發的衝鋒槍B-3-4) :")
d = Console.ReadLine()
Console.Write("請輸入槍枝的攻擊力:")

f = Console.ReadLine()

Console.Write("請輸入槍支的子彈射速:")
g = Console.ReadLine()
Console.Write("槍枝是否有開鏡功能(0為沒有,1為普通近鏡,2為狙擊鏡,狙擊槍請不要改,必須是0) :")
h = Console.ReadLine()
Console.Write("槍支的子彈數量:")
j = Console.ReadLine()
Console.Write("槍支的備用彈夾數量:")
k = Console.ReadLine()
Console.Write("輸入槍枝後座力:")
l = Console.ReadLine()
Console.Write("拿槍行走的速度(正常是250):")
q = Console.ReadLine()
Console.Write("槍支的擊退力:")
w = Console.ReadLine()
Console.Write("槍支的價格:")
e = Console.ReadLine()
Console.Write("槍支的聲音0是原本的1是新的:")
r = Console.ReadLine()
Console.Write("限定隊伍購買 1/歹徒才能買 2/警察才能買 0/都能買 :")
t = Console.ReadLine()
Console.Write("取得方法 1/用錢買 0/特殊方法得到 :")
y = Console.ReadLine()

Console.WriteLine("CSO-NST加槍碼:[type]{0}[name]{1}[model]{2}[wpn_change]{3}[damage]{4}[speed]{5}[zoom]{6}[clip]{7}[ammo]{8}[recoil]{9}[gravity]{10}[knockback]{11}[cost]{12}[sound]{13}[team]{14}[buy]{15}", z, a, s, d, f, g, h, j, k, l, q, w, e, r, t, y)

Console.ReadLine()
Console.Write("按一下Enter結束本系統")





End If

Console.Read()
End Sub
End Module

圖片:

載點 :http://www.sendspace.com/file/k2wh2o (副檔名請改成exe)(不能用請告知我會告訴你方法)
改天再更新

VB2010
版主
版主

文章數: 10
注冊日期: 2011-07-18

檢視會員個人資料

回頂端 向下

上一篇主題 下一篇主題 回頂端


這個論壇的權限:
無法 在這個版面回復文章