 |
2004-02-14 09:34 出处：搜狐IT 作者：VBEDEN 责任编辑：huangpeidan
| Sub 棋子_Click(Index As Integer) 棋子(Index).行动指标=False Call 行为模式改变(Index) End Sub Sub 行为模式改变(Byval 传入值) '...............行为模式改变设定 棋子(传入值).行为模式 =新行为模式 棋子(传入值).行动指标=True End Sub Sub Timer_Timer() Dim I As long For I=0 to UBound(棋子)-1 If 棋子(I).行动指标=True Then Call 棋子行动 (棋子(I).行为模式) End If Next End Sub Sub 棋子行动(ByVal 传入值) Select Case 传入值 Case 敌A 敌A 模式行动展开 Case 敌B 敌B 模式行动展开 . . Case 我A 我A 模式行动展开 Case 我B 我B 模式行动展开 . . End Sub 至于战车跑几步，士兵发几枪，被 K 多少下才会隔屁，可借行为模式的增加来设定，不过这种各兵种不同属性的设定，不管回合制或即时制都需要有此种机制，不构成双方分别的要件。 |
软件大小：45.02 MB
软件授权：免费
立即下载
