create table plakalar(plakaid int,plakaadi nvarchar(50))
insert into plakalar values(1,'Adana')
insert into plakalar values(2,'Adıyaman')
insert into plakalar values(3,'Afyon')
insert into plakalar values(4,'Agrı')
insert into plakalar values(5,'Amasya')
insert into plakalar values(6,'Ankara')
insert into plakalar values(7,'Artvin')
insert into plakalar values(8,'Aydın')
.
.
.
.
.
--create procedure kural--------------------------------------------
--as
-- begin
--   print '----Plaka Bilme Oyunu' 
--   print '----Ekrana Sayılar Gelecek'
--   print '----Hangi Şehrin Plakasını Oldugunu'
--   print '----Tahmin Etmeniz Gerekiyor'
--   print '----İpucu için --exec ipucu plakanumarası --yazmanız yeterlidir'
--   print '----Oyuna Baslamak için exec Basla yazınız'
--   end
--create procedure ipucu(@ipucu int)---------------------------------------
--as
--begin
--	declare @sehir nvarchar(50)
--	declare @sehir1 char(1)
	
--	set @sehir=(select plakaadi from plakalar where plakaid=@ipucu)
--	set @sehir1=SUBSTRING(@sehir,1,1)
--	print @sehir1
--	print 'ipucu kullanıldı'
--	print 'cevaplamak icin exec cevap plaka,sehirismi'
--	end

--create procedure Basla---------------------------------------------------------
--	as
--		begin
--		  declare @random int
--		  declare @plaka int
--		  set @random = cast(rand()*30 as int)+1

--		  set @plaka=(select plakaid from plakalar where plakaid=@random)

--		  print @plaka
--		  print 'cevaplamak icin'
--		  print 'exec cevap plaka,sehirismi'
--		  print 'Seklinde Cevaplayınız'
--		  end

--create procedure cevap(@plaka int,@sehir nvarchar(max))-------------------------------
--as
--begin
--declare @cevap int

--Select @cevap = COUNT(1) from plakalar Where plakaid=@plaka AND plakaadi=@sehir
--if (@cevap = 0)
--begin
--print 'Tekrar deneyin'
--print 'tekrar cevaplamak icin'
--print 'exec cevap plaka,sehirismi'
--print 'sehir ismini büyük harfle yazınız'
--end
--else 
--begin
--Select 'Tebrikler !!'
--select * from plakalar where plakaid=@plaka AND plakaadi=@sehir
--print 'tekrar denemek için exec Basla'
--print 'yazmanız yeterli'
--end
--end---------------------------------------------------------------------------------------
--exec kural
--exec Basla
--exec cevap 3,Afyon