贴吧用户_aW54AMN hongyunggg0
关注数: 2 粉丝数: 1 发帖数: 59 关注贴吧数: 16
自己编一个三国杀 从今天开始,用EXCEL窗体+VBA语言重制三国杀,大家期待我的作品吧 变化:减少拖节奏的卡牌或动作 1、移除无懈可击,用其他牌替代,2、五谷改为系统自动发牌 下面是今天写的代码 卡牌类: Public ID As Long Public 点数 As Long Public 名称 As 牌名称枚举 Public 花色 As 花色枚举 Public 颜色 As 颜色枚举 Public 类别 As 牌类别枚举 Public 图像 As Image Public Sub 创建(pID As Long, p点数 As Long, p名称 As 牌名称枚举, p花色 As 花色枚举, p颜色 As 颜色枚举, p类别 As 牌类别枚举, p图像 As Image) ID = pID 点数 = p点数 名称 = p名称 花色 = p花色 颜色 = p颜色 类别 = p类别 Set 图像 = p图像 End Sub 武将类 Public ID As Long '英雄唯一编号 Public 名称 As 武将名称 Public 位置 As Long Public 图像 As Image Public 生命上限 As Long Public 当前生命 As Long Public 派别 As 派别枚举 Public 状态 As 英雄状态枚举 Public 连环 As 连环状态枚举 Public 醉酒状态 As 英雄醉酒状态枚举 Public 手牌 As Collection Public 手牌上限 As Long '装备区 Public 武器 As 牌名称枚举 Public 防具 As 牌名称枚举 Public 加马 As 牌名称枚举 Public 减马 As 牌名称枚举 '判定区,判定先放的后判 Public 判定区 As Collection '电/乐/兵 Public 判定牌 As Collection Public 攻击距离 As Long '=武器攻击距离+减1马+人物距离技能 Public 顺手距离 As Long Public 上家 As 武将类 Public 下家 As 武将类 Public 拥有技能ID As Collection '所拥有的技能ID集 Public Sub 创建(pID As Long, p名称 As 武将名称, p位置 As Long, p图像 As Image, p生命上限 As Long, p派别 As 派别枚举, p状态 As 英雄状态枚举, p连环 As 连环状态枚举, p醉酒状态 As 英雄醉酒状态枚举) ID = pID 名称 = p名称 位置 = p位置 Set 图像 = p图像 生命上限 = p生命上限 当前生命 = 生命上限 派别 = p派别 状态 = p状态 连环 = p连环 醉酒状态 = p醉酒状态 手牌上限 = 生命上限 '部分英雄不同 武器 = 未知 防具 = 未知 加马 = 未知 减马 = 未知 Set 判定区 = New Collection Set 判定牌 = New Collection 攻击距离 = 1 顺手距离 = 1 End Sub Public Sub 销毁() End Sub '事件监听 Public Sub 触发被杀() End Sub Public Sub 触发杀被闪() '出杀被闪时 End Sub Public Sub 触发被指定为锦囊目标() End Sub Public Sub 触发失去生命() End Sub Public Sub 触发恢复生命() End Sub Public Sub 触发获得手牌() End Sub Public Sub 触发失去手牌() End Sub Public Sub 触发获得装备区牌() '更新攻击距离和顺手距离 End Sub Public Sub 触发失去装备区牌() '更新攻击距离和顺手距离 End Sub Public Sub 触发濒死() End Sub Public Sub 触发阵亡(来源 As 武将类) End Sub Public Sub 触发被顺() End Sub Public Sub 触发被拆() End Sub Public Sub 触发被乐() End Sub Public Sub 触发被兵() End Sub Public Sub 触发被决斗() End Sub Public Sub 触发被南蛮() End Sub Public Sub 触发被万箭() End Sub 变量: Public Enum 花色枚举 黑桃 红桃 梅花 方块 End Enum Public Enum 颜色枚举 '牌的颜色 黑色 红色 End Enum Public Enum 牌名称枚举 未知 杀 雷杀 火杀 闪 桃 酒 '锦囊 顺手牵羊 过河拆桥 借刀杀人 桃园结义 五谷丰登 铁索连环 五中生有 南蛮入侵 万箭齐发 决斗 火攻 '延时锦囊 闪电 乐不思蜀 兵粮寸断 '装备 '武器 诸葛连弩 雌雄双股剑 贯石斧 方天画戟 麒麟弓 青钢剑 古锭刀 寒冰剑 青龙偃月刀 八杖蛇矛 朱雀羽扇 '防具 八卦阵 仁王盾 藤甲 白银狮子 '马 绝影 的卢 爪黄飞电 骅骝 赤兔 大宛 紫马 End Enum '去除无懈可击! Public Enum 牌类别枚举 基本牌 装备牌 锦囊牌 延时锦囊牌 End Enum Public Enum 英雄翻面枚举 '牌的颜色 正面 翻面 End Enum Public Enum 英雄状态枚举 '牌的颜色 存活 濒死 阵亡 End Enum Public Enum 英雄醉酒状态枚举 '牌的颜色 未醉酒 醉酒 End Enum Public Enum 连环状态枚举 '牌的颜色 连环 未连环 End Enum Public Enum 派别枚举 主公 忠臣 反贼 内奸 End Enum Public Enum 武将名称 刘备 刘婵 貂蝉 陆逊 华佗 End Enum
1 下一页