晓之蛊 发表于 2007-10-30 14:46:03

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

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
   setm=!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 发表于 2007-10-30 14:46:49

比上次的还无聊……

抓阄最高

redkknd 发表于 2007-10-30 14:46:50

下一个看看,感谢分享

邊嗰 发表于 2007-10-30 15:00:22

原帖由 death2000 于 2007-10-30 14:46 发表 http://bbs.newwise.com/images/common/back.gif
比上次的还无聊……

抓阄最高 十分同意。中国人还真是有空


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

霜子哀歌 发表于 2007-10-30 15:13:09

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

晓之蛊 发表于 2007-10-30 15:22:48

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

qhlixpfh 发表于 2007-10-30 15:45:50

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

雷骑士1985 发表于 2007-10-30 16:38:09

原帖由 qhlixpfh 于 2007-10-30 15:45 发表 http://bbs.newwise.com/images/common/back.gif
当初我们分组是把人名扔进卡组然后洗牌随机丢的..
同,这算是比较方便的了

dlszg2008 发表于 2007-10-30 21:01:16

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

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

谢谢楼主分享!

maiyl 发表于 2007-10-30 21:11:12

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

Aiur 发表于 2007-10-31 00:07:31

原帖由 qhlixpfh 于 2007-10-30 15:45 发表 http://bbs.newwise.com/images/common/back.gif
当初我们分组是把人名扔进卡组然后洗牌随机丢的..
我的回合,抽卡!
A:我将场上的死之四十四星瓢虫、暗之支配者-雅克两体生祭
我的最强怪兽,人造人KOZO-精神病患者召唤!
B:没用的,我以YD的大丽花作为祭品,陷阱卡,猹之卡组破坏病毒发动!

兔逼肯特牛。。

逆卷炎灵 发表于 2007-10-31 12:26:24

我也不说了……
页: [1]
查看完整版本: 『晓』战队制作:比赛随机分组工具