create proc davinci (@intarray varchar(1000))a
s--******************--2004.7--******************
declare @sp varchar(1)set @sp=','

declare @i int,@j int,@maxq int

--初始化

if charindex(@sp,@intarray)=0begin　 
if object_id('tempdb..##t') is not null　drop table ##t

if isnumeric(@intarray)=0　 begin　print '输入参数必须是数字。'　
return　 end　 create table ##t(id int identity(1,1),q int)　 
set @i=floor(10+rand()*30)　 
insert into ##t(q) values(@i)　 
print '目标：'+cast(@i as varchar(2))end

--轮回游戏
elsebegin

--判断游戏是否结束　 
if object_id('tempdb..##t') is null　 
begin　print '本回合已经结束，大侠请重新来过！'　
return　 end

--验证用户输入数合法性　 
if isnumeric(right(@intarray,charindex
(@sp,reverse(@intarray))-1))=0　 
begin　print 
'输入参数必须是数字。'　
return　 end　 
set @i=cast(right(@intarray,charindex
(@sp,reverse(@intarray))-1) as int)　 
set @maxq=(select max(q) from ##t where id>1)　 
if @i<=isnull(@maxq,0)　 
begin　print 
'输入参数必须大于当前最大数。'　
return　 end　 if @i-isnull(@maxq,1)>3　 begin　print 
'输入参数超过范围。'　
return　 end　 if @i>(select q from ##t where id=1)　 
begin　print '输入参数不得大于目标数。'　
return　 end

--插入用户输入数　 
insert into ##t(q) values(@i)　 print '你输入：'
+cast(@i as varchar(2))
--判断胜负　 
if @i=(select q from ##t where id=1)　 
begin　drop table ##t　----------------------------------'　
print '胜败乃兵家常事，大侠请重新来过！'　
return　 end　 if @i=(select q from ##t where id=1)-1　 
begin　 drop table ##t　
print '达芬奇：
'+cast(@i+1 as varchar(2))　print '-----------------'　
print '恭喜！你获胜了。'　
return　 end

--插入达芬奇应答数　
 if (select q-1 from ##t where id=1)%4=0　
set @j=(select count(id) from ##t where id%2=1)*4　 
else　 begin　set @j=(select q-1 from ##t where id=1)%4+
((select count(id) from ##t where id%2=1)-1)*4　
if @j<(select max(q) from ##t where id>1) 
set @j=@j+4　 end if @i=@j　s
et @j=@j+floor(1+rand()*3)insert into ##t values(@j)　 
print '达芬奇：'+cast(@j as varchar(2))end

--完整版显示select 
目标数=q,你输入=null,达芬奇=null,
下次输入='1,2,3' 
from ##t where id=1union allselect 
目标数=null,你输入,达芬奇,
下次输入=case when charindex(','+目标数+',',','+下次输入+',')=0 
then 下次输入 else　 left(left(下次输入,charindex
(','+目标数+',',','+下次输入+',')
+len(目标数)),　 len(left(下次输入,charindex
(','+目标数+',',','+下次输入+',')
+len(目标数)))-　 charindex(',',reverse(left(下次输入,
charindex(','+目标数+',',','+下次输入+',')+len(目标数)))))　 
endfrom (select 目标数,你输入,达芬奇,
下次输入=cast(达芬奇+1 as varchar(2))+',
'　+cast(达芬奇+2 as varchar(2))+',
'　+cast(达芬奇+3 as varchar(2))from 
(select 目标数=cast((select q from ##t where id=1) as varchar(2)),
你输入=max(case when id%2=0 then q else 0 end),
达芬奇=max(case when id%2=1 then q else 0 end)
from ##twhere id>1group by floor(id/2)) a) b

/*--简化版显示select case when id=1 then '目标数：
'　 when id%2=0 then '你输入：'when id%2=1 and id>1 then 
'达芬奇：' end　 ,qfrom ##t*/