- 最后登录
- 2014-1-17
- 在线时间
- 439 小时
- 阅读权限
- 10
- 注册时间
- 2008-3-20
- 积分
- 183
- 帖子
- 68
- 精华
- 1
- UID
- 25794
- 性别
- 男
- 积分
- 183
- 帖子
- 68
- 精华
- 1
- UID
- 25794
- 性别
- 男
|
我写的打乱步骤核心部分代码。
Randomize;
move := '';
i := 0;
while (i < edRnd.IntValue) do
begin
ti := Round(Random(max));
if (i > 0) and (ti = arr[i - 1]) then
Continue;
if (i > 1) and (ti = arr[i - 2]) and ((ti div 3) = (arr[i - 2] div 3)) then
Continue;
arr := ti;
Inc(i);
end;
for i := 0 to edRnd.IntValue - 1 do
begin
ti := Floor(Random(max - 1));
if ti = 4 then
move := move + asMoves[arr] + '2'
else if (ti = 2) or (ti = 3) then
move := move + asMoves[arr] + #39
else
move := move + asMoves[arr];
move := move + ' ';
end; |
-
总评分: 经验 + 5
查看全部评分
|