excel三国杀怎么玩-三国杀excel,excel三国杀旧版破解版

您好目前E杀不支持电脑、支持安卓系统或iOS系统、如果您想在电脑上玩、可以下载太阳神三国杀涅槃班、全武将都有、另外本人是E杀吧的资深会员、目前排名第三、希望对您有帮助、望采纳、谢谢

里面有一个蚂蚁包，你可以看看，我百自己没用过。和一般的三国杀几乎没有区别度，有1v1（非KOF）, 3V3，五人，八人，虎回牢关（这些都一样的），自己创建了一个闯关模式的《曹操传》共30关，难度很大（大都是2打答3，3打5）
我也回答点儿让人看不懂的东西
Private Sub cmdAuto_Click()
If cmdAuto.Caption = "托管" Then
托管标志 = True
cmdAuto.Caption = "手动"
Else
托管标志 = False
cmdAuto.Caption = "托管"
End If
End Sub

Private Sub cmdCancel_Click()
Worksheets("主界面").Cells(19, 7).Value = ""
Worksheets("主界面").Cells(19, 23).Value = ""
Worksheets("主界面").Cells(19, 27).Value = ""
Worksheets("主界面").Cells(25, 1).Value = ""

On Error GoTo errmsg
If 当前动作 = "选将" Or 当前动作 = "选主公" Or 当前动作 = "决定" Then
Else
If 当前角色ID > 5 Or 当前角色ID < 1 Then Call 记录履历(0, "当前角色ID异常！cmdCancelBegin" & 当前动作): Call EndGame
End If

Cells(17, 26).Select
lstName.Visible = False
出招标志 = False
当前牌ID = 0
当前牌列号 = 0
If 超时时间 > 0 Then '有等待(等待中)
Select Case 当前动作
Case "被激将攻", "被激将防", "被护驾", "被决斗", "被南蛮", "被借刀", "被杀", "被万箭", "无懈", "救命", "青龙偃月刀" '这几个是被动出牌来处理
Call 等待结束
Case "弃牌"
Call 等待结束
Case Else
Call 等待结束
End Select
Else
Call 等待结束
Call 显示按钮("")
Call 设定动作可出牌("", "")
End If
Exit Sub
errmsg:
Call 错误信息记录("【取消】")

End Sub

Private Sub cmdHide_Click()

On Error GoTo errmsg

If cmdHide.Caption = "隐藏" Then
cmdHide.Caption = "显示"
DefaultColor = 2
Call HidePic(Worksheets("主界面"))
Call HideBrgPic(Worksheets("主界面"))
Else
cmdHide.Caption = "隐藏"
DefaultColor = xlNone
Call ShowPic(Worksheets("主界面"))
Call ShowBrgPic(Worksheets("主界面"))
End If

If 当前角色ID = 1 And 超时时间 = 0 Then
Call cmdCancel_Click
End If
Exit Sub
errmsg:
Call 错误信息记录("【图片显隐】")

End Sub

Private Sub cmdStart_Click()

On Error GoTo errmsg
cmdOut.Enabled = False
cmdCancel.Enabled = False
cmdEnd.Enabled = False
cmdAuto.Enabled = False
If cmdAuto.Caption = "托管" Then
托管标志 = False
Else
托管标志 = True
End If
Call 获取音频开关
cmdStart.Enabled = False
cmdHide.Enabled = False
If cmdHide.Caption = "隐藏" Then
DefaultColor = xlNone
Else
DefaultColor = 2
End If
'*******************测试用*********************
Call GetTestFlag
'**********************************************
Call 等待结束
Cells(17, 26).Select
If cmdStart.Caption = "开局" Then
Cells(19, 7).Value = ""
Cells(19, 7).Value = ""
Cells(25, 1).Value = ""
lstName.Clear
lstName.Visible = False
If Cells(20, 3).Value = "1 V 1" Then
战斗模式 = "单挑"
Else
战斗模式 = "五人局"
End If
开局标志 = True
Call 初始化
Call 重置手牌
Call 重置身份
If 战斗模式 = "单挑" Then
Call 重置武将(2)
Call 选择武将(1)
Call 选择武将(2)
Call 分配观战(3)
Call 分配观战(4)
Call 分配观战(5)
Call 显示身份
Else
Call 重置武将(5)
End If
据守发动 = False
当前牌ID = 0
当前牌列号 = 0
PlayerDie = False
当前角色ID = 主公ID
If TESTFLAG = True Then
当前角色ID = 1
End If

cmdStart.Caption = "结束"
cmdStart.Enabled = True
Call 开局
If 当前角色ID > 5 Or 当前角色ID < 1 Then Call 记录履历(0, "当前角色ID异常！开局" & 当前动作): Call EndGame
Else
开局标志 = False
cmdStart.Caption = "开局"
cmdStart.Enabled = True
cmdHide.Enabled = True
cmdAuto.Enabled = True
Call EndGame
End If
Exit Sub
errmsg:
Call 错误信息记录("【开局】")

End Sub

Private Sub 选择武将(ByVal ID As Integer)
Dim I As Integer
Dim 武将ID As Integer
Dim 身份 As String

lstName.Visible = True
lstName.Clear
I = 2
玩家选将ID = 0
Do While Worksheets("武将牌").Cells(I, 1).Value <> ""
If Worksheets("武将牌").Cells(I, 3).Value = 0 Then
If 玩家选将ID = 0 Then 玩家选将ID = I
lstName.AddItem Worksheets("武将牌").Cells(I, 4).Value
End If
I = I + 1
Loop
lstName.ListIndex = -1
当前动作 = "选将"
身份 = Worksheets("角色信息").Cells(ID + 1, 11).Value
If ID = 1 Then
Call 等待玩家选择("您的身份是:" & 身份 & ",请选择您的武将")
Call 记录履历(0, "您选择了" & Worksheets("武将牌").Cells(玩家选将ID, 4).Value & "(" & 身份 & ")")
Else
Call 等待玩家选择("对手身份是:" & 身份 & ",请选择对手武将")
Call 记录履历(0, "您的对手是" & Worksheets("武将牌").Cells(玩家选将ID, 4).Value & "(" & 身份 & ")")
End If

Worksheets("武将牌").Cells(玩家选将ID, 3).Value = ID '已用
Worksheets("武将牌").Cells(玩家选将ID, 2).Value = ID '序号
Call 获取武将信息(ID, 玩家选将ID)

End Sub

Private Sub 分配观战(ByVal ID As Integer)
Dim I As Integer
I = 2
Do While Worksheets("武将牌").Cells(I, 1).Value <> ""
If Worksheets("武将牌").Cells(I, 3).Value = 0 Then
Worksheets("武将牌").Cells(I, 3).Value = ID '已用
Worksheets("武将牌").Cells(I, 2).Value = ID '序号
Call 获取武将信息(ID, I)
Worksheets("角色信息").Cells(ID + 1, 14).Value = 0
Call 记录履历(0, "玩家" & ID & "选择了" & Worksheets("武将牌").Cells(I, 4).Value & "(观战)")
Exit Do
End If
I = I + 1
Loop
End Sub
Private Sub 显示身份()

Worksheets("主界面").Range("P20") = Worksheets("角色信息").Cells(1 + 1, 11).Value
Worksheets("主界面").Range("AE11") = Worksheets("角色信息").Cells(2 + 1, 11).Value
Worksheets("主界面").Range("Y3") = "观战"
Worksheets("主界面").Range("N3") = "观战"
Worksheets("主界面").Range("C11") = "观战"

End Sub

Sub 开局()

Call 分发手牌(1, 4)
Call 分发手牌(2, 4)
If 战斗模式 <> "单挑" Then
Call 分发手牌(3, 4)
Call 分发手牌(4, 4)
Call 分发手牌(5, 4)
End If
Call 设定当前角色(当前角色ID, 4)

Call 开杀
End Sub

Private Sub cmdEnd_Click()
On Error GoTo errmsg
If 当前角色ID > 5 Or 当前角色ID < 1 Then Call 记录履历(0, "当前角色ID异常！cmdEndBegin" & 当前动作): Call EndGame
Call 等待结束
Call 隐藏按钮
Cells(17, 26).Select
Call 弃牌阶段(1)
Call 回合结束(1)
If 当前角色ID > 5 Or 当前角色ID < 1 Then Call 记录履历(0, "当前角色ID异常！cmdEnd2" & 当前动作): Call EndGame
Call 角色切换7a64e78988e69d83339
Call 开杀
If 当前角色ID > 5 Or 当前角色ID < 1 Then Call 记录履历(0, "当前角色ID异常！cmdEndEnd" & 当前动作): Call EndGame
Exit Sub
errmsg:
Call 错误信息记录("【弃牌】")

End Sub

Private Sub cmdGet_Click() '强制发牌，测试用

Dim 牌名称 As String
Dim 角色ID As Integer
牌名称 = Worksheets("主界面").Cells(20, 35).Value
角色ID = Worksheets("主界面").Cells(21, 35).Value

If 开局标志 = False Then Exit Sub

If 角色ID < 1 Or 角色ID > 5 Or 牌名称 = "" Then Exit Sub

Dim I As Integer
Dim 当前手牌数 As Integer
当前手牌数 = Worksheets("角色信息").Cells(角色ID + 1, 7).Value

If 当前手牌数 = 最大牌数 Then Exit Sub
I = 2
Do While Worksheets("全量牌").Cells(I, 3).Value <> ""
If Worksheets("全量牌").Cells(I, 6).Value = 牌名称 Then '未被使用
Worksheets("全量牌").Cells(I, 3).Value = 角色ID
Worksheets("角色信息").Cells(角色ID + 1, 25 + 当前手牌数).Value = I
Call 显示手牌(角色ID)
Exit Do
End If
I = I + 1
Loop

Cells(17, 26).Select
If 角色ID = 1 Then
Call 设定动作可出牌(当前动作, 当前技能)
End If
End Sub

Private Sub cmdOut_Click() '出牌
Dim 牌列号 As Integer
Dim 牌ID As Integer
Dim 牌名称 As String
Dim 牌花色 As String
Dim 牌类型 As String
Dim arr牌列号() As Integer
Dim iCount As Integer
Dim bEnd As Boolean
Dim I As Integer
Dim 动作 As String

On Error GoTo errmsg
lstName.Visible = False
Cells(19, 7).Value = ""
Cells(19, 23).Value = ""
Cells(19, 27).Value = ""
Cells(25, 1).Value = ""
Cells(17, 26).Select
Call 隐藏按钮

出招标志 = True
If 当前动作 = "选将" Or 当前动作 = "选主公" Or 当前动作 = "决定" Then
Call 等待结束
Exit Sub
End If
If 当前角色ID > 5 Or 当前角色ID < 1 Then Call 记录履历(0, "当前角色ID异常！cmdOut" & 当前动作): Call EndGame

蛇矛杀列号 = 0
蛇矛杀列号2 = 0
被动技能 = ""
牌列号 = 当前牌列号
牌ID = 当前牌ID
ReDim arr牌列号(0)
动作 = 当前动作
If 技能发动 = True Then 技能发动成功 = True

'点确认出牌时，需要保留选牌状态的动作
If 当前动作 = "仁德" Or 当前动作 = "遗计" Or 当前动作 = "被刚烈" Or 当前动作 = "制衡" Or _
当前动作 = "结姻" Or 当前动作 = "贯石斧" Or 当前动作 = "弃牌" Or 当前技能 = "蛇矛" Then
I = 7
Do While Cells(25, I).Value <> ""
If Cells(25, I).Interior.ColorIndex = 6 Then
iCount = iCount + 1
ReDim Preserve arr牌列号(iCount)
arr牌列号(iCount - 1) = 24 + I - 6
End If
I = I + 1
Loop
If 当前动作 = "制衡" Or 当前动作 = "贯石斧" Then
If Cells(21, 17).Value <> "" And Cells(21, 17).Interior.ColorIndex = 6 Then
iCount = iCount + 1
ReDim Preserve arr牌列号(iCount)
arr牌列号(iCount - 1) = 21
End If
If Cells(21, 23).Value <> "" And Cells(21, 23).Interior.ColorIndex = 6 Then
iCount = iCount + 1
ReDim Preserve arr牌列号(iCount)
arr牌列号(iCount - 1) = 22
End If
If Cells(22, 17).Value <> "" And Cells(22, 17).Interior.ColorIndex = 6 Then
iCount = iCount + 1
ReDim Preserve arr牌列号(iCount)
arr牌列号(iCount - 1) = 23
End If
If Cells(22, 23).Value <> "" And Cells(22, 23).Interior.ColorIndex = 6 Then
iCount = iCount + 1
ReDim Preserve arr牌列号(iCount)
arr牌列号(iCount - 1) = 24
End If
End If
If 当前技能 = "蛇矛" Then
蛇矛杀列号 = arr牌列号(0)
蛇矛杀列号2 = arr牌列号(1)
End If
End If

Worksheets("主界面").Range("Q21:AA22").Interior.ColorIndex = DefaultColor '15
Worksheets("主界面").Range("G23:AA25").Interior.ColorIndex = DefaultColor '15
Worksheets("主界面").Range("Q20:V20").Interior.ColorIndex = DefaultColor

If 当前动作 <> "" Then
Call 出招(arr牌列号)
If 超时时间 > 0 Then '等待中
If 当前动作 = "遗计" And 遗计仁德牌数 > 0 Then
Call 显示按钮("遗计")
Call 设定动作可出牌(当前动作, "")
Else
Call 等待结束
End If
Exit Sub
End If
Else
牌名称 = Worksheets("全量牌").Cells(牌ID, 6).Value
牌花色 = Worksheets("全量牌").Cells(牌ID, 5).Value
牌类型 = Worksheets("全量牌").Cells(牌ID, 7).Value

Select Case 牌类型
Case "武器" '武器
动作 = "装备"
Call 装备武器(1, 牌列号)
Case "防具" '防具
动作 = "装备"
Call 装备防具(1, 牌列号)
Case "防御马"
动作 = "装备"
Call 装备防御马(1, 牌列号)
Case "攻击马"
动作 = "装备"
Call 装备攻击马(1, 牌列号)
Case Else
Select Case 牌名称
Case "桃" '生命+1
动作 = "吃桃"
Call 出桃(1, 牌列号, 当前技能)
Case "无中生有" '摸两张牌
动作 = "无中"
Call 出无中生有(1, 牌列号, 牌ID, 当前技能)
Case "南蛮入侵" '每人掉1血
动作 = "南蛮入侵"
Call 出南蛮入侵(1, 牌列号, 牌ID, 当前技能)
Case "万箭齐发" '每人掉1血
动作 = "万箭齐发"
Call 出万箭齐发(1, 牌列号, 牌ID, 当前技能)
Case "闪电" '直接使用
动作 = "安装"
Call 出闪电(1, 牌列号)
Case "五谷丰登" '每人获得一牌
动作 = "五谷"
Call 出五谷丰登(1, 牌列号, 牌ID, 当前技能)
Case "桃园结义"
动作 = "桃园"
Call 出桃园结义(1, 牌列号, 牌ID, 当前技能)
Case "借刀杀人"
动作 = "借刀"
Call 出借刀杀人(1, 牌列号, 牌ID, 当前技能)
Case Else
Call 记录履历(1, "还有其他牌需要在出牌阶段出？？" & 牌名称)
Exit Sub
End Select
End Select
End If
Call 等待结束
If 动作 = "刚烈" Or 动作 = "激将" Or 动作 = "杀" Or 动作 = "决斗" Or 动作 = "万箭齐发" _
Or 动作 = "南蛮入侵" Or 动作 = "雷击" Or 动作 = "苦肉" _
Or 动作 = "蛇矛" Or 动作 = "神速1" Or 动作 = "神速2" Or 动作 = "反间" Then
Call 判断回合内死亡
End If
If 当前角色ID = 1 Then
Call 显示按钮("")
End If
Call 设定动作可出牌("", 当前技能)
If 当前角色ID > 5 Or 当前角色ID < 1 Then Call 记录履历(0, "当前角色ID异常！cmdOutEnd" & 当前动作): Call EndGame
Exit Sub
errmsg:
Call 错误信息记录("【确认】")

End Sub

Private Sub lstName_Click()
Dim 武将名称 As String
Dim 武将ID As Integer
Dim iIndex As Integer
Dim I As Integer

武将名称 = lstName.Text
If 武将名称 = "" Then Exit Sub

I = 2
Do While Worksheets("武将牌").Range("A" & CStr(I)).Value <> ""
If 武将名称 = Worksheets("武将牌").Range("D" & CStr(I)).Value Then
武将ID = I
Exit Do
End If
I = I + 1
Loop
If 武将ID = 0 Then Exit Sub
玩家选将ID = 武将ID
cmdOut.Enabled = True
Cells(19, 7).Value = 当前动作 & ":" & Worksheets("武将牌").Cells(武将ID, 4).Value
If 当前动作 = "选主公" Or 当前动作 = "选将" Then
If Worksheets("武将牌").Cells(武将ID, 8).Value = "" Then
Cells(9, 18).Value = Worksheets("武将牌").Cells(武将ID, 7).Value '主公技
Else
Cells(9, 18).Value = Worksheets("武将牌").Cells(武将ID, 7).Value & vbCrLf & Worksheets("武将牌").Cells(武将ID, 8).Value
End If
Cells(15, 18).Value = "武将技"
Cells(9, 24).Value = Worksheets("武将牌").Cells(武将ID, 9).Value '主公技
Cells(15, 24).Value = "主公技"

Cells(9, 18).Validation.InputMessage = Worksheets("武将牌").Cells(武将ID, 12).Value '技能说明
Cells(9, 24).Validation.InputMessage = Worksheets("武将牌").Cells(武将ID, 12).Value '技能说明
End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True '拒绝双击修改内容
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True '拒绝右键
End Sub

'玩家控制的时候
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim 牌ID As Integer
Dim 角色ID As Integer
Dim 对手ID As Integer
Dim 对手名称 As String
Dim 对手名称1 As String
Dim 对手名称2 As String
Dim 对手名称3 As String
Dim 玩家名称 As String
Dim 武器ID As Integer
Dim 武器名称 As String

Dim iRow As Integer
Dim iCol As Integer
Dim iCount As Integer
Dim I As Integer
Dim ID As Integer
Dim oldColor As Integer
Dim 牌列号 As Integer
Dim 牌花色 As String
Dim 牌点数 As String

你下载的是百手机版还是电脑版度？
Android版下载：知http://sgs.sgamer.com/201108/download-detail-944.html
PC版下载：http://sgs.sgamer.com/201106/download-detail-919.html
重新下载excel三国杀试道试，如回果还有乱码可以到论坛截图反答馈