『晓』战队制作:比赛随机分组工具

晓之蛊

http://www.ccponline.net/ccp/bls/random.htm


以上连接经常会半天连不上,很不好用所以本人做了个简单的随机分组程序如下：
作者:晓づ蛊
战队:『晓』战队
QQ:274612995
QQ群:41200573
原地址:http://xzs.game.topzj.com/viewthread.php?tid=9975&page=1&extra=page%3D1
如要传帖请注名原地址和作者!


16人参加2人一组共8组
1、以下红色部分代码复制到记事本另存为xy.cmd文件
2、将参赛队员名单每行一位录入记事本保存为name.txt文件
3、运行xy.cmd得到随机分组list.txt文件。
以下代码绿色部分须与队员名单文件名相同
蓝色部分的8表示分组分为8组
黑色部分2表示每组2人。
以下代码绝对公平公正，请各位游戏王比赛组织者们自行测试。


免费内容:

@echo off
for /f "delims=" %%i in (name.txt) do (
   setlocal ENABLEDELAYEDEXPANSION
   for /l %%a in (1,1,8) do (
   echo %random% >nul
   set  m=!m!!random:~-1!
   )
   echo !m!!:%%i>>tmp.txt
   endlocal
)

setlocal ENABLEDELAYEDEXPANSION
set /a num=0
set /a linenum=0
for /f "delims=" %%i in (tmp.txt) do set /a linenum=!linenum!+1
for /f "tokens=1,2* delims=: " %%i in ('sort tmp.txt ^| findstr /n "."') do (
  set n=%%k
  set m=!m! !n!
  set /a num=!num!+1
  if !num!==2 (
   echo !m!>>tmp1.txt
   set /a num=0
   set m=)
  if "%%i"=="!linenum!" (
     if "!m!" neq "" echo !m!>>tmp1.txt)
)
endlocal
findstr /n "." tmp1.txt>list.txt
del tmp*.txt
start list.txt

不知道会不会有人来顶帖!!

[ 本帖最后由 晓之蛊 于 2007-10-30 14:56 编辑 ]

death2000

比上次的还无聊……

抓阄最高

redkknd

下一个看看，感谢分享

邊嗰

原帖由 death2000 于 2007-10-30 14:46 发表
比上次的还无聊……

抓阄最高

十分同意。中国人还真是有空


PS：我那么久没发言，第一次居然给了此帖

霜子哀歌

用NBX投随机数不就好了,这东西有意义么

晓之蛊

这个是做给大型比赛用的如
32人.48人.上百人的比赛可以用到!

qhlixpfh

当初我们分组是把人名扔进卡组然后洗牌随机丢的..

雷骑士1985

原帖由 qhlixpfh 于 2007-10-30 15:45 发表
当初我们分组是把人名扔进卡组然后洗牌随机丢的..

同，这算是比较方便的了

很不错的东西！使用很方便

个种个样的分组都能实现，不关是游戏王别的游戏也能用到，哇哈哈

谢谢楼主分享!

maiyl

看在制作者的用心..讲声多谢..
但真的是做了无用功..

Aiur

原帖由 qhlixpfh 于 2007-10-30 15:45 发表
当初我们分组是把人名扔进卡组然后洗牌随机丢的..

我的回合，抽卡！
A：我将场上的死之四十四星瓢虫、暗之支配者－雅克两体生祭
我的最强怪兽，人造人KOZO－精神病患者召唤！
B：没用的，我以YD的大丽花作为祭品，陷阱卡，猹之卡组破坏病毒发动！

兔逼肯特牛。。

逆卷炎灵

我也不说了……